title: Contatore

author: Roberto Fantino

text:
Qualcuno sa se è possibile fare in modo che il
contatore di un ID vada a coprire i record cancellati.

Es. se io ho dieci record 1-2-3 ecc. e cancello il
record 3, un nuovo record verra assegnato al numero 11,io vorrei che fosse
assegnato l'ID del record cancellato cioè 3.

Fante

fan...@tiscalinet.it


title: Contatore

author: Sergio MAZZA

text:
DOMANDA:
""Roberto Fantino"" <
fan...@infinito.it
> ha scritto nel messaggio
news:001601c08194$2e0e35c0$4732d5d5@fantrobkataweb...

RISPOSTA:
- Non inviare messaggi in formato HTML;
- Esegui la compattazione dell'mdb.
Ciao.


title: Contatore

author: Proli

text:
    "Roberto Fantino" ha scritto nel messaggio
<001601c08194$2e0e35c0$4732d5d5@fantrobkataweb>...
    Qualcuno sa se č possibile fare in modo che il contatore di un ID vada a
coprire i record cancellati.
    Es. se io ho dieci record 1-2-3 ecc. e cancello il record 3, un nuovo
record verra assegnato al numero 11,io vorrei che fosse assegnato l'ID del
record cancellato cioč 3.
    Fante

fan...@tiscalinet.it
    Ciao
    Prova a non cancellare mai i records.  Nella tabella inserisci un campo
0/1 che identifica se il record č valido oppure no.
    Quando lo annulli poni il flag = 1
    Quando lo ripristini e ne modifichi i dati poni il flag a 0
    Controlla sempre lo stato del flag.
    Potrai cosě ripristinare l'ID senza dover compattare il DB.
    Ciao
    Dell'Oca Marco
    D.M.Software


title: Contatore

author: Morbillo

text:
>
>     Prova a non cancellare mai i records.  Nella tabella inserisci un
campo
> 0/1 che identifica se il record è valido oppure no.
>     Quando lo annulli poni il flag = 1
>     Quando lo ripristini e ne modifichi i dati poni il flag a 0
>     Controlla sempre lo stato del flag.
>     Potrai così ripristinare l'ID senza dover compattare il DB.
>
>     Ciao
>     Dell'Oca Marco
>     D.M.Software
>
>
>
perchè dici di non compattare il db? che problemi da?
ciao
stefano


title: Contatore

text:
Ma provando a compattare il db, non mi
riordina  i vari id escudendo quelli cancellati.


title: Contatore

author: mark

text:
"Morbillo" <
25...@aconet.it
> wrote in message
news:%71a6.37701$lV5.4...@news2.giganews.com...

Compattando il DB non succede assolutamente nulla ai records di una tabella.
Ciao
Marco Dell'Oca
D.M.Software


title: Contatore

author: ema

text:
Mio cuggino mi ha detto che mark <
marco....@tiscalinet.it
>	scrisse:
>>  perchè  dici  di  non  compattare  il   db?    che	 problemi   da?
> Compattando il DB non succede assolutamente nulla ai records di una tabella.
>
falso: vengono rimossi quelli cancellati.
La cosa che non succede e` che i "buchi" negli ID non vengono (per  ovvi
motivi) chiusi, ne` ne viene tenuta traccia per poterli rimpiazzare  con
nuovi record.
Sul sito comune trovate un howto che spiega come risolvere il  problema.
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

Il  taschino  della  giacca  e'  uno   dei   luoghi   piu'   pericolosi:
molti ci lasciano le penne.
		-- Giuseppe Di Paolo


title: Contatore

text:
Ti ringraziamo per la tua precisazione ma,
lo sapevamo già.
Marco Dell'Oca
D.M.Software


title: Contatore

text:
Quale sarebbe il sito comune dove trovare un howto
per risolvere il problema?????


title: Contatore

author: LaLo

text:
""Roberto Fantino"" <
fan...@infinito.it
> ha scritto nel messaggio
news:000601c084c0$74690200$b70ed5d5@Roberto...
Quale sarebbe il sito comune dove trovare un howto per risolvere il
problema?????
=======
Il sito comune è
http://members.xoom.it/it_db_access
 . La prossima volta non
postare in HTML.
Ciao
LaLo


title: Contatore

text:
Mio cuggino mi ha detto che mark <
marco....@tiscalinet.it
>	scrisse:
> Ti ringraziamo per la tua precisazione ma,
>
prego.
> lo sapevamo già.
>
pluralis majestatis? (lo so scrivere sicuramente...)
Cmq il "sul sito comune trovi..." era  per  chi  ha  fatto  la	domanda,
naturalmente.
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

Scopi...  Progetti...  sono fantasie, fanno parte del mondo dei sogni...
		-- Wally Shawn


title: calcoli tra diverse tabelle

author: Pugsley

text:
ciao a tutti,
sto cercando di creare un database in access, mi trovo nella condizione di
dover eseguire la somma di 2 valori che sitrovano su 2 tabelle diverse.
come si fa????
grazie
pugsley


title: calcoli tra diverse tabelle

author: Antonio Biso

text:
"Pugsley" <
www.pugs...@libero.it
> ha scritto nel messaggio
news:babbfr$c80$3...@fata.cs.interbusiness.it...

ValorePrimatabella + ValoreSecondaTabella
Poi, se vuoi una risposta più articolata, sarebbe il caso che TU entrassi
più nei dettagli della struttura del tuo db
Antonio


title: Ricerca valore particolare in una tabella da report

author: miciomao

text:
Ciao NG
Naturalmente il titolo non è azzeccatissimo
tantomeno il quesito da porvi
vi aiuterò con due immagini hostate su un net pubblico
ho un bel report (per trasposrtatore) che fa la somma dei pesi di
alcune spedizioni raggruppate per provincia e data di spedizione, il
peso viene poi arrotondato.
questo è il link della tabella
http://img296.imageshack.us/img296/1204/reporttl2.jpg
come potete vedere nell'ultima colonna ho un valore calcolato
peso moltiplicato tariffa
la tariffa però è in una tabella e varia appunto a seconda del
trasportatore della provincia e compresa tra un peso min e un peso max
questo è il link della tabella
http://img409.imageshack.us/img409/4667/tabellaby5.jpg
La domanda è questa
avendo nel report l'id del trasportatore la prov e il peso arrotondato,
come faccio a pescare l'esatta tariffa compresa tra i campi peso ?
Naturalmente se avete soluzioni alternative al report proponete pure
potrei anche sviluppare la tabella tariffe in un'altro modo non so...
cmq il prodotto nella prima img è quello che VORREI ottenere....
Ringrazio tutti per i consigli
Sandro


text: scusate il primo link è quello del report


text:
Ho creato un DLookUp su un campo del report e sembra funzionare
ma posso fidarmi ?
=DLookUp("[c_ID_peso_valore]";"Peso_Valore";"[n_id_trasportatore]=" &
"[testos] AND [t_sigla_provincia]=" & "[Prov] AND [n_peso_min]<" &
"[Peso] AND [n_peso_max]>" & "[Peso]")
bhò.... a me quei due > e < non mi convincono
qualche osservazione ?


title: Come proporre un db ad alcune società

author: Paolo

text:
Ciao a tutti,
vorrei un parere/consiglio da chi di voi sviluppa software db per
lavoro:
Sto realizzando un db specifico per la gestione del commercio dei
tappeti in collaborazione con un importante importatore (che mi
fornisce il know-how necessario). Poichè la gestione di questo
articolo richiede una metodologia molto particolare totalmente diversa
da un gestionale per prodotti di consumo (tipo pezzi di ricambio,
prodotti industriali etc..) potrebbe non essere diffuso.
Se ne avete voglia e se potete, mi date qualche idea su se e come
potrei proporre ad alcune società questo db? Oppure non bisogna
proporre nulla e devono essere le società a cercare qualcosa di
specifico quando ne hanno voglia/bisongo?
Paolo


title: Formula VB per numerare fatture ed altro

author: Mario

text:
Volendo numerare i report di fatture, sul sito
http://members.xoom.it/it_db_access/
 ho trovato la seguente formula:
