VBA Mise à jour table depuis autre formulaire

Sur ma base "stocks", j'ai un formulaire "Stocks"
Je voudrais que le bouton cliq de ce formulaire me fasse une petite chose, mais je ne sais absolument pas comment l'écrire en VBA . Je bidouille un peu dans tous les sens mais rien a faire !

Voilà mon souci.
J'ai un autre formulaire 'Datmaj' qui s'affiche en sous-formulaire sur l'écran menu général
Dans ce formulaire et la table "Datmaj" qui va avec, j'ai 3 champs pour 1 seul record
[Derdate] date de dernière modif d'un champ quelconque de la table "stocks"
{Dervente] date de la dernière vente de la table "Ventes"
[Nbrdervente] nombre de ventes saisies sur cette même dernière date

Voilà à peu près le code, dernière variante après 7 ou 8 autres, que j'essaie et qui ne marche pas (mais pas du tout)
----------------------
Private Sub Sortie_Click()
Dim Var1 As Date
Dim Var2 As Integer
'
On Error GoTo Err_Sortie_Click
Var1 = DMax("[Date de vente]", "Ventes")
'MsgBox ("Var1 = " & Var1)
Var2 = DCount("[Date de vente]", "Ventes", "[Date de vente]" & "= #" & Format$(Var1, "mm/dd/yyyy") & "#")
'MsgBox ("Var2 = " & Var2)
'
DoCmd.Close 'fermeture form Stocks
'
DoCmd.RunSQL "UPDATE Datmaj SET Datmaj.dervente = Var1"
DoCmd.RunSQL "UPDATE Datmaj SET Datmaj.nbrdervente = Var2"
'
'
Exit_Sortie_Click:
-------------------------------------------

Je voudrais que le formulaire (et la table) Datmaj soit mis à jour de ces valeurs et qu'il s'affiche ainsi sur la page accueil (forumulaire menu-général) où il se trouve (en sous-formulaire)

Merci de vos lumières, si lumière il y a
Amicalement
Roland