Bonjour à tous,
Tout d'abord bonne année à vous tous et tous mes meilleurs voeux..
Mon problème est le suivant, j'ai un formulaire qui permet d'enregistrer des dates dans une base de donnée de patients. Les dates saisies ( date de décès de patients) sont prises en compte dans une formule. Je suis obligé de faire un double clique sur la date du décès pour actualiser le résultat de la formule à partir de la base de donnée
Voici le code VBA du formulaire qui permet la saisie:
Private Sub CommandButton2_Click()
If Me.txtnom = "" Or Me.txtddnpatient < 0 Or Me.txtsexepatient = "" Or Me.txtdategreffe < 0 Then
MsgBox ("Il manque des information!")
Else
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 51) = Me.cbostatutsurvie
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 52) = Me.txtdateDC (j'ai déja essayé sous format date)
Me.txtdateDC = txtdateDC.Value
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 53) = Me.cbocauseDC
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 54) = Me.txtcommentaire
End If
MsgBox "Modifications effectuées avec succès"
Unload Me
End Sub
Puis-je rajouter une macro double clique à ce code ou modifier le code format date?
Le calcul automatique est activé .
Voilà , si vous pouvez m'aider , je vous en serai reconnaissant
Très bonne journée
DE
Tout d'abord bonne année à vous tous et tous mes meilleurs voeux..
Mon problème est le suivant, j'ai un formulaire qui permet d'enregistrer des dates dans une base de donnée de patients. Les dates saisies ( date de décès de patients) sont prises en compte dans une formule. Je suis obligé de faire un double clique sur la date du décès pour actualiser le résultat de la formule à partir de la base de donnée
Voici le code VBA du formulaire qui permet la saisie:
Private Sub CommandButton2_Click()
If Me.txtnom = "" Or Me.txtddnpatient < 0 Or Me.txtsexepatient = "" Or Me.txtdategreffe < 0 Then
MsgBox ("Il manque des information!")
Else
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 51) = Me.cbostatutsurvie
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 52) = Me.txtdateDC (j'ai déja essayé sous format date)
Me.txtdateDC = txtdateDC.Value
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 53) = Me.cbocauseDC
Sheets("enregistrement total").ListObjects(1).DataBodyRange(Me.rowid, 54) = Me.txtcommentaire
End If
MsgBox "Modifications effectuées avec succès"
Unload Me
End Sub
Puis-je rajouter une macro double clique à ce code ou modifier le code format date?
Le calcul automatique est activé .
Voilà , si vous pouvez m'aider , je vous en serai reconnaissant
Très bonne journée
DE