Bonjour
j'ai une difficulté je n'arrive pas à la déceler.
la version de oracle que j'utilise est la 10g
j'ai effectué ma connexion ODBC avec le driver, maintenant
j'ai une table liée (agis_insured) dans access et je voudrais enregistrer des données dans cette table liée à travers une autre table (client). mais ça bloque au niveau de la mise à jour. je ne sais pas vraiment ce qui bloque.
je joins le code en bas, aidez moi SVP merci

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
26
27
28
29
30
31
32
33
34
Dim Bds As Database
Dim rs As Recordset
DoCmd.RunSQL "UPDATE cod_res_num INNER JOIN client ON cod_res_num.Accountt = client.OWNER_NUMM SET cod_res_num.statut_compte = -1, client.statut_compte=-1 WHERE (((client.OWNER_NUMM) Like [cod_res_num].[Accountt]));"
DoCmd.SetWarnings False
Set Bds = CurrentDb
Set rs = Bds.OpenRecordset("AGIS_INSURED", dbOpenDynaset)
rs.MoveFirst
While Not rs.EOF
rs.AddNew
rs("BRANCHH") = 15
rs("INSUREDD") = txtnumcompte.Value
rs("INS_SUB_TYPEE") = 2
rs("TITLEE") = txttitre.Value
rs("NAMEE") = Nz(txtnom, "")
rs("T_O_B") = Null
rs("D_O_B") = txtdatenais.Value
rs("NATIONALITY") = txtnationa.Value
rs("ACTIVEE") = 1
rs("PAYMENTT") = 1
rs("COL_REF") = Null
rs("ADDRESSS") = txtadresse.Value
rs("COUNTRYY") = txtpays.Value
rs("REGIONN") = Null
rs("CITYY") = txtville.Value
rs("STREETT") = txtrue.Value
rs("BLOCKK") = txtimmeuble.Value
rs("PBOXX") = txtbp.Value
rs("D_O_B") = txtdatenais.Value
rs.Update " ça bloque à ce niveau"
Wend
rs.Requery
rs.Close
Set rs = Nothing
Set db = Nothing
merci