Option Explicit
'Datenbank
Dim L1 As Recordset
Dim L2 As Recordset
Dim BZL As Recordset
Dim DatenBank As Database
Dim Index As New Index
 
'Programm
Dim DatenBankQuelle As String
Dim L1nr, L2nr As Variant
Option Base 1
 
Private Sub cboartsel_Change()
 
BZL.Seek "=", cboartsel.Text
txtartbez.Text = BZL("artikel")
L1nr = BZL("L1")
L2nr = BZL("L2")
 
End Sub
 
Private Sub Form_Load()
 
DatenBankQuelle = App.Path & "\Stammdatenbank.mdb"
Set DatenBank = Workspaces(0).OpenDatabase(DatenBankQuelle, False, False)
Set L1 = DatenBank.OpenRecordset("Select * from L1")
Set L2 = DatenBank.OpenRecordset("Select * from L2")
Set BZL = DatenBank.OpenRecordset("Select * from BQL")
 
Do Until BZL.EOF = True
 
cboartsel.AddItem BZL("ArtNr")
BZL.MoveNext
 
Loop
 
Index.Name = "ArtNrIndex"
Index.Primary = False
Index.Unique = False
Index.Fields = "ArtNr"
 
BZL.Index = "ArtNrIndex"
 
End Sub
 
 
Private Sub mBack_Click()
EK_Anfrage.Hide
EK_Main.Show
End Sub