Bosna i Hercegovina



Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 225


Subject: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Imam tabelu npr:
Ime
Prezime
Ocjena1
Ocjena2
Ocjena3
Ocjena4
itd

U tabeli su zapisi:
Niko
Nikic
vrlodobar (4)
dobar (3)
dovoljan (2)
odlican (5)
itd

Pomoću query izdvojim:

O1: Mid((Right([Ocjena1];3));2;1)
rezultat: vrlodobar

OO1: Left([Ocjena1];InStr(1;[Ocjena1];" ")-1)
rezultat: 4

Pitanje: Moze li se napraviti neka funkcija koja ce za sve (koje ja odredim) izdvojiti tu prvu rijec i pretposljednji znak, jer mi treba odvojeno za izvjestaj.

Radi se o popunjavanju uvjerenja i svjedodzbi za osnovnu skolu.

Hvala.

Prilozi:
Informacije o fajlu: rar  svjedodzba.rar
Preuzimanja: 8
Veličina: 24.74 KB


Pozdrav, Amela
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 19.05.2015-13:29 od strane Amelasar. ↑  ↓

kenan Online
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 172


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
sestro draga komplikujes

što ne napravis dodatnu tabeli sa dva polja

ocjena integer
ops text

a u tabeli svjedođba umjesto text staviš integer i u kveriju se igraš hoče opisno ili brojčano ili pak zajedno a ne vako
↑  ↓

Div Offline
Clan
Registrovan/a od: 01.11.2007-07:58
Komentari: 22


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Mislim da ne treba tražiti funkciju za podelu teksta u koloni, treba drugačije organizovati zapise. Na primer: tabela učenici, tabela prednmeti, tabela ocene, tabela podaci o ustanovi. Eventualno još neki detalji, nisam baš upućen u materiju.
Ovako kako je urađeno, nije pregledno, nema kontrole unosa, moguće su greške, nije pogodno za kontinuirano korišćenje.
Bolje bi bilo da opišeš postupoak, gde se podaci nalaze, u kom obliku, kakav treba izveštaj da bude, da nađemo najlakši put do rešenja.
↑  ↓

Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 225


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Radi se o svjedodzbi i uvjerenju o uspjehu ucenika u VI, VII i VIII razredu osnovne skole.
Obrazac je gotov i treba samo polja popuniti. Nisam htjela na taj nacin misleci da je ovako lakse posto se radi o donaciji za jednu skolu da rucno ne ispunjavaju obrasce.
Pozdrav, Amela
↑  ↓

kenan Online
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 172


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
PRIJE ČEŠ PREPRAVIT NEGO SE SA OVIM ZEZATI I IMATI UVJEK PROBLEM
↑  ↓

Div Offline
Clan
Registrovan/a od: 01.11.2007-07:58
Komentari: 22


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Kako bi se podaci unosili, iz dnevnika ili iz neke tabele u elektronskom obliku?
U svakom slučaju, bolje je uraditi kao "pravu" bazu podataka, samo je pitanje koliko vremena ima na raspolaganju. Valjalo bi da postaviš spisak predmeta po razredima, da pokušam(o) da uradimo neki model u što kraćem roku, cenim da je rok- juče.
↑  ↓

Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 225


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Kraj je skolske godine pa je bas frka Wink

U prilogu su predmeti. U prazna polja se mogu upisati predmeti koji nisu na obrascu.

Prilozi:
Informacije o fajlu: doc  uvjerenje.doc
Preuzimanja: 6
Veličina: 43 KB
Informacije o fajlu: doc  svjedocanstvo.doc
Preuzimanja: 18
Veličina: 38.5 KB


Pozdrav, Amela
↑  ↓

Div Offline
Clan
Registrovan/a od: 01.11.2007-07:58
Komentari: 22


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Malo kasnije ću pogledati, sad sam u putu kući, pa ću napisati šta mislim da se može raditi u kratkom roku.
↑  ↓

Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 225


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Ok. Hvala.
Pozdrav, Amela
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,128


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Eve probaj ova dali ke zavrsi rabota .
Ovaa funkcija ja napravi ZXZ za mene jas ja smenav malku pa vidi dali ke odgovara.

DownloadIzvorni kod (Visual Basic):
  1.  
  2. Public Function OdsecenDel(Podatok As String, Optional DelBroj As Integer = 1)
  3. Dim RedPod As String
  4. Dim BrojVar As Integer
  5. Dim ArrPodaci
  6. Dim Arr() As String
  7. Dim I As Integer
  8.  
  9. RedPod = Podatok ' "+CRLP: 61,61,78,6"
  10. Vrati_Podatak RedPod, BrojVar, ArrPodaci
  11.  
  12.  If IsNull(ArrPodaci) Or ArrPodaci = "" Then
  13.     Exit Function
  14.  Else
  15.     Arr = Split(ArrPodaci, ",")
  16.    'For I = 0 To BrojVar
  17.    OdsecenDel = Arr(DelBroj)
  18.  'Next I
  19. End If
  20.  
  21. End Function
  22.  
  23.  
  24. Public Function Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci = "")
  25. Dim Poz As Integer, Duzina As Integer, I As Integer
  26. Dim PrviDio As String, DrugiDio As String, Skupa As String
  27. Dim Znak As String
  28.  
  29. Poz = InStr(1, UlazniPodatak, "(", vbBinaryCompare)
  30. If Poz = 0 Then GoTo Kraj
  31.  
  32. PrviDio = Mid(UlazniPodatak, 1, Poz - 1)
  33. DrugiDio = Mid(UlazniPodatak, Poz + 1)
  34. Skupa = PrviDio & "," & DrugiDio
  35. Duzina = Len(UlazniPodatak) - 1
  36. BrojVar = 0
  37.     For I = 1 To Duzina
  38.     Znak = Mid(Skupa, I, 1)
  39.         If Znak = "," Then
  40.         BrojVar = BrojVar + 1
  41.         End If
  42.     Next I
  43. ArrPodaci = Skupa
  44. Izlaz:
  45. Exit Function
  46. Kraj:
  47. ArrPodaci = ""
  48. BrojVar = 0
  49. GoTo Izlaz
  50. End Function

