title: Spostamento record

author: Esteban

text:
Vorrei in una maschera tramite un bottone collegato ad una macro, spostare
il record corrente in un altra tabella (archivio) di egual struttura.
In pratica devo:
1. selezionare il record corrente
2. tagliarlo
3. aprire la tabella o maschera di destinazione
4. incollare il record
Esiste qualcosa semplice e di già scritto ?
Io ho provato ma,
1. mi richiede conferma per il TAGLIA record corrente
2. mi indica un errore di incollamento relativo al record sulla tabella di
destinazione (che è un copia di quella originale)
Grazie


title: Spostamento record

author: MegaMax

text:
"Esteban" <
rs...@libero.it
> ha scritto nel messaggio
news:I7fM7.176047$sq5.8...@news.infostrada.it...
> Vorrei in una maschera tramite un bottone collegato ad una macro, spostare
> il record corrente in un altra tabella (archivio) di egual struttura.
> In pratica devo:
> 1. selezionare il record corrente
> 2. tagliarlo
> 3. aprire la tabella o maschera di destinazione
> 4. incollare il record
Io faccio:
1) Seleziono il record dalla maschera (col mouse, seleziono un campo
qualunque),
2) Nella maschera esiste un campo (visibile o nascosto) che contiene la
chiave della tabella di provenienza
3) Da codice eseguo una query (di accodamento) che in base alla chiave del
record selezionato lo estrae e lo accoda alla tabella opportuna
4) Poi eseguo un'altra query (di eliminazione) che elimina il record in
questione dalla tabella di origine
5) aggiorno la maschera (perchč il record non esiste puů, ma č nell'altra
tabella)
Max


title: AIUTO come mai .-....

author: Massimo

text:
riesco a postare dei messaggi sul N.G. riesco a rispondere ai miei messaggi
postati ma non riesco a rispondere ai messaggi degli altri !!!!
Aiuto Max


title: AIUTO come mai .-....

author: Silvio Berruti

text:
"Massimo" <
ron...@tin.it
> ha scritto nel messaggio
news:8ujqvq$mcr$1...@fe2.cs.interbusiness.it...
> riesco a postare dei messaggi sul N.G. riesco a rispondere ai miei
messaggi
> postati ma non riesco a rispondere ai messaggi degli altri !!!!
Prova a darci qualche informazione in +.
Quale programma usi?
Quale procedura usi x rispondere?
Quale problema riscontri?
Dopo aver risposto, vai a sincronizzare il NG?
Facci sapere.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: AIUTO come mai .-....

text:
> > riesco a postare dei messaggi sul N.G. riesco a rispondere ai miei
> messaggi
> > postati ma non riesco a rispondere ai messaggi degli altri !!!!
>
> Prova a darci qualche informazione in +.
>
> Quale programma usi?
>>>>> Outlook Express
> Quale procedura usi x rispondere?
>>>>> premo come ho sempre fatto " Rispondi al NG"
> Quale problema riscontri?
>>>>> Non invia la posta e si apre la finestra dove parla di protocolli
server ecc. ecc.
> Dopo aver risposto, vai a sincronizzare il NG?
>>>>> lo faccio ma il nessaggio non compare nel NG perchè  è ancora nella
posta in uscita



title: AIUTO come mai .-....

text:
"Massimo" <
ron...@tin.it
> ha scritto nel messaggio
news:8uk1fl$2sj$1...@fe2.cs.interbusiness.it...
> >>>>> lo faccio ma il nessaggio non compare nel NG perchè  è ancora nella
> posta in uscita
Deve essere andato a posto perché hai risposto al mio messaggio...



title: Manuale Access 2002

text:
MANUALE Programmare Microsoft Access 2002 di Rick Dobson Mondatori
informatica con cd, nuovo, prezzo copertina euro 77,47 vendo ad euro 50,00
zona Roma
elgr...@freemail.it


title: Manuale Access 2002

author: Enzo

text:
Sa.Ma. ha scritto:

>
elgr...@freemail.it
sarei interessato ma non sono di roma... Ma il libro č cmq usato?
potresti fare la spedizione tramite pacco?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Manuale Access 2002

author: MA

text:
Il 13 Giu 2003, 10:52,
enzoeffe...@hotmail.com
 (Enzo) ha scritto:
> Sa.Ma. ha scritto:
>
> > MANUALE Programmare Microsoft Access 2002 di Rick Dobson Mondatori
> > informatica con cd, nuovo, prezzo copertina euro 77,47 vendo ad euro
50,00
> > zona Roma
>
> >
elgr...@freemail.it
>
>
> sarei interessato ma non sono di roma... Ma il libro è cmq usato?
> potresti fare la spedizione tramite pacco?
>
Che ne dite di sbrigarvela in privato??
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Manuale Access 2002

text:
MA ha scritto:
> Il 13 Giu 2003, 10:52,
enzoeffe...@hotmail.com
 (Enzo) ha scritto:
> > Sa.Ma. ha scritto:
> >
> > > MANUALE Programmare Microsoft Access 2002 di Rick Dobson Mondatori
> > > informatica con cd, nuovo, prezzo copertina euro 77,47 vendo ad euro
> 50,00
> > > zona Roma
> >
> > >
elgr...@freemail.it
> >
> >
> > sarei interessato ma non sono di roma... Ma il libro č cmq usato?
> > potresti fare la spedizione tramite pacco?
> >
> Che ne dite di sbrigarvela in privato??
> MAssimiliano
> --------------------------------
> Inviato via
http://usenet.libero.it
hai ragione, non č corretto, chiedo scusa a tutti



title: Access 2010. docmd.quit

author: Luciano

text:
Qualcuno sa dirmi perchè quando voglio uscire da Access usando il
comando docmd.quit, con Win7 e Access 2010 viene fuori il msg
"Sequenza di confronto selezionata non supportata con il formato di
file specificato". Tra l'altro, dando OK sul msgbox si esce
regolarmente. Le applicazioni a cui mi riferisco sono mdb creati col
2003 che per tutto il resto girano regolarmente. Grazie.


title: Access 2010. docmd.quit

author: Karl Donaubauer

text:

Non so perché viene fuori il messaggio, ma hai già provato
se succede anche con Application.Quit ?

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


title: Access 2010. docmd.quit

text:

No, con Application.Quit non succede. Ma succede anche chiudendo dal
pulsante di chiusura o eseguendo una macro per uscire da Access.


title: Modifica query tramite maschera

author: Alessio Volontč

text:
Ho la necessità di creare report in base a dati filtrati: il miglior
modo per farlo è utilizzare come "sorgente" per il report una query
giusto?
Inoltre, vorrei che i criteri della query non fossero immessi
direttamente ma tramite una maschera (il database dovrà essere
utilizzato da persono che non conoscono Access): è possibile?In pratica
mi interesserebbe associare un campo di testo di una maschera al
criterio di una query...
Grazie mille per l'aiuto.
Alessio
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Modifica query tramite maschera

author: Namor

text:
Un sistema rapido è quello di sfruttare l'argomento WhereCondition del
metodo OpenReport dell'oggetto DoCmd, passando al report una stringa
contenente un filtro da applicare. In questo caso l'origine dati del report
non dovrà avere filtri o criteri, perchè verranno applicati direttamente
all'apertura del report.
Per esempio, se nella maschera hai un controllo IDutente con il quale
selezioni l'utente per cui vuoi stampare il report, puoi cerare un tastino
che esegua questo comando:
DoCmd.OpenReport "Nome report",,,"IDutente=" & Me.IDutente
E' facile anche concatenare più criteri (con And e Or), sempre
selezionandone i valori tramite controlli della maschera.
Attenzione però a quando si preme il tasto lasciando vuote una o più caselle
dei criteri...
-Marco-
"Alessio Volontè" <
alex...@tin.it
> ha scritto nel messaggio
news:8ddfaf3c4d04eadc0b6...@mygate.mailgate.org...



title: Modifica query tramite maschera

author: Daniele

text:
"Alessio Volontè" <
alex...@tin.it
> ha scritto nel messaggio
news:8ddfaf3c4d04eadc0b6...@mygate.mailgate.org...

nei criteri della query  metti [Forms]![TuoNomeMaschera]![TuoNomeCampo]
Ciao Daniele


title: Apertura Calendario con data odierna

author: SpiderMax

text:
Come da oggetto, non riesco a fare in modo che, aprendo il Controllo
Calendario 9 Microsoft, il valore predefinito sia la data di oggi.
Qualche dritta?
Grazie in anticipo.
Saluti
(¯`·.¸SpiderMax¸.·´¯)


title: Apertura Calendario con data odierna

author: Roberto da casa

text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:Dda_9.63085$YG2.1...@twister1.libero.it...

Se il controllo calendario si chiama acxCalendario, prova con:
        Me!acxCalendario.Year = Year(Date)
        Me!acxCalendario.Month = Month(Date)
        Me!acxCalendario.Value = Date
Con Controllo Calendario 8.0 funziona e magari funziona anche con Controllo
Calendario 9.0
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Apertura Calendario con data odierna

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hHa_9.63195$YG2.1...@twister1.libero.it...
> Se il controllo calendario si chiama acxCalendario, prova con:
>
>         Me!acxCalendario.Year = Year(Date)
>         Me!acxCalendario.Month = Month(Date)
>         Me!acxCalendario.Value = Date
>
> Con Controllo Calendario 8.0 funziona e magari funziona anche con
Controllo
> Calendario 9.0
Ti confermo che funziona anche con il 9.0.
Grazie Roberto.
Uno  (¯`·.¸SpiderMax¸.·´¯) iperriconoscente (ne ho ancora da imparare)


title: Apertura Calendario con data odierna

text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:Gwc_9.63693$YG2.1...@twister1.libero.it...

Scusatemi, ma voglio fare l'avvocato del diavolo.
E se il campo data non è nullo come fare ad aprire il Controllo Calendario
sulla data del campo?
Grazie.
Saluti



title: Apertura Calendario con data odierna

text:
> > "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> > news:hHa_9.63195$YG2.1...@twister1.libero.it...
> > > Se il controllo calendario si chiama acxCalendario, prova con:
> > >
> > > Me!acxCalendario.Year = Year(Date)
> > > Me!acxCalendario.Month = Month(Date)
> > > Me!acxCalendario.Value = Date
> > >
> Scusatemi, ma voglio fare l'avvocato del diavolo.
>
> E se il campo data non è nullo come fare ad aprire il Controllo Calendario
> sulla data del campo?
>
If me isnull(me.tuadata) then
me.ctlactivex01.value = date
else
me.me.ctlactivex01.value = (me.tuadata)
end if
ad occhio dovrebbe andare..
ciao MAssimiliano
P.S. E' da tanto che volevo dirtelo: il tuo logo è troppo carino... ;-]

--------------------------------
Inviato via
http://usenet.libero.it


title: Apertura Calendario con data odierna

text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:t4v2a.110483$ZE.30...@twister2.libero.it...


        Me!acxCalendario.Year = Year(Me!TuaData)
        Me!acxCalendario.Month = Month(Me!TuaData)
        Me!acxCalendario.Value = Me!TuaData



title: Apertura Calendario con data odierna

author: Postino

text:
"SpiderMax" <
Spid...@vizzavi.it
> wrote in message news:<Dda_9.63085$
YG2.1...@twister1.libero.it
>...

Il controllo sta in una maschera immagino, quindi su caricamento della
maschera scrivi:
controllocalendario.value = now()
Funzia con il Calendar8.0... con il 9.0 non so... :o)
Saluz


title: Apertura Calendario con data odierna

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:151Z26Z60Z213Y1...@usenet.libero.it...
> > E se il campo data non è nullo come fare ad aprire il Controllo
Calendario
> > sulla data del campo?
> >
>
> If me isnull(me.tuadata) then
> me.ctlactivex01.value = date
> else
> me.me.ctlactivex01.value = (me.tuadata)
> end if
>
Ti confermo che (con i "dovuti" aggiustamenti) và che è una favola.
Grazie
>
> P.S. E' da tanto che volevo dirtelo: il tuo logo è troppo carino... ;-]
>
Rigrazie (starò diventando ripetitivo?)
PS (per darmi importanza) da me: dovevi vedere il precedente...



