cs_futurist
Messages postés9Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention 4 février 2010
-
27 juil. 2008 à 19:30
cs_futurist
Messages postés9Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention 4 février 2010
-
28 juil. 2008 à 01:04
Bonjour,
j'ai un petit probleme et j'espere que vous m'aidiez svp.
jai fait recuperer les données dans un msflexgrid depuis une table access et j'ai rendu mon msflexgrid editable avec des txtbox et des combobox que je recupere de cette table , alors de l'edition sur le msflexgrid passe sans problem mai pour enregistrer ses modification dans une autre table ou dans la meme table je ne sais pas comment faire si vous pouvez me donner des indications ou un projet semblable je vou pris
et un grand merci d'avance
cs_futurist
Messages postés9Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention 4 février 2010 28 juil. 2008 à 01:04
j'ai trouvé la reponse c'est bon
Private Sub Command1_Click()
Dim I As Integer
On Error Resume Next
MsgBox "compteur " & MSFlexGrid1.Rows, vbInformation
I = 1
While I < MSFlexGrid1.Rows
MSFlexGrid1.Row = I
rspersonnel2.AddNew
MSFlexGrid1.Col = 1
rspersonnel2.Fields(0) = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
rspersonnel2.Fields(1) = MSFlexGrid1.Text
MSFlexGrid1.Col = 3
rspersonnel2.Fields(2) = MSFlexGrid1.Text
MSFlexGrid1.Col = 4
rspersonnel2.Fields(3) = MSFlexGrid1.TextIf rspersonnel2.Fields(0) "" And rspersonnel2.Fields(1) "" And rspersonnel2.Fields(2) = "" And rspersonnel2.Fields(3) = "" Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
Else
rspersonnel2.Update
End If
I = I + 1
Wend
MsgBox "Enregistrement parametrageé avec succé", vbInformation
End Sub