Office: (Office 2003) Besprechungsprotokoll DB

Helfe beim Thema Besprechungsprotokoll DB in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo! Das kann nicht so schwer sein. Ich habe das vor einiger Zeit (in der selben Beispieldatenbank) so gelöst: Code: Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 9. September 2010.

Seite 3 von 4

CLAYPOOL

Claypool

Besprechungsprotokoll DB

Hallo!

Das kann nicht so schwer sein. Ich habe das vor einiger Zeit (in der selben Beispieldatenbank) so gelöst:

Code:

Claypool, 26. September 2010

#31
ERICH290607

Erich290607

Hallo Ingo,

baue mir das mal in die Bsp DB, ich komme da durcheinander

Bitte!

Erich290607, 26. September 2010

#32
CLAYPOOL

Claypool

Hallo!

Code:

Claypool, 26. September 2010

#33
ERICH290607

Erich290607

Besprechungsprotokoll DB

von Claypool

Hallo!

Das kann nicht so schwer sein. Ich habe das vor einiger Zeit (in der selben Beispieldatenbank) so gelöst:

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

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Erich290607, 26. September 2010

#34
ERICH290607

Erich290607

schaut mal, das ist noch immer unsicher und unschön
wirklich neu wird da nichts angelegt angefügt ja

Erich290607, 26. September 2010

#35
ERICH290607

Erich290607

#35 Ergänzend

habe Sub Prozedur (Sub rec_Update) eingebaut, und dort erhalte ich Fehler
Datensatz kann nicht hinzugefügt oder geändert werden, da ein Datensatz in Beziehung stehen muss

Code:

Private Sub btnNeu_Click()
Dim strSQL As String

If MsgBox("Beprechungstitel, TPM - Regeltermin" & vbCrLf & _
"Übernehmen ? ", vbInformation + vbYesNo, "Besprechungstitel") = vbYes Then

DoCmd.GoToRecord , , acNewRec
Me!Besprechungstitel.Value = "TPM - Regeltermin"
Me!BesprechungsDatum = Date
Me!tkw = Format(DKW([BesprechungsDatum]), "00")

rec_Update 'Public Sub rec_Update

Else
MsgBox "Erst den Datensatz anlegen!", vbExclamation, "Fehler"
Me!Besprechungstitel.SetFocus
End If

End Sub

Public Sub rec_Update()
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("qryTeilnehmerStandard") 'Kriterien sind in der Abfrage enthalten
Set rst = CurrentDb.OpenRecordset("tblBesprechungsteilnehmer")

If Me!BesprechungID 0 Then 'kein neuer Datensatz
rs.MoveFirst
Do Until rs.EOF
rst.AddNew
rst!BesprechungID = Me!BesprechungID
rst!MitarbeiterID = rs!MitarbeiterID
rst!BesprechungsteilnehmerfunktionID = rs!FunktionID
rst.Update 'Fehler 3201
rs.MoveNext
Loop

Form_frmBesprechungen_Besprechungsteilnehmer.Recalc
End If

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

Erich290607, 26. September 2010

#36
CLAYPOOL

Claypool

Hallo!

von Erich290607

ich bekomme da zu viele für die neue Besprechung
meine Anpassung.......

was steht in deiner qry_TeamAuswahl?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lies meinen Beitrag von oben nach unten und von links nach rechts. Hinter dem "Set rs = CurrentDb.OpenRecordset("qry_TeamAuswahl")" steht als Kommentar "Kriterien sind in der Abfrage enthalten"
Trage in die Abfrage als Kriterium bei FunktionID "1 oder 2" (ohne Anführungszeichen) ein. Dann erhältst du die korrekte Anzahl der Mitarbeiter.

Trage nach Code:

If Me!BesprechungID 0 Then 'kein neuer Datensatz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das hier ein Code:

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

.

Grüße
Ingo

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Claypool, 26. September 2010

#37
ERICH290607

Erich290607

Besprechungsprotokoll DB

sorry aber da läuft garnichts mehr

Erich290607, 26. September 2010

#38
CLAYPOOL

Claypool

Hallo!

Tja, was soll ich denn jetzt machen? Vielleicht könntest du mal genau erklären, was alles gar nicht mehr läuft.

