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
Bonjour,
Je recherche quelqu'un qui si connait en access 2007 j'ai vraiment besoin d'aide


3 réponses

bonjour
oui
mais quel est le souci
et quel est ton projet et quelles sont tes difficultés
1
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
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
0
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
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
0