Aiuto su bloccaggio maschera

26 Risposte - Pagina 2

• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 17:58

  Sta facendo delle prove.. poi una volta riuscito faro il progetto completo
  per il momento la tabella è "prova" il campo mai vuoto è l " id"
  ho provato a inserire il codice
  If DCount("ID", "prova") = 300 Then
  msgbox("Raggiunto limite di 300 Record")
  DoCmd.Close
  endif
  ma non mi da nessun messaggio e continua a creare record (301...302... 310)
  dove sto sbagliando
• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 18:19

  Hai abilitato il contenuto delle macro vero???
• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 18:24

  ?????
  mi sto vergognando come un cane...cioe???
• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 18:34

  Metti il tuo db in una cartella (non lasciarlo sul desktop)
  
  opzioni di access, scheda centro protezione, pulsante "impostazioni centro protezione", "percorsi Attendibili", "aggiungi nuovo percorso..." ... e scegli la cartella dove si trova il db
• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 18:48

  Niente stessa cosa...non mi da nessun messaggio e va avanti col contegio...
• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 18:52

  È giosto cosi il codice??

  ---

  Allegati:
  

  

• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 18:59

  Ahhh... non si legge nulla!!!!!!
  prova a fare copia e incolla dei tutto il codice...
• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 19:05

  E comunque visto da lontano... c'è qualcosa che non mi convince...
  
  sembra che sia fuori dalla routine giusta...
• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 19:15

  Prova ad incollarlo tra le 2 righine sopra... se non ho letto male è quella la routine giusta...
  
  e cancella quello sotto ...
  
  deve essere qualcosa del generea a
  Private Sub Form_Load()
  incolla il codice qui
  end sub
  
  tutto quello che cè sotto cancella
• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 19:32

  Niente stesso problema... no messaggio e continua a creare record in progressione

  ---

  Allegati:
  

  

• /

  Anonimizzato14159

  Utente anonimizzato

  16 feb 2014, 19:34

  Fatto come mi hai chiesto nel messaggio privato
• /

  Anonimizzato13935

  Utente anonimizzato

  16 feb 2014, 19:51

  Perfetto
  
  il codice complessivo è questo

  Private Sub Campo1_AfterUpdate()
      If DCount("ID", "prova") > 298 Then
          MsgBox ("Raggiunto limite di 300 Record")
          DoCmd.Close acForm, "Prova"
      End If
  End Sub
  
  
  Private Sub Campo2_AfterUpdate()
      If DCount("ID", "prova") > 298 Then
          MsgBox ("Raggiunto limite di 300 Record")
          DoCmd.Close acForm, "Prova"
      End If
  End Sub
  
  Private Sub Form_Load()
      If DCount("ID", "prova") > 299 Then
          MsgBox ("Raggiunto limite di 300 Record")
          DoCmd.Close acForm, "Prova"
      End If

  End Sub
  
  cancella tutto e incollalo