Visual # finestre dialogo:
form_loaderror: ' se viene generato l'errore 3024, significa che non e' stato possibile trovare il file ' di database biblio.mdb. la proprieta' databasename del controlo data viene ' cancellata in modo che non generi un errore quando viene inizializzata dopo ' l'evento form_load. If err = 3024 Then With dlgdialog .dialogtitle = "impossibile trovare biblio.mdb" .filter = "(*.mdb)|*.mdb" .showopen End With If dlgdialog.filename <> "" Then 'verifica che il file di database restituito sia biblio.mdb If Right(Ucase(dlgdialog.filename), Len("\biblio.mdb")) = "\biblio.mdb" Then datpublishers.databasename = dlgdialog.filename datpublishers.recordsource = "select distinct state from publishers" datpublishers.refresh End If Resume Next Else unload me End If Elseif err <> 0 Then ' altro errore msgbox "errore imprevisto: " & err.description, , "listcmbo" End End If Resume form_loadexit End Sub |