Form_Undo event crasher access, form+subform

Hvad er problemet ?

Er det når der kører en undo event at den crasher eller er det når du åbner formularen? Har du prøvet at lave en knap, som kun fyrer dit Call af? Har du debugget?

Tjah - det ved jeg faktisk ikke.

Senariet er;
1) Hovedform åbnes
2) En txtBox på hovedformen for focus. Ved focus tildeles en strengvariabel txtBox'ens værdi (sCurrentItemNo)
3) Crash....! Access lukker og sender fejlrapport.

Jeg har brugt property: Undo i samme txtBox under event before update;

Private Sub ItemNo_BeforeUpdate(Cancel As Integer)

If sCurrentItemNo <> ItemNo.Text Then

If IsNull(DLookup("[ItemNo]", "IO_ChannelDef", "[ItemNo] = '" & sCurrentItemNo & "' And " & "[ItemPrefix] = '" & ItemPrefix.Value & "'")) = False Then
    MsgBox "You may not alter the ItemNo since there are already signals attached to the ItemNo!"
    ItemNo.Undo
    Cancel = True
End If

End If

End Sub

formularen er åben. Crashet sker som beskrevet ovenfor. Ja, kode er ok...

Prøv at sætte focus et andet sted!~)

Det kan ofte være et problem at arbejde med en txtbox, som har focus!~)

Man kan altid sætte focus tilbage til txtboksen til sidst i koden....

Grunden til at txtBoxen for focus er at jeg vil filtrere/sortere på dette felt. Jeg klikker manuelt i feltet ikke via kode!

Hvis du har en onfocus event på txtboksen, så start den kode med at flytte focus, kør din kode og sæt focus tilbage..

ellers så prøv at sætte msgbokse ind i koden og se om du kan spore hvor den præcist går ned..

Hov, er det ikke en fejl... DLookup("[ItemNo]", "IO_ChannelDef", "[ItemNo] du søger med den samme variabel, som du forsøger at hente!~)

Nej - ingen fejl. Koden virker som den skal. Problemet opstod først da jeg tilføjede Form_Undo event i underformularen!

Den del af koden når aldrig at blive udført! Jeg har sat fejlsporing på den event der forudsagede crashet. Men, jeg for ingen fejlmeddelelse før at access crasher.

Prøv sætte ' foran en linie af gangen i din undo event for at finde fejlen..

Der er kun een linie der hvor fejlen opstår!

Private Sub ItemNo_GotFocus()
On Error GoTo ErrH

sCurrentItemNo = ItemNo.Value

Exit Sub
ErrH:
MsgBox Err.Number
End Sub

Nu siger du, at du har debugget, bruger du option explicit?~)

Jeg har nu tilføjet , debugget og fundet enkelte fejl. Testet og fundet at dette er løsningen. Tak for hjælpen spq. Kast et svar og få tildelt alle fætrerne...

spg! vil du have points?