mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Application.echo non mi funziona

Salve a tutti.
Application.Echo False/True dovrebbe evitare gli sfarfallii dello schermo,
ma che lo usi o no non cambia niente, e, particolarmente in queste 2
routines si producono dei fastidiosi repaint.
Non capisco dove sbaglio
    Dim rst As DAO.Recordset
    Dim strCriteria As String
    Dim result
    Application.Echo False
    Me.FilterOn = False
    Me.OrderBy = "nome"
    Me.OrderByOn = True
    Application.Echo True
 
    strCriteria = "[Nome] Like '" & InputBox("NOME CLIENTE: ", "Ricerca
Clienti") & "*'"
 
    Set rst = Me.RecordsetClone
    Application.Echo False
    rst.FindFirst strCriteria
 
 
    If rst.NoMatch Then
        Application.Echo False
        Me.OrderBy = "IDcliente DESC"
        Me.OrderByOn = True
        Application.Echo True
              'MsgBox "Nessuna corrispondenza trovata", vbInformation,
"Ricerca clienti"
        result = MsgBox("Nessuna corrispondenza trovata!" & Chr(13) _
        & "INSERIRE UN NUOVO CLIENTE?", vbYesNo + vbExclamation +
vbDefaultButton2 _
        , "Ricerca clienti")
 
        If result = vbYes Then
            Set rst = Nothing
            Call Comando82_Click
            Exit Sub
        End If
        If result = vbNo Then
        Application.Echo False
        Me.Requery
        Application.Echo True
        End If
 
     Else
        Application.Echo False
        Me.Bookmark = rst.Bookmark
        Me.Filter = strCriteria
        Me.FilterOn = True
        Me.OrderBy = "nome"
        Application.Echo True
    End If
    Set rst = Nothing
... eccetera
Private Sub Form_Current()
Dim ctl As Control
Application.Echo False
For Each ctl In Me.Controls
   Select Case ctl.ControlType
       Case acTextBox, acComboBox, acListBox
           With ctl
               .FormatConditions.Delete
               .FormatConditions.Add acExpression, acEqual, "IDcliente=" &
Me!IDcliente
               .FormatConditions(0).BackColor = vbYellow
               .FormatConditions(0).Enabled = False
           End With
   End Select
Next ctl
Application.Echo True
End Sub
Dove sbaglio?
Grazie a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie a tutti
-- 
Ciao
Geppo 

      me.painting=true

Anche com me.painting non funzia..... BOH?


 End Sub
Sei certo che questa routine ti provochi quanto hai descritto?
Solo una volta mi e' capitato di dover usare l'echo e solo perche stavo 
modificando dinamicamente la visualizzazione di un controllo a schede.
Qui c'e' la modifica delle formatconditions che potrebbe scatenare quel 
problema e l'echo mi sembra posto correttamente.

 Sei certo che questa routine ti provochi quanto hai descritto?
proverò a "remmarla" per vedere se cambia qualcosa.
Grazie, e perdona questo principiante.
Bruno

Newsgroup: it.comp.appl.access
Titolo: testo condizionato dal valore di un controllo in un report

Ciao a tutti, non riesco ad impostare un report in modo che se il valore 
di un controllo è x appaia un certo testo, al contrario se il valore del 
controllo è y il testo sia un altro.
In altre parole se il controllo "area" per esempio riporta il valore 
sud, allora sul report si deve leggere "bianco"; se il controllo riporta 
il valore "nord" si deve leggere "verde".
Grazie
Gianni

 riporta il valore "nord" si deve leggere "verde".
 
Origine controllo di una casella di testo:
 
=Switch(area="sud";"bianco";area="nord";"verde")
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


 
Erano due giorni che mi ci sbattevo! E funziona anche se "bianco" e 
"verde" sono delle stringhe di testo molto lunghe.
Grazie!
 
P.S. ma questa sintassi è un linguaggio proprietario di access oppure è 
vba? Dove posso trovare la prossima volta questo tipo di funzioni?
 
Grazie ancora
Gianni

 Dove posso trovare la prossima volta questo tipo di funzioni?
 
Qui, ;-) perché di solito nella guida (<F1> nel VBE) o nel catalogo
degli oggetti (<F2> nel VBE) devi già sapere cosa cerchi.

Newsgroup: it.comp.appl.access
Titolo: Casella Combinata e Nomi Maschere (o Tabelle)

Buon giorno a tutto il NG.
Ho fatto una ricerca (veloce, certo) tra tutti i thread, ma non ho
trovato niente. E perciò vorrei chiedere:
è possibile con una casella combinata andare a pescare i nomi delle
maschere (o delle tabelle, delle query,... insomma degli oggetti del
db), senza dover popolare un elenco o una eventuale tabella che li
contenga?
Sperando di essere stato comprensibile, ringrazio in anticipo e
comunque.

 ha scritto nel messaggio 
news:1133357672.8...@z14g2000cwz.googlegroups.com...
Buon giorno a tutto il NG.
Ho fatto una ricerca (veloce, certo) tra tutti i thread, ma non ho
trovato niente. E perciň vorrei chiedere:
č possibile con una casella combinata andare a pescare i nomi delle
maschere (o delle tabelle, delle query,... insomma degli oggetti del
db), senza dover popolare un elenco o una eventuale tabella che li
contenga?
Sperando di essere stato comprensibile, ringrazio in anticipo e
comunque.
Ciao Chippo,
io uso comunemente una tabella che contiene TUTTI gli oggetti del mio 
database, si tratta di una tabella di sistema (menu Strumenti -- > Opzioni / 
Visualizzazione --> Oggetti di sistema).
La tabella si chiama: MSysObjects.
Contiene tutti gli oggetti, come ti dicevo, io la uso da una query che mi 
filtra sul campo Type = 6 che corrisponde alle tabelle collegate.
Se guardi, ogni maschera o query nel tuo database, sono elencati ed hanno un 
Type diverso. Puoi usare una query che faccia da Recordsource della tua 
casella a discesa.
Basta filtrarla sul Type e mostrare il campo Name per la scelta.
(!!! attenzione a non cambiare 'a mano' dei valori in questa tabella! E' UNA 
TABELLA DI SISTEMA! Trattala con le molle!)
Comunque, se accedi via VisualBasic , fai riferimento agli insiemi: 
QueryDefs e Forms. Non saprei come popolare la combo, senza paddare da una 
tabella temporanea.
-- 
... spero di esserti stato d'aiuto,(facci sapere)
-- 
-- 
      /)/)               IVAN                (\/)
     (  '.')         NMCBRMC         ( '.' )
  o(_('')('')                               (")(")_)*
