A voir également:
- Quelqu'un qui connait access 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Comment supprimer une page sur word 2007 - Guide
- Microsoft money 2007 - Télécharger - Comptabilité & Facturation
- Reparer outlook 2007 ✓ - Forum Outlook
- Access appdata - Guide
3 réponses
Voici 2 post que j'avait créer si tu veut on pourra continuer sur ceux-ci
https://forums.commentcamarche.net/forum/affich-21872096-requete-mise-a-jour-access-2007#p21872096
et
Merci beaucoup d'avance ... 3 jours et mon problème n'est pas réglé encore ouffff
https://forums.commentcamarche.net/forum/affich-21855767-access-2007-formule-dlook#p21864767
https://forums.commentcamarche.net/forum/affich-21872096-requete-mise-a-jour-access-2007#p21872096
et
Merci beaucoup d'avance ... 3 jours et mon problème n'est pas réglé encore ouffff
https://forums.commentcamarche.net/forum/affich-21855767-access-2007-formule-dlook#p21864767
j'ai travailler sur se code ce soir dit moi ce que tu en pense !!
Private Sub Commande42_Click()
Dim ID As Integer
ID = Me.relieaintervention
DoCmd.Hourglass (hourglasson)
DoCmd.GoToControl [Prénom]
If Not IsNull(Me.Prénom) Then
Prenom.SelStart = 0
Prenom.sellengh = Len(Me.Prénom)
DoCmd.RunCommand acCmdCopy
End If
DoCmd.OpenTable "interventions"
Table!interventions!ID.SetFocus
DoCmd.FindRecord ID
If Not IsNull(Me.Prénom) Then
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "interventions"
End If
DoCmd.OpenForm "nouveau patient"
DoCmd.GoToControl [Nom]
If Not IsNull(Me.Nom) Then
Nom.SelStart = 0
Nom.sellengh = Len(Me.Nom)
DoCmd.RunCommand acCmdCopy
End If
DoCmd.OpenTable "interventions"
Table!interventions!ID.SetFocus
DoCmd.FindRecord ID
If Not IsNull(Me.Nom) Then
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "interventions"
End If
DoCmd.Hourglass (hourglassoff)
End Sub
Private Sub Commande42_Click()
Dim ID As Integer
ID = Me.relieaintervention
DoCmd.Hourglass (hourglasson)
DoCmd.GoToControl [Prénom]
If Not IsNull(Me.Prénom) Then
Prenom.SelStart = 0
Prenom.sellengh = Len(Me.Prénom)
DoCmd.RunCommand acCmdCopy
End If
DoCmd.OpenTable "interventions"
Table!interventions!ID.SetFocus
DoCmd.FindRecord ID
If Not IsNull(Me.Prénom) Then
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "interventions"
End If
DoCmd.OpenForm "nouveau patient"
DoCmd.GoToControl [Nom]
If Not IsNull(Me.Nom) Then
Nom.SelStart = 0
Nom.sellengh = Len(Me.Nom)
DoCmd.RunCommand acCmdCopy
End If
DoCmd.OpenTable "interventions"
Table!interventions!ID.SetFocus
DoCmd.FindRecord ID
If Not IsNull(Me.Nom) Then
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "interventions"
End If
DoCmd.Hourglass (hourglassoff)
End Sub