Avko 02.09.2018 17:54
Predmet:Re: dobro jutro, dobar dan...

dobro vece.

evo maknuo sam taj link.
Necu otvarati nove teme jer sada proucavam access kao pocetnik. Tako da nema smisla da pitam jer sve odgovore nadem u knjigama.
Pomoglo bi mi jedino neki primjeri koji su jednostavni i iz kojih se moze uciti.

Gjoreski 02.09.2018 20:43
Predmet:Re: dobro jutro, dobar dan...

Dobro vecer i od mene.
Dobri se onie dva primeri Notwind ili nesto taka i Biblio koi sto doagaat kako primeri so samata instalacija na office paketot. Ima dosta da se nauci od tie dva primera.

Avko 03.09.2018 09:43
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!

Ja to nemam instalirano. Imas ti Gjoreski mozda to pa mi zakacis ako imas vremena.

Jos jedno pitanje onako uz kavu.

imamo kod u accessu i zanima me sta prvi close#1 zatvara, zatvari li konekciju na bazu?

PreuzmiIzvorni kôd (Text):
  1. Private Sub Command15_Click()
  2.     Dim Putanja As String
  3.     Dim Db As Database
  4.     Dim Rs As Recordset
  5.     Dim temp As String
  6.     Dim Fld As Field
  7.     Dim ImeFajla As String, Znak As String
  8.     Dim DuzStr As Integer, I As Integer
  9.  
  10.     On Error GoTo Greska
  11.     ImeFajla = Me.Naziv
  12.     DuzStr = Len(ImeFajla)
  13.    
  14.     For I = 1 To DuzStr
  15.         Znak = Mid(ImeFajla, I, 1)
  16.         If Znak = " " Then
  17.             ImeFajla = Mid(ImeFajla, 1, I - 1) & "_" & Mid(ImeFajla, I + 1)
  18.         End If
  19.     Next I
  20.  
  21.     Set Db = CurrentDb
  22.     Set Rs = Db.OpenRecordset("SELECT * FROM T_Tacke WHERE LokacijaID=" & Me.LokacijaID)
  23.     Rs.MoveFirst
  24.     Putanja = FindDatabase(2, ImeFajla)
  25.  
  26.     If Asc(Right(Putanja, 1)) = 0 Then
  27.         Putanja = Mid(Putanja, 1, Len(Putanja) - 1)
  28.     End If
  29.  
  30.     If Right(Putanja, 4) <> ".txt" Then
  31.         Putanja = Putanja & ".txt"
  32.     End If
  33.  
  34. Close #1  <======= Å TA OVAJ ZATVARA ?
  35.  
  36.     Open Putanja For Output Shared As #1
  37.  
  38.         Do While Not Rs.EOF
  39.             For Each Fld In Rs.Fields
  40.                 If Fld <> "" Then
  41.                     temp = temp & Fld & vbTab
  42.                 End If
  43.             Next Fld
  44.             If Format$(temp) <> "" Then
  45.                 Print #1, temp
  46.             End If
  47.             temp = ""
  48.             Rs.MoveNext
  49.         Loop
  50.     Close #1
  51.  
  52. Izlaz:
  53.     Exit Sub
  54. Greska:
  55.     MsgBox "GreÅ¡ka broj: " & Err.Number & vbCr & Err.Description
  56.     Resume Izlaz
  57. Kraj:
  58. End Sub

Gjoreski 03.09.2018 20:00
Predmet:Re: dobro jutro, dobar dan...

Red 34 odnosno Close #1 ne zatvara recordset , ovako se zatvara fajl koj je ucitan. E sad tebe buni zasto nije prvo zatvaramo fajl . Zatvaramo ga ako je fajl po neka slucajnost ostao otvoren od predhodna obrada.Ovo je samo preventivno. I da pobrises ove linije cod opet ce raditi.

Avko 04.09.2018 08:31
Predmet:Re: dobro jutro, dobar dan...

dobro jutro.

hvala, znaci preventiva i radi il stavio il ne.

ok. Idem ja sada malo koju partiju bele odigrati pa se vidimo

Avko 05.09.2018 07:31
Predmet:Re: dobro jutro, dobar dan...

Dobro jutro!

dex 05.09.2018 08:33
Predmet:Re: dobro jutro, dobar dan...

Dobro jutro
Vedro, izgleda nece biti kise
Odoh malo do sela da upalim svoju veselu masinu za destilaciju trulog voca

Avko 05.09.2018 08:49
Predmet:Re: dobro jutro, dobar dan...

Citiraj dex:
Dobro jutro
Vedro, izgleda nece biti kise
Odoh malo do sela da upalim svoju veselu masinu za destilaciju trulog voca

samo sljiva ili ces i od kruske?
Oces raditi prepecenicu?

dex 11.09.2018 22:35
Predmet:Re: dobro jutro, dobar dan...

Pozdrav narode, evo mene
Trebalo je to temeljno izdegustirati
Inace pecem uglavnom sljivu, ubacim u smesu poneku drugu opalu vocku , greota da propadne.
Sljivu uvek prepecem, dok su vocne rakije (kajsija, dunja, kruska...) bolje jednom pecene, vise se oseca aroma voca

Avko 12.09.2018 07:21
Predmet:Re: dobro jutro, dobar dan...

koliko si litara ispeko?