Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4
 Prikazi prvu neprocitanu poruku

#21 20.05.2015 16:07
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
@Div Napravila sam sa Select Case i samo brojeve unosim.

@Gjoreski U ovim funkcijama trebam rijesiti da u slucaju da je prazno polje ne ispisuje #Error vec da ostane prazno polje.

Hvala.
Pozdrav, Amela
↑  ↓

#22 20.05.2015 16:59
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Stavi primer da vidam sto imas napraveno
↑  ↓

#23 21.05.2015 12:47
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Evo primjer. Znaci na izvjestaju da ne pise #Error ako je polje prazno, vec da ostane prazno ili da pise "/".

Hvala.

Prilozi:
Informacije o tipu datoteke za:rar  primjer.rar
Preuzimanja:226
Velicina datoteke:25.57 KB

Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 21.05.2015 12:48 od strane Amelasar. ↑  ↓

#24 21.05.2015 13:37
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
ece napravi Query i od querito napravi report

PreuzmiIzvorni kôd (SQL):
  1.   SELECT tblSvjedodzba.Ocjena1, IIf(IsNull([Ocjena1])," ",GT([Ocjena1],0)) AS Odcena1
  2. FROM tblSvjedodzba;
  3.  
↑  ↓

#25 21.05.2015 14:07
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Nece da mi radi ovako, a i da hoce morala bih sve mijenjati jer sam izvjestaje skoro napravila. Moze li se u modulu kakav uslov dodati.

Hvala.
Pozdrav, Amela
↑  ↓

#26 21.05.2015 16:33
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Vaka kako sto si postavila izvestaj ako vuce podatke direkno iz tabele i ako polja su prazne onda se nemoze nista uraditi u modulu zbog to sto izvestaj ne trazi nista od modulu.(U slucaevima gde polje e null izvestaj ne poziva funkcije).
Taj tvoj izvestaj vuce podatke direkno iz tabele?
Najbolje ti je da uradis query identicno tabele i onda dobija ono sta tebi treba evo kako na ovaj primer :
PreuzmiIzvorni kôd (SQL):
  1. SELECT IIf(IsNull([OC1])," ",GT([OC1],0)) AS Ocjena1, IIf(IsNull([OC2])," ",GT([OC2],0)) AS Ocjena2, IIf(IsNull([OC3])," ",GT([OC3],0)) AS Ocjena3, tblSvjedodzba.Ocjena1 AS OC1, tblSvjedodzba.Ocjena2 AS OC2, tblSvjedodzba.Ocjena3 AS OC3
  2. FROM tblSvjedodzba;

ti sad trebas u recirdsurca reporte da zamenis ime tabele sa ime querija
↑  ↓

#27 21.05.2015 16:51
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
eve izmenati funkcii kako sto si trazila

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function GT(Podatok, Optional DelBroj As Integer = 1)
  2. Dim RedPod As String
  3. Dim BrojVar As Integer
  4. Dim ArrPodaci
  5. Dim Arr() As String
  6. Dim I As Integer
  7.  
  8.  
  9.  
  10.  If IsNull(ArrPodaci) Or ArrPodaci = "" Then
  11.     GT = " "
  12.    ' Exit Function
  13. Else
  14.  
  15.   RedPod = Podatok ' "+CRLP: 61,61,78,6"
  16.  Vrati_Podatak RedPod, BrojVar, ArrPodaci
  17.     Arr = Split(ArrPodaci, ",")
  18.    'For I = 0 To BrojVar
  19.    GT = Arr(DelBroj)
  20.  'Next I
  21. End If
  22.  
  23. End Function
  24.  
  25. Function GN(Value) As String
  26. Dim Index As Long
  27. Dim Final As String
  28.  
  29.  If IsNull(Value) Or Value = "" Then
  30.     GN = " "
  31.     Exit Function
  32.  Else
  33.  
  34.   For Index = 1 To Len(Value)
  35.     If Mid(Value, Index, 1) Like "[0-9]" Then
  36.       Final = Final & Mid(Value, Index, 1)
  37.     End If
  38.   Next
  39.  
  40.  
  41.   GN = Final
  42.   End If
  43.  
  44. End Function
↑  ↓

#28 21.05.2015 17:33
Div Van mreze
Clan
Registrovan od:01.11.2007
Postovi:22


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Mislim da može da se uradi posao uz malo gimnastike. U funkcijama GT i GN ukloniti deklaraciju za ulazni argument, tako program neće prijaviti greÅ¡ku ako je polje prazno, takođe, dodati u funkciju uslov ako je IsNull ulazni argument onda je GT, odnosno GN ="".
Funkcija GN bi izgledala ovako:

Citat:
Function GN(Value) As String
Dim Index As Long
Dim Final As String
If IsNull(Value) Then
GN = ""

Else

For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next

GN = Final
End If

End Function
↑  ↓

#29 21.05.2015 17:37
Div Van mreze
Clan
Registrovan od:01.11.2007
Postovi:22


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Ooops!
Nisam video da je Djoreski već predložio isto reÅ¡enje.
↑  ↓

#30 21.05.2015 17:59
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Hvala decki. Funkcija GN radi a sto se tice funkcije GT ona vraca prazno polje bez obzira da li je polje prazno ili puno.

Hvala
Pozdrav, Amela
↑  ↓

Stranice (4):1,2,3,4

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 11: 18 am.