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

http2

New Member
Hội viên mới
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 đở .
 
Ðề: 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 .
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top