[]Access VBa]Recherche une fonction de base

Recherche une fonction de base []Access VBa] - Programmation

Marsh Posté le 06-07-2001 à 16:01:00    

Quel est le nom de la fonction qui ecrit ds une table
a un chp preci
 
MERCI D AVANCE!!

Reply

Marsh Posté le 06-07-2001 à 16:01:00   

Reply

Marsh Posté le 06-07-2001 à 16:21:28    

Houlàlà, si tu crois qu'c'est aussi simple !
 
Voilà un exemple tiré de l'AIDE EN LIGNE !
 
Dim dbsNorthwind As Database
 Dim rstEmployees As Recordset
 Dim strOldFirst As String
 Dim strOldLast As String
 Dim strMessage As String
 
 Set dbsNorthwind = OpenDatabase("Comptoir.mdb" )
 Set rstEmployees = _
  dbsNorthwind.OpenRecordset("Employés" )
 
 With rstEmployees
  .Edit
  ' Stocke les données initiales.
  strOldFirst = !Prénom
  strOldLast = !Nom
  ' Modifie les données dans le tampon d'édition.
 
!Prénom = "Linda"
  !Nom = "Kobara"
 
  ' Affiche le contenu d'un tampon et obtient une  
  ' entrée utilisateur.
  strMessage = "Edition en cours :" & vbCr & _
   "    Données initiales = " & strOldFirst & " " & _
   strOldLast & vbCr & "    Données en tampon = " & _
   !Prénom & " " & !Nom & vbCr & vbCr & _
   "Utiliser la méthode Update pour remplacer les données initiales " & _
   "par les données en tampon dans l'objet Recordset ?"
 
If MsgBox(strMessage, vbYesNo) = vbYes Then
   .Update
  Else
   .CancelUpdate
  End If
 
  ' Affiche les données résultantes.
  MsgBox "Données du jeu d'enregistrements = " & _
   !Prénom & " " & _
   !Nom
 
  ' Restaure les données initiales après cette  
  ' démonstration.
  If Not (strOldFirst = !Prénom And _
    strOldLast = !Nom) Then
   .Edit
   !Prénom = strOldFirst
 
!Nom = strOldLast
   .Update
  End If
 
  .Close
 End With
 
 dbsNorthwind.Close
 
End Sub
 
Copyright (c) 1996 Microsoft Corporation


---------------
Laissez l'Etat dans les toilettes où vous l'avez trouvé.
Reply

Marsh Posté le 06-07-2001 à 16:28:28    

Decidement tu vas me sauver la vie combien de fois
Merci Mara's Dad.
Il faudrait que je te paye une biere!
 
Mais au fait tu l as trouve a quel topic sur l aide?
 
A plus
C est promis je refera plus :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed