'Deklaration der benötigten API-Funktionen
Private Declare Function apiPathFileExists Lib "shlwapi.dll" _
  Alias "PathFileExistsA" (ByVal lpszPath As String) _
  As Long
Private Declare Function apiPathIsDirectory Lib "shlwapi.dll" _
  Alias "PathIsDirectoryA" (ByVal pszPath As String) _
  As Long
 
Public Function FileExists(NameOfFile As String) As Boolean
  'Überprüfung, ob Dateipfad existiert. Dabei darf
  'es sich NICHT um ein Verzeichnis handeln!
  FileExists = ((apiPathFileExists(NameOfFile) <> 0) _
    And (apiPathIsDirectory(NameOfFile) = 0))
End Function
 
Dim rs as Recordset
 
' Diese function benötigt übergeben openargs
Private sub Form_Open()
    Dim sSQL As String
 
    DoCmd.Restore
 
    If IsNull(Me.OpenArgs) Then
        err.Raise 518, , "Keine Bewerber-ID übergeben!"
    End If
 
    iID = CInt(Me.OpenArgs)
 
    sSQL = "SELECT tblBewerber.titel, tblBewerber.Name, tblBewerber.Vorname," & _
      "tblBewerber.Anschrift, tblBewerber.Plz, tblBewerber.Ort," & _
      "tblBerufsgruppen.Berufsgruppen, tblBewerber.Land, tblBewerber.Vom " & _
           "FROM tblBewerber " & _
           "INNER JOIN tblBerufsgruppen " & _
           "ON tblBewerber.BerufsgruppenNr = tblBerufsgruppen.BerufsgruppenNr " _
           & _
           "WHERE (tblBewerber.ID = " & iID & ");"
    Set rs = CurrentDb().OpenRecordset(sSQL, dbOpenSnapshot)
 
   if rs.recordcount = 0 then
     ' errorhanlder hier einfügen (passiert wenn nix aus der db kommt
   End if
End sub