Newsgroup: it.comp.appl.access
Titolo: Re: ricerca in più campi

Per  Bruno: ti ho mandato  il mio indirizzo email, ciao sbariabilo.
-- 
sbariabilo 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-767682.html
Inviato via 
http://www.itsistemi.net

Come si fà la ricerca di un record o più record testo in più campi diversi?
e in più aggiungere un opzione, cerca per:(A,oppureB?)
Grazie anticipatamente a chi mi risponde.
-- 
sbariabilo 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-769025.html
Inviato via 
http://www.itsistemi.net

 Per  Bruno: ti ho mandato  il mio indirizzo email, ciao sbariabilo.
Ma io non l'ho ricevuto.
Č corretto 
massimil...@libero.it
?
Ciao
Bruno 

Sarei grato se qualcuno mi sa dare questa indicazione si può cercare lo stesso testo in più campi? grazie
-- 
sbariabilo 
------------------------------------------------------------------------


Bruno ti ho inviato la mia mail non l'hai ricevuta?
se puoi manadare la soluzione al mio problema te ne sarei grato .
Paolo


 sbariabilo
Continuo a non ricevere nulla.
Ma puoi darmelo qui il tuo indirizzo.
Bruno 

 sbariabilo
Se devi cercare su tutti i campi della tabella
TextTable la stringa "Bruno":
--------------------------------------------
Private Sub Command14_Click()
Dim db As Database, RS As Recordset
Dim TDef As TableDef, i
Set db = CurrentDb
Set RS = db.OpenRecordset("TextTable")
Set TDef = db.TableDefs("TextTable")
Do Until RS.EOF
    For Each i In TDef.Fields
        If RS(i.Name) = "Bruno" Then
            MsgBox i.Name
        End If
    Next
    RS.MoveNext
Loop
End Sub
----------------------------------------------
Ciao
Bruno 

Bruno postami perchè forse non ho capito il tuo indirizzo
sbaria...@yahoo.it


E una buona routine ma deve essere molto modificata.


Bruno, per il momento sono riuscito a modificare la routin in modo che mi chiede di inserire con un inputbox il numero("che ho inserito come testo per semplificare le cose") che io cerco.
Ora questa routine mi dice con un msgbox solo in quali campi  č il numero che io cerco 
e vuole ogni volta OK quindi al posto del msgbox di risposta e possibile avere il risultato in una query?
'Se devi cercare su tutti i campi della tabella
'TextTable la stringa "Bruno":
Dim db As Database, RS As Recordset
Dim TDef As TableDef, i
Dim st As String
Set db = CurrentDb
Set RS = db.OpenRecordset("Archivio estrazioni")
Set TDef = db.TableDefs("Archivio estrazioni")
st = InputBox("inserisci numero da cercare")
If st = "" Then
Exit Sub
Else
Do Until RS.EOF
For Each i In TDef.Fields
If RS(i.Name) = st Then
MsgBox i.Name
End If
Next
RS.MoveNext
Loop
End If
End Sub


 avere il risultato in una query?
Guarda un po' se questa puņ andare.
L'esito della ricerca viene salvato in una tabella
avente campi corrispondenti.
================================
Private Sub RicercaPerCampi_Click()
'
' Bruno Campanini    08-02-06    Access 2003
' db2.mdb, Form: Form4, Button: Ricerca per Campi
'
' La tabella NumTable ha N campi numerici
' denominati Num1, Num2, ... NumN.
' La tabella NumTable_Ricerca ha N+1 campi numerici
' denominati Position, Num1, Num2, ... NumN.
' La procedura riporta in NumTable_Ricerca (nei record
' e nei campi corrispondenti) l'esito
' della ricerca su NumTable.
'
Dim db As Database, RS As Recordset, RS_1 As Recordset
Dim i As Field, TDef As TableDef
Dim Scelta As String
Dim j As Long, k As Integer, FoundItem As Boolean
Set db = CurrentDb
Set RS = db.OpenRecordset("NumTable")
Set RS_1 = db.OpenRecordset("NumTable_Ricerca")
Set TDef = db.TableDefs("NumTable")
Scelta = InputBox("Numero da ricercare")
If Not IsNumeric(Scelta) Then
    Exit Sub
End If
db.Execute "DELETE NumTable_Ricerca.* " & _
           "FROM NumTable_Ricerca;"
Do Until RS.EOF
    j = j + 1
    k = 0
    For Each i In TDef.Fields
        k = k + 1
        If RS(i.Name) = Scelta Then
            If Not FoundItem Then
                RS_1.AddNew
                FoundItem = True
            Else
                RS_1.MoveLast
                RS_1.Edit
            End If
            RS_1("Position") = j
            RS_1("Num" & k) = Scelta
            RS_1.Update
        End If
    Next
    FoundItem = False
    RS.MoveNext
Loop
End Sub
=============================
Ciao
Bruno 

Bruno la provo e ti farò sapere Grazie
