lamranilamrani
Messages postés10Date d'inscriptionjeudi 19 mai 2011StatutMembreDernière intervention 5 juin 2011
-
30 mai 2011 à 22:08
sboumediene
Messages postés4Date d'inscriptionmercredi 18 mai 2011StatutMembreDernière intervention12 juin 2011
-
12 juin 2011 à 19:20
salut
j'ai un probleme dans mon programma vb
lorsque j'ajoute un enregistrement dans ma base de donnée on utilisant le bouton AJOUTER il 'ajoute mais lorsque je veux ajouter un autre li ecraze celui que j'ai entrer meme probleme pour la modification d'un enregistrement
voisi le code
AJOUTER
Private Sub cmdadd_Click()
connect
Set rs = New ADODB.Recordset
rs.Open "Exploitant", cn, 1, 2
rs.AddNew
cmdsave.Visible = True
activer
End Sub
sboumediene
Messages postés4Date d'inscriptionmercredi 18 mai 2011StatutMembreDernière intervention12 juin 2011 12 juin 2011 à 19:20
donc apres chaque opération tu doit rafraichir l'ADODC
pour cela apres update et tu ferme la boucle puis ADODC1.refrech
voiçi un exemple c grand mais tt pour un ajout a 100%:
Private Sub ajouter_Click()
On Error GoTo er
If Text1.Text "" Or Text2.Text "" Or Text3.Text = "" Or DataCombo1.Text = "Choix" Or DataCombo2.Text = "Choix" Or DataCombo3.Text = "Choix" Or DataCombo4.Text = "Choix" Then
MsgBox "vous devez remplir toutes les zones de textes ", vbInformation, "Gestion des dépenses budgetaires"
Else
rs_dm.Filter = "N°dm='" & Text1.Text & "'"
If rs_dm.EOF = False Then
MsgBox "Cette DM existe dèjà,vous devez saisire un nouveau numéro de DM", vbInformation, "Erreu.."
Text1.SetFocus
Else
''''''''''''''''''''''''''''''''
Do
If DataCombo4.Text = AB.Fields(0).Value Then
AB.Update
s = True
If Val(Text6.Text) < AB.Fields(2).Value Then
Text6.Enabled = False
rs_dm.Filter = "N°DM='" & Text1.Text & "'"
If rs_dm.EOF Then
With rs_dm
.AddNew
!N°DM = Text1.Text
!date_saisie_dm = Text2.Text
!Code_unité = DataCombo1.Text
!Année_bdg = DataCombo2.Text
!qté_ddée_dm = Text3.Text
!IMPUTATION = DataCombo3.Text
!N°Nre = DataCombo4.Text
.Update
End With
Else
MsgBox " la dm existe dèjâ"
End If
rs_dm.Filter = ""
AB.MoveFirst
AB.Filter = "N°Nre='" & DataCombo4.Text & "'"
Do
If DataCombo4.Text = AB.Fields(0).Value Then
AB.Fields(2).Value = AB.Fields(2).Value - Val(Text6.Text)
AB.Update
trouve = True
Else
AB.MoveNext
End If
Loop Until AB.EOF Or trouve
MsgBox "Enregistrement réussi", vbInformation, "Gestion des dépenses budgetaires"
Adodc6.Refresh
vider
Else
If MsgBox("Vous avez dépasser le budget, voulez-vous continuer?", vbYesNo + vbExclamation, "Gestion des dépenses budgetaires") = vbYes Then
Text6.Enabled = False
rs_dm.Filter = "N°DM='" & Text1.Text & "'"
With rs_dm
.AddNew
!N°DM = Text1.Text
!date_saisie_dm = Text2.Text
!Code_unité = DataCombo1.Text
!Année_bdg = DataCombo2.Text
!qté_ddée_dm = Text3.Text
!IMPUTATION = DataCombo3.Text
!N°Nre = DataCombo4.Text
.Update
End With
rs_dm.Filter = ""
AB.MoveFirst
AB.Filter = "N°Nre='" & DataCombo4.Text & "'"
Do
If DataCombo4.Text = AB.Fields(0).Value Then
AB.Fields(2).Value = AB.Fields(2).Value - Val(Text6.Text)
AB.Update
trouve = True
Else
AB.MoveNext
End If
Loop Until AB.EOF Or trouve
MsgBox "Enregistrement réussi", vbInformation, "Gestion des dépenses budgetaires"
Adodc6.Refresh
vider
End If
End If
Else
AB.MoveNext
End If
Loop Until AB.EOF Or s
End If
End If
er:
If Err.Number <> 0 Then MsgBox Err.Description
Text1.SetFocus
End Sub