小弟寫程式遇到兩個蠻棘手的問題,可否請各位大大幫忙!
首先是我要如何呼叫access中資料項目內容?
         再者 如何引用資料庫中內容作加減乘除之計算?
        煩請站長大人幫忙,麻煩之處 甚感歉意.

Private Sub Form_Activate()
  Dim Counters As Integer
  Dim strname As String
  Dim strword As String
  Dim strname1 As String
  Dim strword1 As String
  
  strname = InputBox("請輸入使用者姓名:", "使用者姓名")
  strword = InputBox("請輸入使用者密碼:", "使用者密碼")
  
  
   password.Recordset.FindFirst "使用者姓名 = " & "'" & strname1 & "'" '此處為什麼沒有反應
'   password.Recordset.FindFirst "使用者密碼 = " & "'" & strword1 & "'" '此處為什麼沒有反應
If (strword = strword1) + (strword = strword1) Then
Call user_Click
  Else
    MsgBox "登入資料錯誤,請重新啟動本系統 !"
  End If
End Sub

煩請各位大大幫忙解決小弟疑惑,感恩!
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

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