chrisj8727
Gebruiker
- Lid geworden
- 8 nov 2022
- Berichten
- 5
er komt nu steeds een fout melding op deze regel vroger niet waarom?
wat is er fout.
Recordset.MoveLast
Private Sub Form_Open(Cancel As Integer)
lngAfdruk = "0"
DoCmd.ApplyFilter "SELECT DISH.*, GerechtMeer.* FROM DISH LEFT JOIN GerechtMeer ON DISH.Code = GerechtMeer.GerechtNr ORDER BY DISH.Code;"
Recordset.MoveLast
LastRec = Code.Value
Tekst351.Value = LastRec
Recordset.MoveFirst
FiguurNaam = [sfrmMULTMED].[Form]![pathnaam]
If FiguurNaam = Null Or FiguurNaam = ":\" Then
Afbeelding203.Picture = ""
Else
Afbeelding203.Picture = FiguurNaam
End If
DoCmd.ApplyFilter "SELECT DISH.*, GerechtMeer.* FROM DISH LEFT JOIN GerechtMeer ON DISH.Code = GerechtMeer.GerechtNr ORDER BY DISH.name;"
cmbPagina_1_Click
End Sub
wat is er fout.
Recordset.MoveLast
Private Sub Form_Open(Cancel As Integer)
lngAfdruk = "0"
DoCmd.ApplyFilter "SELECT DISH.*, GerechtMeer.* FROM DISH LEFT JOIN GerechtMeer ON DISH.Code = GerechtMeer.GerechtNr ORDER BY DISH.Code;"
Recordset.MoveLast
LastRec = Code.Value
Tekst351.Value = LastRec
Recordset.MoveFirst
FiguurNaam = [sfrmMULTMED].[Form]![pathnaam]
If FiguurNaam = Null Or FiguurNaam = ":\" Then
Afbeelding203.Picture = ""
Else
Afbeelding203.Picture = FiguurNaam
End If
DoCmd.ApplyFilter "SELECT DISH.*, GerechtMeer.* FROM DISH LEFT JOIN GerechtMeer ON DISH.Code = GerechtMeer.GerechtNr ORDER BY DISH.name;"
cmbPagina_1_Click
End Sub