Option Compare Database

'SELECT * FROM Customer
'OUTER JOIN Debit ON Customer.Customer_ID=Debit.Customer_ID
'OUTER JOIN Credit ON Customer.Customer_ID=Credit.Customer_ID
'OUTER JOIN Loan ON Customer.Customer_ID=Loan.Customer_ID
'WHERE Customer.Customer_ID ='1'

Private Sub btnFind_Click()

Dim ID As String
Dim rsCustomer As New ADODB.Recordset
Dim Name As String
Dim AccountNumber As String
Dim PIN As String

Forms!Customer!txbxFindName.SetFocus
Name = txbxFindName.Text

Forms!Customer!txbxFindACNumber.SetFocus
AccountNumber = txbxFindACNumber.Text

Forms!Customer!txbxFindPIN.SetFocus
PIN = txbxFindPIN.Text

If (Name = "" Or AccountNumber = "" Or PIN = "") Then
MsgBox "Please enter all somthing in all boxes"
Else

rsCustomer.Open "SELECT * FROM Customer WHERE Customer_Name='" & Name & "' AND AccountNumber=" & AccountNumber & "AND PIN=" & PIN & ";", _
CurrentProject.Connection, _
adOpenStatic, _
adLockOptimistic, _
adCmdText

With rsCustomer

ID = .Fields("Customer_ID").Value

End With

If (ID = "") Then

MsgBox ("Please enter a valid customer")

Forms!Customer!txbxFindName.SetFocus
txbxFindName.Text = ""

Forms!Customer!txbxFindACNumber.SetFocus
txbxFindACNumber.Text = ""

Forms!Customer!txbxFindPIN.SetFocus
txbxFindPIN.Text = ""

Else
End If
End If

End Sub