A voir également:
- Cherche un code VBA
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
bonjour
Si j'ai bien compris, tu veux ajouter un ligne dans la table d'ou est issue ta live boxe.
est ce bien cela
Si j'ai bien compris, tu veux ajouter un ligne dans la table d'ou est issue ta live boxe.
est ce bien cela
Le cas traité fait refernce a une liste de personnel.
Lorsqu'il manque une refference ou une reference mal ecrite, access demande pour la liste en cliquant 2 fois dans la liste deroulante. cela ouvre le formulaire que tu completes puis tu le retrouve dans ta liste deoulante
A partir de ta liste , lorsque qu'il manque une ligne tu peux utiliser le code ci joint
a adopter dans ton cas.
procédure d appel sur un double clique
Private Sub RéfEmployé_NotInList(NewData As String, Response As Integer)
MsgBox "Cliquez deux fois sur ce champ pour ajouter une entrée dans la liste."
Response = acDataErrContinue
End Sub
Ouvre le formulaire d'ou dépend la liste déroulante
Private Sub RéfEmployé_DblClick(Cancel As Integer)
On Error GoTo Err_RéfEmployé_DblClick
Dim lngProductID As Long
If IsNull(Me![RéfEmployé]) Then
Me![RéfEmployé].Text = ""
Else
lngProductID = Me![RéfEmployé]
Me![RéfEmployé] = Null
End If
DoCmd.OpenForm "Employés", , , , , acDialog, "GotoNew"
Me![RéfEmployé].Requery
If lngProductID <> 0 Then Me![RéfEmployé] = lngProductID
Exit_RéfEmployé_DblClick:
Exit Sub
Err_RéfEmployé_DblClick:
MsgBox Err.Description
Resume Exit_RéfEmployé_DblClick
Lorsqu'il manque une refference ou une reference mal ecrite, access demande pour la liste en cliquant 2 fois dans la liste deroulante. cela ouvre le formulaire que tu completes puis tu le retrouve dans ta liste deoulante
A partir de ta liste , lorsque qu'il manque une ligne tu peux utiliser le code ci joint
a adopter dans ton cas.
procédure d appel sur un double clique
Private Sub RéfEmployé_NotInList(NewData As String, Response As Integer)
MsgBox "Cliquez deux fois sur ce champ pour ajouter une entrée dans la liste."
Response = acDataErrContinue
End Sub
Ouvre le formulaire d'ou dépend la liste déroulante
Private Sub RéfEmployé_DblClick(Cancel As Integer)
On Error GoTo Err_RéfEmployé_DblClick
Dim lngProductID As Long
If IsNull(Me![RéfEmployé]) Then
Me![RéfEmployé].Text = ""
Else
lngProductID = Me![RéfEmployé]
Me![RéfEmployé] = Null
End If
DoCmd.OpenForm "Employés", , , , , acDialog, "GotoNew"
Me![RéfEmployé].Requery
If lngProductID <> 0 Then Me![RéfEmployé] = lngProductID
Exit_RéfEmployé_DblClick:
Exit Sub
Err_RéfEmployé_DblClick:
MsgBox Err.Description
Resume Exit_RéfEmployé_DblClick
Le Listebox est lié par exemple à une table A1
La feuille form est liée à une autre table A2
Le listebox est dans le feuille form d'access
Je veux actualiser la table A1 en utilisant le listebox
Pour cela il nous faut un code en VBA