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

 


Dernière réponse
Sujet : []Access VBa]Recherche une fonction de base
boisanssoif 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:

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
boisanssoif 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:
Mara's dad 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
boisanssoif Quel est le nom de la fonction qui ecrit ds une table
a un chp preci
 
MERCI D AVANCE!!

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