funktion für schaltfläche (Access)

Martin Asal @, Donnerstag, 23.08.2018, 17:21 (vor 83 Tagen) @ adriant
bearbeitet von Martin Asal, Donnerstag, 23.08.2018, 18:24

Private Sub Befehl_Click()
Dim tFallFallnummer As Long
Dim f As Form, rs As Recordset
 
tFallFallnummer = Forms("frmFallbeschreibung").tFallFallnummer
 
DoCmd.openform "frmErsuchen"
 
Set f = Forms("frmErsuchen")
Set rs = f.RecordsetClone
 
 
rs.FindFirst "tFallFallnummer = " & tFallFallnummer
If rs.NoMatch Then
    DoCmd.GoToRecord , "frmErsuchen", acNewRec
Else
    f.Bookmark = rs.Bookmark
End If
 
DoCmd.Close acForm, "frmTabelle1"
 
 
Set rs = Nothing
Set f = Nothing
 
End Sub

gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum