none
Mise à jour de textebox RRS feed

  • Question

  • 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.

    vendredi 25 août 2017 21:51