Non Microsoft Certified But Regular
             Microsoft Consumer

Super grazie e buona giornata.

Scrivo per ringraziare ancora, perchè è proprio ciò che cercavo.
Filtro sul Type e mostro il Name nel RecordSource della Casella
Combinata proprio come hai detto tu.
Ciao

 ha scritto nel messaggio 
news:1133447235.0...@o13g2000cwo.googlegroups.com...
Scrivo per ringraziare ancora, perchč č proprio ciň che cercavo.
Filtro sul Type e mostro il Name nel RecordSource della Casella
Combinata proprio come hai detto tu.
Ciao
grazie per il riscontro
Ivan
Newsgroup: it.comp.appl.access
Titolo: intercettare errore 13

Salve a tutti,
uso access 2007 e in una maschera dove da una listbox scelgo un certo
numero di fatture per poi inviarle ad un report, la selezione viene
fatta sui numeri fattura.
Tutto bene.
Però se seleziono una fattura alla quale non ho inserito il numero mi
apre una finestra di errore con la seguente dicitura: errore di run-
time '13'. Tipo non corrispondente, aprendomi anche la pagina del
codice ed evidenziando una riga.
Come posso modificare il codice che regola questa funzione per
intercettare l'errore in maniera che mi visualizzi solamente una
finestra con scritto "manca il numero fattura" e senza che mi apra la
pagina del codice debug ecc. ecc.?
A seguito il codice inserito:
Private Sub Comando2_Click()
Dim vSelPar As Variant, stIN As String
     stIN = ""
     For Each vSelPar In Testo6.ItemsSelected
         stIN = stIN & CLng(Testo6.ItemData(vSelPar)) & ","
     Next vSelPar
     If stIN > "" Then
        stIN = Left$(stIN, Len(Trim$(stIN)) - 1)
        stIN = "IN(" & stIN & ")"
        DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport, ,
"NFattura " & stIN
     Else
        DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport
    End If
End Sub
Grazie mille a tutti.
Mauro.

 Grazie mille a tutti.
   Prego
-- 
Ciao
Access 

Splendido.
E' perfetto.
Ciao, grazie ancora.
Mauro.
Newsgroup: it.comp.appl.access
Titolo: Come richiamare in una formula il valore di un campo

Nel mio caso sarebbe:  [TipiCassonetto]![Capacità]
ma non di ogni record, ma di uno in particolare...
Insomma al posto del valore numerico che ho messo ora...

NCP wrote:


Dlookup("capacita","tipoCassonetto","NomeCassonetto = '" & <il parametro >
& "' ")
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: forse OT...

Qualcuno ha avuto a che fare
con il maledetto formato BTR... btrieve?
non riesco ad importare i dati in access2k...
grazie!
ringo

 non riesco ad importare i dati in access2k...
    Mi dispiace, non posso aiutarti. Ma, visto che non si e' ancora fatto
vivo nessuno, mentre attendi potresti farti un giro da queste parti. Si sa
mai...
 
http://www.pervasive.com/support/refshelf.asp
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:aoprkd$p8tnj$1...@ID-52090.news.dfncis.de...

grazie!
cmq ho diversi problemini
con i driver della pervasive....
ringo
Newsgroup: it.comp.appl.access
Titolo: Microsoft ha cambiato qualcosa che riguarda odbc?

Due giorni fa ho lasciato il computer a spegnersi con calma in quanto doveva fare un poco aggiornamenti.
 
Ieri delle tabelle SQL Server collegate in Access 2010 via ODBC non andavano piu, timeout.
Oggi messo insieme la ditta che ha crato, e fornisce assistenza, il db SQL Server e il nostro sistemista dopo essersi 
parlati a lungo non sono riusciti a venire a capo del problema. Ognuno dice che dalla sua parte non ci sono problemi.
 
Hanno provato a riscrivere i dns
Hanno provato a fare una nuova tabella collegata, inutilmente
 
Forse è Microsft nell'aggiornamento di due giorni fa a aver modificato qualcosa?
Mi ricordo che circa un annetto fa, dopo un aggiornamento, non andavano piu le tabbelle di testo collegate in excel
 
-- 
Greg

>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........

 è la prima prova da fare
 
MI dicono cdi aver risolto cambiando qualcosa nel firewall
 
-- 
Greg
Newsgroup: it.comp.appl.access
Titolo: Aggiornameto impostazioni di avvio da codice... dove è l'errore?

Grazie a Alex De Rossi ho trovato il codice per impostare le impostazioni
(scusate la ripetizione) di avvio del database
ho riscritto le routine (cambiando per lo più i nomi di alcune variabili)
però non funziona..riuscite ad aiutarmi e a dirmi dove ho sbagliato?
--------------------------------------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!-------------------------------------
Public Sub ImpoIni()
On Error GoTo ErroreIni
Dim Prop As Integer
Const DB_text As Long = 10
    Prop = AggImpAvvio("startupshowdbwindows", DB_text, False)   'finestra
database
    Prop = AggImpAvvio("allowspecialkeys", DB_text, False)       'Tasti
speciali
    Prop = AggImpAvvio("allowtoolbarchanges", DB_text, False)    'barre
incorporate
UscitaIni:
Exit Sub
ErroreIni:
Select Case Err.Number
    Case Else
        MsgBox Err.Number & " " & Err.Description, , "ImpoIni"
        GoTo UscitaIni
End Select
Public Function AggImpAvvio(srtName As String, varType As Variant, varValue
As Variant) As Integer
Dim dbs As Object, prp As Variant
Const ErroreSt = 3270
Set dbs = CurrentDb
On Error GoTo ErroreAgg
dbs.Properties(strname) = vaValue
AggImpAvvio = True
UscitaAgg:
    Exit Function
