Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
errore: nessun record corrente
44 views
Skip to first unread message
francodel...@gmail.com
May 15, 2014, 5:37:40 AM5/15/14
to
ciao a tutti
ho inserito questo codice su click di un pulsante
in una sottomaschera con ordine dati da query,
ma quando non ho record, ho anche l'errore
"nessun record corrente"
Come posso risolvere?
Grazie
Dim rs As DAO.Recordset
Me.Requery
Set rs = Me.Recordset.Clone
If rs.BOF Then
MsgBox ("Nessun Record")
Else
rs.MoveLast
MsgBox ("ci sono Record")
End If
rs.Close: Set rs = Nothing
ho inserito questo codice su click di un pulsante
in una sottomaschera con ordine dati da query,
ma quando non ho record, ho anche l'errore
"nessun record corrente"
Come posso risolvere?
Grazie
Dim rs As DAO.Recordset
Me.Requery
Set rs = Me.Recordset.Clone
If rs.BOF Then
MsgBox ("Nessun Record")
Else
rs.MoveLast
MsgBox ("ci sono Record")
End If
rs.Close: Set rs = Nothing
pfm
May 16, 2014, 4:29:14 PM5/16/14
to
Il giorno giovedì 15 maggio 2014 11:37:40 UTC+2, francodel...@gmail.com ha scritto:
> ciao a tutti
>
>
>
> ho inserito questo codice su click di un pulsante
>
> in una sottomaschera con ordine dati da query,
>
> ma quando non ho record, ho anche l'errore
>
> "nessun record corrente"
>
> Come posso risolvere?
>
> Grazie
>
>
correggerei
> ciao a tutti
>
>
>
> ho inserito questo codice su click di un pulsante
>
> in una sottomaschera con ordine dati da query,
>
> ma quando non ho record, ho anche l'errore
>
> "nessun record corrente"
>
> Come posso risolvere?
>
> Grazie
>
>
Dim rs As DAO.Recordset
Me.Requery ' non so se il recordset di origine ha dei dati
Set rs = Me.Recordset.Clone
If rs.BOF and rs.eof Then ' se inzio rs = fine rs vuoto
' recordset vuoto
francodel...@gmail.com
May 17, 2014, 3:37:30 AM5/17/14
to
0 new messages