Knutselwerkje KASSA

M

mvdvlist

Gebruiker

Lid geworden

16 dec 2016

Berichten

738

• 29 mei 2023

• #1

Hallo medeleden,

ik vind het gewoon leuk om dit te plaatsen.
Ben een beetje aan het knutselen geweest, en misschien vinden jullie het leuk.

Niks bijzonders, maar laat wel zien wat er ook mogelijk is...
Uiteraard kan het veel simpeler en beter qua codes, maar dat is juist de uitdaging.

 

Bijlagen

• KassaSimpel.xlsb

  125,7 KB · Weergaven: 64

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 29 mei 2023

• #2

Ik vind het al bijzonder dat je qua schrijft zoals het hoort.
Dat zie je niet veel

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 29 mei 2023

• #3

Dat document ziet er leuk uit.
Ik heb alleen even naar de werking gekeken en de kassabon bevat geen totaal bedrag.

 

M

mvdvlist

Gebruiker

Lid geworden

16 dec 2016

Berichten

738

• 29 mei 2023

• #4

Dat maakt het juist leuk. Zal het even checken, lukt niet meer vandaag. Juist van opbouwende kritiek leert men...
Overigens is Nederlandse taal in deze tijd helaas wel een dingetje. Ik denk dat het mensen niet meer interesseert.
Dat is het nadeel van Social Media ...Hoewel "qua" niet echt een Nederlands woord is...

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 29 mei 2023

• #5

Dat klopt, maar kwa is ook geen Latijns

 

Laatst bewerkt: 29 mei 2023

M

mvdvlist

Gebruiker

Lid geworden

16 dec 2016

Berichten

738

• 29 mei 2023

• #6

Mooi gevonden...

Vraagje:

Ik heb in dit werkboek een heleboel CommandButtons.

Die hebben allemaal een zelfde Event...
Best veel werk om die allemaal aan te passen indien nodig.

Ik heb begrepen dat zoiets ook kan met een Klassenmodule.

Weet jij of iemand anders daar een voorbeeld van?

Vervang die uit mijn voorbeeld dan eens... Ben benieuwd...

 

A

alphamax

Terugkerende gebruiker

Lid geworden

16 mrt 2011

Berichten

2.654

Besturingssysteem

Windows 11 en-US

Office versie

Office 2007 nl-NL

• 29 mei 2023

• #7

Kan je het bestand als .xlsm uploaden, ik heb grote problemen met het openen van .xlsb bestanden.

bevat onleesbare inhoud. Wilt u de inhoud van dit bestand hertellen?

Klik om te vergroten...

 

M

mvdvlist

Gebruiker

Lid geworden

16 dec 2016

Berichten

738

• 29 mei 2023

• #8

Alphamax, uiteraard doe ik dat.

Plezier ermee...en graag kritiek of verbeterpuntjes....

 

Bijlagen

• KassaSimpelXLSM.xlsm

  131,8 KB · Weergaven: 46

M

mvdvlist

Gebruiker

Lid geworden

16 dec 2016

Berichten

738

• 30 mei 2023

• #9

Edmoor, bij mij komt er wel een totaalbedrag uit...

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 30 mei 2023

• #10

Bij mij dus niet.
Ik selecteer 3x koffie.
Klik vervolgens op Aanslaan, dan afrekenen en wil een kassabon.

 

Bijlagen

• 
  KassaSimpel.jpg

  24,2 KB · Weergaven: 28

Laatst bewerkt: 30 mei 2023

femke98

Meubilair

Lid geworden

16 dec 2006

Berichten

6.679

• 30 mei 2023

• #11

En ik zie helemaal niets behalve dit:

 

Bijlagen

• 
  Schermafdruk van 2023-05-30 17-05-39.png

  135,8 KB · Weergaven: 26

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 30 mei 2023

• #12

Libre Office zal de VBA code niet uitvoeren.

 

J

jkpieterse

Terugkerende gebruiker

Lid geworden

18 mei 2015

Berichten

2.823

• 30 mei 2023

• #13

Zie bijlage voor voorbeeld klasse modules.

 

Bijlagen

• UserformControlEventClass.xlsm

  24,4 KB · Weergaven: 26

JEC.

Terugkerende gebruiker

Lid geworden

27 feb 2019

Berichten

4.330

Office versie

365

• 30 mei 2023

• #14

Gebaseerd op het bestand van @JKP. Met dit in je Class

Code:

Public WithEvents moButton As MSForms.CommandButton

Sub moButton_Click()
MsgBox moButton.Caption
End Sub

En dit achter je userform ben je er ook

Code:

Public mcolEvents As New Collection

Private Sub UserForm_Initialize()
 Dim ctl
 For Each ctl In Controls
    If TypeName(ctl) = "CommandButton" Then
        mcolEvents.Add New clsButtonEvents
        Set mcolEvents(mcolEvents.Count).moButton = ctl
    End If
 Next
End Sub

 

Laatst bewerkt: 30 mei 2023