Public Sub Datenanzeigen(Formular As Form)
Dim Tabelle As String
Dim Halter As Control
 
Select Case Formular.Name
    Case "frmKunde"
        Tabelle = "Kundendaten"
 
    Case "frmLieferant"
        Tabelle = "Lieferanten"
 
    Case "frmAngebot"
        Tabelle = "Angebote"
 
    Case "frmBestellung"
        Tabelle = "Bestellungen"
End Select
 
strDSQ = "SELECT * FROM Kundendaten WHERE [ID]=" & DSIdent & ""
        Set rsDat = DB.OpenRecordset(strDSQ, dbOpenDynaset)
        With rsDat
        .MoveFirst
            For Each Halter In Formular
                If TypeOf Halter Is TextBox Then Halter.Text = .Fields(CInt( _
                  Halter.Tag))
                If TypeOf Halter Is CheckBox Then
                    If .Fields(CInt(Halter.Tag)) = True Then Halter.Value = 1 _
                      Else Halter.Value = 0
                End If
            Next
        .Close
        End With
DSIdent = 0
Set rsDat = Nothing
 
Call Formsperren(frmKunde)
End Sub

Dim Tabelle As String
Dim Halter As Control
 
Select Case Formular.Name
    Case "frmKunde"
        Tabelle = "Kundendaten"
 
    Case "frmLieferanten"
        Tabelle = "Lieferanten"
 
    Case "frmAngebot"
        Tabelle = "Angebote"
 
    Case "frmBestellung"
        Tabelle = "Bestellungen"
End Select
 
strDSQ = "SELECT * FROM " & Tabelle & " WHERE [ID]=" & DSIdent
        Set rsDat = DB.OpenRecordset(strDSQ, dbOpenDynaset)
        With rsDat
        .MoveFirst
            For Each Halter In Formular
                If TypeOf Halter Is TextBox Then Halter.Text = .Fields(CInt( _
                  Halter.Tag))
                If TypeOf Halter Is CheckBox Then
                    If .Fields(CInt(Halter.Tag)) = True Then Halter.Value = 1 _
                      Else Halter.Value = 0
                End If
            Next
        .Close
        End With
DSIdent = 0
Set rsDat = Nothing
 
Call Formsperren(frmLieferanten)