Op m'n werkformulier (enkelvoudig) staan een aantal knoppen die een ander doorlopend formulier openen.
In dit geval : frm_email_communicatie bevat "ID - TYPE - OMSCHRIJVING - SELECTIEVAKJE.
De bedoeling is dat de communicatie vanuit het doorlopend formulier wordt weggeschreven naar de tabel historiek (tbl_bewegingen).
Ik gebruik hiervoor de volgende code:
De code werkt perfect: doch als ik meerdere selectievakjes (in het doorlopend formulier) wordt er steeds maar 1 record wegeschreven naar mijn historiek tabel.
Ik veronderstel dat m'n code niet volledig is. Graag raad aub.
In dit geval : frm_email_communicatie bevat "ID - TYPE - OMSCHRIJVING - SELECTIEVAKJE.
De bedoeling is dat de communicatie vanuit het doorlopend formulier wordt weggeschreven naar de tabel historiek (tbl_bewegingen).
Ik gebruik hiervoor de volgende code:
Code:
Private Sub btnCommunicatieEmailSelect_Click()
Dim gsSql As String
Dim rsRecord As DAO.Recordset
If Me.chkCommunicatieEmailSelect = True Then
gsSql = "SELECT* FROM tbl_bewegingen"
Set rsRecord = CurrentDb.OpenRecordset(gsSql)
With rsRecord
.AddNew
!ID_SOLLICITANT = Me.txtIDSollicitant
!ID_MEDEWERKER = Me.txtIDMedewerker
!MEDEWERKER_INITIALEN = Me.txtAangepastDoor
!ID_COMMUNICATIE = Me.txtCommunicatieID
!COMMUNICATIE_TYPE = Me.txtCommunicatieType
!COMMUNICATIE_OMSCHRIJVING = Me.txtCommunicatieOmschrijving
!DATUM_BEWEGING = Date
'!DOCUMENT = ""
.Update
End With
If Me.chkCommunicatieEmailSelect = True Then
Me.chkCommunicatieEmailSelect = False
End If
End If
DoCmd.Close acForm, Me.Name
End Sub
De code werkt perfect: doch als ik meerdere selectievakjes (in het doorlopend formulier) wordt er steeds maar 1 record wegeschreven naar mijn historiek tabel.
Ik veronderstel dat m'n code niet volledig is. Graag raad aub.
Laatst bewerkt: