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!!