Office: (Office 2003) Werte aus Formular in Tabelle schreiben

KASIC · 30. Oktober 2007

Ich möchte nach dem Klicken das sich das Formular nochmal aktualisiert, kein schließen und öffnen des Formulars. Was schreibt man unter das Klick-Ereignis?

ebs17 · 30. Oktober 2007

Code:

Me.Requery
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vergleiche Requery, Refresh in der Onlinehilfe

KASIC · 30. Oktober 2007

Danke das hab ich gesucht und es funktioniert auch.

KASIC · 31. Oktober 2007

Eine Sache funktioniert noch nicht, nämlich wie ich die Kommentarfelder einstelle das wenn jemand was dort einträgt es für alle anderen Anwender auch ersichtlich wird wenn es den RefreshButton tätigt?

ebs17 · 31. Oktober 2007

Damit andere Anwender die neuen Kommentare sehen können, muss die Info in eine Tabelle (des BE) geschrieben werden.

Dann muss der Anwender selber die Aktualisierung des Formulars mit Anzeige der Kommentarfelder veranlassen. Alternativ kann über einen Timer das Formular regelmäßig aktualisiert werden.

KASIC · 31. Oktober 2007

um es in BE zu schreiben verwende ich das textbox ereignis after_update
und beim öffnen des formulars nehme ich das open ereignis, habe ich das richtig verstanden?

ebs17 · 31. Oktober 2007

Wie bereits weiter oben gesagt: ich habe den Überblick verloren, wie bei Dir Werte in die Tabelle geschrieben werden und wie das Formular die Daten erhält. Es ging doch thematisch ganz schön hin und her.

Eine vernünftige Beschreibung des aktuellen Zustandes wäre hilfreich.

Beim FormOpen wird sowieso die Datenherkunft neu abgefragt. Das hieße aber, der Anwender müsste das Formular jedesmal neu öffnen. Ist das wünschenswert?

KASIC · 31. Oktober 2007

Ich habe gerade festgestellt das der RefreshButton doch nicht das tut was ich will. Ich bin davon ausgegangen das ich mit Me.Refresh bzw. Me.Requery ein OpenEreignis des Form. auslöse, aber anscheinend doch nicht. Ja ich will wenn es anders nicht lösbar ist, das man das Formular öffnet und schließt.
Hier ein Ausschnitt des OpenEreignisses des Formular:
Code:

Dim TagesFolder As String
Dim Datenbank As Database
Dim ProtSQL As String
Dim rst As DAO.Recordset

TagesFolder = Format(Date, "yyyymmdd")

Set Datenbank = CurrentDb
ProtSQL = "SELECT * FROM tbl_EOD Where TagesProtokoll_Datum = " & DatumSQL(Date) & ""

'Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_EOD Where TagesProtokoll_Datum = " & Str$(CDbl(Date)), dbOpenDynaset)
Set rst = Datenbank.OpenRecordset(ProtSQL)

With rst
If .EOF Then ' kein DS mit Date() vorhanden
rst.AddNew
rst.Fields("TagesProtokoll_Datum").Value = Date
txtHeutigesDatum = rst.Fields("TagesProtokoll_Datum")

