Question : Devoir ajouter des noms à la boîte combinée

J'ai une boîte combinée (Combo30)/la source = OwnerID
basé sur une question :   CHOISIR OwnerTbl.OID, OwnerTbl.Owner d'ORDRE d'OwnerTbl PRÈS [propriétaire] ; le besoin du

I (OwnerTbl) pour ouvrir des noms tellement nouveaux peut être ajouté quand l'utilisateur essaye d'entrer un nom qui n'est pas dans la liste.  Maintenant il leur indique juste qu'ils doivent employer un nom dans le list. class= de

Réponse : Devoir ajouter des noms à la boîte combinée

Voici deux ou trois exemples également :

Exemple 1 - Insérant un nouvel article directement dans la table de consultation dans les coulisses….
cboCONTACT_ID_NotInList secondaire privé (NewData comme corde, réponse comme nombre entier)
Faible myVar
Faible ctl comme commande
Faible lresponse en tant que longtemps
Placer le ctl = le Me.cboCONTACT_ID
Si MsgBox (NewData et « est un nouvel article.  Souhaitez-vous l'ajouter à la boîte combinée ?  », le vbYesNo, « ajoutent l'article ») = des vbYes puis

   'ajouter le nouveau record
    Insertion de CurrentDb.Execute « dans des valeurs de tbl_contacts ([contact_NAME]) (" » et NewData et « ") ; « 
    La réponse = acDataErrAdded
Autrement
    myVar = Me.cboCONTACT_ID
    Réponse = acDataErrContinue
    ctl. Défaire
    Finir si

Finir le sous-marin

Exemple 2 - « Form2 » est une forme simple reliée à la table de liste
Sous-marin privé Combo1_NotInList (NewData comme corde, réponse comme nombre entier)

    Si MsgBox (NewData et « est un nouvel article.  Souhaitez-vous l'ajouter à la boîte combinée ? ") = vbYesNo alors
        DoCmd.OpenForm « Form2 », acFormAdd, acDialog, NewData
        La réponse = acDataErrAdded
    Autrement
        Réponse = acDataErrContinue
        Me.Combo1.Undo
    Finir si
   
Finir le sous-marin

MX