highdevlop
Messages postés1Date d'inscriptionjeudi 21 août 2003StatutMembreDernière intervention18 janvier 2010
-
18 janv. 2010 à 20:13
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
18 janv. 2010 à 21:00
bonsoir,
si ya quel1 qui peut m'aider, le problem c'e l'execution d'une requette de mise ajour parametrer par deux critiere : la date system & la ref filale, je lance une requet qui cherche le maxi du nba et une autre de MAJ voici mon code:
Private Sub Command5_Click()
Dim T_Fil As New ADODB.Recordset
Dim T_dossier As New ADODB.Recordset
ch = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\valide.mdb"
T_Fil.Open "filiales", ch, adOpenDynamic, adLockOptimistic, adCmdtable1
T_Fil.MoveFirst
While Not T_Fil.EOF
sql1 = "SELECT Max(dossiers.NBA) AS MaxDeNBA FROM dossiers;"
max.Open sql1, ch, adOpenDynamic, adLockOptimistic, adCmdtable1
x = max!MaxDeNBA
nb = x + 1
max.Close
sql "UPDATE dossiers INNER JOIN adherant ON dossiers.cin adherant.cin " & _
"SET dossiers.NBA = '" & nb & "'" & "Where (adherant.filiale)= '" & T_Fil!reffil & "'" & " And ((dossiers.dardos) = Date)"
T_dossier.Open sql, ch
x = Date
T_Fil.MoveNext
Wend
max.Close
T_adh.Close
T_dossier.Close
T_Fil.Close
End Sub