Recherche (nom en anglais ou en français)

Thème

Lexique anglais / français sur le terme suivant MoveNext

   
MoveNext enregistrement suivant
Compléments d'information
.Private Sub maj_photo_table_click()

Dim oApp As Object
Dim rst As DAO.Recordset
Dim table As DAO.Database
Dim i As Integer
Dim nom_de_base As String
Set table = CurrentDb
Set rst = table.OpenRecordset("Test")
nom_repertoire = CurrentProject.Path + "\"
nom_de_base = rst.Fields("nom").Value

i = 0
While Not rst.EOF
rst.Edit
rst.Fields("photo_1").Value = "photos150#" & LCase("photos150\" & Replace(nom_de_base, " ", "_") & "_ensemble.jpg")
rst.Update
i = i + 1
rst.MoveNext
Wend

rst.Close
table.Close
Set rst = Nothing
Set table = Nothing

Debug.Print "nombre d'enregistrement =", i

End Sub

Lexique anglais-français informatique (13.000 mots): hardware, software, réseau, système d'expoitation, bureautique, multmédia (english, french, translate)

 
 

Copyright www.glossaire.be Kramer Steven Belgique Dictionnaire anglais-français

Etre au courant des mises à jour du site par Facebook :