dit werkt niet meer waarom

Status
Niet open voor verdere reacties.

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
 
Behalve je gruwelijk lelijke lay-out, staat je code ook nog eens niet in CODE tags. Doe dat als eerste, en stuur dan ook gelijk een database mee, want hoe moeten wij anders zien wat er aan de hand is?

Daarnaast is je SQL nou niet echt een filter, want je filtert nergens op. Maar ja, zonder voorbeeldje blijft het koffiedik kijken.
 
dit forum is nieuw voor mij ik doe mijn best

dit is de code
Code:
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

ik ga ook de db uplouden zoal gevraacht

al vast bedankt
 

Bijlagen

  • Haute Cuisine.zip
    1,4 MB · Weergaven: 16
Cuisine.mdb zit niet in je zip.

En kijk eens naar je spelling:

Raporten afdrukken
Afbeeling koppelen
Sijzoenen ingeven
Moejlijkhijdsgraad invoeren
Diepvries Label's Afdrukken
ztblWijzeging
 
Vraag me niet waarom, maar als je bij het ontwerp van frmGerechten de eigenschap Filter leeg maakt treedt de fout in ieder geval niet op. Garantie tot de hoek ........

Tip voor een volgende vraag: geef in ieder geval aan waar de fout optreedt (bestand, formulier) zodat we niet als een kip zonder kop op allerlei knoppen hoeven te klikken voordat de fout optreedt.
Een ontwerptip is wellicht om niet met nietszeggende controlnamen als Keuzelijst met invoervak124, Keuzelijst met invoervak135, Keuzelijst met invoervak297, Keuzelijst met invoervak131 et cetera te werken.
 
bedankt peter ik probeer dit uit

de fout treed op als je op gerecht invoeren en bewerken drukt

de code stopt op deze regel
Recordset.MoveLast

het rare is hij stopt op alles wat te maken heeft met verplaatsen van record
movefirst
FindFirst
...

mvg chris
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan