cbo________NotInList secondaire privé (strNewData comme corde, intResponse comme nombre entier)
'Fixer la limite pour énumérer à oui
'Créé par Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Voir Ajouter-aux boîtes combinées (aa 161) .mdb
Sur l'erreur ErrorHandler GoTo
Faible cbo comme Access.ComboBox
Faibles dbs comme DAO.Database
Faible intMsgDialog comme nombre entier
Faible intResult comme nombre entier
Faible rst comme DAO.Recordset
Faible strEntry comme corde
Faible strFieldName comme corde
Faible strMsg comme corde
Faible strMsg1 comme corde
Faible strMsg2 comme corde
Faible strTable comme corde
Faible strTitle comme corde
'Le nom de la table qui est la source de la rangée de boîte combinée
strTable = « ______________ »
'Le type d'article à ajouter à la table
strEntry = « ___________ »
'Le champ dans la table de consultation en laquelle la nouvelle entrée est stockée
strFieldName = « _____________ »
'Ajouter-à la boîte combinée
Placer le cbo = le Me.ActiveControl
'Montrer une boîte de message demandant si l'utilisateur veut ajouter
'une nouvelle entrée.
strTitle = strEntry et « pas dans la liste »
intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
strMsg1 = « vous voulez ajouter »
strMsg2 = « en tant qu'un nouveau » et strEntry et « entrée ? »
strMsg = strMsg1 + strNewData + strMsg2
intResult = MsgBox (strMsg, intMsgDialog, strTitle)
S'intResult = puis vbNo
'Décommander ajouter la nouvelle entrée à la table de consultation.
intResponse = acDataErrContinue
cbo. Défaire
ErrorHandlerExit GoTo
intResult = puis vbYes d'ElseIf
'Ajouter un nouveau record à la table de consultation.
Placer les dbs = le CurrentDb
Placer le rst = le dbs.OpenRecordset (strTable)
rst.AddNew
rst (strFieldName) = strNewData
rst. Mise à jour
rst. Fin
'Continuer sans afficher le message d'erreur de défaut.
l'intResponse = acDataErrAdded
Finir si
ErrorHandlerExit :
Sortir le sous-marin
ErrorHandler :
No. d'erreur de MsgBox « : » Et _ d'Err.Number
et « dans » et Me.ActiveControl.Name et « procédé ; » _
et « description : » Et Err.Description
Résumé ErrorHandlerExit
Sous-marin d'extrémité
|
