Newsgroup: it.comp.appl.access
Titolo: Strano comportamento

Ciao a tutti
In uno scadenziario divido il totale cassa per il numero delle rate
in questo modo
Dim XIMPORTO As Double
Ximporto = Nz(Me!totale_cassa) / Me!CL_modpag.Column(3)
ogni tanto succede per alcuni importi che Ximporto è = a zero o tira
fuori importi strani
mentre con il debug fila tutto liscio
può dipendere dal fatto che il totale cassa è un campo calcolato ?
ho provato a mettere prima un refresh ma niente
cosa posso fare ?

 ha scritto nel messaggio 
news:eb5f1e21-e044-4505...@r13g2000vbr.googlegroups.com...
Ciao a tutti
In uno scadenziario divido il totale cassa per il numero delle rate
in questo modo
Dim XIMPORTO As Double
Ximporto = Nz(Me!totale_cassa) / Me!CL_modpag.Column(3)
ogni tanto succede per alcuni importi che Ximporto � = a zero o tira
fuori importi strani
mentre con il debug fila tutto liscio
pu� dipendere dal fatto che il totale cassa � un campo calcolato ?
ho provato a mettere prima un refresh ma niente
cosa posso fare ?
-------------
Prima di tutto dovresti chiarire per te questo "strani" cosa vuol dire...
poi prova a passare i valori a variabili
Private Function XIMPORTO () as double
Dim Var1 as Double
Dim Var2 as Double
Var1=Nz(Me!totale_cassa,0)
Var2= Nz(Me!CL_modpag.Column(3),0)
XIMPORTO = Var1/ Var2
End Function
debugga tutto e vedi come va
---
Pablitomf

 Pablitomf
Allora ho provato come mi hai detto tu ma niente sempre importo 0
la cosa strana appunto è che in fase di debug l'importo della
rata è giusto mentre la query che deve aggiornare la tabella
delle scadenze scarica 0 ma solo per alcuni importi,
potrebbe essere che non va con importi con valori decimali
periodici ? es: 25016,44 / 3 = 8338,
8133333333

Allora ho provato come mi hai detto tu ma niente sempre importo 0
la cosa strana appunto � che in fase di debug l'importo della
rata � giusto mentre la query che deve aggiornare la tabella
delle scadenze scarica 0 ma solo per alcuni importi,
potrebbe essere che non va con importi con valori decimali
periodici ? es: 25016,44 / 3 = 8338,
8133333333
--------------------
ma il campo della tab. in cui riversi questo risultato, che formato ha?...
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 

 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Nella tabella il formato è numerico double
il fatto è che mettendo il punto di debug
dopo questa assegnazione
Var1=Nz(Me!totale_cassa,0)
il valore di Var1 è zero
mettendolo prima viene valorizzato
correttamente, a questo punto l'unico
dubbio che mi viene è che il totale cassa è
un campo calcolato, però perchè per alcuni
importi va e per altri no ?

> ma il campo della tab. in cui riversi questo risultato, che formato ha?...
Nella tabella il formato � numerico double
il fatto � che mettendo il punto di debug
dopo questa assegnazione
Var1=Nz(Me!totale_cassa,0)
il valore di Var1 � zero
mettendolo prima viene valorizzato
correttamente, a questo punto l'unico
dubbio che mi viene � che il totale cassa �
un campo calcolato, per� perch� per alcuni
importi va e per altri no ?
-----------
ho l'impressione che Me!totale_cassa restituisca un valore string...
prima di assegnarlo, procedi alla sua formattazione prima...
Var1=Nz(format(Me!totale_cassa,"0.00"),0)
e vedi come va...
oppure passa i 2 valori byref
Private Function XIMPORTO (Var1 as Double, Var2 as Double) as double
XIMPORTO = Var1/ Var2
End Function
poi lo richiami cos�:
=XIMPORTO(Nz(Me!totale_cassa,0),Nz(Me!CL_modpag.Column(3),0))
fammi sapere.


 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Ho risolto con un semplice me.recalc prima dell'assegnazione
probabilmete trattandosi di campi calcolati non venivano
valorizzati pur se regolarmente visualizzati boh
Comunque grazie