title: Apertura Calendario con data odierna

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:pbw2a.110370$YG2.3...@twister1.libero.it...
>
> > E se il campo data non è nullo come fare ad aprire il Controllo
Calendario
> > sulla data del campo?
> >
> > Grazie.
> >
> > Saluti
> >
> > (¯`·.¸SpiderMax¸.·´¯)
>
> Se il controllo calendario si chiama acxCalendario, prova con:
>
>         Me!acxCalendario.Year = Year(Me!TuaData)
>         Me!acxCalendario.Month = Month(Me!TuaData)
>         Me!acxCalendario.Value = Me!TuaData
>
> --
> Roberto
Grazie Roberto, anche per la celerità della dritta.
Funziona benissimo (con un minimo di mio adattamento).



title: Apertura Calendario con data odierna

text:
"Postino" <
raf...@gmx.net
> ha scritto nel messaggio
news:ab06a824.03021...@posting.google.com...
> "SpiderMax" <
Spid...@vizzavi.it
> wrote in message
news:<Dda_9.63085$
YG2.1...@twister1.libero.it
>...
> > Come da oggetto, non riesco a fare in modo che, aprendo il Controllo
> > Calendario 9 Microsoft, il valore predefinito sia la data di oggi.
> >
> Il controllo sta in una maschera immagino, quindi su caricamento della
> maschera scrivi:
>
> controllocalendario.value = now()
>
> Funzia con il Calendar8.0... con il 9.0 non so... :o)
>
> Saluz
Grazie del consiglio.
Posso confermarti che, anche se con i miei "rimaneggiamenti", funge
benissimo pure con il 9.0



title: passare i parametri ad un report

author: Sabatino Traini

text:
Ho un report che si basa su una query parametrizzata
Vorrei da programmazione assegnare questi parametri per poi chiamare il
report
Qualcuno può indicarmi come fare
Grazie


title: passare i parametri ad un report


title: passare i parametri ad un report

author: Fabio Montagner

text:
Questo codice lo uso per passare una query con parametri per poter
selezionare dei nominativi.
Private Sub cmdAvvio_Click()
    Dim MyDatabase As Database
    Dim MyQueryDef As QueryDef
    Dim strDlm As String
    Dim where As Variant
    strDlm = Chr$(34)
    Set MyDatabase = CurrentDb()
    On Error Resume Next
    MyDatabase.QueryDefs.Delete "qryDynAnagrafe"
    On Error GoTo 0
    where = Null
    If Not IsNull(Me![txtCognome]) Then
        If Left(Me![txtCognome], 1) = "*" Or Right(Me![txtCognome], 1) = "*"
Then
            where = where & " And [tblanagrafe].[str_Cognome] Like " &
strDlm + Me![txtCognome] + strDlm
        Else
            where = where & " And [tblanagrafe].[str_Cognome] = " + strDlm +
Me![txtCognome] + strDlm
        End If
    End If
    If Not IsNull(Me![txtNome]) Then
        If Left(Me![txtNome], 1) = "*" Or Right(Me![txtNome], 1) = "*" Then
            where = where & " And [tblanagrafe].[str_nome] Like " & strDlm +
Me![txtNome] + strDlm
        Else
            where = where & " And [tblanagrafe].[str_nome] = " + strDlm +
Me![txtNome] + strDlm
        End If
    End If
    If Not IsNull(Me![txtRagSoc]) Then
        If Left(Me![txtRagSoc], 1) = "*" Or Right(Me![txtRagSoc], 1) = "*"
Then
            where = where & " And [tblanagrafe].[str_ragSoc] Like " & strDlm
+ Me![txtRagSoc] + strDlm
        Else
            where = where & " And [tblanagrafe].[str_ragSoc] = " + strDlm +
Me![txtRagSoc] + strDlm
        End If
    End If
    If Not IsNull(Me![txtComune]) Then
        If Left(Me![txtComune], 1) = "*" Or Right(Me![txtComune], 1) = "*"
Then
            where = where & " And [tblanagrafe].[str_Comune] Like " & strDlm
+ Me![txtComune] + strDlm
        Else
            where = where & " And [tblanagrafe].[str_Comune] = " + strDlm +
Me![txtComune] + strDlm
        End If
    End If
    If Not IsNull(Me![txtPv]) Then
         where = where & " AND [tblanagrafe].[str_Pv]= " + Me![txtPv]
    Else
         where = where
    End If
    Set MyQueryDef = MyDatabase.CreateQueryDef("qryDynAnagrafe", _
        "Select tblanagrafe.*,qryCentroAttivo.lng_int_Salto from tblanagrafe
INNER JOIN qryCentroAttivo ON tblAnagrafe.lng_cnt_Centro =
qryCentroAttivo.LNG_CNT_CENTRO " & IIf(IsNull(where), "", "where " &
Mid(where, 6)) & " ORDER BY str_RagSoc, str_Cognome, tblanagrafe.str_Nome")
        DoCmd.OpenForm "frmAnagrafe"
        Forms!frmAnagrafe.RecordSource = "qryDynAnagrafe"
End Sub
Sabatino Traini wrote in message <87rjgv$bsd$
1...@serv1.iunet.it
>...



title: Come realizzare un cleaner per il codice vba?

author: RobertoA

text:
Vorrei realizzare il 'mio' cleaner per dare una ripulita ad alcuni
progetti Access particolarmente voluminosi
Il primo obiettivo e' individuare nei moduli le sub/function che non
vengono usate in nessuna parte del programma, le orfane per capirci, e
consentire all'operatore di eliminarle
Stessa sorte tocchera' alle costanti/variabili, a vedro' dopo

Allora supponendo che dentro un ciclo scorra tutti i moduli
Che per ogni modulo scorra le sub/funzioni presenti
Come fare per capire se la sub/funzione corrente e' usata nel programma?
Perche' andare di forza bruta mi sembra estremamente impegnativo
C'e' qualche trucco che possa usare per capire se una data sub/funzione
viene usata all'interno del programma (senza scorrere tutti gli altri
moduli e form e report)?


text:
Io avevo fatto una cosa simile qualche anno addietro... le cose non sono così semplici.

Le Funzioni possono essere richiamate non solo nel VBA ma nel Generatore di Espressioni, quindi trovartele in Properties degli oggetti come DefaultValue, o anche Eventi.
Ci sono poi le Public Function delle Form che possono essere usate, o anche le Public Property delle Form ma anche delle Classi.

Ovviamente a questo vanno aggiunte le dichiarazioni Public delle Variabili che possono essere richiamate ovunque nei moduli di VBA...

La cosa che avevo pensato dopo varie prove e che mi pareva più più funzionale era individuare con VBE inserendo la Lib per accedere al codice, tutte le Function/Sub/Property e le ho registrate, poi ho ESPORTATO Form/Report/Moduli in formato Testo ma con la Funzione Nascosta SaveAsText, in quanto esporta la struttura della Form/Report inclusi gli Oggetti e le Proprietà, nelle quali si può annidare la chiamata a Function.

Purtroppo poi ci sono le MACRO EMBEDDED pessima invenzione di MS.... che sono una rottura di scatole terribile per le quali serve un codicillo a parte.
Di fatto poi apri i file di Testo con FSO e cerchi tutte le parole salvate come FUNCTION ecc... e le conti se il COUNTER=1 non è usata...

Ho semplificato e banalizzato molto, ma il lavoro da fare è discretamente complesso.

@Alex


text:

Mi sembra di capire che dai una 'spazzolata' iniziale, memorizzi, e poi
  usi per capire se una certa Sub/Funzione e' presente nell'archivio
raccolto
Si, ottima idea, non avevo pensato all'archivio coi nomi degli oggetti
Ma una volta trovato il codice orfano, supponiamo sia

Public Function Apri_File(byval nom_fil as string) as long

dentro il modulo  "modFunzioniGlobali", come faresti poi ad eliminare la
funzione dal codice (nell'ipotesi di voler attivare l'automatismo)?


text:
> Mi sembra di capire che dai una 'spazzolata' iniziale, memorizzi, e poi
> usi per capire se una certa Sub/Funzione e' presente nell'archivio
> raccolto
> Si, ottima idea, non avevo pensato all'archivio coi nomi degli oggetti

Da alcune prove che feci era la soluzione che in assoluto dava le migliori performances, le altre erano lente.

> Ma una volta trovato il codice orfano, supponiamo sia
>
> Public Function Apri_File(byval nom_fil as string) as long
>
> dentro il modulo "modFunzioniGlobali", come faresti poi ad eliminare la
> funzione dal codice (nell'ipotesi di voler attivare l'automatismo)?

Io in automatico AZIONI di CANCELLAZIONE non ne farei MAI... motivo per cui non le  avevo previste.
Nel mio giochetto avevo fatto un sistema che mi scannerizzasse tutto, mi facesse vedere la cosa, e sfruttanto una RichText evidenziavo la corrispondenza dei TOKEN trovati con la lista all'interno degli oggetti.

Procederei con la cancellazione Manuale, e la riscannerizzazione, da fare attenzione che, la Funzione deve essere l'ultima cosa da CANCELLARE, altrimenti protresti avere un sacco di chiamate nel codice senza la destinazione, ovviamente il DEBUG lo segna ma lo SCANNER potrebbe essere ingannato.

@Alex


text:

Si, in realta' anch'io pensavo di procedere a manina, ma sapere come
fare a cancellare in automatico e' comunque un obiettivo che vorrei
raggiungere
Questa sotto invece non l'ho capita

"..la Funzione deve essere l'ultima cosa da CANCELLARE, altrimenti
protresti avere un sacco di chiamate nel codice senza la destinazione.."

Se la funzione

Public Function Apri_File(byval nome_del_file as string) as long

la trovo SOLO dentro al modulo dove lei alberga, supponiamo
modFunzioniPubbliche , vuol dire che nessuno la usa, e quindi volendo
puo' essere cancellata da dove sta ora
Se dentro altre form, moduli, report, query quella funzione non appare,
di quali 'un sacco di chiamate' stai parlando?


text:
> Si, in realta' anch'io pensavo di procedere a manina, ma sapere come
> fare a cancellare in automatico e' comunque un obiettivo che vorrei
> raggiungere
> Questa sotto invece non l'ho capita
>
> "..la Funzione deve essere l'ultima cosa da CANCELLARE, altrimenti
> protresti avere un sacco di chiamate nel codice senza la destinazione.."
>
> Se la funzione
>
> Public Function Apri_File(byval nome_del_file as string) as long
>
> la trovo SOLO dentro al modulo dove lei alberga, supponiamo
> modFunzioniPubbliche , vuol dire che nessuno la usa, e quindi volendo
> puo' essere cancellata da dove sta ora
> Se dentro altre form, moduli, report, query quella funzione non appare,
> di quali 'un sacco di chiamate' stai parlando?

Ragionavo in ottica di AUTOMATISMO... quando andrai a cancellare, eventualmente lo farai, la funzione che è oggetto di ricerca deve essere l'ultima cosa da Cancellare...!
Questa affermazione non è banale... in quanto se cerchi [Apri_File] a meno di REGEX, se riesci a farlo funzionare, trovi anche la funzione stessa e non solo le chiamate...
Quindi se ad esempio cancelli parzialmente, poi riesegui lo scanner rischi di non trovare più la Funzione ma di avere le chiamate.

@Alex


text:
Le chiamate sono quelle alla Sub/Funzione...

Call NomeFunzione(...)

Se Cancelli prima la Funzione, Scannerizzi, sparisce dall'elenco la Funzione ma il Call NomeFunzione no...!

Dipende da come gestisci il tutto... era un ragionamento embrionale...

@Alex


text:

Ah adesso ho capito, tu ipotizzi di poter cancellare una funzione che
nel codice viene anche usata, e quindi le X chiamate sono una roba
mentre la definizione di funzione e' altra roba
Diciamo che e' il caso generale

Mentre io parto dal sottoinsieme del caso generale, prevedo si possa
cancellare la funzione unicamente se NON viene mai chiamata nel codice


text:
> Ah adesso ho capito, tu ipotizzi di poter cancellare una funzione che
> nel codice viene anche usata, e quindi le X chiamate sono una roba
> mentre la definizione di funzione e' altra roba
> Diciamo che e' il caso generale
>
> Mentre io parto dal sottoinsieme del caso generale, prevedo si possa
> cancellare la funzione unicamente se NON viene mai chiamata nel codice

Ok allora è più semplice, in questo caso la puoi anche cancellare in modo abbastanza banale...
Usando la Lib VBIDE con i Riferimenti a Microsoft Visual Basic For Application Extensibility 5.3(questa è la mia versione) puoi velocizzare.
Da quì sai da che riga parte ed a che riga Finisce, quindi puoi usare il metodo DeleteLines dell'oggetto VBIDE.CodeModule per cancellare dalla riga di Inizio Funzione/sub alla riga fine.

Esempio semplice:
    Sub DeleteProcedureFromModule(ModuleName as String, ProcNameAs String)
        Dim CodeMod As VBIDE.CodeModule

        Set CodeMod = app.VBE.ActiveVBProject.VBComponents(ModuleName).CodeModule
        CodeMod.DeleteLines CodeMod.ProcStartLine(ProcName, vbext_pk_Proc), CodeMod.ProcCountLines(ProcName, vbext_pk_Proc)
    End Sub

Io mi ero fatto un Tool come dicevo con 2 Classi che mappavano tutto ed esponevano i Metodi di DeleteProcedure/AddProcedure/ReplaceProcedure etc...!

Ciao
@Alex


text:

Si, era quel che mi mancava, grazie


author: fifisio fifisio

text:
Ciao, ormai da oltre 15 anni che uso MZTools e ha proprio la funzione che serve a te, e lavora anche sulle variabili/costanti non utilizzate.
Prima veniva distribuita gratuitamente la versione 3 per VB5, VB6 e VBA (32bit).
Ora è a pagamento. Ma ti assicuro che ne vale la pensa spendere qualche decina di euro per un tool che ti risolve tanti problemi.
Io mi trovo benissimo con questo tool. Lo uso ancora con VB6 per la manutenzione di vecchi software.
Con la versione .NET (v8) hanno implementato tante funzioni.

Comunque, se serve la cerco, da qualche parte dovrei avere la versione 3 a per VBA.

Saluti
Efisio


text:

Si, grazie, lo so
Come  sicuramente moltissimi qua dentro, uso MzTools per alcune
funzionalita' e conosco anche lo 'scova-orfani'
Ma sfido chiunque ad eliminare 2K variabili non utilizzate cliccandoci
sopra e cancellandole a manina, ci vorrebbero delle ore
Pur nella propria funzionale essenzialita', non e' quel che vorrei
avere, anche se quello del riconoscimento orfani e' ovviamente il nucleo
di quanto sto cercando
Vorrei un sistema con un maggior controllo sulla visualizzazione del
risultato ricerca e sulle possibili azioni da intraprendere


text:

Agli interessati a questi argomenti, segnalo questo link che contiene
informazioni preziose sulle richieste poste nei messaggi precedenti

http://www.cpearson.com/excel/vbe.aspx#:~:text=You%20can%20write%20code%20in,VBA%20modules%20and%20code%20procedures
.


author: PhilCattivocarattere

text:
Il giorno domenica 26 giugno 2022 alle 11:27:08 UTC+2 RobertoA ha scritto:

> Vorrei un sistema con un maggior controllo sulla visualizzazione del
> risultato ricerca e sulle possibili azioni da intraprendere

In occasione del mio primo intervento spero di non fare subito danni con quote o altro.
Esiste il gratuito Rubberduck
https://github.com/rubberduck-vba/Rubberduck
 con la release stable e
quelle di sviluppo
https://github.com/rubberduck-vba/Rubberduck/releases
 che solitamente vanno piuttosto bene, in queste cose. Se non ricordo male la versione di sviluppo permette di fare un'installazione caricando di default un numero di analisi molto ridotto rispetto al solito. La paperella potrebbe avere bisogno di parecchio tempo per fare tutte le sue analisi e personalmente attivo la componente aggiuntiva da VBE solo quando mi serve.
Evidenzia di certo le variabili non usate, per i casi particolari non rilevati o per i quali si vorrebbe un comportamento diverso si può creare un issue, poi ci sono quelli che ci capiscono davvero che valutano tempi e modi.
Come si dice in questi casi, DISCLAIMER: la traduzione in italiano è opera mia (quindi si accettano anche suggerimenti su correzioni e miglioramenti) ma non ho interessi economici in ballo.


title: CAP, citta e provincia "inserimento"

author: Claudio

text:
Salve,
inserendo il nome della CITTA', (su una maschera) vorrei si visualizzasse
anche il nome della PROVINCIA e del CAP.
chi può suggerirmi il codice da scrivere ?
grazie per il suggerimento !
claudio
ho già predisposto la tabella contenente
IDCodici
CAP
CITTA
PROVINCIA
TARGA


title: CAP, citta e provincia "inserimento"

author: Micio

text:
Claudio ha scritto nel messaggio <10lij9h$a38$
1...@fe2.cs.interbusiness.it
>...

... in caso di città "omonime" (stesso nome in provincia diversa)
come fai la scelta?
Micio


title: CAP, citta e provincia "inserimento"

text:
> ... in caso di città "omonime" (stesso nome in provincia diversa)
> come fai la scelta?
> Micio
Ciao Micio,
Va inserita la sola provincia , poi la citta ed il cap viene ripresa dalla
tabella, solo che non conosco il codice per mettere in relazione i campi
della tabella COMUNI.
( ad esempio si seleziona con una combo la provincia di MONTEFLAVIO e sulla
maschera dovrà essere visualizzata anche la relativa provincia di ROMA, ed
il CAP 00010)
la Tabella Comuni è:
IDCodice
CAP
CITTA
PROVINCIA
riformulo la domanda, inserendo la sola PROVINCIA da una casella combinata,
come posso fare per visualizzare la relativa CITTA e CAP, ?
grazie a quanti mi sanno dare un suggerimento
claudio
>


title: CAP, citta e provincia "inserimento"

text:
>Ciao Micio,
>Va inserita la sola provincia , poi la citta ed il cap viene ripresa dalla
>tabella, solo che non conosco il codice per mettere in relazione i campi
>della tabella COMUNI.
>( ad esempio si seleziona con una combo la provincia di MONTEFLAVIO e sulla
>maschera dovrà essere visualizzata anche la relativa provincia di ROMA, ed
>il CAP 00010)
>
>la Tabella Comuni è:
>IDCodice
>CAP
>CITTA
>PROVINCIA
>
>riformulo la domanda, inserendo la sola PROVINCIA da una casella combinata,
>come posso fare per visualizzare la relativa CITTA e CAP, ?
>grazie a quanti mi sanno dare un suggerimento
>claudio
scusa ma non capisco... tu inserisci una provincia
(ma MONTEFLAVIO non è una provincia) e vuoi
che venga visualizzata città e CAP...
Cioè in base al Comune che inserisci vuoi che
venga visualizzata la città capoluogo di provincia
con il relativo CAP?
Micio


title: CAP, citta e provincia "inserimento"

text:
Si hai ragione  !!
( ho fatto un po di confusione!!)
la tabella è così composta
IDCodice
Comune         "Monteflavio"
Provincia_di   "Roma"
CAP                "00010"
quindi: selezionando da una combo il Comune "Monteflavio", vorrei si
visualizzasse sulla maschera  anche la provincia di "Roma" ed il relativo
cap 00010, rispettivamente sui campi provincia_di e CAP.
saluti claudio
Micio <...@...> wrote in message 871tgb$h33$1...@nslave1.tin.it...



title: CAP, citta e provincia "inserimento"

author: sib

text:
Claudio <
cala...@itb.it
> wrote in message
10lipfh$go2$1...@fe2.cs.interbusiness.it...
>
> > ... in caso di città "omonime" (stesso nome in provincia diversa)
> > come fai la scelta?
> > Micio
>
> Ciao Micio,
> Va inserita la sola provincia , poi la citta ed il cap viene ripresa dalla
> tabella, solo che non conosco il codice per mettere in relazione i campi
> della tabella COMUNI.
> ( ad esempio si seleziona con una combo la provincia di MONTEFLAVIO e
sulla
> maschera dovrà essere visualizzata anche la relativa provincia di ROMA, ed
> il CAP 00010)
>
> la Tabella Comuni è:
> IDCodice
> CAP
> CITTA
> PROVINCIA
>
> riformulo la domanda, inserendo la sola PROVINCIA da una casella
combinata,
> come posso fare per visualizzare la relativa CITTA e CAP, ?
> grazie a quanti mi sanno dare un suggerimento
> claudio
Nell'evento DopoAggiornamento del controllo Provincia inserisci:
Me!CAP=DLookUp("CAP","TABELLACOMUNI";"PROVINCIA= '" & Me!Provincia&"'")
Me!Comune=DLookUp("Comune","TABELLACOMUNI";"PROVINCIA= '" &
Me!Provincia&"'")
Attento pero', che cosi' viene fuori il *primo* comune che trova con quella
provincia.
Vatti a guardare l'help di DLookup
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: CAP, citta e provincia "inserimento"

text:
Claudio <
cala...@itb.it
> wrote in message
871urh$rui$1...@fe1.cs.interbusiness.it...
> Si hai ragione  !!
> ( ho fatto un po di confusione!!)
> la tabella č cosě composta
>
> IDCodice
> Comune         "Monteflavio"
> Provincia_di   "Roma"
> CAP                "00010"
>
> quindi: selezionando da una combo il Comune "Monteflavio", vorrei si
> visualizzasse sulla maschera  anche la provincia di "Roma" ed il relativo
> cap 00010, rispettivamente sui campi provincia_di e CAP.
Scusa, ma come gia' ti faceva notare Micio, questo e' il contrario di quello
che hai detto prima,
Ora stai dicendo che dal COMUNE vuoi risalire alla PROVINCIA
Prima chiedevi come risalire dalla PROVINCIA al COMUNE (e nel mio post a
questa domanda ho risposto avvisandoti della fallacita' del sistema che
avevi scelto)
In ogni caso la mia risposta va sempre bene, devi solo invertire i nomi dei
campi e dei controlli



title: CAP, citta e provincia "inserimento"

author: Fabrizio Domiziani

text:
--
> Nell'evento DopoAggiornamento del controllo Provincia inserisci:
>
> Me!CAP=DLookUp("CAP","TABELLACOMUNI";"PROVINCIA= '" & Me!Provincia&"'")
> Me!Comune=DLookUp("Comune","TABELLACOMUNI";"PROVINCIA= '" &
> Me!Provincia&"'")
>
Davvero molto interessante. Ora come si può fare per
aggiungere nella tabella principale anche record che non siano compresi
nella Tabella Comuni (l'integrità referenziale non lo consente naturalmente)
e - sempre più difficile -  per aggiornare persino quest'ultima con i nuovi
dati inseriti per il nuovo comune?
Grazie  tante


title: CAP, citta e provincia "inserimento"

author: Kappa

text:
On Sun, 30 Jan 2000 19:05:36 +0100, "Claudio" <
cala...@itb.it
> wrote:
>Si hai ragione  !!
>( ho fatto un po di confusione!!)
>la tabella è così composta
>
>IDCodice
>Comune         "Monteflavio"
>Provincia_di   "Roma"
>CAP                "00010"
>
>quindi: selezionando da una combo il Comune "Monteflavio", vorrei si
>visualizzasse sulla maschera  anche la provincia di "Roma" ed il relativo
>cap 00010, rispettivamente sui campi provincia_di e CAP.
>
>saluti claudio
Avevo lo stesso problema, e lo ho risolto così:
- nella maschera ti crei  una casella combinata con queste colonne:
IDCODICE, COMUNE, PROV, CAP: la prima è quella cui è associato il
campo, la seconda è quella che visualizzi
- aggiungi alla maschera un controllo non associato che legge la
column(2) e la column(3)
Ogni volta che scegli una località ti viene automaticamente aggiornato
il controllo associato: in questo modo è molto più veloce del metodo
dlookup. I problemi ci sono se vuoi aggiungere direttamente dalla
casella combinata nuove località, ma ci si salta fuori anche da lì.
Eventualmente ti faccio avere il codice.
Ciao,
K


title: Query unione per colonne

text:
Ho due tabelle formate da 4 colonne , che hanno in comune il campo [Numero]
, vorrei unirle in una nuova tabella perchč mi servono tutte e otto le
colonne insieme.....
SELECT xP4.F1, xP4.F2, xP4.F3, xP4.F4
FROM xP4;
SELECT xU4.F5, xU4.F6, xU4.F7, xU4.F8
FROM xU4;
con questa i record mi vengono aggiunti sotto i record precedenti ......io
ripeto vorrei le 4 colonne della tabella xU4
affianco alle 4 della tabella  xp4
grazie.


title: Query unione per colonne

author: giorgio rancati

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c73krn$i1240$1...@ID-24065.news.uni-berlin.de...
> Ho due tabelle formate da 4 colonne , che hanno in comune il campo
[Numero]
> , vorrei unirle in una nuova tabella perchè mi servono tutte e otto le
> colonne insieme.....
> SELECT xP4.F1, xP4.F2, xP4.F3, xP4.F4
> FROM xP4;
>
> SELECT xU4.F5, xU4.F6, xU4.F7, xU4.F8
> FROM xU4;
>
> con questa i record mi vengono aggiunti sotto i record precedenti ......io
> ripeto vorrei le 4 colonne della tabella xU4
> affianco alle 4 della tabella  xp4
>
>
> grazie.
E' una semplice query con due tabelle in JOIN
--------------------
SELECT F1,F2,F3,F4,
               F5,F6,F7,F8
FROM   xP4 INNER JOIN xU4
              ON xP4.Numero=xU4.Numero
-------------------
Ciao Giorgio


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c73krn$i1240$1...@ID-24065.news.uni-berlin.de...

Penso che piů che usare una query unione devi mettere un INNER JOIN le due
tabelle in base al campo [Numero].
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query unione per colonne

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:c73ovd$7n8$1...@lacerta.tiscalinet.it...
>
> "Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
> news:c73krn$i1240$1...@ID-24065.news.uni-berlin.de...
> > Ho due tabelle formate da 4 colonne , che hanno in comune il campo
> [Numero]
> > , vorrei unirle in una nuova tabella perchč mi servono tutte e otto le
> > colonne insieme.....
> > SELECT xP4.F1, xP4.F2, xP4.F3, xP4.F4
> > FROM xP4;
> >
> > SELECT xU4.F5, xU4.F6, xU4.F7, xU4.F8
> > FROM xU4;
> >
> > con questa i record mi vengono aggiunti sotto i record precedenti
......io
> > ripeto vorrei le 4 colonne della tabella xU4
> > affianco alle 4 della tabella  xp4
> >
> >
> > grazie.
>
> E' una semplice query con due tabelle in JOIN
> --------------------
> SELECT F1,F2,F3,F4,
>                F5,F6,F7,F8
> FROM   xP4 INNER JOIN xU4
>               ON xP4.Numero=xU4.Numero
> -------------------
>
> Ciao Giorgio
        non va cosě ho provato molte volte :)
        in ogni tabella ci sono 70 record ....se provo come dici mi la query
restituisce 4900 record
    invece dei 170 !
secondo me ci vuole una query d'unione....
ciao !


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c73tpa$i00ut$1...@ID-24065.news.uni-berlin.de...

        invece dei 140 !
        č meglio che vado a nanna !
notte !


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c73tsu$hujiq$1...@ID-24065.news.uni-berlin.de...
>
> "Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
> news:c73tpa$i00ut$1...@ID-24065.news.uni-berlin.de...
> >
> > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> > messaggio news:c73ovd$7n8$1...@lacerta.tiscalinet.it...
> > >
> > > "Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
> > > news:c73krn$i1240$1...@ID-24065.news.uni-berlin.de...
> > > > Ho due tabelle formate da 4 colonne , che hanno in comune il campo
> > > [Numero]
> >
> >         non va cosě ho provato molte volte :)
> >         in ogni tabella ci sono 70 record ....se provo come dici mi la
> query
> > restituisce 4900 record
> >     invece dei 170 !
>
>         invece dei 140 !
>         č meglio che vado a nanna !
> notte !
>
Forse č meglio che ti studi un po' di Sql
Ciao Giorgio


title: Query unione per colonne

text:
> > >         non va cosě ho provato molte volte :)
> > >         in ogni tabella ci sono 70 record ....se provo come dici mi la
> > query
> > > restituisce 4900 record
> > >     invece dei 170 !
> >         invece dei 140 !
> >         č meglio che vado a nanna !
> > notte !
Buondi,
i record restituiti devono essere 70 !!!!
> Forse č meglio che ti studi un po' di Sql
lo farň !! nel frattempo non č possibile mettere "affianco", queste
benedette otto colonne ?
> Ciao Giorgio
    ciao !


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c74rhc$i49e3$1...@ID-24065.news.uni-berlin.de...

devi fare esattamente come ti ho detto, se le due tabelle hanno un campo in
comune [Numero] le devi collegare in INNER JOIN  in questo modo
---------------------------
SELECT F1,F2,F3,F4,
               F5,F6,F7,F8
FROM   xP4 INNER JOIN xU4
              ON xP4.Numero=xU4.Numero
------------------------
Se a te vengono rese 4900 righe significa che hai messo le tabelle in CROSS
JOIN in questo modo
------------------------
SELECT F1,F2,F3,F4,
               F5,F6,F7,F8
FROM   xP4,xU4
-----------------------
ottenendo il prodotto cartesiano delle righe.
Se vuoi usare la sintassi antica della INNER JOIN puoi fare cosě
------------------------
SELECT F1,F2,F3,F4,
               F5,F6,F7,F8
FROM   xP4,xU4
WHERE xP4.Numero=xU4.Numero
----------------------
Ciao Giorgio


title: Query unione per colonne

text:
>
> Penso che più che usare una query unione devi mettere un INNER JOIN le due
> tabelle in base al campo [Numero].
>
    l'ho più volte.....ma  non va......forse  perchè i campi sono tutti
chiave primaria ????
    li ho impostati così perchè i record provengono da un'altra tabella a
quando vado ad accodarli non voglio
    che si copino record duplicati.
        ciao !


title: Query unione per colonne

text:
>
> Se vuoi usare la sintassi antica della INNER JOIN puoi fare cosě
> ------------------------
> SELECT F1,F2,F3,F4,
>                F5,F6,F7,F8
> FROM   xP4,xU4
> WHERE xP4.Numero=xU4.Numero
> ----------------------
fatto !
non mi viene restituito nessun record !
il fatto che i tutti i campi da F1 a F8 sono chiavi primarie influisce ?
> Ciao Giorgio
    ciao !


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c74tiq$igmp0$1...@ID-24065.news.uni-berlin.de...

Allora devi mostrarci un esempio dei dati in tuo possesso, se la query non
funziona vuol dire che le tabelle non hanno il campo Numero in comune e
questo č in contrasto con quanto da te affermato nel primo post.
-----------------------
> Ho due tabelle formate da 4 colonne , che hanno in comune il campo
[Numero]
> , vorrei unirle in una nuova tabella perchč mi servono tutte e otto le
> colonne insieme.....
-------------------------
es..
Tabella
xP4
---------------
Numero F1 F2 F3 F4
     1        1   2    3  4
     2        9   8    7  6
-------------------
Tabella
xU4
---------------
Numero F5 F6 F7 F8
     1        4   8    2  9
     2        6   5    7  2
-------------------
Risultato INNER JOIN ON Numero
---------------
Numero F1 F2 F3 F4 F5 F6 F7 F8
     1        1   2    3  4    4   8    2  9
     2        9   8    7  6   6    5    7  2
--------------
evidentemente la tua situazione č ben diversa.
Ciao Giorgio


title: Query unione per colonne

text:
> Allora devi mostrarci un esempio dei dati in tuo possesso, se la query non
> funziona vuol dire che le tabelle non hanno il campo Numero in comune e
> questo è in contrasto con quanto da te affermato nel primo post.
tabella Xp4
F1        F2        F3        F4        numero
2          3          4          5          18
2          3          4          6          18
2          3          4          7          18
2          3          4          11        18
2          3          4          12        18
2          3          4          16        18
2          3          4          18        18
2          3          4          19        18
2          3          4          20        18
2          3          4          22        18
tabella Up4
F5        F6        F7        F8        numero
6          20        27        28        18
6          26        30        32        18
7          11        27        32        18
7          20        26        30        18
7          24        29        30        18
7          26        28        30        18
7          26        30        32        18
7          27        28        30        18
7          27        30        32        18
7          28        29        30        18
ciao !


title: Query unione per colonne

text:
tengo a precisare che al posto di numero ho anche provato a mettere un campo
contatore in tutte e 2 le tabelle....
ma idem non va ...
ciao


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c74v4j$i2r4t$1...@ID-24065.news.uni-berlin.de...
>
>
> > Allora devi mostrarci un esempio dei dati in tuo possesso, se la query
non
> > funziona vuol dire che le tabelle non hanno il campo Numero in comune e
> > questo è in contrasto con quanto da te affermato nel primo post.
>
> tabella Xp4
>
Quindi il campo numero non serve a niente. Ti sei dimenticato il risultato
che vuoi ottenere e soprattutto con quale criterio vuoi che le righe vengano
accoppiate.
tabella Xp4
F1        F2        F3        F4        numero
2          3          4          5          18
2          3          4          6          18
2          3          4          7          18
tabella Up4
F5        F6        F7        F8        numero
6          20        27        28        18
6          26        30        32        18
7          11        27        32        18
Risultato ????????
---------------------
Numero  F1        F2        F3        F4        F5        F6        F7
F8
    18
Ciao Giorgio


title: Query unione per colonne

text:
il campo numero non serve a niente. Ti sei dimenticato il risultato
> che vuoi ottenere e soprattutto con quale criterio vuoi che le righe
vengano
> accoppiate.
hai perfettamente ragione ho fatto mente locale :(
la domenica bisognerebbe andare ai monti !
ciao !


title: Query unione per colonne

author: namor

text:
Aristotele64 ha scritto:


Aggiungi 4 campi alla prima tabella e poi fai un copia-incolla dei dati
della seconda tabella nelle 4 colonne vuote nella prima.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query unione per colonne

text:
> Aggiungi 4 campi alla prima tabella e poi fai un copia-incolla dei dati
> della seconda tabella nelle 4 colonne vuote nella prima.
> Namor
>
ciao Namor
grazie .........cercherò di farlo via codice se fattibile.....per me :(


title: Query unione per colonne

text:
"Aristotele64" <
aristo...@tiscali.it
> ha scritto nel messaggio
news:c74sqb$h6qr3$1...@ID-24065.news.uni-berlin.de...

Beh, ho la sensazione che tu stia confondendo il concetto di chiave primaria
e quello di indice univoco: è sempre vero che una chiave primaria sia un
indice univoco, ma puoi anche crearti un indice univoco che non sia chiave
primaria.
Per me resta comunque il fatto che devi crearti una query dove le due
tabelle siano in join fra di loro e non crearti una query unione.
>
>         ciao !



title: controllo Pulsanti di spostamento

author: Fabio Gulotta

text:
E' possibile posizionare a piacimento i pulsanti di spostamento record di
access, o comunque mi potete dare un suggerimento per creare una casella che
indichi il numero di record contenuti e la posizione attuale?


title: controllo Pulsanti di spostamento

text:
"Fabio Gulotta" <
fgul...@tiscali.it
> ha scritto nel messaggio
news:c60toj$r0b$1...@lacerta.tiscalinet.it...
>
>
> E' possibile posizionare a piacimento i pulsanti di spostamento record di
> access,
Puoi crearti dei pulsanti di spostamento record con l'autocomposizione.
> o comunque mi potete dare un suggerimento per creare una casella che
> indichi il numero di record contenuti e la posizione attuale?
A fronte dell'evento "Su corrente" della maschera genera il seguente codice
VBA:
Me.RecordsetClone.MoveLast
NumeroRecord = Me.RecordsetClone.RecordCount
RecordAttuale = Me.CurrentRecord
Se usi una versione successiva ad Access 97 devi aggiungere al tuo database
i riferimenti alla libreria Microsoft DAO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: controllo Pulsanti di spostamento

author: ciroteo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:dmUgc.11449$Qc.4...@twister1.libero.it...

Ciao roberto, a proposito di questa tua ultima osservazione, volevo
chiederti un chiarimento.
I riferimenti alle librerie usate vengono memorizzati solo nel db in cui
effettuo questi riferimenti oppure in tutti i db che da quel momento in poi
andrò ad utilizzare o creare?
In poche parole è un attribuzione fatta al singolo db o ad Access ?
Ti chiedo questo xè ancora sono in panne con quel problema dei recordset che
tu mi avevi indicato ...


title: controllo Pulsanti di spostamento

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c62ra4$soo$1...@hulme.interac.it...

I riferimenti sono relativi ad un singolo database.
Resta il fatto che ogni versione di Access nel generare un database aggiunge
automaticamente ai suoi riferimenti quelli di default per quella determinata
versione di Access e quelli relativi agli ActiveX inseriti nelle maschere di
quel database; eventuali altri riferimenti necessari al funzionamento di
quel database li devi aggiungere tu a manina santa.
> Ti chiedo questo xè ancora sono in panne con quel problema dei recordset
che
> tu mi avevi indicato ...
Non ricordo lo specifico del tuo problema.



title: controllo Pulsanti di spostamento

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:rD6hc.12630$Qc.5...@twister1.libero.it...

A manina santa in tutti i client? Mannaggia ! Ecco xè lo stesso db aperto su
due pc diversi non funzia.
Controllerò.
Il problema di cui ti accennavo era quello relativo al calcolo di valori del
record precedente. Ora inizio prestazione successiva - ora inizio
prestazione precedente. Tu mi avevi indicato gli  esempi di query del
sitocomune e la soluzione utilizzando i recordset.
E' di inizio mese, ma ti confesso di essermi arenato.


title: controllo Pulsanti di spostamento

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c6584d$9ar$1...@hulme.interac.it...

> A manina santa in tutti i client? Mannaggia !
Proprio così. D'altra parte se i vari client sono gestiti da versioni
diverse di Access e/o da sistemi operativi diversi le varie librerie cui si
fa riferimento potrebbero essere allocate sul disco rigido in directory
diverse da qualle in cui risiedono nel PC in cui è stato prodotto, così che
Access considera tutti od alcuni riferimenti mancanti, riferimenti che
pertanto, affinché il datbase funzioni, vanno riassegnati sul client nel
quale il database deve essere eseguito. Naturalmente può invece essere
possibile che tale procedura non sia necessaria: ad ogni buon conto è buona
norma, dopo aver installato un database in un client, e prima di eseguirlo,
verificare i riferimenti del database.
> Ecco xè lo stesso db aperto su
> due pc diversi non funzia.
> Controllerò.
Come dcrivevo sopra è sempre bene controllare i riferimenti di un database
dopo averlo installato.
> Il problema di cui ti accennavo era quello relativo al calcolo di valori
del
> record precedente. Ora inizio prestazione successiva - ora inizio
> prestazione precedente. Tu mi avevi indicato gli  esempi di query del
> sitocomune e la soluzione utilizzando i recordset.
> E' di inizio mese, ma ti confesso di essermi arenato.
La funzione che usa l'esempio cui fai riferimento usa la libreria Microsoft
DAO quindi, se usi una versione di Access successiva ad Access 97, devi
aggiungere al tuo database tale libreria, avendo inoltre cura che nella
lista dei riferimenti quest'ultimo preceda i riferimenti alla libreria
Microsoft ADO, altrimenti il database continuerà a non funzionare.



title: controllo Pulsanti di spostamento

text:
Roberto aveva scritto:
>
> Come dcrivevo sopra è sempre bene controllare i riferimenti di un database
> dopo averlo installato.
>
> > Il problema di cui ti accennavo era quello relativo al calcolo di valori
> del
> > record precedente. Ora inizio prestazione successiva - ora inizio
> > prestazione precedente. Tu mi avevi indicato gli  esempi di query del
> > sitocomune e la soluzione utilizzando i recordset.
> > E' di inizio mese, ma ti confesso di essermi arenato.
>
> La funzione che usa l'esempio cui fai riferimento usa la libreria
Microsoft
> DAO quindi, se usi una versione di Access successiva ad Access 97, devi
> aggiungere al tuo database tale libreria, avendo inoltre cura che nella
> lista dei riferimenti quest'ultimo preceda i riferimenti alla libreria
> Microsoft ADO, altrimenti il database continuerà a non funzionare.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
beh questo è proprio un buon consiglio! una piccolezza del genere potrebbe
non far funzionare l'applicazione ...
da non crederci!
ciao


title: controllo Pulsanti di spostamento

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c681lo$mj6$1...@hulme.interac.it...
[CUT]
> >
> beh questo è proprio un buon consiglio! una piccolezza del genere potrebbe
> non far funzionare l'applicazione ...
> da non crederci!
Scusami ma da non crederci è la tua considerazione: come fai ad affermare
che la mancanza dei riferimenti alle librerie in un database sia una
piccolezza; mi viene il dubbio che secondo te è inconcepibile che a causa
della "piccolezza" relativa alla mancanza dei tergicreistalli in una
automobile non si riesca a vedere la strada e quindi a guidare durante un
temporale.
Forse studiare un po' Access potrebbe evitarti di essere bloccato da tante
"piccolezze".
> ciao



title: controllo Pulsanti di spostamento

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:qVOhc.140222$Kc3.4...@twister2.libero.it...

Scusa Roberto, se solo oggi leggo il tuo cazziatone ...
Lo accetto di buon grado perchè  ho stima di te e credo di aver solo da
imparare da te e da tutti i frequentatori
di questo ng.
Sfortunatamente appartengo alla categoria di quelli che nella vita hanno
percorso diverse strade prima
di fare una scelta definitiva in merito al lavoro da svolgere, e tuttora
sono in alto mare!
Oggi mi trovo ad affrontare alcuni aspetti elementari di programmazione pur
sapendo che per poter ambire ad una certa professionalità in questo campo
occorre tempo e metodo.Il primo come a tutti, manca, il secondo lo imparo
anche tramite voi.
Infatti è solo grazie all'impulso ricevuto dalla vostra preziosa opera di
stimolo che mi sto addentrando nei meandri di questo mondo.
Per usare la tua metafora, io nemmeno ce l'ho la patente! Al massimo vado in
bicicletta, quindi i tergicristalli non sono un mio problema, come capirai,
se arriva l'acquazzone me lo piglio tutto in testa!
Questa filippica solo per giustificare le mie banali affermazioni che
giustamente ti fanno inorridire, forse perchè per l'appunto
dettate da una scarsa applicazione e da un metodo approssimativo.
mea culpa!


title: ravenna

author: Monica Grilli

text:
ciao a tutto il gruppo.

da un paio di mesi cerco di programmare in access.. ma e' un
vero casino..

chiedo se c'e' qualcuno di Ravenna che mi puo' dare delle lezioni quando io
sono in difficolta' a programmare...

grazie di tutto...

ciao

monica


title: ravenna

author: Lbo da casa

text:
>chiedo se c'e' qualcuno di Ravenna che mi puo' dare delle lezioni quando =
>io sono in difficolta' a programmare...
bettiniiiiii...
ah no, il bettini s'č trasferito a MI.  il Biso nun lavora piů per
l'Agip...  mmmh, la vedo dura...
--
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


title: [OT] solidarnosc!

text:
... allora qualcuno c'è anche oggi ... ! sob
solidarizzo con tutti quelli che stanno lavorando! ... noi x fortuna
chiudiamo all'una, poi alle 14.00 tradizionale partitella di calcetto
all'aperto e poi pc spento x tre gg!
Via alle libagioni! e auguri a tutti!


title: [OT] solidarnosc!

text:
Un attimo prima di skippare tutto mi sono accorto che  ciroteo ha scritto:
> solidarizzo con tutti quelli che stanno lavorando! ... noi x fortuna
> chiudiamo all'una, poi alle 14.00 tradizionale partitella di calcetto
Idem anche qui...anche se mi sa che tirerò oltre le 13...
--
Alex
"La differenza tra un genio ed un idiota è che il genio ha i suoi
limiti" (Anonimo)
Posted from X-Privat Free NNTP server -
www.x-privat.org


title: problema con casella di riepilogo

author: Gigi

text:
Ciao a tutti.
Non riesco a risolvere un problema con una casella combinata. Ecco i fatti:
1) 1 maschera (con 2 schede) e una tabella alle spalle
2) nella prima scheda ho tutti i campi.
Il primo è il campo fornitore, una casella combinata che ha alle spalle una
query sulla tabella tFornitori (la query ha un solo campo
'DescrizioneFornitore' e mi propone l'elenco dei fornitori ordinato
alfabeticamente)
Il secondo è il campo Marca, una casella combinata che ha alle spalle una
query sulla tabella tMarche (la query ha 2 campi: il campo 'Marca' e il
campo 'DescrizioneFornitore'. quest'ultimo viene utilizzato come filtro. La
query mi fa vedere solo l'elenco delle Marche relative al Fornitore che ho
inserito nel primo campo).
3) nella seconda scheda ho una sottomaschera che mi propone un report sui
movimenti di di acquisto/vendita con quel fornitore (questa funziona bene).
Ecco il problema.
In testa della seconda scheda della maschera, voglio inserire un campo testo
con la descrizione del fornitore e la marca.
il campo si chiama txtDescrizione e ho inserito da codice
me.txtDescrizione.Caption = me.DescrizioneFornitore & " - " & me.Marca per
avere quindi una stringa descrittiva.
Il problema è che nel campo testo txtDescrizione, Access mi riporta
correttamente il nome del fornitore e il simbolo "-" ma al posto della marca
mi inserisce un numero (es. 1, o 4, o 5, ecc...).
Per verifica ho utilizzato il codice Msgbox(me.marca) per vedere il valore
contenuto nel campo, e il messaggio mi dà proprio quel numero (1, 4 o 5,
ecc), ma non quello che effettivamente leggo a video nella prima scheda
(cioè la descrizione della marca) che poi è quello che Access mi salva
effettivamente in tabella.
So che posso ricorrere ad altri mezzucci per visualizzare quelle
informazioni in testa della seconda scheda, ma mi sono impuntato.
Per favore aiutatemi; non riesco proprio a capire il problema.
Grazie a tutti
Gigi


title: problema con casella di riepilogo

author: Roberto dal portatile

text:
"Gigi" <
gigi_i...@inwind.it
> ha scritto nel messaggio
news:9vl7qo$pij$1...@pegasus.tiscalinet.it...
> Ciao a tutti.
> Non riesco a risolvere un problema con una casella combinata. Ecco i
fatti:
>
> 1) 1 maschera (con 2 schede) e una tabella alle spalle
> 2) nella prima scheda ho tutti i campi.
> Il primo è il campo fornitore, una casella combinata che ha alle spalle
una
> query sulla tabella tFornitori (la query ha un solo campo
> 'DescrizioneFornitore' e mi propone l'elenco dei fornitori ordinato
> alfabeticamente)
> Il secondo è il campo Marca, una casella combinata che ha alle spalle una
> query sulla tabella tMarche (la query ha 2 campi: il campo 'Marca' e il
> campo 'DescrizioneFornitore'. quest'ultimo viene utilizzato come filtro.
La
> query mi fa vedere solo l'elenco delle Marche relative al Fornitore che ho
> inserito nel primo campo).
Sei sicuro che questa query non abbia 3 campi e non 2?
E la tMarche quanti campi ha?
Se sono solo due, non è per caso che il primo (quello relativo alla marca) è
numerico e per esso hai eseguito l'Autocomposizione Ricerca...?
> 3) nella seconda scheda ho una sottomaschera che mi propone un report sui
> movimenti di di acquisto/vendita con quel fornitore (questa funziona
bene).
>
> Ecco il problema.
>
> In testa della seconda scheda della maschera, voglio inserire un campo
testo
> con la descrizione del fornitore e la marca.
> il campo si chiama txtDescrizione e ho inserito da codice
> me.txtDescrizione.Caption = me.DescrizioneFornitore & " - " & me.Marca per
> avere quindi una stringa descrittiva.
> Il problema è che nel campo testo txtDescrizione, Access mi riporta
> correttamente il nome del fornitore e il simbolo "-" ma al posto della
marca
> mi inserisce un numero (es. 1, o 4, o 5, ecc...).
> Per verifica ho utilizzato il codice Msgbox(me.marca) per vedere il valore
> contenuto nel campo, e il messaggio mi dà proprio quel numero (1, 4 o 5,
> ecc), ma non quello che effettivamente leggo a video nella prima scheda
> (cioè la descrizione della marca) che poi è quello che Access mi salva
> effettivamente in tabella.
>
> So che posso ricorrere ad altri mezzucci per visualizzare quelle
> informazioni in testa della seconda scheda, ma mi sono impuntato.
> Per favore aiutatemi; non riesco proprio a capire il problema.
>
> Grazie a tutti
> Gigi
>
Qualcosa mi dice che la casella combinata Marca non ha 2 ma 3 colonne, di
cui la prima relativa all'ID della Marca non è visibile; insomma penso che
il numerello che tu visualizzi altro non è che l'ID della marca che ti
piacerebbe visualizzare.
Prova con:
Me!txtDescrizione.Caption = Me!DescrizioneFornitore & " - " &
Me!Marca.Column(1)
Non si sa mai, se la sfera di cristallo ha funzionato...
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: problema con casella di riepilogo

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:PFpT7.5173$7%3.13...@twister1.libero.it...

Grazie!!!!!!!!
La tabella tMarche ha solo 2 campi: Fornitore e Marca
La query ha solo 2 campi (giuro) e sono appunto Fornitore e Marca (con un
filtro su fornitore legato al valore che ho inserito nel campo Fornitore
sulla maschera)
Però sono riuscito a risolvere il problema comunque utilizzando
Me!Marca.Column(0).
Non conoscevo l'utilizzo di .Column().
Ti ringrazion tantissimo.
Ore a sbattere la testa. Bastava chiedere no?!?
Grazie ancora.
>


title: Corso di VBA a Venezia o Treviso o Padova

author: fabio

text:
Ciao a tutti,
qualcuno può dirmi se ci sono nelle zone in oggetto dei corsi per
scrivere in VBA??
Non essendo un programmatore e facendo un lavoro che non c'entra con
la programmazione non riesco da solo a capirne bene il linguaggio.
Trovandomi per lavoro a ritoccare l'access per migliorarlo qua e la mi
sarebbe utile....
Tks Fabio


author: Michele (Giò)

text:
"fabio" <
fabi...@gmail.com
> ha scritto nel messaggio
news:1174150636.1...@n76g2000hsh.googlegroups.com...


Tks Fabio
Guarda, io sono dalla provincia di VE, ma ti posso garantire che un buon manuale Entry-Level su VB
applicato ad Access può darti sicuramente una mano.
Corsi su VBA non ne ho mai sentiti in zona, ma corsi su Access avanzati mi sembrava di averli visti
su qualche locandina......  La miglior cosa per imparare VBA è farlo, in questo caso, ad un corso
per Access...
Michele


author: Fabio

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:45fc20a5$0$37195$4faf...@reader3.news.tin.it...

Io posso aggiungere che l'anno scorso alla ENAIP di Padova c'era la
possibilità di farlo, era pure finanziato dalla Regione Veneto, questo mi è
stato riferito.
Il problema è che era riservato a liberi professionisti e un'altra stretta
categoria. Un umile lavoratore dipendente come me non ne ha avuto
access...o.
Anche a me interesserebbe molto.
Fabio (un altro Fabio)


author: Alessandro Baraldi

text:
[CUT]
> Io posso aggiungere che l'anno scorso alla ENAIP di Padova c'era la
> possibilità di farlo, era pure finanziato dalla Regione Veneto, questo mi è
> stato riferito.
> Il problema è che era riservato a liberi professionisti e un'altra stretta
> categoria. Un umile lavoratore dipendente come me non ne ha avuto
> access...o.
> Anche a me interesserebbe molto.
> Fabio (un altro Fabio)
Vi espongo il mio parere.
I corsi su Access che si trovano in giro(a prezzi medio bassi come
quelli della regione) non trattano mai o a livelli inutili il VBA, ma
puntano sulla struttura e sulla
normalizzazione dei DB e le query SQL(quelli avanzati).
La mia esperienza personale nella in merito a corsi in regione
Lombardia nella mia città mi porta a dirvi che non sono mai stati
fatti corsi di Access in cui si insegnava
programmazione VBA.
Questa scelta è voluta quando si è cercato di fare corsi più
specializzati non vi erano sufficienti adesioni per fare i corsi,
l'unico anno che si è fatto è stato sospeso in quanto i discenti
realizzavano di non essere all'altezza o interessati, e trovando
difficoltà abbandonavano...
A mio parere per chi volesse imparare la programmazione VBA dovrebbe
iniziare un corso di VisualBasic6(se ne fanno ancora) in quanto è
l'unico che vi permette di imparare la programmazione ed applicarla ai
Database, da li il passaggio a VBA(Access) è decisamente banale.
Altrimenti se avete soldi da spendere, contattate SoftwareHouse
privatamente... e vedrete che solo con il preventivo imparate il VBA
da soli....
;-)
Ovviamente è una battuta, ma credo che per un privato, se a fini
ludici, non sia affrontabile la spesa di un corso personalizzato.
@Alex


title: x POSTA...

author: ago

text:
..dovrei mandare un report x posta elettronica.
Questo report contiene delle immagini che devono essere inviate....ma se
eseguo l'operazione per l'invio di e-mail le immagini non le prende.
come posso fare? è possibile?


title: x POSTA...

author: Stefano Bettini

text:
ago <
a...@ctonline.it
> wrote in message 38DA16A7...@ctonline.it...

Dipende dal formato che utilizzi per inviare il report; ovviamente devi
utilizzare un formato che preservi l' impaginazione ed il contenuto
tipo acrobat di Adobe od il formato snapshot di OFF97SR-1....
Bye, Ste


title: Errori durante la conversione del DB!!

text:
Buongiorno a tutti!
Il problema che vi vorrei esporre e per il quale mi scuso con alcuni x
l’eventuale ovvietà , riguarda la conversione di un formato di database da
una versione precedente di Access.
L’azienda per la quale lavoro ha installato office Xp e quindi ho dovuto
convertire (per poter apportare poi modifiche) il formato dei DB dalla
versione ’97 a quella 2002.
Il problema che ho riscontrato in quasi tutte le conversioni è sempre lo
stesso.
Mi viene visualizzato un messaggio di errore che dice : “Impossibile salvare
il Database in forma compilata, le prestazioni ne saranno influenzate perché
ogni volta sarà necessario ricompilare il database”.
Mi viene generata una tabella con un record a due campi che visualizzano il
messaggio d’errore. Ciò che vi volevo domandare è questo: i database li stò
usando normalmente e sembrano funzionare, apporto modifiche in struttura e
in codice VBA che vengono recepite dal sistema ma mi domando (forse per
eccesso di scrupolo) se questo salvataggio “non in forma compilata” ( che
non so cosa significhi) in futuro possa provocarmi problemi e se posso fare
qualcosa per far si che il Db sia compilato.
Ma forse mi stò creando problemi inutili
Grazie a tutti x un eventuale risposta……………..ciao!!
--------------------------------
Inviato via
http://usenet.libero.it


title: Errori durante la conversione del DB!!

author: Alessandro Cara

text:

se conosci un po di inglese guardati il 3d con post iniziale di A. Biso di
Lunedi'
ore 16.23
Un db e' sempre bene che sia formalmente corretto.
Gli errori che impediscono la compilazione sono evidentemente
in qualche parte del progetto che non e' usata altrimenti
te ne accorgeresti, e come
Soluzione del problema:
1) Vai sotto VB
2) attiva menu' debug --->compila, si ferma dove rileva errore
   corregilo esegui fino a compilazione completata
--
a.cara
Togli qualcosa dall'email


title: Errori durante la conversione del DB!!

text:
> 1) Vai sotto VB
> 2) attiva menu' debug --->compila, si ferma dove rileva errore
> corregilo esegui fino a compilazione completata
Grazie innanzitutto della risposta. Seguirň senza dubbio il tuo
suggerimento.
Ma questi errori che devo correggere e che prima non avevo in Access 97,
dipendono per caso dalla nuova versione del programma che non riconosce
codice VBA vecchio????
Oppure questi errori dipendono da qualcos'altro?
Grazie dell'aiuto..............ciao!!!!



title: Errori durante la conversione del DB!!

text:
Fabio wrote:
>
> > 1) Vai sotto VB
> > 2) attiva menu' debug --->compila, si ferma dove rileva errore
> > corregilo esegui fino a compilazione completata
>
> Grazie innanzitutto della risposta. Seguirņ senza dubbio il tuo
> suggerimento.
> Ma questi errori che devo correggere e che prima non avevo in Access 97,
> dipendono per caso dalla nuova versione del programma che non riconosce
> codice VBA vecchio????
> Oppure questi errori dipendono da qualcos'altro?
qualche "piccolo" errore in fase di conversione avviene
(un paio di cose mi sono capitate ma le ho dimenticate)
Quegli errori pero' potevano anche preesistere da questo punto di vista
il 97 e' piu' "permissivo"
Nella versione 97 hai provato a generare l'MDE di questo db? o ad
eseguire la fase di compilazione che ti ho ho suggerito?



title: Errori durante la conversione del DB!!

text:
> Quegli errori pero' potevano anche preesistere da questo punto di vista
> il 97 e' piu' "permissivo"
> Nella versione 97 hai provato a generare l'MDE di questo db? o ad
> eseguire la fase di compilazione che ti ho ho suggerito?
Purtroppo , e me ne rendo conto adesso, non ho eseguito la compilazione del
DB dal menu che mi hai suggerito.
Scusa la mia ignoranza ma, l'ho semplicemente creato ed ho apportato alcune
aggiunte in VBA, senza compilare l'intero DB quindi. Però lanciando i vari
oggetti (maschere, tabelle, e query) l'esecuzione non dava problemi e quando
li dava in fase di debug io li ho corretti e non si sono + ripresentati.
Questo vuol dire che anche in Access 97 io avevo dei DB non compilati? Forse
compilavo gli oggetti ogni volta che li lanciavo..........e che nella
versione 2002 sono stato avverito di questa cosa? "Database non salvato in
forma compilata....ecc ecc"
Non ho le idee ben chiaro come puoi notare ehhe
Grazie del'aiuto ciao



title: estrarre parte di stringa

text:
Ciao sono Fanciullo, access 2007

ho questa valore in  un campo

HOTEL ATLANTIC TERME_attestazione_LEVI MINZI_3AC

vorrei estrarre la parte "attestazione" per trasferirla in  un altro campo

grazie per l'aiuto


title: estrarre parte di stringa

text:
Usa le funzioni di Manipolazione delle stringhe...
Nel tuo caso ti basta MID$ e INSTR... attenzione, leggi bene la 2° che ti serve capirla bene per individuare il 2° Underscore...

@Alex


estrarre parte di stringa


title: estrarre parte di stringa

text:

Ho letto la guida e ho visto altri esempi di instr e mid qua nel group
io ho elaborato questo

Public Function EstraiParte(NOMECAMPO As String) As String
'funzione usata da qryEstraiParte per estrarre dalla stringa
'HOTEL AURORA_competenze_MANALO_3AC il testo "competenze"

Dim strIn As String
Dim cnt As Integer
strIn = NOMECAMPO
Dim strOut As String

cnt = 1
cnt = InStr(cnt, strIn, "_") 'trova la posizione del primo trattino

strOut = Mid(strIn, cnt + 1, InStr(cnt + 1, strIn, "_"))

EstraiParte = strOut

ma il risultato è: competenze_MANALO_3AC
più in là non ci arrivo.
credo che  mi fotte InStr(cnt + 1, strIn, "_") che dovrebbe rappresentare la quantità di caratteri che MID deve estrarre


title: estrarre parte di stringa

text:

Alla fine ho risolto così Alex
Public Function EstraiParte(NOMECAMPO As String) As String
'funzione usata da qryEstraiParte per estrarre dalla stringa
'HOTEL AURORA_competenze_MANALO_3AC il testo "competenze"

Dim strIn As String
Dim cnt1 As Integer
Dim cnt2 As Integer
Dim cnt3 As Integer
strIn = NOMECAMPO

cnt1 = InStr(strIn, "_") 'trova la posizione del primo trattino, nello esempio hotel aurora vale 13
cnt2 = InStr(cnt1 + 1, strIn, "_") 'trova la posizione del secondo trattino che nello esempio hotel aurora vale 24
cnt3 = (cnt2 - cnt1) - 1 ' 'differenza che corrisponde al numero di caratteri che deve estrarre MID partendo dal
                         ' primo "_"

EstraiParte = Mid(strIn, cnt1 + 1, cnt3)
end function


title: estrarre parte di stringa

text:

Mah?!
In questo caso direi che il modo piu' /semplice/ e':
arr=split(stringa,"_")
vInt=arr[1]

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: estrarre parte di stringa

text:

testo questo codice ovviamente
ma che significa aborro il killfile, quale file sto uccidendo?
Ti riferisci al fatto di instr e mid che devastano la stringa?


title: estrarre parte di stringa

text:
Il 26/04/2016 06:49,
vitof...@gmail.com
 ha scritto:
> Il giorno lunedì 25 aprile 2016 11:58:32 UTC+2, Alessandro Cara ha scritto:
>> Il 25/04/2016 11:37,
vitof...@gmail.com
 ha scritto:
[cut]

>> Mah?!
>> In questo caso direi che il modo piu' /semplice/ e':
>> arr=split(stringa,"_")
>> vInt=arr[1]

Bada che ho usato [] invece di () come richiesto da vba
vInt=arr(1)

>>
>> --
>> ac (x=y-1)
>> Aborro il Killfile
>> (La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)
>>
>> ---
>> Questa e-mail è stata controllata per individuare virus con Avast antivirus.
>>
https://www.avast.com/antivirus

>
> testo questo codice ovviamente
> ma che significa aborro il killfile, quale file sto uccidendo?
> Ti riferisci al fatto di instr e mid che devastano la stringa?
>

Sei veramente un /fanciullo/.  ;-)
Quello sta in firma (con annessa citazione) ed e' in onore di un
/esimio/ professore di fisica che quando qualcuno non e' d'accordo con
lui mette il nick fra quelli da /non/ leggere (il killfile, appunto)
Cosa per me insensata.



title: [Help] Access e utenti

author: Max De Poli

text:
Heila' tutti.
Lavoro con Access 2K su NT 4, e avrei necessità di leggere da VBA il
nome dell'utente loggato in NT.
QUalcuno sa se e' possibile?
Ho da qualche parte un programmino che eseguito da riga di comando
restituisce dominio/nomeutente, e' possibile far leggere a VBA
l'output di un programma?
cia'
Max De Poli


title: Immisione record in form

author: esmal

text:
Salve ho una questione da sottoporre alla vostra attenzione:
volevo automatizzare l'immissione di record sempre uguali per facilitare
l'operativita' della maschera che utilizzo a tal scopo, ad esempio:
codice cliente=numero
quando il controllo si sposta sul campo cliente vorrei automaticamente il
nome del cliente ; oppure dati come
codice servizio
tipo servizio
descrizione
prezzo
che sono sempre uguali e legati tra loro vorrei che all'immissione del
codice servizio mi si riempissero i campi seguenti.
Mi scuso se la domanda dovesse risultare banale e grazie comunque per
l'aiuto.


title: Immisione record in form

author: Sergio MAZZA

text:
"esmal" <
es...@tiscalinet.it
> ha scritto nel messaggio
news:9ltf3k$6ft$1...@pegasus.tiscalinet.it...

Puoi provare con l'evento "prima di aggiornare" della maschera; dove
imposterai i valori per ongi campo:
Es.
'-------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me![codice servizio] = "codice servizio"
Me![tipo servizio] = 11
Me!descrizione = "questa è la descrizione"
Me!prezzo = 1000
End Sub
'-------------
Un suggerimento; non utilizzare i termini o parole "descrizione" o "data"
per indicare nomi di campi o controlli, access si incasina...
Ciao.


title: Immisione record in form

text:
Ho applicato i tuoi suggerimenti ma non sono riusito a risolvere il
problema; vorrei riepilogare i sintesi la questione:
per immetere campi di una maschera dati sempre uguali come codice cliente
associato al suo nome e dalla tabella servizi codice
servizio,tipo,contenuto,costo, ho immesso nell'evento del campo codicecli,
prima di aggiornare il codice :
Me![codicecli]=1
Me![cliente]="nomecliente"
Ringrazio chiunque avesse suggerimenti sull'errore che sto commettendo.
ciao
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9lthme$jh7$1...@canarie.caspur.it...



title: Immisione record in form

text:
"esmal" <
es...@tiscalinet.it
> ha scritto nel messaggio
news:9m30fp$j6p$1...@lacerta.tiscalinet.it...
> Ho applicato i tuoi suggerimenti ma non sono riusito a risolvere il
> problema; vorrei riepilogare i sintesi la questione:
> per immetere campi di una maschera dati sempre uguali come codice cliente
> associato al suo nome e dalla tabella servizi codice
> servizio,tipo,contenuto,costo, ho immesso nell'evento del campo codicecli,
> prima di aggiornare il codice :
> Me![codicecli]=1
> Me![cliente]="nomecliente"
> Ringrazio chiunque avesse suggerimenti sull'errore che sto commettendo.
> ciao
L'evento "prima di aggiornare" è della maschera non dei controlli...
Ciao.


title: Immisione record in form

text:
Ho applicato i tuoi consigli e tutto avviene perfettamente!  solo che quando
vado a compilare il campo successivo a quelli che si aggiornano ad esempio
"nominativo", se uso tab mi passa al record successivo; comunque e' un
piccola questione che risolvero' .
ciao.
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9m3375$i8f$1...@canarie.caspur.it...



title: Immisione record in form

text:
"esmal" <
es...@tiscalinet.it
> ha scritto nel messaggio
news:9m5up9$agn$1...@lacerta.tiscalinet.it...
> Ho applicato i tuoi consigli e tutto avviene perfettamente!  solo che
quando
> vado a compilare il campo successivo a quelli che si aggiornano ad esempio
> "nominativo", se uso tab mi passa al record successivo; comunque e' un
> piccola questione che risolvero' .
> ciao.
Prego, scrivi la risposta dopo il messaggio precedente, come faccio io;
grazie.
Controlla l'ordine di tabulazione dei controlli (non campi)...
Ciao.


title: Immisione record in form

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9me00c$7ft$1...@canarie.caspur.it...

> Tutto a posto,grazie
ciao


title: Immisione record in form

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9me00c$7ft$1...@canarie.caspur.it...

> Devo ricredermi di quello che ti scritto poco fa; per aggiornare anche i
campi codicecli e cliente (oltre quelli gia' aggiornati e che funzionano
perfettamente), ho seguito il procedimento che mi hai indicato,ma quando
vado ad aggiornare i campi codicli e cliente mi appare il seguente
messaggio:
errore di run-time 2450 impossibile trovare la maschera clienti a cui si fa
riferimento in un'espressione macro o nel codice Visul Basic.
Ciao


title: ANDARE AL PRIMO RECORD VUOTO

author: Giorgia

text:
Ciao a tutti,
ho creato una tabella ANAGRAFICA di clienti con chiave primaria un campo
numerico con incremento (anzichè il contatore) chiamata COD CLIENTE.
Ho importato i dati da una tabella di un altro database ma ho voluto
cancellare i clienti con cui non lavoro più cancellandone, nel record, tutti
i campi eccetto quello della chiave primaria.
Questo per evitare di cambiare il COD CLIENTE ai clienti che rimangono
(perchè il codice lo riporto in fattura e la fattura prende i dati da questa
tabella) e di lasciare dei buchi nel campo COD CLIENTE.
Quello che mi serve ora è questo:
per l'inserimento dei dati uso una maschera: come posso dirle, quando devo
inserire un nuovo cliente, di andare al primo record con campo RAGIONE
SOCIALE vuoto che, per quanto spiegato sopra, finchè non riempio i buchi dei
clienti eliminati, non vuol dire andare all'ultimo record?
In pratica quando uso CTRL+, al posto di andare all'ultimo vorrei andasse al
primo record vuoto.
Sarà possibile?
--
Giorgia


title: ANDARE AL PRIMO RECORD VUOTO

text:

Non so se ho capito, ma dal basso della mia inesperienza, ma come
soluzione semplice e fai da te, proverei a ordinare i campi in base a
ragione sociale, così ti ritrovi tutti i campi vuoti alal fine (o
all'inizio).
Poi quando hai finito torni ad ordinare come meglio credi
F.


title: ANDARE AL PRIMO RECORD VUOTO

text:

Io ti sconsiglierei di sostituire il ctrl+ (inventati un' altra scorciatoia)
cmq
su keypress
    se ctrl+ allora
       recordset.findfirst "campochiaveprimaria=" &
dmin("campochiaveprimaria","miatabella","nz(ragionesociale,'') = '' ")
	se not nomatch then keyascii=0
    fine if
se poi non ti interessa recuperare il valore chiave piu' basso o il tuo
recordset e' ordinato per tale valore e' sufficiente una:
findfirst "nz(ragionesociale,'')='')
naturally se la findfirst da nomatch lasci che il ctrl+ faccia il suo
"sporco" lavoro
s.e. & o.
--
ac
y-1=x


title: ANDARE AL PRIMO RECORD VUOTO

text:
Forse la tua soluzione è utile su visualizzazione tabella ma con la maschera
se vado a "inserisci nuovo record" mi da un nuovo record....cerco questa
soluzione anche per utilizzarla in futuro dovessi cabcellare altri record.
Grazie per l'attenzione comunque!
ciao
--
Giorgia
<
al...@libero.it
> ha scritto nel messaggio
news:21934a7e-5cc6-45b7...@s13g2000prd.googlegroups.com...



title: ANDARE AL PRIMO RECORD VUOTO

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:eB%lj.63543$8j3....@tornado.fastwebnet.it...

Grazie per l'aiuto.
ma se volessi seguire il tuo consiglio e non modificare la funzione ctrl+?
per es su proprietà della maschera pensavo di inserire la funzione su
ALL'APERTURA ma inserendo
findfirst "nz(ragionesociale,'')='')
mi dice che i caratteri max per una stringa sono 2048???!!
sicuramente non ho capito come usare la funzione.....
--
Giorgia


title: ANDARE AL PRIMO RECORD VUOTO

text:

...
> Grazie per l'aiuto.
> ma se volessi seguire il tuo consiglio e non modificare la funzione ctrl+?
Basta che controlli, sempre sull'evento di keydown (non keypress
amsorri) di form, un qualsiasi altro tasto (o combinazione)
Sull'help c'e' tutto compreso un esempio di uso. Leggi la spiegazione e
poi se non ne vieni fuori i niusgruppettari sono lì (qui) con 25 mani da
dare
> per es su proprietà della maschera pensavo di inserire la funzione su
> ALL'APERTURA ma inserendo
> findfirst "nz(ragionesociale,'')='')
> mi dice che i caratteri max per una stringa sono 2048???!!
cosa hai scritto? Questo?
sub Form_Load()
recordset.findfirst "nz(ragionesociale,'')=''"
end sub
Ma se  lo fai all'apertura puoi anche filtrare il form
i.e.
me.filter = "'' & ragionesociale = ''"
me.filteron = true
in questo caso ti fa vedere solo i record "vuoti"
> sicuramente non ho capito come usare la funzione.....
Cmq, brava, se non altro adesso scrivi dopo il quote ;<)
--
ac
y-1=x


title: ANDARE AL PRIMO RECORD VUOTO

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:4N2mj.63939$8j3....@tornado.fastwebnet.it...

eh eh.......un passetto per volta.....e diventerò una newsgruppattara
modello!!
vado a provare la funzione.......


title: ANDARE AL PRIMO RECORD VUOTO

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:4N2mj.63939$8j3....@tornado.fastwebnet.it...

Niente da fare Alessandro, non riesco a capire probabilmente una cosa
base.....
la stringa findfirst "nz(ragionesociale,'')='')
la devo inserire con il generatore di espressioni  o vba?
ho provato a inserirla anche così nel campo -su apertura- nella proprietà
della mschera ma niente
--
Giorgia


title: ANDARE AL PRIMO RECORD VUOTO

author: geppo

text:

Nein, quella stringa la devi scrivere in vba cosi come te l'ha postata:
Form in visualizzazione struttura, tasto destro del mouse sul quadratino
grigio della form che vedi in alto a sinistra, dal menu a tendina scegli
"Genera Evento" poi selezione "Generatore di Codice" nella posizione in cui
si trova il cursore inserisci:
recordset.findfirst "nz(ragionesociale,'')=''"
in modo tale da avere:
private sub form_load()
recordset.findfirst "nz(ragionesociale,'')=''"
end sub
--
Ciao
Geppo


title: problema codice fiscale

author: Ludo

text:
Cosa significa l'avviso fast msg 13 tipo non corrispondente.
Perchè ho inserito al caricamento della maschera l'istruzione relativa all
indice della tabella comuni (per il calcolo del codice fiscale).
La maschera si apre comunque pero quando vado ad inserire la prima lettera
del luogo di nascita nel campo "luogo di nascita" mi da errore. Nel campo
luogo di nascita ho inserito su evento modifica l'istruzione:
Dim s As String
    Dim T As String
    Dim Colore As Long
    On Error GoTo ErrFas
    Colore = 16711680
    T = Trim(Nz(Me.Luogo_di_nascita.Text, ""))
    If T = "" Then
        Me.Luogo_di_nascita.Tag = T
        Exit Sub
    End If
    If Len(T) = 1 Then s = T
    COMUNI.Seek ">=", T
    If Not COMUNI.EOF And Not COMUNI.NoMatch Then
      If UCase(T) = UCase(Mid(COMUNI!COMU_DESCR, 1, Len(T))) Then
        If Len(T) > Len(Me.Luogo_di_nascita.Tag) Then
            Me.Luogo_di_nascita = COMUNI!COMU_DESCR
            Me.Luogo_di_nascita.SelStart = Len(T)
            Me.Luogo_di_nascita.SelLength = Len(Me.Luogo_di_nascita) -
(Len(T))
            Me.txtCodiceComune = COMUNI!COMU_COD
        End If
      Else
        If Me.Luogo_di_nascita.ForeColor = 0 Then MsgBox "Comune non in
elenco"
        Colore = &H80&
        Me.txtCodiceComune = ""
        Me.Luogo_di_nascita.SetFocus
      End If
    End If
    If Me.Luogo_di_nascita.ForeColor <> Colore Then
Me.Luogo_di_nascita.ForeColor = Colore
    Me.Luogo_di_nascita.Tag = T
Exit Sub
ErrFas:
    MsgBox ("FasMsg: " & Err.Number & " " & Err.Description)
    Err.Clear
End Sub
In pratica  man mano ke inserisco lettera per lettera il comune di nascita,
questo viene automaticamente completato.
La tabella Comuni è indicizzata.
L'errore mi viene evidenziato su Comuni.nomatch.
Pero non capisco perche nell altro database funziona perfettamente..booo


title: problema codice fiscale

author: Roberto da casa

text:
"Ludo" <
ludo...@tele2.it
> ha scritto nel messaggio
news:nSLXd.32230$Of5....@nntpserver.swip.net...
> Cosa significa l'avviso fast msg 13 tipo non corrispondente.
> Perchč ho inserito al caricamento della maschera l'istruzione relativa all

> La tabella Comuni č indicizzata.
> L'errore mi viene evidenziato su Comuni.nomatch.
> Pero non capisco perche nell altro database funziona perfettamente..booo
Non hai postato tutto il codice, ad esempio non hai indicato come hai
definito la variabili Database e Recordset.
Resta il fatto che il codice VBA di cui sopra fa riferimento alla libreria
Microsoft DAO e a quanto pare il database in cui la routine NON funziona č
stato prodotto con una versione di Access successiva ad Access 97 e non ha i
riferimenti a tale libreria (cosa che sicuramente nel database che funziona
esiste).
Ti ricordo che i riferimenti Microsoft DAO 3.6 Object Library debbono
precedere i riferimenti all'eventuale Libreria ADO nella lista dei
riferimenti (per non sbagliare spostali piů in alto possibile).
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: problema codice fiscale

author: ALESSANDRO Baraldi

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:8yVXd.4715$Tm5....@twister2.libero.it...
[CUT]
> Ti ricordo che i riferimenti Microsoft DAO 3.6 Object Library debbono
> precedere i riferimenti all'eventuale Libreria ADO nella lista dei
> riferimenti (per non sbagliare spostali più in alto possibile).
>
> --
> Roberto
>
Un eventuale byPass all'ordinamento delle Library può
essere quello di esplicitare la Libreria di Tipo:
DAO.Recordset
ADODB.Recordset
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: problema codice fiscale

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:4230915e$0$32333$5fc...@news.tiscali.it...
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> news:8yVXd.4715$Tm5....@twister2.libero.it...
> [CUT]
> > Ti ricordo che i riferimenti Microsoft DAO 3.6 Object Library debbono
> > precedere i riferimenti all'eventuale Libreria ADO nella lista dei
> > riferimenti (per non sbagliare spostali più in alto possibile).
> >
> > --
> > Roberto
> >
>
> Un eventuale byPass all'ordinamento delle Library può
> essere quello di esplicitare la Libreria di Tipo:
>
> DAO.Recordset
> ADODB.Recordset
Lo so, ma poichè Ludo non ha postato la parte di codice che andava
modificata in quel modo, era difficile dargli indicazioni precise su cosa
dovesse modificare.
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
--



title: problema codice fiscale

text:
> > Un eventuale byPass all'ordinamento delle Library può
> > essere quello di esplicitare la Libreria di Tipo:
> >
> > DAO.Recordset
> > ADODB.Recordset
>
> Lo so, ma poichè Ludo non ha postato la parte di codice che andava
> modificata in quel modo, era difficile dargli indicazioni precise su cosa
> dovesse modificare.
>
> >
> > Ciao
> > --
> > @Alex (Alessandro Baraldi)
>
> --
> Roberto
Non voleva essere un suggerimento a te, ma a Ludo
nel caso non potesse o avesse difficoltà con la soluzione
canonica, l'ho aggregato alla tua per completezza.
Ciao
--
@Alex (Alessandro Baraldi)



title: Evitare schermata di logon con ADP con SQL 2005.

author: Gabriele Bertolucci

text:
Ho il seguente problema con Access XP e SQL 2005 Express: vorrei evitare
di visualizzare la schermata di logon predefinita di Access all'apertura
di un ADP.
Sono a conoscenza del seguente articolo di Microsoft:
  ACC2000: Access Project Prompts You to Log On Even Though "Blank Password"
Check Box Is Selected (Q202615)
Ovviamente ho predisposto una mia form per il logon.
Il progetto ha una form (un pannello comandi) che viene aperta all'avvio
(dopo l'autenticazione dell'utente) e chiusa solo alla chiusura del programma.
Ecco di seguito il codice dell'evento Form_Unload del pannello comandi:
  Private Sub Form_Unload(Cancel As Integer)
  On Error GoTo Form_Unload_Err
      If MsgBox("Vuoi chiudere la procedura?", vbYesNo + vbQuestion, "Chiusura
procedura") = vbYes Then
  '        Application.CurrentProject.CloseConnection
          Application.CurrentProject.OpenConnection ""
          Application.Quit
      Else
          Cancel = True
          Exit Sub
      End If
  Form_Unload_Exit:
      Exit Sub
  Form_Unload_Err:
      MsgBox Err.Description
      Resume Form_Unload_Exit
      Resume
  End Sub
Purtroppo ricevo l'errore seguente:
  "Metodo 'OpenConnection' dell'oggetto '_CurrentProject' non riuscito"
Ho provato anche a decommentare la riga di codice che provvede a fare prima
una CloseConnection, ma non ha risolto.
Ho provato a modificare la riga di codice con la OpenConnection non passandogli
alcun parametri, ma non ho risolto nemmeno cosě.
Non vorrei che il problema fosse legato al fatto che sto utilizzando SQL
Server 2005 Express.
Chi ne sa di piů alzi la mano e parli!!! Sarebbe veramente gradito :-)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it


text:
Visto che questo problema sembra risolto, ve ne faccio partecipi tutti.
Devo ringraziare moltissimo Giorgio Rancati (MVP) che mi ha seguito passo
passo fino a trovare la soluzione giusta.
Il segreto stava nello scollegare la form prima di eseguire la riga di codice
che avevo inserito.
Quindi, nel Form_Unload bisogna mettere il seguente codice:
    Me.RecordSource = ""
    Application.CurrentProject.CloseConnection
    Application.CurrentProject.OpenConnection ""
Giorgio, un grazie infinito.
Che Dio ti benedica!!!!



title: Ancora problemi con finestra dialogo stampante

author: Jingo

text:
Ciao a tutti, ho ancora un problema con la finestra di dialogo della
stampante. Dopo tutti i Vs suggerimenti sono riuscito tramite questo
codice "DoCmd.SelectObject acReport, "MioReporto", True
DoCmd.RunCommand acCmdPrint" a fare aprire la finesttra di dialogo per poi
stampare il report. Purtroppo ho riscontrato un altro problema:
mi viene visualizzata la finestra del DB anche se nell'Avvio ho tolto la
spunta su "mostra finestra del DB". Come posso fare per risolvere questo
inconveniente?
Grazie.
Jingo.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buojrk$71u$1...@news.newsland.it...
> Ciao a tutti, ho ancora un problema con la finestra di dialogo della
> stampante. Dopo tutti i Vs suggerimenti sono riuscito tramite questo
> codice "DoCmd.SelectObject acReport, "MioReporto", True
> DoCmd.RunCommand acCmdPrint" a fare aprire la finesttra di dialogo per poi
> stampare il report. Purtroppo ho riscontrato un altro problema:
> mi viene visualizzata la finestra del DB anche se nell'Avvio ho tolto la
> spunta su "mostra finestra del DB". Come posso fare per risolvere questo
> inconveniente?
> Grazie.
> Jingo.
>
>
> --
Devi utilizzare:
DoCmd.SelectObject acReport, "MioReporto", False (non True)
vedi help al metodo: SelectObject.
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:



> Ciao.
> --
> Sergio MAZZA
Ho messo False ma non mi apre più la finestra di dialogo della stampante.
Dove sbaglio?



text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buol0h$j7p$1...@news.newsland.it...
> Ho messo False ma non mi apre più la finestra di dialogo della stampante.
> Dove sbaglio?
>
> --
Io ho fatto questa prova (acc'97):
DoCmd.OpenReport "prova", acViewPreview
DoCmd.SelectObject acReport, "prova", False
RunCommand acCmdPrint
e funziona...
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:


> e funziona...
> Ciao.
> --
> Sergio MAZZA
Ho provato anche io ma in questo modo il report mi viene aperto, dopo
compare la finestra di dialogo ed a stampa ultimata il reporto rimane
sempre aperto, invece io vorrei fare in modo che il report non venga
aperto (oppure aperto ma non visualizzato) e che appaia la finestra di
dialogo della stampante per poter effettuare e ventuali variazioni sulla
stampa. Non sò proprio come risolvere questo problema. Aiutatemi.
Grazie.



text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buomch$3nc$1...@news.newsland.it...
>
> Ho provato anche io ma in questo modo il report mi viene aperto, dopo
> compare la finestra di dialogo ed a stampa ultimata il reporto rimane
> sempre aperto, invece io vorrei fare in modo che il report non venga
> aperto (oppure aperto ma non visualizzato) e che appaia la finestra di
> dialogo della stampante per poter effettuare e ventuali variazioni sulla
> stampa. Non sò proprio come risolvere questo problema. Aiutatemi.
> Grazie.
>
> --
Io non capisco tutto questo meccanismo, comunque; se l'utente non deve
vedere il report togli l'eco, lo apri, visualizzi la finestra della stampa e
poi richiudi il report
es.
Application.Echo False
DoCmd.OpenReport "prova", acViewPreview
DoCmd.SelectObject acReport, "prova", False
RunCommand acCmdPrint
DoCmd.Close acReport, "prova"
Application.Echo True
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:


> Ciao.
> --
> Sergio MAZZA
Grazie 1000 adesso ci provo.
Ciao.



text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buomch$3nc$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > "Jingo" <
jin...@libero.it
> ha scritto nel messaggio
> > news:buol0h$j7p$1...@news.newsland.it...
> > > Ho messo False ma non mi apre piů la finestra di dialogo della
stampante.
> > > Dove sbaglio?
> > >
> > > --
>
> > Io ho fatto questa prova (acc'97):
> > DoCmd.OpenReport "prova", acViewPreview
> > DoCmd.SelectObject acReport, "prova", False
> > RunCommand acCmdPrint
>
> > e funziona...
>
> > Ciao.
>
> > --
> > Sergio MAZZA
> Ho provato anche io ma in questo modo il report mi viene aperto, dopo
> compare la finestra di dialogo ed a stampa ultimata il reporto rimane
> sempre aperto, invece io vorrei fare in modo che il report non venga
> aperto (oppure aperto ma non visualizzato) e che appaia la finestra di
> dialogo della stampante per poter effettuare e ventuali variazioni sulla
> stampa. Non sň proprio come risolvere questo problema. Aiutatemi.
> Grazie.
>
> --
Con il metodo Echo (vedi help), prima di aprire l'anteprima del report,
inibisci il processo di aggiornamento dello schermo e riabilitalo dopo aver
chiuso l'anteprima del report; ovvero, prova cosě:
DoCmd.Echo False
DoCmd.OpenReport "prova", acViewPreview
DoCmd.SelectObject acReport, "prova", False
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "prova"
DoCmd.Echo True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Roberto da casa ha scritto:



Ok funziona benissimo perň ho notato una cosa: quando mi compare la
finestra di dialogo della stampante se anzichč confermare la stampa gli do
Annulla non mi viene chiuso il report e di conseguenza non mi viene
ristabilito l'Echo. Scusate se continuo a disturbarVi ma non so proprio
come fare. A dire il vero mi basterebbe riuscire a nascondere la finestra
del DB quando mi compare la finestra di dialogo della stampante, ma anche
questo non so come farlo.
Grazie per la pazienza.
Jingo.



text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buop2p$1g9$1...@news.newsland.it...
>
> Ok funziona benissimo perň ho notato una cosa: quando mi compare la
> finestra di dialogo della stampante se anzichč confermare la stampa gli do
> Annulla non mi viene chiuso il report e di conseguenza non mi viene
> ristabilito l'Echo. Scusate se continuo a disturbarVi ma non so proprio
> come fare. A dire il vero mi basterebbe riuscire a nascondere la finestra
> del DB quando mi compare la finestra di dialogo della stampante, ma anche
> questo non so come farlo.
> Grazie per la pazienza.
> Jingo.
>
> --
Sgněcchete sgnacchete...
Per gestire gli errori che utilizzi?
A - On Error; B - On orevole; C - On onloso!
La A? L'accendiamo? Sě, bravo; quindi la risultante č:
On Error Resume Next
...codice...
On Error GoTo 0
Ciao.
P.S. vedi help On Error
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

> Sgněcchete sgnacchete...


> On Error Resume Next
> ....codice...
> On Error GoTo 0
> Ciao.
> P.S. vedi help On Error
> --
> Sergio MAZZA
Accendiamo la A ed insieme a lei mi accendo anche io.
Grazie 1000.
Ciao.



text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:buoq30$c9v$1...@news.newsland.it...
> Accendiamo la A ed insieme a lei mi accendo anche io.
> Grazie 1000.
> Ciao.
>
> --
A parte gli scherzi; occhio con On Error Resume Next che se in apertura
report o nel mezzo di quelle istruzioni si verifica un errore non lo vedi.
Sarebbe meglio intercettare l'errore scatenato dall'annullamento della
stampa...
Ciao.
P.S. Questo è il compitino per casa.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:


> Ciao.

Grazie di tutto. Cercherò di eseguire il compito nel miglior modo
possibile.
Grazie ancora.
Ciao.
jingo



title: manipolare le date

author: Rassel

text:
Salve a tutti. Innanzitutto complimenti per la serietà e la disponibilità.
Navigo da giorni alla ricerca di una soluzione disperata. Dunque dalla
dataDecorrenza devo ricavare tramite una strnga il valore semestrale e
annuale automaticamente. Ho provato di tutto ma non ottengo mai un risultato
preciso. Ad esempio il valore del primo semestre del 01/01/2003 mi risulta
il 02/07/2003 e per gli altri mesi l'errore si mantiene con uno scarto di
uno o massimo tre giorni. Forse è una richiesta banale, ma è davvero
"disperata". Un grazie a tutti per il gruppo e magari per una risposta.
Ciao. Rassel


title: manipolare le date

author: Salvatore

text:
"Rassel" <
infoexecut...@tiscali.it
> ha scritto nel messaggio
news:bbu8rc$g1j$1...@lacerta.tiscalinet.it...

Se non ho capito male devi aggiungere sei mesi alla data impostata per
ottenerne una nuova.
Puoi, allora usare la funzione DateAdd, in questo modo
Me.NuovaData=DateAdd("m",6,me.data) dove data è il campo nel quale è
registrata la data iniziale, NuovaData quello nel quale devi memorizzare il
giorno del semestre successivo.
Ciao
Salvatore


title: manipolare le date

text:
"Salvatore" <
sal...@tiscalinet.it
> ha scritto nel messaggio
news:bbup8u$il6$1...@lacerta.tiscalinet.it...
>
> Se non ho capito male devi aggiungere sei mesi alla data impostata per
> ottenerne una nuova.
> Puoi, allora usare la funzione DateAdd, in questo modo
> Me.NuovaData=DateAdd("m",6,me.data) dove data è il campo nel quale è
> registrata la data iniziale, NuovaData quello nel quale devi memorizzare
il
> giorno del semestre successivo.
> Ciao
> Salvatore
Non ho parole per ringraziarti; tu pensa che l'avevo anche provata ma avevo
fatto qualche errore nella punteggiatura. Risolto il problema. Grazie
davvero.
A buon rendere, onestamente non credo ne sia all'altezza, c'è da impare un
mondo a leggersi tutti i trhead.
Un saluto e complimenti. Giovanni


title: Malfunzionamento VBA

author: Gianluca

text:
Vi è mai capitato che all'improvviso, scrivendo codice VBA su A97 si
avverassero cose strane tipo:
- l'autocompletamento funzione scritta sparisce
- il comando in fase di scrittura viene segnalato in rosso come errore fino
a che non si procede con la digitazione, e questo senza avere cambiato riga
- gli spazi vengono automaticamente annullati se non si è abbastanza veloci
a digitare altro dietro.
Io ho già provato a rieseguire l'ultima installazione ma non ho risolto
nulla. Pls help!