Newsgroup: it.comp.appl.access
Titolo: Dati ripetuti

oops!!! ho inviato senza scrivere il testo.Scusate...č l'emozione.
Sto inserendo dei dati in un database, i valori di alcuni campi nel record
si ripetono per i record successivi, cosa devo fare per far si che ad ogni
newrecord mi si presentino i valori dei campi del record precedente?
Sara chiara la domanda? boh forse no, ma sicuramente Antonio BISO la
capisce.
Bye Debora

 newrecord mi si presentino i valori dei campi del record precedente?
ooops!!! hai inviato senza scrivere un oggetto valido. Credo che Biso non ti
scuserà... nonostante l'emozione...
cmq guarda sul sitocomune, c'è quello che ti serve.
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

Debora wrote:

Molto semplice
se il campo che devi inserire e' uguale a quello del record precedente
basta posizionarsi sul calpo e premere CTRL + ' (apostrofo)
Ciao Andrea Malfatti


Debora, il tuo post è vuoto!
Da cosa dipende?
Ciao, Carlo

 ha scritto nel
messaggio news:JaFd9.64872$pX1.2...@news2.tin.it...

Cosa vuoi insinuare? ;-P
Sarà l'emozione o la gioia xkè il mio capo è andato in ferie e non lo
rivedrò per almeno un mese
così posso dilettarmi nello studio con Voi!!!
Ciao, Debora.


Scusa x la prima parte del post... ma che mi hanno messo in quel caffč di
prima


Andrea wrote:

P.S.
Chiaramente se lo vuoi in automatico credo (dalle risposte che hai
dato ad altri) che di programmazione tu ne sappia piu' di me
Ciao Andrea Malfatti


No problem, forse non č il caffč!
Stai solo invecchiando. Ciao ciao!
P.S. Grazie x la risposta, lo avevo gia visto da qualche parte
ma non ricordavo dove! (forse sto invecchiando anch'io)

 dato ad altri) che di programmazione tu ne sappia piu' di me
No ti sbagli! Pero a forza di leggere post qulcs la si impara e quello che
si impara
bisogna metterlo a disposizione degli altri, cosi come gli altri fanno con
me!
Si lo vorrei in automatico anche xke premendo CTRL + ' si potrebbe fare
confuzione!
Cmq grazie.
Ciao, Debora.

 ha scritto nel messaggio
news:Q0Fd9.3084$%z1.7...@twister1.libero.it...

Ho trovato nel sitocomune questo:
Private Sub ComuneNascita_BeforeUpdate(Cancel As Integer)
Me.ComuneNascita.DefaultValue = "'" & Me.ComuneNascita.Value & "'"
End Sub
perň non funge, mi potete illuminare?
Debora


di che tipo di dati si tratta xkč questo vale per quello formato testo
ciao MAssimiliano


 di che tipo di dati si tratta xkč questo vale per quello formato testo
:-O  !?!?
ComuneNascita.... testo. ;-P

 wrote in
news:Q0Fd9.3084$%
z1.7...@twister1.libero.it
: 

  Non sono Biso e quindi potrei anche non aver capito, ma probabilmente ti 
basterebbe scrivere
      Me.NomeControllo.DefaultValue = Me.NomeControllo
nell'evento afterupdate (o forse anche beforeupdate...) del controllo.
  Ciao.

   Non sono Biso e quindi potrei anche non aver capito....
ciao Simone
Ma come siamo permalosi oggi!
ciao Debora

 ha scritto nel messaggio
news:Q0Fd9.3084$%z1.7...@twister1.libero.it...

__________
ciao, spero di aver capito il problema.
Io ho creato una tabella (Tabella1) con i segg. campi:
ID
Nome
Cognome
ed una maschera tabellare con lo stesso nome e come codice ho inserito:
Private Sub cognome_Exit(Cancel As Integer)
Dim intID As Integer
intID = Me.ID
DoCmd.GoToRecord acDataForm, "Tabella1", acNewRec
Me.nome = DLookup("nome", "tabella1", "id=" & intID)
Me.cognome = DLookup("cognome", "tabella1", "id=" & intID)
Me.nome.SetFocus
End Sub
in questo modo, ogni volta che esci tal controllo Cognome, ti aggiunge un
record
con tutti i valori del record corrente.
ciao Riccardo