="E" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") &
"/????'"));1;Right(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") & "/????'");4)+1);"0000")
l'ho inserita in Origine controllo di una casella di testo del Report di
fatture: il problema che ad ogni fattura mi dà sempre lo stesso risultato:
E00/0001, cioè non numera niente. Dove ho sbagliato? Dove dovrei inserire
questa formula? Sul sito dice che và in Valore predefinito del contatore,
della tabella
credo, ma mi dà errore del comando Dmax.
Grazie per l'aiuto, per piacere,
essendo un provetto programmatore, fate finta (?) di stare a parlare con un
completo ignorante di Access.


author: Lbo da casa

text:
estrapolo una cosa dalla formula che hai copincollato un po'
frettolosamente.
DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa")
cerca sull'help dmax.  vedrai che č una funzione che ha bisogno di tre
argomenti, cioč č una scatola nera nella quale butti tre cose e dalla
quale esce un valore.
queste tre cose sono: il nome di un campo di una tabella, il nome
della tabella, una terza facoltativa che č una condizione di filtro.
sicché devi inserire dei nomi di tabelle esistenti, di campi esistenti
e condizioni filtro coerenti.
sicuramente nell'argomento del sito comune saranno descritti meglio
questa tabella e questo campo, controlla meglio, se non ne dice niente
riparliamone.
ovviamente non devono proprio chiamarsi in quel modo lě: sei libero di
dare il nome, a campi e a tabella, che piů ti piace, seguendo alcune
regole di buon senso: usa nomi che ti facciano ricordare il
significato del campo e il contenuto della tabella, ma non
eccessivamente lunghi, non usare "parole riservate", ovvero nomi
banali tipo Nome, Giorno, Note... perché potrebbero essere parole che
access usa internamente e si potrebbero verificare confusioni.
diciamo che negli esempi vige l'usanza di anteporre il suffisso Mia-,
oppure My-, agli oggetti che si vanno creando, per far capire che
MiaQualcosa č solo un prestanome.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


author: Sib

text:
"Mario" <
eth...@tin.it
> ha scritto nel messaggio
news:8s57fp$enu$1...@nslave3.tin.it...
> Volendo numerare i report di fatture, sul sito
>
http://members.xoom.it/it_db_access/
 ho trovato la seguente formula:
>
> ="E" & Format(Date();"aa") & "/" &
> Format(IIf(IsNull(DMax("MioContatore";"MiaTabella";"MioContatore like '?"
&
> Format(Date();"aa") &
> "/????'"));1;Right(DMax("MioContatore";"MiaTabella";"MioContatore like '?"
&
> Format(Date();"aa") & "/????'");4)+1);"0000")
>
> l'ho inserita in Origine controllo di una casella di testo del Report di
> fatture: il problema che ad ogni fattura mi dà sempre lo stesso risultato:
> E00/0001, cioè non numera niente. Dove ho sbagliato? Dove dovrei inserire
> questa formula? Sul sito dice che và in Valore predefinito del contatore,
> della tabella
> credo, ma mi dà errore del comando Dmax.
Probabilmente non hai letto con attenzione il testo che spiega come usare la
formula.
Questa formula va inserita nella casella ValorePredefinito della maschera da
cui inserisci i dati, man mano che vai inserendo i dati (anche perche' le
fatture non e' che vadano numerate cosi', sul momento, vanno numerate
all'atto della creazione e quel numero non deve piu' cambiare).
Se devi numerare record gia' inseriti o le numeri a mano o crei una query di
aggiornamento che le numeri progressivamente (dopo avere ordinato i record
ad es per data) o le numeri da codice.
Ciao, Sib


text:
"Lbo da casa " <
cut
> diciamo che negli esempi vige l'usanza di anteporre il suffisso Mia-,
> oppure My-, agli oggetti che si vanno creando, per far capire che
> MiaQualcosa è solo un prestanome.
Un po' come un portaborse?
Sib


text:
>> diciamo che negli esempi vige l'usanza di anteporre il suffisso Mia-,
>> oppure My-, agli oggetti che si vanno creando, per far capire che
>> MiaQualcosa č solo un prestanome.
>
>Un po' come un portaborse?
diciamo un metadato, che fa piů fico...



title: Contatore

author: Luciano Raito

text:
Scusate se mi ripeto ma non riesco proprio a venirne fuori, quindi
ricominciamo da capo.
Ho una maschera dove imposto l'anno e il numero di corso.
In una sottomaschera ho la possibilità di leggere o inserire vari
nominativi appartenenti a quel corso.
Ad ogni nominativo vorrei che venisse associato un numero progressivo
(relativo all'anno).
Esempio: Da maschera imposto .... ANNO 1999    .... CORSO xxx
NOME: aaaaaaaaa ...................... Numero 1
              bbbbbbbb .......................                 2
ANNO 1999  ... CORSO YYY
NOME: CCCCCCCC .......... Numero 3
Non riesco ad ottenere quel cacchio di numero progressivo.
Grazie
--
Posted from [195.62.170.250]
via Mailgate.ORG Server -
http://www.mailgate.org


title: Contatore

author: Giorgio PS

text:
Luciano Raito <
lucian...@nts.provincia.bologna.it
> wrote in message
38D65236...@nts.provincia.bologna.it...
> Scusate se mi ripeto ma non riesco proprio a venirne fuori, quindi
> ricominciamo da capo.
>
> Ho una maschera dove imposto l'anno e il numero di corso.
> In una sottomaschera ho la possibilità di leggere o inserire vari
> nominativi appartenenti a quel corso.
> Ad ogni nominativo vorrei che venisse associato un numero progressivo
> (relativo all'anno).
>
> Esempio: Da maschera imposto .... ANNO 1999    .... CORSO xxx
>
> NOME: aaaaaaaaa ...................... Numero 1
>               bbbbbbbb .......................                 2
>
> ANNO 1999  ... CORSO YYY
>
> NOME: CCCCCCCC .......... Numero 3
>
> Non riesco ad ottenere quel cacchio di numero progressivo.
> Grazie
>
>
Non puoi ottenerlo in automatico. Devi farti tu una tua gestione di
progressivi.
--
********************************************
Giorgio B. - P.S. elettronica srl - Udine
email:
giorgio....@ps-elettronica.it


title: Contatore

text:
"Luciano Raito" <
lucian...@nts.provincia.bologna.it
> ha scritto nel
messaggio news:38D65236...@nts.provincia.bologna.it...
> Scusate se mi ripeto ma non riesco proprio a venirne fuori, quindi
> ricominciamo da capo.
>
> Ho una maschera dove imposto l'anno e il numero di corso.
> In una sottomaschera ho la possibilità di leggere o inserire vari
> nominativi appartenenti a quel corso.
> Ad ogni nominativo vorrei che venisse associato un numero progressivo
> (relativo all'anno).
>
> Esempio: Da maschera imposto .... ANNO 1999    .... CORSO xxx
>
> NOME: aaaaaaaaa ...................... Numero 1
>               bbbbbbbb .......................                 2
>
> ANNO 1999  ... CORSO YYY
>
> NOME: CCCCCCCC .......... Numero 3
>
> Non riesco ad ottenere quel cacchio di numero progressivo.
> Grazie
>
>
> --
> Posted from [195.62.170.250]
> via Mailgate.ORG Server -
http://www.mailgate.org
Come cacchio lo vuoi visualizzato?


title: Contatore

text:
Era proprio quello che volevo fare ma non so come!



title: Contatore

text:
>  Nella sottomaschera come un semplice numero progressivo da 1 a N



title: Contatore

text:
"Luciano Raito" <
lucian...@nts.provincia.bologna.it
> ha scritto nel
messaggio news:38D72243...@nts.provincia.bologna.it...

Nella struttura della sottomaschera creati un campo calcolato con origine
dati:
me.[anno] & me.[corso]
Ciao.


title: Contatore

text:
Luciano Raito ha scritto nel messaggio
<
38D721A8...@nts.provincia.bologna.it
>...
>Era proprio quello che volevo fare ma non so come!
Quotare qualcosa del messaggio precedente...
Antonio


title: Ho un problema veramente complesso

author: Marcello Anselmi Tamburini

text:
Vediamo se riusciamo a capirci qualcosa:
Ho una tabella che riassume degli eventi che identifica con un numero
(activity_num) e con altri campi, tra cui la data di attivazione (act_dt) ed il
resonsabile (refer_to). Un'altra tabella ha le specifiche di ogni record della
prima tabella e quindi ha id_sottotask, l'activity_num per agganciarsi alla
prima e lo status che identifica il tipo di operazione.
Quando l'attività della prima tabella viene aperta viene assegnato un
responsabile alla refer_to, ma durante il corso dello svolgersi dell'attività
può capitare che il responsabile cambi. Ovviamenta, a questo punto, non ne
rimante traccia di quello precedente. Questo cambiamento è censito nello status
con un valore refer_to_change.
Ho una query che me le mette insieme e filtra solo determinati 2 responsabili
(che sono decine in tutto), ma, a questo punto, è chiaro che questi due
responsabili si vedono le loro attività, ma anche tutta la storia precedente.
Il problema è questo: come eliminarla? Io avevo pensato di scandire i sottotask
dall'ultimo al primo ed interromere alla prima (quindi all'ultima in ordine
temporale) refer_to_change in modo da prendere solo i sottotask a partire
dall'ultima assegnazione, ma non saprei come. Qualcuni mi può dare una mano??
grazie mille.
--
Posted from  [193.76.225.3]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: CONTEGGIO GIORNI LAVORATIVI , AIUTO!!!!

author: sauro

text:
dovrei trovare la data entro la quale eseguire un lavoro per non incorrere
nella penale:
  14/03/03    ho 180 giorni LAVORATIVI  per eseguire il lavoro,
 mi serve la  data di scadenza senza andare 10 volte al giorno a contare i
giorni lavorativi nel calendario.
Nel sito comune ho trovato questo testo qui sotto ma non so come organizzare
il tutto, mi servirebbe una dritta....anche 2.
                            Chi mi può aiutare.........
Grazie Sauro
Public Function ContaLavorativi(DataIniziale As Date, DataFinale _
           As Date, Settimanacorta As Boolean) As Integer
   'Autore: Silvio Mazzetto
   'Accetta:
   ' DataIniziale = data iniziale del periodo scelto
   ' DataFinale = data finale del periodo scelto
   ' Settimanacorta = True se bisogna considerare la settimana corta
   'Restituisce: numero di giorni lavorativi del periodo
   'La funzione utilizza Festivo() e Pasqua() usabili anche separatamente
   Dim DataDaContare As Date, Conto As Integer
   If Not IsDate(DataIniziale) Or Not IsDate(DataFinale) Or DataIniziale > _
      DataFinale Then
      ContaLavorativi = 0
      Exit Function
   End If
   DataDaContare = DataIniziale - 1
   If Settimanacorta Then
      Do
         DataDaContare = DataDaContare + 1
         If Not Festivo(DataDaContare) And WeekDay(DataDaContare) <> 7 Then
            Conto = Conto + 1
         End IF
      Loop Until DataDaContare = DataFinale
   Else
      Do
         DataDaContare = DataDaContare + 1
         If Not Festivo(DataDaContare) Then Conto = Conto + 1
         Loop Until DataDaContare = DataFinale
   End If
   ContaLavorativi = Conto
End Function
Public Function Festivo(D As Date) As Boolean
   'Autore: Silvio Mazzetto
   'Accetta: una data
   'Restituisce: True se è un giorno festivo
   'Eventualmente inserire anche il Santo Patrono della città
   Dim Anno As Integer, DayMax As Date, DayMin As Date
   Anno = Year(D)
   If WeekDay(D) = 1 Then
      Festivo = True
      Exit Function
   End If
   If Day(D) = 1 And (Month(D) = 1 Or Month(D) = 5 Or Month(D) = 11) Or _
         Day(D) = 6 And Month(D) = 1 Or Day(D) = 25 And (Month(D) = 4 Or _
         Month(D) = 12) Or Day(D) = 15 And Month(D) = 8 Or (Day(D) = 8 Or _
         Day(D) = 26) And Month(D) = 12 Then
      Festivo = True
      Exit Function
   End If
   'intervallo in cui può cadere il Lunedì di Pasqua
   DayMax = DateValue("20/4/" & Anno)
   DayMin = DateValue("20/3/" & Anno)
   If WeekDay(D) = 2 And D <= DayMax And D >= DayMin Then
      If D = (Pasqua(Anno) + 1) Then
         Festivo = True
         Exit Function
      End If
   End If
   Festivo = False
End Function
Public Function Pasqua(Anno As Integer) As Date
   'Autore: G.Paolo Bizzaro
   'Accetta: anno (4 cifre)
   'Restituisce: giorno di Pasqua dell'anno scelto
   'Il metodo è valido per tutti gli anni nel Calendario Gregoriano,
   'ossia dal 1583 in poi
   Dim a%, b%, c%, p%, q%, r%
   a = anno% Mod 19: b = anno% \ 100: c = anno% Mod 100
   p = (19 * a + b - (b \ 4) - ((b - ((b + 8) \ 25) + 1) \ 3) + 15) Mod 30
   q = (32 + 2 * ((b Mod 4) + (c \ 4)) - p - (c Mod 4)) Mod 7
   r = (p + q - 7 * ((a + 11 * p + 22 * q) \ 451) + 114)
   Pasqua = DateSerial(anno%, r \ 31, (r Mod 31) + 1)
End Function


title: CONTEGGIO GIORNI LAVORATIVI , AIUTO!!!!

author: Roberto da casa

text:
"sauro" <
candis...@libero.it
> ha scritto nel messaggio
news:Khwca.14106$7y3.4...@twister1.libero.it...

Per prima cosa nella funzione Festivo di cui sopre devi sostituire la riga
di codice:
DayMax = DateValue("20/4/" & Anno)
con la seguente:
DayMax = DateValue("21/4/" & Anno)
altrimenti quest'anno non ti considera festivo il lunedì di Pasqua che cade
appunto il 21 aprile.
Poi, se vuoi un dato preciso, devi modificare la funzione Festivo per fargli
considerare festivo anche il giorno del Santo Patrono che varia da città a
città.
Ciò premesso, se la data di partenza è contenuta in una casella di testo
chiamata MiaData e la data di scadenza la vuoi in una casella di testo
chiamata DataScadenza, per calcolarti una data scadenza che cada 180 giorni
lavorativi dalla data di partenza e se vuoi considerare la settimana corta
(sabato non lavorativo), esegui il seguente codice VBA:
Me!DataScadenza = Me!MiaData + 180
DoCmd.Hourglass True
Do Until 1 = 2
If ContaLavorativi(Me!MiaData, _
Me!DataScadenza, True) = 180 Then Exit Do
Me!DataScadenza = Me!DataScadenza + 1
Loop
DoCmd.Hourglass False
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: CONTEGGIO GIORNI LAVORATIVI , AIUTO!!!!

text:

> Ciò premesso, se la data di partenza è contenuta in una casella di testo
> chiamata MiaData e la data di scadenza la vuoi in una casella di testo
> chiamata DataScadenza, per calcolarti una data scadenza che cada 180
giorni
> lavorativi dalla data di partenza e se vuoi considerare la settimana corta
> (sabato non lavorativo), esegui il seguente codice VBA:
>
> Me!DataScadenza = Me!MiaData + 180
> DoCmd.Hourglass True
> Do Until 1 = 2
> If ContaLavorativi(Me!MiaData, _
> Me!DataScadenza, True) = 180 Then Exit Do
> Me!DataScadenza = Me!DataScadenza + 1
> Loop
> DoCmd.Hourglass False
>
> --
> Roberto
ti ringrazio dell' interessamento:
1) ti devo specificare  che i giorni sono variabili da lavoro a lavoro, da 5
minimi di un semplice allaccio a 240 massimi per lavori molto complessi dove
per esempio devo palificare una campagna per portare l'energia elettrica a
una casa isolata ,
2) non so dove devo inserire tutti quei codici qui sopra, cosa devo creare?
    Forse mi sono perso.......se hai tempo spiegami meglio come l'altra
volta con le Classifiche
                Saluti Sauro


title: CONTEGGIO GIORNI LAVORATIVI , AIUTO!!!!

text:
"sauro" <
candis...@libero.it
> ha scritto nel messaggio
news:5%Pca.16604$7y3.5...@twister1.libero.it...

Io conosco il tuo database quindi faccio una ipotesi di utilizzo.
Se hai una maschera in cui c'è una casella di testo chiamata MiaData dove
digiti la data di inizio lavori.
Se nella maschera hai una casella di testo chiamata Durata dove digiti la
durata del lavoro in giorni lavorativi.
Se nella maschera hai una casella di testo chiamata chiamata DataScadenza in
cui vuoi visualizzare la data massima della fine dei lavori.
A fronte dell'evento "Dopo aggiornamento" sia del controllo MiaData che del
controllo Durata genera il seguente codice VBA:
If Not IsNull(Me!MiaData) And Not IsNull(Me!Durata) Then
Me!DataScadenza = Me!MiaData + Me!Durata
DoCmd.Hourglass True
Do Until 1 = 2
If ContaLavorativi(Me!MiaData, _
Me!DataScadenza, True) = Me!Durata Then Exit Do
Me!DataScadenza = Me!DataScadenza + 1
Loop
DoCmd.Hourglass False
End If
Genera questo codice VBA anche a fronte dell'evento "Su corrente" della
maschera.
Se questa ipotesi è lontana dalla tua realtà, fanne una tu.



title: risultato corretto ma negativo

author: Franco

text:
ciao a tutti

perchè questa espressione mi da un risultato negativo?
ConfermaChiusura è booleano
=Somma(Nz([ConfermaChiusura])=0)

Grazie


title: risultato corretto ma negativo

author: Karl Donaubauer

text:
Franco wrote:
> perchï¿œ questa espressione mi da un risultato negativo?
> ConfermaChiusura ï¿œ booleano
> =Somma(Nz([ConfermaChiusura])=0)

Perchï¿œ Falso in Access = -1. Prova cosï¿œ:

=Abs(Sum([ConfermaChiusura]))

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: risultato corretto ma negativo

text:
Karl Donaubauer wrote:
> ...
> Perchï¿œ Falso in Access = -1.

?... il gatto. Io ho scritto: Perchï¿œ Vero in ...


title: risultato corretto ma negativo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:a1p7g9...@mid.individual.net...
> Karl Donaubauer wrote:
>> ...
>> Perché Falso in Access = -1.
>
> ?... il gatto. Io ho scritto: Perché Vero in ...

ciao Karl
non va bene

mi da la somma degl altri records (cioè quelli con "si"


title: risultato corretto ma negativo

text:
Franco wrote:
>>> ...
> non va bene
>
> mi da la somma degl altri records (cioè quelli con "si"

e

=Abs(Sum([ConfermaChiusura]=0))

?



title: risultato corretto ma negativo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:a1p8jv...@mid.individual.net...
> Franco wrote:
>>>> ...
>> non va bene
>>
>> mi da la somma degl altri records (cioč quelli con "si"
>
> e
>
> =Abs(Sum([ConfermaChiusura]=0))
>
> ?
>
ok
grazie


title: risultato corretto ma negativo

text:
Franco wrote:
> Karl Donaubauer ha scritto:
>>> ...
>>> mi da la somma degl altri records (cioè quelli con "si"
>> ...
>> =Abs(Sum([ConfermaChiusura]=0))
>> ...
> ok

o visto che veramente non intendi la somma:

=Count([ConfermaChiusura]=0)



title: risultato corretto ma negativo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:a1p990...@mid.individual.net...
> Franco wrote:
>> Karl Donaubauer ha scritto:
>>>> ...
>>>> mi da la somma degl altri records (cioč quelli con "si"
>>> ...
>>> =Abs(Sum([ConfermaChiusura]=0))
>>> ...
>> ok
>
> o visto che veramente non intendi la somma:
>
> =Count([ConfermaChiusura]=0)
>
questo non da alcun risultato


title: risultato corretto ma negativo

text:
"Franco" <
Franco.D...@libero.it
> ha scritto nel messaggio
news:4fb77056$0$1388$4faf...@reader2.news.tin.it...

mi correggo
da il totale di tutti i records


title: risultato corretto ma negativo

text:
Franco wrote:
>> "Karl Donaubauer ha scritto:
>>>>> ...
>>>>> =Abs(Sum([ConfermaChiusura]=0))
>>>>> ...
>>>> ok
>>> ...
>>> =Count([ConfermaChiusura]=0)
>> ...
> da il totale di tutti i records

Sï¿œ, dimenticavo che Count conta tutto che non ï¿œ Null.
Sarebbe necessario p.e.

=Count(iif([ConfermaChiusura]=0;1))



title: risultato corretto ma negativo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:a1pksr...@mid.individual.net...
> Franco wrote:
>>> "Karl Donaubauer ha scritto:
>>>>>> ...
>>>>>> =Abs(Sum([ConfermaChiusura]=0))
>>>>>> ...
>>>>> ok
>>>> ...
>>>> =Count([ConfermaChiusura]=0)
>>> ...
>> da il totale di tutti i records
>
> Sì, dimenticavo che Count conta tutto che non è Null.
> Sarebbe necessario p.e.
>
> =Count(iif([ConfermaChiusura]=0;1))
>
> --
ok
ma ;1 perchè?


title: risultato corretto ma negativo

text:
Franco wrote:
> "Karl Donaubauer ha scritto:
>> ...
>> =Count(iif([ConfermaChiusura]=0;1))
>>
> ok
> ma ;1 perchè?

Perché è bello. Puoi usare ogni valore che non è Null:

=Count(iif([ConfermaChiusura]=0;0))
=Count(iif([ConfermaChiusura]=0;42))
=Count(iif([ConfermaChiusura]=0;[ConfermaChiusura]))
=Count(iif([ConfermaChiusura]=0;"MeNeFrega"))
...



title: risultato corretto ma negativo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:a1pot1...@mid.individual.net...
> Franco wrote:
>> "Karl Donaubauer ha scritto:
>>> ...
>>> =Count(iif([ConfermaChiusura]=0;1))
>>>
>> ok
>> ma ;1 perchè?
>
> Perché è bello. Puoi usare ogni valore che non è Null:
>
> =Count(iif([ConfermaChiusura]=0;0))
> =Count(iif([ConfermaChiusura]=0;42))
> =Count(iif([ConfermaChiusura]=0;[ConfermaChiusura]))
> =Count(iif([ConfermaChiusura]=0;"MeNeFrega"))
> ...
nel mio caso pero' ho sempre lo stesso risultato


title: Report di stampa totale... bah...

author: SuperPippo®

text:
x un neofita come me sarà difficile spiegarmi... come del resto il titolo
un pò farlocco... cmq....
ho una query del quale posto il codice sql
dal quale come si può evincere... digito il Medico e mi da come risultato
un preciso codice di esenzione...
ebbene dovrei fare delle stampe di tutti i medici... sono una 70 ina....
sempre lo stesso codice ma come variabile solo il medico... grazie...
------------------------------
SELECT [Anagrafe Query].Anagrafe.Id_Assistito, [Anagrafe Query].Cognome,
[Anagrafe Query].Nome, [Anagrafe Query].Codice_Fiscale, [Anagrafe
Query].Sesso, [Anagrafe Query].Nascita, [Anagrafe Query].N_Protocollo,
[Anagrafe Query].Medico, [Anagrafe Query].Codice_regionale, [Anagrafe
Query].des_nascita, [Anagrafe Query].des_residenza, [Anagrafe
Query].Codice_Esenzione
FROM [Anagrafe Query]
WHERE ((([Anagrafe Query].Medico) Like [Digitare Medico]) AND (([Anagrafe
Query].Codice_Esenzione)="013.250"));
------------------------------


title: collegare calcolo query ad indice tabella

author: boomerang

text:
buongiorno a tutti, vi seguo da molto tempo e devo dire che siete una
risorsa per tutti quelli che si cimentano con access. purtroppo è
molto tempo che non mi applico più su questo programma e mi sono un pò
"arruginito". ho gia fatto una ricerca ma vorrei capire meglio il
problema:
sto facendo un db di atleti di una palestra, ho fatto una tabella
contenente i dati tra cui data nascita, ora in una query ho dovuto
calcolare l'età (al 31 12 di ogni anno), visto che questa varia al
variare dell'anno(eheheheheh). poichè in base alla fascia di età
questi atleti sono suddivisi in categorie es 5-7 anni bambini, 8--9
anni fanciulli ecc ho usato un'altro calcolo nella query chiamato
IDCategoria per definire la categoria:
IDCategoria: Switch([eta] Between 5 And 7;"1";[eta] Between 8 And
9;"2"; ecc ecc
ora, visto che ho una tabella delle varie categorie con un IDCategoria
ed un NomeCategorie  1 bambini, 2 fanciulli ecc
vorrei collegare con un'altra query la query degli atleti (con i
calcoli) alla tabella delle categorie per mostrarmi su una maschera la
categoria di appartenenza di ogni atleta aggiornata in tempo reale e
poter poi raggruppare gli atleti in base a quest'ultima, solo che mi
da un errore sul tipo di join come se tento di collegare due campi di
tipo differente.
come posso fare?....potete mettermi sulla giusta strada?
vi ringrazio in anticipo
ciao   Gigi


author: 'Roccia' Max

text:
On 25 Nov, 13:32, boomerang <
gigi.boomer...@gmail.com
> wrote:
> IDCategoria: Switch([eta] Between 5 And 7;"1";[eta] Between 8 And
> 9;"2"; ecc ecc
> ora, visto che ho una tabella delle varie categorie con un IDCategoria
> ed un NomeCategorie  1 bambini, 2 fanciulli ecc
Con quella funzione, generi un campo che contiene valori testuali (hai
messo le virgolette intorno ai valori).
Che tipo di dati contiene IDCategorie nella tabella delle categorie?
Mi mangio il cappello se non e' intero lungo :D
cia'
Max


text:

scusa max ma non vorrei che dovessi mangiare il cappello,
l'IDCategorie è settato si come numero ma come byte (tanto ho al
massimo 9 categorie
Quindi che faccio  setto l'IDCategoria come testo oppure su switch
metto il numero senza virgolette?
scusa ma sono andato nel pallone
ciao Gigi


text:
On 25 Nov, 14:59, boomerang <
gigi.boomer...@gmail.com
> wrote:
> Quindi che faccio  setto l'IDCategoria come testo oppure su switch
> metto il numero senza virgolette?
Esatto, una vale l'altra.
Per il cappello... uh... vi faro' sapere.
:)
cia'
Max


text:

GRAZIE MAX
ho provato prima a trasformare la funzione switch in modo da
restituire numeri (quindi senza virgolette) ma collegandola con
l'IDCategoria della tabella mi dava errore, invece trasformando
l'IDCategoria in testo è tutto ok (forse perchè l'IDCategoria
impostato su numero era su byte anzichè intero lungo bo poi provo
anche questa possibilità!)
ti ringrazio per il tuo ed in generale per l'aiuto di tutti e credo
che ci risentiremo visto che ho un altro problemino......
ma prima voglio usare la funzione cerca per non "rompere" troppo ed
abusare della vostra pazienza!!!   ;-)
ciao da GIGI


title: Struttura ricorsiva: aggiornamenti non consentiti

author: Francesco G. Rizzoni

text:
Buon giorno a tutti i frequentatori,
mi stò scontrando con un problema di aggiornamenti/eliminazioni in una
tabella con riferimenti ricorsivi del tipo distinta base.
Definisco:
Uso Access2K sotto Win XP
Tabelle: (tralascio i campi non importanti)
-----------
ARTICOLI:
    ART_COD    (K1)
SOTTOARTICOLI:
    SAR_PROG    (K1)
    SAR_ART_COD    (rel. molti-1 con ART_COD di ARTICOLI)
    SAR_PROGP        (rel. molti-1 con SAR_PROG della stessa tabella)
(uno ed uno solo di questi ultimi due campi deve contenere un valore che
chiaramente fa riferire l'intero record direttamente all'articolo, o ad un
altro sottoarticolo creando una struttura a + livelli)
Tutte le relazioni sono state definite con l'integrità referenziale
attivata, così come l'aggiornamento e l'eliminazione a catena.
Ebbene:
Se elimino l'articolo, tutta la struttura a + livelli viene eliminata.
Se tento di eliminare un record di SOTTOARTICOLI al quale siano collegati
altri record, mi genera l'errore "Impossibile aggiornare. Attualmente
bloccato".
Ho anche provato a creare una tabella di prova costituita dalla sola chiave
primaria e campo di riferimento ad un'altro record della stessa tabella, ed
ho sempre ricevuto l'impossibilità ad annullare, o a modificare la K1, di un
record cui fanno riferimento altri record.
E' normale che il motore di Access si comporti in questo modo?
Vorrei evitare di ricorrere ad una tabella di collegamento esterna.
Ci sono altre soluzioni o parametri particolari da settare nel database?
Ciao e grazie infinite in anticipo.
--
Francesco G. Rizzoni


title: Controllo su #Errore

author: Lucio

text:
In una mschera vi è una sottomaschera;
ho una campo "MioCampo"collegato nella maschera principale alla
sottomaschera "MioCampo2";
su uscita di "MioCampo" vi è una condizione:
If not isNull (MioCampo2) then
msgbox".....
solo che se nella sottomaschera non vi sono record la casella di testo
MioCampo2 non e nulla e per cui si attiva ugualmente Msgbox, come posso fare
a far considerare il campo #Errore, null e per cui non far attivare la
condizione?
Grazie.
Lucio


title: Controllo su #Errore

author: Antonio Biso

text:
"Lucio" <
napone...@tin.it
> ha scritto nel messaggio
news:Najma.11742$T34.3...@news2.tin.it...

Usa anche iserror
Antonio


title: maschera con tutti i gg. dell'anno

author: luigi onofrio

text:
mi servirebbe, per ogni scheda record, che nella maschera visualizzata
compaiono 12 righe (una per ogni mese, e su ogni riga, 31 caselle spunta
su cui  memorizzare si o no (meglio ancora sarebbe il numero del gg.).
Cosa mi conviene fare? 31 campi per i gg. e 1 per il mese o qualcosa di
piů semplice? tale da poter visualizare la situazione di tutto l'anno in
una sola maschera?
consigli grazie!
l.

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: maschera con tutti i gg. dell'anno

text:
luigi onofrio ha scritto:

> mi servirebbe, per ogni scheda record, che nella maschera visualizzata
> compaiono 12 righe (una per ogni mese, e su ogni riga, 31 caselle spunta
> su cui  memorizzare si o no (meglio ancora sarebbe il numero del gg.).
> Cosa mi conviene fare? 31 campi per i gg. e 1 per il mese o qualcosa di
> più semplice? tale da poter visualizare la situazione di tutto l'anno in
> una sola maschera?
> consigli grazie!
> l.

per chi ha fatto la naia, una cosa simile alla stecca militare per dare un
esempio, ve la ricordate?  :-)



title: problemi con BE forse corrotto

author: Fabio DALLA VILLA

text:
Quando il mio applicativo si collega ad un BE particolare (uno solo su un
centinaio circa), succede che una tabella principale perde la caratteristica
di chiave sul campo-chiave e conseguentemente le tabelle relazionate 1-1 e
1-inf su quel campo si "staccano".
Per capire il perchč, volevo confrontare la struttura delle tabelle, dei
campi e delle relazioni dei vari BE.
C'č qualche applicativo che produca dei report con le differenze?
Grazie.
--
Fabio Dalla Villa


title: problemi con BE forse corrotto

text:
Aggiungo qualche indizio scoperto nel frattenpo:
le 2 tabelle coinvolte hanno relazione 1-1 con integrità ref.
una delle 2 tabelle ha un record in più (non me lo spiego: fino ad una
settimana fa erano pari)
quando l'applicativo si collega al BE, stacca il collegamento, crea un
record vuoto nella tabella con un record in meno e gli toglie la chiave al
campo di collegamento.
???
--
Fabio Dalla Villa


title: problemi con BE forse corrotto

author: Massimo Piubelli

text:
Fabio DALLA VILLA wrote:
> Aggiungo qualche indizio scoperto nel frattenpo:
>
> le 2 tabelle coinvolte hanno relazione 1-1 con integrità ref.
> una delle 2 tabelle ha un record in più (non me lo spiego: fino ad una
> settimana fa erano pari)
Relazione 1-1 vuol dire record pari, sicuro che nel BE ci sia la relazione correttamente impostata?
> quando l'applicativo si collega al BE, stacca il collegamento, crea un
> record vuoto nella tabella con un record in meno e gli toglie la
> chiave al campo di collegamento.
mmm... il BE non ha relazioni e non può (direttamente) intervenire sulla struttura delli oggetti del FE.
controlla quanto detto sopra, secondo me è un problema di relazioni del BE
> ???
!!! ;-)
Ciaom,
Max


title: Azzerare il campo ID

author: Alberto Tagliapietra

text:
Salve a tutti,
In un database di Access 97 ho una tabella contenente qualche migliaio di
record accumulati in diversi anni di lavoro. Avrei adesso la necessit� di
snellire il database e di ripartire sostanzialmente da zero.
Pensavo di cancellare tutti i record. C'� un modo per far ripartire il campo
ID da 1?
Grazie a tutti in anticipo
Alberto


title: Azzerare il campo ID

text:
Alberto Tagliapietra wrote:
> In un database di Access 97 ho una tabella contenente qualche
> migliaio di record accumulati in diversi anni di lavoro. Avrei
> adesso la necessit� di snellire il database e di ripartire
> sostanzialmente da zero.
> Pensavo di cancellare tutti i record. C'� un modo per far ripartire
> il campo ID da 1?
 Reinizializzare campi contatori

www.donkarl.com/it?FAQ3.2
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Evitare duplicazione immissione dati!!

author: bud

text:
Salve a tutti,
una considerazione:
se in una tabella ho dei valori nei campi che non voglio si ripetano è sufficiente andare nelle proprietà e impostare nella sezione "Indicizzato" Si,Duplicati non ammessi....!!
Ma se volessi combinare 2 campi come si può fare???
Esempio:
Nella tab STATISTICHE ho i campi N.Scheda e Anno e voglio,in fase di immissione tramite maschera,non poter immettere lo stesso numero di scheda relativa però al singolo anno...!!!
Nel senso può esserci
N Scheda          Anno
    1                  2005
    1                  2006
Ma NON deve esserci
N Scheda          Anno
    1                  2005
    1                  2005
Qualche idea per piacere?
Grazie mille
Fab
--
bud
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-754080.html
Inviato via
http://www.itsistemi.net


title: Evitare duplicazione immissione dati!!

author: Cicerone

text:
"bud"
> Salve a tutti,
> una considerazione:
> se in una tabella ho dei valori nei campi che non voglio si ripetano è
> sufficiente andare nelle proprietà e impostare nella sezione "Indicizzato"
> Si,Duplicati non ammessi....!!
> Ma se volessi combinare 2 campi come si può fare???
> Esempio:
> Nella tab STATISTICHE ho i campi N.Scheda e Anno e voglio,in fase di
> immissione tramite maschera,non poter immettere lo stesso numero di scheda
> relativa però al singolo anno...!!!
> Nel senso può esserci
> N Scheda          Anno
>    1                  2005
>    1                  2006
> Ma NON deve esserci
> N Scheda          Anno
>    1                  2005
>    1                  2005
> Qualche idea per piacere?
> Grazie mille
> Fab
Magari impostando come chiave primaria la coppia N.Scheda e Anno...
--
Cicerone
*********************
Il primo Newsgroup sulla Balbuzie
http://www.newsland.it/nr/browse/it-alt.salute.balbuzie/
**********************
C.I.B. Comunità Italiana Balbuzienti
www.balbuzienti.altervista.org/md-pro/index.php
**********************


title: Evitare duplicazione immissione dati!!

text:
bud wrote:
> se in una tabella ho dei valori nei campi che non voglio si ripetano
> è sufficiente andare nelle proprietà e impostare nella sezione
> "Indicizzato" Si,Duplicati non ammessi....!! Ma se volessi combinare
> 2 campi come si può fare???
> Esempio:
> Nella tab STATISTICHE ho i campi N.Scheda e Anno e voglio,in fase di
> immissione tramite maschera,non poter immettere lo stesso numero di
> scheda relativa però al singolo anno...!!! Nel senso può esserci
> N Scheda          Anno
>    1                  2005
>    1                  2006
> Ma NON deve esserci
> N Scheda          Anno
>    1                  2005
>    1                  2005
> Qualche idea per piacere?
In un indice puoi usare fino a dieci campi.
- Nella vis. struttura della tabella apri il dialogo delle indici.
(il fulmine nella barra degli strumenti o menu Visualizza/Indici)
- In una riga inserisci un nome per il tuo nuovo indice e nel combo
scegli il nome del primo campo "NScheda" (spero senza punto o spazio).
- Cambia la proprietà "Univoco" del indice a Sì.
- Nella prossima riga inserisci solo il nome del secondo campo "Anno".
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Evitare duplicazione immissione dati!!

text:
Intanto grazie per gli aiuti!!
Ma non riesco a capire bene...
La tabella già contiene un campo id_tabella (contatore chiave primaria),poi n_scheda (numerico) e anno (numerico).
Se apro il dialogo degli indici ho questo:
id_tabella (Primario=no Univoco=no Ignora null=no)
n_scheda (Primario=no Univoco=si Ignora null=no)
PrimaryKey(Primario=si Univoco=si Ignora null=no)
Come devo modificarli considerando quanto detto anche per il campo anno??
Grazie per la pazienza e spero in un altro aiuto
Ciao a tutti



title: variabili nel report

author: Lenny

text:
come si fa a gestire le variabili nel report?
ho provato ma non ci riesco.
dove devo mettere le dichiarazioni?
cosa devo mettere nelle caselle di testo? ho provato con
variabile
= variabile
[variabile]
ma nulla da fare.
grazie mille
Lenny
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.377 / Virus Database: 211 - Release Date: 15/07/2002


title: variabili nel report

author: Carlo Costarella

text:
"Lenny" <
luca...@tiscali.it
> ha scritto nel messaggio
news:ai5kkk$g37$1...@lacerta.tiscalinet.it...
> come si fa a gestire le variabili nel report?
>
> ho provato ma non ci riesco.
>
> dove devo mettere le dichiarazioni?
> cosa devo mettere nelle caselle di testo? ho provato con
> variabile
> = variabile
> [variabile]
>
> ma nulla da fare.
>
> grazie mille
> Lenny
>
Molte volte si č trattato dell'argomento.
Un controllo in un report o in una maschera non č capace di alimentarsi
direttamente (=MiaVariabile) da una variabile sia pure globale.
Per ottenere il risultato bisogna assegnare il valore della variabile ad una
funzione e il risultato di questa al controllo.
Cosě se hai una variabile globale (in un modulo pubblico) che si chiama
"MiaVariabile", e dopo averla riempita, potrai scrivere qualcosa del tipo:
Public Function TrovaVariabile()
TrovaVariabile = MiaVariabile
End Function
Su "Formattazione" della sezione del  report potrai scrivere:
Me.MioControllo = TrovaVariabile
Ciao, Carlo


title: variabili nel report

text:
funziona
grazie.
ciao



title: variabili nel report

text:
"Lenny" <
luca...@tiscali.it
> ha scritto nel messaggio
news:ai5kkk$g37$1...@lacerta.tiscalinet.it...
> come si fa a gestire le variabili nel report?
>
> ho provato ma non ci riesco.
>
> dove devo mettere le dichiarazioni?
> cosa devo mettere nelle caselle di testo? ho provato con
> variabile
> = variabile
> [variabile]
>
Al campo assegni il nome della variabile, perciň lasci il campo come NON
ASSEGNATO e con il nome del campo uguale alla variabile
ciao


title: Per il tuttologo Andrea Sciamanna

author: Gigi Petrone

text:
Non pensare che mi sono offeso, ma penso che se avresti vissuto 15 anni
all'estero  il tuo Italiano sarebbe pessimo, visto che da buon sapiente ti
sei limitato solo ed esclusivamente alla critica.
Se hai le Pall...... scrivimi in Belga o Francesce ( non credo) e poi fai le
tue dovute osservazioni.
Ti chiedo venia.


title: Per il tuttologo Andrea Sciamanna

author: lbo dal portatile

text:

fratello, noi che cazzo ne sappiamo da dove vieni tu?  ti firmi come
Gigi Petrone, tu che dici, che noi possiamo sapere che sei stato in
Belgio per 15 anni?
qui si suppone che chiunque, per default, abbia avuto normali
trascorsi scolastici italiani, fino a prova contraria.
discorso diverso per un Karl Donaubauer che prova a scrivere italiano,
tanto per dire.
allora fai una bella cosa.  io quando scrivo in un ng inglese, lingua
che conosco abbastanza per farmi capire ma magari non perfettamente,
se sono in dubbio riguardo come mi esprimo premetto: guardate che non
sono un madrelingua inglese.
tu premetti la tua situazione, che non ha assolutamente niente di
disdicevole, e tutto va bene.
ma fino a prova contraria dobbiamo supporre un certo background
comune, no?
e si cciai le palle arisponneme in romano...
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Per il tuttologo Andrea Sciamanna

author: Andrea Sciamanna

text:
> Non pensare che mi sono offeso, ma penso che se avresti vissuto 15 anni
> all'estero  il tuo Italiano sarebbe pessimo, visto che da buon sapiente ti
> sei limitato solo ed esclusivamente alla critica.
> Se hai le Pall...... scrivimi in Belga o Francesce ( non credo) e poi fai
le
> tue dovute osservazioni.
> Ti chiedo venia.
Io non penso che tu ti sia offeso, perchè è evidente che ti sei offeso :-)
Non provo a scriverti i belga o in francese (anche se sono ormai un
Valdostano, non per mia scelta, quindi il francese dovrei conoscerlo
piuttosto bene).
Ti parlo in italiano, perchè qui si parla italiano, perchè sono italiano e
perchè ho sempre vissuto in Italia.
Per il resto, lbo ha già espresso, involontariamente, anche le mie idee.


title: Problemi con LEFT JOIN

text:
Ho la necessità di ottenere i dati mancanti da una query. Seguendo alcuni
consigli ho creato una tabella costituita dai campi Agente (numerico),
famiglia (numerico) contenente la totalità dei record; quindi ho
relazionato il campo Famiglia col medesimo della Query in cui non
compaiono tutti i dati nel seguente modo:
SELECT t_famiglia.Agente, t_famiglia.Famiglia
FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Agente =
q_elencobgt_famiglia.AGENTE
WHERE (((q_elencobgt_famiglia.FAMIGLIA) Is Null));
Quello che ottengo sono i campi Agente, Famiglia... e nessun record
allegato....dove sbaglio?
Forse dovrei legare anche il campo Agente? ...come?
Ringrazio AP e Karl per i suggerimenti e tutti quanti vogliano aiutarmi...
Saluti
Vincenzo
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Problemi con LEFT JOIN

author: Karl Donaubauer

text:
salvin168 wrote:
> Ho la necessità di ottenere i dati mancanti da una query. Seguendo
> alcuni consigli ho creato una tabella costituita dai campi Agente
> (numerico), famiglia (numerico) contenente la totalità dei record;
> quindi ho relazionato il campo Famiglia col medesimo della Query in
> cui non compaiono tutti i dati nel seguente modo:
>
> SELECT t_famiglia.Agente, t_famiglia.Famiglia
> FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Agente =
> q_elencobgt_famiglia.AGENTE
> WHERE (((q_elencobgt_famiglia.FAMIGLIA) Is Null));
>
> Quello che ottengo sono i campi Agente, Famiglia... e nessun record
> allegato....dove sbaglio?
> Forse dovrei legare anche il campo Agente? ...come?
> Ringrazio AP e Karl per i suggerimenti e tutti quanti vogliano
> aiutarmi... Saluti
Prova con:
SELECT t_famiglia.Agente, t_famiglia.Famiglia
FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Famiglia =
q_elencobgt_famiglia.Famiglia
WHERE q_elencobgt_famiglia.FAMIGLIA Is Null;
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + CISA2
Conferenza Italiana per Sviluppatori di Access, Ancona, 22+23/4/2006


title: Problemi con LEFT JOIN

text:
Karl Donaubauer ha scritto:
> salvin168 wrote:
> > Ho la necessità di ottenere i dati mancanti da una query. Seguendo
> > alcuni consigli ho creato una tabella costituita dai campi Agente
> > (numerico), famiglia (numerico) contenente la totalità dei record;
> > quindi ho relazionato il campo Famiglia col medesimo della Query in
> > cui non compaiono tutti i dati nel seguente modo:
> >
> > SELECT t_famiglia.Agente, t_famiglia.Famiglia
> > FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Agente =
> > q_elencobgt_famiglia.AGENTE
> > WHERE (((q_elencobgt_famiglia.FAMIGLIA) Is Null));
> >
> > Quello che ottengo sono i campi Agente, Famiglia... e nessun record
> > allegato....dove sbaglio?
> > Forse dovrei legare anche il campo Agente? ...come?
> > Ringrazio AP e Karl per i suggerimenti e tutti quanti vogliano
> > aiutarmi... Saluti
> Prova con:
> SELECT t_famiglia.Agente, t_famiglia.Famiglia
> FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Famiglia =
> q_elencobgt_famiglia.Famiglia
> WHERE q_elencobgt_famiglia.FAMIGLIA Is Null;
Fatto!
Ma Purtroppo il risultato è identico.....
Grazie lo stesso



title: Problemi con LEFT JOIN

text:
salvin168 wrote:
> Karl Donaubauer ha scritto:
>>> Ho la necessità di ottenere i dati mancanti da una query. Seguendo
>>> alcuni consigli ho creato una tabella costituita dai campi Agente
>>> (numerico), famiglia (numerico) contenente la totalità dei record;
>>> quindi ho relazionato il campo Famiglia col medesimo della Query in
>>> cui non compaiono tutti i dati nel seguente modo:
>>>
>>> SELECT t_famiglia.Agente, t_famiglia.Famiglia
>>> FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON t_famiglia.Agente
>>> = q_elencobgt_famiglia.AGENTE
>>> WHERE (((q_elencobgt_famiglia.FAMIGLIA) Is Null));
>>>
>>> Quello che ottengo sono i campi Agente, Famiglia... e nessun record
>>> allegato....dove sbaglio?
>>> Forse dovrei legare anche il campo Agente? ...come?
>>> Ringrazio AP e Karl per i suggerimenti e tutti quanti vogliano
>>> aiutarmi... Saluti
>
>> Prova con:
>
>> SELECT t_famiglia.Agente, t_famiglia.Famiglia
>> FROM t_famiglia LEFT JOIN q_elencobgt_famiglia ON
>> t_famiglia.Famiglia = q_elencobgt_famiglia.Famiglia
>> WHERE q_elencobgt_famiglia.FAMIGLIA Is Null;
>
> Fatto!
> Ma Purtroppo il risultato è identico.....
Lascia perdere la clausola WHERE per una prova.
Se poi non vedi record dove t_famiglia.Famiglia è vuoto
i tuoi dati sono diversi della tua descrizione.



title: Problemi con LEFT JOIN

text:
Karl Donaubauer ha scritto:


Eliminando WHERE ottengo 4944 record rispetto ai 298 di t_famiglia ed ai
133 di q_elencobgt_famiglia....



title: compattazione

author: Mike Dens

text:
Per prima cosa volevo salutare il Roberto da casa spero tu stia bene, ti
ringrazio per gli aiuti che mi hai dato!!! :-)
Con questa mia  per l'ennesimo dilemma: come si fa sulla chiusura di un
DB a compatarlo senza che compaia la finestra del salvatagggio del file?
Io desideravo eseguire una istruzione in VB....
grazie a tutti e ciao
michele
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: compattazione

author: Emyr

text:
On Thu, 21 Nov 2002 11:37:16 +0000 (UTC), "Mike Dens"
<
ra...@tiscalinet.it
> wrote:
>Per prima cosa volevo salutare il Roberto da casa spero tu stia bene, ti
>ringrazio per gli aiuti che mi hai dato!!! :-)
>Con questa mia  per l'ennesimo dilemma: come si fa sulla chiusura di un
>DB a compatarlo senza che compaia la finestra del salvatagggio del file?
>Io desideravo eseguire una istruzione in VB....
>grazie a tutti e ciao
>michele
vedi su
sitocomune.com
Saluti.
Emanuele.


title: compattazione

author: Fabrizio Quercia

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:0a623f23e92c33a744...@mygate.mailgate.org...
> Con questa mia  per l'ennesimo dilemma: come si fa sulla chiusura di un
> DB a compatarlo senza che compaia la finestra del salvatagggio del file?
> Io desideravo eseguire una istruzione in VB....
sul sitocomune c'e' una funzione "compattare tutti i backend dal frontend".
www.sitocomune.com
è un modulo vba che lo inserisci nel tuo db
fai una form di chiusura col pulsante ESCI e su quel pulsante ci scrivi:
(evento su click - genera codice)
----------------------------------------------------------------------
Private Sub Button_Click()
    'Richiama la funzione del modulo
    Nomefunzione
    'Chiudi il dabatase
    DoCmd.Quit
End Sub
----------------------------------------------------------------------
dove nomefunzione è il nome della routine che esegue la compattazione,
riportato nel modulo.
Ciao, Fabrizio


title: compattazione

text:
Ciao Fabrizio ti ringrazio per l'aiuto sei stato chiaro ma essendo io un
novello ( come il vino :-)  ) non so come si faccia a chimare la
funzione del modulo...esattamente nel codice che cosa ci devo
scrivere???
E' sufficnete scrivere all'interno del sub solo
CompattaBE() dove 'CompattaBE' č il nome del modulo???
grazie e ciao



