Option Compare Database
Option Explicit

Sub TanksRoeschitzAnlegen()

Dim db1 As Database
Dim rs1 As Recordset
Dim i As Integer

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("TBehaelter")

For i = 1 To 14
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 99000
 If i = 14 Then
  rs1("MaxMenge") = 72600
 End If
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 3
 rs1.Update
Next i

For i = 15 To 16
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 600000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 2
 rs1.Update
Next i


For i = 17 To 22
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 15000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 rs1.Update
Next i

For i = 23 To 38
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 30000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 If i = 35 Then
 rs1("BSNR") = 2
 End If
 rs1.Update
Next i


For i = 39 To 39
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 5000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 rs1.Update
Next i

For i = 40 To 42
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 7000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 rs1.Update
Next i

For i = 43 To 50
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 3000
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 rs1.Update
Next i

For i = 51 To 53
 rs1.AddNew
 rs1("Kurzbezeichnung") = "T" + Format(i)
 rs1("Bezeichnung") = "Tank " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 1500
 rs1("Reduktionsfaktor") = 1
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 6
 rs1.Update
Next i

For i = 9 To 23
 rs1.AddNew
 rs1("Kurzbezeichnung") = "Z" + Format(i)
 rs1("Bezeichnung") = "Zisterne " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 25000
 rs1("Reduktionsfaktor") = 1
 rs1("BevorzugterSortenTyp") = "Rot"
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 4
 rs1.Update
Next i

For i = 1 To 3
 rs1.AddNew
 rs1("Kurzbezeichnung") = "F" + Format(i)
 rs1("Bezeichnung") = "Fass " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 9000
 rs1("Reduktionsfaktor") = 1
 rs1("BevorzugterSortenTyp") = "Rot"
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 5
 rs1.Update
Next i




rs1.Close


End Sub

Sub PositionenTanksRoeschitz()

Dim db1 As Database
Dim rs1 As Recordset
Dim i As Integer

Dim offset_x As Long
Dim offset_y As Long
Dim raster_x As Long
Dim raster_y As Long
Dim max_x As Long
Dim current_x As Long
Dim current_y As Long

offset_x = 100
offset_y = 550
raster_x = 2000
raster_y = 2000
max_x = 14000
Set db1 = CurrentDb
For i = 1 To 7
Set rs1 = db1.OpenRecordset("SELECT * FROM TBehaelter WHERE BSNR=" + Format(i) + " order by BNR")
current_x = offset_x
current_y = offset_y
While Not rs1.EOF
 rs1.Edit
 rs1("Pos_X") = current_x
 rs1("Pos_Y") = current_y
 rs1.Update
 current_x = current_x + raster_x
 If current_x > max_x Then
   current_x = offset_x
   current_y = current_y + raster_x
 End If
 rs1.MoveNext
Wend
rs1.Close
Next i




End Sub


Sub TanksWinzerkellerAnlegen()

Dim db1 As Database
Dim rs1 As Recordset
Dim i As Integer

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("TBehaelter")

For i = 1 To 12
 rs1.AddNew
 rs1("Kurzbezeichnung") = "MB" + Format(i)
 rs1("Bezeichnung") = "Weißwein Maischebehälter " + Format(i)
 rs1("BTNR") = 2
 rs1("MaxMenge") = 12000
 rs1("Reduktionsfaktor") = 1
 rs1("BevorzugterSortenTyp") = "Weiß"
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "kg"
 rs1("BSNR") = 1
 rs1.Update
Next i

For i = 1 To 5
 rs1.AddNew
 rs1("Kurzbezeichnung") = "RT" + Format(i)
 rs1("Bezeichnung") = "Rührtanks Rotwein " + Format(i)
 rs1("BTNR") = 3
 rs1("MaxMenge") = 18000
 If i > 2 Then
  rs1("MaxMenge") = 30000
 End If
 rs1("Reduktionsfaktor") = 1
 rs1("BevorzugterSortenTyp") = "Rot"
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "kg"
 rs1("BSNR") = 1
 rs1.Update
Next i

