Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Access Textbox problemcic

[es] :: Access :: Access Textbox problemcic

[ Pregleda: 1851 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.dynamic.isp.telekom.rs.



Profil

icon Access Textbox problemcic16.09.2013. u 00:38 - pre 128 meseci
Problem je sledeci:
u textbox polje se upisuje neki "text" iz tri dela (primer: 123-GP1-2013)
prvi deo 123 - sadrzi samo cifre i krece od 1 do 6 karaktera (od 1 do 999999)
drugi deo GP1 - ta 3 znaka mogu da budu il GP1 il GP2
treci deo 2013 - to je godina
e sad hocu da namestim posto je samo promenjiv prvi i drugi deo 123 (iz primera) i GP1 (GP2) da ako korisnik ne unese ceo broj 123-GP1-2013 nego unese recimo 1234 da pri izlasku iz textboxa ispise u njemu 1234-GP1-2013.
znaci da automatski stavi GP1 a ako naimenuje recimo 123-GP2 i da se u textbox polje automatski upise 123-GP2-2013.
da li je to izvodljivo?
Unapred hvala
GYGY
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Access Textbox problemcic16.09.2013. u 15:32 - pre 128 meseci
Umesto jednog, koristis 3 polja:
txtBroj (validation rule Broj>0, Broj <=999999)
txtGP (text; validation rule: txtGP IN ('GP1','GP2') ; DEFAULT 'GP1')
txtGodina (datetime; Validation Rule: txtGodina = 2013; DEFAULT = 2013)

Ako vec dozvoljavas da korisnik preskoci unos GP i Godine, pa ond sam hoces da uneses vrednosti, to znaci da ti te vrednosti i nisu vazne - nisu obavezne da se unesu, a ako se ne unesu ti 'znas' sta treba da se unese - nema bas mnogo smisla zar ne? U tom slucaju zadatak se znatno pojednostavljuje - cuvas i unosis samo brojcani deo, a na kraju u kveriju pokazes vrednosti kao 999999-GP1-2013.

 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.175.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Access Textbox problemcic17.09.2013. u 20:57 - pre 128 meseci
problemcic
Code:
Private Sub Textbox_Change()
Dim X As Integer
Dim GP As String
Dim temp As String

X = Textbox.SelStart
If X > 2 And X < 5 Then
Me.Textbox.SelStart = 0
Me.Textbox.SelLength = X
temp = Me.Textbox.SelText
GP = "-GP" & (5 - X) & "-"
temp = temp & GP & Year(Date)
Me.Textbox = temp
Me.Textbox.SelStart = X
End If
End Sub


zxz
 
Odgovor na temu

[es] :: Access :: Access Textbox problemcic

[ Pregleda: 1851 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.