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 30x)
citovat31985_sesit1s.zip (135kB, staženo 30x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zápis pomocí číselníku
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 31x)
31948_sesit1s.zip (134kB, staženo 31x)(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
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
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
Dim T()
T = Array("é", "+", "ľ", "š", "č", "ť", "ž", "ý", "á", "í")
ENTRANSLATE = LCase(HDN)
For i = 0 To 9
ENTRANSLATE = Replace(ENTRANSLATE, T(i), i)
Next i
End Functioncitovat
Č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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články