Newsgroup: it.comp.appl.access
Titolo: AVVISO MERCE IN ESAURIMENTO

Ciao a tutti,
vorrei sapere come posso fare per attivare un messaggio che mi avvisi
che la merce in questione è terminata.
Mi spiego meglio.
Es:
Ho una tabella TbLavorazioni
IdLavorazione  - Contatore - PK
IdCliente - Testo - FK
BasiCliente - Numerico
LavorazioniEffettuate - Numerico
ResiduoBasi - Numerico
Io vorrei che quanto il residuo basi arriva a zero ci sia un messaggio
che mi avvisi.
Cosa devo fare?
Grazie in anticipo.
Myc


Non so se ho capito quello che ti serve, ma ad esempio sotto l'evento 
current della maschera potresti inserire:
:
if NomeControlloAssociatoAResiduoBasi = "0" then
   msgbox "il messaggio che vuoi", vbcritical, "Terminato....."
end if
-- 
Ciao
Access 


Ciao, grazie mille per la tua risposta.
Ti spiego un pochino meglio cosa mi serve:
Es:
un cliente da un contratto con me per la stampa di 1.000 fogli
(BasiCliente)
la stampa non avverrà in un solo lotto ma in più lotti (Lavorazioni)
ogni volta che alcuni dei fogli vengono stampati, vengono scalati, con
un campo calcolato, dalle basi iniziali (ResiduoBasi)
io vorrei fare in modo che quando il residuo basi assiva a zero o
sotto zero, ci sia un messaggio che mi avvisi.
Ho fatto quello che mi hai indicato e in effetti è proprio quello che
intendevo, però succede una cosa bizzarra.
Il messaggio non si comporta nello stesso modo con tutti i record, in
alcuni record sotto zero, mi avvisa, in alcuni no...cosa posso aver
sbagliato?
il codice che ho scritto è uguale a quallo che hai indicato tu:
If ResiduoBasiTipoA = "0" Then
   MsgBox "Le stampe da contratto sono terminate", vbCritical,
"Termine contratto"
End If
Help me!!
Grazie mille!!
Myc


Ho capito il motivo...
sarebbe un pò lunghino da spiegare e andrei "fuori tema".
Un problemino rimane:
Il messaggio di avviso viene visualizzato solo nel caso in cui il
campo Residuo Basi sia uguale a zero, ma a volte con una lavorazione
può andare sotto zero ed in quel caso il mess non esce.
Cosa posso fare perchè esca sia quando è uguale a ZERO che quando è
SOTTO ZERO?
Ho provato questo codice
Private Sub Form_Current()
If ResiduoContrattoTipoA < "0" Then
   MsgBox "Le stampe da contratto sono terminate", vbCritical,
"Termine contratto"
End If
End Sub
Ma non funziona, per provare ho messo al posto del segno <, il segno >
ed in quel caso, ogni volta che trova un valore che supera lo zero
esce il messaggio, ma quando è minore no!
Perchèèè?? tu hai un idea?
Ancora grazie mille.
Myc

 ha scritto nel messaggio 
news:1192088276.0...@k79g2000hse.googlegroups.com...
Cosa posso fare perchč esca sia quando č uguale a ZERO che quando č
SOTTO ZERO?
Ho provato questo codice
Private Sub Form_Current()
If ResiduoContrattoTipoA < "0" Then
   MsgBox "Le stampe da contratto sono terminate", vbCritical,
"Termine contratto"
End If
End Sub
Ma non funziona, per provare ho messo al posto del segno <, il segno >
ed in quel caso, ogni volta che trova un valore che supera lo zero
esce il messaggio, ma quando č minore no!
Perchččč?? tu hai un idea?
Ancora grazie mille.
Myc
----------------
E se metti
If ResiduoContrattoTipoA < "1" Then
cosa fa?
Oppure visto che funziona il maggiore potresti fare cosě
If not ResiduoContrattoTipoA > "0" Then 

 If not ResiduoContrattoTipoA > "0" Then
Chiedo scusa ma dopo aver postato la risposta di prima mi sono accorta
che con il segno > maggiore usciva l'avviso sia nei casi in cui il
residuo è sopra lo zero, sia nei casi in cui è sotto lo zero :o\
E con questo codice che mi hai indicato, ho provato e succede la
stessa cosa.
Potrebbe esserci qualche problema nel formato del campo?
nella tabella: campo numerico - intero lungo - no valore predefinito
nella maschera: numero generico
la formula di calcolo all'interno di questo campo è : =[BasiCliente]-
[SommaBasiLavorate]
Non so se sono info utili.
Ti dice qualcosa?
Grazie mille
Myc

 Myc
-- 
Ciao
Access 


Ciao, ho provato, non succede niente!
Non capisco!
Potrebbe esserci qualcosa che annulla questo codice?
C'è per caso un altro metodo per fare questa cosa?
Grazie
Myc

Ciao 
m...@hotmail.it
 wrote:
Togli le  " dallo 0


-- 
Ciao
Access 


Benissimo!! grazie mille!! funziona.
Un'ultima cosa.
Attualmente il messaggio di avviso compare nel momento vado su record
record, ma se sono già all'interno di quel record e defalco le
"Lavorazioni" dal "ResiduoBasi" facendolo così andare sotto lo zero,
il mess non compare.
Come posso fare perchè compaia in diretta?
(forse per questa domanda dovrei fare un altro post?)
Grazie
Myc

 (forse per questa domanda dovrei fare un altro post?)
-- 
Ciao
Access


Lo defalco con una formula, nell' Origine Controllo del campo
ResiduoBasi c'è questa formula:
 =[BasiCliente]-[SommaBasiLavorate]
quindi nel momento in cui aggiungo una Lavorazione, questa viene
sommata alle altre basi lavorate nel campo "SommaBasiLavorate" e
sottratta dalle BasiCliente nel campo ResiduoBasi in automatico.
Spero di essermi speigata bene.
Grazie
Myc