Prinzip: Zuerst muss ein neuer Datensatz angelegt werden, sonst ist die neue BesprechungsID nicht bekannt. Erst dann können Mitarbeiter der Besprechung automatisiert hinzugefügt werden.

Grüße
Ingo

PS: Streng dich an, sonst hilft dir niemand mehr.
PPS: Ich habe Beitrag #37 editiert.

Claypool, 26. September 2010

#39
MICHA_DU

Micha_DU

baue mir das mal in die Bsp DB, ich komme da durcheinander
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also ehrlich Erich... das ist ja schon unverschämt. Es ist wie immer... du wartest auf fertige Lösungen und versteht sie überhaupt nicht.

Micha_DU, 26. September 2010

#40
ERICH290607

Erich290607

von Micha_DU

also ehrlich Erich... das ist ja schon unverschämt. Es ist wie immer... du wartest auf fertige Lösungen und versteht sie überhaupt nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Micha,

du hast völlig Recht möchte mich hiermit für meine unverschämtheit bei all diejenigen Entschuldigen die in diesem Thread zur Lösung verhelfen wollten.

Habe die Nuss Dank Ingo geknackt!

Die fertige Lösung: dabei war dies der Entscheidende Befehl zum Ergebnis

Code:

'---------------------------------
'Datensatz speichern ------
'---------------------------------
DoCmd.RunCommand acCmdSaveRecord
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim strSQL As String
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset

If MsgBox("Beprechungstitel, TPM - Regeltermin" & vbCrLf & _
"Übernehmen ? ", vbInformation + vbYesNo, "Besprechungstitel") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Me!Besprechungstitel.Value = "TPM - Regeltermin"
Me!BesprechungsDatum = Date
Me!tkw = Format(DKW([BesprechungsDatum]), "00")

'---------------------------------
'Datensatz speichern ------
'---------------------------------
DoCmd.RunCommand acCmdSaveRecord

'---------------------------------
'Standardteilnehmer anfügen ------
'---------------------------------
UpdateTeilnehmer

Else

MsgBox "Erst den Datensatz anlegen, dann die Teilnehmer auswählen!", vbExclamation, "Fehler"
Me!Besprechungstitel.SetFocus
End If

End Sub

Public Sub UpdateTeilnehmer()
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim tmp As Long

tmp = Me!BesprechungID

Debug.Print tmp

Set rs = CurrentDb.OpenRecordset("qryTeilnehmerStandard") 'Kriterien sind in der Abfrage enthalten
Set rst = CurrentDb.OpenRecordset("tblBesprechungsteilnehmer")

If Me!BesprechungID 0 Then 'kein neuer Datensatz
rs.MoveFirst
rs.FindFirst "FunktionID=" & Form![frmBesprechungen_Besprechungsteilnehmer]!cbo_TeamAuswahl 'Das entspricht deiner FunktionID

rs.MoveFirst
Do Until rs.EOF
rst.AddNew
rst!BesprechungID = Me!BesprechungID
rst!MitarbeiterID = rs!MitarbeiterID
rst!BesprechungsteilnehmerfunktionID = rs!FunktionID
rst.Update
rs.MoveNext
Loop

Form_frmBesprechungen_Besprechungsteilnehmer.Recalc
Form_frmBesprechungen_Besprechungsteilnehmer.Requery
End If

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

habe so 6 Datensätze anlegen können, und die Standard Teilnehmer angefügt
das prüfen der Tabelle hat die plausibilität bestätigt. Bin begeistert.

Danke Ingo, und Entschuldigung nochmals an dieser Stelle

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Erich290607, 27. September 2010

#41
CLAYPOOL

Claypool

Hallo!

Folgende Ergänzungen/Anmerkungen in rot:

von Erich290607

Die fertige Lösung: dabei war dies der Entscheidende Befehl zum Ergebnis

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

'---------------------------------
'Datensatz speichern ------
'---------------------------------
DoCmd.RunCommand acCmdSaveRecord
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nimm stattdessen Code:

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

von Erich290607

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

Dim strSQL As String
Nimm das "Dim strSQL As String" raus, das brauchst du schon lange nicht mehr.
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset

