Dan79 01.04.2015 13:30
Predmet:Re: Prihodi i rashodi

uf kako to da napravim da dobijem da moram upisati pocetno slovo ili cijelu rijeć?
(dok sam ja pisao ti si odgovorio)

još pitanja uz telefonski broj prebacio sam polje telefon u short text i u formatu sam stavio (@@@) @@@-@@@@.
e sad sto mene muci recimo ovako u Zagrebu broj telefona ide ovako 01 555-555 meni u tom formatu osoji ovako (015)555 -555 kao da to ispavim jer moram imati mogucnosti predbroj imati sa 3 znamenke (098)555-5555
znam da moram staviti neki znak ali koji gdje :)?

Gjoreski 01.04.2015 13:56
Predmet:Re: Prihodi i rashodi

Nisam te razumeo napisi sta ti dobbijes a sta treba da dobijes sa ovaj broj.
Imas razlicita nacina formatirajna.

Dan79 01.04.2015 13:59
Predmet:Re: Prihodi i rashodi

Citiraj Gjoreski:
Nisam te razumeo napisi sta ti dobbijes a sta treba da dobijes sa ovaj broj.
Imas razlicita nacina formatirajna.
znaci trebam imati format za ove brojeve telefona 01 555-5555 i 098 555 5555

Dan79 01.04.2015 14:09
Predmet:Re: Prihodi i rashodi

ovaj gumb mi se sviđa :P ponisti (isprazni).
reci mi dali ja mogu ponisti i ostale podatke s njime (ime,prezime ...)?
znaci trenutni trazeni podaci se trebaju ponistiti s T_Posao samo kad stisnem taj gumb.
"
PreuzmiIzvorni kôd (vbnet):
  1.  Private Sub cmdPoniÅ¡ti_Click()
  2. Me.TIme = Null
  3. Me.TPrezime = Null
  4. Me.tStatus = Null
  5. 'ako ovdje dodam ispod recimo ovo?
  6. Me.txtIme = Null
  7. Me.txtPrezime = Null
  8. 'znaci da mi poništi trenutni podatak,pokušao sam ali mi baca grešku
  9.  
  10. End Sub

pmiroslav 01.04.2015 10:58
Predmet:Re: Prihodi i rashodi

Na kod za Unload dodaj dio za zaobilaženje pogreške. Obrati pažnju na

On Error GoTo Err

i na kraju
Err:
Exit Sub

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. On Error GoTo err
  3.     Dim ID
  4.     ID = Me.ID
  5.     If Trim(Format$(ID)) <> "" Then
  6.     Forms![F_Posao]![RadnoMjesto] = Me.ID
  7.     Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource
  8.         End If
  9. err:
  10.    Exit Sub
  11.   End Sub

Dan79 01.04.2015 11:58
Predmet:Re: Prihodi i rashodi

ok rijesio to ali mi i dalje nezeli traziti po statusu eto okaciti cu primjer
ne gledajete forms Smiling to je još u pokusaju izrade :PPP
Prilozi:
Baza(loz)3.rar (Velicina datoteke:67.06 KB)

pmiroslav 01.04.2015 12:44
Predmet:Re: Prihodi i rashodi

Na nađe ti podatak po statusu zato Å¡to ti je u tablici T_Posao polje Status ComboBox i DataType ti je Number (Broj). Zbog toga je u tablici spremljen ID iz t_status (1,2,3,4 itd). Ako u formi F_Posao kod pretrage upiÅ¡eÅ¡ broj koji ide uz status vidjet ćeÅ¡ da če tri pronači podatak.

Zato TStatus pretvori u ComboBox sa slijedečim paramerima:
Name: TStatus
Cintrol Source: Prazno
Row Source Type: Value List
Row Source: 1;"Prihvačen";2;"Odbijen";3;"Odustao"
Column Count: 2
Column Heads: No
Column Widths: 0cm;3cm
Bound Column:1

Također predlažem da na F_Posao dodaÅ¡ joÅ¡ dugme CmdIsprazni ispod kojega ide Kod
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub CmdIsprazni_Click()
  2. Me.TIme = Null
  3. Me.TPrezime = Null
  4. Me.tStatus = Null
  5. End Sub

