Saluti a tutti, sono un neofita del VB ed non riesco a risolvere un problema; spero che qualche anima pia riesca ad aiutarmi.
Da una maschera cliccando su un pulsante si apre una seconda maschera i cui dati vengono presi da una query (qryPerMacchiatori); questi dati appaiono solo se il campo Centro_det della query soddisfa la seguente condizione impostata nel criterio:Like [Forms]![Mrichiestacodfil]![Testo2]; qualora questa condizione non venga soddisfatta mi dovrebbe apparire un messaggio che indichi che non esistono record per questo tipologia invece mi appare una maschera vuota con i colori degli sfondi senza dati.
Allego un listato di cio' che dovrei riuscire a fare:
Private Sub Comando231_Click()
On Error GoTo Err_Comando231_Click
Dim stDocName As String
Dim stLinkCriteria As String
In questo punto dovrei mettere una if che se nella query il valore del campo centro_det non c'e' mi dovrebbe fare apparire una msgbox con messaggio di errore altrimenti dovrebbe continuare con i comandi sottostanti facendomi vedere la maschera con i dati completi:
stDocName = "Mvededati170"
stLinkCriteria = "[Centro_det]=" & "'" & Me![Centro_det]
& "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando231_Click: