Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Public Function GetDuplexPrinter() As String()
Dim oPrinters As Object
Dim oPrinter As Object
Dim avntCapabilities As Variant
Dim astrPrinter() As String
Dim i
Const cDUPLEX_PRINTING = 3&
astrPrinter = Split("")
Set oPrinters = GetObject("winmgmts:").InstancesOf("Win32_Printer")
If oPrinters.Count > 0 Then
For Each oPrinter In oPrinters
avntCapabilities = oPrinter.Capabilities
For i = 0 To UBound(avntCapabilities)
If avntCapabilities(i) = cDUPLEX_PRINTING Then
ReDim Preserve astrPrinter(UBound(astrPrinter) + 1)
astrPrinter(UBound(astrPrinter)) = oPrinter.Name
Exit For
End If
Next
Next
End If
GetDuplexPrinter = astrPrinter
Set oPrinter = Nothing
Set oPrinters = Nothing
End Function
Sub ListDuplexPrinter()
Dim astrPrinter() As String
Dim i As Long, n As Long
astrPrinter = GetDuplexPrinter()
n = UBound(astrPrinter)
Debug.Print UBound(astrPrinter) + 1; " Duplex printer found."
For i = 0 To UBound(astrPrinter)
Debug.Print i, astrPrinter(i)
Next
End Sub
ZitatAuch Datenbankprofis bauen Datenbanksysteme, die keinerlei Beziehungen zueinander haben.Das ist mir durchaus geläufig und mir sind die unterschiedlichen Strukturformen von Datenbanken auch bekannt. Aber, wir sind hier nun mal bei Access zur Entwicklung relationaler Datenbanken. Und meine Meinung bassiert ausschließlich auf dieser Annahme.
ZitatJa, in der Datenbank sind 4 Tabellen, die unabhängig voneinander sind.Das kann so nicht sein. Wenn das 4 Tabellen sind, so sind Beziehungen zwischen den Tabellen erforderlich. Dazu braucht es Schlüsselfelder.