Gjoreski 28.06.2018 22:21
Predmet:Re: dobro jutro, dobar dan...

To sa kirijam nije se odvijalo u pravom smeru.Dosao momak postavio par pitajna,mi smo odgovorili na njegove probleme i on je otisao, uopste niko ne zna jelo on nesto uradio ili nije.Ako te nesto konkretno zanima u veze ta tema mozemo dalje i napravicemo malo ozbilnija aplikacija jel kako je on postavio meni uopste mi se ne dopada.On je postupio sprotivno od ono sta smo ga ja i ZXZ savetovali.

Avko 29.06.2018 10:36
Predmet:Re: dobro jutro, dobar dan...

Citiraj zxz:
Sta ti je to sa kirijama neznam a ovo drugo tj. pozadina access forme se moze ukloniti.
Postavi temu ili nadji staru.

evo ovo:

pomoc za access

ja bi u naslov dodao kirije

sto se tice stare teme nebi htio neki kod nego samo ako se moze napraviti iz dizajn view

pogledacu malo pa se javim

Citiraj Gjoreski:
To sa kirijam nije se odvijalo u pravom smeru.Dosao momak postavio par pitajna,mi smo odgovorili na njegove probleme i on je otisao, uopste niko ne zna jelo on nesto uradio ili nije.Ako te nesto konkretno zanima u veze ta tema mozemo dalje i napravicemo malo ozbilnija aplikacija jel kako je on postavio meni uopste mi se ne dopada.On je postupio sprotivno od ono sta smo ga ja i ZXZ savetovali.

hvala, ne treba mi samo sam htio iz primjera uciti.

zxz 29.06.2018 18:27
Predmet:Re: dobro jutro, dobar dan...

E ja se tu ne mijesam vise.
Ja sam napravio tabele ali nisu moje prihvacene tako da dalje i nisam u toku.
Cini mi se da su i drugi napominjali da se ide u pogresnom smjeru.

zxz 29.06.2018 18:28
Predmet:Re: dobro jutro, dobar dan...

Sta je sa ovom temom.
http://icentar.ba/...e=1#p31566
a i sonja izgleda se preselila. Nema je vise.
Bas mi je zao.

Avko 01.07.2018 08:19
Predmet:Re: dobro jutro, dobar dan...

Citiraj zxz:
Sta je sa ovom temom.
http://icentar.ba/...e=1#p31566
a i sonja izgleda se preselila. Nema je vise.
Bas mi je zao.

i to ceka u redu.
-nazvo me prijatelj oce neki kontakt knjigu u accessu pa se sada mucim u tome
-bilo posla
-inace mi taj web prioritet, ali svaki dan nesto iskrsne pa reko sutra cu a sutra stalno sutra

evo sada se mucim i sa vb excel check box
imam 8 check boxova a uz njih txt box, kako cekirati jedan i pri tome da se ostalih sedam iskljuci automatski. Nikao mi ne uspijeva. To bi isto trebao staviti primjer ali toliko sam zaglibio sa obavezama da cu sutra, pa opet sutra i tako dani idu

jebajga

Gjoreski 01.07.2018 11:54
Predmet:Re: dobro jutro, dobar dan...

Nema tu filozofije oko check box.
Na on_Clik na prvi check box stavis me.Check2.Value=False
me.Check3.Value=False
i tako dalje , taj kod stavis na svi check boxova

Avko 02.07.2018 17:15
Predmet:Re: dobro jutro, dobar dan...

Citiraj Gjoreski:
Nema tu filozofije oko check box.
Na on_Clik na prvi check box stavis me.Check2.Value=False
me.Check3.Value=False
i tako dalje , taj kod stavis na svi check boxova

hvala

vidi ovo, vba

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.  
  8.         dim arrImeFajla as string
  9.  
  10.         imeFajla=01_jankomir_20180604
  11.         arrImeFajla=Split(imeFajla,"_")
  12.  
  13.         brSkladista=arrImeFajla(0)
  14.         imeSkladista=arrImeFajla(1)
  15.         datum=arrImeFajla(2)
  16. end sub

a kako ovo? javlja gresku

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.         imeFajla=01_jankomir_20180604
  8.        
  9.         if ime2array(imeFajla)=false then msgbox "greska"
  10.  
  11.         imeFajla=02_zitnjak_20180702
  12.  
  13.         if ime2array(imeFajla)=false then msgbox "greska"
  14. end sub
  15.  
  16. function ime2array() as boolean
  17.         dim arrImeFajla as string
  18.         arrImeFajla=Split(imeFajla,"_")
  19.        
  20.         brSkladista=arrImeFajla(0) <=GRESKA compile error: expected array
  21.  
  22.         imeSkladista=arrImeFajla(1)
  23.         datum=arrImeFajla(2)
  24. end function

Gjoreski 02.07.2018 18:48
Predmet:Re: dobro jutro, dobar dan...

A gde ti je putajne do fajla?
Ime fajla nije ti kompletno?

Avko 02.07.2018 20:29
Predmet:Re: dobro jutro, dobar dan...

PreuzmiIzvorni kôd (Text):
  1. sub ucitajDatoteku()  
  2.  'odredi path
  3.    
  4.     Dim folderPath As String
  5.     Application.DefaultFilePath = Application.ThisWorkbook.Path
  6.    
  7.     'ekstenzija
  8.     Dim prihvaceneEkstenzije As String
  9.     prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
  10.                            
  11.     'otvori datoteku
  12.     FileToOpen = Application.GetOpenFilename _
  13.                 (Title:="izaberi datoteku za uvoz podataka", _
  14.                 FileFilter:=prihvaceneEkstenzije)
  15.                
  16.     'ako datoteka nije izabrana
  17.     If FileToOpen = False Then
  18.         MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
  19.         Exit Function
  20.     End If
  21.    
  22.     'ime datoteke koju smo uzeli
  23.     imeFajla = GetFilenameFromPath(FileToOpen)
  24. end sub

PreuzmiIzvorni kôd (Text):
  1. Public Function GetFilenameFromPath(ByVal strPath As String) As String
  2.     'UZMI IME IF FAJLA
  3.     ' npr. 'c:\winnt\win.ini' vraca 'win.ini'
  4.  
  5.     If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
  6.         GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
  7.     End If
  8. End Function

Avko 02.07.2018 20:29
Predmet:Re: dobro jutro, dobar dan...

PreuzmiIzvorni kôd (Text):
  1. sub ucitajDatoteku()  
  2.  'odredi path
  3.    
  4.     Dim folderPath As String
  5.     Application.DefaultFilePath = Application.ThisWorkbook.Path
  6.    
  7.     'ekstenzija
  8.     Dim prihvaceneEkstenzije As String
  9.     prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
  10.                            
  11.     'otvori datoteku
  12.     FileToOpen = Application.GetOpenFilename _
  13.                 (Title:="izaberi datoteku za uvoz podataka", _
  14.                 FileFilter:=prihvaceneEkstenzije)
  15.                
  16.     'ako datoteka nije izabrana
  17.     If FileToOpen = False Then
  18.         MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
  19.         Exit Function
  20.     End If
  21.    
  22.     'ime datoteke koju smo uzeli
  23.     imeFajla = GetFilenameFromPath(FileToOpen)
  24. end sub

PreuzmiIzvorni kôd (Text):
  1. Public Function GetFilenameFromPath(ByVal strPath As String) As String
  2.     'UZMI IME IF FAJLA
  3.     ' npr. 'c:\winnt\win.ini' vraca 'win.ini'
  4.  
  5.     If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
  6.         GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
  7.     End If
  8. End Function