Lấy 1 dòng dữ liệu trong sheet file excel vào các textbox của form access để nhập lệu

[heroic]

Em cần 1 ví dụ về nhập liệu từ 1 dòng dữ liệu cuối của data sheet excel (hoặc chọn được dòng thì càng tốt) vào các textbox nhập liệu của form access (bằng 1 Macro nút lệnh chọn file excel và dòng dữ liệu) các bác nào đã làm qua vụ này chỉ giáo cho em với vì em gà mờ cả excel và access.

 

[sealand]

Với yêu cầu của bạn thì có lẽ cách nhanh gọn nhất là Link Table. Tạo 1 bảng luôn liên kết với bảng tính Excel nguồn. Mọi thay đổi trên Table đều được cập nhật sang Sheet Excel. Sau đó bạn tạo Form như mọi Form khác để sử lý dữ liệu. Như vậy, bạn đỡ phải dùng các kỹ thuật kết nối dữ liệu phức tạp khác.

 

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

Em cần 1 ví dụ về nhập liệu từ 1 dòng dữ liệu cuối của data sheet excel (hoặc chọn được dòng thì càng tốt) vào các textbox nhập liệu của form access (bằng 1 Macro nút lệnh chọn file excel và dòng dữ liệu) các bác nào đã làm qua vụ này chỉ giáo cho em với vì em gà mờ cả excel và access.

Ý bạn là dùng Access form để nhập liệu vào dòng cuối của file Excel tuỳ chọn. Gửi bạn 1 ví dụ về nhập liệu tuỳ chọn file.

Private Sub cmdNhapLieu_Click()
    Dim sPath As String
    sPath = CurrentProject.path
    Dim XLApp As Excel.Application
    Dim wrkWorkbook As Excel.Workbook
    Dim wrkSheet As Excel.Worksheet
    Set XLApp = CreateObject("Excel.Application")
    XLApp.Workbooks.Open (sPath & "\" & coFileName & ".xls")
    Set wrkWorkbook = XLApp.ActiveWorkbook
    Set wrkSheet = wrkWorkbook.ActiveSheet
    XLApp.Visible = False
    With wrkWorkbook.Worksheets("Sheet1")
         r = .Range("a65000").End(xlup).Row + 1
         .Range("A" & r) = Textbox1
     End With
    wrkWorkbook.Close True
    Set wrkSheet = Nothing
    Set wrkWorkbook = Nothing
    Set XLApp = Nothing
    MsgBox "Da nhap xong du lieu vao file " & coFileName & ".xls cua cell 'A" & r
End Sub

 

[sealand]

Bạn tham khảo ví dụ của mình xem sao.

 

[heroic]

Ý của em là lấy dữ liệu trong sheet excel lên các textbox form của access đỡ mất công nhập lại. Một thành viên đã giúp em đoạn code này! Dù sao cũng cảm ơn tất cả mọi người! Em ko thấy chỗ đính kèm lên nên dán code vào đây cho ai có hỏi thì nhanh chóng có câu trả lời!
Private Sub cmdLay_Click()
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, _
xlSht As Excel.Worksheet, sFullPath, r As String

sFullPath = CurrentProject.Path
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(FileName:=sFullPath & "\Test.xls")
Set xlSht = xlBook.Sheets(1)

r = InputBox("Vui long go so TT can lay")
Text1 = xlSht.Cells(r, 1)
Text2 = xlSht.Cells(r, 2)
Text3 = xlSht.Cells(r, 3)

On Error Resume Next
Set xlSht = Nothing
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
Private Sub cmdNhap_Click()
Dim MySQL As String
DoCmd.SetWarnings (False)
MySQL = "INSERT INTO tblTest ( A1, B2, C1 ) VALUES(TEXT1, TEXT2, TEXT3)"
DoCmd.RunSQL MySQL
sub_Test.Requery
DoCmd.SetWarnings (True)
MsgBox "Ban da nhap du lieu thanh cong "

End Sub

 

[sealand]

Tất nhiên có rất nhiều cách khác nhau lấy dữ liệu từ 1 file Excel đưa vào Access, nhưng mình thấy con đẻ chắc sẽ thuần hơn con nuôi hay thiên hạ.Những cách mà Access có hỗ trợ chắc chắn sẽ nhanh hơn. Cách theo Code của bạn là mở file Exc ra lấy dữ liệu rồi đóng vào. Mình thấy cách này chắc sẽ hạn chế về tốc độ, nhấn nút mà đồng hồ cát quay quay thì buồn lắm.

 

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

Tất nhiên có rất nhiều cách khác nhau lấy dữ liệu từ 1 file Excel đưa vào Access, nhưng mình thấy con đẻ chắc sẽ thuần hơn con nuôi hay thiên hạ.Những cách mà Access có hỗ trợ chắc chắn sẽ nhanh hơn. Cách theo Code của bạn là mở file Exc ra lấy dữ liệu rồi đóng vào. Mình thấy cách này chắc sẽ hạn chế về tốc độ, nhấn nút mà đồng hồ cát quay quay thì buồn lắm.

Nếu vậy mình có thể dùng SQL để lấy, không cần mở file Excel, anh thử nhé.

 

[vietteen]

Mình muốn tạo một textbox để nhập liệu từ máy quét. Mỗi lần quét một mã vạch, thông tin mã vạch đó sẽ được hiển thị lên một cell thuộc cột mà mình chỉ định, sau đó textbox này sẽ lại rỗng để nhập tiếp. Bác nào có cách xử lý vấn đề này không ạ, giúp em với.
Em đã thử trong access nhưng con trỏ nó cứ nhẩy sang textbox tiếp theo chứ không đứng yên tại một textbox.