Chia sẻ cho AE cách mở Path trên VBA (1 người xem)

[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

 

[Kiều Mạnh]

Trong code mình có 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.
Còn 1 cái nữa ngắn hơn
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

code hay .............

 

[VetMini]

Thảy cho người ta một đống sắt và bảo: biếu bạn một cái máy bơm, còn một cái nữa hiệu quả hơn.
Ai muốn dùng thì tự tìm lấy cái ca ta lô, cái máy này nó bơm bánh xe hay bơm nước còn chưa rõ, khoan nói đến cách thức mở máy.

 

[batman1]

code hay .............

Hay nhưng chỉ xếp để đó khi mà cái quan trọng nhất NZ người ta lại không biếu

 

[cuongtokyo0240]

Code ngắn hay dài không fai là điều quá quan trọng.
Mình viết code không fai chỉ riêng bản thân mình hiểu mà người khác nhìn vào họ cũng hiểu.
Ngắn chưa chắc đã là tốt và ngược lại.

 

[batman1]

Code ngắn hay dài không fai là điều quá quan trọng.
Mình viết code không fai chỉ riêng bản thân mình hiểu mà người khác nhìn vào họ cũng hiểu.
Ngắn chưa chắc đã là tốt và ngược lại.

Có ai chê ngắn dài đâu? Nhưng nếu bạn chia sẻ thì chia sẻ cả hàm NZ chứ không có thì người khác làm sao dùng được cái chia sẻ của bạn?

 

[VetMini]

Có ai chê ngắn dài đâu? Nhưng nếu bạn chia sẻ thì chia sẻ cả hàm NZ chứ không có thì người khác làm sao dùng được cái chia sẻ của bạn?

Còn sự kiện 表示_Click nữa bác. Hỏng hiểu "biểu thị" trong tiếng Nhật thì là cái gì trong VBA đây.
<quote>viết code không fai chỉ riêng bản thân mình hiểu mà người khác nhìn vào họ cũng hiểu<unquote> [sic]

 

[cuongtokyo0240]

Còn sự kiện 表示_Click nữa bác. Hỏng hiểu "biểu thị" trong tiếng Nhật thì là cái gì trong VBA đây.
<quote>viết code không fai chỉ riêng bản thân mình hiểu mà người khác nhìn vào họ cũng hiểu<unquote> [sic]

khong biet bac co doc ki tieu de em viet noi ro roi con gi, phan tieng nhat chi la dat ten hien thi.

 

[Kiều Mạnh]

khong biet bac co doc ki tieu de em viet noi ro roi con gi, phan tieng nhat chi la dat ten hien thi.

1/ Mình không xài tiếng nhật nên ko biết còn cái sự kiện đó trong VBA tiếng anh là nó lỗi code
2/ Cái Hàm NZ là cái hàm chi vậy bạn ??!!!

Mình úp hình khoanh màu đỏ đó he

 

[VetMini]

1/ Mình không xài tiếng nhật nên ko biết còn cái sự kiện đó trong VBA tiếng anh là nó lỗi code
2/ Cái Hàm NZ là cái hàm chi vậy bạn ??!!!

Thớt bảo ngừoi ta chịu khó đọc đầu bài mình chứ chính bản thân thớt thì lười đọc đầu bài của từng góc.
Nếu thớt chịu khó đọc thì đã biết đây là góc Excel chứ không phải Access.

 

[PhanTuHuong]

Code ngắn hay dài không fai là điều quá quan trọng.
Mình viết code không fai chỉ riêng bản thân mình hiểu mà người khác nhìn vào họ cũng hiểu.
Ngắn chưa chắc đã là tốt và ngược lại.

Đơn giản nhất là bạn up file lên và ví dụ mẫu vì chữ tượng hình khó hình dung

 

[VetMini]

Đơn giản nhất là bạn up file lên và ví dụ mẫu vì chữ tượng hình khó hình dung

Bác quên dặn úp file và ví dụ mẫu bằng tiếng Việt. Chứ úp một cái file (db) toàn từ tròn tròn thì cũng chả ai hình dung nổi.

 

[batman1]

Thớt bảo ngừoi ta chịu khó đọc đầu bài mình chứ chính bản thân thớt thì lười đọc đầu bài của từng góc.
Nếu thớt chịu khó đọc thì đã biết đây là góc Excel chứ không phải Access.

Access cũng được nhưng phải nói một câu chứ ai mà biết được.

Nếu là "cao thủ" như bác thì lại không cần cái chia sẻ ấy rồi

 

[cuongtokyo0240]

à e viết thiếu thông tin là code nay dang cho đối tương access . )) excel cung tuong tự như vậy thôi ) .

 

[AutoReply]

Access cũng được nhưng phải nói một câu chứ ai mà biết được.

Nếu là "cao thủ" như bác thì lại không cần cái chia sẻ ấy rồi

Cao thủ nhìn zô là phải biết đấy là access rồi, đâu cần đợi phải nói.
Cao thủ VBA nhưng có thể sẽ dốt tiếng Nhật, đây là cơ hội để tìm hiểu thêm tiếng Nhật mà, chia sẻ rất có ích.

 

[VetMini]

Cao thủ nhìn zô là phải biết đấy là access rồi, đâu cần đợi phải nói.
Cao thủ VBA nhưng có thể sẽ dốt tiếng Nhật, đây là cơ hội để tìm hiểu thêm tiếng Nhật mà, chia sẻ rất có ích.

.
Dóc. Đọc lại bài #9 đi.
Mới vừa cốp bi vô thì nó thành dấu chấm hỏi hết. Còn quái gì nữa để tìm hiểu.
Hay là tại mình chưa "cao thủ VBA" cho nên không biết cách cốp?

 

[cuongtokyo0240]

nay em mới đăng nhap tk bằng máy tính . hiện em đã sửa lại thông tin bài viết rồi nhé
Access hay Excel nó cũng tương tự như nhau thôi,
Copy tham khảo tùy biến để áp dụng vào từng mục đối tượng.

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

Kiến thức thì em cũng chỉ học trên các tài liệu của ng nhật họ viết hoac các trang web khác nhau .
Tổng hơp đúc kết thấy cái gì hay thì Em chia sẻ cho mọi người .

 

[VetMini]

nay em mới đăng nhap tk bằng máy tính . hiện em đã sửa lại thông tin bài viết rồi nhé
Access hay Excel nó cũng tương tự như nhau thôi,
Copy tham khảo tùy biến để áp dụng vào từng mục đối tượng.
...

Bạn chỉ khăng khăng cho rằng rằng ngừoi ta khong hiểu mình. Trong khi đó bạn chẳng chịu tìm hiểu xem ngừoi ta nói gì.

Trong trường hợp cái đùm code trên của bạn, dẫu cho đã sửa tiếng Nhật thành tiếng Anh thì chúng vẫn còn những vấn đề sau đây:
1. Access và Excel chúng không tương tự nhau. Hàm NZ chỉ có trong Access chứ khong có trong Excel cho nên bạn cần viết một hàm thay thế. (xem chú thích bên dưới)
2. Cái sub của bạn không phải là sub tổng quát có thể dùng ở đâu cũng được. Nó là một sub bắt sự kiện. Theo chiều hướng code thì có lẽ là nút "Biểu Thị" trong 1 cái form nào đó. Cái "form nào đó" lại chả cho biết nó có những gì. Rốt cuộc là các thuộc tính FILE_PATH của đối tượng Me (chắc là cái form) chẳng ai biết nó là cái gì mà rờ.
Tổng kết là cái code của bạn chả xe được với ai khi mà nó đi khơi khơi như vậy.

Chú thích 1:
Đại khái thì hàm NZ trong Access có nhiệm vụ lọc các trị Null về một trị nào đó mà các toán tử của VBA (hay Access Query) có thể dùng trong biểu thức. Vì đây là một hàm chuyên CSDL cho nên nó chỉ có trong Access mà khong có trong Excel. Muốn sử dụng trong Excel, ngừoi ta phải viết một hàm thay thế. Đại khái như sau:
Private Function NZ(byVal tri, Optional byVal thay = "")
' code này chỉ thực hiện phần căn bản, muốn sử dụng cho nhiều trường hợp thì nó còn rắc rối hơn nhiều
NZ = IIf( IsNull(tri), "", tri )
End Function

Chú thích 2:
Code này rối như bòng bong. Chả biết error ở đâu mà rờ.

 

[ndu96081631]

Nếu là tiếng Nhật thì có thể là jav_click đó anh

Sao biết hay vậy?

 

[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 .