Bonjour à l'équipe de choc !
je ne vous connais pas mais je vous adore !!!!! vous etes performant et rapide en plus !
je vous remerci pour votre aide
maintenant, j'ai un probleme concernant mon code.
j'ai un form qui m'affiche les informations d'une société, les infos de la société sont dans des zone de texte et les infos des contacts de la société sans dans un flexgrid.
mon probleme c'est qu'on m'a demander l'acces au flexgrid c'est a dire que l'utilisateur peux modifier dessus, et c'est fais mauis pour enregistrer les modifications ça ne marche pas
je vous montre mon code esperant que vous trouverais l'erreur.
merci d'avance et bon courage.
Private Sub Command1_Click()
Dim rec1, rec2 As Recordset
Set Rec = Base.OpenRecordset("SELECT * From Contacts WHERE Contacts.[NomSociété]=""" & ccod_clt.Text & """")
If Not (Rec.BOF And Rec.EOF) Then
Rec.MoveFirst
Do While Not Rec.EOF
'enregistrement des infos de la société (les zones de texte)
Rec.Edit
Rec("cod_soc") = ccod_clt.Text
Rec("NomSociété") = ccod_clt.Text
Rec("Catégorie") = ccat_clt.Text
'Rec("Nom Raison Sociale") = cnom_clt.Text
Rec("Adresse") = adress_clt.Text
Rec("ville") = vill_clt.Text
Rec("Cod_postal") = cod_post_clt.Text
Rec("pays") = pays_clt.Text
Rec("N°RC") = RC_clt.Text
Rec("Iden Fisc") = Ifiscal_clt
Rec("N° Article Imposition") = impo_clt
Rec("Agence Bancaire") = banq_clt.Text
Rec("Exo TVA") = exo_clt
Rec("TéléphoneBureau") = tel_clt
Rec("Fax") = fax_clt.Text
'Rec("Adresse e-mail") = mail_clt.Text
Rec.Update
Rec.MoveNext
Loop
End If
Rec.Close
Set rec1 = Base.OpenRecordset("Contacts_new")
'renvois des informations du Flexgrid vers une table temporaire
r = 1
c = 0
I = Flex1.Rows - 1
J = Flex1.Cols - 1
Flex1.Col = 0
Flex1.Row = 1
For r = 1 To I
c = 0
Flex1.Col = c
Flex1.Row = r
Do While c < J
rec1.AddNew
rec1!NomSociété = ccod_clt.Text
rec1("NomPers") = Flex1.Text
c = c + 1
Flex1.Col = c
rec1("TéléphoneBureau") = Flex1.Text
c = c + 1
Flex1.Col = c
rec1("Poste") = Flex1.Text
c = c + 1
Flex1.Col = c
rec1!Mobilophone = Flex1.Text
c = c + 1
Flex1.Col = c
rec1!Fax = Flex1.Text
c = c + 1
Flex1.Col = c
rec1!NomCourrierElect = Flex1.Text
c = c + 1
Flex1.Col = c
rec1!Notes = Flex1.Text
rec1.Update
Loop
Next r
'Supression des infos de la table contact et réenregistrement des infos de contacts_new (table temporaire vers contacts)
Set rec2 = Base.OpenRecordset("SELECT * From Contacts WHERE Contacts.[NomSociété]=""" & ccod_clt.Text & """")
If rec2.BOF And rec2.EOF Then
MsgBox "aucun enregistrement trouvé"
Else
rec2.MoveFirst
Do While rec2.BOF
rec2.Delete
rec2.MoveNext
Loop
End If
'envoi des infos
Set Rec = Base.OpenRecordset("Contacts")
Set rec1 = Base.OpenRecordset("SELECT * From Contacts_new WHERE Contacts_new.[NomSociété]=""" & ccod_clt.Text & """")
rec1.MoveFirst
If rec1.BOF And rec1.EOF Then
MsgBox "aucun enregistrement trouvé"
Else
Rec.AddNew
Do Until rec1.EOF
Rec("cod_soc") = rec1("cod_soc")
Rec("NomSociété") = rec1("NomSociété")
Rec("Catégorie") = rec1("Catégorie")
'Rec("Nom Raison Sociale") = cnom_clt.Text
Rec("Adresse") = rec1("Adresse")
Rec("ville") = rec1("ville")
Rec("Cod_postal") = rec1("Cod_postal")
Rec("pays") = rec1("pays")
Rec("N°RC") = rec1("N°RC")
Rec("Iden Fisc") = rec1("Iden Fisc")
Rec("N° Article Imposition") = rec1("N° Article Imposition")
Rec("Agence Bancaire") = rec1("Agence Bancaire")
Rec("Exo TVA") = rec1("Exo TVA")
Rec("NomPers") = rec1("NomPers")
Rec("TéléphoneBureau") = rec1("TéléphoneBureau")
Rec("Poste") = rec1("Poste")
Rec("Mobilophone") = rec1("Mobilophone")
Rec("Fax") = rec1("Fax")
Rec("NomCourrierElect") = rec1("NomCourrierElect")
Rec("Notes") = rec1("Notes")
rec1.MoveNext
Loop
End If
MsgBox " L'enregistrement a été modifié ", vbMsgBoxRight
ccod_clt.Text = ""
ccat_clt.Text = ""
cnom_clt.Text = ""
adress_clt.Text = ""
vill_clt.Text = ""
cod_post_clt.Text = ""
pays_clt.Text = ""
Ifiscal_clt.Text = ""
impo_clt.Text = ""
banq_clt.Text = ""
exo_clt.Text = ""
tel_clt.Text = ""
fax_clt.Text = ""
RC_clt.Text = ""