Ciao a tutti. Mi rivolgo a voi perchè non so più dove sbattere la testa.![]()
Ho una casella combinata dalla quale seleziono un cognome e in base alla voce scelta viene aperta una maschera relativa agli utenti di tale nominativo. Fate conto che le voci disponibili siano una decina e funzionino tutte tranne una per la quale mi appare continuamente la finestrella con la dicitura "Record eliminato".
Premetto che ho già fatto un pò di debug verificando la stringa passata, la sua lunghezza, ecc. Consapevole dei capricci di access ho anche provato a ricreare la mascherina ex-novo eppure continuo a ricevere sempre lo stesso messaggio.
Il codice è il seguente:
Ho anche provato a ridurre all'osso il codice, assegnando ad un pulsante questo semplice codice:codice:Private Sub cmdFiltra_Click() On Error GoTo Err_cmdFiltra_Click Dim stDocName As String Dim stLinkCriteria As String If cmbOperatore = "" Or IsNull(cmbOperatore) Then MsgBox ("Selezionare un operatore dal menù a tendina") Exit Sub End If MsgBox (cmbOperatore) MsgBox (Len(cmbOperatore)) stDocName = "strutturaschede" stLinkCriteria = "[operatore]=" & "'" & Me![cmbOperatore] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Forms!strutturaschede.OrderBy = "cognome" Forms!strutturaschede.OrderByOn = True Exit_cmdFiltra_Click: Exit Sub Err_cmdFiltra_Click: MsgBox Err.Description Resume Exit_cmdFiltra_Click End Sub
e il messaggio che ottengo è:codice:Private Sub Comando10_Click() stDocName = "strutturaschede" stLinkCriteria = "[operatore]=" & "'COGNOME_IN_QUESTIONE'" DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
errore di run-time '3167'
record eliminato.![]()
La mia speranza è che qualcuno si sia già imbattuto in questo strano errore.
Grazie per l'attenzione.
edit. Anche nel secondo codice, passando direttamente il cognome, funzionano tutti tranne il solito che non ne vuole sapere.


Rispondi quotando
