[VB] tipo non corrispondente

[Rossella_75]

Ciao a tutti
sto cercando di capire come funziona questo codice che ho trovato sulla rete, fa in modo che come inizio a scrivere dentro una textbox lui cerca il record corrispondete

    If Len(TmpStr) = 1 Then S = TmpStr
    Comuni.Find ">=", TmpStr
    If Not Comuni.EOF And Not Comuni.BOF Then
      If UCase(TmpStr) = UCase(Mid(Comuni!COMU_DESCR, 1, Len(TmpStr))) Then
        If Len(TmpStr) > Len(citta.Tag) Then
            citta.Text = Comuni!COMU_DESCR
            citta.SelStart = Len(TmpStr)
            citta.SelLength = Len(citta.Text) - (Len(TmpStr))
            provincia.Text = Comuni!COMU_PROV
            cap.Text = Comuni!cap
        End If
      Else

ma quando arriva qui (Comuni.Find ">=", TmpStr)

mi da errore 13 - tipo non corrispondente sapete dirmi che vuol dire??

grazie mille

[Rossella_75]

[r0x]

Dubito che senza le dichiarazioni delle variabili o degli oggetti che generano l`errore qualcuno possa sognarsi che razza di errore sia .. :tongue:

Sii precisa.

Ciao.

[Rossella_75]

io vorrei fare una textbox inteligente (ma non ne sono capace)

quel codice l'ho trovato in rete.

tu ne hai mai fatta una??

[r0x]

1) Cosa intendi per "intelligente"?

2) Non potrai mai sperare di compilare quel codice cosi` come sta.

[Rossella_75]

intendo una textbox dove ad esempio l'utente digita la prima lettera e lui cerca in un database il primo record corrispondente e cosi via,
in pratica ti aiuta a scrivere, hai mai visto programma che calcola il codice fiscale, li funziona cosi, e da li che ho preso il codice

[chipdb]

C'è un codice molto più semplice che utilizza un'API.
Questa é la dichiarazione:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F

e questo é il codice che devi mettere all'evento Change della Textbox:

ListName.ListIndex = SendMessage(ListName.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

Dove ListName é il nome di un'ipotetica lista che contiene tutti i record e text1 é la textbox che contiene il testo ricercato.

Ciao

[Rossella_75]

ho fatto come hai detto ma ho ricevuto un 'errore

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F

Private Sub Form_Load()

    Data.rscomuni.Open
    While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("COMU_DESCR"))
    Data.rscomuni.MoveNext
    Wend
    Data.rscomuni.Close
    
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

in List1 ottengo senza problemi la lista che mi interessa ma l'errore è nella dichiarazione dell'API esattamente qui

Public Const LB_FINDSTRING = &H18F

guarda
qui

[laccamen]

Originariamente inviato da Rossella_75
ho fatto come hai detto ma ho ricevuto un 'errore

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F

Private Sub Form_Load()

    Data.rscomuni.Open
    While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("COMU_DESCR"))
    Data.rscomuni.MoveNext
    Wend
    Data.rscomuni.Close
    
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

in List1 ottengo senza problemi la lista che mi interessa ma l'errore è nella dichiarazione dell'API esattamente qui

Public Const LB_FINDSTRING = &H18F

guarda
qui

metti la costante su di un modulo standard.

[Rossella_75]

Ok adesso funziona, ma io volevo fare in modo che quando l'utente scrive nella textbox il risultato viene scritto non nella list1 ma nella textbox..

è possibile???

e grazie