protech2258
Yêu THVBA
Khi mình dùng câu lệnh " Select Nhan Vien" từ VBA code thì báo lỗi tên table không chính xác, làm sao để lấy dữ liệu mà tên Table có khoảng trắng vậy ạ? Mình xin cảm ơn!
Vì mình xuất file access từ phần mềm khác nên đổi thì rất mất công bạn à! Có cách nào nữa không ạ?Bạn nên đặt tên trường dữ liệu sử dụng dấu gạch nối "Nhan_Vien".
Sub changenametbl()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim s As String
On Error Resume Next
Set db = CurrentDb
Set tbl = db.TableDefs("Table1")
On Error Resume Next
For Each fld In tbl.Fields
s = fld.Name
s = Replace(s, " ", "", , , vbTextCompare)
fld.Name = s
Next fld
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Sub
Sub changenametbl()
Dim db As DAO.Database
Dim fld As DAO.Field
Dim tdf As DAO.TableDef
Dim s As String
On Error Resume Next
Set db = CurrentDb
On Error Resume Next
For Each tdf In db.TableDefs
For Each fld In tdf.Fields
s = fld.Name
s = Replace(s, " ", "", , , vbTextCompare)
fld.Name = s
Next fld
Next tdf
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Sub
Cám ơn NhanSu tên trường có khoảng trắng thì để trong dấu móc vuông: Do tự tìm hiểu VBA nên mình tìm mất mấy ngày trời.Nếu tên trường hoặc table có khoảng trắng thì bạn để trong dấu móc vuông: SELECT [Nhan vien] FROM [table 1]