19. marts 2006 - 15:50Der er
3 kommentarer og 1 løsning
Ang Warnings
Hej jeg er ved at lave en form hvoeman har en kombinationsboks under denne boks egenskaber ved ikke på liste er jeg ved at lave en mulighed for at ´tilføje. med kode har jeg prøvet dette
Private Sub Kunde_NotInList(NewData As String, Response As Integer)
DoCmd.SetWarnings False
If vbOK = MsgBox("Det indtastede er ikke på listen, vil du tilføje en ny kunde", vbQuestion + vbOKCancel, "montøren") Then DoCmd.OpenForm ("frmkundeindtastning") DoCmd.SetWarnings True End Sub Har også prøvet med On / Off - Ja/ nej men der bliver ved med at komme denne meddelse med at det indtastede ikke findes på listen fra access
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Comboen's egernskab BegrænsTilListe skal være sat til Ja:
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 Register (feltnavn) VALUES ('" & NewData & "')" Response = acDataErrAdded End If DoCmd.SetWarnings True End Sub
Hej mugs den skal gerne åbne min frmkundeindtastning da der er flere oplysninger på disse kunder som skal bruges senere ihvertfald efter min lille plan (o; og så bagefter gå tilbage til den form hvor comboen er hvis du kan følge det
Hvis det indtastede i comboen ikke findes, vil du stadig få den meddelelse fra Access. Du kan evt. indtaste i en inputbox og så lave en Dcount på indtastningen, hvis Dcount er 0 er der tale om en ny post og du åbner frmkundeindtastning, er Dcount = 1 eksisterer posten, og du kan så lade comboen være = inputboxen.
Synes godt om
Ny brugerNybegynder
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.
