• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Geeft een foutmelding

Status
Niet open voor verdere reacties.

mnemonic

Gebruiker
Lid geworden
25 mrt 2016
Berichten
114
Hallo,
Ondanks het lekkere weer zit ik toch achter mijn pc.
Ik heb van internet een programma afgehaald om die eens te bekijken.
Heb er het een en ander aan veranderd maar nu krijg ik een fout meldingen??
Als je op het bestandje klikt krijg je een het begin menu.
Als je op "wissen gegevens werkbon" krijg dit in beeld.
hier zit de optie "zoek gegevens"
Als je daar op klikt krijg je de eerste fout melding "no match found for"
Eigenlijk is dit geen fout maar hij vind geen gegevens?? terwijl hij dit wel heeft gedaan.
Dit komt nl door dat ik de eerst rij (rij 9) heb verwijderd.
Als je op de knop zoek gegevens drukt moeten de gegevens van blad "GegevensBon"weergegeven worden in de listbox.
Door in de listbox ergens te dubbelklikken zet je de gegevens in de textboxen eronder zo kun je de gegevens eventueel veranderen of te verwijderen.
Als je gegevens verwijderd werkt alles goed tot dat je de eerste regel verwijderd. Dan kan ik geen gegevens meer in de listbox krijgen en krijg ik "no march found for"
Als je op de knop overzicht Artikelen drukt zie je dat alles goed werkt totdat je de eerste regel weer verwijderd en dan krijg je een echte foutmelding
"An Error has Occurred The error number is 1004 Methode Range van object_Worksheet is mislukt please notify the administrator "
En dan krijgen we ook hier niks meer in de listbox.

Alle namen die in het bestandje voor komen zijn verzonnen namen.

Is er nog iemand die mij hiermee wil helpen? Alvast heel erg bedankt.


Jan
 

Bijlagen

  • test 2018.xlsm
    140,6 KB · Weergaven: 47
Ondanks het prachtige weer toch even voor je gekeken maar een eerste blik op de code achter dat formulier knop deed me volledig terugdeinzen.
 
Laatst bewerkt:
Jammer edmoor, maar bedankt dat je toch even gekeken hebt.
Zit het zo knullig in elkaar.
Tja ik ben een beginneling en vind dit best wel lastig maar wel een mooie materie.
Geniet nog maar even van het mooie weer:thumb:
 
Of het qua werking knullig is heb ik niet kunnen beoordelen.
Ik bedoel de schrijfwijze, alles strak onder elkaar en zonder inspringpunten.
Volledig onleesbaar dus.
 
Ik heb het bestand iets aangepast en ik hoop dat iedereen het iets beter kan lezen:eek:
Jan
 

Bijlagen

  • test 2018.xlsm
    148,4 KB · Weergaven: 51
Met inspringpunten worden geen lege regels bedoeld. Hieronder een voorbeeld van het gebruik ervan.

Code:
Sub Clear()
  For Each ctl In Me.Controls
    Select Case TypeName(ctl)
      Case "TextBox"
        ctl.Text = ""
      Case "ListBox"
        ctl.RowSource = ""
      Case "ComboBox"
        ctl.Value = ""
    End Select
  Next ctl
End Sub
 
Bedankt VenA voor je uitleg, duidelijk.
Zal proberen voortaan er rekening mee te houden.

snb bedankt voor je tip, ik ga er morgen eens naar kijken.

Jan
 
Heren bedankt voor uw adviezen ik heb er even naar kunnen kijken maar heb nog geen oplossing.
Helaas moet ik dit even op een laag pitje zetten ivm verhuizing.
Ondanks dat het nog niet opgelost is en ik er later nog naar ga kijken zet ik deze vraag als opgelost neer.
Nogmaals bedankt voor de reacties,
Jan
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan