我用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仍然可以按到
請問各位高手有什麼方法可以解決這個問題????
(無言感激)
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()