>>>Me.nomecampo3 = DLookup("nomecampo3", "tabella1", "id=" & intID)
        Me.nome.SetFocus
 End Sub
é giusta la sintassi? Per saperlo è meglio provare.
Ti faccio sapere.
Grazie. Ciao,Debora.

 wrote in news:al7cg5$a34$1
@
lacerta.tiscalinet.it
:

 :-D


mi restituisce un errore in questa riga:
DoCmd.GoToRecord acDataForm, "Tabella1", acNewRec
"impossibile passare a questo record"
Che mi dici?

 perņ non funge, mi potete illuminare?
    Dalla guida:
Per impostare il valore della proprietą in Visual Basic, utilizzare
un'espressione stringa. Nel codice riportato di seguito la proprietą
DefaultValue per il controllo di una casella di testo denominata
MetodoDiPagamento viene impostata a "Contanti".
Forms!frmInvoice!MetodoDiPagamento.DefaultValue= """Contanti"""
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


frmInvoice  >>> cosa indica? il nome della mia msk?
posto sempre dopo aver letto la guida.
A te sembra chiaro quel codice?
A me non tanto, io devo impostare un campo sul valore del campo del record
precedente.
Forms!frmInvoice!MetodoDiPagamento.DefaultValue= metododipagamento
sicuramente non va scritto come sopra.
P.S. posto sempre dopo aver letto la guida.
Ciao Debora.

 P.S. posto sempre dopo aver letto la guida.
    Vedi sopra.



Debora(h) come ululavano F.Leali e l'altro chi era W. Pickett?
al tempo attuale mi sembra che ancora non c'e' una risposta
certa. 
Sono per le cose semplici e lunghe
1) A livello di modulo (penso basti)
dim variabile as tipo che interessa.....
.....
....
a me me piace l'evento "oncurrent"
2) su evento oncurrent
if me.newrecord
    me.controllo = valore variabile corrispondente
    ........
    .......
    ........
end if
su evento boh? afterupdate?
variabile = me.controllo corrispondente
.......
.......
---
a.cara

 ha scritto nel messaggio
news:al7dnv$ap1$1...@lacerta.tiscalinet.it...

_______________________
sono consentite le aggiunte nel form di inserimento?

"SimonenomiS" <Si...@nomiS.it> ha scritto nel messaggio
news:Xns92807F1B76957...@193.70.192.192...

Cosě non funziona: č giusta la sintassi che trovi sul Sito Comune da
applicare a fronte dell'evento "Prima di aggiornare" del controllo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Debora
Tutte le volte che ho adottato questo codice del Sito Comune a me ha
funzionato egregiamente: cosa è che a te non funziona?
Naturalmente, ogni volta che apri la maschera, per il primo record che
inserisci il dato lo devi digitare tu a manina santa, ma per i record
successivi il valore ti verrà riproposto automaticamente.


 sono consentite le aggiunte nel form di inserimento?
Certo che per aggiungere solo questa frase, potevi tagliare un po' di
quoting!!!
Antonio

 
  Ciao, in una maschera di prova, collegata alla Tabella1 
contenente il campo [Prova], ho associato il seguente codice 
all'evento BeforeUpdate della casella di testo Prova:
Private Sub Prova_BeforeUpdate(Cancel As Integer)
    Prova.DefaultValue = Prova
End Sub
  Sembra funzionare senza problemi...
-------------------------------------------
http://digilander.libero.it/winses

     Invece si', se il campo collegato a MetodoDiPagamento e' di tipo
testo.
Ok, grazie x la risposta.
P.S. Mi è sembrato che ti sei alterato, se ti creo problemi, non sei
obbligato a rispondermi. Sai, chiedere è lecito, rispondere...è cortesìa!
Ciao Debora.

   Sembra funzionare senza problemi...
Ciao Simone, ora provo la tua soluzione.
Sei davvero gentile.
Debora.

 Sai, chiedere è lecito, rispondere...è cortesìa!
    Io invece preferisco dire: e' lecito chiedere con cortesia, prima di
tutto, poi rispondere... e' cortesia.


 tutto, poi rispondere... e' cortesia.