pmiroslav 01.04.2015 18:40
Predmet:Re: Prihodi i rashodi

Å to se tiče dugmeta PoniÅ¡ti stvar je ovakva.
- Ime dugmeta (Name) stavio si cmdPoniÅ¡ti, a treba izbjegavati naÅ¡a slova č, đ, Å¡ itd. Isto se odnosi i na nazive tablica, formi , querya, reporta. Naslov na dugmetu (Caption) može biti kako hoćeÅ¡.
- Me.TIme = Null i Me.TPrezime = Null isprazni sadržaj text box-a koji je Unbound odnosno nije povezan sa podatkom iz tablice .
- Text Box Ime i Text Box Prezime prikazuju podatke koji su upisani u tablicu T_Posao i komandom Me.txtIme = Null zapravo brišeš podatak iz navedene tablice. U tablici za navedena polja su ti postavljeni parametri da ne mogu biti prazna.
Validation Rule: Is Not Null ( ne može biti prazno)
Validation Text: Morate upisati ime
Required: Yes (obavezan upis)

Znači u tablici T_Posao ne možeÅ¡ brisati Ime ili prezime već samo cijeli red.

pmiroslav 02.04.2015 06:13
Predmet:Re: Prihodi i rashodi

Citiraj Dan79:
Citiraj Gjoreski:
Nisam te razumeo napisi sta ti dobbijes a sta treba da dobijes sa ovaj broj.
Imas razlicita nacina formatirajna.
znaci trebam imati format za ove brojeve telefona 01 555-5555 i 098 555 5555
Ne možeÅ¡ jedno polje formatirati za dva načina upisa. Broj telefona ima različite varijacije
01/555-5555
031/222-333
035/222-5555
i brojevi mobitela imaju iza pozivnog broja 6 ili 7 znamenki- Zato ****lje da to ostaviš bez formatiranja.

Gjoreski 02.04.2015 10:43
Predmet:Re: Prihodi i rashodi

Moze toa da se izvede samo e malku komplicirano.
Jas vo eden program imav nesto slicno za resavajne i go resiv na sledniov nacin.
Vo makedonija broevite doagaat se formatirani vaka.
Dokolku brojot e od stara lokalna centrala doaga vo format 000000 ili ako e mnogu stara centrala e 00000
znaci imame 6 i 5 brojki (ova vazi samo za lokalni centrali od fiksen operator)
Kaj mene resenieto za ovaj tip na broevi bese
select case Len(Tel_Beroj)
case 5
me.Broj = format (Tel_broj,"00-000")
case 6
me.Broj= format (Tel_broj,"000-000")
end select
e sega imame i megugradski broevi koi se so 9 brojki od koi prvite tri se prefix za gradot a ostanatite 6 se brojot od telefonot so isklucok na glavniot grad(Skopje)kade sto samo prvite dve projki se prefix za gradot a ostanatite se brojot so toa sto ako programot raboti vo glavniot grad odnosno na centralite od glavniot grad vazi gornata funccija so toa sto imame :
case 7
me.Broj= format (Tel_broj,"000-0000")
Ova e samo primer kako jas go resiv ova kaj mene ima tuka uste Selec Case bidejki mora prvo da se odredi dali brojot e lokalen megugradski ili povik od druga drzava , potoa imame funkcija dali toj broj e od fiksen ili mobilen operator a moze da bide i internet broj i na kraj na osnova na site ovie proverki mozime da napravime formatirajne na brojot.
Jas poveketo informacii za broevite gi sobrav od internet odnosno od operatorite os sekoja drzava za koja sto mislev deka ke mi treba.
Nemam ovde primer od toj program inaku ke stavev nekoe gotovo resenie ova sto go napisav e samo po sekavajne kako go resavav problemot.
Kaj mene se rabotese za Taxi kompanija koja sekojdnevno prima 200-300 telefonski povici od razni mesta i broevi vklucuvajki lokalni megugradski ,stranski i drugi broevi.