ErroreAgg:
    If Err = ErroreSt Then
        Set prp = dbs.CreateProperty(strname, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AggImpAvvio = False
        Resume UscitaAgg
    End If
End Function
-------------------------------------------------------!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!------------------------------------------
Il risultato che mi da è: NIENTE
nessun errore e le barre, tasti speciali e finestra database rimangono
attive.
Grazie!!

 sbagliato?
[...]
    A occhio l'errore (principale) sta nel fatto che non usi Option
Explicit. Sbaglio?
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:b69dn4$30b18$2...@ID-52090.news.dfncis.de...

cioè?
come devo utilizzarlo?

 come devo utilizzarlo?
    Devi usarlo. (Se vuoi, ovviamente. Nessuno ti obbliga.) Verifica la
seguente opzione dell'editor di vb:
        Strumenti > Macro > Visual Basic Editor
        Strumenti > Opzioni...
        Editor
        [v] Dichiarazione di variabili obbligatoria
        <Premi F1 prima di premere...>
        [ OK ]
poi:
        Debug > Compila <nomeprogetto>

Newsgroup: it.comp.appl.access
Titolo: Struttura di un DataBase

Ciao
Esiste in Access 2000 una funzione che mi restituisce l'elenco delle tabelle
presenti in un DB e per ogni tabella l'elenco dei campi.
Grazie a tutti
--
Perru

 ha scritto nel messaggio
news:8o94gb$n6v$1...@nslave1.tin.it...

penso che la strada più semplice:
Barra dei menù > Strumenti > Analizza > Analizzatore
giuseppe

 wrote in message 8o9e6a$s4i$1...@nslave2.tin.it...



Prova anche a vedere sul Sito Comune, sezione Download  "Stampare gli
oggetti di un file .mdb" di Fabio Montagner; io lo adopero in A97 e funziona
bene; oltre alla stampa crea anche due query, il contenuto delle quali
potrebbe esserti utile.
--
Roberto
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 wrote in message
446q5.142873$dF5.2...@news.infostrada.it...


la struttura del DB, se a qualcuno interessa posso inviarla.
più o meno come funziona?  hai escluso le tabelle di sistema?
--
make it idiot proof and someone will make a better idiot.
--


Io ho già pronta una maschera che, selezionate le tabelle desiderate, manda
su Word l'elenco dei campi.
Sarebbe ancora un po' da perfezionare ma funziona.
Se a qualcuno serve, la posso mandare.

> piů o meno come funziona?  hai escluso le tabelle di sistema?
Sě le ho escluse (ma č una semplice if) quindi si possono anche stampare;
poi stampo il nome della tabella, e per ogni tabella i campi con il tipo e
la lunghezza (il tipo viene indicato come numerico, testo, memo ecc e non
come costante)


Sul sito comune c'e' una funzione che, dato il tipo numerico, ritorna la
relativa costante (stringa).
Sempre sul sito c'e' gia' una procedura che analizza il DB ;-)
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: passare una info da maschera a query

ho il seguente problema.
da una maschera che visualizza i dettagli dei miei clienti vorrei poter
(tramite un pulsante) togliere il record selezionato dalla tabella che lo
contiene per memorizzarlo in una tabella di backup.
come fare senza ricorre a codice visual basic?
per ora gestisco la cosa con una query che mi chiede di inserire il
codice_id del cliente e che poi provvedere ad accodare tale record nella
tabella backup. poi allo stesso modo con una query di eliminazione elimino
lo stesso record (che specifico nuovamente).
mi rendo conto che la mia soluzione sia inguardabile, ma meglio non ho
saputo fare. fatemi fare bella figura voi con il mio collega!!!!!!!
Simone

 ha scritto nel messaggio
news:AUCX9.35126$ZE.9...@twister2.libero.it...

Puoi gestire il tutto con due query: una di accodamento e una di
eliminazione.
In quella di accodamento metti nella colonna "IDCliente", nei criteri, il
riferimento all'id della maschera: Forms!TuaForm!IDCliente
Finito di accodare esegui la query di eliminazione che avrà lo stesso
criterio nella colonna ID.
Esegui un requery della maschera.
Quindi su click di un pulsante:
DoCmd.SetWarnings False
DoCmd.OpenQuery "TuaQueryDiAccodamento"
DoCmd.OpenQuery "TuaQueryDiEliminazione"
Me.Requery
DoCmd.SetWarnings True
Ciao, Carlo

 ha scritto nel
messaggio news:_iNX9.93620$AA2.4...@news2.tin.it...

ti ringrazio per la risposta . mi resta comunque un dubbio:
come faccio ad indicare alle 2 query il IDCLIENTE da eliminare? non voglio
indicare alla query tramite
 [inserire campo:]
il record da eliminare.
 la tabella è in forma tabulare. pensavo di  inserire il tuo comando "sul
doppio click" del campo IDCLIENTE.
una roba tipo:
condivizione WHERE:
dove l'IDCLIENTE da dare alla query è il valore IDCLIENTE della maschera
CLIENTI.
grazie in anticipo e perdona il contorsionismo lessicale.
Simone

 ha scritto nel messaggio
news:1HNX9.36286$ZE.10...@twister2.libero.it...

Non capisco..."come faccio ad indicare alle 2 query il IDCLIENTE da
eliminare?".
Nell'esempio che ti ho postato c'era e c'è la soluzione: nelle due query
salvate, nella riga dei criteri, in corrispondenza della colonna o campo
IDCliente (o come si chiama) scrivi il riferimento alla maschera:
Forms!NomeDellaTuaMaschera!IDCliente
Poi esegui da codice le due query, magari su doppio click.
Il codice richiama le query che a loro volta "leggono" il valore che hai
impostato nei criteri ed eseguono l'istruzione.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Filtrare record con campi non compilati

Ho una query Q_ListinoProdotti su cui ho basato la maschera.
I filtri vengono fatti in base al CodiceProdotto e alla Descrizione.
Adesso ho bisogno di effettuare anche ricerche in base a Versione, Anno,
ecco il problema: siccome sono campi che non vengono compilati per tutti i
prodotti la mia query mi visualizza solo i record che hanno tutti i campi
compilati e su questi posso effettuare poi la mia ricerca.
Invece l'idea da cui ero partito era visualizzare tutti i prodotti e poi in
base ai criteri immessi per la ricerca il risultato doveva essere il
prodotto o i prodotti che mi interessano.
Spero di essere stato chiaro
Ciao e grazie
Lo

 ha scritto nel messaggio
news:FMUx8.21571$8D3.6...@news1.tin.it...

In una query di selezione non vengono filtrati mai i record che hanno valore
Null nei campi in base ai quali si effettua la selezione.
Se i campi Vesione e Anno sono ambedue numerici, nella tua query di
selezione aggiungi due campi calcolati nela modo seguente:
VersioneBis: Nz([Versione]; 9999)
 e
AnnoBis: Nz([Anno]; 9999)
Quindi, i criteri che ora hai scritto a fronte dei campi Versione ed Anno,
scrivili incece a fronte dei due campi calcolati VersioneBis ed AnnoBis.
Un'altra soluzione la puoi trovare sul Sito Comune (link qui sotto), nella
Sezione Queries, nella FAQ di Federico Luciani intitolata "Visualizzare
tutti i records con una query parametrica".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Gestione utenti

 
Ho la necessità di creare una gestione utenti, tra i quali
anche l'amministratore con relativa password
Solo l'amministratore ha la possibilità di creare e modificare gli utenti, 
selezionando le maschere che possono e non possono aprire così come per i 
report
Come gestirlo ?
Grazie per la risposta

 Grazie per la risposta
Prego.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
---------------------------------------------------- 

 ha scritto nel messaggio 
news:FGMcf.31985$65.9...@twister1.libero.it...


 E' possibile farlo?
Per prima cosa quando ripondi scri DOPO e non prima del testo dei messaggi
precedenti.
Se non ricordo male, sul Sito Comune dovresti trovare anche come fare
questo.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
[CUT]

 ha scritto nel messaggio 
news:%i2df.56138$Pe2.1...@twister2.libero.it...

Ti ringrazio della precisazione e del riferimento al sito.
Ciao
Newsgroup: it.comp.appl.access
Titolo: page e stampa pagine

Ciao a tutti
ho una stampa che è composta da 5 o più pagine
solo sulle prime tre pagine appare un logo nelle restanti no
Per fare questo rendo o nascondo una immagine sull'intestazione del report 
sfruttando la funzione page()
...
su pagina
...
if page>3 then
        me.pic.visible=true
else
    me.pic.visible=false
endif
il problema che ho è che quando l'utente dall'anteprima di stampa decide di 
stampare es. solo la pagina 4 perchè l'unica che ha modificato il report 
appare con il logo perchè viene considerata pagina 1
se sono stato chiaro qualcuno ha qualche suggerimento?
ciao, AEOM

 ha scritto nel messaggio news:4399c45d$0$27608$4faf...@reader1.news.tin.it...

Strano comportamento; ne ho uno da inviare ma lo tengo per Lunedì.
(tentativo) Hai già inserito una casella di testo che visualizza il numero della pagina/pagine?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:dneevk$us8$1...@area.cu.mi.it...

si c'è
ciao, AEOM

Newsgroup: it.comp.appl.access
Titolo: come assegnare codice VBA ad un pulsante

Ciao a tutti,
si può assegnare codice VBA ad un pulsante posto su una barra degli 
strumenti personalizzata?
Grazie a tutti.
Sergio 

 ha scritto nel messaggio 
news:z7Nuk.147$bK5...@news.edisontel.com...

Sì.
In pratica gli assegni una macro che esegue un codice.
Crea una nuova macro, in azione scegli "EseguiCodice", in "nome funzione" 
inserisci il nome della funzione che hai creato in un modulo pubblico, per 
esempio MiaFunzionePubblica()
Salva la macro e assegnala al pulsante.
Ciao, Carlo 

 ha scritto nel 
messaggio news:g9g7qg$vu7$1...@tdi.cu.mi.it...



si crei una funzione o una routine globali che richiami direttamente
dal tasto.
vedi sul tasto tasto del pulsante le opzioni disponibili.


C'è un articolo su Accessgroup.it
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


Funziona anche richiamando direttamente la funzione anche senza passare 
dalla macro.
Naturalmente la funzione dev'essere "pubblica".
Ciao
-- 
Roberto da Parma 

 Ciao
Sì e per un bug te la lancia 3 volte


 Ciao
Sě e per un bug te la lancia 3 volte
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Mmmmm....non mi capita....un bug di quale versione? AC2007....??
-- 
Roberto da Parma 

 --
Perché vuole eliminare il battitore sul diamante con 3 strike.

Newsgroup: it.comp.appl.access
Titolo: Combobox in sequenza.

Ciao a tutti.
Sto costruendo un db per la ricerca degli Istituti di Credito tramite i 
codici Abi e Cab. Vorrei poter procedere in questo modo, con una prima 
combobox seleziono il codice Abi e con la seconda il Cab ed avere il 
risultato nella sottostante maschera;
Codice Abi
Descrizione
Codice Cab
Filiale
Indirizzo
Località
Cap
Provincia.
Non mi ricordo come si fa, potete illuminarmi?
Grazie per l'attenzione.
Roberto.


Guarda sul 
sitocomune.com
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: ACCESS 2000 (problema copiatura di 2 celle, tra maschere)

Salve a tutto il NG.
Ho il seguente problema che mi "tormenta" e non
riesco a risolverlo, spero che qualcuno con +
esperienza di me, riesca a darmi una mano.
Devo copiare da una maschera ad un'altra il valore 2
caselle, per mezzo di una macro. (imposta valore)
Mi viene visualizzato il messaggio: "Il record è
stato modificato da un'altro utente..."
[salva record],[copia negli appunti],[non salvare]
Le maschere sono strutturate nel seguente modo:
Hanno 2 query distinte ed in comune una tabella
oltre ad una loro distinta.
       [a]                   [b]
        |                     |
    [query a]             [query b]
        |    \           /    |
[tabella a]   [tabella x]   [tabella b]
Io devo copiare una cella contenuta in [tabella a]
in un'altra con nome diverso contenuta in [tabella b].
Premetto che lavoro con i record (es: maschera a e b
entrambe al record 4)
Ho la stessa strutturazione in altre maschere in cui
NON riscontro questo problema. Ho provato a fare
confronti, inutilmente.
Non riesco a venirne a capo.
Spero di essere riuscito a spiegare il problema.
Grazie 1000.
A.GiovanniB.

Mi scuso x il "disegno" inviato male:


Newsgroup: it.comp.appl.access
Titolo: inibire visualizzazione codice

All'apertura del database riconosco utente e dominio tramite le api di XP e 
attribuisco dei diritti agli utenti indicati in una tabella.
E' possibile disabilitare il tasto shift ed  inibire da codice la 
visualizzazione di codice e tabelle in un database non protetto?

 visualizzazione di codice e tabelle in un database non protetto?
Ciao

Newsgroup: it.comp.appl.access
Titolo: problema con decimali

ho un campo di tipo precisione singola formato standard e decimali 
automatici
la textbox che lo contiene è formato standard e decimali automatic
eppure anche se cosi imposti mi visualizza sempre 2 decimali cosi --> 0,00
se metto 8 mi visualizza 8,00 mentre io vorrei vedere 8
e se inserisco 8,321 allora vorrei vedere anche i decimali
sbaglio il formato? 

 ha scritto nel messaggio 
news:434b9b41$0$8489$5fc...@news.tiscali.it...

ciao,
invece del formato standard usa numero generico
Mat.
Newsgroup: it.comp.appl.access
Titolo: 'Segnalibro non valido' dopo form.Undo (o tasto ESC) e MoveNext

Solito recordset ADODB del cavolo connessione ODBC in binding con una form 
assegnato con me.recordset= myadorecordset (cursore lato client)
L'errore ADO � questo "segnalibro non valido" solo in quesot specifico 
contesto:
- si fanno delle modifiche sui campi
- si preme ESC due volte (alias Undo)
- si esegue movenext
subito dopo Access non permette pi� di far navigare attraverso il recordset 
dynamic.
Invece le update da form (e le resync) vengono eseguite correttamente. e si 
pu� navigare nel recordset senza problemi.
Non so pi� che fare! E' frustrante!
Vi ringrazio
Daniele


I bookmark degli ado si intrippano con i cursori dei data sheet delle form 
nel momento in cui ad un controllo di una maschera (che ha controlsource 
impostato su un field di un recordset ado) gli viene assegnato un valore:
esempio:
Me.MioControllo.Value = ... genera un errore sui bookmark nel caso di undo e 
successiva movenext (sia da vba che da interfaccia)
mentre  continue assegnazioni di myRecordsetAdo.Fields("MioControllo").Value 
= ...
non genera problemi sui bookmark
In ogni caso la connivenza degli eventi ADO ed eventi Form sui campi crea un 
po' di anomali se non si presta la dovuta attenzione.
Resta sempre il problema che un campo null o i rules generano alcune volte 
effetti collaterali se non intercettati.
Grazie a voi comunque e spero che quanto esposto possa esservi utile.
Ciao
Daniele
Newsgroup: it.comp.appl.access
Titolo: scrivere un file o su registro

volevo rendere shareware un mio programma.
pensavo di fare una piccolo controllo:
1. o scrivendo un file
problema: come posso sapere il disco/cartella dove è installato windows?
io ad esempio ho windows su f. e non posso di default mettere c:\windows....
2. o su registro.
come si fa?
inoltre: nel caso venga usato in rete ho questo dubbio:
mettiamo che lo installo sul pc1
e fin qui niente problemi.
poi sul pc2 faccio un collegamento al programma sul pc2.
il controllo va a cercare il file su quale pc?
grazie.
Lenny

 ha scritto nel messaggio
news:a5q3ft$99v$1...@pegasus.tiscalinet.it...

Intanto se vuoi far girare in rete il tuo programma comincia a dividerlo in
BE e FE e a ricollegare le tabelle in automatico (vedi Sito Comune); poi hai
la possibilità di andarti a recuperare il percorso del database e/o delle
tabelle collegate per sapere dove hai scritto il file (ma è poco sicuro).
Alternative? Almeno 2:
- scrivi sul registro (vedi Sito Comune);
- utilizzi il n° seriale del disco rigido (vedi Sito Comune).
Oppure puoi utilizzare una combinazione + o - complessa dei 3 sistemi.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 il controllo va a cercare il file su quale pc?
Sul PC locale (PC2)
"Roccia" Max De Poli
Newsgroup: it.comp.appl.access
Titolo: 1 tabella link da excel + 1 altra tabella non fanno una query "combinata"

Meno male che esiste questo NG.
E' da un po' di giorni che mi sto arrovellando per un problema.
Ho un file excel, che riceve i dati da vari fogli creati
precedentemente, e viene aggiornato di volta in volta che ha
"generato" una tabella di tipo "link" in access. In questo modo quando
il file excel viene aggiornato, lo e' anche il DB.
Il problema e' che devo inserire altri dati, provenienti o da un altro
foglio excel oppure inseriti direttamente in Access, e non riesco a
mettere insieme i due pacchetti di dati.
Ho usato la query append, ma non va bene, perche' se la uso due volte
mi ritrovo i dati "ri-appended" due volte. E i dati dovrebbero essere
aggiornati ogni mese.
La situazione e' così:
1- da excel importo i campi: cliente-personale-ore-costo, eccetera.
Questa è una tabella link perche' i dati vengono inseriti in excel e
devono essere aggiornati di volta in volta in access.
2- da access (che credo sia più facile) devono essere inseriti altri
dati che hanno dei campi in comune con quelli al punto 1.
3- vorrei a questo punto avere una query che mi dia i campi:
cliente-personale-ore-costo combinandoli dal punto 1 e 2, per cui
voglio la lista dei clienti, del personale, eccetera. Riesco a
ottenere tutto questo se faccio 2 query separate (una per la tabella 1
e una per la 2), ma non riesco a metterle insieme.
Aggiunta: per ogni campo "cliente" posso avere più "personale", quindi
voglio vedere di fatto quante "ore" il "personale", nome per nome, ed
eventualmente presso quale "cliente". Ci sarà il caso di "personale"
che è presente sia in tabella 1 che 2 (anche se con "cliente" diverso)
le cui "ore" saranno la somma...
Riesco a fare tutto questo con 2 query separate, ciascuna per ogni
tabella.
Anche se faccio la tabella 1 e la tabella 2 uguali non riesco a mette
insieme correttamente la query. Forse il problema e' la la tabella
"link" con excel che non mi permette di definire chiavi ID o altre
cose simili (essendo i dati già presenti in excel e non potendoli
cambiare non ho "chiavi", anche se non so se il problema e' questo).

 
Usare una tabella di appoggio da svuotare e ricreare con i valori di 
quella Excel + Access ?
*** in alternativa ***
Query di unione ?
Ciao
Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:8ebec808cf6adfb7201...@mygate.mailgate.org...

Newsgroup: it.comp.appl.access
Titolo: spazi nel nome campo

Salve a tutti; con questa istruzione:
Private Sub creaprop_Click()
Dim nomecampo As String
nomecampo = newproprietà
DoCmd.RunSQL "ALTER TABLE compl ADD COLUMN " + nomecampo + "text(25)"
End Sub
inserisco un colonna nella mia tabella tramite inserimento in una
casella di testo. Il problema sorge nel momento in cui il nome campo
passato dalla variabile contiene degli spazi, mi va in errore. Come
mai? Non mi risulta che non si possono inserire spazi nei nomi campo
grazie
Francesco

 Francesco
Prima di passargli il campo
Trim(text(25))
e se lo vuoi anche in maiuscolo
Trim(UCase(text(25)))
La funzione Trim leva gli spazi a sin e dex della stringa
Esiste anche la Funzione RTrim e STrim (cioč leva a dex o leva a sin)

 DoCmd.RunSQL "ALTER TABLE compl ADD COLUMN [" + nomecampo + "] text 25)"

Newsgroup: it.comp.appl.access
Titolo: [!] Epelli zip soluzione


' Courtesy Fred Vagner (
FredV...@geocities.com
) for most of the code
Private Type Registers
  RegBX As Long
  RegDX As Long
  RegCX As Long
  RegAX As Long
  RegDI As Long
  RegSI As Long
  RegFlags As Long
End Type
Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Boolean
End Type
Public Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Private Const VWin32_DIOC_DOS_IOCTL = 1
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As
Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize
As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned
As Long, ByVal lpOverlapped As Long) As Long
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal
lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As
Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal
dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal
hTemplateFile As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Sub EjectMedia(Drive As String)
Dim SecAttr As SECURITY_ATTRIBUTES
Dim ErrorResult
Dim hDevice As Long, Regs As Registers, RB As Long
  hDevice = CreateFile("\\.\vwin32", 0, 0, SecAttr, 0,
FILE_FLAG_DELETE_ON_CLOSE, 0)
  If hDevice = -1 Then
    ErrorResult = -1
    Exit Sub
  End If
  With Regs
    .RegAX = &H220D
    .RegBX = Asc(Left(Drive, 1)) - 64
    .RegCX = &H849
  End With
  ErrorResult = DeviceIoControl(hDevice, VWin32_DIOC_DOS_IOCTL, Regs,
Len(Regs), Regs, Len(Regs), RB, 0)
  ErrorResult = CloseHandle(hDevice)
