ricerca record con maschera

[pìda sè parsòtt]

riposto il messaggio perchè la risposta interessa anche a me, spero di
aver utilizzato un oggetto più consono

Ciao a tutti
sono a chiedere come posso fare a inserire un menu a tendina all'interno
di una maschera ... mi spiego meglio
ho 1 tabella con i dati
ho creato una maschera che richiama questa tabella
ora vorrei che quando digito un nome automaticamente mi si apra questo
menu a tendina dove vedo tuti i nomi a partire da quello digitato, ovviamente
una volta selezionato mi deve dare tutti i dati contenenti quel determinato
nome
grazie a chi mi può aiutare ( un esempio già fatto sarebbe l'ottimale
perchè
come
si legge nell'oggetto sono vergine ...... di access )
grazie 1000
luca

quello che mi interessa sarebbe la possibilita di ricercare un record
con più caselle utilizzando o una o l'altra (esempio "cod. fisc" o
"cognome e nome").
quello che vorrei realizzare non è tanto un menù a discesa ma che
comparissero i vari dati presenti nel campo della tabella associata,
che una volta trovata l'occorrenza uguale mi visualizza il record
oppure, se non trovata l'occorrenza, venisse data la possibilità di
inserire un nuovo record.
grazie dell'aiuto
marco

[Marco Papo]

Ciao,

se ti interessa, io normalmente per fare delle maschere di ricerca faccio
così:

Loading Image...

Creo una maschera con:
1. Dei campi testo o caselle combinate per impostare i criteri di rcerca
2. Un listbox per mostarre i risultati.
3. Un pulante Ricerca sulla pression edel quale modifico la query sotto il
listbox.

Per modificare la query puòi fare per esempio così.

Private Sub cmdTrova_Click()

Dim strCondWhere As String
Dim strSQL As String


strCondWhere = ""
strSQL = ""

' Primo criterio di ricerca
If Not IsNull(Me.txtNomeMessaggio) Then
strCondWhere = " NomeMessaggio like '" & Me.txtNomeMessaggio & "*'"
End If
' Secondo criterio di ricerca
If Not IsNull(Me.txtStringa) Then
If strCondWhere = "" Then
strCondWhere = " Stringa like '" & Me.txtStringa & "*'"
Else
strCondWhere = strCondWhere & " AND Stringa like '" & Me.txtStringa
& "*'"
End If
End If

' Prendo le SQL dell'origine dati del listbox.
' 1 metodo se ho sotto una query:
' strSQL = CurrentDb().QueryDefs("QRY_Messaggi_Stringhe").SQL
' 2 metodo se la query è come origine riga senza che esista nel database. In
questo caso la reimposto oltre che sotto il listbox coem origina riga, anche
nel codice, perchè modificandola devo sempre tenermi via quella originale
per altre ricerche.
strSQL = "SELECT TBL_Messaggi_Stringhe.IDMessaggio,
TBL_Messaggi_Stringhe.NomeMessaggio, TBL_Messaggi_Stringhe.Stringa FROM
TBL_Messaggi_Stringhe;"

' Lo modifico aggiungendoci la WHERE costruita dinamicamente
strSQL = Replace(strSQL, ";", "", 1)
strSQL = strSQL & " WHERE " & strCondWhere & ";"
' lo restituisco al listbox
Me.lstMessaggi.RowSource = strSQL
Me.lstMessaggi.Requery


End Sub


Ciao.


"p�da s� pars�tt" <peterpan-***@libero.it> ha scritto nel messaggio news:***@y80g2000hsf.googlegroups.com...
riposto il messaggio perchè la risposta interessa anche a me, spero di
aver utilizzato un oggetto più consono

Ciao a tutti
sono a chiedere come posso fare a inserire un menu a tendina all'interno
di una maschera ... mi spiego meglio
ho 1 tabella con i dati
ho creato una maschera che richiama questa tabella
ora vorrei che quando digito un nome automaticamente mi si apra questo
menu a tendina dove vedo tuti i nomi a partire da quello digitato, ovviamente
una volta selezionato mi deve dare tutti i dati contenenti quel determinato
nome
grazie a chi mi può aiutare ( un esempio già fatto sarebbe l'ottimale
perchè
come
si legge nell'oggetto sono vergine ...... di access )
grazie 1000
luca

quello che mi interessa sarebbe la possibilita di ricercare un record
con più caselle utilizzando o una o l'altra (esempio "cod. fisc" o
"cognome e nome").
quello che vorrei realizzare non è tanto un menù a discesa ma che
comparissero i vari dati presenti nel campo della tabella associata,
che una volta trovata l'occorrenza uguale mi visualizza il record
oppure, se non trovata l'occorrenza, venisse data la possibilità di
inserire un nuovo record.
grazie dell'aiuto
marco

[giorgio rancati]

Post by pìda sè parsòtt
riposto il messaggio perchè la risposta interessa anche a me, spero di
aver utilizzato un oggetto più consono

Ciao Marco,

ripropongo la risposta, forse per qualche problema non si vede
----
How to move to a specific record from a Combo Box selection in Microsoft
Access
http://support.microsoft.com/kb/287658/en-us
----

o tradotta automaticamente
----
Come spostare a un record specifico da una selezione Casella combinata in
Microsoft Access
http://support.microsoft.com/kb/287658/it
----

Ciao