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

pmiroslav	05.06.2012 12:41
Predmet:Problem sa formatom broja Mućim sa sa jednim problemom: Imam Modul koji se zove 'System' i u njemu PreuzmiIzvorni kôd (vbnet): Option Compare Database Option Explicit Public KOMADA As Integer Varijablu 'KOMADA' punim sa textBoxa na formi koji se zove 'txtKomada' i na njemu je After Update PreuzmiIzvorni kôd (vbnet): Private Sub txtKomada_AfterUpdate() System.KOMADA = Me.txtKomada End Sub Zatim u jednom modulu imama funkciju PreuzmiIzvorni kôd (vbnet): Function Quantity() Quantity = KOMADA End Function i na kraju Union Query PreuzmiIzvorni kôd (SQL): SELECT Stroj() AS IDStroja, Stroj() AS IDDijela,Quantity() AS komPoStroju FROM Proces UNION SELECT IDStroja, IDdijela,BrKomada,AS komPoStroju FROM QryShemaTransfer; Problem je Å¡to mi se u ovom Queryu dio Quantity() As komPoStroju napuni kao tekst a ne kao broj pa kasnije u izrazu DivTPZ: IIf([KomPoStroju]=0;0;[TPZ]/[KomPoStroju]) dolazi do greÅ¡ke
Prilozi: PrimjerMP.rar (Velicina datoteke: Bajt)

pmiroslav

05.06.2012 12:41

Predmet:Problem sa formatom broja

Mućim sa sa jednim problemom:
Imam Modul koji se zove 'System' i u njemu

PreuzmiIzvorni kôd (vbnet):

Option Compare Database
Option Explicit
Public KOMADA As Integer

Varijablu 'KOMADA' punim sa textBoxa na formi koji se zove 'txtKomada' i na njemu je After Update

PreuzmiIzvorni kôd (vbnet):

Private Sub txtKomada_AfterUpdate()
System.KOMADA = Me.txtKomada
End Sub

Zatim u jednom modulu imama funkciju

PreuzmiIzvorni kôd (vbnet):

Function Quantity()
Quantity = KOMADA
End Function

i na kraju Union Query

PreuzmiIzvorni kôd (SQL):

SELECT Stroj() AS IDStroja, Stroj() AS IDDijela,Quantity() AS komPoStroju
FROM Proces
UNION SELECT IDStroja, IDdijela,BrKomada,AS komPoStroju
FROM QryShemaTransfer;

Problem je Å¡to mi se u ovom Queryu dio Quantity() As komPoStroju napuni kao tekst a ne kao broj pa kasnije u izrazu

DivTPZ: IIf([KomPoStroju]=0;0;[TPZ]/[KomPoStroju]) dolazi do greÅ¡ke

Prilozi:
PrimjerMP.rar (Velicina datoteke: Bajt)

Gjoreski	05.06.2012 13:56
Predmet:Re: Problem sa formatom broja Probaj vaka da go prepravis querito: PreuzmiIzvorni kôd (SQL): SELECT 1000 AS IDStroja, 1000 AS IDDijela,cint(Quantity()) AS komPoStroju FROM Proces UNION SELECT IDStroja, IDdijela,BrKomada AS komPoStroju FROM QryShemaTransfer;

Gjoreski

05.06.2012 13:56

Predmet:Re: Problem sa formatom broja

Probaj vaka da go prepravis querito:

PreuzmiIzvorni kôd (SQL):

SELECT 1000 AS IDStroja, 1000 AS IDDijela,cint(Quantity()) AS komPoStroju
FROM Proces
UNION SELECT IDStroja, IDdijela,BrKomada AS komPoStroju
FROM QryShemaTransfer;