Avatar billede susanne_larsen Nybegynder
20. juni 2002 - 17:14 Der er 11 kommentarer og
2 løsninger

Not in list

Har oprettet en ubunden combobox hvor jeg filtrer efter det valgte. Hvis bruger skriver i comboboxen i stedet for at vælge ønsker jeg en msgbox hvis det indtastede ikke findes.

Jeg har sat egenskaben "begræns til liste", samt tilføjet flg kode

______________________________________

Private Sub cboSoegPaaFQ_NotInList(NewData As String, Response As Integer)
   
      Response = MsgBox("Der er ikke oprettet en bruger med denne FQident i databasen. Din søgning blev derfor annuleret" + vbLf + vbLf + "Vælg en FQident på listen i stedet for.", vbOKOnly + vbInformation, "Ingen bruger fundet")
            DoCmd.CancelEvent
            Me.Undo
End Sub
_____________________________________

hvilket fungerer helt fint HVIS det ikke lige var for den irriterende standardmeddelelse fra Access "Den tekst du indtastede, er ikke et element på listen xxxx"

Hvordan undertrykker jeg den ??

Forstår heller ikke helt hvorfor Me.Undo ikke helt er nok til at slette det bruger har indtastet...

Dvs. msgbox hvis ingen hit - OG det indtastede slettes........men hvordan gør jeg lige det :D
Avatar billede juks Novice
20. juni 2002 - 17:52 #1
hvorfor fjerner du ikke bare begræns til liste", hvis du selv laver valideringen via VBA er det vel dobbelt arbejder ?
Avatar billede susanne_larsen Nybegynder
20. juni 2002 - 17:58 #2
åbenbart ikke - hvis jeg sætter "begræns til liste" til "ja", virker min kode slet ikke.

Kan jo være det er fordi jeg skal have nogen flere parametre på, men kan faktisk ikke gennemskue det :/
Avatar billede nih Novice
20. juni 2002 - 18:12 #3
Private Sub Kombinationsboks9_NotInList(NewData As String, Response As Integer)
Response = 0
MsgBox "hej"

End Sub
Avatar billede nih Novice
20. juni 2002 - 18:22 #4
Private Sub Kombinationsboks9_NotInList(NewData As String, Response As Integer)
Response = 0
MsgBox "hej"
Kombinationsboks9 = -1
End Sub

Så var den der ;o)

Niels
Avatar billede susanne_larsen Nybegynder
20. juni 2002 - 18:29 #5
>>nih næsten :)

hvis der ikke er match vises msgbox OG -1

hvordan fjerner jeg så den ??? jeg vil gerne have at det bruger har indtastet slettes....
Avatar billede terry Ekspert
20. juni 2002 - 19:25 #6
Here is some code which you may find usefull!

Private Sub InvestmentTypeID_NotInList(NewData As String, Response As Integer)
Dim prompt As String
   
    Response = acDataErrContinue
   
    prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
    If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
   
        DoCmd.OpenForm "frmTypeMaintenance", , , , acFormAdd, acDialog, NewData
        If DLookup("TypeID", "tblType", "TypeName = '" & NewData & "'") Then
       
            Response = acDataErrAdded
           
        End If
   
    End If
Avatar billede terry Ekspert
20. juni 2002 - 19:28 #7
In this example I open another form at the same time sending the entered data (NewData) as the OpenArgs paramater. I can then put that value in the correct field ready to create a new record.

The Dlookup just checks to see if a new record was actually created.
Avatar billede terry Ekspert
20. juni 2002 - 19:29 #8
So you want to look at the values Response can have!
acDataErrContinue or acDataErrAdded and I think there is another, just cant remember off hand!
Avatar billede susanne_larsen Nybegynder
20. juni 2002 - 20:15 #9
thnx terry that might be handy later on :D

ok her er den så der ikke vises -1 i comboboxen hvis der ikke er match. Er faktisk så simpel at det er helt pinligt LOL

________________________________________________________

Private Sub cboSoegPaaFQ_NotInList(NewData As String, Response As Integer)
   
    ' 0 = falsk, dvs er ikke i comboboxen
    Response = 0
        MsgBox "Der er ikke oprettet en bruger med denne FQident i databasen. Din søgning blev derfor annulleret." + vbLf + vbLf + "Vælg en FQident på listen i stedet for.", vbOKOnly + vbInformation, "Ingen bruger fundet"
     
    cboSoegPaaFQ.Undo
End Sub
___________________________________________________________________

hvad siger i er det ok hvis jeg deler p i 2 halvdele så nih og terry hver får 22,5 ??
Avatar billede terry Ekspert
20. juni 2002 - 20:26 #10
well I dont mind taking your points Susanne, but if you solved you problem yourslef then you should keep em for another time maybe!
Avatar billede susanne_larsen Nybegynder
20. juni 2002 - 20:34 #11
mhh maybee U right - ok Niels did help me on the right track think I´ll give him half...

Thanx for the quick respose :)
Avatar billede nih Novice
20. juni 2002 - 22:49 #12
Sorry, jeg ikke var med til diskusionen.

den med '-1', virker på min combo (datakilden er fra en tabel med autonummer).

takker for pts

Niels
Avatar billede susanne_larsen Nybegynder
21. juni 2002 - 09:35 #13
>>nih
quite ok - interessant, mhh er garanteret fordi min combo indeholder tekst :)
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