Quelqu'un qui connait access 2007

robyseb Messages postés 143 Statut Membre -  
robyseb Messages postés 143 Statut Membre -
Bonjour,
Je recherche quelqu'un qui si connait en access 2007 j'ai vraiment besoin d'aide

3 réponses

  1. qmike549
     
    bonjour
    oui
    mais quel est le souci
    et quel est ton projet et quelles sont tes difficultés
    1
  2. robyseb Messages postés 143 Statut Membre 3
     
    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