Newsgroup: it.comp.appl.access
Titolo: DoCmd.GoToRecord ???

Buon Natale a tutti
Win XP+A2003
non mi è chiaro (praticamente non sono capace) come passare a un record 
specifico di una tabella.
Vorrei riempire una maschera associata passando un
IdArticolo e premendo un pulsante presente sulla maschera.
Se possibile ..
Grazie
Maurizio 

 wrote in message 
news:4954025c$0$1118$4faf...@reader1.news.tin.it...

Se Table Field è Numeric:
Private Sub_FilterOn_Click()
    FilterOn = TRUE
    DoCmd.ApplyFilter , "[Table Field]=" & [Form Control]
End Sub
Se Table Field è String:
Private Sub_FilterOn_Click()
    FilterOn = TRUE
    DoCmd.ApplyFilter , "[Table Field]='" & [Form Control] & "'"
End Sub
Se Table Field è Date:
Private Sub_FilterOn_Click()
    FilterOn = TRUE
    DoCmd.ApplyFilter , "[Table Field]=#" & Format([Form Control], 
"mm/dd/yy") & "#"
End Sub
Per eliminare il filtro:
Private Sub_FilterOff_Click()
    FilterOn = FALSE
End Sub
Bruno 

 ...
Cercare un record
www.donkarl.com/it?FAQ4.4
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Cut...
Riformulo la domanda in modo più dettagliato
Ho una form  con i vari controlli  text e combo associati a una tabella.
in caso di nuovo inserimento in anagrafica se ho una  o più descrizioni che 
iniziano con i caratteri che sto digitando, allora rendo visibile una 
listbox che contiene i vari articoli che iniziano con la descrizione che sto 
inserendo.
passo il codice:
Private Sub TxtNomePietanza_Change()
'SE LUNGHEZZA STRINGA MINORE di 4 allora esco per non fare apparire
'un mare di risultati che portano solo confusione
If IsNothing(Me.TxtNomePietanza.Text) Or Len(Me.TxtNomePietanza.Text) < 4 
Then
    Me.LstPietanze.RowSource = vbNullString
     Me.LstPietanze.Visible = False
    Exit Sub
End If
StrSql = "select Pietanze.IdPietanza , Pietanze.NomePietanza  " _
    & "from Pietanze where " _
    & " Pietanze.NomePietanza like  '*" & (Me.TxtNomePietanza.Text) & "*' " 
_
    & "ORDER BY Pietanze.NomePietanza"
'se sono qui allora   Len(Me.TxtNomePietanza) > 4
        Me.LstPietanze.RowSource = StrSql
If Me.LstPietanze.ListCount > 0 Then
    Me.LstPietanze.Visible = True
    Me.LstPietanze.Enabled = True
        Else
End If
End Sub
SE ora seleziono una riga della listbox:
Private Sub LstPietanze_Click()
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "IdPietanza = " & Me!LstPietanze.Column(0)
'''''Me!LstPietanze.Column(0) è numerico
If Not rs.NoMatch Then
   'sincronizza la maschera con il suo RecordsetClone
   Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End Sub
A questo punto io vorrei avere la form con  visuliazzato il record 
richiamato , ma non funziona.
In ADO  ci riesco ma io vorrei imparare a farlo con  Me.Bookmark = 
rs.Bookmark.
Spero di essermi spiegato.
Grazie
Maurizio

 passo il codice:
[...]
Hai fatto una domanda che ha sollecitato due risposte che
non ti servono perché hai chiesto fagioli mentre volevi un ciclomotore.
Bisognerebbe usare prima la testa e poi la mano.
Naturalmente avendola...
Bruno


Hai perfettamente ragione e mi scuso per come mi sono posto ,a parziale 
discolpa ti posso assicurare che il sonno,
la fretta e la scarsa conoscenza sono un mix micidiale.
Grazie
Maurizio