title: compattazione

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:176f050ed4f23a7df7...@mygate.mailgate.org...
> Ciao Fabrizio ti ringrazio per l'aiuto sei stato chiaro ma essendo io un
> novello ( come il vino :-)  ) non so come si faccia a chimare la
ottimo...davvero, specie se fatto da poco e accompagnato con le castagne :)
> funzione del modulo...esattamente nel codice che cosa ci devo
> scrivere???
> E' sufficnete scrivere all'interno del sub solo
> CompattaBE() dove 'CompattaBE' è il nome del modulo???
supponiamo che il modulo di chiami Modulo1...
al suo interno ha la funzione:
Function CompattaBE()
...
End Function
...sul pulsante ci metti:
devi semplicemente richiamare la function con il suo nome
esempio:
--------------------------------------
Private Sub Bottone_Click()
    CompattaBE
End Sub
--------------------------------------
Ciao :))))


title: compattazione

author: Roberto da casa

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:0a623f23e92c33a744...@mygate.mailgate.org...
> Per prima cosa volevo salutare il Roberto da casa spero tu stia bene, ti
> ringrazio per gli aiuti che mi hai dato!!! :-)
Abbastanza bene, grazie!!
[CUT]
> michele
Ciao
Roberto


title: Mi aiutereste a correggere questa riga?

