Discussion :

[VBBBA]

bonjour
voila, jessai d'ecrire dans une table access une date dans un champ "LastBackup"
mais à un critére que le champ [ Nom Base] soit egal nombase.
voila mon bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CurrentDb.Execute "Update Bases SET LastBackup='" & dt & "' WHERE [Nom Base] = " & nombase

pourquoi ca ne marche pas??!!

mon message d'erreur :


erreur de syntaxe(opérateur absent) dans l'expression ' [Nom Base= aaaa.mdb]

aaaa.mdb= nombase

merci de votre aide.

[SfJ5Rpw8]

manque peu-être des '...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CurrentDb.Execute "Update Bases SET LastBackup='" & dt & "' WHERE [Nom Base] = '" & nombase & "'"

[VBBBA]

merci beaucoups bbil. ca marche!

jessai aussi de rechercher un doublon dans le champs d'une table.
la champ 1
faire une boucle en fait mais je suis pas encore familer avec la syntaxe de access.
pui je esperer un debut d'aide

en tout cas merci pour ton aide a toi bbill et a tous d'ailleurs..

[VBBBA]

merci beaucoups bbil. ca marche!

jessai aussi de rechercher un doublon dans le champs d'une table.
la champ 1: jai une valeur string et je veux parcourir le champ [ Nom Base] pour voir si il existe

faire une boucle en fait mais je suis pas encore familer avec la syntaxe de access.
pui je esperer un debut d'aide

en tout cas merci pour ton aide a toi bbill et a tous d'ailleurs..

[LedZeppII]

Bonjour,

voila un exemple qui parcourt toute la table Bases et cherche les doublons sur le champ mis dans la variable strFld.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim db As DAO.database, rs As DAO.Recordset
Dim strFld As String, strPrFldVal As String
Dim strSELECT As String

strFld = "NomDuChamp"
strPrFldVal = "$$$$$$$$$$"

strSELECT = "SELECT * FROM Bases ORDER BY [" & strFld & "];"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSELECT)

While Not rs.EOF
   If rs.Fields(strFld) = strPrFldVal Then
      ' doublon
      Debug.Print (rs.AbsolutePosition - 1) & "=" & rs.AbsolutePosition & _
                 "  " & strPrFldVal
   Else
      strPrFldVal = rs.Fields(strFld)
   End If
   rs.MoveNext
Wend

db.Close

A+