Ok, se vuoi cancelliamo quanto sopra, io sono tranquillissima.
Non ha senso litigare, eppoi x cosa?!?
Ciao Debora.

 > > Forms!frmInvoice!MetodoDiPagamento.DefaultValue= """Contanti"""
allora per tornare al discorso:
Forms!frmInvoice!campo1.DefaultValue= campo1
questa stringa messa nell'evento primadiaggior, non funziona
dopoaggior, non funziona
nella proprieta valore predefinito, non funziona
Purtroppo,come vedi,non ci arrivo!
Che mi dici?
Ciao Debora.

 ha scritto nel messaggio
news:al9gtd$890$1...@lacerta.tiscalinet.it...

No, non va, non so spiegarmi il xkè!
Eppure nella tabella,il campo in questione contiene dei valori (testo).
Che dici,ci rinuncio e li scrivo manualmente?
ciao Debora.


andavo di fretta!
ciao
(va bene cosě?)
:-)

 ha scritto nel messaggio
news:al9uuc$fm7$1...@localhost.localdomain...

Perfetto!
Antonio

   Sembra funzionare senza problemi...
Non so che dirti: io uso A97 e se scrivo come tu dici mi dà errore.


 Che mi dici?
    E che ti devo dire, figlia mia?... Mettila su Corrente... 220, mi
raccomando.
    Ma io mi sono perso lo scopo, il senso di tutto cio'. Perche' mai si ha
bisogno di impostare la proprieta' DefaultValue? E, prima ancora, cos'e' la
proprieta' DefaultValue? A che serve? Se non ti risenti io a questo punto ho
bisogno di consultare la guida. Le primissime righe a proposito di questa
proprieta' dicono:
"È possibile utilizzare la proprietà DefaultValue per specificare il valore
che sarà immesso automaticamente in un campo quando si crea un nuovo
record."
    Quindi ci vuole un nuovo record. Tu ce l'hai? Si'. Pero', 'sto nuovo
record, pure se ce l'hai, che te ne fai della proprieta' DefaultValue quando
gia' quello e' diventato corrente?
    Prima. Ci dovevi pensare prima. Ok. E qual e' l'evento scatenato dalla
maschera prima che un record diventi il record corrente? Torniamo alla
guida, alla pagina "Ordine degli eventi per i record sulle maschere":
"PrimaDiAggiornare (maschera) => DopoAggiornamento (maschera) => Uscita
(controllo) => Disattivato (controllo) => Corrente (maschera)"
    Bene, questo stringe il campo a DopoAggiornamento e a Corrente. Vediamo
che dice la guida:
"L'evento DopoAggiornamento si verifica dopo l'aggiornamento dei dati
modificati in un controllo o record."
    Come vedi non ci dice se il record corrente e' ancora quello di prima o
quello nuovo. Vediamo Corrente:
"L'evento Corrente si verifica quando lo stato attivo si sposta su un record
che quindi diventa il record corrente oppure quando una maschera viene
aggiornata o viene rieseguita una query su di essa."
    Siamo in una specie di limbo, qui, fra il record precedente e quello
successivo. Quello che scriviamo nell'evento Corrente riguarda il record che
*sta per* diventare corrente.
    Sembrerebbe il posto giusto per quel tuo DefaultValue. Ricordiamoci
pero' cio' che abbiamo letto prima: "quando si crea un nuovo record". Gia'
perche' se cambi il valore di default ad un record esistente lui manco ti
bada.
    Fosse questo il problema? Ce lo devi dire tu. Ma tu gia' ce l'hai detto,
e molto chiaramente, anche:
"Sto inserendo dei dati in un database, i valori di alcuni campi nel record
si ripetono per i record successivi, cosa devo fare per far si che ad ogni
newrecord mi si presentino i valori dei campi del record precedente?"
    Ricordi? E da quella volta conto 32 post 32. Mica male.
    Io non vado a rileggere come e perche' e' venuta fuori la proprieta'
DefaultValue. Dico solo questo: vuoi scrivere i valori del record precedente
in quello nuovo e corrente? Li leggi e li scrivi. Devi solo sapere qual e'
il record che devi leggere. Quindi quando quel record e' corrente devi
registrare in una variabile privata della tua maschera qualcosa che ti
permetta di identificarlo. Puoi usare la:
        Property CurrentRecord As Long
            Membro di Access.Form
