Amelasar 21.05.2015 14:07
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.

Div 20.05.2015 11:54
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

PokuÅ¡avam da uradim bazu za bođenje evidencije o ocenama učenika i izdavanje svedočanstava i uverenja. Već sam naučio da nikada u startu ne kažem da je neÅ¡to lako ili teÅ¡ko, da to ostavim z akraj. Tako nisam ni juče komentarisao težinu zadatka. Uspeo sam da osmislim nekakav model koji može obaviti posao, mislim na model organizacije podataka. Unos podataka, printanje, izrada izveÅ¡taja, mora da potraje malo duže, ne bi stiglo na vreme. Svakako, nastavljam sa radom, već sam imao u planu da neÅ¡to tako uradim.
@Amela, ukoliko želiÅ¡ da nastaviÅ¡ onako kako si krenula, razmisli o tome da ne unosiÅ¡ celokupni tekst ocene, "vrlo dobar, (4)" već samo brojčanu vrednost a da jednom funkcijom Select Case, svakom broju dodeliÅ¡ i tekstualni iskaz, misli+m da ****lje i brže nego da se unosi string pa razdvaja na dva dela.

Gjoreski 20.05.2015 12:38
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Ne znam kako e kaj vas ama kaj nas vo MK postoi veke Elektronski dnevnik na nivo na Drzava koj go vodi Ministerstvoto za obrazovanie e sega ne znamkolku e dobro da se potrosi mnogu vreme za nesto sto se menuva sekoja godina odnosno se menuva nastavniot program i fondot na casovi taka sto ovaj program sekoja godina bi trpel golemi izmeni ,a dokolku postoi EDnevnik i kaj vas ova e samo oteznuvajne na rabotata na profesorite za vnes na odceni i podatoci bidejki treba da se vnesuvaat na 3 mesta vo fizicki dnevnik,zadolzitelniot Ednevnik i ovaj sto ke se napravi.
Taka da dokolku se pravi ovaj program treba da se razmisluva za negovata dinamika odnosno parametrite da moze da se zadavaat na pocetok na godina i toa da bide brzo i da moze da go napravi samiot korisnik.
Isto treba da se razmisli i za dinamicen izgled na sveditestvoto i uverenieto za pogolema fleksibilnost.

Amelasar 20.05.2015 16:07
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.

Gjoreski 20.05.2015 16:59
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Stavi primer da vidam sto imas napraveno

Gjoreski 21.05.2015 16:33
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

Gjoreski 21.05.2015 16:51
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

Div 21.05.2015 17:33
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

Div 21.05.2015 17:37
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Ooops!
Nisam video da je Djoreski već predložio isto reÅ¡enje.

Amelasar 21.05.2015 17:59
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