Bonjour,
Je me permets de poser une question sur ce site concernant un petit problème que je rencontre sur la mise à jour de mes textbox avec Access.
Voici l’algo que je suis
Lors de l’ajout d’un enregistrement via mon formulaire (ouvert en boite de dialogue)
J’appelle une sub pour mettre à jour mes textbox
Comme suit:
formulaire:
Private Sub btn_save_Click()
Me.IDX_Patiente = Form_Consultation_Fiche_Patiente.ID_Patiente
DoCmd.RunCommand acCmdSaveRecord
btn_quit_Click
Mod_Var.majPP
End Sub
Mod_Var:
Sub majPP()
Form_Nav_postPartum.txt_enCours = DossierEnCoursPP()
End Sub
Function DossierEnCoursPP() As Integer
If cnx.State = 0 Then Mod_Var.connexiondb
Dim rsEncoursPP As New ADODB.Recordset
With rsEncoursPP
.CursorLocation = adUseClient
.Open "T_Post_Partum", cnx, adOpenDynamic, adLockOptimistic
.Filter = "IDX_Patiente = " & Form_Consultation_Fiche_Patiente.ID_Patiente & " and TerPP = False"
End With
If rsEncoursPP.EOF = True Then
DossierEnCoursPP = 0
Else
rsEncoursPP.Update
DossierEnCoursPP = rsEncoursPP.RecordCount
End If
rsEncoursPP.Close
End Function
La mise à jour ne se fait que si je reouvre le formulaire et que je le referme aussitôt.
merci pour votre lecture et votre aide.
Je ne pratique vba que depuis quelques mois merci pour votre compréhension.
Cordialement.
Sébastien.
