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'