to i en

er listen på samme formular som recordsettet?

Pato

ja

vender tilbage senere...har løsningen til dig

Vedr. ESC: Sæt "keypreview" til yes på form niveau, og definer derefter en event "On key press" (form niveau) til at trigge på KeyAscii værdi 27.
(Jeg har en Engelsk version indstalleret - du finder dette under egenskaberne for formen).
Vedr. listen: Den skal blot være bundet til det underliggende recordset.

vedr. din liste som skal være opdateret sammen med din current record.

A) her er lige en lille funktion som bladre i formen når du klikker på listen
'****************************
'*                          *
'*      Version 2.0        *
'*      Made by pato        *
'*                          *
'****************************
Sub GotoRecordOnForm(frm As Form, sql As String)
Dim rs As Recordset

Screen.Application.Echo False

    Set rs = frm.RecordsetClone
   
    rs.FindFirst sql
   
    If rs.NoMatch Then
    Else
        frm.Bookmark = rs.Bookmark
    End If
       
    rs.Close

Screen.Application.Echo True

End Sub



B) formularen

1) Din formular har en postkilde.. Lad os sige den er :
SELECT tblType.* FROM tblType;

2) På den samme formular har du en liste (list7)...denne skal IKKE være bundet til databasen, men dens rækkekilde skal være det samme som formularens:
SELECT tblType.* FROM tblType;

3) på listens AfterUpdate() skal du følgende:


Private Sub list7_AfterUpdate()
Dim ssqlstring As String
   
    'find and move to actual record
   
    '!!!!! her sættes en ny sql for formularen husk at skrive dit felt!!
    ssqlstring = "Type = '" & Me!list7 & "'"
    Call GotoRecordOnForm(Me, ssqlstring)

End Sub

4)På selve formularens VedAktuel hændelse skal du
Private Sub Form_Current()

    'set form
    Call setOpenargs(Me)
    Me!list7 = Me!txtType 'ID felt som er det samme for listen
    Me!list7.Requery

End Sub


så skulle listen og formularen følges ad...det kræver dog at felterne og tabellerne rettes så det følger dit.


M.V.H.
Pato

har en let nemmere løsning
on_current
me.list = me.felt1

til bjarne...
hvordan kan man lave det som en Hotkey så gælder alle steder ikke kun på den enkelte form

Hmm - lidt speget med ESC tasten, men hvis du kan acceptere en anden tast, f.eks. f1 eller en anden tastekomination som herunder anført, så kan du blot lave en makro med navnet "AutoKeys":
1. New Macro (design view)
2. I menuen view (i den engelske version), klik "Macro names". Du ser nu en ekstra kolonne i makroen.
3. I kolonnen makro name, skriv f.eks. {f1} (tuborg paranteser) i den første linie.
4. I kolonnen action, vælg en aktion, f.eks. OpenForm (husk at definere navnet på formen for neden i billedet)
5. Gem makroen under navnet "AutoKeys" (vigtigt).
Når du herefter trykker på f1 tasten (eller den kombination du har valgt - se herunder) så åbnes den form som du har defineret. Du kan lave flere hotkeys blot ved at indsætte yderligere linier i den samme makro.
Tastekombinationer:
^A or ^4 CTRL+Any letter or number key
{F1} Any function key
^{F1} CTRL+Any function key
+{F1} SHIFT+Any function key
{INSERT} INS
^{INSERT} CTRL+INS 
+{INSERT} SHIFT+INS
{DELETE} or {DEL} DEL
^{DELETE} or ^{DEL} CTRL+DEL
+{DELETE} or +{DEL} SHIFT+DEL

nej det skal netop være ESC -tasten(desværre)
jeg bliver nok nød til at lave en public function jeg kalder fra alle formularene.....

juks>  Ja din løsning ser lettere ud, men liste og records følges ikke ad, når man trykker på listen. min løsning går begge vegne.

jo det virker fint...
listen gaar jo til den valgte record automatisk , den funktion kan man vaelge naar man lave listen....

juks>  Ja ja...det sker hvis man bruger guiden!...det er det samme kode

juks > min er bare generel