Ho un problema che non riesco a risolvere e spero che riuscite a daiutarmi.
Non sono molto ferrato con VBA.
Ho una finestra dove tramite il click su di un elenco aggiorno tramite Me.Bookmark = rst.Bookmark il record sopra. Dopo cliccando su di un tasto
dovrei aprire la maschera FRM_Referti composta da una sottomaschera FRM_Referti_Dettagli, dove in FRM_Referti mi ritrovo gia compilati i dati del cliente selezionato prima e in
FRM_Referti_Dettagli i campi vuoti da riempire.
La procedura funziona bene se in apertura di FRM_Referti_Dettagli creo una runtime dove scrivo DoCmd.GoToRecord ,, acNewRec. Ma questo non lo voglio fare peche poi la stessa maschera cioè
FRM_Referti con FRM_Referti_Dettagli la vorrei usare in un altra ricerca dove devo non iserire i dati ma vederli .
Io ho provato a scrivere questa runtime sotto il tasto che dovrebbe farmi aprire FRM_Referti con FRM_Referti_Dettagli vuoto ma mi da errore.
Private Sub Referto_Click()
On Error GoTo Err_Referto_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim strOpenArgs As String
strOpenArgs = [Forms]![FRM_Referti]![FRM_Referti_Dettagli]![idreferto].Value
stDocName = "FRM_Referti"
stLinkCriteria = "[idCliente]=" & Me![idcliente]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , strOpenArgs, acNewRec
Exit_Referto_Click:
Exit Sub
Err_Referto_Click:
MsgBox Err.Description
Resume Exit_Referto_Click
End Sub
poi come dicevo devo aprire la stessa maschera pero' avendo come argomento l'id della sottomaschera
io ho scritto cosi ma non funziona mi chiede con una finestra popup lidreparto e poi all'apertura esce sempre il primo record.
Private Sub aprireferto_Click()
On Error GoTo Err_aprireferto_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FRM_Referti"
stLinkCriteria = "[idreferto]=" & Me![idreferto]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_aprireferto_Click:
Exit Sub
Err_aprireferto_Click:
MsgBox (vbInformation)
Resume Exit_aprireferto_Click
End Sub
grazie mille per le info che arriveranno.