我用DAO寫了個command用來check會員的會藉是否到期,
Private Sub cmdMemEnter_Click()
Dim a As Integer
Dim b As String
Dim yy As String
Dim dd As String
Dim mm As String
Dim Ry As String
Dim Rm As String
Dim Rd As String
Dim Today As String
yy = Format(Today, "yyyy")
mm = Format(Today, "mm")
dd = Format(Today, "dd")
a = txtMemID.Text
b = txtPassWd.Text
With db
Set rstInfo = .OpenRecordset("Select * From Membership Where Membership_ID= " & a & " And Password= '" & b & "'")
If rstInfo.RecordCount > 0 Then
With rstInfo
.Edit
Ry = !Renewal_Year
Rm = !Renewal_Month
Rd = !Renewal_Date
If (yy & mm & dd) < (Ry & Rm & Rd) Then
cmdUsageB.Enabled = True
cmdEnquiry.Enabled = True
cmdBookModCanel.Enabled = True
cmdUsageB.Enabled = True
cmdBillState.Enabled = True
cmdBillReport.Enabled = True
cmdPayBills.Enabled = True
cmdOverdue.Enabled = True
cmdAReport.Enabled = True
cmdBReport.Enabled = True
Else
MsgBox "Your Membership is expiry!!!", 48, "Notice"
End If
End With
Else
MsgBox "Your Membership ID or Password is Error!!!", 48, "Notice"
End If
End With
End Sub
但發覺假若在DataBase埋將Renewal_Year改早一年或以上,原本被enable = false的command button仍然可以按到
請問各位高手有什麼方法可以解決這個問題????
(無言感激)
Private Sub cmdMemEnter_Click()
Dim a As Integer
Dim b As String
Dim yy As String
Dim dd As String
Dim mm As String
Dim Ry As String
Dim Rm As String
Dim Rd As String
Dim Today As String
yy = Format(Today, "yyyy")
mm = Format(Today, "mm")
dd = Format(Today, "dd")
a = txtMemID.Text
b = txtPassWd.Text
With db
Set rstInfo = .OpenRecordset("Select * From Membership Where Membership_ID= " & a & " And Password= '" & b & "'")
If rstInfo.RecordCount > 0 Then
With rstInfo
.Edit
Ry = !Renewal_Year
Rm = !Renewal_Month
Rd = !Renewal_Date
If (yy & mm & dd) < (Ry & Rm & Rd) Then
cmdUsageB.Enabled = True
cmdEnquiry.Enabled = True
cmdBookModCanel.Enabled = True
cmdUsageB.Enabled = True
cmdBillState.Enabled = True
cmdBillReport.Enabled = True
cmdPayBills.Enabled = True
cmdOverdue.Enabled = True
cmdAReport.Enabled = True
cmdBReport.Enabled = True
Else
MsgBox "Your Membership is expiry!!!", 48, "Notice"
End If
End With
Else
MsgBox "Your Membership ID or Password is Error!!!", 48, "Notice"
End If
End With
End Sub
但發覺假若在DataBase埋將Renewal_Year改早一年或以上,原本被enable = false的command button仍然可以按到
請問各位高手有什麼方法可以解決這個問題????
(無言感激)
全站熱搜
留言列表