Quelqu'un qui connait access 2007
Fermé
robyseb
Messages postés
130
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
28 juin 2011
-
20 avril 2011 à 05:28
robyseb Messages postés 130 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 28 juin 2011 - 21 avril 2011 à 08:39
robyseb Messages postés 130 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 28 juin 2011 - 21 avril 2011 à 08:39
A voir également:
- Quelqu'un qui connait access 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Access appdata - Guide
- Source sdk base 2007 ✓ - Forum Jeux vidéo
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
- Outlook 2007 gratuit - Forum Bureautique
3 réponses
robyseb
Messages postés
130
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
28 juin 2011
3
Modifié par robyseb le 20/04/2011 à 23:13
Modifié par robyseb le 20/04/2011 à 23:13
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
robyseb
Messages postés
130
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
28 juin 2011
3
21 avril 2011 à 08:39
21 avril 2011 à 08:39
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