End Sub

 Finalmente una buona persona di nome Mattia...
Oh oh, che gentile! ;-)
[OT]
Per la discussione che ne è nata, scusaci ma arriva sempre qualcuno a
"pretendere" invece di chiedere, allora ci siamo un pò scaldati.
Ciao, alla prossima!
--
Mattia stacanovista...


Ciao e grazie ancora.
Tommy.

 Ecco la procedura:
[cut]
L'ho provata su Win 2k pro, sono amministratore, ma non funziona.
A te và?
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: tasti su maschere continue

Esiste uno stratagemma per far si che, in una visualizzazione in maschere
continue, un tasto funzione appaia solo se i dati della riga hanno un certo
valore. Purtroppo ho notato che se da codice si nasconde un tasto, poi
scompare si tutte le righe (e viceversa).
Spero di essere stato chiaro.
Buona giornata!
Patrick

 Patrick
Non usare tasti, usa campi condizionali... mi spiego : se usi un campo
d'appoggio nella riga e gli attribuisci la formula =if(tua_condizione =
vera;"Stampa";"") , in ogni riga dove la tua condizione risulterà vera il
campo assumerà il contenuto "Stampa"... ovvio che sull'evento clik del
campo gli farai partire il tuo codice.
-- 
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: maschera per interrogare query

