Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: tvn_hut 27-05-21, 11:51 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (1) |
Mình có câu lệnh, tuy nhiên khi chọn giá trị trên CboID (Format là General Number) để gọi dòng thông tin trong bảng TblSCSboxHeader theo ID (autonumber) nhưng không được. Mình nghi ngờ viết sai cấu trúc [ID] = CboID. Riêng với format text thì mình làm OK ([BoxID] = '" & Me.CboBoxID & "'"), còn với số mình ko biết cấu trúc nó viết sao cho đúng. Các bạn chỉ giúp mình với
Private Sub CboID_AfterUpdate()
Me.TxtBox = DLookup("[BoxID]", "TblSCSBoxHeader", "[ID]= CboID") --> Câu này chạy đúng
On Error GoTo Handle
Me.RecordSource = "SELECT * FROM TblSCSboxHeader WHERE [ID] = CboID" --> Câu này chạy ko đúng với format này.
Me.Requery
Handle:
If Err <> 0 Then
MsgBox "Invalid ID Number !"
Exit Sub
End If
End Sub
|
|
Viết bởi: Đình Phán 25-05-21, 05:43 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (21) |
Em có câu hỏi này xin được nhờ các anh, chị, em giúp đỡ ạ.
Cụ thể em đang phải tổng hợp dữ liệu từ nhiều báo cáo xuất ra từ phần mềm. Sau đó xử lý dữ liệu để lên báo cáo.
Em đang có ý tưởng là sẽ nhập dữ liệu lên Access sau đó sử dụng ADO để truy xuất ra excel, vừa nhẹ mà quản lý được dữ liệu.
Trường hợp import vào Access, phải xử lý ở file excel thành dạng bảng chuẩn trước.
Em muốn import luôn dữ liệu thô vào, sau đó dùng VBA trong acccess để xử lý dữ liệu thô đó về dữ liệu chuẩn dạng Table.
Em xin anh chị giúp đỡ code từ khâu import vào Access đến khi xử lý dữ liệu cho 1 ví dụ cơ bản, có comment từng câu lệnh thì tốt ạ.
Em cảm ơn!
Mã:
Public Sub update_reg()
Dim strPath As String, strTable As String, strFile As String, strPathFile As String, tt As String, loai As String, sql As String
Dim ngay As String, ngaydt As String, ngay1 As String, ngay2 As String, dd As String, mm As String, yy As String, kenh As String
Dim DB As Database, Rec As Recordset, Rec1 As Recordset, Rec_setup As Recordset
Dim maxdd As String
DoCmd.SetWarnings 0
Set DB = CurrentDb()
kiemtra = True
strPath = Application.CurrentProject.Path & "\Reg\" 'Đu?ng d?n d?n file Excel c?a b?n
strFile = Dir(strPath & "*.xlsx")
'MsgBox ngay
Do While Len(strFile) > 0
strPathFile = strPath & strFile
If ton_tai_bang("tbl_temp") Then
DoCmd.DeleteObject acTable, "tbl_temp"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_reg", strPathFile, -1 ' , "A6:A6"
Else
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_reg", strPathFile, -1 ' , "A6:A6"
End If
ngay = Left(strFile, 4)
sql = "DELETE tbl_reg_accu.*, tbl_reg_accu.ngay FROM tbl_reg_accu WHERE (((tbl_reg_accu.ngay)='" & ngay & "'));"
DoCmd.RunSQL sql
sql = "INSERT INTO tbl_reg_accu ( ngay, BC_CODE, BTS_CODE, PRODUCT_CODE, [DATETIME], ISDN, IMEI, SHOP_CODE, STAFF_CODE, CHANNEL_NAME, NAME, [ZONE], DISTRICT, PROVINCE )"
sql = sql + " SELECT '" & ngay & "' AS ngay, Q_BTS.BC_code, tbl_reg.BTS_CODE, tbl_reg.PRODUCT_CODE, tbl_reg.DATETIME, tbl_reg.ISDN, tbl_reg.IMEI, tbl_reg.SHOP_CODE, tbl_reg.STAFF_CODE, tbl_reg.CHANNEL_NAME, tbl_reg.NAME, tbl_reg.ZONE, tbl_reg.DISTRICT, tbl_reg.PROVINCE"
sql = sql + " FROM Q_BTS INNER JOIN tbl_reg ON Q_BTS.BTS_code = tbl_reg.BTS_CODE;"
'taoquery "Q_1", sql
DoCmd.RunSQL sql
If ton_tai_bang("tbl_reg") Then
DoCmd.DeleteObject acTable, "tbl_reg"
End If
strFile = Dir()
xoa_bang_loi
DoCmd.SetWarnings 0
'xuly_dulieu_reg
Loop
DoCmd.SetWarnings -1
End SubMã:
Public Sub xuly_dulieu_reg1()
'On Error GoTo Err_Command135_Click
DoCmd.SetWarnings 0
'kenh = "Store"
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
Dim sql, sql1, sql2 As String
Dim ma As String
Dim DB As Database
Dim Rec As Recordset
Dim Rec1 As Recordset
Dim i, WordLength
Dim Character As String, LastCharacter As String, NewWord As String, Word As String
Set DB = CurrentDb()
Set Rec = DB.OpenRecordset("tbl_temp")
Word = Rec("F1")
WordLength = Len(Word)
NewWord = ""
For i = 1 To WordLength
Character = Mid(Word, i, 1)
If LastCharacter = "|" Or Character = "|" Then
sql = sql + "D" & NewWord & ", '' AS "
sql1 = sql1 + "D" & NewWord & ", "
NewWord = ""
Else
NewWord = NewWord & Character
LastCharacter = Character
End If
Next i
sql = "SELECT '' AS " & Left(sql, Len(sql) - 8) & " INTO tbl_reg;"
sql1 = Left(sql1, Len(sql1) - 2)
'taoquery "Q_1", sql
DoCmd.RunSQL sql
'Rec.Close
sql = "DELETE tbl_reg.* FROM tbl_reg;"
DoCmd.RunSQL sql
Set Rec1 = DB.OpenRecordset("tbl_reg")
Do Until Rec.EOF
Word = Rec("F1")
WordLength = Len(Word)
NewWord = ""
sql = ""
sql2 = ""
For i = 1 To WordLength
Character = Mid(Word, i, 1)
If LastCharacter = "|" Or Character = "|" Then
sql2 = sql2 + "'" & NewWord & "', "
NewWord = ""
Else
NewWord = NewWord & Character
LastCharacter = Character
End If
Next i
sql = "INSERT INTO tbl_reg (" & sql1 & ") " + "select " & Left(sql2, Len(sql2) - 2) & ";"
'MsgBox sql1
DoCmd.RunSQL sql
Rec.MoveNext
Loop
Rec.Close
DoCmd.SetWarnings 0
End SubDo không đính kèm được file excel thô nên mô tả hơi khó chút ạ
|
|
Viết bởi: loivienlong 25-05-21, 10:10 AM Chuyên mục: Forms - Bài trả lời (1) |
|
Viết bởi: ongke0711 23-05-21, 01:03 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (8) |
(Không cần tắt bộ gõ Unikey)
---------------------------------------------------------------------------------------------
Do cũng có nhu cầu thực tế ở một số trường hợp Barcode hay QR code có mã với thư tự ký tư vô tình trùng với cách gõ bỏ dấu tiếng Việt kiểu Telex hay VNI của bộ gõ. Bộ gõ tiếng Việt sẽ tài lanh, tự chuyển barcode sang tiếng Việt có dấu.
Để ngăn vấn đề này, có một giải pháp là viết code để tự động tắt/mở bộ gõ tiếng Việt. Cách này có hạn chế là ứng dụng phải tắt mở liên tục bộ gõ, không hiệu quả cho lắm.
Tôi có bộ code hỗ trợ giải quyết vấn đề trên mà không cần tắt mở bộ gõ, đó là: bắt sự kiện KeyUp khi quét barcode, lưu tạm trên bộ nhớ, sau đó gán thẳng xuống TextBox chứ không chạy từng ký tự để bộ gõ có thời gian can thiệp.
Cách xử lý này, bạn có thể nhập barcode từ bàn phím, bàn phím số cũng được.
Khi quét barcode cũng giống như khi nhập bằng bàn phím, sẽ có 2 sự kiện là KeyDown và KeyUp để bắt KeyCode từ bàn phím. Nếu bạn gõ "A" thì KeyDown ="A" (keycode=65), KeyUp ="A". Nếu bạn bấm phím Shift thì KeyDown = "Shift + "A", KeyUp ="A". Do đó dùng sự kiện KeyDown để bắt phím chức năng (Shift) có bấm không và KeyUp để bắt đúng Keycode của phím. Kết hợp 2 thông số trên tra với bảng "Keycode - Character" để lấy ra ký tự được nhập.
Link file: https://drive.google.com/file/d/1ioGLQaOuQvFIkWEPo7X5mMadFYgzrCaM/view?usp=sharing
|
|
Viết bởi: huan1983_bk 21-05-21, 03:31 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (1) |
| Chủ đề Mới nhất |
| SkterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: CarrollHut-1 Phút trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 632 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,616 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |