Errore sintassi in sottomaschera

Buongiorno a tutti,
questo breve codice mi restituisce un errore (Tipo non corrispondente) solamente quando aggiungo la riga riguardante la sottomaschera "Appuntamenti2", evidentemente sbaglio qualcosa nella sintassi, o mi sfugge altro?

Grazie

Buona giornata

Private Sub txtGoToData_AfterUpdate()
   CalcParam FirstDayInWeek(Me.txtGoToData)
   Me!Appuntamenti2.Form.CalcParam FirstDayInWeek(Me!txtGoToData)
End Sub

Originariamente inviato da Rinaldino23

questo breve codice mi restituisce un errore (Tipo non corrispondente)

Che cos'è CalcParam?

Public Function CalcParam(newData As Date)
   
   DATADA = Fix(newData)
   DATAAL = DateAdd("d", 6, DATADA)

   Me.lblSettimanale.Caption = "Settimana da " & _
                               StrConv(Format(DATADA, "dddd dd mmmm"), vbProperCase) & " a " & _
                               StrConv(Format(DATAAL, "dddd dd mmmm"), vbProperCase)
                               

   Call RefreshDataControl
   
   Call ReBuildRS

   If ctlOld <> "" Then
      Me.Controls(ctlOld).Selected(Me.Controls(ctlOld).ListIndex) = False
      Me.Controls(ctlOld).BackColor = cBK_NOW
      ctlOld = ""
   End If
   Call RefreshDay
End Function

allego anche firstdayinweek

Function FirstDayInWeek(Optional dtmDate As Variant, Optional vFirstDayInWeek As VBA.VbDayOfWeek = VBA.VbDayOfWeek.vbMonday) As Date
    ' ------------------------------------------------------
    ' Restituisce il primo gg della settimana passando la Data
    ' ------------------------------------------------------
    If IsMissing(dtmDate) Then dtmDate = Date
      
    FirstDayInWeek = Fix(dtmDate - Weekday(dtmDate, vFirstDayInWeek) + 1)
      
End Function

Originariamente inviato da Rinaldino23

Public Function CalcParam(newData As Date)

Dove è scritta? in un modulo standard? nella sottomaschera?
Perché qui la chiami

CalcParam FirstDayInWeek(Me.txtGoToData)

e dopo la chiami con questa sintassi?

Me!Appuntamenti2.Form.CalcParam ...

Sembra dichiarata a livello di maschera, in quel modo lì, come se fosse una metodo della stessa.
Sintassi strana.

si è dichiarata a livello della maschera principale, la chiamo in due modi diversi perchè uno si riferisce agli oggetti della maschera principale e il secondo CalcParam deve agire nella sottomaschera.
evidentemente sbaglio qui?

Originariamente inviato da Rinaldino23

si è dichiarata a livello della maschera principale,

Quindi questa cosa

Me!Appuntamenti2.Form.CalcParam

cos'è? Hai un'altra funzione che si chiama nello stesso modo in Appuntamenti2? un controllo che si chiama CalcParam?
Prima bisogna chiarire questo.

Originariamente inviato da Rinaldino23

la chiamo in due modi diversi perchè uno si riferisce agli oggetti della maschera principale e il secondo CalcParam deve agire nella sottomaschera.
evidentemente sbaglio qui?

Esatto. Se quella funzione può agire su più maschere, a mio avviso dovresti scriverla in un modulo standard, ovviamente sempre Public (esplicito, meglio) passando come parametro anche la maschera sulla quale agire.
Vedo che nel codice usi variabili che non sono dichiarate quindi immagino che siano dichiarate a livello di modulo (della maschera), ecco... serve qualche aggiustamento.
(preparo 3 righe di esempio stupido)

Codice che funziona solo nella maschera in cui si trova.

Option Compare Database
Option Explicit

Public Function CambiaControlli()

	Me.txtBox1.Value = 1
	Me.Controls("txtBox2").Enable = False

End Function

Private Sub cmdButton_Click()

	CambiaControlli

End Sub

Codice che può agire su qualsiasi maschera (che ovviamente contenga due controlli che si chiamano txtBox1 e txtBox2)
Questo si scrive in modulo standard

Option Compare Database
Option Explicit

Public Function CambiaControlli(ByVal NomeForm as String)
Dim frm As Form
Set frm = Forms(NomeForm)

	frm.txtBox1.Value = 1
	frm.Controls("txtBox2").Enable = False

Set frm = Nothing
End Function

Questo lo scrivi nelle varie maschere in cui vuoi far fare quelle stesse operazioni sui due controlli txtBox1 e txtBox2

Private Sub cmdButton_Click()

	CambiaControlli Me.Name

End Sub

(è codice scritto al volo, prendine il concetto, non il funzionamento reale perché è una funzione stupida)

ti ringrazio per l'aiuto innanzitutto.
Ho provato a spostare la funzione CalcParam in un modulo a parte, ma il risultato non cambia.

Quando ricevo l'errore il debug mi evidenza in realtà la funzione Firstdayinweek dandomi il messaggio "tipo non corrispondente"

Fai debug passo passo di quella funzione... la cosa è strana dal momento che passi una data.
Mi viene il dubbio che nella textbox non ci sia una data ma del testo...
Prova a passare la textbox con cdate(me.nometextbox)

Originariamente inviato da @Alex

Fai debug passo passo di quella funzione... la cosa è strana dal momento che passi una data.
Mi viene il dubbio che nella textbox non ci sia una data ma del testo...
Prova a passare la textbox con cdate(me.nometextbox)

Con Cdate funziona correttamente anche nelle sottomaschere.

Il problema nasce solo con FirstDayInWeek nelle due sottomaschere, se mi limito solo alla principale funziona correttamente.

Facendo Print firstdayinweek nella finestra immediata del debug, quando ricevo l’errore 00:00:00