Salve sto inizinado a mettere le mani in access 2003, ho creato una
tabella e
una query. Adesso volevo creare una maschera che accettava valori da
poter inserire nella query senza dover utilizzare il tasto destro e
filtro.... ecc
ma avere una maschera vuota e pulsanti di controllo.
C'è qualcuno che può darmi qualche dritta ? anche consigliandomi
qualche guida da poter scaricare....
grazie

 ha scritto nel messaggio 
news:4523ee4a.05012...@posting.google.com...

be se ho capito bene devi filtrare i record di una tabella con la query 
supponi di voler vedere i soli record del signor mario
la maschera devi associarla alla query
nella maschera metti una casellacombinata con tutti i nomi e nella query in 
campo criterio del nome ci metti ---> 
forms![tuamaschera]![nomecasellacombinata]
però su dopo aggiornamento della casellacombinata devi anche eseguire ---> 
me.requery
ciao.

Newsgroup: it.comp.appl.access
Titolo: Sottomaschera nel modulo

Ho una maschera dove sul clic di un pulsante mi esegue una procedura,
all'interno di questa procedure ho questo codice
dim P as string
P = 100
In questa maschera ho una sottomaschera con un controllo di nome
"Progressivo"
Non riesco ad assegnare a P questo il valore di Progressivo
Di solito quando il valore è nella maschera uso "me.Progressivo", ma con la
sottomaschera non riesco.
Grazie a chi può aiutarmi
Ciao
Giorgio
Newsgroup: it.comp.appl.access
Titolo: forzare il formato di un campo query

