LuPellox85
21-03-2007, 10:19
Private Sub Comando630_Click()
On Error GoTo Err_Comando630_Click
Dim stDocName As String
Dim nr As String
nr = Testo622.Value
stDocName = "report_singolo_dati_collaudo"
DoCmd.OpenReport stDocName, acViewNormal, , "(((datiapprovazione.chiaveunivocasuprema)=" & nr & "))"
Exit_Comando630_Click:
Exit Sub
Err_Comando630_Click:
MsgBox Err.Description
Resume Exit_Comando630_Click
End Sub
questo è il pulsante che serve per stampare un report, dove la "chiaveunivocasuprema" ( mi piace dare nomi strani :stordita: ) è la discriminante per decidere quale record stampare.. ok, se dentro ci metto un numero è tutto ok, se ci metto una stringa non me la prende, mi esce un msgbox che mi chiede di inserire il valore, con come testo il valore della variabile nr..
e non capisco perchè :cry:
On Error GoTo Err_Comando630_Click
Dim stDocName As String
Dim nr As String
nr = Testo622.Value
stDocName = "report_singolo_dati_collaudo"
DoCmd.OpenReport stDocName, acViewNormal, , "(((datiapprovazione.chiaveunivocasuprema)=" & nr & "))"
Exit_Comando630_Click:
Exit Sub
Err_Comando630_Click:
MsgBox Err.Description
Resume Exit_Comando630_Click
End Sub
questo è il pulsante che serve per stampare un report, dove la "chiaveunivocasuprema" ( mi piace dare nomi strani :stordita: ) è la discriminante per decidere quale record stampare.. ok, se dentro ci metto un numero è tutto ok, se ci metto una stringa non me la prende, mi esce un msgbox che mi chiede di inserire il valore, con come testo il valore della variabile nr..
e non capisco perchè :cry: