ik vraag me af wat de beste manier is om volgende situatie op te lossen
Ik heb een tabel met de gegevens van een leerling (ook zij ID)
en een tabel met diens stagegevens
op de fiche van de leerling staat een knop. Als je deze aanklikt zou eerst in "stage_gegevens" gekeken moeten worden of voor deze leerling stage-gegevens beschikbaar zijn
indien dit zo is dan zoue er zich een form moeten openen met de gegevens (die dan aangepast zouden kunnen worden)
zijn er geen gegevens beschikbaar dan zou er zich een form moeten openen waarin deze gegevens aangevuld kunnen worden
Ik vroeg me af wat de beste weg is om dit te bereiken
dit had ik al bin het laden van deze "gegevens-form":
([Forms]![leerlingen]![Identificatie] is een uniek nummer van een leerling)
Private Sub Form_Load()
Dim db As Database
Dim tb As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "SELECT Stage_evaluatie.*, Stage_evaluatie.nr_lln FROM Stage_evaluatie WHERE Stage_evaluatie.nr_lln = " & [Forms]![leerlingen]![Identificatie] & ";"
Set tb = db.OpenRecordset(sql)
If tb.RecordCount <> 0 Then
' hier zou het moeten gebeuren
else
' of hier
End If
End Sub
met dank
JP
Ik heb een tabel met de gegevens van een leerling (ook zij ID)
en een tabel met diens stagegevens
op de fiche van de leerling staat een knop. Als je deze aanklikt zou eerst in "stage_gegevens" gekeken moeten worden of voor deze leerling stage-gegevens beschikbaar zijn
indien dit zo is dan zoue er zich een form moeten openen met de gegevens (die dan aangepast zouden kunnen worden)
zijn er geen gegevens beschikbaar dan zou er zich een form moeten openen waarin deze gegevens aangevuld kunnen worden
Ik vroeg me af wat de beste weg is om dit te bereiken
dit had ik al bin het laden van deze "gegevens-form":
([Forms]![leerlingen]![Identificatie] is een uniek nummer van een leerling)
Private Sub Form_Load()
Dim db As Database
Dim tb As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "SELECT Stage_evaluatie.*, Stage_evaluatie.nr_lln FROM Stage_evaluatie WHERE Stage_evaluatie.nr_lln = " & [Forms]![leerlingen]![Identificatie] & ";"
Set tb = db.OpenRecordset(sql)
If tb.RecordCount <> 0 Then
' hier zou het moeten gebeuren
else
' of hier
End If
End Sub
met dank
JP