Mi trovo nelle grane con questo semplice quesito:
Ho una query di raggruppamento che mi fornisce un Lordo e un TotaleSconti di 
una serie di ordini.
SELECT DISTINCTROW idOrdine, 
Sum(quantita*prezzoNetto-IIf(sconto>0,(quantita*prezzoNetto*sconto/100),0)) 
AS Lordo, Sum(IIf(sconto>0,(quantita*prezzoNetto*sconto/100),0)) AS 
TotScontato
FROM tDettagliOrdini
GROUP BY idOrdine;
tre campi di cui due calcolati, la IIF l'ho inserita per non creare errori 
di tipo 0/100 ....
Il risultato di questa query lo assegno al RowSource di due caselle 
combinate che mi fanno vedere solo la colonna utile: 1) il lordo 2) il 
totale sconti.
Qui nasce il problema del formato, la colonna del lordo è perfetta formato 
Valuta con il simbolo € e due decimali, mentre per la seconda colonna non 
c'è verso di ottenere questo formato! vedo un numero(giusto) a volte con un 
decimale, a volte senza e SEMPRE senza il simbolo di valuta!
La domanda: quale proprietà devo cambiare affinchè mi venga visualizzato il 
formato giusto?
siccome sono due campi calcolati non so se è il campo a stabilire il formato 
oppure la casella combinata che lo ospita( qui ho provato tutti i formati, 
ma l visualizzazione finale resta immutata!)
aiuto,  grazie
Ivan 

 Ivan
