Textbox-Value will nicht in Access-Datenbank

Private Sub CommandButton1_Click() If Not IsNumeric(Me.Kollegen) Then MsgBox ("Ungültige Eingabe - bitte nur Zahlen eingeben") ElseIf IsNumeric(Me.Kollegen) Then With fRecordSet("Befragung") .AddNew !Datum = Now !Empfinden = f2 !Zufrieden = f3 !Freifeld = IDBox.Value !Kollegen = Kollegen.Value .Update .Close End With MyVar = Empty Unload Me Application.Wait Now + TimeSerial(0, 0, 8) Startscreen.Show End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ach so, ich lade mal den gesamten Code hoch (und nochmals Danke für deine Mühe):
Modul Variablen deklariert die Variablen:

Public f1 As String, f2 As Integer, f3 As Integer

Los geht es mit dieser Arbeitsmappe:

Sub Workbook_Open()
Sheets("Daten").Select
Startscreen.Show
End Sub

Weiter geht es mit dem Startscreen:

Private Sub UserForm_Initialize()
With Me
.Width = Application.Width
.Height = Application.Height
End With
End Sub
Private Sub UmfrageStarten_Click()
Unload Me
Frage1.Show
End Sub

Es folgt Frage 1 (eine Frage mit sechs vorgegebenen Antwortmöglichkeiten):

Private Sub OptionButton1_Click()
f2 = 1
Unload Me
Frage2.Show
End Sub
Private Sub OptionButton2_Click()
f2 = 2
Unload Me
Frage2.Show
End Sub
Private Sub OptionButton3_Click()
f2 = 3
Unload Me
Frage2.Show
End Sub
Private Sub OptionButton4_Click()
f2 = 4
Unload Me
Frage2.Show
End Sub
Private Sub OptionButton5_Click()
f2 = 5
Unload Me
Frage2.Show
End Sub
Private Sub OptionButton6_Click()
f2 = 6
Unload Me
Frage2.Show
End Sub

Es folgt Frage 2 (wieder sechs Antwortmöglichkeiten):

Private Sub OptionButton1_Click()
f3 = 1
Unload Me
Frage3.Show
End Sub
Private Sub OptionButton2_Click()
f3 = 2
Unload Me
Frage3.Show
End Sub
Private Sub OptionButton3_Click()
f3 = 3
Unload Me
Frage3.Show
End Sub
Private Sub OptionButton4_Click()
f3 = 4
Unload Me
Frage3.Show
End Sub
Private Sub OptionButton5_Click()
f3 = 5
Unload Me
Frage3.Show
End Sub
Private Sub OptionButton6_Click()
f3 = 6
Unload Me
Frage3.Show
End Sub

Es folgt Frage 3 (ein Textfeld (=IDBox) soll gefüllt werden, per Klick auf die Schaltfläche wird bestätigt):

Private Sub CommandButton2_Click()
Unload Me
Frage4.Show
End Sub

Es folgt die letzte Frage, wo ein Textfeld mit Zahlen und eines mit Buchstaben gefüllt werden soll:

Public Function fRecordSet(DBTabelle As String) As DAO.Recordset
DBPfad = "C:\Users\Besucher\Pictures\Saved Pictures\"
DBName = "Befragung"
Dim DB As DAO.Database
Set DB = OpenDatabase(DBPfad & DBName, False, False)
Set fRecordSet = DB.OpenRecordset(DBTabelle)
End Function
Private Sub CommandButton1_Click()
If Not IsNumeric(Me.Kollegen) Then
MsgBox ("Ungültige Eingabe - bitte nur Zahlen eingeben")
ElseIf IsNumeric(Me.Kollegen) Then
With fRecordSet("Befragung")
.AddNew
!Datum = Now
!Empfinden = f2
!Zufrieden = f3
!Freifeld = IDBox.Value
!Kollegen = Kollegen.Value
.Update
.Close
End With
MyVar = Empty
Unload Me
Application.Wait Now + TimeSerial(0, 0, 8)
Startscreen.Show
End If
End Sub

Ich hoffe, so wird es ersichtlich.
Liebe Grüße
J_Münni

Beliebteste Forumthreads (12 Monate)

Textbox-Value will nicht in Access-Datenbank

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox-Value will nicht in Access-Datenbank

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread