Working on a record check and all seems to work as I expected until I attempted to disable one of my buttons on the form. Now, none of the pulled information shows on the form as it did prior to the introduction of
. Thoughts or suggestions?
Code:
Me.ClientFullSaveBtn.Enabled = False
Code:
Private Sub CAccountTxt_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("ClientTbl", dbOpenDynaset)
With rst
If Not (.BOF And .EOF) Then
Call .MoveFirst
.FindFirst "CAccount = '" & Me.CAccountTxt & "'"
If Not .NoMatch Then
'Found it Set all the fields!
Me.CStartDate = !CStartDate
Me.CClientName = !CClientName
Me.CAddress1 = !CAddress1
Me.CAddress2 = !CAddress2
Me.CZip = !CZip
Me.CPhone = !CPhone
Me.CFax = !CFax
Me.CTimeZone = !CTimeZone
Me.CEmail = !CEmail
Me.CHours = !CHours
Me.CSales = !CSales
Me.CCollectionFld = !CCollectionFld
Me.CShippingFld = !CShippingFld
'Close Save record BTN
Me.ClientFullSaveBtn.Enabled = False
Else
'Didnt Find Record
End If
End If
Call .Close
End With
Call db.Close
Set rst = Nothing
Set db = Nothing
End Sub
Comment