Eccomi di nuovo con un altro "misterioso" problema...
ho il seguente codice per stampare un report...
quello che succede è che :
se lo eseguo normalmente mi dà un errore dicendo che non trova un campo nel report...
ma se lo eseguo con il debug funziona tutto
why?
Grazie per l'aiuto
Private Sub cmdStampa_Click()
Dim cnTemp As New Connection
Dim idx As Integer
Dim tabtemp As New Recordset
Dim nomecliente As String
cnTemp.Open "provider=msdatashape.1;data provider=Microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\dbquadra.mdb"
idx = rsPrivato.Fields("idprivato")
tabtemp.Open "SELECT * FROM tbprivato where idprivato = " & idx, cnTemp
nomecliente = tabtemp.Fields("nome") & " " & tabtemp.Fields("cognome")
Set DRPrivato.DataSource = tabtemp
DRPrivato.Show
End Sub
Rispondi quotando
