Newsgroup: it.comp.appl.access
Titolo: Errore riservato

Salve!
A volte mi capita che quando seleziono un valore (stringa) da una casella combinata avere errore riservato.
Cosa può essere?
Grazie


Se metti la gestione errori magari hai qualche evidenza in più...
 
@Alex


grazie Alex
l'ho la gestione errori 

 l'ho la gestione errori
 
Se andiamo a telegrammi scriviamo 2gg.
Se hai la gestione errori puoi mostrarla...?
Se l'hai messa sulla Combo probabilmente non serve a nulla, perchè è facile o molto probabile che l'errore sia da intercettare su Form_Error...
 
Quindi se parti dando per scontato che hai fatto giusto, siamo costretti a fare mille domande...!
Metti sempre in discussione quello che hai fatto ed esponi chiaramente lo stato di fatto.
 
@Alex


nella form ho questa:
On Error GoTo Err_Form_Error
 
    Select Case DataErr
      Case 3200
        Response = acDataErrContinue
        MsgBox "Non puoi eliminare record.", vbExclamation, "Attenzione!"
      Case 3316
        Response = acDataErrContinue
        MsgBox "Devi inserire prima un Nome.", vbExclamation, "Attenzione!"
        Me.Undo
    End Select
 
Exit_Form_Error:
    Exit Sub
 
Err_Form_Error:
    MsgBox Err.Description
    Resume Exit_Form_Error
 
poi nella combo ho
On Error GoTo Err_CboFornitore_BeforeUpdate
 
    Dim iRisposta As Integer
 
    If Not IsNull(DLookup("IdFornitore", "TbCarico", _
      "IdFornitore = " & Nz(Me!CboFornitore, 0) & _
      " And IdOrd = " & Me!IdOrd)) _
      And Me!CboFornitore <> Nz(Me!CboFornitore.OldValue) Then
        iRisposta = MsgBox("ATTENZIONE: '" & Me!CboFornitore.Column(1) & "' Già esiste, vuoi inserirlo ugualmente?", vbYesNo, "Duplicato!")
    End If
 
    Select Case iRisposta
      Case vbYes
      Case vbNo
        Call tForn(Me!CboFornitore, 0)
        Me.Undo
      Case Else
    End Select
 
Exit_CboFornitore_BeforeUpdate:
    Exit Sub
 
Err_CboFornitore_BeforeUpdate:
    MsgBox Err.Description
    Resume Exit_CboFornitore_BeforeUpdate

Alberto nell'evento Form_Error... non ti pare manchi qualche cosa....?
 
Il select case di DataErr controlla 2 casi... come pensi di capire
 se jl valore di DataErr non è tra quei 2 quale sia il
 problema...?
Se non metti un Else per includere TUTTI gli altri messaggi... non
 te ne accorgi di certo.
Non confondere la gestione errori di Funzione/Sub dalla
 valutazione del DataErr parametro dell'evento...
 
@Alex
 
 
-- 
@Alex
 
 
----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html
 

 
 
 
grazie Alex
faccio come hai detto 
poi ti dirò che errore ho


ciao Alex,
continuo ad avere errore riservato, nonostante abbia inserito 
la gestione errori come mi ha suggerito.
Credo che l'errore possa derivare da questa sub che ho
in un modulo pubblico e che richiamo da su modifica della casella combinata 
con: Call TrovaFo(Me!CboFornitore)
 
Sub TrovaFo(MyCbo As Access.ComboBox)
  Dim actCTL As Access.Control
  Dim strFind As String
  Dim strSql As String
 
  Set actCTL = Screen.ActiveControl
  With MyCbo
    If actCTL.Name = .Name Then
      If Nz(.Column(1), "0") <> .Text Then
        strFind = "Fornitore Like '" & "*" & Replace(.Text, "'", "''") & "*" & "'"
        strSql = vbNullString
        strSql = strSql & "SELECT F.IdFornitore, F.Fornitore, F.Indirizzo, (F.CAP + '  ') & F.Città AS Città "
        strSql = strSql & "FROM TbFornitori AS F"
        strSql = strSql & "WHERE " & strFind & " "
        strSql = strSql & "ORDER BY F.Fornitore;"
        .RowSource = strSql
        .Dropdown
      End If
    End If
  End With
End Sub