Knutselwerkje KASSA

[mvdvlist]

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.

 

[edmoor]

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

 

[edmoor]

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

 

[mvdvlist]

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]

Dat klopt, maar kwa is ook geen Latijns

 

[mvdvlist]

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...

 

[alphamax]

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?

 

[mvdvlist]

Alphamax, uiteraard doe ik dat.

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

 

[mvdvlist]

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

 

[edmoor]

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

 

[femke98]

En ik zie helemaal niets behalve dit:

 

[edmoor]

Libre Office zal de VBA code niet uitvoeren.

 

[jkpieterse]

Zie bijlage voor voorbeeld klasse modules.

 

[JEC.]

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

Public WithEvents moButton As MSForms.CommandButton

Sub moButton_Click()
MsgBox moButton.Caption
End Sub

En dit achter je userform ben je er ook

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