Positionering i subform, fra event i main form
Dette er en fortsættelse af problemet i http://www.eksperten.dk/spm/679949.Recap:
frmMain er hovedform; den har ingen tilknyttet tabel.
Den har derimod en del subforms, som har tilknyttet tabellen med navn "Tabel1".
I frmMain ønsker jeg en knap til at tilføje en ny record i Tabel1.
Det gør jeg sådan:
Private Sub cmdKnap_Click()
Dim rs As ADODB.Recordset
Dim Nam As String
'Nam = InputBox("Angiv den nye værdi!", "Opret ny værdi")
Nam = "New Name"
If Len(Nam) > 0 Then
Set rs = New ADODB.Recordset
rs.Open "Tabel1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Navn = Nam
rs.Update
rs.Close
Set rs = Nothing
frmListe.Requery
End If
End Sub
Til slut i denne event laver jeg en Requery for frmListe.
frmListe er en Subform til frmMain, som indeholder alle min records.
Efter Requery så vises den nye record fint nok, men liste starter fra toppen, og jeg skal manuelt scrolle ned og finde den i bunden og markere den.
Findes der ikke en kommando som kan gøre det for mig ?
Altså, positionere til den sidste record og gøre den current ?