For i = 1 To 4
 rs1.AddNew
 rs1("Kurzbezeichnung") = "P" + Format(i)
 rs1("Bezeichnung") = "Presse " + Format(i)
 rs1("BTNR") = 1
 rs1("MaxMenge") = 30000
 rs1("Reduktionsfaktor") = 0.8
 'rs1("BevorzugterSortenTyp") = ""
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "kg"
 rs1("BSNR") = 1
 rs1.Update
Next i

For i = 1 To 5
 rs1.AddNew
 rs1("Kurzbezeichnung") = "W" + Format(i)
 rs1("Bezeichnung") = "Weißwein-Mosttank " + Format(i)
 rs1("BTNR") = 4
 rs1("MaxMenge") = 32000
 If i = 1 Or i = 4 Then rs1("MaxMenge") = 50000
 rs1("BevorzugterSortenTyp") = "Weiß"
 rs1("Reduktionsfaktor") = 1
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 2
 rs1.Update
Next i

For i = 6 To 9
 rs1.AddNew
 rs1("Kurzbezeichnung") = "R" + Format(i)
 rs1("Bezeichnung") = "Rotwein-Mosttank " + Format(i)
 rs1("BTNR") = 4
 rs1("MaxMenge") = 26000
 If i = 9 Then rs1("MaxMenge") = 50000
 rs1("BevorzugterSortenTyp") = "Weiß"
 rs1("Reduktionsfaktor") = 1
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "l"
 rs1("BSNR") = 2
 rs1.Update
Next i


For i = 1 To 3
 rs1.AddNew
 rs1("Kurzbezeichnung") = "V" + Format(i)
 rs1("Bezeichnung") = "Rotwein-Mosttank " + Format(i)
 rs1("BTNR") = 6
 rs1("MaxMenge") = 12000
 rs1("BevorzugterSortenTyp") = "Rot"
 rs1("Reduktionsfaktor") = 1
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "kg"
 rs1("BSNR") = 1
 rs1.Update
Next i

'Scheitermost
 rs1.AddNew
 rs1("Kurzbezeichnung") = "ST" + Format(10)
 rs1("Bezeichnung") = "Scheitermosttank " + Format(10)
 rs1("BTNR") = 4
 rs1("MaxMenge") = 32000
 rs1("BevorzugterSortenTyp") = "Weiß"
 rs1("Reduktionsfaktor") = 1
 rs1("Pos_X") = 100
 rs1("Pos_Y") = 4100
 rs1("MengenEinheit") = "kg"
 rs1("BSNR") = 1
 rs1.Update



rs1.Close


End Sub



Sub PositionenTanksWinzerkeller()

Dim db1 As Database
Dim rs1 As Recordset
Dim i As Integer

Dim offset_x As Long
Dim offset_y As Long
Dim raster_x As Long
Dim raster_y As Long
Dim max_x As Long
Dim current_x As Long
Dim current_y As Long
Dim x As String

offset_x = 100
offset_y = 550
raster_x = 1700
raster_y = 1900
max_x = 14000
Set db1 = CurrentDb
For i = 1 To 2
Set rs1 = db1.OpenRecordset("SELECT * FROM TBehaelter WHERE BSNR=" + Format(i) + " order by BNR")
current_x = offset_x
current_y = offset_y
While Not rs1.EOF
 rs1.Edit
 rs1("Pos_X") = current_x
 rs1("Pos_Y") = current_y
 rs1.Update
 current_x = current_x + raster_x
 'If MsgBox("Momentaner Behälter=" + Format(rs1("Kurzbezeichnung")) + ". Zeilenumbruch?", vbYesNo) = vbYes Then
 '  current_x = offset_x
 '  current_y = current_y + raster_x
 'End If
 x = rs1("Kurzbezeichnung")
 
 If x = "MB6" Or x = "MB12" Or x = "RT5" Or x = "P4" Then
   current_x = offset_x
   current_y = current_y + raster_x
 End If
 
 
 If current_x > max_x Then
   current_x = offset_x
   current_y = current_y + raster_x
 End If
 rs1.MoveNext
Wend
rs1.Close
Next i




End Sub