Tùy chọn
Đặt và sử dụng biến mảng như thế nào?
- Đặt và sử dụng biến mảng như thế nào?
-
RE: Đặt và sử dụng biến mảng như thế nào?
Noname > 07-11-10, 09:45 PM
(07-11-10, 09:34 PM)haquocquan Đã viết: Cám ơn Noname rất nhiều. Mình đã làm được rồi.
Xin phép sửa lại lệnh của Noname một chút nhé.
Xin mời xem thử DEMO dưới đây
Chính xác rồi! Mình chỉ nói cái hướng thôi! Chứ code mình viết nhưng chưa test!
Các bạn down về giải nén mà lỗi thì đọc Chú ý nhé:
http://thuthuataccess.co.cc/forum/thread-366.html
Hiện giờ mình vẫn chưa sửa được lỗi gửi file nén lên diễn đàn, nên chịu khó vậy!
-
RE: Đặt và sử dụng biến mảng như thế nào?
Noname > 07-11-10, 09:53 PM
À, hình như code trên cần chỉnh lại xíu thế này (dựa vào đó mình đã update lại phía trên)
Mã:Private Sub Command3_Click()
Dim Tenfile As String
Dim L1 As Integer
S = Me.txtFileList.Value
Do
L1 = InStr(S, ",") '=> L1 là vi. trí ?a^`u tiên da^'u pha^?y
If L1 > 0 Then
Tenfile = Left(S, L1 - 1) '=> tên file đầu tiên tìm thấy
S = Right(S, Len(S) - L1)
Else
Tenfile = S
End If
' làm gì ?ó vo+'i tên file o+? ?ây
DoCmd.TransferDatabase acLink, "dBase IV", Application.CurrentProject.Path & "\", acTable, Tenfile & ".dbf", Tenfile, False
Loop While L1 > 0
End Sub