Ik heb de volgende code gehaald uit de DB ANTWOORDEN ( bij NOORDERWIND)
Ik heb alles laten staan zoals ze daarin staat
Ik probeer het zelfde te doen in ACCESS 2000 doch een aantal dingen lukken me niet, als ik een item in de keuzelijst type die niet bij in de lijst staat krijg ik steeds een dialoogvenster , hoe krijg ik dit weg?????
en in het onderstaande voorbeeld , wordt die tekst verwijderd uit de keuzelijst in wordt die in het "form Categorie toevoegen" geplaatst, hoe doe ik dat????
Rudi
Private Sub Categorienummer_NotInList(NieuweGegevens As String, Antwoord As Integer)
' Een nieuwe categorie toevoegen wanneer de gebruiker een aanduiding
' typt in de keuzelijst met invoervak Categorienummer.
Dim NieuweCategorie As Integer, NaamAfkappen As Integer, Titel As String, Berichtvenster As Integer
' Een bericht weergeven waarin de gebruiker wordt gevraagd
' of deze een nieuwe categorie wil toevoegen.
Titel = "Categorie komt niet voor in lijst"
Berichtvenster = vbYesNo + vbQuestion + vbDefaultButton1
NieuweCategorie = MsgBox("Wilt u een nieuwe categorie toevoegen?", Berichtvenster, Titel)
If NieuweCategorie = vbYes Then
' De nieuwe aanduiding verwijderen uit de keuzelijst met invoervak
' Categorienummer zodat opnieuw een query kan worden uitgevoerd
' op het besturingselement wanneer de gebruiker terugkeert naar
' het formulier.
DoCmd.RunCommand acCmdUndo
' Een bericht weergeven en de lengte aanpassen van de waarde die
' is ingevoerd in de keuzelijst met invoervak Categorienummer.
Titel = "Opgegeven aanduiding is te lang"
Berichtvenster = vbOKOnly + vbExclamation
If Len(NieuweGegevens) > 15 Then
NaamAfkappen = MsgBox("Categorienummers mogen niet langer zijn dan vijftien tekens. De opgegeven waarde wordt afgekapt.", Berichtvenster, Titel)
NieuweGegevens = Left$(NieuweGegevens, 15)
End If
' Het formulier Categorie toevoegen openen.
DoCmd.OpenForm "Categorie toevoegen", acNormal, , , acAdd, acDialog, NieuweGegevens
' Doorgaan zonder het standaardfoutbericht weer te geven.
Antwoord = acDataErrAdded
End If
End Sub
Ik heb alles laten staan zoals ze daarin staat
Ik probeer het zelfde te doen in ACCESS 2000 doch een aantal dingen lukken me niet, als ik een item in de keuzelijst type die niet bij in de lijst staat krijg ik steeds een dialoogvenster , hoe krijg ik dit weg?????
en in het onderstaande voorbeeld , wordt die tekst verwijderd uit de keuzelijst in wordt die in het "form Categorie toevoegen" geplaatst, hoe doe ik dat????
Rudi
Private Sub Categorienummer_NotInList(NieuweGegevens As String, Antwoord As Integer)
' Een nieuwe categorie toevoegen wanneer de gebruiker een aanduiding
' typt in de keuzelijst met invoervak Categorienummer.
Dim NieuweCategorie As Integer, NaamAfkappen As Integer, Titel As String, Berichtvenster As Integer
' Een bericht weergeven waarin de gebruiker wordt gevraagd
' of deze een nieuwe categorie wil toevoegen.
Titel = "Categorie komt niet voor in lijst"
Berichtvenster = vbYesNo + vbQuestion + vbDefaultButton1
NieuweCategorie = MsgBox("Wilt u een nieuwe categorie toevoegen?", Berichtvenster, Titel)
If NieuweCategorie = vbYes Then
' De nieuwe aanduiding verwijderen uit de keuzelijst met invoervak
' Categorienummer zodat opnieuw een query kan worden uitgevoerd
' op het besturingselement wanneer de gebruiker terugkeert naar
' het formulier.
DoCmd.RunCommand acCmdUndo
' Een bericht weergeven en de lengte aanpassen van de waarde die
' is ingevoerd in de keuzelijst met invoervak Categorienummer.
Titel = "Opgegeven aanduiding is te lang"
Berichtvenster = vbOKOnly + vbExclamation
If Len(NieuweGegevens) > 15 Then
NaamAfkappen = MsgBox("Categorienummers mogen niet langer zijn dan vijftien tekens. De opgegeven waarde wordt afgekapt.", Berichtvenster, Titel)
NieuweGegevens = Left$(NieuweGegevens, 15)
End If
' Het formulier Categorie toevoegen openen.
DoCmd.OpenForm "Categorie toevoegen", acNormal, , , acAdd, acDialog, NieuweGegevens
' Doorgaan zonder het standaardfoutbericht weer te geven.
Antwoord = acDataErrAdded
End If
End Sub