che ti dice il numero della posizione del record nel recordset. Oppure puoi
usare la:
        Property Bookmark As Variant
            Membro di Access.Form
che restituisce il "segnalibro" del record. Io sono abituato a usare questa.
    Quindi, dopo che il salvataggio del record e' andato a buon fine, ma
prima che diventi corrente un altro record, il tuo codice dovrebbe
comportarsi piu' o meno cosi':
' ************************************************************
Option Compare Database: Option Explicit
Private m_BmkPrev As Variant
Private Sub Form_AfterUpdate()
  m_BmkPrev = Me.Bookmark
End Sub
Private Sub Form_Current()
  Dim oAcCtl As Access.Control
  With Me
    If (.NewRecord = True) Then
      If (Len("" & m_BmkPrev) > 0) Then
        With .RecordsetClone
          .Bookmark = m_BmkPrev
          On Error Resume Next
          For Each oAcCtl In Me.Controls
            oAcCtl.Value = .Fields(oAcCtl.ControlSource).Value
          Next
          On Error GoTo 0
        End With
      End If
    End If
  End With
End Sub
' ************************************************************
    Questo codice non l'ho fatto girare ancora, e sono anche curioso di
sapere se e' la cosa giusta da fare.
    Ovviamente potranno esserci campi da escludere, e dovrai farlo nella
routine for .. next.
    Non ti preoccupare del tono che ho usato. E' esattamente il tono che uso
quando faccio ragionamenti fra me e me. I vari "tu" che trovi scritti li
devi riferire a me stesso.


 devi riferire a me stesso.
questo lo postato prima  in un'altro 3d:
Ragazzi,considerate che sono partita da zero, e da circa un mese.
tutto sommato qualcosa l'ho imparato, apprezzate se non altro
almeno l'impegno.
Ciao Debora
Ti ringrazio per il tempo che mi hai dedicato (immagino anche tanto a
giudicare
da quello che hai scritto). in tanti hanno risposto con delle righe di
codice semplici,
diciamo "alla mia altezza" (anche se sono alta 1.78  ;-P)
Però a fare quello che mi suggerisci non ci riesco, nel sito comune sembrava
cosi semplice che
l'ho voluto provare. Continuerò a ripetere manualmente  in ogni campo del
mio record,  intanto cerkerò di
capire quello che hai scritto. prima o poi ci arriverò a trovare questa
benedetta soluzione,
la testardaggine è uno dei miei innumerevoli difetti, in access è un pregio,
credo.
Ciao Debora.

 diciamo "alla mia altezza" (anche se sono alta 1.78  ;-P)
    Debora H 1,78. Ecco dov'era finita l'acca... e io che stavo in
pensiero!...


 diciamo "alla mia altezza" (anche se sono alta 1.78  ;-P)
Mai Gad
Quand'è che dovevamo vederci?
Antonio


:-DDDD


Sei troppo vecchio,e io troppo giovane e piena di voglia di divertirsi,
 un sondaggio dice che gli infarti si manifestano o vengono agli uomini
che hanno superato i trenta anni,perchč non si vogliono
rassegnare che determinare cose non le possono piů fare
come quando avevano 18 anni.
Io non voglio essere la causa ne la persona che
fa alimentare o incrementare questa percentuale!!!
Ciao Zio Antonio.
Bye Debora

 come quando avevano 18 anni.
I sondaggi dicono anche che gli uomini sopra i 30 anni, tendono a soddisfare
molto di piů la partner, invece di dedicarsi solo a loro stessi come i
pischelli di 18!!!
Antonio


Aglia, Antonio perdi colpi, cosa da farsi un format me:.
In realtà è lei che non ha capito che non sei un trentenne ma hai
l'entusiasmo e il vigore di due quindicenni....
ciao MAssimiliano
 
--------------------------------
Inviato via 
http://usenet.libero.it

 molto di piů la partner....
E' vero, ma ti assicuro che ci sono anche in quella categoria degli
imbranati
da paura! Poi vuoi mettere un bel manovale 18enne, forte e vigoroso
con uno smanettatore di "keyboard"! ;-P
Debora.

 ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...

 Speriamo solo il vigore e non anche i brufoli!
Debora.

 a.cara
ti riferivi a questo nel 3d Maschere....?
Non ci riuscirei da sola, e non credo che ci sia qualcuno
che abbia il tempo e la pazienza di spiegarmi come funziona!
Dovrò studiare un pò,un bel pò prima di riuscire a creare un modulo
e il resto.
Debora.

 Debora.
non fare la furba. Hai una vita davanti a te e poi sembra difficile
invece
Quando dico modulo intendo quello di form
quindi basta che metti le definizioni in testa 
(in genere dopo la option explicit che normalmente c'e')
poi risolviamo il problemino aggiuntivo
escursus
1) Puoi partire con la tabella vuota
2) Puoi partire con la tabella che contiene gia' i dati
3) Puoi essere in un ciclo di inserimenti
La soluzione che avevo immaginato ti risolve solo il caso 3
per risolvere anche i precedenti c'e' da attivare anche 
l'evento di onload e se la tabella ha gia qualcosa 
posizionarsi sull'ultimo record e fare le stesse cose 
dell'evento after update altrimenti le variabili si possono
lasciare a null (o vuoto)
E poi se sbatti un po gli occhioni qualcuno che ti segue lo trovi
--
a.cara

 a.cara
Come si fa a sbattere gli occhioni, in chat? ;-P
Cmq ho già avuto modo di usare
Dim Str..... as string
Dim dbs.... as database
Dim rst..... as recordset
ect
ma la variabile da dimensionare qual'è?
Io devo dimensonare il controllo del record che contiene i dati.
quindi
dim dbsMiamaschera(?) as database
dim rstMiaTabella as recordset
quindi set dbsMiamas.. =currentDb()
set rstMiatabella=dbsdbsMiamasc.Openrecordset("miatabella")
Sto andando nella giusta direzione???
Debora.

 Debora.
cmq faccio un esempio, spero, piu chiaro
1) Hai una tabella che si chiama t1 con i campi c1 (string), c2 (long),
c3 (date)
2) Probabilmente fai un form con origine dati t1 su cui definisci i
controlli
   c1, c2, c3 
3) i valori me.c1, me.c2, me.c3 sono valorizzati automaticamente
4) cominci a fare un inserimento, lo finisci ed a questo punto ne vuoi
fare un altro. Quando passi sul nuovo record scattano una serie di
eventi alcuni sul
record che stai lasciando, altri su quello in cui stai entrando
5) E' necessario scegliere l'evento piu' appropriato per il record che
stai 
   lasciando. Credo che l'evento di after update (di form, non di campo,
vada
   bene). Va da se che in questo momento i valori che ti interessa
copiare
   sono sul form quindi te li devi copiare da qualche parte altrimenti
li perdi.
   Da qui la necessita' di definire delle variabili "visibili". Per fare
questo    
   vanno messe dopo la 
option explicit
dim c1 as string
dim c2 as long
dim c3 as date
e 
Private Sub Form_AfterUpdate()
   c1 = me.c1
   c2 = me.c2
   c3 = me.c3
End Sub
6) A seguire scatta l'evento di "current". Qui siamo gia' sul nuovo
record
   e quindi basta recuperare i valori che abbiamo salvato
Private Sub Form_Current()
If NewRecord Then
   me.c1 = c1
   me.c2 = c2
   me.c3 = c3
End If
End Sub
Non devi fare nulla piu' di questo. Ripeto questo va bene per un "ciclo"
di 
inserimenti e funziona a partire da 2' inserimento.
--
a.cara

 wrote in
news:JNZd9.7440$
AW6.1...@twister2.libero.it
: 

  Ciao Debora.
  Allora, ho una 'Tabella1' siffatta:
TABELLA1
ID       (Contatore) 
ProvaNum (Intero)
ProvaTxt (Testo)
  Ho creato una maschera associata a Tabella1 contenente due 
campi testo: uno (ProvaNum) associato al campo [ProvaNum], 
l'altro (ProvaTxt) associato al campo [ProvaTxt].
  Nell'evento BeforeUpdate dei due controlli ho inserito il 
seguente codice:
Private Sub ProvaNum_BeforeUpdate(Cancel As Integer)
    ProvaNum.DefaultValue = ProvaNum.Value
