Focus auf Datensatz mit FindFirst

[hawebe]

Hallo Forum,
ich habe ein Problem mit FindFirst, das ich mit meinen begrenzten Fähigkeiten nicht lösen kann
Meine Bitte: Würdet Ihr bitte in den u.a. Code eingreifen, um das folgende Ziel zu erreichen:
Der entsprechende Datensatz soll im ufrmLfdAuftraege (Datenherkunft: BEARBDAT) den Focus erhalten.   

Dim frm As Form, rs As DAO.Recordset
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim cKriterien As String
Dim sMldg As String
Dim sTitel As String
Dim iRes As Long

sTitel = "Nachbestellung (apfFinken)"
sMldg = "Die Nachbestellung wird zur weiteren Bearbeitung" & vbCrLf & "in 'Laufende Angebote/Aufträge' übernommen." & vbCrLf
iRes = MsgBox(sMldg, vbOKOnly + vbInformation + vbDefaultButton1, sTitel)

DoCmd.SetWarnings False
   DoCmd.OpenQuery "Qry_AnfuegNBFanBEARBDAT"
   DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings True

cKriterien = "[AuftrNr] = '" & Forms!frmKUNDEDAT!cAuftrNr & "'"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("BEARBDAT", dbOpenDynaset, 0, dbOptimistic)
rst.FindFirst cKriterien
             
If Not rst.NoMatch Then
   rst.Edit
   rst!ID_Mitarb = Me!ID_Mitarb
   rst!Kundenberater = Me!KundBer
   rst![Rabatt%] = Forms!frmKUNDEDAT.Form!Rabatt
   rst!ProzSkonto = Forms!frmKUNDEDAT.Form!ProzSkonto
   rst.Update

   rst.Close
   Set rst = Nothing
   Set dbs = Nothing
End If

DoCmd.RunCommand acCmdSaveRecord
Forms!frmKUNDEDAT!ufrmLfdAuftraege.Form.Requery

Forms!frmKUNDEDAT!ufrmLfdAuftraege.SetFocus
FormsSchaltKuDatHin 'Modul

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("BEARBDAT", dbOpenSnapshot)

cKriterien = "[AuftrNr] = '" & Forms!frmKUNDEDAT!cAuftrNr & "'"
rst.FindFirst cKriterien

If Not rst.NoMatch Then
   Forms!frmKUNDEDAT!ufrmAuftraege.Form.Recordset.FindFirst cKriterien
End If

rst.Close
Set dbs = Nothing
Set rst = Nothing

[el_gomero]

Hallo,

Der entsprechende Datensatz soll im ufrmLfdAuftraege (Datenherkunft: BEARBDAT) den Focus

das realisiert man mit einem Filter, Fokus kann nur ein Steuerelement erhalten. code in Tags einpacken, dann ist er leichter zu lesen.

Code [Auswählen] Erweitern


Me.Filter = "[AuftrNr] = '" & Forms!frmKUNDEDAT!cAuftrNr & "'"
Me.FilterOn = True


[MaggieMay]

Hallo,

der bereits vorhandene Befehl ist im Grunde genau der Richtige, um den "Fokus" auf den gesuchten Datensatz zu setzen:

Code [Auswählen] Erweitern

Forms!frmKUNDEDAT!ufrm[color=red]lfd[/color]Auftraege.Form.Recordset.FindFirst cKriterien
Wo genau liegt das Problem?

Eine Recordset-Variable wird dazu nicht benötigt.

[hawebe]

Hi maggymay,
es gibt Tage, das ist man wie vernagelt. Der Fehler lag natürlich dort, wo Du ihn auch lokalisiert hattest.
Alles wieder O.K.

Ich danke Dir.