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

pmiroslav	21.12.2011 15:43
Predmet:Funkcija za ID Za generiranje broja računa koristim slijedeću funkciju koju je napravio ZXZ: PreuzmiIzvorni kôd (vbnet): Function SifraN() Dim DB As Database Dim SQL As String Dim Rs As Recordset Dim I As String Set DB = CurrentDb SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja" Set Rs = DB.OpenRecordset(SQL) If Format$(Rs.Fields(0)) <> "" Then I = Val(Rs.Fields(0)) End If I = I + 1 SifraN = Format(I, "000000") Rs.Close Set DB = Nothing End Function sa njom dobivam brojeve u obliku 050001; 050002 itd. Molio bih pomoć kako da dobijem broj računa u obliku: 2012-0001; 2012-0002 itd, gdje bi na početku bila godina pa onda dalje redni broj.

pmiroslav

21.12.2011 15:43

Predmet:Funkcija za ID

Za generiranje broja računa koristim slijedeću funkciju koju je napravio ZXZ:

PreuzmiIzvorni kôd (vbnet):

Function SifraN()
Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As String
Set DB = CurrentDb
SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja"
Set Rs = DB.OpenRecordset(SQL)
If Format$(Rs.Fields(0)) <> "" Then
I = Val(Rs.Fields(0))
End If
I = I + 1
SifraN = Format(I, "000000")
Rs.Close
Set DB = Nothing
End Function

sa njom dobivam brojeve u obliku 050001; 050002 itd.
Molio bih pomoć kako da dobijem broj računa u obliku:
2012-0001; 2012-0002 itd, gdje bi na početku bila godina pa onda dalje redni broj.

Kiro	21.12.2011 17:26
Predmet:Re: Funkcija za ID `SifraN = DatePart("yyyy", Now()) & "-" & Format(I, "0000")` Ili izvuci datum negdje sa forme umjesto Now()

Kiro

21.12.2011 17:26

Predmet:Re: Funkcija za ID

SifraN = DatePart("yyyy", Now()) & "-" & Format(I, "0000")

Ili izvuci datum negdje sa forme umjesto Now()

pmiroslav	21.12.2011 21:47
Predmet:Re: Funkcija za ID NaÅ¾alost ovi ne radi kako treba. I ja sam pokuÅ¡avao neÅ¡to slično pa mi nije iÅ¡lo. Prvi problem kod ovoga je Å¡to ID kod prvog zapisa moram upisati ručno. Upisao sam 2012-0001 i kada pređem na drugi zapis funkcija mi upiÅ¡e 2011-2013
Prilozi: PrimjerID.rar (Velicina datoteke:11.91 KB)

pmiroslav

21.12.2011 21:47

Predmet:Re: Funkcija za ID

NaÅ¾alost ovi ne radi kako treba. I ja sam pokuÅ¡avao neÅ¡to slično pa mi nije iÅ¡lo.
Prvi problem kod ovoga je Å¡to ID kod prvog zapisa moram upisati ručno. Upisao sam 2012-0001 i kada pređem na drugi zapis funkcija mi upiÅ¡e 2011-2013

Prilozi:
PrimjerID.rar (Velicina datoteke:11.91 KB)