End Sub
Private Sub ProvaTxt_BeforeUpdate(Cancel As Integer)
    ' NB: le stringhe vanno racchiuse tra apici!
    ProvaTxt.DefaultValue = Chr$(34) & ProvaTxt.Value & Chr$(34)
End Sub
  A me funziona (uso Access 2000. Domani, al lavoro, proverò con 
A97 e ti faro' sapere).
-- 
-------------------------------------
http://digilander.iol.it/SimonenomiS/
-------------------------------------

"SimonenomiS" <Si...@nomiS.it> ha scritto nel messaggio
news:Xns928466AA6A5B...@193.70.192.192...

Ciao Simone, Anch'io uso A2k.
miocampo.DefaultValue = Chr$(34) & miocampo.Value & Chr$(34)
non c'è da sbagliare!
Debora

 a.cara
Ora provo anchè questa soluzione.
Debora

 Come va chiusa una option explicit? Private sub?
la option explicit non va chiusa. Generalmente la mette il sistema
(e' configurabile) e significa che e' richiesta la dichiarazione
delle variabili prima del loro uso
--
a.cara

 > ma la variabile da dimensionare qual'è?

Non mi fa aprire la msk e mi da questo errore
L'espressione su corrente immessa come
impostazione della proprietà di evento ha
provocato il seguente erore:Membro già esistente
 in un modulo di oggetto da cui il modulo
di oggetto deriva. ??????????
Ho fatto come tu mi hai detto, Giuro!  :-(
Debora.

 con uno smanettatore di "keyboard"! ;-P
L'imbranaggine è qualcosa che non mi tange!
E poi...
Il 30enne sarà uno smanettatore di keyboard, ma poi ha anche altre qualità
nascoste... è molto probabile però che il 18enne sia uno "smanettatore" e
basta!!!
he ehe he
Antonio

 Ho fatto come tu mi hai detto, Giuro!  :-(
uhm. Non ne sono certo....
per favore copiaincolla tutto il codice che hai dietro la form
e cutta qualcosa altrimenti lo dico a Biso
--
a.cara

 a.cara
Option Compare Database: Option Explicit
Dim DistrettoIrriguo As String
Private Sub Form_AfterUpdate()
DistrettoIrriguo = Me.DistrettoIrriguo
End Sub
Private Sub Form_Current()
If NewRecord Then
  Me.DistrettoIrriguo = DistrettoIrriguo
End If
End Sub

 End Sub
sorry, dovrebbe essere questo
if me.newrecord then
--
a.cara

 e cutta qualcosa altrimenti lo dico a Biso
Debora, Alessandro ti sta dando fastidio?!?!
Antonio

 ha scritto nel messaggio
news:3D7C8C25...@blunet.it...

Solo un'altra cosa, poi questo 3d forse č meglio
chiuderlo,ci sono piů di 50 post!!!
Su subForm_current ho anche questo:
Private Sub Form_Current()
If IsOpen("elencomappali") Then
Forms!elencomappali.Filter = "codiceditta=" & _
Nz(CodiceDitta, 0)
End If
End sub,
Come va messo insieme??
Debora

 ha scritto nel messaggio
news:%s%e9.300$Oz2....@twister2.libero.it...

Perchè ci tieni a precisare?
Non avrai per caso la coda di paglia? ;-P
Debora

 Nz(CodiceDitta, 0)
Sei sicura di questo?
Praticamente, se nel codice ditta non c'č nulla, ti filtra per il codice 0.
E' giusto?
O forse sarebbe meglio dire che se non c'č nulla allora devono essere
restituti tutti i record.
E allora forse devi mettere
Forms!elencomappali.Filter = "codiceditta like " Nz(CodiceDitta, "*")
Antonio

 Non avrai per caso la coda di paglia? ;-P
Del tipo "scusatio non petita"?
Uhmmm...
no, no...
sto solo mostrando il meglio della merce...
he ehh ehhehe
Antonio


No, è giusto, xkè lo scopo e filtrare i dati per il codice corrispondente
alla msk aperta. Se il codice è null non esistono dati, e se nella ditta non
ci sono dati
da elencare per quella dita
è giusto che non mi restituisca niente, certo bello sarebbe se mi aprisse
una
msgbox "non ci sono dati", ma...ci si deve accontentare,almeno per ora.
Debora.







 ha scritto nel messaggio
news:3D7C8C25...@blunet.it...

Ale, non va!? :°-(
Stesso messaggio di errore, forse
perche non ho messo quella parte..
puoi andare a leggere il post delle 16:07?
Se tolgo quelle righe però funziona di nuovo!!!!
Debora

 msgbox "non ci sono dati", ma...ci si deve accontentare,almeno per ora.
Fare una Dlookup o una Dcount e su test del risultato mandare la msgbox, no
eh?
Antonio
P.S.
Adoro quando ribadisci per tre volte il tuo concetto!!!


Spiritoso, non so xkè,forse mi sono distratta,ho mille finestre
aperte ....
Debora

 Debora
Poi lamentati che c'hai i doloretti alla cervicale o ai reni!!!
Antonio

 ha scritto nel messaggio
news:Nt2f9.1177$Oz2....@twister2.libero.it...

Scusa, ma tu hai scritto proprio
Option Compare Database: Option Explicit
Guarda che queste devono essere una sotto l'altra, cioè
Option Compare Database
Option Explicit
Senza i due punti
Intanto fa questo e vedi se funziona la soluzione di Alessandro!!!
Antonio

 Senza i due punti
    Scusa, quello dei due punti fra le Option sono io.
    Cosa c'e' che non va?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

     Cosa c'e' che non va?
E perchč ce li metti?!?
Antonio

 ha scritto nel messaggio
news:zP3f9.1686$6O4....@twister1.libero.it...

ti rispondo io, se leggi l'help (come dici tu) potrai notare
che non fa distinzione fra l'uno e l'altro. ;-P   ;-*
--
 Debora

 Come va messo insieme??
deboraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
ma non ti avevo chiesto di mettere tutto il codice????????????
eccolo l'errore (quello di cui avevo l'impressione)
NON PUOI mettere due funzioni (o sub) con lo stesso nome!!!!!!!
una delle due va eliminata 
E ne rimarra' una sola  (la regola dell'Highlander)
Private Sub Form_Current()
 If IsOpen("elencomappali") Then
 Forms!elencomappali.Filter = "codiceditta=" & _
 Nz(CodiceDitta, 0)
 End If
 If NewRecord Then
   Me.DistrettoIrriguo = DistrettoIrriguo
 End If
 End sub
--
a.cara

 E perchè ce li metti?!?
    1. Per avere una riga in meno nella videata;
    2. E perche' no?


 
3) Per mandare al manicomio quelli che non hanno studiato a memoria
l'help
4) Per far casino
--
a.cara

 Debora
guardati la risposta sull'altro ramo 
E la prossima volta sii piu' diligente 
(ho copiato e incollato e quindi trovi newrecord invece di me.newrecord)
--
a.cara

     1. Per avere una riga in meno nella videata;
Non lo sai che il valore di un programma si vede dal numero di righe di
codice?
Cosě il tuo programma si svaluta!!!
Antonio

 Cosě il tuo programma si svaluta!!!
    Sssh, piano, che non ti senta.


 4) Per far casino
    ... ma questo mai!


     Sssh, piano, che non ti senta.
