• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: zápis pomocí číselníku

Zaslal/a klomi 30.6.2016 9:05

Zdravím všechny,
chtěl bych poprosit o pomoc. Připravuju takovou ukázku na příjmu a výdeje materiálu na pracovišti, ale zasekl jsem se na takové prkotině jako je číselník.

Můj záměr je, aby při otevření formuláře byl aktivní textbox a při načtení čárového kódu čtečkou se zapsala hodnota kódu do textboxu a následovala nějaká akce(např. otevření dané položky).
V případě že by se kód z nějakého důvodu nechtěl načíst tak bych chtěl nechat možnost ručního zadání pomocí číselníku. Po potvrzení by následovala stejná akce jako při načtení kódu.

Teď co bych od Vás potřeboval. Nepodařilo se mi docílit toho, aby mi číselník psal hodnoty za sebe. Pouze přepisuje již zapsané hodnoty (viz přiložený soubor).
A dále vůbec netuším jak udělat to, aby po načtení kódu se udělal nějaká akce aniž by byla nutnost potvrzení. Například otevření dalšího formuláře.

Předem díky za pomoc. Pokud je to vůbec možné :D

Edit: JEště jedna maličkost. Ta čtečka mi píše hodnoty z anglický klávesnice. například místo "14001" mi napíše "+čéé+".
Je nějaký způsob jak to obejít ve VBA než abych musel nechat anglickou klávesnici?

Příloha: 31948_sesit1s.zip (134kB, staženo 30x)

Zaslat odpověď >

---

ji026441(6.7.2016 20:34)#031985

Tady jsou opravená ta tlačítka. Čárové kódy nemohu vyzkoušet, protože je nemám. Pošli mi nějaký.

Příloha: 31985_sesit1s.zip (135kB, staženo 29x)

citovat

nunun67(7.7.2016 12:57)#031986

vyskousej kod:
Private Sub txb_Artikl_AfterUpdate()
Dim sCode As String 'kod zczytany
Dim sUcode As String 'kod DUZYMI LITERAMI
Dim sNote As String 'informacja o bledzie
Dim Licznik As Long 'licznik kolejnosci wprowadzania danych

sCode = Me.txb_Artikl.Value
sUcode = UCase(sCode)
If sCode = "+čéé+" Then sCode = "14001"
If sCode = "14001" Then
MsgBox "OK" 'tu miejsce na wykonanie twego makra
Else
'nierozpoznany barcode
sNote = "Unrecognized code !"
MsgBox sNote
End If

End Subcitovat

elninoslov(8.7.2016 0:49)#031990

Function ENTRANSLATE(HDN As String) As String
Dim T()
T = Array("é", "+", "ľ", "š", "č", "ť", "ž", "ý", "á", "í")
ENTRANSLATE = LCase(HDN)
For i = 0 To 9
ENTRANSLATE = Replace(ENTRANSLATE, T(i), i)
Next i
End Functioncitovat

klomi(28.7.2016 7:19)#032142

Čaute,

díky za příspěvky jen se chci zeptat. Tu funkci jsem vložil do Modulu, ale nějak si nevím rady jak jí použít tak, aby se mi to přepisovalo v textboxu ve formuláři.

Díky snad je to poslední :Dcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse