Vấn đề nan giải về back end và front end . ai rành về nó giúp đở

[blazefuzy143]

sau đây là vấn đề nan giải . chuyện là mình có trình quản lý vật tư . nhưng khi tạo thành front end và back end thì gập rắc rối . với form đăng nhập .

và đoạn code em nó đây :

Private Sub CmdDN_Click()
Dim Msg As Variant
Dim varPassword As String

' Doan code khong cho Control cbUserName trong hay rong
If IsNull(Me.CBUser) Or Me.CBUser = "" Then
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13")
Me.CBUser.SetFocus
Exit Sub
End If
' Doan code khong cho Control txtPassword trong hay rong
If IsNull(Me.txtpass) Or Me.txtpass = "" Then
Msgs = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbOKOnly, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13"))
If Msgs = vbOK Then
Me.txtpass.SetFocus
End If
Exit Sub
End If

If CBUser = ID Then
If txtpass = Pass Then
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("T_loginluu", dbOpenTable)
rs.AddNew
rs.Fields("ID") = CBUser
rs.Fields("time") = txttimer
'....
rs.Update
rs.Close
Set DB = Nothing

varPassword = DLookup("Pass", "T_Login", "ID ='" & Me.CBUser & "'")
If Me.txtpass = varPassword Then
GvarID = Me.CBUser
GvarUserName = User
DoCmd.Close acForm, Me.Name
MainFormOpen
Else
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10")
Me.txtpass.SetFocus
Exit Sub
End If

' DoCmd.Close acForm, "F_login", acSaveYes
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10"))
End If
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 9"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 9"))
End If
End Sub

phần chữ màu đỏ trở xuống là phần code có vấn đề . không biết bị gì mà nó làm báo thế này. mong mọi người giúp đở .

View more random threads:

• Đi tìm đường dẫn của BACK END
• Ðề: Cập nhật dữ liệu từ Form vào Table
• Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó
• Làm cách nào khi nhập phát hiện dữ liệu đã có trong table khác
• Căn bản về kết nối với dữ liệu SQL Server từ MS. Access
• Xin hướng dẫn giúp mình cách đánh số thứ tự trong Form Access.
• Giải giúp em đề ôn tập này với
• Tính toán và đăng nhập thời gian như nào?
• Giúp mình bị lỗi phóng to chữ trong Form của Access !
• Đổi từ Yes thành Có và No thành Bỏ qua

[nghiall]

Ðề: Vấn đề nan giải về back end và front end . ai rành về nó giúp đở

Cám ơn mọi người quan tâm . vấn đề trên đã được giải quyết . nhưng vấn đề khác lại xuất hiện . thật là thảm bại .
nhờ mọi người hướng dẫn giùm là khi có trên 2 máy cùng sữ dụng 1 table thì khi thêm mới vào ( 2 người cùng thêm mới 1 lượt ) thì người save trước (xong phiên làm việc trước) thì người thứ 2 không thể seve record mình được vì khóa chính trùng không thể save .
vi dụ :
nếu 2 máy cùng addnew phiếu xuất vậy là sẽ có hai khóa chính gióng nhau . người nào save trước không vấn đề . người save sau sẽ bị lỗi . không biết phải làm sao nhờ mọi người sử lý hộ vụ này khó quá . nghỉ chưa ra cách để khắc phục .