If rst.Fields("OTC_ILS_YN").Value = False Then
rst.Fields("OTC_ILS_YN").Value = CheckFileExists(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
Else
rst.Fields("OTC_ILS_YN").Value = CheckFileExists(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
End If

If rst.Fields("OTC_ILS_YN").Value = True Then
txt_OTC_ILS = "Yes"
rst.Fields("OTC_ILS_TIME").Value = FindFlag(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
txt_OTC_ILS_Uhrzeit = rst.Fields("OTC_ILS_TIME")
Else
txt_OTC_ILS = "No"
rst.Fields("OTC_ILS_TIME").Value = Null
End If

else

rst.Edit

If rst.Fields("OTC_ILS_YN").Value = False Then
rst.Fields("OTC_ILS_YN").Value = CheckFileExists(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
Else
rst.Fields("OTC_ILS_YN").Value = CheckFileExists(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
End If

If rst.Fields("OTC_ILS_YN").Value = True Then
txt_OTC_ILS = "Yes"
rst.Fields("OTC_ILS_TIME").Value = FindFlag(MainPfad & "OTC_ILS\" & TagesFolder & "\" & "OTC_ILS.txt")
txt_OTC_ILS_Uhrzeit = rst.Fields("OTC_ILS_TIME")
Else
txt_OTC_ILS = "No"
rst.Fields("OTC_ILS_TIME").Value = Null
End If

rst.Update

'.. ändern
End If
.Close
End With
Set rst = Nothing
Set Datenbank = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und so schaut das Ereignis der Textbox aus (after_update)
Code:

Dim rst As DAO.Recordset
Dim Datenbank As Database
Dim sqltext As String

If txt_TicketBoxChecked = "Yes" Then
txt_TicketBoxChecked = "No"
txt_TicketBoxChecked_UhrZeit = ""
Else
txt_TicketBoxChecked_UhrZeit = Time
txt_TicketBoxChecked = "Yes"
End If

sqltext = "SELECT * FROM tbl_EOD Where TagesProtokoll_Datum = " & DatumSQL(Date) & ""
Set Datenbank = CurrentDb

'Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tabelle Where Datumsfeld = " & Str$(CDbl(Date)), dbOpenDynaset)
Set rst = CurrentDb.OpenRecordset(sqltext)

With rst
If .EOF Then ' kein DS mit Date() vorhanden
rst.AddNew

rst.Fields("Ticketbox_checked_YN").Value = txt_TicketBoxChecked
rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
rst.Update

'.. anlegen
Else 'DS vorhanden
rst.Edit
If txt_TicketBoxChecked = "Yes" Then
rst.Fields("Ticketbox_checked_YN").Value = True
rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
Else
rst.Fields("Ticketbox_checked_YN").Value = False
rst.Fields("Ticketbox_checked_TIME").Value = Null
End If
' rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
rst.Update

'.. ändern
End If
.Close
End With
Set rst = NothingDim rst As DAO.Recordset
Dim Datenbank As Database
Dim sqltext As String

If txt_TicketBoxChecked = "Yes" Then
txt_TicketBoxChecked = "No"
txt_TicketBoxChecked_UhrZeit = ""
Else
txt_TicketBoxChecked_UhrZeit = Time
txt_TicketBoxChecked = "Yes"
End If

sqltext = "SELECT * FROM tbl_EOD Where TagesProtokoll_Datum = " & DatumSQL(Date) & ""
Set Datenbank = CurrentDb

'Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tabelle Where Datumsfeld = " & Str$(CDbl(Date)), dbOpenDynaset)
Set rst = CurrentDb.OpenRecordset(sqltext)

With rst
If .EOF Then ' kein DS mit Date() vorhanden
rst.AddNew

rst.Fields("Ticketbox_checked_YN").Value = txt_TicketBoxChecked
rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
rst.Update

'.. anlegen
Else 'DS vorhanden
rst.Edit
If txt_TicketBoxChecked = "Yes" Then
rst.Fields("Ticketbox_checked_YN").Value = True
rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
Else
rst.Fields("Ticketbox_checked_YN").Value = False
rst.Fields("Ticketbox_checked_TIME").Value = Null
End If
' rst.Fields("Ticketbox_checked_TIME").Value = txt_TicketBoxChecked_UhrZeit
rst.Update

'.. ändern
End If
.Close
End With
Set rst = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P. · 31. Oktober 2007

Warum lagerst du den Code vom Open-Ereignis nicht in eine extra Methode aus und rufst sie auf, wenn du Bedarf verspürst?

Code:

Private sub FormularDatenAkualisieren()
...
Dein Code aus Form_Open(...)
...
end sub

Private Sub Form_Open(Cancel As Integer)
FormularDatenAkualisieren
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

KASIC · 31. Oktober 2007

Ich probier das mal eben aus.Danke ich meld mich gleich wieder

Office: (Office 2003) Werte aus Formular in Tabelle schreiben

Werte aus Formular in Tabelle schreiben

Werte aus Formular in Tabelle schreiben

Werte aus Formular in Tabelle schreiben

Werte aus Formular in Tabelle schreiben

Werte aus Formular in Tabelle schreiben - Similar Threads - Werte Formular Tabelle

Formular Berechnung

NACH Filter im Formular Min-Wert mit VBA

Wert aus Formular-Feld an SQL-Statement übergeben

Werte im Formular aus anderer Tabelle übernehmen

Formular Werte in Tabelle schreiben

Berechneter Wert im Formular in Tabelle speichern

Erstellen eines Textfelds in einem Formular, das einen Wert in einer Tabelle nachschlägt