Newsgroup: it.comp.appl.access
Titolo: messaggio di superamento record disponibili

ciao, ho in access dei campi , matricola cognome nome, vorrei che raggiunti i 10 record la persona che inserisce i dati ha il messaggio" attenzione posti esauriti", che codice dovrei inserire??
-- 
fenice 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-737294.html
Inviato via 
http://www.itsistemi.net

 ha scritto nel messaggio
news:fenice...@no-mx.itsistemi.net...

Ciao Fenice,
su evento before unpdate della tua Form :
If Me.RecordsetClone.RecordCount = 10 Then
    MsgBox "AL massimo 10 record!",vbcritical
    Me.Undo
End If
ciao, Sandro

ciao grazie della risposta, ma mi da' errore , dovrei creare un database con tre campi obbligatori e che superando un limite di 10 record dia un msgbox attenzione posti superati, inoltre non dovrei avere record duplicati, forse chiedo troppo, se ti mando il database puoi inserirmi queste funzioni, cosi' posso studiarmelo , se poi ti serve aiuto in excel o altro posso ricambiare il favore , grazie


 fenice
Ciao, Sandro.
ps. sarò on line solo domani sera ... Domani mi faranno lavorare tanto per
cambiare.

ciao , mi dice errore di compilazione prevista fine istruzione e mi evidenzia in giallo,
vb critical, poi volevo chiedere questo, ho creato un file access, mettendolo sul server dell 'azione i campi sono come bloccati e' un problema del server o devo settare qualcosa nel database??? ecco il codice che ho inserito nel pulsante add record a volte funziona ma poi non funziona piu' 
Private Sub Comando14_Click()
If Me.RecordsetClone.RecordCount = 10 Then
MsgBox "AL massimo 10 record!"‚vbcritical
Me.Undo
End If
Me!DATAINSERIMENTO = Now()
Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "LA TUA ADESIONE SARA' REGISTRATA." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
On Error GoTo Err_Comando14_Click
    DoCmd.GoToRecord , , acNewRec
Exit_Comando14_Click:
    Exit Sub
Err_Comando14_Click:
    MsgBox Err.Description
    Resume Exit_Comando14_Click
 
    End Sub


 vb critical, poi volevo chiedere questo, ho creato un file access,
mettendolo sul server dell 'azione i campi sono come bloccati e' un problema
del server o devo settare qualcosa nel database??? ecco il codice che ho
inserito nel pulsante add record a volte funziona ma poi non funziona piu'
questo  :
"mettendolo sul server dell 'azione i campi sono come bloccati e' un
problema del server o devo settare qualcosa nel database"
non l'ho capito per niente. Soprattutto i campi dell'azione .... sarò che è
domenica e mi sono appena alzato :-))
Cerco di interpretare dal codice che hai postato.
Popoli una tabella con una form. La form è impostata a "Maschera singola".
Se il numero di record che vai a inserire è maggiore di 10 per una certa
data devi fare comparire il messaggio "al massimo 10 record" altrimenti no,
continui a inserire fino al raggiungimento del decimo record per quella
data.
Ho capito bene ?
Per obbligare l'utente a compilare i campi puoi agire su lostFodus del
controllo in oggetto ad esempio come segue :
Me.pathCompleto.BackColor = vbWhite
If IsNothing(Me!TuoControllo) Then
    Me!tuoControllo.BackColor = vbRed
    MsgBox "campo obbligatorio"
    Cancel = True
End If
[cut]
ciao, Sandro.

ciao, allora 
ho tre campi, matricola, cognome nome, 
vorrei il codice che inserendo piu' di 10 record mi faccia apparire il msgbox attenzione posti superati , e mi permetta pero' di inserire altri dati, il codice inserito
If Me.RecordsetClone.RecordCount = 10 Then
MsgBox "AL massimo 10 record!"‚vbcritical
Me.Undo
End If
mi da' errore puoi provarlo, mi dice end if senza blocco if,  se vuoi posso inviarti il database , grazie , in giallo si evidenzia questo 
Private Sub Form_BeforeUpdate(Cancel As Integer)


se vuoi posso inviarti il database , grazie , in giallo si evidenzia questo
va bene, inviamelo pure : ---> è Natale e siamo tutti più buoni :-)
sandro punto peruz chiocciola tin punto it --> ovviamente sostituisci il
punto con .
[cut]
ciao, Sandro.

[cut]
Ciao Fenice,
ti ho sistemato il db, ho tentato tre volte di mandartelo, ma mi ritorana
indietro. Non so cosa succede.
Per il momento vado a nanna, ci sentiamo domani.
Sandro

ciao, grazie puoi mandarlo al nuovo indirizzo che ti ho mandato in e-mail grazie tante


 ciao, grazie puoi mandarlo al nuovo indirizzo che ti ho mandato in e-mail
grazie tante
ok, ora č andato. Anche il mio OL evidentemente sente il bisogno di
vancanze.
Ciao, Sandro.

 ha scritto nel messaggio
news:43ab2a4a$0$1081$4faf...@reader4.news.tin.it...

No, ritiro tutto, non va. Mandami una mail con un indirizzo valido,
altrimenti non ne usciamo.
 Ciao, Sandro.

grazie , ti ho inviato la mia e-mail e' corretta ho provato a spedirmi qualcosa ed e' arrivata, forse devi zipparlo prima di inviarlo , forse qualche antivirus del tuo servere lo blocca, cmq l'email e' corretta ne approfitto per darti gli auguri di natale , e grazie
