Newsgroup: it.comp.appl.access
Titolo: modificare il valore predefinito del campo di una tabella

Salve a tutti.
Avrei bisogno di un aiutino....
Mi trovo nella maschera denominata "PRIMA" e vorrei, tramite codice vba, 
cambiare il "valore predefinito"
presente nelle proprietà del campo "aliquota" della tabella denominata 
"PRINCIPALE".
Tutto ciò dovrebbe avvenire digitando il valore corrispondente nel campo 
"MODIFICA" della maschera denominata "PRIMA".
Per cortesia, potreste indicarmi il codice da inserire.
Un grazie a tutti.
Saluti
Lucky 
 
 


guardati DefaultValue dall'help in linea
 
comunque
 
 
   Dim db As Database
   Dim tdfPippo As TableDef
 
 
   Set db = CurrentDb
   Set tdfPippo = db.TableDefs!principale  ' nome tabella =principale
 
   ' Store original DefaultValue information and set the
   ' property to a new value.
   Debug.Print tdfPippo.Fields!Aliquota.DefaultValue   ' nome campo Status
   tdfPippo.Fields!Status.DefaultValue = 999
   Debug.Print tdfPippo.Fields!Aliquota.DefaultValue

Conviene sempre usare il DEFAULT VALUE delle FORM in questi casi... lasciando stare la struttura...!!!
 
@Alex
 

 @Alex
 
esempio please?
thank you

 Lucky 
 
lascia stare le tabelle... usa il DefaultValue nei campi Form... 
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

A prescinedere da quanto proposto da questo articolo di Karl, che potrebbe non essere il tuo caso specifico:
http://www.donkarl.com/it?FAQ4.22
 
 
usa quello che viene evidenziato come metodo per accedere correttamente alla gestione della proprietà DEFAULTVALUE.
 
@Alex

 ha scritto nel messaggio 
news:079b3ceb-ef87-4440...@googlegroups.com...


 ha scritto nel messaggio 
news:201309101...@mynewsgate.net...






No, no, ti sbagli, ci ho lavorato sulla tua soluzione !!! 
Però, ecco che cosa mi succede......


purtroppo il codice non mi funziona, ovviamente perchè sbaglio 
a fare qualche cosa.


Ti riassumo la situazione:


Ho creato una maschera chiamata PRIMA e all'interno ho creato 
un campo non associato chiamato MODIFICA


Ho poi creato un pulsante (Comando0) nel quale, con 
evento CLIC, ho inserito il seguente codice vba:


____________________________________________________________________________________


Private Sub Comando0_Click()
On Error GoTo 
Err_Comando0_Click
'===============================


 


Dim db As Database
Dim tdfPippo As TableDef
   

   Set db = CurrentDb
   Set tdfPippo = 
db.TableDefs!Fatture  ' nome tabella =Fatture


 


   ' Store original DefaultValue information and set 
the
   ' property to a new value.
   Debug.Print 
tdfPippo.Fields!Perc_spesestudio.DefaultValue   ' nome campo 
Status
   tdfPippo.Fields!Status.DefaultValue = 999
   
Debug.Print tdfPippo.Fields!Perc_spesestudio.DefaultValue


 


'===============================
Exit_Comando0_Click:
    
Exit Sub


 


Err_Comando0_Click:
    MsgBox 
Err.Description
    Resume 
Exit_Comando0_Click
    
End Sub


____________________________________________________________________________________


 


All'interno del campo MODIFICA della maschera PRIMA digito, per esempio, il 
numero 10 e poi premo il pulsante Comando0.


L'obbiettivo sarebbe quello di modificare il valore predefinito del campo 
"Perc_spesestudio" della tabella "Fatture, ma


in risposta a questa azione ho il seguente messaggio di errore: "Elemento 
non tovato in questo insieme".


Dove sbaglio ???


Grazie.


Saluti


Lucky



Il giorno martedì 10 settembre 2013 10:03:29 UTC+2, Lucky ha scritto:

l'errore e' che cambi sempre il nome dei campi
 
tdfPippo.Fields!Perc_spesestudio.DefaultValue = 999

 ha scritto nel messaggio 
news:544079b4-bf4d-4f1e...@googlegroups.com...


Il giorno martedì 10 settembre 2013 10:03:29 UTC+2, Lucky ha scritto:

la riga di debug.print serve solo per vedere nella finestra immediata il valore
 
puoi toglierle tutte 2.
serviva solo a testare il valore prima e dopo l'aggiornamento
 
ti consiglio di impratichirti con l'uso del debig e della finestra immediata in modo da capire cosa sta facendo il codice
 
Saluti

 Tutto ci� dovrebbe avvenire digitando il valore corrispondente nel campo