Mettici un format
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Ivan
Ciao Ivan
mi pare che il problema sia il campo calcolato che si ottiene.
prova formattare sia il campo query sia il controllo a valuta.
Daniele 

 ha scritto nel messaggio
news:444c6bcf$0$18287$4faf...@reader1.news.tin.it...

Ciao Ivan,
usa la funzione Ccur() per convertire il risultato in valuta
----
SELECT DISTINCTROW idOrdine,
Sum(quantita*prezzoNetto-IIf(sconto>0,(quantita*prezzoNetto*sconto/100),0))
AS Lordo,
Ccur(Sum(IIf(sconto>0,(quantita*prezzoNetto*sconto/100),0))) AS TotScontato
FROM tDettagliOrdini
GROUP BY idOrdine;
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP]


perfetto, semplice e funzionante!
grazie, ma certe volte mi manca un mattone per finire il muro e ... questo è 
il mattone giusto!
Ivan
Newsgroup: it.comp.appl.access
Titolo: SetFocus su ListView

Ho notato che una ListView non ha un metodo SetFocus.
Come faccio se voglio portare il fuoco su di essa.
Spiego meglio quello che devo fare:
ho una lista che mi visualizza un elenco di dati. All'inizio la lista
ha il fuoco e la prima linea è evidenziata. Quando premo <freccia giù>
ovviamente mi verrebbe selezionata la seconda linea. Tuttavia
sull'evento ho contemporaneamente la necessità di visualizzare un dato
in una casella di testo. La lista quindi perde il fuoco e non so come
riportarglielo in modo tale che alla successiva premuta della <freccia
giù> mi venga selezionata la riga successiva.
Spero di essermi spiegato.
Grazie
Luigi

 ha scritto nel messaggio 
news:ibphc2l5ak5ghbi5s...@4ax.com...

Quale evento gestisci?
Dovresti gestire "dopo aggiornamento"...
Ciao.
-- 
Sergio MAZZA 

Grazie Sergio per l'interessamento.
Provo a spiegarmi meglio.
Quando mi sposto con i tasti freccia lungo gli item della lista, ad
ogni spostamento rilevato tramite gli eventi KeyUp e KeyDown della
listView io devo aggiornare una casella di testo (txtTitolo)
inserendovi un certa stringa valore. La casella di testo non ha niente
a che fare con la listview. Io non devo aggiornare la listview ma la
la casella di testo. Per fare questo devo prima porre il fuoco sulla
casella di testo e poi inserirvi la stringa. Faccio così:
txtTitolo.SetFocus
txtTitolo.Text="Mia stringa"
Dopo queste istruzioni però vorrei riporre il fuoco sulla listview, in
modo da poter spostarmi tra gli item, senza dover ogni volta cliccare
col mouse sulla listview per riottenerne il fuoco.
Spero di essemi spiegato meglio.
Grazie di nuovo


 txtTitolo.Text="Mia stringa"
le due precedenti sostituiscile con
txttitolo = "miastringa"
e' la proprieta' "value" che devi modificare non il "text"
--
ac



Grazie Alessandro, 
mi hai risolto il problema.

 ha scritto nel messaggio 
news:ibphc2l5ak5ghbi5s...@4ax.com...

Su NodeClick del controllo potresti memorizzare in una variabile il valore 
Node o Key e quindi ritornarci quando vuoi.
Node.Selected = true
O qualcosa di simile.
Ciao, Carlo 

 Grazie di nuovo
(regola di questo NG) Scrivi alla fine del testo del messaggio precedente, 
come sto' facendo io; grazie.
Io non ho parlato di aggiornare la listview, ma di utilizzare uno dei suoi 
eventi e precisamente il "dopo aggiornamento"...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Tasto shift

Scusate l'ignoranza, ma dal sito Comune leggo delle FAQ sul come
disabilitare il tasto Shift all'avvio, ma cosa succede se lo schiaccio
all'avvio?
Ciao
Massimo

 Carlo Ve
Scusa sto entrando da poco nel mondo di Access, ma questa macro autoexec cmq
bisogna inseririrla in una maschera!
Questa macro autoexec che scopo ha?
Grazie
Massimo

 wrote in message
933uf7$uj6$1...@lacerta.tiscalinet.it...

