Tùy chọn
Lỗi runtime error -2147217900(80040e14). system error in from clause
- Lỗi runtime error -2147217900(80040e14). system error in from clause
-
Lỗi runtime error -2147217900(80040e14). system error in from clause
trying58 > 26-07-20, 10:10 PM
Em chào các Anh/Chị.
E cũng mới tập tọe access, hiện tại e có làm 1 module cho chương trình quản lý của e, nhưng khi chạy thì module báo lỗi "runtime error -2147217900(80040e14). system error in from clause".
Code module của e:
Option Compare Database
Public username As String
Public Function getMadonvi() As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
strSQL = "SELECT [user].[ma don vi] FROM user WHERE user.username ='" & username & "'"
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
getMaKB = rs.Fields("ma don vi")
End Function
Em cũng thử nhiều cách nhưng ko đc, nhờ Anh/Chị tư vấn giúp với ạ -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
ongke0711 > 26-07-20, 11:47 PM
Cái biến "username" của bạn chưa có được gán giá trị nên câu lệnh SELECT của bạn nó không hiểu. -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
trying58 > 27-07-20, 03:48 PM
-
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
ongke0711 > 27-07-20, 03:54 PM
Khi Form_Load hay Form_Open, bạn có dòng code nào gán trị cho biến username chưa?
nó như thế nào? -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
trying58 > 27-07-20, 04:07 PM
-
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
trying58 > 27-07-20, 04:34 PM
-
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
ongke0711 > 27-07-20, 04:45 PM
Tôi nghĩ cách viết hàm của bạn có vấn đề, bạn nên tách ra xử lý từng hàm xem nó trả về giá trị đúng chưa đã rồi mới lồng ghép hàm trong hàm.
Nếu có file mẫu của bạn thì xử lý nhanh hơn.
Kiểm tra lại chính tả xem có sai trong tên các Field, tên table hay không?
Cái hàm này của bạn nên sửa lại:
Public Function getMadonvi() As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
strSQL = "SELECT [user].[ma don vi] FROM user WHERE user.username ='" & username & "'"
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
getMaKB = rs.Fields("ma don vi")
End Function
==> tại sao hàm trả về trị không dùng: GetMaDonVi = rs.Field("Ma Don Vi") mà lại gán cho một biến khác làm gì - "getMaKB"?
Khi bạn lồng cái hàm này vô:
Call getTenKB(Me.madonvi, getMadonvi()) ==> getMaDonVi() ở đây có trả về trị nào đâu mà dùng làm tham số cho hàm getTenKB()?
Chú ý: không nên đặt tên field có khoảng trắng -> mất công phải thêm cặp dấu ngoặc vuông [] trong code hoặc Query để nó chạy chính xác. -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
Xuân Thanh > 27-07-20, 05:04 PM
1/ Khi load form đã không có đủ điều kiện để gọi hàm
2/ Viết hàm nên viết tường minh. Ví dụ
Mã:Function GetMaDonVi(strUser As String) As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
Dim srtGT As String
strSQL = "SELECT [user].[ma don vi] FROM user WHERE user.username ='" & strUser & "'"
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
strGT = rs.Fields("ma don vi")
GetMaDonVi = strGT
End Function
Đại khái là như vậy vì không có file nên chỉ hướng dẫn chung chung -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
trying58 > 27-07-20, 05:23 PM
https://drive.google.com/file/d/1F69QToM...sp=sharing
file mình đang làm đây ạ
mình viết 3 module, và 1 form nhập, mình đang muốn khi user đăng nhập vào sẽ chỉ đc nhập dữ liệu theo mã đơn vị của user đó theo bảng user để phân biệt đc dữ liệu của user nào nhập, nhưng đang lỗi như trên. Các bạn xem gợi ý giúp mình với ạ -
RE: Lỗi runtime error -2147217900(80040e14). system error in from clause
Xuân Thanh > 27-07-20, 05:56 PM
(27-07-20, 05:23 PM)trying58 Đã viết: https://drive.google.com/file/d/1F69QToM...sp=sharing
file mình đang làm đây ạ
mình viết 3 module, và 1 form nhập, mình đang muốn khi user đăng nhập vào sẽ chỉ đc nhập dữ liệu theo mã đơn vị của user đó theo bảng user để phân biệt đc dữ liệu của user nào nhập, nhưng đang lỗi như trên. Các bạn xem gợi ý giúp mình với ạ
Gợi ý cho bạn để bạn làm tiếp chứ không làm thay
1/ Định nghĩa một biến toàn cục ở đầu một modul
Mã:Public strUser As string
2/ Khi đăng nhập, gán biến strUser bằng User đăng nhập. Biến này tồn tại trong suốt quá trình làm việc của file
3/ Các hàm có thể dùng biến này ở mọi lúc mọi nơi để viết hàm và gọi hàm