author: E-Dentity

text:
Niente di che! Una semplice "Dlookup" a due condizioni!
Mi sto esaurendo lentamente a trovare la sintassi giusta.
Me.Cuni = DLookup("[Prezzocs]", "Foglio1", "[Codstazp] ='" & Me.Nstazda &
"'" And "[Codstaza] ='" & Me.Nstaza & "'")
Grazie mille


title: Mi aiutereste a correggere questa riga?

text:


Se non funziona devi rivelare i tipi di dati.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Mi aiutereste a correggere questa riga?

author: Alessandro Cara

text:

--
a.cara


title: Mi aiutereste a correggere questa riga?

author: Morgan

text:
"Alessandro Cara" <
al...@puntablunet.it
> ha scritto nel messaggio
news:%wqAf.43106$av6....@tornado.fastwebnet.it...

Tana per Karl ed Alessandro ;)
Morgan


title: Mi aiutereste a correggere questa riga?

text:

Pubblico ludibrio?
In corsa per il "sapientino"?
Ma se stava a esauri'! Pure lentamente.
;<)
--
a.cara


title: Mi aiutereste a correggere questa riga?

text:
Grazie a tutti!
Funziona
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:43eqkbF...@individual.net...



title: Problemi con Gruppi e Utenti

author: Michele

