Userform data/variabele verkeer

[Cor-Assa]

Ik krijg een fout melding 'Compileerfout: Sub of Function is niet gedefinieerd'

Dat betreft dan de KeyCode in regel 2.

Ik had eerst jouw regel over getikt, maar na die fout gekopieert, de fout blijft.

Bij mij is de eigenschap naam trouwens Opkomst maar dat mag neem ik aan niet uitmaken.

Moet ik die KeyCode soms nog ergens claimen?

De andere problemen zijn allemaal opgelost.

Misschien niet op een mooie manier maar het belangrijkste is voorlopig dat het werkt.

Later kan ik of iemand anders het desnoods aanpassen.

 

Bedankt en groetjes Cor

[Gast]

Cor,

Kijk eens naar de naam van de bovenste macro in mijn vb

en dan naar de regel van de keycode

If KeyCode = vbKeyReturn Then Klik_enter

Je moet dus de bovenste macro in je eigen vb de naam Klik_enter geven.

Klik_enter is de macro die wordt aangeroepen en die heb je niet in uw echt bestand.

 

 

[Cor-Assa]

22 minuten geleden, Grote Woef zei:

Cor,

Kijk eens naar de naam van de bovenste macro in mijn vb

en dan naar de regel van de keycode

If KeyCode = vbKeyReturn Then Klik_enter

Je moet dus de bovenste macro in je eigen vb de naam Klik_enter geven.

Klik_enter is de macro die wordt aangeroepen en die heb je niet in uw echt bestand.

 

 

Ach natuurlijk, sorry.

Het is allemaal zo makkelijk als je het weet.

Ik moet al die procedures nog door hebben, het schiet aardig op maar die soort lullige dingetjes struikel ik dan over.

En het is zo makkelijk.

 

[Cor-Assa]

Ik wil geen zeikerd zijn maar nu werkt alleen de ENTER toets nog maar en niet meer het klikken op de foto?

Moet ik daar dan diezelfde gegevens in zetten of enigszins aangepast?

Die Click functie doet nu natuurlijk niets meer.

Heet bij mij trouwens RegistratieKnop_Click()

 

Inderdaad, even gekopieerd en het werkt.

8 april 2018 aangepast door Cor-Assa

[Gast]

Je hebt me nog nooit iets gevraagd over klikken op een foto.

 

Hier een vb met een button. (uw foto klik macro naam)

Private Sub CommandButton1_Click()

hier uw foto klik code

End Sub

en

Private Sub T_03_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then CommandButton1_Click
End Sub

[Cor-Assa]

Bedankt Grote Woef maar het is al opgelost.

Dat klikken op de foto was in het begin stadium van het userform.

Maar ik heb de oplossing zelf gevonden, was gewoon de kommando's die jij had gemaakt voor de enter toets naar de foto regel kopieeren.

Het werkt.

 

Niet noodzakelijk maar er blijft nog 1 probleempje hangen;

Als je de barcode scan (of de code met de hand intikt) kan hij niet gelijk door naar starten van het userform, daar heb ik nu een knop voor.

Het zou mooier zijn als de volledige code is ingetikt of als er gescand is hij automatisch het userform opstart.

Als ik die optie probeer toe te passen dan start het userscherm al gelijk op bij de eerste toetsaanslag, of bij scannen dan scant hij een 0.

 

Hier is geen haast bij want het formulier werkt voorlopig zoals ik wil, maar wil het later perfectioneren en standaard maken dat het ook voor anderen en andere doeleinden gebruikt kan worden.

 

Gr. Cor Assa

[Gast]

Private Sub TextBox1_LostFocus()
corfrm.Show
End Sub