problem sa input masko-m

imam neku formu koja nesto radi i kada odradi nesto izadje mi zeljeni msgbox

responde = MsgBox("Šifra - " & txtSifra & " još nije unešena u bazu!", vbInformation, "Obaveštenje!")

u formi ovaj txtSifra ima input mask koji ovako izgleda >L<" - "9999;;_ (prim. s-0005)
ali kada mi izadje msgbox ovako mi pise s0005! Kako da napravim da mi i u msgbox-u pise S-0005 poz

ovako:

responde = MsgBox("Šifra - " & UCase(txtSifra) & " još nije unešena u bazu!", vbInformation, "Obaveštenje!")

ukucao sam ali nista opet mi isto pokazuje! :-(

A da li su ti podaci sačuvani sa maskom ili bez maske?

Potpis

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...

bez maske! Da li je potrebno da i u tabeli stavim masku?

txtSifra = Left(UCase(txtSifra), 1) & "-" & Mid(txtSifra, 2)
responde = MsgBox("Šifra - " & UCase(txtSifra) & " još nije unešena u bazu!", vbInformation, "Obaveštenje!")

Potpis

zxz

U zavisnosti od toga šta dalje radiš sa tim podatkom i kako i gde ga koristiš moraćeš sam da proceniš da li je bolje da unosiš u tabelu sa maskom ili da ga svaki put izračunavaš kao što je izonic napisao.

Potpis

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...