I am getting an, "Operation is not supported for this type of object", error when I try to execute the code below. The line that it stops on is:
rst.Findfirst"[dealer]='" & Dealer &"'"
Any suggestions?
Private Sub Dealer_AfterUpdate()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Dealer Info")
rst.FindFirst "[dealer]='" & Dealer & "'"
With rst
If .NoMatch Then
MsgBox "Dealer not found!"
Else
Me!fax = !fax
Me!tc = !tc
Me!phone = !phone
End If
End With
End Sub
rst.Findfirst"[dealer]='" & Dealer &"'"
Any suggestions?
Private Sub Dealer_AfterUpdate()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Dealer Info")
rst.FindFirst "[dealer]='" & Dealer & "'"
With rst
If .NoMatch Then
MsgBox "Dealer not found!"
Else
Me!fax = !fax
Me!tc = !tc
Me!phone = !phone
End If
End With
End Sub