Newsgroup: it.comp.appl.access
Titolo: problema codice fiscale

Cosa significa l'avviso fast msg 13 tipo non corrispondente.
Perchè ho inserito al caricamento della maschera l'istruzione relativa all
indice della tabella comuni (per il calcolo del codice fiscale).
La maschera si apre comunque pero quando vado ad inserire la prima lettera
del luogo di nascita nel campo "luogo di nascita" mi da errore. Nel campo
luogo di nascita ho inserito su evento modifica l'istruzione:
Dim s As String
    Dim T As String
    Dim Colore As Long
    On Error GoTo ErrFas
    Colore = 16711680
    T = Trim(Nz(Me.Luogo_di_nascita.Text, ""))
    If T = "" Then
        Me.Luogo_di_nascita.Tag = T
        Exit Sub
    End If
    If Len(T) = 1 Then s = T
    COMUNI.Seek ">=", T
    If Not COMUNI.EOF And Not COMUNI.NoMatch Then
      If UCase(T) = UCase(Mid(COMUNI!COMU_DESCR, 1, Len(T))) Then
        If Len(T) > Len(Me.Luogo_di_nascita.Tag) Then
            Me.Luogo_di_nascita = COMUNI!COMU_DESCR
            Me.Luogo_di_nascita.SelStart = Len(T)
            Me.Luogo_di_nascita.SelLength = Len(Me.Luogo_di_nascita) -
(Len(T))
            Me.txtCodiceComune = COMUNI!COMU_COD
        End If
      Else
        If Me.Luogo_di_nascita.ForeColor = 0 Then MsgBox "Comune non in
elenco"
        Colore = &H80&
        Me.txtCodiceComune = ""
        Me.Luogo_di_nascita.SetFocus
      End If
    End If
    If Me.Luogo_di_nascita.ForeColor <> Colore Then
Me.Luogo_di_nascita.ForeColor = Colore
    Me.Luogo_di_nascita.Tag = T
Exit Sub
ErrFas:
    MsgBox ("FasMsg: " & Err.Number & " " & Err.Description)
    Err.Clear
End Sub
In pratica  man mano ke inserisco lettera per lettera il comune di nascita,
questo viene automaticamente completato.
La tabella Comuni è indicizzata.
L'errore mi viene evidenziato su Comuni.nomatch.
Pero non capisco perche nell altro database funziona perfettamente..booo

 Pero non capisco perche nell altro database funziona perfettamente..booo
Non hai postato tutto il codice, ad esempio non hai indicato come hai
definito la variabili Database e Recordset.
Resta il fatto che il codice VBA di cui sopra fa riferimento alla libreria
Microsoft DAO e a quanto pare il database in cui la routine NON funziona č
stato prodotto con una versione di Access successiva ad Access 97 e non ha i
riferimenti a tale libreria (cosa che sicuramente nel database che funziona
esiste).
Ti ricordo che i riferimenti Microsoft DAO 3.6 Object Library debbono
precedere i riferimenti all'eventuale Libreria ADO nella lista dei
riferimenti (per non sbagliare spostali piů in alto possibile).
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
---------------------------------------------------- 


Un eventuale byPass all'ordinamento delle Library può
essere quello di esplicitare la Libreria di Tipo:
DAO.Recordset
ADODB.Recordset
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 @Alex (Alessandro Baraldi)
-- 


 Roberto
Non voleva essere un suggerimento a te, ma a Ludo
nel caso non potesse o avesse difficoltà con la soluzione
canonica, l'ho aggregato alla tua per completezza.
Ciao
-- 
@Alex (Alessandro Baraldi)
