combobox der laver fejl

mugs@mail.dk
Husk at zippe den.

Tak mugs.. endnu engang er du min redning :-)

Den er sendt
Malene

For længst returneret. Glemt at notere det her - Beklager.

Der var 2 kundetabeller i db, en til faste kunder og en til andre kunder. Har ændret det til een kundetabel og tilføjet et Ja/Nej felt til markering af, om kunden er fast.

I comboens postkilde har jeg tilføjet et kriterie der udelukkende giver valgmulighed mellem faste kunder.

Den AfterUpdate amiedk omtaler tror jeg skal benyttes til at tilføje en ny kunde. Dette kan gøres i hændelsen Vedikkepåliste (NotInList) således:

Private Sub felt1_NotInList(NewData As String, Response As Integer)
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 TABELNAVN (FELTNAVN) VALUES ('" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True
End Sub

Jeg vil rigtig gerne give dig point for jeg er sikker på du har lavet det, jeg har bare ikke fået den på mail endnu ?? Har du sendt til den rigtige mail adresse ?? Min er amie@tiscali.dk

Malene

Sendt igen. Jeg har kontrolleret at db er zippet. Har du evt. oprettet nogle spamregler i dit antivirusprogram der forhindrer modtagelsen af visse filer?

nope har intet stopfilter her. har også gennemtjekket at der ikke er en regel eller den er dumpet ind i en anden mappe, men nope.. den er slet ikke kommet ind.

Nå det er jo også lige meget.. nu har jeg fået den så det er helt perfekt :)
Malene