modificare il valore predefinito del campo di una tabella

Lucky

unread,

Sep 10, 2013, 4:03:29 AM9/10/13

to

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

pfmarro

unread,

Sep 10, 2013, 6:04:29 AM9/10/13

to

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

@Alex

unread,

Sep 10, 2013, 6:10:02 AM9/10/13

to

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

@Alex

pfmarro

unread,

Sep 10, 2013, 6:15:17 AM9/10/13

to

Il giorno martedì 10 settembre 2013 12:10:02 UTC+2, @Alex ha scritto:
> Conviene sempre usare il DEFAULT VALUE delle FORM in questi casi... lasciando stare la struttura...!!!
>
>
>
> @Alex

esempio please?
thank you

Pablitomf

unread,

Sep 10, 2013, 6:43:00 AM9/10/13

to

> Un grazie a tutti.
> Saluti
> 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

@Alex

unread,

Sep 10, 2013, 7:36:57 AM9/10/13

to

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

Lucky

unread,

Sep 10, 2013, 5:35:20 PM9/10/13

to

Ok raccolgo il consiglio di utilizzare campi delle FORM per eseguire la
modifica.
Ma il mio problema rimane questo:
vorrei, tramite codice vba, cambiare il "valore predefinito" (è un numero)

presente nelle proprietà del campo "aliquota" della tabella denominata
"PRINCIPALE".

Per cortesia, potreste indicarmi il codice da inserire ?
(purtroppo non ho compreso bene la sintassi riferita al campo di una tabella
....)

Un grazie a tutti.
Saluti
Lucky

"@Alex" <ik2...@libero.it> ha scritto nel messaggio
news:079b3ceb-ef87-4440...@googlegroups.com...

Lucky

unread,

Sep 11, 2013, 1:46:57 AM9/11/13

to

Ok raccolgo il consiglio di utilizzare campi delle FORM per eseguire la
modifica.
Ma il mio problema rimane questo:

vorrei, tramite codice vba, cambiare il "valore predefinito" (è un numero)

presente nelle proprietà del campo "aliquota" della tabella denominata
"PRINCIPALE".

Per cortesia, potreste indicarmi il codice da inserire ?
(purtroppo non ho compreso bene la sintassi riferita al campo di una tabella
....)

Grazie.
Saluti
Lucky

"Pablitomf" <pabl...@hotmail.it> ha scritto nel messaggio
news:201309101...@mynewsgate.net...

Lucky

unread,

Sep 11, 2013, 11:47:07 AM9/11/13

to

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

pfmarro

unread,

Sep 11, 2013, 12:46:22 PM9/11/13

to

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

Lucky

unread,

Sep 11, 2013, 2:10:05 PM9/11/13

to

ok risolto !!!
Il codice funziona così
_________________________________________

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 '

Perc_spesestudio
tdfPippo.Fields!Perc_spesestudio.DefaultValue =
Forms![PRIMA]!campomodifica.Value

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

Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub
________________________________________________________________________

Ultima domanda:
nel codice che mi hai consigliato c'è due voltea la seguente riga:
Debug.Print tdfPippo.Fields!Perc_spesestudio.DefaultValue '
Perc_spesestudio
(io avrei omesso la seconda in ultima riga)

è giusto che ci sia ???

Saluti
Lucky

"pfmarro" <pfm...@gmail.com> ha scritto nel messaggio
news:544079b4-bf4d-4f1e...@googlegroups.com...

pfmarro

unread,

Sep 12, 2013, 2:35:59 AM9/12/13

to

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

Lucky

unread,

Sep 12, 2013, 11:50:27 AM9/12/13

to

Grazie mille per i consigli.

Saluti
Lucky

"pfmarro" <pfm...@gmail.com> ha scritto nel messaggio

news:c2e81951-da5b-41d7...@googlegroups.com...

Il giorno marted� 10 settembre 2013 10:03:29 UTC+2, Lucky ha scritto:
> 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