AW: Frage zu Datenbank
23.09.2006 22:08:33
Martin
Hallo Boris,
vielen Dank für deine prompte Antwort. Leider bin ich irgendwo zwischen Laie und vorgeschrittene Laie auf diesem Gebiet. Ich verstehe nicht ganz worauf du hinaus willst. Mein Code (Dank des Forums) sieht z.Zt. so aus:
Private Sub CommandButton2_Click() 'Alle Felder löschen
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
Private Sub CommandButton3_Click() 'Abbrechen
UserForm1.Hide
End Sub
Private Sub DatenSpeichern_Click() 'Eingaben Speichern
Application.ScreenUpdating = False
Sheets("PersDaten").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Main").Select
Range("A1").Select
ActiveWorkbook.Sheets("Eingaben").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = ComboBox1.Value
ActiveCell.Offset(0, 4) = TextBox8.Value
ActiveCell.Offset(0, 5) = TextBox4.Value
ActiveCell.Offset(0, 6) = TextBox5.Value
ActiveCell.Offset(0, 7) = TextBox7.Value
ActiveCell.Offset(0, 9) = TextBox9.Value
ActiveCell.Offset(0, 10) = TextBox10.Value
ActiveCell.Offset(0, 11) = ComboBox1.Value
ActiveCell.Offset(0, 12) = OptionButton1.Value
Range("A1").Select
TextBox1.SetFocus
Calculate
UserForm1.Hide
Sheets("Main").Select
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Daten").Range("E10")
TextBox2.Value = Sheets("Daten").Range("J10")
With ComboBox1
.AddItem "Zimmer 1"
.AddItem "Zimmer 2"
.AddItem "Zimmer 5"
.AddItem "Zimmer 6"
.AddItem "Zimmer 7"
.AddItem "Zimmer 8"
.AddItem "Zimmer 12"
.AddItem "Zimmer 14"
.AddItem "Zimmer 20"
End With
TextBox8.Value = Sheets("Daten").Range("E36").Text
TextBox4.Value = Sheets("Daten").Range("K14")
TextBox5.Value = Sheets("Daten").Range("J12")
TextBox7.Value = Sheets("Daten").Range("G31").Text
TextBox9.Value = Sheets("Daten").Range("F20").Text
TextBox10.Value = Sheets("Daten").Range("H20").Text
End With
ComboBox1.Value = Sheets("Daten").Range("E12")
OptionButton1.Value = Sheets("PersDaten").Range("M1")
OptionButton2.Value = Sheets("PersDaten").Range("N1")
TextBox1.SetFocus
End Sub
Wie du als Profi sicherlich sehen kannst, werden die Eingaben in die Tabelle ("Eingaben") eingeschrieben, eine nach der andere. Ich möchte erreichen, dass es nur so viele Eingaben gibt wie Zimmern. Wenn über die UF was neues eingegebn wird, sollte die Eingabe für den jeweiligen Zimmer aktualisiert werden. Soll so etwas wie ein Hotel-register werden. Hoffe du kannst helfen