List Box Problem

[Jan11811]

Hi All,



I have a list box on one of my forms that looks up customer names. It is linked to tblCustomer. It did work before but I am thinking that I have messed up the VB somehow when you click on it now nothing happens where before it would have brought the customer details into the form. UPDATE** And my exit form button has stopped working Arrrrgh here is the whole of the VB code

Option Compare Database



Private Sub lstCustomer_AfterUpdate()
Me.Filter = ""
Me.FilterOn = False
Me.Filter = "CustomerID=" & Forms!frmCustomer!lstCustomer
Me.FilterOn = True
End Sub

Private Sub Postcode_AfterUpdate()
Me.Refresh
End Sub

'------------------------------------------------------------
' cmdAddRecord_Click
'
'------------------------------------------------------------
Private Sub cmdAddRecord_Click()
On Error GoTo cmdAddRecord_Click_Err

    On Error Resume Next
    DoCmd.GoToRecord , "", acNewRec
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If


cmdAddRecord_Click_Exit:
    Exit Sub

cmdAddRecord_Click_Err:
    MsgBox Error$
    Resume cmdAddRecord_Click_Exit

End Sub


'------------------------------------------------------------
' cmdExitForm_Click
'
'------------------------------------------------------------
Private Sub cmdExitForm_Click()
On Error GoTo cmdExitForm_Click_Err

    DoCmd.Close , ""


cmdExitForm_Click_Exit:
    Exit Sub

cmdExitForm_Click_Err:
    MsgBox Error$
    Resume cmdExitForm_Click_Exit

End Sub

Not sure if I need to provide more info?? Would be grateful for any help!!

Thanks

[pbaldy]

Is any code running? If not, make sure you've got the db in a Trusted Location, or explicitly enabled code.

[okerix]

I always use recordset so don't mess much with the Filter function. I have had my vb code corrupt before though. What you do is copy and cut all your code from the vb then save so its saving a blank vb page. Then reopen the code for that form and paste you code back in. It has worked for me numerous times, hope it works for you.

[TheShabz]

try putting in Option Excplicit up top to ensure that you arent using variables that you havnt created, or using them with mixed datatypes. When you say it used to run well but now has stopped, it leads me to believe that something that one of those variables is referencing has changed in either format,datatype,whatever and it is screwing up the code. Option Explicit is a great way to catch stuff like that.

[Jan11811]

Thanks for all the replies I saved a blank VB page and then pasted the code and it worked again. Thanks for the tips, don't ya just love all the helpful ppl online ... awesome!