|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Bannato
Iscritto dal: Feb 2000
Città: The city of wasting disease
Messaggi: 7390
|
(Access) record count, non gli piace il like?
io ho questo codice... che mi dovrebbe prendere del testo e filtrarlo utilizzando anche il like...
Codice:
If Me.txtDenom.Enabled = True Then
If Me.txtDenom.Value <> "" Then
Me.txtDenom.Value = UCase(Me.txtDenom.Value)
strnewrecord = "SELECT * FROM Q_ModificaDatiVeloce " _
& " WHERE Denominazione Like '" & Me.txtDenom.Value & "'"
'strcount = "SELECT count(*) as Conteggio FROM " _
'& " WHERE Denominazione Like '" & Me.txtDenom.Value & "'"
Me.RecordSource = strnewrecord
Errore = "No"
Else
MsgBox "Cosa devo cercare??", vbInformation, "Errore"
End If
End If
...altra roba...
If Errore = "No" Then
Dim rs As adodb.Recordset
Dim conn As adodb.Connection
Set conn = CurrentProject.Connection
Set rs = New adodb.Recordset
rs.Open strnewrecord, conn, adOpenKeyset
If rs.RecordCount = 1 Then
Me.LabRecordTrovati.Caption = "Trovato 1 risultato."
Else
Me.LabRecordTrovati.Caption = "Trovati " & rs.RecordCount & " risultati."
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End If
qualcuno ha idea di cosa possa essere? |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Il RecordCount non è utilizzabile con tutti i tipi di cursore...sempre meglio non usarlo (ed i record li conti con una query
|
|
|
|
|
|
#3 | |
|
Bannato
Iscritto dal: Feb 2000
Città: The city of wasting disease
Messaggi: 7390
|
Quote:
ho provato anche questo: strcount= "SELECT count(*) as Conteggio FROM " _ & " WHERE Denominazione Like '" & Me.txtDenom.Value & "'" però non conta lo stesso, ha lo stesso problema |
|
|
|
|
|
|
#4 |
|
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Prova ad usare il Like in questo modo: "prova%"
|
|
|
|
|
|
#5 | |
|
Bannato
Iscritto dal: Feb 2000
Città: The city of wasting disease
Messaggi: 7390
|
Quote:
ottimaaaa ci siamo quasi, ora mi trova il numero ma non mi mostra i record... cmq basta sostituire il carattere e sono a posto thx! |
|
|
|
|
|
|
#6 |
|
Bannato
Iscritto dal: Feb 2000
Città: The city of wasting disease
Messaggi: 7390
|
fatta, mi è bastata questa stringa:
txtRicerca = Replace(Me.txtDenom.Value, "*", "%") e ora mi trova sia il numero che i risultati... grazie 1000! |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 11:30.



















