Newsgroup: it.comp.appl.access
Titolo: Limitare il numero dei record inseribili

il mio problema;
poichè devo inserire solamente 4 o 5 record
ovvero il numero dei pezzi prodotti il mercoledì
di ogni settimana, e poichè alcuni mesi capitano
di 5 mercoledì, cerco una procedura che mi permetta di
inserire al massimo 5 record e qualora si tenti di
inserire un sesto record un messagbox mi avvisi che
si è arrivati al limite.
Ecco i miei elementi;
--------------------------------------
Tabella1 con 2 campi:
ID1 (contatore),
Settimana (Testo).
relativa maschera con una casella di testo per
inserire i record denominata: Testo1,
sottomaschera per visualizare i record
della "Tabella1" nel formato: Maschere Continue.
Grazie a chi mi aiuterà.

 Grazie a chi mi aiuterą.
Nella Maschera di gestione su evento Current devi inserire
un controllo dei Records:
Me.AllowAddition= Me.RecordsetClone.RecordCount<6
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

bene! impostando l'evento:in attesa, funziona;
mi daresti la soluzione alla seconda parte della mia domanda?
<qualora si tenti di
<inserire un sesto record un messagbox mi avvisi che
<si è arrivati al limite. 
arrrrigrazie da "franco"

 wrote in message
news:1137081202.4...@g47g2000cwa.googlegroups.com

Sempre nello stesso posto:
If Me.RecordsetClone.RecordCount>5 and me.newRecord Then
   Msgbox "ATTENTO NON PUOI INSERIRE NULLA"
End if


Alessandro Baraldi ha scritto:

ecco il mio codice,
------------------------------------------------------------------------------------------
Private Sub settimanaScuola_Dirty(Cancel As Integer)
    If Me.RecordsetClone.RecordCount > 4 And Me.NewRecord Then
    MsgBox "ATTENTO NON PUOI INSERIRE NULLA"
    End If
End Sub
-------------------------------------------------------------------------------------------
così inserisco 5 record e al sesto appare il MsgBox di allerta, ma il
numero che
si tentava di digitare rimane in casella e basta premere invio che
viene registrato ugualmente, Gradirei invece che dopo il messaggio di
allerta la casella rimanga vuota.
Mercì da Franco

 Mercě da Franco
Ho dimenticato l'UNDO
Private Sub settimanaScuola_Dirty(Cancel As Integer)
     If Me.RecordsetClone.RecordCount > 4 And Me.NewRecord Then
         Me.Undo
         MsgBox "ATTENTO NON PUOI INSERIRE NULLA"
     End If
End Sub


Hai dimenticato ancora qualcosa;
-----------------------------------------------------------------
Private Sub settimanaScuola_Dirty(Cancel As Integer)
     If Me.RecordsetClone.RecordCount > 4 And Me.NewRecord Then
         Me.Undo
         MsgBox "ATTENTO NON PUOI INSERIRE NULLA"
         Cancel = True 'importante per annullare l'inserimento
     End If
End Sub
------------------------------------------------------------------
GRAZIE ANCORA DA FRANCO

 wrote in message
news:1137147352.7...@f14g2000cwb.googlegroups.com

Si decisamente meglio, io uso A97 e l'Evento Dirty non c'è
ma se usi versioni superiori va benissimo.


 @Alex
Mhmm...
Ma l'evento Dirty è impostato sul quella specifica casella non su tutto il record; funzionerà il controllo se modifico un'altra 
casella di testo?
Ai poster larga sentenza...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
No Sergio esiste un'evento Dirty di Form, ed è quello da usare.


 @Alex
Certo!
Ma occhio al barbatrucco:
(sub di franco)
Private Sub settimanaScuola_Dirty(Cancel As Integer)
...
(sub Form)
Private Sub Form_Dirty(Cancel As Integer)
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Mi è sfuggito, ovviamente è come hai detto, di conseguenza
era a rischio di Bug.
Gestito su Form dovrebbe andare.


Scusate.... , cosè un barbatrucco?
e qualè la differenza tra le due stringhe a parte il nome della form?
Ciao Franco

 Ciao Franco
In questo caso č un errore che hai commesso e che Sergio
ha rilevato.
Hai inserito il riconoscimento solo sul Campo(Evento Dirty)
mentre dovevi intercettare l'Evento Dirty di Form per essere
certo di validare la cosa.
Ciao


 ha scritto nel messaggio 
news:1137400228.0...@g43g2000cwa.googlegroups.com...
Scusate.... , cosè un barbatrucco?
[risposta]
Giovincello!
Eccoti servito:
http://www.anni80.info/cartoni/barba.html
http://www.barbapapa.fr/gb/barbapapa.html
e qualè la differenza tra le due stringhe a parte il nome della form?
Ciao Franco
[risposta]
Alessandro te l'ha spiegato...
Ciao.
-- 
Sergio MAZZA