Originariamente inviato da 9178angel
FORSE č MEGLIO SE MI SPIEGO:

ho il seguente codice:

codice:
CMBtab.AddItem RISULTATI
If CMBtab.ListIndex = 5 Then
        ADOtab.RecordSource = "RISULTATI"
        On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore
        If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata
            MsgBox ("La tabella non č stata creata. Per creare ora la tabella premere il tasto RISULTATI")
        End If
        On Error GoTo 0
end if
in teoria questo comando dovrebbe inserirmi la tabella nella combobox
e se esiste posso visualizzarla nel db grid altrimenti devo spingere il tasto Risultati cm dice il messaggio !
problema: non mi visualizza nč il messaggio e nemmeno la tabella viene visualizzata nel data grid! cosa faccio di sbagliato?
please help me!
on error resume next mettilo prima:
codice:
CMBtab.AddItem RISULTATI
If CMBtab.ListIndex = 5 Then
        On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore
        ADOtab.RecordSource = "RISULTATI"
        ADOtab.refresh

        If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata
            MsgBox ("La tabella non č stata creata. Per creare ora la tabella premere il tasto RISULTATI")
        End If
        On Error GoTo 0
end if