Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
970 connectés 

  FORUM HardWare.fr
  Programmation

  []Access VBa]Recherche une fonction de base

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[]Access VBa]Recherche une fonction de base

n°45068
boisanssoi​f
Posté le 06-07-2001 à 16:01:00  profilanswer
 

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

mood
Publicité
Posté le 06-07-2001 à 16:01:00  profilanswer
 

n°45078
Mara's dad
Yes I can !
Posté le 06-07-2001 à 16:21:28  profilanswer
 

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é.
n°45083
boisanssoi​f
Posté le 06-07-2001 à 16:28:28  profilanswer
 

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:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  []Access VBa]Recherche une fonction de base

 

Sujets relatifs
Pbm de compatibilité entre VB6 et Access 2000, ça commence a m'enerver[VBA EXCEL 97] Commentaires sur les cellules
recherche Delphi sous LinuxPassage de variables dun form[ACCESS SQL]
Recherche un bon tutorial VBA pour ACCESS[JAVA] et base de donnees, comment faire un update, ou un delete ou ..
? recherche un hebergeur gratuit ou presque qui accepte les scripts[SQL ACCESS], Un PB !!!!!!!!!!!
Plus de sujets relatifs à : []Access VBa]Recherche une fonction de base


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR