T
thienquang274
Guest
- 9/12/17
- 1
- 0
- 1
- 35
Bạn ơi! cảm ơn bạn đã chia sẽ phần mềm.
Mình vào xóa dữ liệu để nhập dữ liệu của mình thì sau khi xóa trong phần ViVishop_Database thì nó hiện lỗi như thế này sau khi mình tắt và đăng nhập lại
Set msgVietnamese = New msgUnicode
If Me.txtUser.Value <> "" Then
strSQL = "Select id,password from Employees where user ='" + Me.txtUser.Value + "'"
Set rsLogin = CurrentDb().OpenRecordset(strSQL)
If rsLogin.RecordCount > 0 And txtPwd = rsLogin!Password Then
strSQL = "select sysvalue from SysParam where SysName='InventorySummariseDate'"
Set rs = CurrentDb.OpenRecordset(strSQL)
mDate = rs!sysvalue
rs.Close
If mDate <> "0:00:00" And mDate < CDate(Format(Now(), "dd/mm/yyyy")) Then
Dim i As Date
Dim j, k As Integer
k = 0
j = 100 / IIf(CDate(Format(Now(), "dd/mm/yyyy")) - mDate - 1 <= 0, 1, CDate(Format(Now(), "dd/mm/yyyy")) - mDate - 1)
Me.txtProgress.Visible = True
Me.Repaint
For i = mDate To CDate(Format(Now(), "dd/mm/yyyy"))
Tinhton i
txtProgress = i & " - " & Round(j * k) & "%"
k = k + 1
Me.Repaint
Next
txtProgress = "Xong!"
Me.Repaint
Me.txtProgress.Visible = False
End If
strSQL = "UPDATE sysparam SET sysvalue='" + Format(Now(), "dd/mm/yyyy") + "' WHERE sysname='InventorySummariseDate'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL, dbFailOnError
strSQL = "UPDATE orders SET orderdate= '" + Format(Now, "dd/mm/yyyy") + "' WHERE ordertype=2 AND statusorder=1"
DoCmd.RunSQL strSQL, dbFailOnError
DoCmd.OpenForm "frmHome", acNormal, , , , acWindowNormal
Forms("frmHome").cboCurrentEmployee = rsLogin!id
Forms("frmHome").sbfActiveOrders.Requery
DoCmd.Close acForm, "LoginDialog"
Else
bạn giúp mình với nhé, xin cảm ơn
Mình vào xóa dữ liệu để nhập dữ liệu của mình thì sau khi xóa trong phần ViVishop_Database thì nó hiện lỗi như thế này sau khi mình tắt và đăng nhập lại
Set msgVietnamese = New msgUnicode
If Me.txtUser.Value <> "" Then
strSQL = "Select id,password from Employees where user ='" + Me.txtUser.Value + "'"
Set rsLogin = CurrentDb().OpenRecordset(strSQL)
If rsLogin.RecordCount > 0 And txtPwd = rsLogin!Password Then
strSQL = "select sysvalue from SysParam where SysName='InventorySummariseDate'"
Set rs = CurrentDb.OpenRecordset(strSQL)
mDate = rs!sysvalue
rs.Close
If mDate <> "0:00:00" And mDate < CDate(Format(Now(), "dd/mm/yyyy")) Then
Dim i As Date
Dim j, k As Integer
k = 0
j = 100 / IIf(CDate(Format(Now(), "dd/mm/yyyy")) - mDate - 1 <= 0, 1, CDate(Format(Now(), "dd/mm/yyyy")) - mDate - 1)
Me.txtProgress.Visible = True
Me.Repaint
For i = mDate To CDate(Format(Now(), "dd/mm/yyyy"))
Tinhton i
txtProgress = i & " - " & Round(j * k) & "%"
k = k + 1
Me.Repaint
Next
txtProgress = "Xong!"
Me.Repaint
Me.txtProgress.Visible = False
End If
strSQL = "UPDATE sysparam SET sysvalue='" + Format(Now(), "dd/mm/yyyy") + "' WHERE sysname='InventorySummariseDate'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL, dbFailOnError
strSQL = "UPDATE orders SET orderdate= '" + Format(Now, "dd/mm/yyyy") + "' WHERE ordertype=2 AND statusorder=1"
DoCmd.RunSQL strSQL, dbFailOnError
DoCmd.OpenForm "frmHome", acNormal, , , , acWindowNormal
Forms("frmHome").cboCurrentEmployee = rsLogin!id
Forms("frmHome").sbfActiveOrders.Requery
DoCmd.Close acForm, "LoginDialog"
Else
bạn giúp mình với nhé, xin cảm ơn