Recherche une fonction de base []Access VBa] - Programmation
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 
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  
 
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!!