Chia sẻ cho AE cách mở Path trên VBA

[cuongtokyo0240]

Trong code mình có 1 vài chỗ viết bằng các chữ tiếng nhật .
anh em không cần phải hiểu vì đó chỉ là phần đặt tên , hiển thị thôi.
※ Code này đang áp dụng cho đối tượng Access - Đối với Excel cũng tương tự thôi nhé

Private Sub 表示_Click()
On Error GoTo Err_Step
Dim filepath As String 'ファイルパス（絶対パス）
Dim fFso As Object
If Nz(Me!FILE_PATH, "") = "" Then
MsgBox "ファイル名が指定されていません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 拡張子なしで指定して下さい", vbExclamation, "ファイル名無し"
Exit Sub
Else
filepath = Me!FILE_PATH
Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FileExists(filepath) = True) Then '指定したファイルあり？
'ファイルが存在するときの処理
Application.FollowHyperlink filepath
Else
'ファイルが存在しないときの処理
MsgBox "指定されたファイルがありません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 確認して下さい", vbExclamation, "ファイル名無し"
Exit Sub
End If
Set fFso = Nothing
End If
Exit_Step:
Exit Sub
Err_Step:
MsgBox Err.Description, vbCritical
Resume Exit_Step
End Sub

 

[hpkhuong]

Sao biết hay vậy?

Có thể mà...chứ đâu có dám "khẳng định" đâu á!

 

[VetMini]

Nếu là tiếng Nhật thì có thể là jav_click đó anh! và có thêm Private Sub ->chắc Sub này xài nội bộ đó...nên hàng này không se đâu nhá!

Nếu là jav thì từ cơ-lít phải viết với 't' thay vì 'ck'

 

[batman1]

Access hay Excel nó cũng tương tự như nhau thôi,
.

Nhưng bạn phải nói để người khác khỏi bị bất ngờ. Có người biết, có người không biết. Nếu những người không biết dán vào Excel thì họ chạy sẽ bị lỗi. Lúc đó họ chả hiểu cái gì đang sảy ra.

Tôi không bàn về code vì có có thể viết ngắn gọn, "bài bản" hơn. Nhưng nếu code chưa hay thì vẫn còn tấm lòng.

Tất nhiên nếu muốn tặng cả cho những người không biết VBA thì phải thay bằng sub tổng quát và trong code cụ thể thì gọi nó và truyền tham số filename.

Còn ai muốn tranh thủ học tiếng Nhật thì có thể dán vào vd. notepad

 

[cuongtokyo0240]

Nhưng bạn phải nói để người khác khỏi bị bất ngờ. Có người biết, có người không biết. Nếu những người không biết dán vào Excel thì họ chạy sẽ bị lỗi. Lúc đó họ chả hiểu cái gì đang sảy ra.

Tôi không bàn về code vì có có thể viết ngắn gọn, "bài bản" hơn. Nhưng nếu code chưa hay thì vẫn còn tấm lòng.

Tất nhiên nếu muốn tặng cả cho những người không biết VBA thì phải thay bằng sub tổng quát và trong code cụ thể thì gọi nó và truyền tham số filename.

Còn ai muốn tranh thủ học tiếng Nhật thì có thể dán vào vd. notepad

Còn 1 cách ngắn hơn là ông người nhật nói qua qua thì mình vẫn đang nghiên cứu . Có thì cũng đăng chứ ai để làm gì .
Có mỗi vậy thôi mà diễn đàn gạch đá nhiều vậy ? thêm ít gach nữa chắc E xây biêt thự luôn rồi ))

 

[cuongtokyo0240]

Anh chị cho em hỏi có VBA cho đối tượng access ko nhỉ ? và ở vn mình access có dc nhieu ng sử dụng ko ạ

 

[anhphuong]

Anh chị cho em hỏi có VBA cho đối tượng access ko nhỉ ? và ở vn mình access có dc nhieu ng sử dụng ko ạ

1/ Excel hay Access đều có VBA vì cùng một bộ Office
2/ Ỏ Việt Nam, số lượng người dùng Access đếm không xuể
3/ Hàm NZ chỉ có trong Access mà không có trong Excel

 

[Hai Lúa Miền Tây]

Anh chị cho em hỏi có VBA cho đối tượng access ko nhỉ ? và ở vn mình access có dc nhieu ng sử dụng ko ạ

Tôi đã bắt đầu với Access cách đây hơn 15 năm, ở diễn đàn này người biết Access cũng không ít.

 

[cuongtokyo0240]

Tôi đã bắt đầu với Access cách đây hơn 15 năm, ở diễn đàn này người biết Access cũng không ít.

em đang tim tai liệu về sự kết hơp giữa access và sql Server . anh có thể chia se cho e dc không?
Em vừa mới tham gia vào đây. thấy chủ yếu là hỏi excel thôi ak.

 

[Bong0503]

em đang tim tai liệu về sự kết hơp giữa access và sql Server . anh có thể chia se cho e dc không?
Em vừa mới tham gia vào đây. thấy chủ yếu là hỏi excel thôi ak.

Đây là diễn đàn về excel nên hỏi về excel là đúng rồi.
bạn muốn hỏi veefAccess thì vào đây http://thuthuataccess.com/forum/

 

[Hai Lúa Miền Tây]

em đang tim tai liệu về sự kết hơp giữa access và sql Server . anh có thể chia se cho e dc không?
Em vừa mới tham gia vào đây. thấy chủ yếu là hỏi excel thôi ak.

