Newsgroup: it.comp.appl.access
Titolo: Limitare inserimento record da maschera

Saluti a tutti.
Per cortesia un aiuto.
Sto cercandodi limitare l'inserimento di record in una tabella tramite 
questo codice trovato nei vari news su access ma non riesco a farlo 
funzionare e a capire alcuni passaggi:
 - If DemoVersion a cosa si riferisce then ?
- Debbo inserire codice pure in un modulo o dichiarare una variabile?
Private Sub Form_BeforeInsert(Cancel As Integer)
If DemoVersion Then
  If DCount("*", "DemoVersion") >= 5 Then
   MsgBox "ATTENZIONE: il programma č in versione dimostrativa, quindi non č 
possibile gestire piů di 50 articoli. Per ottenere la versione completa 
contattare il fornitore del programma.", vbCritical, "Versione DEMO"
   Cancel = True
  End If
End If
End Sub
Grazie 1000 e saluti
Giorgio 

 ha scritto nel messaggio
news:466d6380$0$36438$4faf...@reader5.news.tin.it...

la prima DemoVersion
----
If DemoVersion Then
----
si riferisce a una variabile o a una costante pubblica che inserirai un un
modulo Bas.
Se non ti serve togli la riga della If e la riga dell'ultima End If
la seconda
----
If DCount("*", "DemoVersion") >= 5 Then
----
č il nome della tabella origine record della maschera quindi va cambiato con
il nome effettivo della tua tabella.
Il codice va inserito nell'evento Prima di Inserire della maschera con cui
popoli la tabella.
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

Grazie della disponibilità Giorgio ma sono ancora in dififcoltà
allora:
In un modulo chiamato DemoVersion ho inserito:
Option Compare Database
Dim DemoVersion
e nella Maschera
Private Sub Form_BeforeInsert(Cancel As Integer)
If DemoVersion Then
  If DCount("*", "DemoVersion") >= 5 Then
   MsgBox "ATTENZIONE: il programma è in versione dimostrativa, quindi non è 
possibile gestire più di 50 articoli. Per ottenere la versione completa 
contattare il fornitore del programma.", vbCritical, "Versione DEMO"
   Cancel = True
  End If
End If
End Sub
ma nella verifica codice f8 alla riga
If DemoVersion Then
mi da un MsgBox del tipo
Errore di compilazione:
Prevista variabile o routine e non modulo
dove sbaglio?
Grazie e saluti
Giorgio A. 

 Dim DemoVersion
qui scrivi
public DemoVersion
---cut--
--
Ciao
Access 

Ciao Access fatto quando mi hai consigliato ma mi dà lo stesso errore
Saluti e buona giornata 

 ha scritto nel messaggio 
news:466e74e5$0$37200$4faf...@reader3.news.tin.it...

"If DemoVersion then" non ti serve, sicuramente nel codice
che hai trovato si fa riferimento a una quanlche funzione
presente in un modulo bas.
Per quello che serve a te puoi usare quel codice in questo modo:
Private Sub Form_BeforeInsert(Cancel As Integer)
  If DCount("*", "DemoVersion") >= 5 Then
   MsgBox "ATTENZIONE: il programma è in versione dimostrativa, quindi non è
possibile gestire più di 50 articoli. Per ottenere la versione completa
contattare il fornitore del programma.", vbCritical, "Versione DEMO"
   Cancel = True
  End If
end sub
Cioè, elimini la  la prima riga
"if demoversion then"
e l'ultima
"End If"
cosi come ti ha gia' indicato Giorgi RANCATI nel suo post.
--
Ciao
Access

 Giorgio A.
Ciao Giorgio,
sbagli a a dare il nome del modulo con lo stesso nome della variabile
nel modulo metti questo codice
----
Option Compare Database
Option Explicit
Public Const DemoVersion As Boolean = True
----
e salvalo con nome basDemoVersion


Grazie mille Giorgio e Access
tutto ok, funziona con entrambe le soluzioni
Con riconoscenza
Giorgio A.