If MsgBox("Beprechungstitel, TPM - Regeltermin" & vbCrLf & _
"Übernehmen ? ", vbInformation + vbYesNo, "Besprechungstitel") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Me!Besprechungstitel.Value = "TPM - Regeltermin"
Me!BesprechungsDatum = Date
Me!tkw = Format(DKW([BesprechungsDatum]), "00")

'---------------------------------
'Datensatz speichern ------
'---------------------------------
Me.Dirty=False

'---------------------------------
'Standardteilnehmer anfügen ------
'---------------------------------
UpdateTeilnehmer

Else

MsgBox "Erst den Datensatz anlegen, dann die Teilnehmer auswählen!", vbExclamation, "Fehler"
Me!Besprechungstitel.SetFocus
End If

End Sub

Public Sub UpdateTeilnehmer()
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim tmp As Long

tmp = Me!BesprechungID

Debug.Print tmp

Set rs = CurrentDb.OpenRecordset("qryTeilnehmerStandard") 'Kriterien sind in der Abfrage enthalten
Set rst = CurrentDb.OpenRecordset("tblBesprechungsteilnehmer")

If Me!BesprechungID 0 Then 'kein neuer Datensatz
rs.MoveFirst
rs.FindFirst "FunktionID=" & Form![frmBesprechungen_Besprechungsteilnehmer]!cbo_TeamAuswahl 'Das entspricht deiner FunktionID
Hast du in deiner Datenbank ein Kombinationsfeld cbo_TeamAuswahl eingefügt?
rs.MoveFirst
2 x MoveFirst? Nimm das letzte MoveFirst weg.
Do Until rs.EOF
rst.AddNew
rst!BesprechungID = Me!BesprechungID
rst!MitarbeiterID = rs!MitarbeiterID
rst!BesprechungsteilnehmerfunktionID = rs!FunktionID
rst.Update
rs.MoveNext
Loop

Form_frmBesprechungen_Besprechungsteilnehmer.Recalc
Ein Recalc dürfte reichen, Requery ist m.E. nicht notwendig.
Form_frmBesprechungen_Besprechungsteilnehmer.Requery
End If

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

Das der Datensatz erst einmal gespeichert werden muss, bevor man die Mitarbeiter einfügt, hatte ich #31 ganz unten bereits geschrieben (Von oben nach unten und von links nach rechts lesen...)

Du musst die Recordsets noch schließen. Hatte ich vergessen.

Grüße
Ingo

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Claypool, 27. September 2010

#42
CPTCHAOS

CptChaos

Besprechungsprotokoll DB

Anmerkung:
Me.Dirty = False und DoCmd.RunCommand acCmdSaveRecord sind 2 unterschiedliche Befehle und haben auch eine andere Auswirkung!

CptChaos, 27. September 2010

#43
ERICH290607

Erich290607

von CptChaos

Anmerkung:
Me.Dirty = False und DoCmd.RunCommand acCmdSaveRecord sind 2 unterschiedliche Befehle und haben auch eine andere Auswirkung!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

worin besteht denn der Unterschied in der Auswirkung, bzw. was passiert bei Me.Dirty ?

Danke auch noch mal, für das bereinigen hier im Thread
habe nun alles korregiert

nun versuche ich das auch für die Tagespunkte, da diese für TPM immer gleich bleiben, warum also auswählen nur wenn ein anderweitiges Protokoll angelegt werden soll muss eben manuell ausgewählt werden.
im Grunde ist das prinzip das gleiche?

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Erich290607, 27. September 2010

#44
CPTCHAOS

CptChaos

Aus der Onlinehilfe:

von OH

Mit der Dirty-Eigenschaft können Sie ermitteln, ob der aktuelle Datensatz seit dem letzten Speichern verändert wurde. Boolean-Wert mit Lese-/Schreibzugriff.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein acCmdSaveRecord speichert den Record/Datensatz

CptChaos, 27. September 2010

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 4

Thema:

Besprechungsprotokoll DB

Die Seite wird geladen...

Besprechungsprotokoll DB - Similar Threads - Besprechungsprotokoll
Besprechungsprotokoll
in Microsoft Teams Hilfe
Besprechungsprotokoll: Liebe Community, gibt es eine Möglichkeit nach ein Besprechung ein Protokoll von dieser einzusehen? Sprich "wer war wann anwesend", "wer hat wen stummgeschaltet", "wer hat wen aus der Besprechung...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden