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
Hallo,
Zitat
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.
Me.Filter = "[AuftrNr] = '" & Forms!frmKUNDEDAT!cAuftrNr & "'"
Me.FilterOn = True
Hallo,
der bereits vorhandene Befehl ist im Grunde genau der Richtige, um den "Fokus" auf den gesuchten Datensatz zu setzen:
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.
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. :)