_____
Nella macro Autoexec (cosě la devi salvare), puoi inserire tutti i comandi
che vuoi vengano eseguiti all'avvio dell'applicazione. Se non disabiliti il
tasto shift, quando lanci l'applicazione con il tasto Shift premuto, ti
viene visualizzata la finestra del database e non viene eseguita la macro
Autoexec... quindi non viene fatto nulla.
Se lo hai disabilitato correttamente e da menu strumenti avvio , decidi di
non visualizzare la finestra database,
quando lanci l'applicazione, anche con il tasto shift premuto, Ti parte la
tua bella applicazione con la maschera principale (se l'hai creata), non
viene visualizzata la finestra database e vendono eseguiti tutti i comandi
che hai inserito nella macro Autoexec
spero di esser stato abbastanza chiaro.
ciao Riccardo


 Chiarissimo
mi potresti indicare un database da prelevare nel sito Comune che contenga
questa Macro Autoexec, per vedere com'č strutturata?
Ciao
Massimo

 wrote in message
f8s56.9403$FF1.6...@twister1.tin.it...

---------
E' una semplice macro, ma il solo fatto di Chiamarla Autoexec, le permette
di essere eseguita alla partenza del programma
ciao


Ma poi una volta inserita, con il codice per disattivare il tasto Shift,
come riesco io, compilatore del data base per poterci entrare ed apportarci
delle modifiche?
Sicuramente sarà una domanda retorica, ma..........
Ciao
Massimo

_______
con lo stesso programma puoi disabilitare ed abilitare il tasto shift!
ciao
Riccardo

Newsgroup: it.comp.appl.access
Titolo: Tanti auguri a tutti di Buon Natale e felice 2013

Giunga a tutti i partecipanti al NG e alle Loro rispettive famiglie,
il più sincero augurio di buon Natale e felice anno nuovo, sperando
che queste feste siano come le avete sempre desiderate.
Distinti saluti
M7a1x

 
 
"M7a1x"  ha scritto nel messaggio 
news:f7546ef1-d5f2-483c...@d4g2000vbw.googlegroups.com...
 
Giunga a tutti i partecipanti al NG e alle Loro rispettive famiglie,
il pi� sincero augurio di buon Natale e felice anno nuovo, sperando
che queste feste siano come le avete sempre desiderate.
Distinti saluti
M7a1x
 
Grazie M7a1x
Di cuore contraccambio
Antonio
Newsgroup: it.comp.appl.access
Titolo: cicli vs. Dcount e c.

ho del codice che mi calcola una data prevista da diversi dati presi da una
tabella.
la funzione originaria apriva una tabella con un sql, poi faceva dei cicli
sui dati di quella
tabella per calcolare numero record, min e max di un campo e totale di un
altro campo.
in pratica era:
sql_pasdst = "select * from pasdst where ............  order by psd_data."
Set tab_pasdst = db.OpenRecordset(sql_pasdst)
      Do Until tab_pasdst.EOF
            v_psd_teo = tab_pasdst.Fields("psd_teo")
            v_psd_dat = tab_pasdst.Fields("psd_data")
            conta = conta + 1
           consegnate = consegnate + v_psd_teo
If v_psd_data < min Then
                min = v_psd_data
            End If
           tab_pasdst.MoveNext
        Loop
tab_pasdst.Close
ho provato a mettere invece questo codice
conta = dlookup("pas_cod","pasdst",sql_pasdst)
min = dlookup("pas_data","pasdst",sql_pasdst)
max = dlookup("pas_data","pasdst",sql_pasdst)
consegnate= dlookup("pas_teo","pasdst",sql_pasdst)
ebbene: la soluzione che pensavo essere piu veloce invece ci mette circa 2/3
volte di piu della prima soluzione.
mi fate qualche considerazione al riguardo ?
grazie.
Lenny



 mi fate qualche considerazione al riguardo ?
prima di tutto, come minimo, non hai certo usato dlookup ma dcount e dmax.
poi considera che il tuo codice apriva il recordset una sola volta, mentre
nel secondo modo lo apri e lo chiudi ogni volta che usi le funzioni di
aggregazione.
in questo caso puo' convenire usare una istruzione sql di aggregazione con
le opportune opzioni ed estrarre i dati da li'.
Sib
Newsgroup: it.comp.appl.access
Titolo: Controllo data

Buongiorno!
Intanto grazie a tutti quelli che mi stanno aiutando con il mio
problema precedente. Sto facendo delle prove e domattina posterň i
risultati delle mie fatiche.
Intanto, copiando qui, capendo la' e leggendo i miei nuovi manuali (e
cosě siamo a 4 :P) sono arrivata a scrivere la mia prima espressione
iif. Sono molto sorpresa del fatto che funzioni veramente!!! (e molto
felice!)
Comunque adesso sono alle prese con un nuovo problema in una maschera
e non cavo un ragno dal buco. Ho cercato sui vecchi posts, ma niente.
In sostanza sto cercando di gestire i miei ordini online e ho questa
situazione (ho usato una maschera di input di questo tipo 99/99/0000):
4 campi data:
1 - DATA ORDINE
2 - DATA ARRIVO PRESUNTO
3 - DATA ARRIVO EFFETTIVO
4 - DATA SPEDIZIONE
2, 3, 4 DEVONO ESSERE > DI 1 
E 
3 DEVE ESSERE >2
Ma non so come impostare la cosa... suggerimenti?
Grazie in anticipo 
Erika
-- 
Per rispondermi... Togli "nospam"


Sull'evento "prima di aggiornare" del campo 2 e del campo 4 associa questo
codice
If Me.ActiveControl <= Me.Data1 Then
MsgBox "la data non può essere inferiore a " & Me.Data1
DoCmd.CancelEvent
End If
sull'evento "prima di aggiornare" del campo 3 associa questo codice
If Me.ActiveControl <= Me.data2 Then
MsgBox "la data non può essere inferiore a " & Me.data2
DoCmd.CancelEvent
End If
dove data1, data2, data3, data4 sono i nomi dei controlli sulla maschera
associati alle tue quattro date.
Ciao, e buon anno
Salvatore

End If
Ciao!
Grazie per l'aiuto. Ho inserito il primo codice e funziona, pero'
adesso sono ripiombata nell'abisso, mi spiego:
Ho inserito il codice, poi sull'evento prima di aggiornare ho scelto
la subroutine che lo contiene. E questo funziona.
Pero'... quando vado a fare la stessa operazione sugli altri campi
data, aggiungendo il nuovo codice... il campo precedente non funziona
piu'.
In pratica, a quel che ho capito io, sto usando sempre la stessa
subroutine modificandola di volta in volta.
C'e' qualcosa di grosso che mi sfugge. Perche' ho sempre una sola
subroutine?
Io pensavo che avrei dovuto creare una serie di subroutines, ma come?
Alla fine mi sono ritrovata con dei moduli che non so come usare.
Ovviamente i libri ti insegnano a creare un modulo contenente una
subroutine, ma ma non ti dicono come si usa!
Mi dispiace di stressare, ma non so veramente come fare
Grazie


 ha scritto nel messaggio
news:mbd5vvc72mioueqt7...@4ax.com...

Non devi cambiare la routine. Semplicemente, ne devi inserire una per ogni
controllo.
Per il controllo 2 e 4 la routine è la stessa ma la devi associare ad
entrambi i controlli.
Prova e facci sapere.
Ciao
Salvatore

entrambi i controlli.
Ok, sono totalmente torda, ma come faccio a inserire una nuova
routine???
Ogni volta che apro l'editor di codice mi viene fuori la stessa!!!!


Adesso ho capito come ^_^;;;
Sono un po' foca, ma alla fine ci sono arrivata!
Non dovevo fare tante routines, ma una sola routines con 3 sub dentro.
Adesso funziona tutto!!!!
Grazie