Ma se lo sanno tutti!!!!
Antonio

 Ma se lo sanno tutti!!!!
    Tutti si', ma *non* lui!


     Qui non ti seguo... Il biondo? E chi e'?
Sapevo che eri scrauso, ma non fino a questo punto...
I Fondamentali, accidenti!!!
" Io ho visto cose che voi umani non potete immaginare, ..... ho visto navi
da battaglia in fiamme al largo dei bastioni di Orione, ..... ed ho visto i
raggi B, balenare nel buio davanti alle porte di Tannahuser, ..... ma ora
.....  tutto questo,  verrà dimenticato, ..... come lacrime nella pioggia,
.... perchè ora ....  è tempo .... di morire..."
Eeehhhhh....
Antonio

     Qui non ti seguo... Il biondo? E chi e'?
molla la tastiera e vai al cinema a goderti un po' di spaghetti western
s.e. & o.
--
a.cara

 
titolo in inglese?
eeeehhhh...  ehhhhhh.... questo era un altro "biondo"
--
a.cara

 ha scritto nel messaggio
news:3D7CDE3B...@blunet.it...

Troppo facile guarda... almeno per me...
Do androids dream of the electric sheep?
Heheheh
Mi sta venendo voglia di rivederlo!!!
Antonio

 di oggetto deriva. ??????????