Nếu muốn kết hợp Access vào SQLServer thì như tôi đã nói là bạn nên tìm hiểu trên mạng với từ khóa là Linked Servers nhé.

Đây là diễn đàn về excel nên hỏi về excel là đúng rồi.
bạn muốn hỏi veefAccess thì vào đây http://thuthuataccess.com/forum/

Tôi đã có thấy bạn này hỏi bên đó rồi.

 

[Kiều Mạnh]

Đây là diễn đàn về excel nên hỏi về excel là đúng rồi.
bạn muốn hỏi veefAccess thì vào đây http://thuthuataccess.com/forum/

Thì mới coi bên Access thấy tay mô đang hỏi đó ???!!!!
mà đi mô loanh quanh cho đời mệt mõi ta .... ròi cũng quay về đây thui
mà cũng nên đi đi ... đi diết xong sẻ ngộ ra 1 điều ... sau đó khắc biết

 

[VetMini]

Nếu muốn kết hợp Access vào SQLServer thì như tôi đã nói là bạn nên tìm hiểu trên mạng với từ khóa là Linked Servers nhé.

Tôi đã có thấy bạn này hỏi bên đó rồi.

Thì mới coi bên Access thấy tay mô đang hỏi đó ???!!!!
...

Cũng chỉ loanh quanh thôi. Nếu có khả năng cài đặt được linked server thì đã không hỏi những câu hỏi này. Nếu Server thuộc về ngừoi (admin) khác thì muốn yêu cầu được 'linked' cũng không dễ. Yêu cầu được rồi thì bên kia sẽ cài đặt giùm và chỉ dẫn luôn các thủ tục làm việc.

Túm lại, vấn đề này thuộc về SQL Server nhiều hơn Access. Thớt cần nghiên cứu thêm về bên này.

 

[themorzer]

Trong code mình có 1 vài chỗ viết bằng các chữ tiếng nhật .
anh em không cần phải hiểu vì đó chỉ là phần đặt tên , hiển thị thôi.
※ Code này đang áp dụng cho đối tượng Access - Đối với Excel cũng tương tự thôi nhé

Private Sub 表示_Click()
On Error GoTo Err_Step
Dim filepath As String 'ファイルパス（絶対パス）
Dim fFso As Object
If Nz(Me!FILE_PATH, "") = "" Then
MsgBox "ファイル名が指定されていません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 拡張子なしで指定して下さい", vbExclamation, "ファイル名無し"
Exit Sub
Else
filepath = Me!FILE_PATH
Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FileExists(filepath) = True) Then '指定したファイルあり？
'ファイルが存在するときの処理
Application.FollowHyperlink filepath
Else
'ファイルが存在しないときの処理
MsgBox "指定されたファイルがありません" & Chr(13) & Chr(13) & Chr(10) & _
"※ 確認して下さい", vbExclamation, "ファイル名無し"
Exit Sub
End If
Set fFso = Nothing
End If
Exit_Step:
Exit Sub
Err_Step:
MsgBox Err.Description, vbCritical
Resume Exit_Step
End Sub

làm thế nào để copy được tiếng nhật ra vậy, mình bị lỗi font không copy ra word dc

 

[kaka01]

làm thế nào để copy được tiếng nhật ra vậy, mình bị lỗi font không copy ra word dc

Để hiển thị và gõ tiếng Nhật trong VBA em đang dùng cách sau:
Vào Controlpanel ->Region ->Administrative -> Change system Locale...-> chọn Japanese-> OK
(tham khảo hình ảnh đính kèm)
sau khi thiết định xong có thể gõ(nếu đã cài bộ gõ tiếng nhật) và hiển thị được tiếng Nhật trong code
cái này em sưu tầm trên Youtobe nhưng quên mất link hay tác giả là ai rùi chỉ nhớ bước làm anh/chị tham khảo
em đang dùng excel 2013, win 10
khi trong code hiển thị được thì copy ra Word chắc là sẽ hiển thị được( nếu máy tính đã có font đó)
Sau khi chuyển rùi có ảnh hưởng đến các dữ liệu khác không em không rõ, anh/chị lưu ý!

 

[cuongtokyo0240]

Thì mới coi bên Access thấy tay mô đang hỏi đó ???!!!!
mà đi mô loanh quanh cho đời mệt mõi ta .... ròi cũng quay về đây thui
mà cũng nên đi đi ... đi diết xong sẻ ngộ ra 1 điều ... sau đó khắc biết
View attachment 198234

Minh không biết thì đi hỏi thôi. Hỏi 1 chỗ không được thì hỏi nhiều chỗ .
Chỉ sợ nhất là giấu DỐT . người xưa vẫn thường nói : Có bệnh thì vái tứ phương .
Mình gặp vấn đề không giải quyết được thì mình đi hỏi thôi .Và Mình đăng chia sẻ cho những bạn nào cần .
※ Có thể Bỏ Qua nếu nhưng không cần thiết .

 

[cuongtokyo0240]

Bài đã được tự động gộp: 27/6/18

làm thế nào để copy được tiếng nhật ra vậy, mình bị lỗi font không copy ra word dc

Ok bạn .Tối mình làm về mình sẽ chỉnh sửa l các đoạn hiển thị bằng tiếng việt cho moi người dễ copy chỉnh sửa tuỳ biến .