[VB] tipo non corrispondente

[Rossella_75]

Originariamente inviato da ddies
Si l'ho scaricato, come non va?

Private Sub Form_Load()
Data.rscomuni.Open
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Data.rscomuni.Find "Via LIKE '%" & Chr(KeyAscii) & "%'"
  If Not Data.rscomuni.EOF Then
    Do While Not Data.rscomuni.EOF
      Text1.Text = (Data.rscomuni.Fields("via"))
      Data.rscomuni.MoveNext
    Loop
    Else
    MsgBox "Nessun record"
    End If
    Exit Sub
End Sub

Premo "e" e mi appare "Via Dei Marsi"

scusami ma a me non funziona!!!

Private Sub Form_Load()
Data.rscomuni.Open
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Data.rscomuni.Find "Via LIKE '%" & Chr(KeyAscii) & "%'"
  If Not Data.rscomuni.EOF Then
    Do While Not Data.rscomuni.EOF
      Text1.Text = (Data.rscomuni.Fields("via"))
      Data.rscomuni.MoveNext
    Loop
    Else
    MsgBox "Nessun record"
    End If
    Exit Sub
End Sub

se vuoi inviarmi il tuo modificato


mail

[ddies]

Prova a cambiare questa:

Private Sub Form_Load()
Data.rscomuni.Open
Me.Caption = Data.rscomuni.RecordCount
Text1.Text = ""
End Sub

e dimmi cosa c'e' scritto sulla titlebar del form, (34?)

[Rossella_75]

mi da il numero dei record a me 789

se scrivo "p" nella text box mi da affianco alla "p" "Strada vicolo Mambella valle Fussina"

[ddies]

Il problema è che non ha senso fare un do while loop se hai una textbox, ovviamente ti da il primo record che ha trovato.

Cambiala in:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Data.rscomuni.Find "Via LIKE '%" & Chr(KeyAscii) & "%'"
  If Not Data.rscomuni.EOF Then
      Text1.Text = (Data.rscomuni.Fields("via"))
  Else
    MsgBox "Nessun record"
  End If
End Sub

Oppure devi combinare uan textbox con una listbox, cioè in base a quello che scrivi sualla textbox, popoli la listbox con i record trovati.

stai facendo un "cerca via"?

[Rossella_75]

scarica questo pesa solo 200 kb e esattamente questo quello che voglio ottenere

comunque grazie mille per la tua immensa pazienza

[ddies]

Dim sTemp As String

Private Sub Form_Load()
Data.rscomuni.Open

Text1.Text = ""
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

  If Len(Text1.Text) < 1 Then Exit Sub
  
  Dim Via As String
  
  sTemp = sTemp & Chr(KeyCode)
  
  Data.rscomuni.Find "Via LIKE '" & sTemp & "%'"
  If Not Data.rscomuni.EOF Then
     Via = Data.rscomuni.Fields("via")
     Text1.Text = sTemp & Mid(Via, Len(sTemp) + 1, Len(Via) - Len(sTemp))
  Else
    MsgBox "Nessun record"
  End If
End Sub

[Rossella_75]

complimenti :quipy:


cosi se scrivo "p" mi da "Piazza G. Garibaldi", ma hai visto questo , in pratica seleziona tutto il resto e ti continuare a scrivere, mentre qui non va prova a scrivere "Piazza 1° Maggio"

[ddies]

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

  If Len(Text1.Text) < 1 Then Exit Sub
  
  Dim Via As String
  
  sTemp = sTemp & Chr(KeyCode)
  
  Data.rscomuni.Find "Via LIKE '" & sTemp & "%'"
  If Not Data.rscomuni.EOF Then
     Via = Data.rscomuni.Fields("via")
     Text1.Text = sTemp & Mid(Via, Len(sTemp) + 1, Len(Via) - Len(sTemp))
     Text1.SelStart = Len(sTemp)
     Text1.SelLength = Len(Text1.Text) - (Len(sTemp))
  Else
    MsgBox "Nessun record"
  End If
End Sub

[Rossella_75]

RINNOVO I MIEI COMPLIMENTI!!!

alla tua bravura (soprattutto alla pazienza) adesso fa quello che deve fare, chissa pero se riesci a fare un'altra piccola modifica

1) smette di cercare se inserisco un "."

Esempio: Via G. Verdi

e poi se scrivo una cretinata lui scrive "Nessun record" poi se premo ok e provo a correggere non cerca più devo riavviare tutto

e possibile invece che rinizii a cercare??

comunque grazie mille sei stato un grande

(penso che questa cosa serva a tanti utenti)

alla fine ti consiglio di ripostare tutto il codice perche facendo una ricerca io non ho trovato nulla (prima di conoscere te)

:metallica

[ddies]

Dim sText As String

Private Sub Form_Load()
Data.rscomuni.Open

Text1.Text = ""
End Sub


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

  If Len(Text1.Text) < 1 Or KeyCode < 32 Or InStr(1, Text1.Text, ".") <> 0 Then
    sTemp = Text1.Text
    Exit Sub
  End If
  
  Dim Via As String
  
  sTemp = sTemp & Chr(KeyCode)
  
  Data.rscomuni.Find "Via LIKE '" & sTemp & "%'"
  If Not Data.rscomuni.EOF Then
     Via = Data.rscomuni.Fields("via")
     Text1.Text = sTemp & Mid(Via, Len(sTemp) + 1, Len(Via) - Len(sTemp))
     Text1.SelStart = Len(sTemp)
     Text1.SelLength = Len(Text1.Text) - (Len(sTemp))
  Else
    MsgBox "Nessun record"
    sTemp = (Text1.Text)
    Data.rscomuni.Close
    Data.rscomuni.Open
  End If
End Sub

per il "." per finire la ricerca non mi viene in mente niente, ma basta che fai perdere il fuoco alla casella di testo.