Avatar billede vanni Nybegynder
02. november 2005 - 20:43 Der er 5 kommentarer og
1 løsning

Er event/hændelse slået fra?

Har en kombo med noget data i og det er så meningen at ukendte data skal registreres.

Under fanebladet hændelser "VedIkkePåListe" er den en [Hændelsesprocedure] (dannet med kodegenerator)



Private Sub Enhed_NotInList(NewData As String, Response As Integer)
    bla. bla. bla.
End Sub

Der sker tilsyneladende ikke noget - hvad har jeg overset?

Vanni
Avatar billede jesperfjoelner Nybegynder
02. november 2005 - 20:46 #1
prøv at fjerne [hændelsesprocedure] og trykke på knappen "..."
så ryger du til koden. Luk VBE igen og se om det virker.
Compiler din kode uden fejl?
Har du noget error-handling i proceduren, som afslutter sub'en uden du opdager det?
Avatar billede mugs Novice
02. november 2005 - 20:47 #2
Koden skal se således ud:

Dim prompt As String
DoCmd.SetWarnings False
Response = acDataErrContinue
prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
DoCmd.RunSQL "INSERT into Register (feltnavn) VALUES ('" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True

Men en forudsætning er, at egenskaben "BegrænsTilListe" er sat til Ja.
Avatar billede vanni Nybegynder
02. november 2005 - 20:49 #3
1 prøv at fjerne [hændelsesprocedure] og trykke på knappen "..."
2 så ryger du til koden. Luk VBE igen og se om det virker.
3 Compiler din kode uden fejl?
4 Har du noget error-handling i proceduren, som afslutter sub'en uden du opdager det?

1,2& 3 er ok.

4 har prøvet med:

Private Sub Enhed_NotInList(NewData As String, Response As Integer)
    Stop
End Sub

uden reaktion.
Avatar billede mugs Novice
02. november 2005 - 20:52 #4
Stop > Vil dun afslutte procedüren hedder det:

Exit Sub

Jeg kan sende dig et eksempel, blot læg din e-mail
Avatar billede vanni Nybegynder
02. november 2005 - 20:53 #5
Men en forudsætning er, at egenskaben "BegrænsTilListe" er sat til Ja.

er sat til nej - da jeg troede man blev begrænset til listen - 180 graders misforståelse!

Tak
Avatar billede mugs Novice
02. november 2005 - 20:56 #6
Selv tak - Og tak for point ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester