Beste
Onafhankelijk formulier waarop zich 1 combobox bevindt (unieke code) en een aantal selectievakjes.
Hieronder de code om ervoor te zorgen dat deze selectievakjes worden opgeslagen in de juiste tabel:
PROBLEEM: Bij het opslaan krijg ik telkens een foutmelding:
Bij foutopsporing, duid hij telkens deze regel aan:
Ik heb de .tag overal nagekeken evenals de namen van de tabellen, klopt allemaal.
Waar kan de fout nog zitten?
bedankt!
Onafhankelijk formulier waarop zich 1 combobox bevindt (unieke code) en een aantal selectievakjes.
Hieronder de code om ervoor te zorgen dat deze selectievakjes worden opgeslagen in de juiste tabel:
Code:
Private Sub cmdVerder_Click()
Dim lResponse As Integer
Dim sUniekeCode As String
Dim sTabel As String
lResponse = MsgBox("Verder gaan?", vbYesNo, "Verder gaan")
If lResponse = vbYes Then
If Nz(cmbCode, "") = "" Then
MsgBox ("Vul de unieke code in aub")
Exit Sub
Else
With CurrentDb.OpenRecordset(sTabel)
.AddNew
![Unieke Code] = cmbCode
![Fistel] = Me.checkboxFistel
![Abces] = Me.checkboxAbces
![Strictuur] = Me.checkboxStrictuur
![Gewrichtsaandoening] = Me.checkboxGewrichtsaandoeningen
![Uveitis] = Me.checkboxUveitis
![Erythema Nodosum] = Me.checkboxErythema
.Update
.Close
End With
End If
lResponse = MsgBox("Verder gaan naar Invoeren behandeling?", vbYesNo, "Verder gaan")
If lResponse = vbYes Then
sUniekeCode = Me.cmbCode
DoCmd.Close acForm, "F_InvoerenComplicatiesAandoeningen"
DoCmd.OpenForm "F_InvoerenBehandeling", , , , , , sUniekeCode
Else
DoCmd.Close acForm, "F_InvoerenComplicatiesAandoeningen"
DoCmd.OpenForm "F_Start"
End If
Else
Exit Sub
End If
End Sub
PROBLEEM: Bij het opslaan krijg ik telkens een foutmelding:
"Fout 3078 tijdens uitvoering: De microsoft Office Access-databank-Engine kan de invoertabel of -query niet vinden. Zorg ervoor dat deze bestaat en dat de naam correct is gespeld."
Bij foutopsporing, duid hij telkens deze regel aan:
Code:
[B] With CurrentDb.OpenRecordset(sTabel)[/B]
Ik heb de .tag overal nagekeken evenals de namen van de tabellen, klopt allemaal.
Waar kan de fout nog zitten?
bedankt!