miro35	22.12.2011 09:08
Predmet:Re: Funkcija za ID Ja mislim da trebaÅ¡ ovo u funkciji: SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja" promjenit u ovo: SQL = "SELECT Format$((DMax("(right$(OrderID,6)) AS BrojN " & "FROM tblProdaja"

miro35

22.12.2011 09:08

Predmet:Re: Funkcija za ID

Ja mislim da trebaÅ¡ ovo u funkciji:
SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja"
promjenit u ovo:
SQL = "SELECT Format$((DMax("(right$(OrderID,6)) AS BrojN " & "FROM tblProdaja"

pmiroslav	22.12.2011 10:09
Predmet:Re: Funkcija za ID Evo napravio sam ovako i mislim da je sada uredu PreuzmiIzvorni kôd (vbnet): Function SifraN() Dim DB As Database Dim SQL As String Dim Rs As Recordset Dim I As String If IsNull(DLookup("[OrderID]", "[tblProdaja]")) Then SifraN = DatePart("yyyy", Now()) & "-" & "0001" GoTo Kraj End If Set DB = CurrentDb SQL = "SELECT Max(Right(OrderID,4)) AS BrojN " & "FROM tblProdaja" Set Rs = DB.OpenRecordset(SQL) If Format$(Rs.Fields(0)) <> "" Then I = Val(Rs.Fields(0)) End If I = I + 1 SifraN = DatePart("yyyy", Now()) & "-" & Format(I, "0000") Rs.Close Set DB = Nothing Kraj: End Function

pmiroslav

22.12.2011 10:09

Predmet:Re: Funkcija za ID

Evo napravio sam ovako i mislim da je sada uredu

PreuzmiIzvorni kôd (vbnet):

Function SifraN()
Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As String
If IsNull(DLookup("[OrderID]", "[tblProdaja]")) Then
SifraN = DatePart("yyyy", Now()) & "-" & "0001"
GoTo Kraj
End If
Set DB = CurrentDb
SQL = "SELECT Max(Right(OrderID,4)) AS BrojN " & "FROM tblProdaja"
Set Rs = DB.OpenRecordset(SQL)
If Format$(Rs.Fields(0)) <> "" Then
I = Val(Rs.Fields(0))
End If
I = I + 1
SifraN = DatePart("yyyy", Now()) & "-" & Format(I, "0000")
Rs.Close
Set DB = Nothing
Kraj:
End Function

roko	22.12.2011 10:18
Predmet:Re: Funkcija za ID 1. SQL = "SELECT Max(OrderID) AS BrojN FROM tblProdaja" 2. recimo I = Mid(Rs.Fields(0), 6, 10) - Val() vrača broj do crte To je to

roko

22.12.2011 10:18

Predmet:Re: Funkcija za ID

1. SQL = "SELECT Max(OrderID) AS BrojN FROM tblProdaja"
2. recimo I = Mid(Rs.Fields(0), 6, 10) - Val() vrača broj do crte

To je to

zxz	22.12.2011 12:04
Predmet:Re: Funkcija za ID Polje OrderID Stavi 8 karaktera mislim da je toliko i bilo. U input masku Ovog polja napisi: 0000-0000 Procedura: PreuzmiIzvorni kôd (Visual Basic): Function SifraN() Dim DB As Database Dim SQL As String Dim Rs As Recordset Dim I As Integer Set DB = CurrentDb SQL = "SELECT Max(Right(OrderID,4)) FROM tblProdaja" Set Rs = DB.OpenRecordset(SQL) If Format$(Rs.Fields(0)) <> "" Then I = Val(Rs.Fields(0)) End If I = I + 1 SifraN = Year(Date) & Format(I, "0000") Rs.Close Set DB = Nothing Kraj: End Function

zxz

22.12.2011 12:04

Predmet:Re: Funkcija za ID

Polje OrderID Stavi 8 karaktera mislim da je toliko i bilo.
U input masku Ovog polja napisi: 0000-0000

Procedura:

PreuzmiIzvorni kôd (Visual Basic):

Function SifraN()
Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As Integer
Set DB = CurrentDb
SQL = "SELECT Max(Right(OrderID,4)) FROM tblProdaja"
Set Rs = DB.OpenRecordset(SQL)
If Format$(Rs.Fields(0)) <> "" Then
I = Val(Rs.Fields(0))
End If
I = I + 1
SifraN = Year(Date) & Format(I, "0000")
Rs.Close
Set DB = Nothing
Kraj:
End Function

pmiroslav	22.12.2011 15:33
Predmet:Re: Funkcija za ID Ovo je u redu. Ali muči me joÅ¡ jedna stvar. Dali je moguće da Criterij u Queryu pozivam sa dvije različite forme, ovisno o tome koja je forma otvorena. Ja sam pokuÅ¡ao neÅ¡to kao u primjeru ali kada otvaram Query traÅ¾i mi da budu otvoeene obje forme: SELECT tblProdaja.* FROM tblProdaja WHERE (((tblProdaja.OrderID)=[Forms]![frmOtpremnicaSub]![OrderID])) OR (((tblProdaja.OrderID)=[Forms]![TraziRacun]![txtOrderID]));

pmiroslav

22.12.2011 15:33

Predmet:Re: Funkcija za ID

Ovo je u redu.
Ali muči me joÅ¡ jedna stvar. Dali je moguće da Criterij u Queryu pozivam sa dvije različite forme, ovisno o tome koja je forma otvorena. Ja sam pokuÅ¡ao neÅ¡to kao u primjeru ali kada otvaram Query traÅ¾i mi da budu otvoeene obje forme:

SELECT tblProdaja.*
FROM tblProdaja
WHERE (((tblProdaja.OrderID)=[Forms]![frmOtpremnicaSub]![OrderID])) OR (((tblProdaja.OrderID)=[Forms]![TraziRacun]![txtOrderID]));

zxz	22.12.2011 21:06
Predmet:Re: Funkcija za ID Evo ovako: SQL: PreuzmiIzvorni kôd (SQL): SELECT tblProdaja.* FROM tblProdaja WHERE OrderID=UslovQuery(); Ove procedure kopiraj u neki modul: PreuzmiIzvorni kôd (Visual Basic): Function UslovQuery() Dim Forma As Boolean UslovQuery = "0000" Forma = Otvorena("frmOtpremnicaSub") If Forma = True Then UslovQuery = Forms![frmOtpremnicaSub]![OrderID] End If Forma = Otvorena("TraziRacun") If Forma = True Then UslovQuery = Forms![TraziRacun]![txtOrderID] End If End Function Function Otvorena(ImeForme) '---------------------------------------- ' DA LI JE ODREENA FORMA OTVORENA ' poziva se otvorena(Imeforme) 'Ako jeste vraca True '---------------------------------------- Const FORM_DESIGN = 0 Dim I As Integer Otvorena = False For I = 0 To Forms.Count - 1 If Forms(I).FormName = ImeForme Then If Forms(I).CurrentView <> FORM_DESIGN Then Otvorena = True Exit Function ' Izlaz iz funkcije End If End If Next End Function

zxz

22.12.2011 21:06

Predmet:Re: Funkcija za ID

Evo ovako:
SQL:

PreuzmiIzvorni kôd (SQL):

SELECT tblProdaja.*
FROM tblProdaja
WHERE OrderID=UslovQuery();

Ove procedure kopiraj u neki modul:

PreuzmiIzvorni kôd (Visual Basic):

Function UslovQuery()
Dim Forma As Boolean
UslovQuery = "0000"
Forma = Otvorena("frmOtpremnicaSub")
If Forma = True Then
UslovQuery = Forms![frmOtpremnicaSub]![OrderID]
End If
Forma = Otvorena("TraziRacun")
If Forma = True Then
UslovQuery = Forms![TraziRacun]![txtOrderID]
End If
End Function
Function Otvorena(ImeForme)
'----------------------------------------
' DA LI JE ODREENA FORMA OTVORENA
' poziva se otvorena(Imeforme)
'Ako jeste vraca True
'----------------------------------------
Const FORM_DESIGN = 0
Dim I As Integer
Otvorena = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = ImeForme Then
If Forms(I).CurrentView <> FORM_DESIGN Then
Otvorena = True
Exit Function ' Izlaz iz funkcije
End If
End If
Next
End Function