Il problema è che hai chiamato le variabili d'appoggio con lo stesso nome
dei campi a cui si appoggiano i controlli della maschera.
Verifica!
Antonio

 Verifica!
ma che hai sognato una pecora elettronica
o meglio ti sei fumato l'impossibile..... senza andare in quel di Orione
--
a.cara

 o meglio ti sei fumato l'impossibile..... senza andare in quel di Orione
No, no, è vero!
Io (IO) per Deboruccia, l'ho testata personalmente la soluzione!!!
E anche a me dava quello stesso messaggio di errore. Poi, smucinando un
pochetto, ho verificato che lo dava se i nomi delle variabili erano uguali a
quelli dei campi associati ai controlli della maschera. Evidentemente era
una specie di problema di riferimento circolare...
Antonio

 Sapevo che eri scrauso, ma non fino a questo punto...
    Questa me la sono proprio meritata... Roy Batty!... Come ho fatto a non
pensarci?!...
    Per penitenza 'sta notte me lo sono rivisto.


     Per penitenza 'sta notte me lo sono rivisto.
Chiamala penitenza...
Antonio

 una specie di problema di riferimento circolare...
ritiro tutto, ho verificato anch'io 
non comprendo il perche' ma e' come dici
--
a.cara

 ha scritto nel messaggio
news:3D7DB109...@blunet.it...

é risolto, bastava mettere consenti lunghezza zero a Si.
--
Debora

 é risolto, bastava mettere consenti lunghezza zero a Si.
allora ti funziona?
era complicato?
--
a.cara

 ha scritto nel messaggio
news:3D7DBB1D...@blunet.it...

Si funziona,tu mi hai dato
le istruzioni giuste, sono io che
sono imbranata xkè ho lasciato
cons lungh zero a No, da qui l'errore!
Grazie 1000.
--
Debora

 cons lungh zero a No, da qui l'errore!
visto che siamo in fase di apprendimento.......
non correre.
L'errore  non era li. Era dovuto sia al nome duplicato della sub
che al nome dei campi, come dottamente dimostrato da A.Biso
Il problema di consenti lunghezza 0 e' diverso
Che fai se effettivamente il campo deve essere valorizzato?
Perche e' p.e. una chiave?
--
a.cara

 a.cara
Antonio mi ha suggerito di fare cosi:
If Me.NewRecord Then
       campo1 = nz(varcampo1,"-")
       campo2 = nz(varcampo2,"-")
     End If
Dovrebbe risolvere il problema della valorizzazione del campo.
quindi il procedimento che devo utilizzare (anche per chi avrà lo stesso
problema) é:
 Option Compare Database
Option Explicit
Dim strDistrettoIrriguo As String
Private Sub Form_AfterUpdate()
strDistrettoIrriguo = Me.DistrettoIrriguo
End Sub
Private Sub Form_Current()
If Me.NewRecord Then
DistrettoIrriguo = nz(strDistrettoIrriguo,"-")
End If
End Sub
nel caso in cui il campo e di tipo numerico
sostituisco as string con as long (nel caso di intero lungo)
però mi rimane il dubbio qui.
DistrettoIrriguo = nz(strDistrettoIrriguo,"-")
se va bene nel caso di campo numerico.
--
Debora

 se va bene nel caso di campo numerico.
non dovrebbe, e' numerico?
allora 
DistrettoIrriguo = nz(strDistrettoIrriguo,0)
Pero' attenzione perche' per i numerici "forzare" uno 0 puo' essere
mortale
i.e. uno 0 fa media un Null no
--
a.cara

 mortale
Questo infatti rientra nel discorso della gestione dei dati di default. Deve
essere lei a decidere cosa mettere in caso di mancato inserimento o se
rifiutare l'inserimento stesso!!!!
Antonio

 a.cara
Spero di no.
eppoi ho capito che c'è sempre un rimedio,almeno
in access!
--
Debora

 ;-P
Hehe he ehhehehe eehe ehe eh eh
MI-TI-CA Debora!!!!
Antonio