se povikuva

MsgBox OdsecenDel("odlièan (5)", 0)

Ovaa funkcija ke ti go odvoi prviot del od stringot do prvata zagrada (

Ako ti treba funkcija za vo zagradata imas vo korisan kod funkcija DeoString
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,128


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Eve i za megu zagradite

DownloadIzvorni kod (Visual Basic):
  1. Function DioStr(Dio As Integer, Str As String, Karakter As String) As String
  2. Dim Pozicija1, Pozicija2, Brojac
  3. '***************************************************************************
  4. 'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT
  5. 'KARAKTER IZMEDJU KOJEG SE SIJECE STRING
  6. 'Autor funkcije(ZXZ)
  7. '***************************************************************************
  8. On Error GoTo Greska:
  9. Pozicija2 = 1
  10. If Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada
  11. Str = Trim(Str) & Karakter 'Dodaj karakter na kraj
  12. End If 'Kraj uslova
  13.  
  14. 'POZICIJA IZMEDJU DVA KARAKTERA
  15. For Brojac = 1 To Dio
  16. Pozicija1 = InStr(Pozicija2, Str, Karakter, 1)
  17. If Brojac < Dio Then
  18. Pozicija2 = Pozicija1 + 1
  19. If Pozicija1 = 0 Then GoTo Upozorenje
  20. End If
  21. Next Brojac
  22. 'DIO STRINGA IZMEDJU DVIJE POZICIJE
  23. DioStr = Mid(Str, Pozicija2, Pozicija1 - Pozicija2)
  24. Exit Function
  25. Greska:
  26. If Err.Number = 5 Then
  27. Upozorenje:
  28. Beep
  29. MsgBox "Áŕđŕâňĺ äĺë ęîĽ íĺ ďîńňîč!!!!", vbCritical + vbOKOnly + _
  30.         vbDefaultButton1, "Íŕďîěĺíŕ!!!"
  31. Else
  32. MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _
  33.         vbDefaultButton1, "Napomena!!!"
  34. End If
  35. End Function
  36.  
↑  ↓

Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 225


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Hvala. Mozes li malo objasniti drugu funkciju.
Pozdrav, Amela
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,128


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas se izvinuvam ovaa funkcija DioStr e za secejne na stringot pomegu dva isti karakteri a vo slucajov kaj tebe se dva razlicni .
eve ti druga funkcija koja vadi broj od string ovaa ke ti zavrsi rabota

DownloadIzvorni kod (Visual Basic):
  1. Function GetNumbers(Value As String) As String
  2. Dim Index As Long
  3. Dim Final As String
  4.  
  5.   For Index = 1 To Len(Value)
  6.     If Mid(Value, Index, 1) Like "[0-9]" Then
  7.       Final = Final & Mid(Value, Index, 1)
  8.     End If
  9.   Next
  10.  
  11.   GetNumbers = Final
  12. End Function


MsgBox GetNumbers("odlièan (5)")
↑  ↓

Div Offline
Clan
Registrovan/a od: 01.11.2007-07:58
Komentari: 22


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Nije problem iz stringa, "vrlo dobar, (4)" izdvojiti slovni deo i numerički deo, može se za to napraviti funkcija koja će na samom izveštaju, svedodžbi ispisivati slovni deo i numerički a da argument ulazni podatak bude uneti string.
Ponoviću, podaci nisu dobro organizovani, međutim, ako su već uneti, ako je problem samo u razdvajanju broja od opisa ocene, onda je, verovatno, brže primeniti funkciju i završiti posao, barem jednokratno. Ukoliko tek treba da se unose podaci, da se prave forme i izveštaji, mislim da je brže reorganizovati podatke.
To neka odluči Amela, a dobro bi bilo čuti nekog od majstora za Access.
Ja ću svejedno pokušati da uradim bazu kako mislim da treba, može valjati za neku drugu priliku ako ne za ovu.
Krećem u rad, javiću se ako mi zatrebaju dodatne informacije i kad budem imao nešto konkretno.
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,128


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas mislam deka ne treba da se pravi baza bidejki Amelasar veke ima baza nea sega samo i treba kako ovie podatoci sto najverovatno se vneseni da gi exportira na izvestaj.
Pocekaj na konsultacii so Amelasar da ne si go trosis vremeto badijala.
↑  ↓

 Podijeli  Dodaj odgovor Stranice (3): 1, 2, 3


All times are GMT +01:00. Current time: 27.03.2017-13:35.