text:
Ho voluto seguire la procedura guidata per le autorizzazioni a gruppi e
utenti su un DB e, dopo aver compreso che per gli sviluppatori di Access il
concetto della lingua italiana (giochi di parole con "account, users, admin,
utente, ecc.") rimane a mio avviso molto latente, e, dopo aver terminato
varie volte le procedure descritte al riguardo senza concludere gran che,
ogni volta che apro un DB qualsiasi mi appare l'input box con la richiesta
di PW.
Come fare per eliminare questa "PIAGA" visto che prima i DB si aprivano
senza l'input box che richiede la PW?
Spero che questa volta qualcuno mi risponda (visto che un mio post
precedente sulle query non ha avuto seguito !)
PS
1) La PW richiesta, non ha nulla a che vedere con la Protezione del DB (che
peraltro non sono protetti)


title: Problemi con Gruppi e Utenti

text:
"Michele" <
michele....@tin.it
> ha scritto nel messaggio
news:13B2c.8444$z23.3...@news3.tin.it...

RISOLTO !
Grazie cmq del non intervento!!!
Potevate anche dire che era sufficiente cancellare la PW dal menů Account
Utenti e Gruppi (mi riferisco a chi sicuramente lo sapeva e probabilmente
sghignazzava sull'altrui ignoranza)!
Giusto per dovere di cronaca ci sono riuscito grazie a tentativi e ad un
colpo di fortuna visto che non riuscivo a centrare l'argomento utilizzando
la guida in linea.
CIAO!
Mik.


title: Problemi con Gruppi e Utenti

text:
Michele wrote:
[cut]
> RISOLTO !
> Grazie cmq del non intervento!!!
prego non c'e' di che. Siamo qui per questo!
--
a.cara


title: Problemi con Gruppi e Utenti

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c2fbi3$1r1mc0$2...@ID-163946.news.uni-berlin.de...

In effetti se non c'erano quelli come te bisognava inventarseli e come vedi
ci si riesce sempre... in tutti i sensi !
Riciao


title: Problemi con Gruppi e Utenti

text:
Michele wrote:
> "Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> news:c2fbi3$1r1mc0$2...@ID-163946.news.uni-berlin.de...
>
>>Michele wrote:
>>
>>[cut]
>>
>>>RISOLTO !
>>>Grazie cmq del non intervento!!!
>>
>>prego non c'e' di che. Siamo qui per questo!
[cut]
> In effetti se non c'erano quelli come te bisognava inventarseli e come vedi
> ci si riesce sempre... in tutti i sensi !
redarguiro' pesantemente la mamma.
--
a.cara


title: Problemi con Gruppi e Utenti

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c2fdfk$1snhg0$1...@ID-163946.news.uni-berlin.de...

Ok, redarguisci pure se lo ritieni utile per scrollarti colpe personali!
...(Complimenti per il termine "redarguire" ...non l'avevo mai
...incrociato! Come vedi anche nelle polemiche si impara sempre!)
Cmq, Caro Alessandro, il post non voleva essere nulla di personale o
offensivo verso i lettori e tantomeno nei confronti di quelli che come Te
sono comunque disponibili a postare e confrontare metodi e soluzioni.
La Tua risposta ha dato l'impressione di uno che ha ...la "coda di paglia"
in quanto, diversamente, non te la sarsti presa dopo un'appunto simile.
Ho detto del ...non aiuto a seguito di un post precedente e di uno
successivo a questo che non hanno avuto nessun riscontro.
Prova a metterti nei panni di chi ...è in "PANNE" e non riesce a venirne
fuori perchè è entrato in un "Loop vizioso".
Un esempio ...idiota: Se in una guida si dice di usare un "Glissato" ma
nessuno ti dice che diavolo sia il Glissato o come si esegue, mi dici di
grazia come un autodidatta anche con la guida potrebbe metterelo in pratica
?!?  (il glissato è un termine ...chitarristico.)
OK Alex ...senza rancore.
Spero che qualche volta avremo qualcosa di meglio su cui discutere (anche
perchè non voglio toglierti tempo che puoi utilizzare meglio rispondendo a
chi ...forse più di me, ha qualcosa di più interessante da risolvere).
Ciao
Michele


title: Conversione da data a numerico

author: Wiston Smith

text:
Salve a tutti,
vorrei importare dei dati da As400 con access 2002.
Il problema è che la data delle tabelle su as400
è in formato numerico, AAAAMMGG, invece
l'inserimento nella richiesta di access è in fomato
data gg/mm/aaaa. Vorrei a questo punto sapere
come posso convertire :
da      gg/mm/aaaa     formato data
in       aaaammgg        numerico
Grazie
WS


title: Conversione da data a numerico

text:
"Wiston Smith" <
as...@polert.it
> ha scritto nel messaggio
news:PKGCf.4909$6e2....@news.edisontel.com...
> Salve a tutti,
> vorrei importare dei dati da As400 con access 2002.
> Il problema č che la data delle tabelle su as400
> č in formato numerico, AAAAMMGG, invece
> l'inserimento nella richiesta di access č in fomato
> data gg/mm/aaaa. Vorrei a questo punto sapere
> come posso convertire :
>
> da      gg/mm/aaaa     formato data
> in       aaaammgg        numerico
Se come dici la data la devi ottenere in una varibile numerica, prova cosě:
Dim MiaDataAS400 As Long
MiaDataA S400 = Year(MiaData)*10000 + Month(MiaData)*100 + Day(MiaData)
Dove MiaData č un campo di tipo Data/ora.
>
>
> Grazie
Prego
> WS
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Conversione da data a numerico

text:
"> Dim MiaDataAS400 As Long
> MiaDataA S400 = Year(MiaData)*10000 + Month(MiaData)*100 + Day(MiaData)
>
> Dove MiaData č un campo di tipo Data/ora.
>
Funziona perfettamente !!
Grazie
WS


title: Access 2000 e maschere di input, perchè?

author: Gianluca Piras

text:
Ciao a tutti, ho un problema con access 2000. Quando creo un campo e gli
assegno una maschera di input che converta le lettere inserite in maiuscolo,
non funziona. Nel senso che le lettere rimangono in minuscolo.
Anche se uso la creazione guidata e seleziono la maschera di input
predefinita per il codice fiscale, al momento dell'inserimento i caratteri
rimancono minuscoli. Mentre invece nella fase di crazione guidata era
specificato come dovessero essere in maiuscolo, com'è giusto per il cod
fiscale.
Qualcuno può aiutarmi?


text:
"Gianluca Piras" <
gianluc...@libero.it
> ha scritto nel messaggio
news:_6VR5.92414$BF.33...@news.infostrada.it...

Ti può aiutare solo la Microsoft: è una bug di A2000.
Per ora devi arrangiarti con la funzione UCase o scrivendo una funzione che
ti normalizza il campo in fase di acquisizione dati.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Stampa da codice

author: Casalini s.r.l.

text:
Come si fa a stampare da codice su stampante?
Per ora ho trovato solo Debug.Print "Pippo" per stampare sula finestra di
controllo immediata la parola - Pippo - . Ho necessità di fare la stessa
cosa ma inviando tutto sulla stampante predefinita del PC. Come devo fare?
Ringrazio anticipatamente chi riesce ad aiutarmi.


title: Chiusura form con pulsante + funzione

author: vuLCan Karayan

text:
Grazie al consiglio di Karl, chiudo sempre i form da pulsante con
Docmd.Close, acForm, Me.Name
Mi chiedevo, influisce molto sulle prestazioni se, invece di creare una
routine evento, creo una funzione pubblica Chiudi() che richiamo SuClic del
pulsante?


title: Chiusura form con pulsante + funzione

text:
> Scusate la domanda, che forse è un po' banale:
> è possibile posizionare i pulsanti e i controlli su di una maschera in
varie
> posizioni secondo esigenze?
> Per esempio usando la stessa maschera da sola o affiancata a un'altra, si
> possono posizionare diversamente i controlli?
> e se si, come mi consigliate procedere?
> Grazie
Ma che c'entra con il mio post?
Attenzione al quoting.
Ciao


title: Chiusura form con pulsante + funzione

text:
Scusate la domanda, che forse è un po' banale:
è possibile posizionare i pulsanti e i controlli su di una maschera in varie
posizioni secondo esigenze?
Per esempio usando la stessa maschera da sola o affiancata a un'altra, si
possono posizionare diversamente i controlli?
e se si, come mi consigliate procedere?
Grazie
"vuLCan Karayan" <
nos...@nospam.it
> ha scritto nel messaggio
news:yotae.816318$b5.36...@news3.tin.it...



title: Chiusura form con pulsante + funzione

author: Alessandro Baraldi

text:
"vuLCan Karayan" <
nos...@nospam.it
> wrote in message
news:yotae.816318$
b5.36...@news3.tin.it

Le routine Public solitamente si usano per la riusabilità
del Codice, e per non scrivere inutilmente righe e righe di
codice simile più volte.
In questo caso vorresti sostituire una Funzione Nativa
con una tua Funzione che occuperà almeno 3 Righe contro
una riga di quella nativa.
Questo non influisce sulle prestazioni, ma non serve a nulla.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Chiusura form con pulsante + funzione

text:
> Le routine Public solitamente si usano per la riusabilità
> del Codice, e per non scrivere inutilmente righe e righe di
> codice simile più volte.
> In questo caso vorresti sostituire una Funzione Nativa
> con una tua Funzione che occuperà almeno 3 Righe contro
> una riga di quella nativa.
>
> Questo non influisce sulle prestazioni, ma non serve a nulla.
>
> @Alex
Ma per richiamarla, non è necessario che scriva codice.
Nelle proprietà del pulsante, SuClic, scrivo =NomeFunzione() et le jeux sont
fait...
Non sono 3 righe di codice: sono 0 righe, in effetti..
No?


title: Chiusura form con pulsante + funzione

text:
"vuLCan Karayan" <
nos...@nospam.it
> wrote in message
news:10vae.816683$
b5.36...@news3.tin.it

Hai uno strano concetto di come si ottimizza il codice.
La chiamata è sempre una riga di codice
che vantaggio ne trai a scrivere una funzione di 4 righe
se con una Chiamata alla funzione nativa ne basta 1...???
Fai poi attenzione che prima di chiudere la form
devi spostare il focus, altrimenti il Docmd non
funziona...!
Public Function NumeFunzione(frm as Access.Form)
   frm.SetFocus
   docmd.Close acForm,frm.Name
End Function
Boh vedi tu.
Saluti



title: Chiusura form con pulsante + funzione

text:
> Hai uno strano concetto di come si ottimizza il codice.
>
> La chiamata è sempre una riga di codice
> che vantaggio ne trai a scrivere una funzione di 4 righe
> se con una Chiamata alla funzione nativa ne basta 1...???
>
> Fai poi attenzione che prima di chiudere la form
> devi spostare il focus, altrimenti il Docmd non
> funziona...!
>
> Public Function NumeFunzione(frm as Access.Form)
>    frm.SetFocus
>    docmd.Close acForm,frm.Name
> End Function
>
> Boh vedi tu.
Ma se metto
=NomeFunzione()
sull'evento SuClic (non nel modulo ma nelle proprietà del controllo) non
risparmio codice?


title: Chiusura form con pulsante + funzione

text:
"vuLCan Karayan" <
nos...@nospam.it
> wrote in message
news:yRvae.816883$
b5.36...@news3.tin.it
[CUT]
> Ma se metto
> =NomeFunzione()
> sull'evento SuClic (non nel modulo ma nelle proprietà del controllo) non
> risparmio codice?
Puoi fare come credi, sarà sicuramente la soluzione
che ti soddisferà maggiormente.



title: Come si fa

author: Piero  Binazzi

text:
Come si fa a scaricare del NG le domande e le risposte che riguardano un
certo argomento che mi interessa per leggersele fuori linea in santa pace ?
Grazie per l'aiuto
Saluti
--
Posted from
net128-007.mclink.it
 [195.110.128.7]
via Mailgate.ORG Server -
http://www.mailgate.org


title: Come si fa

author: Kakkio

text:
> Per conservare i MSG che reputo interessanti, li sposto subito in una
> cartella
> a parte subito dopo la lettura.
>
Oppure si usa Agent


title: Routine presenti sul sito comune

author: LaLo

text:
Ciao a tutto il NG,
spulciando sul sito comune ho notato che ci sono delle routine che
utilizzano le chiamate API di Windows. Ne ho viste due in particolare che,
secondo me, dichiarano male le API che utilizzano; queste sono 'Rimuovere il
pulsante di chiusura (X), il menu e i pulsanti di ridimensionamento di
Access' e 'Cambiare il titolo della finestra di MSAccess, usando le API'.
Dichiarano variabili di tipo integer al posto di quelle long e, se si
effettua un cut&paste su un modulo ci si accorge che questi non funzionano.
Ciao
LaLo
P.S.: ho scritto anche al Webmaster ma siccome non ho visto nessun
cambiamento ho pensato che il Webmaster non risponde alle e-mail e che forse
c'è una ragione perchè le routine sono state scritte in quel modo.


title: Routine presenti sul sito comune

author: Federico Luciani

text:
LaLo wrote:
> Ciao a tutto il NG,
> spulciando sul sito comune ho notato che ci sono delle routine che
> utilizzano le chiamate API di Windows. Ne ho viste due in particolare che,
> secondo me, dichiarano male le API che utilizzano; queste sono 'Rimuovere il
> pulsante di chiusura (X), il menu e i pulsanti di ridimensionamento di
> Access' e 'Cambiare il titolo della finestra di MSAccess, usando le API'.
> Dichiarano variabili di tipo integer al posto di quelle long e, se si
> effettua un cut&paste su un modulo ci si accorge che questi non funzionano.
Probabilmente erano dichiarazioni per le relative funzioni
a 16 bit, poi e' stato cambiato solo il nome della
libreria.
Strano pero' che non funzionino, cmq controllero'.

> P.S.: ho scritto anche al Webmaster ma siccome non ho visto nessun
> cambiamento ho pensato che il Webmaster non risponde alle e-mail e che forse
> c'è una ragione perchè le routine sono state scritte in quel modo.
Purtroppo la posta non viene controllata giornalmente,
questo per ovvi motivi di tempo, quindi in realta' la tua
mail non e' ancora stata letta, mi spiace.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Routine presenti sul sito comune

author: daniela

text:
La rutine del Pulsante di Chiusura se utilizzata su
win 2000

da un errore di "overflow"

Non si puo fare nulla ?

Grazie


title: Routine presenti sul sito comune

text:
""daniela"" <
deny...@libero.it
> ha scritto nel messaggio
news:007d01c08d5c$5cb24af0$81161497@Dany...

======
Risposta
======
Ciao Daniela,
se vuoi farla funzionare su W2K devi modificare le variabili integer (quelle
che terminano in %) in long (sostituire con &). In questo modo funziona.
Ciao
LaLo


title: Routine presenti sul sito comune

text:
LaLo wrote:
> ""daniela"" <
deny...@libero.it
> ha scritto nel messaggio
> La rutine del Pulsante di Chiusura se utilizzata su win 2000
> da un errore di "overflow"
> Non si puo fare nulla ?
> Grazie
> ======
> Risposta
> ======
> Ciao Daniela,
> se vuoi farla funzionare su W2K devi modificare le variabili integer (quelle
> che terminano in %) in long (sostituire con &). In questo modo funziona.
> Ciao
> LaLo
Ho controllato, effettivamente, su win98 funzionano.
Evidentemente in win00 non c'e' piu' la compatibilita'.
Vi posto le versioni corrette (spero) delle routine,
saranno in linea al prossimo aggiornamento del sito.
Grazie per la segnalazione.
Federico
-----------------------------------------------------------------------------
Rimuovere il pulsante di chiusura (X), il menu e i pulsanti
di ridimensionamento di Access. (Antogal)
-----------------------------------------------------------------------------
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
    MsgBox "Ciao ciao pulsantini!"
End Sub
Private Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd%
    wParentWnd = GetParent(GetParent(wChildWnd))
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
       Not WS_MINIMIZEBOX And _
       Not WS_MAXIMIZEBOX
    PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
'La funzione va richiamata cosě:
'LockAppWindow Screen.ActiveForm
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
Cambiare il titolo della finestra di MSAccess, usando le API (Antonio Biso)
-----------------------------------------------------------------------------
 Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _
    (ByVal hwnd As Long, ByVal lpString As String) As Long
 Private Declare Function GetActiveWindow Lib "user32" () As Long
 Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
As Long
 Public Sub ChangeAccessTitle()
     Dim myhwnd%
     Const ACCWIN = "Omain"
     myhwnd% = GetActiveWindow()
     If myhwnd% <> 0 Then
         While ((CheckWindowClass(myhwnd%) <> ACCWIN) And (myhwnd% <> 0))
             myhwnd% = GetParent(myhwnd%)
         Wend
     Else
         Exit Sub
     End If
     If myhwnd% <> 0 Then
         SetWindowText myhwnd%, "TITOLO APPLICAZIONE - RELEASE - DATA"
     End If
 End Sub
 Private Function CheckWindowClass(hwnd%)
     Dim stringlength%
     Const maxstringsize = 255
     Dim safemembuffer As String * maxstringsize
     If hwnd% <> 0 Then
         stringlength% = GetClassName(hwnd%, safemembuffer, maxstringsize)
         CheckWindowClass = Left$(safemembuffer, stringlength%)
     End If
 End Function
 Public Sub ResetTitle()
     Dim myhwnd%
     Const ACCWIN = "Omain"
     myhwnd% = GetActiveWindow()
     If myhwnd% <> 0 Then
         While ((CheckWindowClass(myhwnd%) <> ACCWIN) And (myhwnd% <> 0))
             myhwnd% = GetParent(myhwnd%)
         Wend
         Else
             Exit Sub
     End If
     If myhwnd% <> 0 Then
         SetWindowText myhwnd%, "Microsoft Access"
     End If
 End Sub
-----------------------------------------------------------------------------
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Routine presenti sul sito comune

author: Harry Evans

text:
> La rutine del Pulsante di Chiusura se utilizzata su win 2000 da un errore
di "overflow"
> Non si puo fare nulla ?
> ======
> Risposta
> ======
> ...se vuoi farla funzionare su W2K devi modificare le variabili integer
(quelle
> che terminano in %) in long (sostituire con &). In questo modo funziona.
Infatti questo è necessario anche con WIN NT
Con '98 invece funzionano, in quanto ha un gestore anche per le chiamate a
16 Bit migliore di NT e 2000


title: Routine presenti sul sito comune

author: Antonio Biso

text:
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
3A7B049C...@paperino.libero.it...
> LaLo wrote:
> > Access' e 'Cambiare il titolo della finestra di MSAccess, usando le
API'.
> Probabilmente erano dichiarazioni per le relative funzioni
> a 16 bit, poi e' stato cambiato solo il nome della
> libreria.
Se serve ho creato anche la versione a 32 bit di quella...
Antonio


title: Routine presenti sul sito comune

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Cwtf6.106825$ew1.6...@news.infostrada.it...

Ti ringrazio, ma ho già modificato quella presente sul sito per adattarla
alle chiamate a 32 bit.
Grazie lo stesso.
LaLo


title: Routine presenti sul sito comune

text:
Antonio Biso wrote:
> Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
> > LaLo wrote:
> > > Access' e 'Cambiare il titolo della finestra di MSAccess, usando le
> API'.
> > Probabilmente erano dichiarazioni per le relative funzioni
> > a 16 bit, poi e' stato cambiato solo il nome della
> > libreria.
> Se serve ho creato anche la versione a 32 bit di quella...
> Antonio
in questo stesso thread ho postato la versione corretta, magari dacci uno
sguardo.
al prossimo aggiornamento, modifichero' anche quella sul sito.
grazie
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Importare Excel in Access

text:
Non riesco ad importare un file di Excel in Access.
Scelgo "Carica dati esterni" "Importa tabelle" seleziono il file di Excel da
importare e Access da un messaggio di errore.Quale potrebbe essere il
problema?
            Grazier mille


title: Importare Excel in Access

author: fernando cinquegrani

text:
"tony81" <
sbar...@libero.it
> ha scritto nel messaggio
news:VboF8.76732$5k4.1...@twister2.libero.it...

il file excel è aperto (utilizzato da un'altra applicazione)?
                             .f
http://www.prodomosua.it


title: Importare Excel in Access

text:
"fernando cinquegrani" <
f.cinq...@libero.it
> ha scritto nel messaggio
news:8ApF8.77048$5k4.1...@twister2.libero.it...
>
> "tony81" <
sbar...@libero.it
> ha scritto nel messaggio
> news:VboF8.76732$5k4.1...@twister2.libero.it...
> > Non riesco ad importare un file di Excel in Access.
> > Scelgo "Carica dati esterni" "Importa tabelle" seleziono il file di
Excel
> da
> > importare e Access da un messaggio di errore.Quale potrebbe essere il
> > problema?
>
> il file excel č aperto (utilizzato da un'altra applicazione)?
>                              .f
No, non č aperto, io ipotizzo un problema di installazione di Access,
potrebbe essere?
            Grazie


title: Importare Excel in Access

author: Fabio Dalla Villa

text:
"tony81" <
sbar...@libero.it
> ha scritto nel messaggio
news:RTrF8.76937$US3.1...@twister1.libero.it...

Qual č il messaggio di errore e come č strutturato il file di Excel? Colonne
con intestazione univoca di nome-campo? ...
--
Fabio Dalla Villa
Biella
nomec...@tiscali.it


title: Importare Excel in Access

text:
> Qual è il messaggio di errore e come è strutturato il file di Excel?
Colonne
> con intestazione univoca di nome-campo? ...
> --
> Fabio Dalla Villa
> Biella
>
nomec...@tiscali.it
>
Il messaggio di errore:
"Si è verificato un errore in Microsoft Access
 L'applicazione verrà chiusa."
C'è un opzione per recuperare il file Access aperto in una copia di backup.
C'è anche un link che apre una tabella di codici esadecimali che ritengo
spieghino la natura dell'errore(lunga).
Per il file di Excel  ci sono colonne
con intestazione univoca di nome-campo,le celle sottostanti contengono
valori e formule,nient'altro.


title: Filosofia di approccio.

text:
Salve a tutti.
Ho un problema che non capisco se sia tale per un approccio non
corretto. Sono un novizio che sta tentando di sviluppare un applicativo
con Access2002:
ho 1 maschera che deve essere riempita a seconda di una scelta da farsi
in una maschera terza, io vorrei:
-Click sulla maschera terza
-si scatena l'Evento
-recupero la chiave (non so' come) dell item scelto
-faccio una query con la chiave rilevata e riempo i campi della maschera
1 con il risultato ottenuto, tutto tramite codice VBA.
La domanda e': sto' ragionando correttamente o complico le cose?, il mio
e' un approccio mutuato dalla programmazione ad eventi per Motif, ma
forse non e' la piu' indicata...
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Filosofia di approccio.

author: Alessandro

text:
"Ale.Sc" <
ale...@bigfoot.com
> wrote in message
news:5bded76bcac84a32dee...@mygate.mailgate.org...
> Ho un problema che non capisco se sia tale per un approccio non
> corretto. Sono un novizio che sta tentando di sviluppare un applicativo
> con Access2002:
> ho 1 maschera che deve essere riempita a seconda di una scelta da farsi
> in una maschera terza, io vorrei:
> -Click sulla maschera terza
> -si scatena l'Evento
> -recupero la chiave (non so' come) dell item scelto
> -faccio una query con la chiave rilevata e riempo i campi della maschera
> 1 con il risultato ottenuto, tutto tramite codice VBA.
>
> La domanda e': sto' ragionando correttamente o complico le cose?, il mio
> e' un approccio mutuato dalla programmazione ad eventi per Motif, ma
> forse non e' la piu' indicata...
Può essere corretto, ma puoi evitare di usare la QUERY in questo caso.
Utilizzando la proprietà di DOCMD.OPENFORM :
DoCmd.OpenForm nomemaschera, , , "[IdCampo]=" me.ControlloItem
Questa soluzione non è sempre la più valida, ma in questo caso potrebbe
esserlo....!
Alessandro.



title: Filosofia di approccio.

author: Alessandro Sciutti

text:
"Alessandro" <
ik2...@libero.it
> wrote in message
news:2e4487efcd6809323b...@mygate.mailgate.org...

Grazie per l'aiuto, ma temo di non essermi spiegato bene,
il mio problema non e' recuperare un item esistente,
ma crearne uno nuovo con alcuni campi preimpostati dalla
scelta fatta sulla maschera terza.
io ho una maschera che prevede i dati <a, b, c, d>, apro
una maschera riepilogativa con duple <a, b>. Quello che
vorrei e' che la dupla selezionata mi venga inserita
nella maschera chiamante.
La logica che vorrei usare una volta aperta la maschera riepilogativa:
Evento Click:
- recset = recordSet selezionato da lista
- formChiamante.nome = recset.nome
- formChiamante.numero = recset.numero.
Sara' sicuramente una sciocchezza ma non so' come esplicitare il cmd:
recset = recordSet selezionato da lista
Grazie



title: Filosofia di approccio.

text:
"Alessandro" <
ik2...@libero.it
> wrote in message
news:2e4487efcd6809323b...@mygate.mailgate.org...
> "Ale.Sc" <
ale...@bigfoot.com
> wrote in message

Grazie per l'aiuto, ma temo di non essermi spiegato bene,
il mio problema non e' recuperare un item esistente,
ma crearne uno nuovo con alcuni campi preimpostati dalla
scelta fatta sulla maschera terza.
io ho una maschera che prevede i dati <a, b, c, d>, apro
una maschera riepilogativa con duple <a, b>. Quello che
vorrei e' che la dupla selezionata mi venga inserita
nella maschera chiamante.
La logica che vorrei usare una volta aperta la maschera riepilogativa:
Evento Click:
- recset = recordSet selezionato da lista
- formChiamante.nome = recset.nome
- formChiamante.numero = recset.numero.
Sara' sicuramente una sciocchezza ma non so' come esplicitare il cmd:
recset = recordSet selezionato da lista
Grazie



title: Filosofia di approccio.

text:
"Ale.Sc" <
ale...@bigfoot.com
> wrote in message
news:f15702a0fa97401e1aa...@mygate.mailgate.org...

> Grazie per l'aiuto, ma temo di non essermi spiegato bene,
> il mio problema non e' recuperare un item esistente,
> ma crearne uno nuovo con alcuni campi preimpostati dalla
> scelta fatta sulla maschera terza.
> io ho una maschera che prevede i dati <a, b, c, d>, apro
> una maschera riepilogativa con duple <a, b>. Quello che
> vorrei e' che la dupla selezionata mi venga inserita
> nella maschera chiamante.
> La logica che vorrei usare una volta aperta la maschera riepilogativa:
>
> Evento Click:
> - recset = recordSet selezionato da lista
> - formChiamante.nome = recset.nome
> - formChiamante.numero = recset.numero.
>
> Sara' sicuramente una sciocchezza ma non so' come esplicitare il cmd:
> recset = recordSet selezionato da lista
>
Giuro che se prima avevo capito male ora proprio non ho capito
nulla....!
Porta pazienza è l'età......!
Prova ad essere più chiaro, con cosa fai le selezioni che criteri usi.
Sembra che usi una ListBox a selezione Multipla dalla spiegazione, ma
sicuramente ho capito male........!!!



title: Filosofia di approccio.

text:
Sicuramente sono io che non uso i termini adeguati, riprovo...
Partiamo da quello che vorri fare:
Si tratta di interagire tra 2 tabelle 'ordini' e 'fatture'
Ho inserito un po' di ordini devo emettere una fattura
Essendo alcuni dati della fattura gia presenti nella tabella 'ordini',
vorrei avere la possibilita' sulla form 'crea fattura' di aprireon un
tasto
una (form? subform?) dalla quale scegliere un ordine ed in base a
questa scelta impostare nella form fattura tutti i campi presenti
nell'ordine (che sono la societa', il valore, la divisa di riferimento)
Quello che ho tentato di costruire e' una finestra di dialogo che
contiene
una casella di riepilogo legata alla tabella 'ordini'.
Praticamente cerco di estrarre un sottoinsieme della tabella ordini
ed inserirlo in una nuova occorrenza della tabella fatture
Spero di essermi spiegato un po' meglio.
Ciao e Grazie
Alessandro



title: Filosofia di approccio.

text:
"Ale.Sc" <
ale...@bigfoot.com
> wrote in message
news:57d621dc49525612f96...@mygate.mailgate.org...
> Sicuramente sono io che non uso i termini adeguati, riprovo...
>
> Partiamo da quello che vorri fare:
>
> Si tratta di interagire tra 2 tabelle 'ordini' e 'fatture'
> Ho inserito un po' di ordini devo emettere una fattura
> Essendo alcuni dati della fattura gia presenti nella tabella 'ordini',
> vorrei avere la possibilita' sulla form 'crea fattura' di aprireon un
> tasto
> una (form? subform?) dalla quale scegliere un ordine ed in base a
> questa scelta impostare nella form fattura tutti i campi presenti
> nell'ordine (che sono la societa', il valore, la divisa di riferimento)
>
> Quello che ho tentato di costruire e' una finestra di dialogo che
> contiene
> una casella di riepilogo legata alla tabella 'ordini'.
>
> Praticamente cerco di estrarre un sottoinsieme della tabella ordini
> ed inserirlo in una nuova occorrenza della tabella fatture
>
Si dovrei aver capito....!!
Ti dico come farei io per gestire una situazione simile....!
Poichè la fattura va stampata, non sempre è necessario avere i dati
in una Form, quindi secondo me dovresti crearti una Form non associata
a nessuna Tabella origine, contenente però alcuni controlli che utilizzi
per filtrare i dati in una QUERY che sarà l'origine del Report e/o
Form se necessario:
sostanzialmente hai 2 imposizioni da fare, l'Azienda e l'Ordine.
Scegliendo l'azienda(tra l'elenco Aziende in una Casella Combinata)
la Query viene filtrata e restituisce i soli ordini relativi.
La seconda imposizione(sempre in Casella Combinata con origine dati
la Query e in particolare il campo Ordini) sarà l'ordine che desideri
fatturare.
In questo modo le due Caselle Combinate in cascata filtreranno
solo l'ordine che ne deriva che OVVIAMENTE è unico.
A questo punto puoi o aprire una Form basata sulla QRY, oppure
direttamente il REPORT di stampa in Anteprima......!!
Spero di essermi spiegato bene.
Se hai dubbi ricominciamo passo passo.....!!
Alessandro.
di quest'ultima, nella seconda



title: Filosofia di approccio.

text:
Ci sono quasi, ti tedio con un ulteriore domanda:
Adesso sono al punto che apro la Form e ho
un Combo con tutti i Fornitori
Scelgo il fornitore la Combo associata agli ordini contiene tutti gli
ordini legati al fornitore scelto
Dopo la selezione nella seconda combo ho tutti i valori necesari, ma per
riempire i campi successivi devo operare di VBA o posso associare il
valore risultante in maniera piu' semplice?
Quello che mi accingo a fare e':
sull evento AfterUpdate della combo degli ordini vado ad interrogare il
db con una query del tipo:
recordSet1 = SELECT Importo FROM Ordini WHERE IDordine =
ComboNumeroOrdine.Value
e finalmente il campo txt: Valore.Value = recordSet1.Importo.Value.
Mi sembra pero' un po' macchinoso, non e' che mi sto' reinventando
qualcosa di piu' semplice?
Grazie Mille
Alessandro.



title: Filosofia di approccio.

text:
"Ale.Sc" <
ale...@bigfoot.com
> wrote in message
news:3121cf311ab4478a07b...@mygate.mailgate.org...

Hai fatto sicuramente un buon lavoro.....!
Se non vado errato, dipende dal tuo DB, la QUERY che hai come
riferimento
delle 2 Combo è già quello che cerchi, infatti dovrebbe contenere
1 solo record in cui il Campo NumeroOrdine è quellop che devi
recuperare.
Quindi puoi aprire il Recordset così:
set rst=Currentdb.OpenRecordset("NomeQuery")
Valore.Value=rst.Fields("CampoNumeroOrdine")
Oppure usa la Funzione Dlookup(Vedi Help...) io preferisco il
PRECEDENTE.



title: Filosofia di approccio.

text:
> Hai fatto sicuramente un buon lavoro.....!
> Se non vado errato, dipende dal tuo DB, la QUERY che hai come
> riferimento
> delle 2 Combo è già quello che cerchi, infatti dovrebbe contenere
> 1 solo record in cui il Campo NumeroOrdine è quellop che devi
> recuperare.
> Quindi puoi aprire il Recordset così:
> set rst=Currentdb.OpenRecordset("NomeQuery")
> Valore.Value=rst.Fields("CampoNumeroOrdine")
>
> Oppure usa la Funzione Dlookup(Vedi Help...) io preferisco il
> PRECEDENTE.
>
> Alessandro.
Oppsss!!
ora sono io che non capisco!!
La query che ho usato per arrivare al recordset unico e' direttamente
nelle proprieta' della combo, dove per Row Source ho Select
[ordini].[numero] From [Ordini] WHERE [ordini].[IDfornitore] =
combo.value, ma tu mi dici di usarla nel codice VBA con il nome!!
cosi' facendo servirebbe una funzione che dalla combo risalga al
recordset, ma esiste??



title: Filosofia di approccio.

text:
"Alessandro Sciutti" <
ale...@bigfoot.com
> wrote in message
news:899a312b8d0a1d56ae9...@mygate.mailgate.org...
> Oppsss!!
>
> ora sono io che non capisco!!
>
> La query che ho usato per arrivare al recordset unico e' direttamente
> nelle proprieta' della combo, dove per Row Source ho Select
> [ordini].[numero] From [Ordini] WHERE [ordini].[IDfornitore] =
> combo.value, ma tu mi dici di usarla nel codice VBA con il nome!!
> cosi' facendo servirebbe una funzione che dalla combo risalga al
> recordset, ma esiste??
>
> Alessandro.
Scoperto l'inghippo, hai utilizzato un'istruzione SQL diretta, quindi
come ti dicevo non va bene, a meno che non inserisci anche la colonna
NumeroOrdine nella colonna2 della Combo, ma come dimensione imposti a 0.
In questo modo non la vedi, quindi esteticamente rimane come ora, ma
puoi
leggere la proprietą NumeroOrdine=Me.Combo2.Column(1).
Prova cosģ.....!



title: Filosofia di approccio.

text:
> Scoperto l'inghippo, hai utilizzato un'istruzione SQL diretta, quindi
> come ti dicevo non va bene, a meno che non inserisci anche la colonna
> NumeroOrdine nella colonna2 della Combo, ma come dimensione imposti a 0.
> In questo modo non la vedi, quindi esteticamente rimane come ora, ma
> puoi
> leggere la proprietą NumeroOrdine=Me.Combo2.Column(1).
>
> Prova cosģ.....!
>
> Alessandro.
Grande!!!!
Direi che adesso ci siamo
Ti ringrazio infinitamente per la pazienza che hai avuto.
Ma ancora una domanda, sarebbe stato piu' corretto se avessi costruito
una query esterna, oppure e' una scelta personale?
Alessandro Sciutti



title: Filosofia di approccio.

text:
"Ale.Sc" <
ale...@bigfoot.com
> wrote in message
news:c3326e8424bf532e1e9...@mygate.mailgate.org...
> Direi che adesso ci siamo
> Ti ringrazio infinitamente per la pazienza che hai avuto.
>
> Ma ancora una domanda, sarebbe stato piu' corretto se avessi costruito
> una query esterna, oppure e' una scelta personale?
>
> Alessandro Sciutti
Direi che se il numero di RECORDS fosse elevato una QUERY compliata
e non SQL come hai fatto sarebbe più veloce, ma si parla di oltre 10000
dati.....!!!
Del resto è uguale.....!!
Alessandro.



title: Forms!mascheraNome!corpo.enabled = false -> si può fare

author: esseAemme

text:
Ciao a tutto l'ng,
ho una maschera (la solita) con due caselle combinate. Le caselle sono
cbocliente e cbodata.
Vorrei ottenere il blocco del corpo maschera, ossia che l'utente possa
solo visualizzare i record ma non modificarli se la data in cbodata è
diversa da oggi.l
evento dopo aggiornamento cbocliente
me!cbodata = me!cbodata.itemdata(0)
if me!cbodata = date then
 forms!msc_cstmp!corpo.enabled = true
 forms!msc_cstmp!corpo.locked = false
però non funziona.
la sintassi forms!msc_cstmp!corpo.enabled
il punto è che in un'altra maschera il codice forms!msc_cstmp!
corpo.visible = false va alla grande, con visible,
con enabled o locked si può fare?
oppure devo indicare campo x campo?
Grassssssie,
Samantha


author: 'Roccia' Max

text:
On 29 Nov, 15:58, esseAemme <
samantha.ci...@gmail.com
> wrote:
>  forms!msc_cstmp!corpo.enabled = true
>  forms!msc_cstmp!corpo.locked = false
>
> però non funziona.
Perche' non imposti invece la proprieta' AllowEdits della maschera?
(Peraltro, questo lascia la possibilità di inserire nuovi record)
In alternativa, puoi intercettare l'evento beforeupdate della maschera
e bloccarlo se la data non va bene.
cia'
Max


text:
On 29 Nov, 16:27, "'Roccia' Max" <
rocciamax...@email.it
> wrote:
> Perche' non imposti invece la proprieta' AllowEdits della maschera?
Aspetta aspetta aspetta che non ho ben capito.
AllowEdits me lo devo studiare
> (Peraltro, questo lascia la possibilità di inserire nuovi record)
Non permetto di inserire nuovi record, infatti x farlo cbodata deve
essere = date
> In alternativa, puoi intercettare l'evento beforeupdate della maschera
> e bloccarlo se la data non va bene.
Quindi potrei dirgli una cosa di questo tipo
if me!cbodata = date then
      With me
              .AllowEdits = True
        End With
  else
       With me
              .AllowEdits = false
        End With
Allora il codice qui sopra postato funziona, soltanto che mi blocca
anche le caselle combinate cbocliente e cbodata... come devo fare  x
sbloccare queste due?
Oppure anzichè scrivere me.allowedits -> ossia le modifiche alla
maschera
esiste un me.corpo.allowedits ?????  -> ossia le modifiche al corpo
maschera (xchè le due caselle combinate sono su intestazione
maschera)
Perchè io avrei provato così, ma mi da un erore di runtime 2164
"Impossibile disattivare il controllo che ha correntemente lo stato
attivo.
If Me!cbodata = Date Then
            'se la data di listino è =date ossia oggi, allora campo
costo e percentuale sono attivi
            Me.costodilistino.Enabled = True
            Me.costodilistino.Locked = False
            Me.percdilistino.Enabled = True
            Me.percdilistino.Locked = False
Grazie 100000
Samantha


author: Roberto da Parma

text:
"esseAemme" <
samanth...@gmail.com
> ha scritto nel messaggio
news:229e6b36-ef6e-4d99...@y43g2000hsy.googlegroups.com...



evento dopo aggiornamento cbocliente

però non funziona.



Grassssssie,
Samantha
Ma il campo è nel corpo?
Ma vuoi bloccare il corpo della maschera o corpo è un campo della maschera?
Il corpo della maschera non si può bloccare, mentre per i campi fai un ciclo
sui controlli.
Dim ctl As Control
If Me.Testo.value = Date Then
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ctl.Enabled = False
    Next
Else
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ctl.Enabled = True
    Next
End If
Naturalmente avendo premura di escludere il controllo attivo se non non
funziona vedi tu se con Tag o nominalmente
Ciao
--
Roberto da Parma


author: geppo

text:

Invece di bloccare la maschera potresti inserire un tag nei controlli che
vuoi rendere di sola lettura e ciclare solo quelli;
ad esempio inserisci nei controlli che vuoi bloccare il tag "dabloccare" e
fai una cosa di questo genere:
In evento dopo aggiornamento cbocliente inserisci:
dim ctl as control
for each ctl in controls
if ctl.tag = "dabloccare" then
if cbocliente <> date then
   ctl.locked = true
else
   ctl.locked = false
end if
end if
next ctl
--
Ciao
Geppo


text:
On 29 Nov, 16:50, "Roberto da Parma" <
arisib...@libero.it
> wrote:
> Ma il campo è nel corpo?
> Ma vuoi bloccare il corpo della maschera o corpo è un campo della maschera?
Ciao Roberto,
ho 5 caselle testo nel corpo della maschera.
3 di queste sono già impostate a:
abilitato -> NO
bloccato -> SI
Sono il codice, descrizione e unità di misura, essendo la schermata di
listino l'utente da qui non deve modificarle.
Le altre 2 caselle di testo sono costo e percentuale. Vorrei che costo
e percentuale fossero modificabili solo quando viene creato o si sta
consultando un listino dove la data è quella di oggi.
> Il corpo della maschera non si può bloccare, mentre per i campi fai un ciclo
> sui controlli.
Ok
> Dim ctl As Control
> If Me.Testo.value = Date Then
>     For Each ctl In Me.Controls
>         If ctl.ControlType = acTextBox Then ctl.Enabled = False
>     Next
> Else
>     For Each ctl In Me.Controls
>         If ctl.ControlType = acTextBox Then ctl.Enabled = True
>     Next
> End If
Ok, il codice da te postato assomiglia a quello della guida F1 su
proprietà AllowEdits
Dubbio 1
Tutti e 5 i campi all'interno della maschera sono caselle di testo.
Con quanto da te sopra indicato, "manipolo" anche i 3 campi quali
codice, descrizione e unità di misura che invece devono restare
bloccati?
> Naturalmente avendo premura di escludere il controllo attivo se non non
> funziona vedi tu se con Tag o nominalmente
Escludere il controllo attivo?
Nel mio caso il controllo attivo andava sul quarto campo, quello del
costo. Allora, potrei impostare il campo Descrizione a abilitato si,
bloccato si.
Quando esco dalla casella combinata cbocliente, e cbodata, il set
focus lo imposto sul campo descrizione, così il campo costo e
percentuali sono liberi per essere bloccati oppure sbloccati, in base
alla data... è questo che intendi????
> Ciao
> Roberto da Parma
Grazie,
Samantha


text:
On 29 Nov, 16:38, esseAemme <
samantha.ci...@gmail.com
> wrote:
> AllowEdits me lo devo studiare
Se e' true, allora permette di modificare i record. Se e' false, no.
In compagnia dei suoi fratellini AllowDeletions e AllowInsertions, che
ti lascio immaginare a cosa servono, sono tre proprietà delle form.
> Allora il codice qui sopra postato funziona, soltanto che mi blocca
> anche le caselle combinate cbocliente e cbodata... come devo fare  x
> sbloccare queste due?
No, se la maschera è bloccata ò bloccata tutta.
Ti conviene intercettare l'evento beforeupdate della maschera, allora.
> Perchè io avrei provato così, ma mi da un erore di runtime 2164
> "Impossibile disattivare il controllo che ha correntemente lo stato
> attivo.
> If Me!cbodata = Date Then
>             'se la data di listino è =date ossia oggi, allora campo
> costo e percentuale sono attivi
>             Me.costodilistino.Enabled = True
>             Me.costodilistino.Locked = False
>
>             Me.percdilistino.Enabled = True
>             Me.percdilistino.Locked = False
>
Questo funziona, ma devi essere sicura che uno dei due controlli non
sia attivo, quindi prima di bloccarli sposta lo stato attivo da
qualche altra parte:
Me.NomeDiUnAltroControllo.setfocus
cia'
Max


text:
On 29 Nov, 17:09, "'Roccia' Max" <
rocciamax...@email.it
> wrote:
Roccia Max: grazie! Funziona alla grande
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me!mp_desc.SetFocus
 If Me!cbodata = Date Then
             'se la data di listino è =date ossia oggi, allora campo
costo e percentuale sono attivi
             Me.costodilistino.Enabled = True
             Me.costodilistino.Locked = False
             Me.percdilistino.Enabled = True
             Me.percdilistino.Locked = False
    Else
             Me.costodilistino.Enabled = False
             Me.costodilistino.Locked = True
             Me.percdilistino.Enabled = False
             Me.percdilistino.Locked = True
 End If
End Sub
Grazie a tutti x il supporto e le
dritte!!!!    :D     :D       :D    :D :D
Samantha