title: Per i Ganzi......(Sottomaschere...)

author: Norica

text:
Un problemone:
Ho una maschera sulla quale immettendo dei paramentri (data, cliente
ecc.ecc.) faccio delle ricerche su una tabella che contiene dei dati su
spedizioni....tale maschera contiene anche una sottomaschera (sempre coll
alla stessa tabella) che mi visualizza (premendo su un pulsante) i dati in
base sui parametri che ho immesso.... e fin qui tutto ok ma....
vorrei vorrei vorrei che facendo doppio click sul record selezionato nella
sottomaschera mi si aprisse la maschera che ho usato per inserire i dati
relativi alla stessa spedizione....
Is Possible ????
Grazie strastramille
--
Posted from
smtp6.libero.it
 [193.70.192.127]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Per i Ganzi......(Sottomaschere...)

author: Antonio Biso

text:
"Norica" <
nor...@libero.it
> wrote in message
000501c074ea$db09dd80$f7741997@c7x0k5...
> Un problemone:
> Ho una maschera sulla quale immettendo dei paramentri (data, cliente
> ecc.ecc.) faccio delle ricerche su una tabella che contiene dei dati su
> spedizioni....tale maschera contiene anche una sottomaschera (sempre coll
> alla stessa tabella) che mi visualizza (premendo su un pulsante) i dati in
> base sui parametri che ho immesso.... e fin qui tutto ok ma....
> vorrei vorrei vorrei che facendo doppio click sul record selezionato nella
> sottomaschera mi si aprisse la maschera che ho usato per inserire i dati
> relativi alla stessa spedizione....
> Is Possible ????
La sottomaschera è collegata ad una maschera no?
Sui controlli che stanno in questa maschera, all'evento doppio clic, associa
l'apertura dell'altra maschera di cui parli e metti come filtro che il
codice sia lo stesso di quello selezionato nella maschera principale, nel
record della sottomaschera scelto...
Antonio


title: Per i Ganzi......(Sottomaschere...)

text:
Nella sottomaschera possono uscire più records con lo stesso
identificativo (es.25 records per lo stesso cliente...)
!!!!!


title: Per i Ganzi......(Sottomaschere...)

author: Riccardo

text:
"Norica" <
nor...@libero.it
> wrote in message
000601c07500$b5989760$650b1997@c7x0k5...
Nella sottomaschera possono uscire più records con lo stesso identificativo
(es.25 records per lo stesso cliente...) !!!!!
Non postare in html!!
Avrai un identificativo della Spedizione?
Se si (così dovrebbe, un contatore o altro.... un codice univoco), sul
doppio click fai aprire la maschera di caricamente con lo stesso codice
identificativo del record su cui ti trovi ed hai fatto doppio click
ciao Riccardo


title: ricerca in una maschera

author: giancarlo

text:
Ciao a tutti; avrei questo problema, quando apro una maschera e clicco
sull'icona trova (il canocchialino per intenderci) mi piacerebbe che di
default mi si presentasse cosě:
confronta "parte del campo"
e "cerca solo in campo corrente" non spuntato;
č possibile?
scusatemi se la domanda puň essere banale, ma al momento non sono ancora
riuscito a trovare una soluzione.
ciao,   giancarlo


title: ricerca in una maschera

text:
"giancarlo" <
gia...@kataweb.it
> ha scritto nel messaggio
news:8r425s$jtd$1...@serv1.albacom.net...

strumenti / opzioni / modifica-trova seleziona ricerca standard e poi clicca
su ok!
poi esegui una ricerca con il pulsante del binocolo e clicca su rova sdopo
aver importato
le opzioni come le vuoi tu! uscendo e rientrando dal database le
impostazioni dovrebbero rimanere!
fammi sapere ciao!
Tosto73


title: aiuto su codice donwload file sequenziale da lista

author: MC

text:
Salve, devo generare una procedura per scaricare file PDF da un
determinato sito web.
Sono in possesso di tutti i nomi file che ho in apposita tabella
chiamata tbl_lista, il nome dei file con path completa è riportato
all'interno di un campo chiamato "percorsi".

Vorrei automatizzare la procedura per il download che oggi seguivo
direttamente file per file con la funzione di seguito riportata:

Dim oAppIE As SHDocVw.InternetExplorer
Indirizzo = Me.Testo1.Value

Set oAppIE = CreateObject("InternetExplorer.Application")
oAppIE.Navigate2 Indirizzo
Do
    DoEvents
    If oAppIE.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
oAppIE.Visible = True
oApp.Document.Forms(0).Item("CF").Value = ""
oApp.Document.Forms(0).Item("PW").Value = ""
oApp.Document.Forms(0).submit
inviaFormHTML_exit:
    Set oAppIE = Nothing
    Exit Sub

Domanda ulteriore:

Vorrei che il download puntasse a salvare i file in folder c:\bkp_pdf\
Si apre una finestra errore di tipo 424 dopo download ... come fare a
skipparla e passare a record successivo e come fare a fare la stessa
cosa quando a connessione avvenuta il nome file è errato e quindi non
presente e scaricabile.

Grazie anticipatamente per le risposte.

MC


text:

Io usavo questo codice appoggiandomi al controllo INET:

Function HTTPDownloadFile(ByVal URL As String, ByVal LocalFileName As
String) As Boolean
    On Error Goto HTTP_ERROR
    Dim HTTP As Object
    Dim Contents() As Byte

    HTTPDownloadFile=False

    Set HTTP = CreateObject("InetCtls.Inet")
    With HTTP
        .Protocol = icHTTP
        .URL = URL
        .UserName = "**UserName**"
        .Password = "**Password**"
        Contents() = .OpenURL(.URL, icByteArray)
    End With

    Open LocalFileName For Binary Access Write As #1
    Put #1, , Contents()
    Close #1

Exit_Here:
    HTTPDownloadFile=True
    Set HTTP = Nothing
    Exit Sub
HTTP_ERROR:
    Select Case Err.Number
         Case Is=424
                Resume Exit_Here
         Case Else
                Resume Next
    End Select
End Sub

Dalla chiamante, se     HTTPDownloadFile=FALSE skippi al prossimo....

@Alex


title: funzioni e autokeys

author: ciroteo da newsland

text:
ho una macro autokeys che a fronte della pressione di f4 chiude la
maschera.
il fatto è che non vorrei che valesse per tutte le maschere, ma solo x
due, quindi nella colonna condizione ho messo
[screen].[activeform].[Name]="M49frm_pannello_spedizioni"
[screen].[activeform].[Name]="M50_spedizioni"
e ho chiesto che in entrambi i casi esegua la funzione di chiusura.
Function chiudi_form()
Dim ArrestaEsecuzione As Boolean
ArrestaEsecuzione = True
If ArrestaEsecuzione = True Then
Dim frmCurrentForm As Form
Dim frm_da_chiudere As String
Set frmCurrentForm = Screen.ActiveForm
frm_da_chiudere = frmCurrentForm.Name
DoCmd.Close acForm, frm_da_chiudere, acSaveNo
DoCmd.CancelEvent
ArrestaEsecuzione = True
Else
frm_da_chiudere = ""
End If
End Function
la cosa buffa è che su pressione di F4 (tasto associato alla autokeys) (se
le due maschere vengono aperte in successione), la funzione viene eseguita
2 volte! mi chiude la prima e anche la seconda. se invece lancio la
funzione da un pulsante col tradizionale click mi chiude correttamnete
l'ultima maschera e lascia aperta la maschera aperta in precedenza.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: funzioni e autokeys

author: Sergio MAZZA

text:
"ciroteo da newsland" <
mio...@libero.it
> ha scritto nel messaggio news:e9qtp4$r9c$1...@news.newsland.it...

Ma se gli passi come parametro (magari come Optional) il nome della form?
Ciao.
--
Sergio MAZZA


title: funzioni e autokeys

author: giorgio rancati

text:
"ciroteo da newsland" <
mio...@libero.it
> ha scritto nel messaggio
news:e9qtp4$r9c$1...@news.newsland.it...
> ho una macro autokeys che a fronte della pressione di f4 chiude la
> maschera.
> il fatto č che non vorrei che valesse per tutte le maschere, ma solo x
> due, quindi nella colonna condizione ho messo
> [screen].[activeform].[Name]="M49frm_pannello_spedizioni"
> [screen].[activeform].[Name]="M50_spedizioni"
[CUT]
> la cosa buffa č che su pressione di F4 (tasto associato alla autokeys) (se
> le due maschere vengono aperte in successione), la funzione viene eseguita
> 2 volte! mi chiude la prima e anche la seconda. se invece lancio la
> funzione da un pulsante col tradizionale click mi chiude correttamnete
> l'ultima maschera e lascia aperta la maschera aperta in precedenza.
si ma quante azioni hai nella macro, due ?
se sě allora la funzione viene richiamata due volte.
metti una sola azione con l'opzione
----
[screen].[activeform].[Name]="M49frm_pannello_spedizioni" OR
[screen].[activeform].[Name]="M50_spedizioni"
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: funzioni e autokeys

text:
giorgio rancati ha scritto:



> Ciao
Grazie giorgio, in settimana provo, ma l'idea mi sembra proprio buona.



title: funzioni e autokeys

author: MA

text:

Ma scusa questa non č una condizione?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: funzioni e autokeys

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ea2kps$7hk$1...@area.cu.mi.it...
> Ma scusa questa non č una condizione?
sě, una sola condizione per una sola azione, lui ha due azioni e in ognuna
di esse una condizione.
quale č il dubbio ?



title: funzioni e autokeys

text:
giorgio rancati wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:ea2kps$7hk$1...@area.cu.mi.it...
>> Ma scusa questa non č una condizione?
>
> sě, una sola condizione per una sola azione, lui ha due azioni e in
> ognuna di esse una condizione.
> quale č il dubbio ?
>
> Ciao
no scusa, forse no mi č ancora chiaro
Lui ha
NomeMacro - Condizione -      Azione -     nome funzione
{F3}             [Screen]...=A      Eseguicodice  fctA()
                     [Screen]...=B      Eseguicodice  fctB()
Ora lui dovrebbe discriminare la form col focus
e quindi fuznzionare una sola volta
O sbaglio?



title: funzioni e autokeys

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ea2os9$fh4$1...@area.cu.mi.it...
> giorgio rancati wrote:
> > "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> > news:ea2kps$7hk$1...@area.cu.mi.it...
> no scusa, forse no mi è ancora chiaro
> Lui ha
> NomeMacro - Condizione -      Azione -     nome funzione
> {F3}             [Screen]...=A      Eseguicodice  fctA()
>                      [Screen]...=B      Eseguicodice  fctB()
> Ora lui dovrebbe discriminare la form col focus
> e quindi fuznzionare una sola volta
> O sbaglio?
> --
lui ha:
----
 NomeMacro - Condizione -      Azione -     nome funzione
 {F3}             [Screen]...=A      Eseguicodice  chiudi_form()
                      [Screen]...=B      Eseguicodice  chiudi_form()
----
quindi se entrambe le form sono aperte nella sequeza A a fuoco e B sotto,
prima chiude la A e poi la B.
io gli ho suggerito di fare
----
 NomeMacro - Condizione -                               Azione -     nome
funzione
 {F3}             [Screen]...=A OR [Screen]..=B     Eseguicodice
chiudi_form()
----



title: funzioni e autokeys

text:

Perchè lui perpetua l'azione a tutte le macro che ha in sequenza.
Ora ho capito cosa dicevi.
Non mi era mai capitato perchè nella mie routine non chiudevo la maschera e
quindi non si spostava il focus



title: DAO

author: Ori

text:
COME SI  ATTIVA DAO 2.5/3.5?
POSSO ATTIVARLO ANCHE IN OFFICE 2000?
GRAZIE


title: DAO

author: Fabrizio Quercia

text:
"Ori" <
Orianav...@libero.it
> ha scritto nel messaggio
news:rGpC9.49053$8E3.1...@twister2.libero.it...
> COME SI  ATTIVA DAO 2.5/3.5?
> POSSO ATTIVARLO ANCHE IN OFFICE 2000?
> GRAZIE
Non urlare :)))
Allora...
- Access 97 usa DAO 3.5 di default e nn devi attivare nulla
- Access 2000 usa ADO ma puoi usare anche DAO 3.6/3.5.
Per farlo da Access 2000 vai su Strumenti\macro\Visual basic e ti apre
l'editor Visual Basic
Vai qui su Strumenti - Riferimenti e hai un elenco di librerie (dll+ocx) che
sono disponibili, quelle spuntate sono quelle che stai usando e sono
inserite nel tuo database, le altre le puoi utilizzare semplicemente
selezionandole.
Nella lista c'e' il dao350.dll, una delle voci fa riferimento proprio a
questa libreria, credo sia DAO 3.5 o qualsosa di simile...la spunti e premi
OK.
Se la vuoi utilizzare di default trascinala su in alto alla lista SOPRA di
ADO, in modo che access 2000 usa prima di default DAO (credo sia cosi,
qualcuno mi corregga se sbaglio).
Spero di essere stato chiaro.
Ciao :))


title: DAO

text:
"Fabrizio Quercia" <
fabrizi...@tin.it
> ha scritto
>
> Spero di essere stato chiaro.
>
> Ciao :))
>
 ciao fabrizio
grazie della risposta
sei stato chiarissimo!
visto che sei così bravo sottopongo alla tua attenzione un altro problema
ti ringrazio in anticipo per la tua risposta !
ho creato una maschera in cui ho inserito
nome
cognome
data di nascita
tratti dalla tabella "impiegati"
INOLTRE HO INSERITO
UN COMANDO : comando4
UNA CASELLA DI TESTO : testo5  la cui etichetta è  "inserisci città di
nascita"
la casella di testo è vuota perchè chi legge la maschera, inserendo una
città
a sua scelta e cliccando sul comando, può
visualizzare il numero di persona nata in quella città
UNA CASELLA DI TESTO :testo7
in tale casella dovrebbe essere visualizzato un numero, li risultato del
codice associato al comando4
questo è il codice:
 Private Sub Comando4_Click()
Dim d As Database
Dim t As Recordset
Set d = CurrentDb()
Set t = d.OpenRecordset("tabella1")
K = 0
t.MoveFirst
Do Until t.EOF
If t![città di nascita] = Testo5 Then K = K + 1
t.MoveNext
Loop
Testo7 = K
End Sub
perchè il debug evidenzia come errore openrecordset?
questo codice presenta altri errori?
grazie
ciao
oriana


title: DAO

text:
"Ori" <
Orianav...@libero.it
> ha scritto nel messaggio
news:DjrC9.49471$8E3.1...@twister2.libero.it...
> visto che sei così bravo sottopongo alla tua attenzione un altro problema
> ti ringrazio in anticipo per la tua risposta !
esagerato
> ho creato una maschera in cui ho inserito
> nome
> cognome
> data di nascita
> tratti dalla tabella "impiegati"
>
> INOLTRE HO INSERITO
> UN COMANDO : comando4
> UNA CASELLA DI TESTO : testo5  la cui etichetta è  "inserisci città di
> nascita"
> la casella di testo è vuota perchè chi legge la maschera, inserendo una
> città
> a sua scelta e cliccando sul comando, può
> visualizzare il numero di persona nata in quella città
che cos'e' numero di persona? da dove lo prendi?
> UNA CASELLA DI TESTO :testo7
> in tale casella dovrebbe essere visualizzato un numero, li risultato del
> codice associato al comando4
>
> questo è il codice:
>
>  Private Sub Comando4_Click()
>
> Dim d As Database
> Dim t As Recordset
> Set d = CurrentDb()
> Set t = d.OpenRecordset("tabella1")
> K = 0
> t.MoveFirst
> Do Until t.EOF
> If t![città di nascita] = Testo5 Then K = K + 1
> t.MoveNext
> Loop
> Testo7 = K
>
> End Sub
forse ad occhio:
----------------------------------------------------------------------------
Private Sub Comando4_Click()
    Dim d As Database
    Dim t As Recordset
    Dim Testo5 As String
    Set d = CurrentDb()
    Set t = d.OpenRecordset("nome-della-tabella-impiegati")
    Testo5 = Me.Testo5.Value
    K = 0
    t.MoveFirst
    Do Until t.EOF
        If  Me.città di nascita = Testo5  Then
            K = K + 1
        End if
    t.MoveNext
    Loop
    Me.Testo7.Value = K
End Sub
----------------------------------------------------------------------------
> perchè il debug evidenzia come errore openrecordset?
al posto di Tabella1 ci devi mettere il nome della tabella impiegati? hai
provato?
> grazie
> ciao
Ciao :)


title: DAO

author: ringo

text:
"Ori" <
Orianav...@libero.it
> ha scritto nel messaggio
news:rGpC9.49053$8E3.1...@twister2.libero.it...
> COME SI  ATTIVA DAO 2.5/3.5?
> POSSO ATTIVARLO ANCHE IN OFFICE 2000?
> GRAZIE
>
>
Microsoft usa dao 3.6
entri nel codice VBA strumenti - riferimenti
bye
ringo


title: DAO

author: Roberto da casa

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:ardkv2$865$1...@serv1.albacom.net...
>
> "Ori" <
Orianav...@libero.it
> ha scritto nel messaggio
> news:rGpC9.49053$8E3.1...@twister2.libero.it...
> > COME SI  ATTIVA DAO 2.5/3.5?
> > POSSO ATTIVARLO ANCHE IN OFFICE 2000?
> > GRAZIE
> >
> >
>
> Microsoft usa dao 3.6
Per A2000 e AXP OK, ma per A97 usa 3.51
>
> entri nel codice VBA strumenti - riferimenti
>
> bye
>
> ringo
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema numerazione fatture.

author: Lino F

text:
Buongiorno a tutti voi, ho bisogno di risolvere un problema e mi serve
il vostro aiuto indispensabile.
Fino ad ora per le fatture uso una maschera che per la numerazione
utilizza la seguente formula (copiata e leggermente trasformata per il
mio utilizzo dal Sito Comune) inserita nelle proprietà del campo
numeratore al Valore Predefinito.
=Format(IIf(IsNull(DMax("NUMPROGFATTIMED";"FATTIMMED";"NUMPROGFATTIMED
like '???" & "/" & Format(Date();"yy") & "'"));
1;Left(DMax("NUMPROGFATTIMED";"FATTIMMED";"NUMPROGFATTIMED like '???"
& "/" & Format(Date();"yy") & "'");3)+1);"000") & "/" &
Format(Date();"yy")
Il problema nasce ora che ho bisogno che dalla stessa maschera devo
produrre vari tipi di documenti oltre alla fattura immediata e con
numerazioni diverse a seconda del tipo di documento.
La mia  richiesta (e mi potete aiutare solo voi) è quella di
trasformare la formula suscritta in questa maniera;
SE è fattura immediata usa questa formula;
SE è D.D.T. usa quest'altro tipo di formula;
e così via
Secondo me l'ideale sarebbe fare questa operazione in VB ma non riesco
a farlo.
Capisco che per alcuni queste cose sono banalità ma per me sono
importatissime.
Un saluto e grazie a tutti per l'aiuto che riuscirete a darmi.
Lino


title: Problema numerazione fatture.

author: Riccardo Baldinotti

text:

Mi par di capire che tu abbia una tabella con un campo numeri di
fattura NUMPROGFATTIMED di tipo testo, così:
1/09
2/09
...
1/10
2/10
...
è una soluzione che sconsiglio: meglio avere un NUMPROGFATTIMED
numerico, con duplicati ammessi, un campo ANNOFATT di testo, e
aggiungerai un campo TIPODOC che contiene il tipo di documento.
Avrai così:
1 - 09 - fatt
2 - 09 - fatt
1 - 09 - ricev
2 - 09 - ricev
1 - 09 - altro
eccetera.
La formula per la numerazione, contenuta in una casella NumFatt della
maschera TuaMaschera, sarà allora la seguente:
=nz(DMax("[NUMPROGFATTIMED]";"FATTIMED";"[ANNOFATT]='" &
Format(Date();"aa") & "' AND [TIPODOC]='" & [Maschere]![TuaMaschera]!
[TipoDocumento] & "'");0)+1
(occhio a virgolette singole e doppie)
La funzione nz() serve a dare il valore che vuoi, in questo caso 0, se
le condizioni non dessero alcun risultato, cosa utilissima quando
dovrai numerare per la prima volta un nuovo tipo di documento, a cui
aggiungi 1 perché vuoi il numero successivo.
La TuaMaschera avrà un campo TipoDocumento, cioè una casella combinata
con l'elenco dei possibili documenti.
Se comunque vuoi mantenere la numerazione nn/aa, basta che la formula
che scrive il record inserisca, nel campo NUMPROGFATTIMED, il valore:
[Maschere]![TuaMaschera]![NumFatt] & "/" & Format(Date();"aa")
ricordandoti di scrivere, nel campo TIPODOC, il valore di [Maschere]!
[TuaMaschera]![TipoDocumento]
Ma in tal caso la formula di NumFatt andrà adattata, rendendola più
simile alla tua.
Fra poche ore partirò. Ho messo una risposta sperando di essere utile,
ma questo NG è pieno di persone ben più capaci di me di dare aiuto.
Ancora per un poco rimango in linea.
Riccardo Baldinotti


title: Problema numerazione fatture.

author: lino

text:
"Riccardo Baldinotti" <
bari...@gmail.com
> ha scritto nel messaggio
news:38268fc8-d7b7-4cc2...@x21g2000yqa.googlegroups.com...

Ringrazio subito dopo aver letto la tua risposta ci proverò seguendo i
consigli lo so che questo è un periodo particolare per queste domande ma se
non ci riuscirò ne parleremo ancora a fine agosto.
Ciao e buone vacanze (per chi le fa)
Lino Fornaro


title: Date estese in Inglese nei reports

author: Mikael Osterhed

text:
Salve,
Stiamo sviluppando dei reports e abbiamo bisogno
di creare dei reports identichi a parte della lingua.
Il report in italiano viene generato come deve mentre
abbiamo un problema con il report in inglese con la data
(che deve essere scritto per esteso usando il formato
MMMM dd, yyyy). Non c'è verso di far scrivere per esempio
July 10, 2000 invece la data viene scritto in italiano.
In Word si riesce gestire questa cosa ma in Access sembra
impossibile se non si va cambiare l'impostazione internazionali
del PC (che non vogliano fare).
Forse deve scrive un funzione per fare la traduzione ma
magari Voi sapete già la soluzione.
Vi ringrazio per qualsiasi aiuto che potete darmi.
/Mike
mos...@libero.it


title: Date estese in Inglese nei reports

text:
"Mikael Osterhed" <
most...@hotmail.com
> ha scritto nel messaggio
news:8l7192$d8f$1...@nslave1.tin.it...

Per quanto mi riguarda non ho trovato soluzioni "tradizionali"; l'help non
indica come cambiare la nazionalità del formato delle date. Ho cercato nei
siti VB e (sembra) non esistere niente del genere; chissà maneggiando le API
forse...
Sì credo che l'unica sia una funzione che traduce i mesi; altrimenti una
tabella con le traduzioni e il rispettivo codice nazionale, così da poter
disporre di tutte le varianti senza doverle cambiare nella funzione...
Ciao.


title: vbs

author: Byte

text:
Forse la domanda è ripetuta ma il probelma che ho non sono riuscito a
risolverlo.
E' possibile gestire in un file vbs che lancia un report access l'
orientamento della stampante di default?
se si è possibile avere un esempio?
grazie a tutti


title: vbs

text:
Byte wrote:
> Forse la domanda č ripetuta ma il probelma che ho non sono riuscito a
> risolverlo.
>
> E' possibile gestire in un file vbs che lancia un report access l'
> orientamento della stampante di default?
>
> se si č possibile avere un esempio?
>
>
> grazie a tutti
Non credo.
Ma perché lo vuoi gestire col vbs?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: vbs

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dlrvcr$var$1...@area.cu.mi.it...
> Byte wrote:
>> Forse la domanda è ripetuta ma il probelma che ho non sono riuscito a
>> risolverlo.
>>
>> E' possibile gestire in un file vbs che lancia un report access l'
>> orientamento della stampante di default?
>>
>> se si è possibile avere un esempio?
>>
>>
>> grazie a tutti
>
> Non credo.
> Ma perché lo vuoi gestire col vbs?
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
> Cisa - Conferenza Italiana per Sviluppatori Access
> Info:
www.donkarl.com/it
>
>  come già postato in precedenza.... io ho un report in access con stampa
> in orrizzontale.....
creo il file mde.......... se lo porto su un altro pc   la stampa di questo
report lanciata dal file vbs avviene in verticale....
parto dal file vbs perchè lancio il report come istanza....
 questo è il mio file vbs
Dim objApp
Dim AppPath
Dim FileName
Dim DBName
AppPath = "C:\saripgmsource\"
DBName = "prova stampa.mdb"
Set objApp=Wscript.CreateObject("Access.Application")
objApp.OpenCurrentDatabase AppPath & DBName
objApp.DoCmd.OpenReport "Report1"
objApp.CloseCurrentDatabase
Set objApp= Nothing
quindi pensavo che mettendo da qualche parte il comando di impostare la
stampante in orrizzontale avrei risolto il problema
sbagliato tutto ??
ciao grazie


title: vbs

text:
"Byte" <
sar...@tin.it
> ha scritto nel messaggio news:4381a4eb$0$13255$4faf...@reader2.news.tin.it...
> creo il file mde.......... se lo porto su un altro pc   la stampa di questo report lanciata dal file vbs avviene in verticale....
> parto dal file vbs perchè lancio il report come istanza....
>
>
> questo è il mio file vbs
>
> Dim objApp
> Dim AppPath
> Dim FileName
> Dim DBName
>
> AppPath = "C:\saripgmsource\"
> DBName = "prova stampa.mdb"
> Set objApp=Wscript.CreateObject("Access.Application")
> objApp.OpenCurrentDatabase AppPath & DBName
>
> objApp.DoCmd.OpenReport "Report1"
> objApp.CloseCurrentDatabase
> Set objApp= Nothing
>
> quindi pensavo che mettendo da qualche parte il comando di impostare la stampante in orrizzontale avrei risolto il problema
>
> sbagliato tutto ??
>
> ciao grazie
In linea di massima; se nell'ambiente access riesci ad impostare l'orientamento della stampa agendo (per esempio) sull'oggetto
Printer, lo puoi fare anche con VBS; chiaramente inserendo i giusti riferimenti agli oggetti.
Es.
...
objApp.DoCmd.OpenReport "Report1", 2
objApp.Printer.Orientation = 2
objApp.Reports("Report1").Print
...
Ciao.
--
Sergio MAZZA


title: vbs

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dls943$hbt$1...@area.cu.mi.it...

ho inserito le  tre righe ma in esecuzione mi mnada un messaggio di errore
numero errato di argomenti
ciao Grazie


title: vbs

text:
"Byte" <
sar...@tin.it
> ha scritto nel messaggio news:4381eda0$0$16215$4faf...@reader3.news.tin.it...
>
> ho inserito le  tre righe ma in esecuzione mi mnada un messaggio di errore
> numero errato di argomenti
>
> ciao Grazie
Ho sbagliato; il metodo Print stampa scritte sulla finestra immediata.
Il metodo giusto è il PrintOut:
'---
Dim objApp
Dim AppPath
Dim FileName
Dim DBName
AppPath = "D:\DATI\VARIE\Sergio\Ng\"
DBName = "ngXp.mdb"
Set objApp=Wscript.CreateObject("Access.Application")
objApp.OpenCurrentDatabase AppPath & DBName
objApp.DoCmd.OpenReport "Prova", 2
objApp.Printer.Orientation = 2
objApp.DoCmd.PrintOut 2
objApp.Quit 2
Set objApp= Nothing
'---
Ho modificato la riga che chiude il database utilizzando il metodo Quit perché la CloseCurrentDatabase non chiude l'applicazione, e
ho indicato il paramentro 2 (acQuitSaveNone) per non richiedere nulla all'utente...
Ciao.
--
Sergio MAZZA


title: vbs

text:

Ciao Sergio, questo codice funziona anche anche negli mde?



title: vbs

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio news:dlusg1$33s$1...@area.cu.mi.it...
> Ciao Sergio, questo codice funziona anche anche negli mde?
>
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
> Cisa - Conferenza Italiana per Sviluppatori Access
> Info:
www.donkarl.com/it
Ciao Massimiliano; non lo so perché non utilizzo mde.
Tu hai provato?
Ciao.
--
Sergio MAZZA


title: vbs

text:

Ho fatto una prima prova cambiando in un mdb Axp l'orientation da 2 a 1
ma lo stampa sempre allo stesso modo, in verticale, quello di default



title: vbs

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio news:dluv75$8na$1...@area.cu.mi.it...
> Ho fatto una prima prova cambiando in un mdb Axp l'orientation da 2 a 1
> ma lo stampa sempre allo stesso modo, in verticale, quello di default
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
> Cisa - Conferenza Italiana per Sviluppatori Access
> Info:
www.donkarl.com/it
>
Questo l'ho provato con l'mdb e funziona:
...
objApp.Visible = true
objApp.DoCmd.OpenReport "Prova", 1
objApp.Reports("prova").Printer.Orientation = 2
objApp.DoCmd.OpenReport "Prova", 2



title: vbs

text:

Hai ragione tu se un mdb, ma come ti dicevo su di un mde mi dice
Comando non disponibile in un database MDE/ADE
codice 800A1E7A
Mi sembrava strano, il fatto è che con l'oggetto printer comunque si passa
per il design time e in un mde nun se po'



title: update da tabella a tabella

author: Claudia G

text:
la mia tabella1 ha
ID (contatore)
Articolo (Testo)
La tabella2 è uguale identica
ho aggiunti dei nuovi dati e ora devo portare tutto sulla tabella 1
come deve essere la query di aggiornamento da query a query tenendo presende
che ID è univoco per tutti e due e deve essere uguale identico


title: update da tabella a tabella

author: Paolo Dal Bosco

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:450c11d1$0$30251$4faf...@reader1.news.tin.it...
> la mia tabella1 ha
> ID (contatore)
> Articolo (Testo)
>
> La tabella2 č uguale identica
> ho aggiunti dei nuovi dati e ora devo portare tutto sulla tabella 1
>
> come deve essere la query di aggiornamento da query a query tenendo
presende
> che ID č univoco per tutti e due e deve essere uguale identico
>
>
sembra, da come hai esposto il problema, alla fine le due tabelle
saranno uguali.
Se č cosě
dopo aver selezionato la Tabella2 ctrl+c e ctrl+v e rispondi sě
da codice:
    DoCmd.SetWarnings False
    DoCmd.CopyObject "", "Tabella1", acTable, "Tabella2"
Ciao
Paolo


title: update da tabella a tabella

text:
"Paolo Dal Bosco" <
bos...@tin.it
> ha scritto nel messaggio
news:450c14f1$0$47958$4faf...@reader3.news.tin.it...
>
> "Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
> news:450c11d1$0$30251$4faf...@reader1.news.tin.it...
>> la mia tabella1 ha
>> ID (contatore)
>> Articolo (Testo)
>>
>> La tabella2 è uguale identica
>> ho aggiunti dei nuovi dati e ora devo portare tutto sulla tabella 1
>>
>> come deve essere la query di aggiornamento da query a query tenendo
> presende
>> che ID è univoco per tutti e due e deve essere uguale identico
>>
>>
> sembra, da come hai esposto il problema, alla fine le due tabelle
> saranno uguali.
> Se è così
> dopo aver selezionato la Tabella2 ctrl+c e ctrl+v e rispondi sì
> da codice:
>    DoCmd.SetWarnings False
>    DoCmd.CopyObject "", "Tabella1", acTable, "Tabella2"
>
> Ciao
> Paolo
>
>
Ciao Paolo
mi serviva una semplice query
sto facendo dei test e quando il tutto è ok con la query porto i dati da una
parte all'altra
non è una procedura che uso sempre è solamente solo per questo evento
thanks


title: Leggere il valore di una variabile da query. HELP!

author: Fabietto

text:
E' possibile leggere il valore di una variabile su una maschera da una query
?
Impostandola fra i criteri vedo che non viene rilevata :-(
Grazie


text:
Mi spiego meglio:
sto assegnando dei valori ad alcune variabili contenute nel codice abbinato
ad un pulsante su di una maschera.
In pratica vorrei che cliccando il pulsante si apra una query i cui criteri
sono dati dai valori delle variabili assegnate.
Grazie


author: Fabio Dalla Villa

text:
"Fabietto" <
fab...@supereva.it
> ha scritto nel messaggio
news:s_0y6.120327$lj4.3...@news6.giganews.com...

Credo che ad una query si possa solo passare un valore tramite una funzione.
L'avevo già letto in un messaggio di un anno fa circa.
A grandi linee devi definire una funzione "public" nel codice, ad esempio
Variabile(n), con n=numero di variabili che ti serve richiamare nelle query;
poi dentro la funzione assegni il valore della variabile e richiami
Variabile(n) nella query.
Fabio Dalla Villa
Biella (BI) 13900


author: Cesare Dussin

text:
"Fabietto" <
fab...@supereva.it
> ha scritto nel messaggio
news:s_0y6.120327$lj4.3...@news6.giganews.com...

Se ho capito stai cercando di fare una cosa del genere:
in una maschera l'utente inserisce un valore (ad esempio sceglie un cliente
da un combo)
si vuole aprire una query filtrata per questo campo (ad esempio stampa di un
report con gli ordini di questo cliente)
Io di solito faccio così:
creo la query e nel campo idcliente filtro per forms![tua
maschera]!tuocampo_combo
Il campo compo deve avere come primo campo l'idcliente del cliente, se non
lo vuoi vedere imponi larghezza=0 alla prima colonna del combo.
Cesare Dussin


title: prelevare un indirizzo internet da browser barra indirizzi oppure da preferiti è possibile?

text: grazie a tutti.


title: IIF dentro una casella di testo

author: nn

text:
dentro una casella Testo_X ho il codice A:
A= DLookup("nomeCampoA "; " nomeTabella "; " nomeCampoB =" & Testo_2)
dove Testo_2 è il nome della casella di testo
qual è il codice esatto da usare in modo che se in Testo_2 non c'è
niente, allora dentro Testo_X non devo avere nulla; praticamente il
dlookup non deve agire quando su Testo_2 non ho nulla.
ho provato con
iif ( isnull (nome_Casella_Testo_2); null; Dlookup…..)
ma non funziona
grazie 1001


title: IIF dentro una casella di testo

text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
news:3DFB5F01...@lycos.it...

> iif ( isnull (nome_Casella_Testo_2); null; Dlookup...)
> ma non funziona
>
>
> grazie 1001
Che errore ti dà?
In quello che hai scritto, secondo me, c'è solo un errore: non hai messo il
segno di uguale davanti la parola iif.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: IIF dentro una casella di testo

text:
Roberto da casa wrote:
> "nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
> news:3DFB5F01...@lycos.it...
> >
> > dentro una casella Testo_X ho il codice A:
> > A= DLookup("nomeCampoA "; " nomeTabella "; " nomeCampoB =" & Testo_2)
> > dove Testo_2 è il nome della casella di testo
> >
> > qual è il codice esatto da usare in modo che se in Testo_2 non c'è
> > niente, allora dentro Testo_X non devo avere nulla; praticamente il
> > dlookup non deve agire quando su Testo_2 non ho nulla.
> >
> > ho provato con
> > iif ( isnull (nome_Casella_Testo_2); null; Dlookup...)
> > ma non funziona
> >
> >
> > grazie 1001
>
> Che errore ti dà?
>
> In quello che hai scritto, secondo me, c'è solo un errore: non hai messo il
> segno di uguale davanti la parola iif.
l'errore è:
#nome?
anche se metto il segno =
poi quando vado a rivedere il codice lo toglie access97


title: IIF dentro una casella di testo

text:
>
> > dentro una casella Testo_X ho il codice A:
> > A= DLookup("nomeCampoA "; " nomeTabella "; " nomeCampoB =" & Testo_2)
> > dove Testo_2 è il nome della casella di testo
> >
> > qual è il codice esatto da usare in modo che se in Testo_2 non c'è
> > niente, allora dentro Testo_X non devo avere nulla; praticamente il
> > dlookup non deve agire quando su Testo_2 non ho nulla.
> >
> > ho provato con
> > iif ( isnull (nome_Casella_Testo_2); null; Dlookup...)
> > ma non funziona
> >
> >
> > grazie 1001
>
> Che errore ti dà?
>
> In quello che hai scritto, secondo me, c'è solo un errore: non hai messo il
> segno di uguale davanti la parola iif.
forse ci sono    isnull (nome_Casella_Testo_2)
deve essere  isnull (nome_campo_Testo_2) ?
cioè devo mettere il nome del campo e non della casella di testo ?
ho fatto una ricerca su alcuni messaggi vecchi e su un esempio ho visto che
veniva usato sull'iif il nome_campo
spero sia cosi'  ora vado a provare


title: Query senza risultati =errore?

author: Morbillo

text:
altro quesito
in una maschera ho delle caselle di testo in cui appare la somma del campo
"spese" di tutti i  record ottenuti dalla query che di volta in volta
sottopongo.
SE pero la query resituisce niente, nella casella dove c'è la somma, appare
scritto "errore".Come posso fare perchè invece appaia 0?
Ciao
Stefano


title: Query senza risultati =errore?

author: Karl Donaubauer

text:
Morbillo <
stca...@tin.it
> ha scritto:

Invece di un ControlSource come
=Sum([CampoFoo])
puoi usare
=Iif(IsError(Sum([CampoFoo]));0;Sum([CampoFoo]))
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: Query senza risultati =errore?

author: Roberto dal portatile

text:
"Morbillo" <
stca...@tin.it
> ha scritto nel messaggio
news:Cyr%5.4451$ag5.2...@twister1.tin.it...

Se nell'origine controllo della casella di testo hai scritto:
=Somma([NomeCampo])
prova a scriverci:
=IIF(DCount("[NomeCampo]"; "NomeQuery")=0;0;Somma([NomeCampo]))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Cambiare foglio excel da access

author: io

text:
Salve a tutti
ho la necessità dall'interno di un programma in access di aprire un
programma in excel e scrivere su 2 fogli diversi.
Attualmente uso queste istruzioni:
oApp.Workbooks.Open "C:\nomefile.xls"
Set wks = oApp.ActiveWorkbook.Sheets("magazzino")
per scrivere sul foglio "magazzino"
e
Set wks = oApp.ActiveWorkbook.Sheets("movimenti")
per scrivere sul foglio "movimenti"
Se eseguo il tutto su 2 programmi excel distinti funziona, ma se unisco
i 2 fogli in un unico programma di excel non riesco a passare il
controllo da un foglio all'altro.
Cosa devo fare?
Grazie 1000


title: Cambiare foglio excel da access

author: Sergio MAZZA

text:
"io" <
7934i...@mynewsgate.net
> ha scritto nel messaggio
news:200707310...@mynewsgate.net...

Forse non ho capito; ma se vuoi scrivere su fogli diversi, basta che cambi
il riferimento al foglio;
es.
oApp.Workbooks.Open "C:\nomefile.xls"
oApp.Sheets("nomeFoglio1").Cells(1,1) = "Ciao!"
oApp.Sheets("nomeFoglio2").Cells(1,1) = "Ari-Ciao!"
(oppure)
oApp.Sheets(0).Cells(1,1) = "Ciao!"
oApp.Sheets(1).Cells(1,1) = "Ari-Ciao!"
Ciao.
--
Sergio MAZZA


title: Impostare una password e permettere di cambiarla in A2K

author: MM

text:
Ciao a tutti,
come ormai saprete il mio DB è fatto in Access 2000 ed è diviso in 2 parti ;
Frontend che incorpora sotto forma MDE le maschere,report,query,moduli,macro
Backend che incorpora i dati nella tabelle.
Entrambi sono protetti da password sia a livello di VB (impedisce di
visualizzare il progetto) e sia a livello di password del DB.
Per impostare la password del DB sono andato su Strumenti \ Protezione
\Imposta Password.
La password impostata non è a livello utente e quindi chiede solo la
password.
Il mio problema è il seguente : come faccio ad impostare una password
generica che l'utente finale potrà cambiare solo dopo averla inserita
correttamente ?
Supponiamo che il mio DB abbia la password TEST.
Eseguo il DB e lui mi chiede di inserire la PWD.
Io digito TEST e premo OK.
Entro nel DB e posso iniziare a lavorare.
Supponiamo che ora voglia cambiare la password del DB per ragioni di
sicurezza.
Supponendo di avere una maschera che faccia il tutto e cioè :
richiesta password vecchia
richiesta password nuova
richiesta conferma password nuova.
Innanzitutto come si fa a realizzare un sistema del genere e cosa me ne
faccio dei riferimenti in VB dove ho le seguenti stringhe  :  Set
CurrentDatabase = OpenDatabase(percorso, False, False, ";pwd=test")
Speriamo ci sia qualcuno che mi possa rispondere.
Non sono esperto su questo argomento quindi gentilmente se potete
dettagliare le vostre risposte.
Con simpatia,
Marco.


author: Federico Luciani

text:
MM wrote:
> Ciao a tutti,
> come ormai saprete il mio DB è fatto in Access 2000 ed è diviso in 2 parti ;
> Frontend che incorpora sotto forma MDE le maschere,report,query,moduli,macro
> Backend che incorpora i dati nella tabelle.
>
> Entrambi sono protetti da password sia a livello di VB (impedisce di
> visualizzare il progetto) e sia a livello di password del DB.
>
> Per impostare la password del DB sono andato su Strumenti \ Protezione
> \Imposta Password.
>
> La password impostata non è a livello utente e quindi chiede solo la
> password.
>
> Il mio problema è il seguente : come faccio ad impostare una password
> generica che l'utente finale potrà cambiare solo dopo averla inserita
> correttamente ?
Current.NewPassword "vecchiapwd", "nuovapwd"
tieni pero' presente che per cambiare la password devi
necessariamente entrare in modalita' esclusiva.
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Valore Predefinito

author: GhanaWay

text:
Gentile Sergio Mazza  ..... e chi voglia intervenire,
in primis, grazie per la tua disponibilità.
Cercherò di descrivere
q.to
 più minuziosamente possibile il frame sensibile
della struttura del DB.
BASE DATI:
Tabella: Rischio_Pericolo Dep    Campi:(Testo) Simobolo
Rischio_Pericolo,Frasi di Rischio_Pericolo,Nome Composti,
                                                             (logo OLE)
Simbolo,
                                                                ID contatore
in chiave primaria.
Tabella: Rischio_Pericolo         Campi:(Testo) Simobolo
Rischio_Pericolo,Frasi di Rischio_Pericolo,Nome Composti,CAS,
                                                             (logo OLE)
Simbolo,
                                                                ID
contatore.
Tabella: ALTSOLV         Campi:(Testo) Name(chiave primaria),CAS(chiave
primaria),...etc...
                                                   ID contatore.
Tabella: Sicurezza         Campi:(Testo) NomeCompound,NomeComponente,Nome
IUPAC
                                               ID contatore.
Materie Prime                Campi:(Testo) Nome,Fornitore, ...etc...
                                               ID contatore.
RELAZIONI:
ALTSOLV.CAS uno-a-molti Rischio_Pericolo.CAS
ALTSOLV.Name uno-a-molti Sicurezza.NomeIUPAC
Materie Prime.Nome uno-a-molti Sicurezza.NomeCompound
1) Premesse:
Esiste Maschera creata sul ALTSOLV che mi rappresenta la sequela dei
campi,... no problem. Associata alla maaschera ALTSOLV, ho creato una
sottomaschera "Sottomaschera Rischio_Pericolo", sovrastante la tabella
Rischio_Pericolo.
1) Quesito: All'interno di "Sottomaschera Rischio_Pericolo", ho costituito 4
campi (i primi due sono caselle combinate): "Frasi di Rischio_Pericolo",
"Simbolo di Rischio_Pericolo", CAS (mi si compila in automatico, perche
legato alla chiave primaria di ALTSOLV.Cas ), simbolo.
Il campo "Frasi di Rischio_Pericolo" contiene diciture(codici) anche
dupplicati perche nel secondo campo "Simbolo di Rischio_Pericolo", a ciascun
dupplicato, viene attribuita una sotto specificità (non duplicata -
differente l'una dall'altra).
Vorrei quindi che, selezionando dalle  "Frasi di Rischio_Pericolo" un
codice, se dupplicato, nel campo  "Simbolo di Rischio_Pericolo" (in casella
combinata !?) ottenga il sottoinsieme delle possibilità, correlate con il
primo campo, se non duplicate, mi compaia direttamente il suo valore.
Per il campo "Simbolo" dovrebbe comparire direttamente il simbolo(logo), in
q.to
 è strettamente correlato con "Frasi di Rischio_Pericolo". Non so come
ottenere la sua visualizzazione, ne in maschera che in report.
2)Premesse
2) Quesito
Similare necessità in un'altra maschera e sottomaschera, alla su riportata.
Se riesco ad implementare e capire come hai risolto, provero ad rispondermi
autonomemente al p.to2)
Grazie


title: Valore Predefinito

text:
"GhanaWay" <
buff...@virgilio.it
> ha scritto nel messaggio
news:4254f8c4$1$18147$5fc...@news.tiscali.it...
> Gentile Sergio Mazza  ..... e chi voglia intervenire,
> in primis, grazie per la tua disponibilità.
In secundis, prego...

Per sincronizzare due (o più) caselle combinate, "Frasi di Rischio_Pericolo"
e "Simbolo di Rischio_Pericolo", ti viene in aiuto il sito comune
(
www.sitocomune.com
) Sezione: Forms - 3.77 Sincronizzare in una maschera due
o più caselle combinate ASSOCIATE tra loro in gerarchia.
> 2)Premesse
> 2) Quesito
> Similare necessità in un'altra maschera e sottomaschera, alla su
> riportata. Se riesco ad implementare e capire come hai risolto, provero ad
> rispondermi autonomemente al p.to2)
Se il problema è uguale, uguale è la soluzione; provala e vediamo se
riscontri problemi...
> Grazie
Ciao.
--
Sergio MAZZA


title: espressione da semplificare

author: Franco dellavalle

text:
ciao a tutti

chiedo aiuto per semplificare questa espressione:

(([IdSconto]+[IdSconto2])*[Quantità]*[Prezzo]+([IdSconto2]*[DiffImp]))/100 - (([IdSconto]*[Quantità]*[Prezzo]/100)/2)

grazie in anticipo.


title: espressione da semplificare

text:

forse cosi?
((([IdSconto]/2)+[IdSconto2])*[Quantità]*[Prezzo]+([IdSconto2]*[DiffImp]))/100


title: Query di importazione/aggiornamento

text:
Buongiorno a tutti,
Vorrei sapere quale può essere la via più semplice per aggiornare una tabella listini di access (2007) da una tabella di excel tenendo conto che vorrei:
- che mi aggiornasse i dati modificati,
- che mi aggiungesse eventuali nuovi articoli,
- che mi cancellasse quelli non più a listino.

Al momento io ho trovato questa soluzione:

UPDATE ListinoZ LEFT JOIN ListinoZAc ON ListinoZ.Codice = ListinoZAc.Codice SET ListinoZAc.Codice = [ListinoZ].[Codice], ListinoZAc.Prodotto = [ListinoZ].[Prodotto], ListinoZAc.UtenteFinale = [ListinoZ].[UtenteFinale];

ListinoZ è la tabella di excel collegata al db e ListinoZAc è la tabella dove importare i dati.
Questa soluzione però non mi cancella eventuali dati presenti in ListinoZAc che non sono più nel ListinoZ.
Avete qualche idea?
Grazie mille


title: Query di importazione/aggiornamento

author: GiorgioDaPrato

text:

provo una risposta
Prima di tutto NON è chiaro quale sia la tabella con le NUOVE registrazioni: Excel ?
(e, di conseguenza, quale quella che fa da contenitore: Access ?),
e anche, importante per quanto descritto, CHI contiene i record da mantenere

SE Access fa da contenitore
e quindi riceve record da Excel (dove si registrano, modificano e cancellano),

io farei questo (query di comando in successione):

1) cancellare in Access TUTTI i record ora assenti in Excel
2) cancellare in Access TUTTI i record ora presenti in Excel
3) accodare TUTTI i record di Excel in Access

SE questo va bene è da dettagliare meglio il punto 1
(e comunque occorre unire le query di comando in una transazione)


title: bottone chiusura finestra Access

author: annilux

text:
Ciao a tutti
cerco di usare la funzione presente nel sito Comune nella sezione General
per rimuovere il pulsante di chiusura (X),
ma mi restituisce "Errore di run-time '6': Overflow".
Qualcuno sa dirmi xfavore cosa posso aver sbagliato!


title: bottone chiusura finestra Access

author: Antonio Biso

text:
"annilux" <
ann...@libero.it
> ha scritto nel messaggio
news:1Iyib.34027$e6.12...@twister2.libero.it...

Se mi ricordo bene quella cosa funzionava solo fino alla versione 97.
Tu che c'hai?
Antonio


title: bottone chiusura finestra Access

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Gnzib.32146$vO5.1...@twister1.libero.it...

access2000


title: bottone chiusura finestra Access

text:
annilux <
ann...@libero.it
> wrote in message
Upzib.32155$vO5.1...@twister1.libero.it...

Imposta la proprietą "pulsante di chiusura" della maschera a "no"
dovrebbe funzionare
ciao
Dario


title: bottone chiusura finestra Access

text:
"Dario84" <
da...@romagnacom.com
> ha scritto nel messaggio
news:DGzib.209555$hE5.7...@news1.tin.it...

Si hai ragione questo gią lo faccio con tutte le altre Form, perņ io lo
vorrei fare sulla finestra del database di Access per impedire agli
utilizzatori di uscire in quel modo
ciao
Luca


title: bottone chiusura finestra Access

text:
annilux <
ann...@libero.it
> wrote in message
qPzib.34247$e6.12...@twister2.libero.it...
>
> "Dario84" <
da...@romagnacom.com
> ha scritto nel messaggio
> news:DGzib.209555$hE5.7...@news1.tin.it...
> >
> > annilux <
ann...@libero.it
> wrote in message
> > Upzib.32155$vO5.1...@twister1.libero.it...
> > >
> > > "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> > > news:Gnzib.32146$vO5.1...@twister1.libero.it...
> > > > "annilux" <
ann...@libero.it
> ha scritto nel messaggio
> > > > news:1Iyib.34027$e6.12...@twister2.libero.it...
> > > > > Ciao a tutti
> > > > >
> > > > > cerco di usare la funzione presente nel sito Comune nella sezione
> > > General
> > > > > per rimuovere il pulsante di chiusura (X),
> > > > > ma mi restituisce "Errore di run-time '6': Overflow".
> > > > >
> > > > > Qualcuno sa dirmi xfavore cosa posso aver sbagliato!
> > > >
> > > > Se mi ricordo bene quella cosa funzionava solo fino alla versione
97.
> > > > Tu che c'hai?
> > > >
> > > > Antonio
> > > >
> > > access2000
> > >
> > >
> >
> > Imposta la proprietà "pulsante di chiusura" della maschera a "no"
> > dovrebbe funzionare
> > ciao
> > Dario
> >
> Si hai ragione questo già lo faccio con tutte le altre Form, però io lo
> vorrei fare sulla finestra del database di Access per impedire agli
> utilizzatori di uscire in quel modo
> ciao
> Luca
>
>
>
>
>
Premesso che sono un principiante e non conosco bene access:
non ho capito se devi far sparire la "x" dalla finestra di access o da
quella del database, ma se è quella del database che devi far sparire forse
sarebbe sufficiente fare in modo che la maschera aperta copra la finestra
del database, in modo che anche se la "x" c'è, non si vede.
ti ricordo però che sono un novellino, e potrei averti detto una cavolata.
comunque ciao
Dario


title: bottone chiusura finestra Access

text:
"Dario84" <
da...@romagnacom.com
> ha scritto nel messaggio
news:XWzib.209630$hE5.7...@news1.tin.it...

Scusami Dario ma avrei bisogno di una soluzione un po più drastica, anche se
a volte anch'io ho risolto alcune cose con scorciatoie semplici ma efficaci.
Rinnovo comunque la mia richiesta al Newsgroup
Grazie e ciao
Luca


title: bottone chiusura finestra Access

text:
"Dario84" <
da...@romagnacom.com
> ha scritto nel messaggio
news:XWzib.209630$hE5.7...@news1.tin.it...
>
> ti ricordo però che sono un novellino, e potrei averti detto una cavolata.
Dario....
la prima e la seconda che hai detto...
Per la cronaca la finestra database che dici tu è quella che contiene gli
oggetti di database.
Quella che dice lui, è la finestra windows che contiene tutto l'mdb.
Per togliere la x da quella non credo ci sia la versione a2000 in giro
Antonio


title: bottone chiusura finestra Access

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:PaAib.32296$vO5.1...@twister1.libero.it...

...esatto, comunque grazie Antonio
Luca


title: bottone chiusura finestra Access

author: Cane Randagio

text:
"annilux" <

I problemi li da solo con sistemi operativi di tipo NT.
La variabile che ti da overflow ... dimensionala al Long.
Bye


title: bottone chiusura finestra Access

author: Leonardo

text:
"Dario84" <
da...@romagnacom.com
> ha scritto nel messaggio
news:XWzib.209630$hE5.7...@news1.tin.it...

Questa funziona con tutte le versioni...
Copia il seguente testo in un modulo:
Option Compare Database
Option Explicit
Private Declare Function SendMessage Lib "user32" _
 Alias "SendMessageA" _
 (ByVal hWnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
 Alias "SetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
 Alias "GetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long) As Long
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WM_NCPAINT = &H85
Public Sub ShowAccessBtn(ShowIt As Boolean)
    On Error GoTo Errors
    Dim lngOldStyle As Long
    Dim lngNewStyle As Long
    Dim mhWnd As Long
    mhWnd = Application.hWndAccessApp
    'Legge il valore attuale
    lngOldStyle = GetWindowLong(mhWnd, GWL_STYLE)
    If ShowIt Then
        lngNewStyle = lngOldStyle Or WS_SYSMENU
    Else
        lngNewStyle = lngOldStyle And Not WS_SYSMENU
    End If
    'Questa è l'unica Funzione indispensabile
    'che esegue realmente il comando Hide/Show
    'dei Pulsanti
    Call SetWindowLong(mhWnd, GWL_STYLE, lngNewStyle)
    'Manda un Repaint alla Finestra di Access
    Call SendMessage(mhWnd, WM_NCPAINT, 1, 0)
ExitHere:
    Exit Sub
Errors:
   MsgBox Err.Description, vbCritical, "Errore n° = " & Err.Number
   Resume ExitHere
End Sub
-Sulla prima maschera che  apri devi mettere
Private Sub Form_Current()
Dim s As Boolean
  ShowAccessBtn s
   s = Not s
End Sub
Leonardo


title: bottone chiusura finestra Access

text:
"Leonardo" <
teb...@libero.it
> ha scritto nel messaggio
news:4oAib.32348$vO5.1...@twister1.libero.it...

miiiiiiiticooooooooo Leonardo ... funziona perfettamente
Grazie 100000
Ciao
Luca


title: bottone chiusura finestra Access

author: MA

text:
> Questa funziona con tutte le versioni...
>
[CUT]
>
> Leonardo
Ah Leonardo, cita la fonte... allegato a Access 2000 Jackson libri (non
ricordo l'autore)
MAssimiliano
p.s. A proposito, in "Non ci resta che piangere" hai capito perchè il
caminetto, pur mettendoci dentro la legna,
non va?


title: bottone chiusura finestra Access

author: ALESSANDRO Baraldi

text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:UYMib.8418$uv4....@news.edisontel.com...
> > Questa funziona con tutte le versioni...
> >
> [CUT]
> >
> > Leonardo
>
> Ah Leonardo, cita la fonte... allegato a Access 2000 Jackson libri (non
> ricordo l'autore)
>
> MAssimiliano
>
Dai MA..... è una vita che lo giri anche tu il CD della JK, ma
ancora non hai capito come aprirlo......!!!!
;-)
@Alex.


title: bottone chiusura finestra Access

text:
> > > Questa funziona con tutte le versioni...
> > >
> > [CUT]
> > >
> > > Leonardo
> >
> > Ah Leonardo, cita la fonte... allegato a Access 2000 Jackson libri (non
> > ricordo l'autore)
> >
> > MAssimiliano
> >
>
> Dai MA..... è una vita che lo giri anche tu il CD della JK, ma
> ancora non hai capito come aprirlo......!!!!
>
> ;-)
>
> @Alex.
>
Ma che dici, è tutto di un pezzo non si apre... o almeno hanno nascosto
benissimo il pulsante!?!
MAssimiliano


title: bottone chiusura finestra Access

author: Alessandro Baraldi

text:
"MA" <
keiko...@libero.it
> wrote in message
news:hc6jb.8823$
uv4....@news.edisontel.com
> > > [CUT]
> > Dai MA..... è una vita che lo giri anche tu il CD della JK, ma
> > ancora non hai capito come aprirlo......!!!!
> >
> > ;-)
> >
> > @Alex.
> >
> Ma che dici, è tutto di un pezzo non si apre... o almeno hanno nascosto
> benissimo il pulsante!?!
> MAssimiliano
He..He...!
Allora il tuo è COPIATO, il mio ha il CommandButton nella parte
superiore con l'icona....!!!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [OT] Vedo i messaggi con moltissimo ritardo (precisazione)

author: Roberto da casa

text:
Altra stranezza: il messaggio di Zappus inviato oggi alla 11:31 e che ha per
oggetto "Stampare un numero fisso di righe" l'ho visto mooooolto dopo del
massaggio di risposta di sergio inviato alle ore 13:51.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Alessandro Cara

text:
Roberto da casa wrote:
>
> Altra stranezza: il messaggio di Zappus inviato oggi alla 11:31 e che ha per
> oggetto "Stampare un numero fisso di righe" l'ho visto mooooolto dopo del
> massaggio di risposta di sergio inviato alle ore 13:51.
voi nun pagate! e come per il telefono non paghi la bolletta? ricevi ma non
telefoni.
Devo dire che da quando uso
CIS.DFN.DE
 mai un problema. Ahh.. sti tedeschi!
--
a.cara
Togli qualcosa dall'email


author: cidi

text:
Roberto da casa ha scritto:
> Altra stranezza: il messaggio di Zappus inviato oggi alla 11:31 e che ha per
> oggetto "Stampare un numero fisso di righe" l'ho visto mooooolto dopo del
> massaggio di risposta di sergio inviato alle ore 13:51.
Ciao Roberto
confermo momento NO dei server. Non riesco a collegarmi con
news.tin.it
;
vedo solo i titoli di quelli fino alle 18.31 ma non posso scaricarli.
adesso sono le 20.00 voglio vedere quando arriverŕ.
Ciao Daniele
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: sergio

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:uJaTb.6468$Mt6.2...@twister2.libero.it...
> Altra stranezza: il messaggio di Zappus inviato oggi alla 11:31 e che ha
per
> oggetto "Stampare un numero fisso di righe" l'ho visto mooooolto dopo del
> massaggio di risposta di sergio inviato alle ore 13:51.
>
Io recentemente ho modificato il news.server da
news.tin.it
 a 151.99.250.3
(news.interbusiness)...
prova anche tu...
ciao sergio


title: Nomi che cominciano con spazio

author: Greg

text:
Buon Anno a tutti :)

Se devo cercare tutti i nomi che cominciano per N con la like uso 'N*'
Ma se voglio cercare tutti quelli che cominciano con spazio come glielo devo passare?
' *' non sortisce nulla

Grazie

--
Greg


title: Nomi che cominciano con spazio

text:
Usa Instr o left se si tratta di char iniziale.

@Alex


title: Nomi che cominciano con spazio

text:
Il 18/01/19 22:57:01 @Alex ha scritto:
> Usa Instr o left se si tratta di char iniziale.

Ho dimenticato di dire che il db è un Access 2000 e non supporta queste funzioni nella query

--
Greg


title: Nomi che cominciano con spazio

text:
Il 18/01/19 22:27:57 Greg ha scritto:

No problem, colpa mia, scrivevo male il nome del campo :(

--
Greg


title: Nomi che cominciano con spazio

text:

A chiarimento, le Funzioni indicate funzionano nelle Query di Access da quando è nato.

@Alex


title: Nomi che cominciano con spazio

text:
Il 19/01/19 12:24:46 @Alex ha scritto:

Allora devo riprovare, verranno utili in futuro. Mi ero fermato al primo errore perchè avevo letto che sono funzioni di
T-SQL dalla tal versione in poi; non c'entra nulla a quanto pare

--
Greg


title: Nomi che cominciano con spazio

text:
Greg... direi di fermarsi per tempo...T-SQL ed Access non sono nemmeno parenti... Non fare confusione.
Le funzioni che ti ho indicato sono di Access e come tali risolte da JET.

@Alex


title: Nomi che cominciano con spazio

text:
Il 19/01/19 19:04:35 @Alex ha scritto:
> Greg... direi di fermarsi per tempo...T-SQL ed Access non sono nemmeno parenti... Non fare confusione.
> Le funzioni che ti ho indicato sono di Access e come tali risolte da JET.
>
> @Alex

Ok, grazie :)

--
Greg


title: test

author: beginner

text: abc


title: Valore predefinito

author: Pino uff.

text:
Ciao a tutti,
Questa formula,
="C" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("RiferimentoFattura";
"Ordini";"RiferimentoFattura like '?" & Format(Date();"aa") & "/????'"));
100;Right(DMax("RiferimentoFattura";"Ordini";"RiferimentoFattura like '?"
& Format(Date();
"aa") & "/????'");4)+1);"0000")
L`ho inserita in,  dati, Valore predefinito per incrementare
progressivamente il numero fattura e
funziona benisimo (presa dal sito comune).
Domanda, c'è la possibilitä di farla funzionare anche sotto  qualche
evento, tipo evento Clic?
Grazie Pino
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Valore predefinito

author: ciroteo

text:
"Pino uff." <
mi...@msn.com
> ha scritto nel messaggio
news:dmesrs$nhn$1...@news.newsland.it...
> Ciao a tutti,
> Questa formula,
> ="C" & Format(Date();"aa") & "/" &
> Format(IIf(IsNull(DMax("RiferimentoFattura";
> "Ordini";"RiferimentoFattura like '?" & Format(Date();"aa") & "/????'"));
> 100;Right(DMax("RiferimentoFattura";"Ordini";"RiferimentoFattura like '?"
> & Format(Date();
> "aa") & "/????'");4)+1);"0000")
> L`ho inserita in,  dati, Valore predefinito per incrementare
> progressivamente il numero fattura e
> funziona benisimo (presa dal sito comune).
> Domanda, c'è la possibilitä di farla funzionare anche sotto  qualche
> evento, tipo evento Clic?
> Grazie Pino
>
Certo! L'unica cosa è che devi stare attento a modificare la "formula"
secondo le specifiche di VBA, e quindi evitare il punto e virgola, al suo
posto ci vuole la virgola, e devi stare attento agli apici singoli  e doppi
e ad eventuali parentesi quadre.
Togli il default value dalla finestra delle proprietà del controllo, crea un
pulsante e mettici all'eveno click
me.nomecontrollo= ...tua funzione debitamente corretta....
La stessa cosa del default value la puoi settare all'apertura della maschera
quando inserisci nuovi records.


title: Valore predefinito

text:
ciroteo ha scritto:


Grazie ciroteo, questa sera ci provo



title: passaggio da 97 a 2000 con errori?

author: Marcello Anselmi Tamburini

text:
Ho un database creato in 2000 in cui ho importato alcune query da un database
creato in 97. Quando lancio le query mi da questo errore: alias non valido.
Come posso aggirare l'ostacolo?
Grazie.
--
Posted from  [217.27.80.67]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: passaggio da 97 a 2000 con errori?

author: Paj

text:
"Marcello Anselmi Tamburini" <
marcello....@gmx.net
> ha scritto nel
messaggio news:5dc277f3c0ed71fd803...@mygate.mailgate.org...

Cambiando il nome sbagliato dato alla colonna
L'Alias e' il nome che prende la colonna tramite il transact sql "as"
Es. select nome, cognome, cavoli as miacolonna from ........blablabla
In questo caso miacolonna dara' il nome alla colonna
Nel tuo caso uno di questi nomi e' sbagliato o e' duplicato (ci sono due
nomi uguali)
Pietro


title: passaggio da 97 a 2000 con errori?

text:
Vabbé, ma perché in 97 funzionava?



title: collegamento a una cartella anzichè ad un file

author: Mia

text:
Come faccio per aprire una data cartella dove ho dei files .txt fra cui
scegliere?
Il mio problema è che con un bottone devo aprire una directory (cartella)
dove ho dei .txt e scegliere manualmente quale txt aprire ma non voglio
dover cercare ogni volta quella cartella... mi sono spiegata bene o mica
tanto?  ... grazie
Mia


author: Federico Luciani

text:

nel sito comune trovi la faq:
'Richiamare la finestra di dialogo per la selezione di un file.'
ti basta modificare la funzione per fare quello che chiedi.
le modifiche sono:
...
sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
...
OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
OpenFile.lpstrTitle = "Seleziona file di testo"
...
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3B6982C0...@sitocomune.com...
> Mia wrote:
> > Come faccio per aprire una data cartella dove ho dei files .txt fra cui
> > scegliere?
> > Il mio problema è che con un bottone devo aprire una directory
(cartella)
> > dove ho dei .txt e scegliere manualmente quale txt aprire ma non voglio
> > dover cercare ogni volta quella cartella... mi sono spiegata bene o mica
> > tanto?  ... grazie
> > Mia
>
> nel sito comune trovi la faq:
> 'Richiamare la finestra di dialogo per la selezione di un file.'
>
> ti basta modificare la funzione per fare quello che chiedi.
>
> le modifiche sono:
>
> ...
> sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
> ...
> OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
> OpenFile.lpstrTitle = "Seleziona file di testo"
> ...
>
> --
> Federico
> Sito Comune di it.comp.appl.access
>
http://www.sitocomune.com
Grazie Federico, ma non trovo le FAQ sul sito comune!!! le sto cercando ...


text:
"Mia" <
abe...@libero.it
> ha scritto nel messaggio
news:BKfa7.91352$Pb6.5...@news1.tin.it...

TROVATO !!! E' sotto General e il titolo è "Richiamare la finestra di
dialogo per la selezione di una directory."
GRAZIE
Mia


text:
> > Mia wrote:
> > > Come faccio per aprire una data cartella dove ho dei files .txt fra
cui
> > > scegliere?
> > > Il mio problema è che con un bottone devo aprire una directory
> (cartella)
> > > dove ho dei .txt e scegliere manualmente quale txt aprire ma non
voglio
> > > dover cercare ogni volta quella cartella... mi sono spiegata bene o
mica
> > > tanto?  ... grazie
> > > Mia
> >
> > nel sito comune trovi la faq:
> > 'Richiamare la finestra di dialogo per la selezione di un file.'
> >
> > ti basta modificare la funzione per fare quello che chiedi.
> >
> > le modifiche sono:
> >
> > ...
> > sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
> > ...
> > OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
> > OpenFile.lpstrTitle = "Seleziona file di testo"
> > --
> > Federico
> > Sito Comune di it.comp.appl.access
> >
http://www.sitocomune.com
>
>
OK fatto tutto però adesso ... mi si apre la cartella che voglio ma non
riesco ad APRIRE il file che seleziono!
Mia
p.s. sono o non sono un genio?


text:

> > > Federico
> > > Sito Comune di it.comp.appl.access
> > >
http://www.sitocomune.com
> >
> TROVATO !!! E' sotto General e il titolo è "Richiamare la finestra di
> dialogo per la selezione di una directory."
non e' quella!
quella serve a selezionare una dir e non un file.
si trova nella stessa sezione.
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


text:

cosa intenti per APRIRE?
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


text:
> > > > Mia wrote:
> > > > > Come faccio per aprire una data cartella dove ho dei files .txt
fra cui
> > > > > scegliere? Il mio problema è che con un bottone devo aprire una
directory
> > > (cartella) dove ho dei .txt e scegliere manualmente quale txt aprire
ma non
> > voglio dover cercare ogni volta quella cartella... mi sono spiegata bene
o
> > mica tanto?  ... grazie  Mia
> > > >
> > > > nel sito comune trovi la faq:
> > > > 'Richiamare la finestra di dialogo per la selezione di un file.'
> > > > ti basta modificare la funzione per fare quello che chiedi.
> > > > le modifiche sono:
> > > > ...
> > > > sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
> > > > ...
> > > > OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
> > > > OpenFile.lpstrTitle = "Seleziona file di testo"
> > > > --
> > > > Federico
> > >
> > OK fatto tutto però adesso ... mi si apre la cartella che voglio ma non
> > riesco ad APRIRE il file che seleziono! Mia
>
> cosa intenti per APRIRE?
> --
> Federico
Intendo "apri file" aprirlo per leggerlo e/o modificarlo e poi chiuderlo e
salvarlo ecc. La  procedura 'Richiamare la finestra di dialogo per la
selezione di un file' (e non di directory ;) mi apre una finestra di dialogo
del tutto simile a quella usata per aprire i files ma se seleziono un file
per aprirlo ("Apri") la finestra si chiude senza aprire il file. Credo che
quella procedura serva a salvare in una variabile la stringa del percorso
del file selezionato. A me bastava aprire un notepad che quando seleziono
"file" - "apri" di default si aprisse sulla mia directory desiderata per
aprire poi un file manualmente, non mi serviva lavorare sul percorso.
ciao ... spero tu sappia la risposta perchè sono ferma!
Mia
P.S. Forse sbaglio io a impostare la procedura nel codice; dimmi se ho
sbagliato: ho copiato pari pari tutte le istruzioni di "Richiamare la
finestra..." in un modulo ( le istruzioni si compongono di dichiarazioni e
di una funzione) e poi ho richiamato la funzione dal bottone 162 in una
maschera con l'istruzione
Private Sub Comando162_Click()
cmdlg_file    'nome della funzione
End Sub
Al click del bottone 162 si apre una maschera che, come ho detto prima,
quando seleziono il file desiderato scompare e non succede altro. ... HELP!


text:
> > > > Mia wrote:
> > > > > Come faccio per aprire una data cartella dove ho dei files .txt
fra cui
> > > > > scegliere? Il mio problema è che con un bottone devo aprire una
directory
> > > (cartella) dove ho dei .txt e scegliere manualmente quale txt aprire
ma non
> > voglio dover cercare ogni volta quella cartella... mi sono spiegata bene
o
> > mica tanto?  ... grazie  Mia
> > > >
> > > > nel sito comune trovi la faq:
> > > > 'Richiamare la finestra di dialogo per la selezione di un file.'
> > > > ti basta modificare la funzione per fare quello che chiedi.
> > > > le modifiche sono:
> > > > ...
> > > > sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
> > > > ...
> > > > OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
> > > > OpenFile.lpstrTitle = "Seleziona file di testo"
> > > > --
> > > > Federico
> > >
> > OK fatto tutto però adesso ... mi si apre la cartella che voglio ma non
> > riesco ad APRIRE il file che seleziono! Mia
>
> cosa intenti per APRIRE?
> --
> Federico
Intendo "apri file" aprirlo per leggerlo e/o modificarlo e poi chiuderlo e
salvarlo ecc. La  procedura 'Richiamare la finestra di dialogo per la
selezione di un file' (e non di directory ;) mi apre una finestra di dialogo
del tutto simile a quella usata per aprire i files ma se seleziono un file
per aprirlo ("Apri") la finestra si chiude senza aprire il file. Credo che
quella procedura serva a salvare in una variabile la stringa del percorso
del file selezionato. A me bastava aprire un notepad che quando seleziono
"file" - "apri" di default si aprisse sulla mia directory desiderata per
aprire poi un file manualmente, non mi serviva lavorare sul percorso.
ciao ... spero tu sappia la risposta perchè sono ferma!
Mia
P.S. Forse sbaglio io a impostare la procedura nel codice; dimmi se ho
sbagliato: ho copiato pari pari tutte le istruzioni di "Richiamare la
finestra..." in un modulo ( le istruzioni si compongono di dichiarazioni e
di una funzione) e poi ho richiamato la funzione dal bottone 162 in una
maschera con l'istruzione
Private Sub Comando162_Click()
cmdlg_file    'nome della funzione
End Sub
Al click del bottone 162 si apre una maschera che, come ho detto prima,
quando seleziono il file desiderato scompare e non succede altro.
please... HELP!


text:
Mia wrote:
> > > > > Mia wrote:
> > > > > > Come faccio per aprire una data cartella dove ho dei files .txt
> fra cui
> > > > > > scegliere? Il mio problema č che con un bottone devo aprire una
> directory
> > > > (cartella) dove ho dei .txt e scegliere manualmente quale txt aprire
> ma non
> > > voglio dover cercare ogni volta quella cartella... mi sono spiegata bene
> o
> > > mica tanto?  ... grazie  Mia
> > > > > nel sito comune trovi la faq:
> > > > > 'Richiamare la finestra di dialogo per la selezione di un file.'
> > > > > ti basta modificare la funzione per fare quello che chiedi.
> > > > > le modifiche sono:
> > > > > ...
> > > > > sFilter = "File di testo (*.txt)" & Chr(0) & "*.txt" & Chr(0)
> > > > > ...
> > > > > OpenFile.lpstrInitialDir = "C:\SCRIVICITUADIRECTORY"
> > > > > OpenFile.lpstrTitle = "Seleziona file di testo"
> > > > > --
> > > > > Federico
> > > >
> > > OK fatto tutto perň adesso ... mi si apre la cartella che voglio ma non
> > > riesco ad APRIRE il file che seleziono! Mia
> >
> > cosa intenti per APRIRE?
> > --
> > Federico
>
> Intendo "apri file" aprirlo per leggerlo e/o modificarlo e poi chiuderlo e
> salvarlo ecc. La  procedura 'Richiamare la finestra di dialogo per la
> selezione di un file' (e non di directory ;) mi apre una finestra di dialogo
> del tutto simile a quella usata per aprire i files ma se seleziono un file
> per aprirlo ("Apri") la finestra si chiude senza aprire il file. Credo che
> quella procedura serva a salvare in una variabile la stringa del percorso
> del file selezionato.
Infatti serve proprio a quello.
> A me bastava aprire un notepad che quando seleziono
> "file" - "apri" di default si aprisse sulla mia directory desiderata per
> aprire poi un file manualmente, non mi serviva lavorare sul percorso.
> ciao ... spero tu sappia la risposta perchč sono ferma!
> Mia
> P.S. Forse sbaglio io a impostare la procedura nel codice; dimmi se ho
> sbagliato: ho copiato pari pari tutte le istruzioni di "Richiamare la
> finestra..." in un modulo ( le istruzioni si compongono di dichiarazioni e
> di una funzione) e poi ho richiamato la funzione dal bottone 162 in una
> maschera con l'istruzione
>
> Private Sub Comando162_Click()
> cmdlg_file    'nome della funzione
> End Sub
>
> Al click del bottone 162 si apre una maschera che, come ho detto prima,
> quando seleziono il file desiderato scompare e non succede altro. ... HELP!
Modifica in questo modo:
Private Sub Comando162_Click()
  dim strNomeFile as string
  strNomeFile = cmdlg_file
  if strNomeFile <> "" then
     Shell "Notepad.exe " & strNomeFile, vbNormalFocus
  end if
End Sub



text:
> Modifica in questo modo:
>
> Private Sub Comando162_Click()
>   dim strNomeFile as string
>   strNomeFile = cmdlg_file
>   if strNomeFile <> "" then
>      Shell "Notepad.exe " & strNomeFile, vbNormalFocus
>   end if
> End Sub
>
> --
> Federico
>
Grazie ... funziona! Sono proprio una principiante vero? Tu come hai
imparato?
Grazie ancora
Mia


text:

Studiando prima di tutto l'help ;-))



title: Istruzione If nei Report

author: Luigi

text:
Buon Giorno Access97
...ho un controllo in report collegato ad una tabella
con tipo/dati Sě/No chiamato Mensile...
Bene voglio che in report se Mensile= -1 l'etichetta37 ed il controllo
[Euro] sia visible
se  e' uguale a 0 tutti e due invisibili.... ho provato con l'If nel Report
ad apertura ma mi da' errore in debug....
come posso fare???
Grazie
Luigi
Bari


title: Istruzione If nei Report

author: Neo

text:
"Luigi" <
luigic...@hotmail.com
> ha scritto nel messaggio
news:SPWcb.172435$R32.5...@news2.tin.it...

inserisci il tuo codice VBA nell'evento "Su formattazione" della sezione
interessata dai due controlli


title: ordinamento impazzito!!!!!

author: Luc Lucc

text:
Access97. Ho un db di circa 3.500 Kb.
Non mi esegue più un accodamento di record in una tabella Repertorio.
Apro questa tabella e vedo che contiene 2759 record. Se provo a fare un
ordinamento crescente su IdRepertorio i record improvvisamente mi
diventano 2741 mentre se provo a fare un ordinamento decrescente i
record (tutti!!!!) mi spariscono.
Che cavolo sta succedendo? Come posso provare a risolverlo?
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ordinamento impazzito!!!!!

author: Giorgio Benedetti

text:
"Luc Lucc" <
lucia...@hotmail.com
> ha scritto nel messaggio
news:47012783720f1420533...@mygate.mailgate.org...

Prova a recuperare il database. Se così non va a posto, prova ad esportare
la tabella in un file esterno, creala vuota ex novo e reimporta i dati.
Giorgio


title: Struttura a schede

author: Leo

text:
Ho due tabelle in relazione 1 a 1:
 IDCliente      1-----1   IDCliente
 CODCliente                Indirizzo
 NomeDitta                   PI
                                     ecc......
Vorrei dividere in dati anche nella
rappresentazione grafica,
mettendoli in due pagine diverse usando una
struttura a schede su una maschera associata
alla prima tabella.
Come posso fare?
TIA
--
Leo


title: Struttura a schede

author: Roberto da casa

text:
"Leo" <
leo_...@libero.it
> ha scritto nel messaggio
news:3b1bb...@news.dada.it...

In una scheda ci metti i controlli associati ai campi dell'oggetto che è
origine record della maschera (CODCliente, NomeDitta ecc.); in un'altra
scheda inserisci una sottomaschera che ha come origine record l'altra
tabella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query e funzioni VBA

text:
Vorrei selezionare tramite una query solo determinati valori di ID che
calcolo tramite una funzione VBA, ma non riesco a far funzionare l'unione
dei due. Quando i valori da restituire sono multipli Jet va in errore. Ho
provato a far restituire vari tipi di stringa ("1 or 2","In (1;2)") alla
funzione vba, ma senza risultati.
Uso un metodo sbagliato o devo usare qualche accorgimento?
Grazie
--------------------------------
Inviato via
http://usenet.libero.it


title: Query e funzioni VBA

text:
"Carlos67" <
carl...@iol.it
> ha scritto nel messaggio
news:146Z133Z13Z35Y1...@usenet.libero.it...
> Vorrei selezionare tramite una query solo determinati valori di ID che
> calcolo tramite una funzione VBA, ma non riesco a far funzionare l'unione
> dei due. Quando i valori da restituire sono multipli Jet va in errore. Ho
> provato a far restituire vari tipi di stringa ("1 or 2","In (1;2)") alla
> funzione vba, ma senza risultati.
> Uso un metodo sbagliato o devo usare qualche accorgimento?
> Grazie
Prova a spiegare meglio il tuo problema e a postare il codice SQL dell query
che vorresti usare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query e funzioni VBA

text:
Il problema fondamentale consiste nel passare dei valori alla query tramite
il VBA.
Il codice SQL è questo:
SELECT TTitoli.Data, TTitoli.Nome, TTitoli.Valore, TTitoli.ID
FROM TTitoli
WHERE (((TTitoli.ID)=PeriodiReportzz()));
Dove PeriodiReportzz() è la funzione VBA che restituisce una stringa del
tipo:
"10 or 11 or 12" oppure o provato anche "IN (10;11;12)".
Tutte e due le forme digitate manualmente nel campo criteri della query
danno il risultato voluto.
Spero di aver spiegato bene il problema e ringrazio tutti per l'aiuto
gentilemnte offertomi.
Ciao



title: Query e funzioni VBA

author: Antonio Biso

text:
"Carlos67" <
carl...@iol.it
> ha scritto nel messaggio
news:146Z133Z13Z35Y1...@usenet.libero.it...
> Il problema fondamentale consiste nel passare dei valori alla query
tramite
Il problema fondamentale è quello che non lasci parte del messaggi oa cui
rispondi!!!!
> il VBA.
> Il codice SQL è questo:
> SELECT TTitoli.Data, TTitoli.Nome, TTitoli.Valore, TTitoli.ID
> FROM TTitoli
> WHERE (((TTitoli.ID)=PeriodiReportzz()));
>
> Dove PeriodiReportzz() è la funzione VBA che restituisce una stringa del
> tipo:
> "10 or 11 or 12" oppure o provato anche "IN (10;11;12)".
Guarda che se da QBE scrivi in (10;11;12), in SQL poi lui te lo trasforma in
IN (10,11,12)
Inoltre la sintassi dell'OR vuole che tu ripeta il campo da testare tutte le
volte (direi che questa è una costante della programmazione)
NON A = 1 OR 2 OR 3 ma piuttosto
A = 1 OR A = 2 OR A = 3
Antonio


title: Query e funzioni VBA

text:
Ok, ma come faccio a superare il problema?
la sintassi A = 1 OR A = 2 OR A = 3 non viene accettata dalla query ne
manualmente e tantomeno da VBA.
Anch'io penso che il problema sia sintattico, ma non riesco a trovare la
strada giusta.
Forse ho scelto la via sbagliata!!!
Grazie comunque.
ciao



title: Query e funzioni VBA

author: Karl Donaubauer

text:
Carlos67 schrieb:
> Il problema fondamentale consiste nel passare dei valori alla query
> tramite il VBA.
> Il codice SQL è questo:
> SELECT TTitoli.Data, TTitoli.Nome, TTitoli.Valore, TTitoli.ID
> FROM TTitoli
> WHERE (((TTitoli.ID)=PeriodiReportzz()));
>
> Dove PeriodiReportzz() è la funzione VBA che restituisce una stringa del
> tipo:
> "10 or 11 or 12" oppure o provato anche "IN (10;11;12)".
> Tutte e due le forme digitate manualmente nel campo criteri della query
> danno il risultato voluto.
Non é possibile di inviare un operatore o un separatore con una
funzione di VBA perché tutta l'espressione é interpretato come
un singolo testo. Allora compari il campo ID con il testo completo
"IN (10;11;12)" non con uno dei valori all interno del testo.
Invece puoi costruire lo string SQL del query completamente con
VBA e poi usarelo per cambiare la proprità SQL della query. p.e.
Dim TuaVariabile As String
TuaVariabile = "IN(10, 11, 12)"
CurrentDb.QueryDefs("TuaQuery").SQL = _
 "SELECT TTitoli.Data, TTitoli.Nome, TTitoli.Valore, TTitoli.ID " & _
 "FROM TTitoli " & _
 "WHERE TTitoli.ID " & TuaVariabile
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Query e funzioni VBA

text:

Ok, funziona egregiamente.
Grazie a tutti per i preziosi consigli.



title: Adattare calcolo Codice Fiscale access 97 al 2002

author: Atanas

text:
Sul Sito Comune ho trovato il DB che calcola il codice fiscale, solo che č
fatto con una versione precedente di access...
Come posso adattare il DB 97 ad una versione piů recente, ad esempio Access
2002 ??


text:
"Atanas" <
rifnet...@tariffenet.it
> ha scritto nel messaggio
news:l%W09.1317$L12.1...@news.edisontel.com...
> Sul Sito Comune ho trovato il DB che calcola il codice fiscale, solo che è
> fatto con una versione precedente di access...
> Come posso adattare il DB 97 ad una versione più recente, ad esempio
Access
> 2002 ??
Hai provato ad aggingere ai riferimenti del tuo database i riferimenti alle
librerie DAO; fai in modo che nell'elenco dei riferimenti il riferimento
alle librerie DAO preceda il riferimento alle librerie ADO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: utilizzare allowadditions in sottomaschera

text:
come lo uso? cosi mi da errore
        Forms("aziendali")!Form("AziendaliPersonale").AllowAdditions = True
mi dice che non è una proprietà valida
grazie.


author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:chl8l2$qfe$1...@lacerta.tiscalinet.it...
> come lo uso? cosi mi da errore
>
>         Forms("aziendali")!Form("AziendaliPersonale").AllowAdditions =
True
>
> mi dice che non č una proprietą valida
>
> grazie.
[RISPOSTA]
Presumendo che:
    "aziendali"                     sia la Form principale
    "AziendaliPersonale"     la SubForm
Forms!aziendali!AziendaliPersonale.Form.AllowAdditions = True
se perņ sei nella Form principale il codice puņ essere abbreviato:
Me!AziendaliPersonale.Form.AllowAdditions = True
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Visualizzazioni Report

author: Marco

text:
Salve a tutti,
ho una domanda un pochino banale forse, ma non riesco a trovare la
soluzione.
Volevo fare in modo che quando utilizzo un report non sia disponibile il
menů che compare col tasto destro del mouse. Come faccio x le maschere
volevo settare su "no" l'opzione "menů scelta rapida" e poi l'opzione
"Consenti modifiche struttura" su "solo visualizzazione struttura".
Il mio problema č che queste opzioni non sono presenti nei report, vuol dire
forse che non si puň fare o c'č un altro modo?
Ciao e grazie


title: A97 - Common Dialog - Proprietà o metodo non supportati dall'oggetto

author: Eugenio

text:
Acces97 - Common Dialog
In un database ci sono due maschere che devono esportare il contenuto di una
tabella in un file di Excel.
Prima di esportare i dati nei files di Excel, tramite il Common Dialog viene
chiesto in quale directory devono essere salvati i files di Excel.
Succede che solo in un programma viene attivato l'oggetto che consente di
inserire il percorso del file, mentre nel secondo viene emessa la
segnalazione d'errore:
438 - Proprietà o metodo non supportati dall'oggetto.
Eppure Common Dialog è inserito in entrambe le maschere.
Cosa mi sfugge?
Grazie
Ciao
Eugenio


author: MA

text:

          La registrazione dell'ocx
MAssimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
> > Acces97 - Common Dialog
> >
> >
> > In un database ci sono due maschere che devono esportare il contenuto di
> una
> > tabella in un file di Excel.
> > Prima di esportare i dati nei files di Excel, tramite il Common Dialog
> viene
> > chiesto in quale directory devono essere salvati i files di Excel.
> > Succede che solo in un programma viene attivato l'oggetto che consente
di
> > inserire il percorso del file, mentre nel secondo viene emessa la
> > segnalazione d'errore:
> >
> > 438 - Proprietà o metodo non supportati dall'oggetto.
> >
> > Eppure Common Dialog è inserito in entrambe le maschere.
> >
> > Cosa mi sfugge?
> >
> > Grazie
> > Ciao
> > Eugenio
> >
>           La registrazione dell'ocx
> MAssimiliano
>
> --------------------------------
Purtroppo non dipende dalla registrazione dell'ocx, ma dal filtro (where)
dell'Origine Record. Infatti, togliendo il filtro, Common Dialog funziona.
Però ho necessità di usare il filtro per poter visualizzare solo i prodotti
di un fornitore. La form in questione, a differenza dell'altra che funziona,
è composta da maschere continue.
In attesa di trovare la soluzione del problema, ho provveduto ad aprire una
form e da lì confermare l'estrazione.
Grazie
Ciao
Eugenio


title: Apertura database

author: Marina F.

text:
Ho questo problema: una query mi crea  una tabella in un altro db che
essendo in esecuzione mi da errore questo errore: "impossibile usare
pippo.mdb" file già in uso è possibile ovviare a questo, tenendoli tutti e
due aperti:
Che funzione devo utilizzare eventualmente aprire il db pippo: sul sito
comune ho trovato questa ma non mi si apre.
 Dim dbs As Database
    Set dbs = OpenDatabase("mioDB.mdb", False, False, "; pwd=pippo")
    ' ci fate quel che volete
    Set dbs = Nothing
Grazie 1000.
--


title: apri ConboBox con tasto giù

author: Psq

text:
Vorrei sapere se č possibile aprire una Combobox tramite l'evento freccia
giů
anzichč cliccare con il mouse sulla finestra a bandeira
Vi seguo da un paio di anni (direi con poca costanza, ma con molto
interesse)
Grazie a tutti


title: apri ConboBox con tasto giù

author: Roberto

text:
Psq <
Ripa...@libero.it
> wrote in message
fkNX4.5977$VM3....@news.infostrada.it...

Una volta che la tua Combo č attiva, puoi aprirla con il tasto F4
ciao Roberto


title: apri ConboBox con tasto giù

text:
"Roberto" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LMNX4.6108$VM3....@news.infostrada.it...

 o anche con l'accoppiata Alt+freccia giů
--
Cordiali saluti
Nunzio Santini


title: apri ConboBox con tasto giù

author: Thierry Rega

text:
> > > Vorrei sapere se č possibile aprire una Combobox tramite l'evento
> freccia
> > > giů
> > > anzichč cliccare con il mouse sulla finestra a bandeira
> > >
> > > Vi seguo da un paio di anni (direi con poca costanza, ma con molto
> > > interesse)
> > >
> > > Grazie a tutti
> > >
> > >
> > >
> > Una volta che la tua Combo č attiva, puoi aprirla con il tasto F4
> >
> > ciao Roberto
> >
>  o anche con l'accoppiata Alt+freccia giů
Allora a questo punto un bel SendKeys (F4 o Alt+freccia giů) nell'evento
Invio , per es., fa aprire come per incanto il
contenuto della combo!
Ciao
Thierry


title: apri ConboBox con tasto giù

author: Carlo Ve

text:
Thierry Rega ha scritto nel messaggio
<8gsg4k$gac$
5...@pegasus.tiscalinet.it
>...

Allora perche' non risparmiarsi anche la fatica di digitare inserendo
sull'evento
"Su Attivato" della combo  me!nomecombo.DropDown cosiche' la combo si apra
da sola non appena
il cursore ci passi da quelle parti ?
Carlo Ve


title: apri ConboBox con tasto giù

author: Thierry REGA

text:
> Allora perche' non risparmiarsi anche la fatica di digitare inserendo
> sull'evento
>
> "Su Attivato" della combo  me!nomecombo.DropDown cosiche' la combo si apra
> da sola non appena
>
> il cursore ci passi da quelle parti ?
Yeah! Scusa l'ignoranza ma non conoscevo DropDown :-))
La mia conoscenza contiene ancora un bel pò di lacune, un pò come un
groviera!
Teoricamente dovrebbe andare bene. Dopo quando ho tempo lo provo anchio.
Ciao
Thierry


title: apri ConboBox con tasto giù

text:
Thierry REGA <
thier...@tiscalinet.it
> wrote in message
8h04ep$94b$1...@hermes.unipg.it...

scusate se non ho ringraziato subito (DropDown eccellente)
ho " Fuso il motore" del mio PC , la mia scheda madre mi ha abbandonato
ho dovuto sostituirla.
grazie - grazie - grazie


title: Errore 490

text:
Ho una routine:
Private Sub Documenti_contabili_DblClick(Cancel As Integer)
    link = CurrentProject.Path & "\00000000"
    strinput = link & "\" & Me.Documenti_contabili
    Application.FollowHyperlink strinput, , True
End Sub
facendo doppio click su documenti_contabili mi si deve aprire il file
che non sempre è presente. Ora vorrei che quando non si trova il file
mi apparisse un msgbox con le spiegazioni da me date e conseguente
uscita dalla sub,  e non la maschera con errore di runtime N° 490.
Grazie


title: Errore 490

text:


strinput = link & "\" & Me!Documenti_contabili
If Dir(strinput) <> "" Then
    Application.FollowHyperlink strinput, , True
Else
    MsgBox " le spiegazioni da te date"
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Errore 490

text:

Grazie mille


title: Sospendere l'esecuzione del codice

author: gg

text:
Salve a tutti, vorrei porre in piccolo quesito (naturalmente piccolo per
voi).
Ad un pulsante in una maschera devo fare eseguire una serie di query,
diciamo 10,  il codice è questo
  stDocName = "..........qry"
 DoCmd.OpenQuery stDocName, acNormal, acEdit
Dopo ogni query avrei la necessità di sospendere l'esecuzione del codice e
riprenderlo alla chiusura della finestra.
Chi mi puo suggerire una soluzione.
Grazie gianni


title: Sospendere l'esecuzione del codice

author: Sandro

text:
"gg" <
provach...@libero.it
> ha scritto nel messaggio
news:0GoRe.2845$O6.1...@news3.tin.it...

Ciao Gianni,
prova ad aprire la form in modalità acDialog:
DoCmd.OpenForm "NomeForm",,,,,acDialog
Ciao, Sandro


title: Sospendere l'esecuzione del codice

text:
"Sandro" <
sandro_...@tin.it
> ha scritto nel messaggio
news:_QoRe.4313$4g5.2...@news4.tin.it...

Sandro ciao, grazie per la risposta e complimenti per la tempestività, ma
non funziona perchè non devo aprire una form ma una query.
ciao gianni


title: Sospendere l'esecuzione del codice

author: Ivan da casa

text:
"gg" <
provach...@libero.it
> ha scritto nel messaggio
news:0GoRe.2845$O6.1...@news3.tin.it...

non è molto chiaro cosa vuoi dire con : > riprenderlo alla chiusura della
finestra.
doEvents potrebbe aiutarti, per l'uso consulta la guida.
Questo comando non interrompe il codice, ma permette al framework (access)
di compiere le operazioni in sospeso ...
Ivan


title: Sospendere l'esecuzione del codice

text:
[cut]
> Sandro ciao, grazie per la risposta e complimenti per la tempestività, ma
> non funziona perchè non devo aprire una form ma una query.
> ciao gianni
>
Ciao Gianni,
era meglio se leggevo meglio ciò che avevi scritto ...
Ho fatto un paio di prove con Screen.activeForm per intercettare il nome
della form che contiene la query, ma non ci sono riuscito.
Domani faccio altre prove per trovare la soluzione, ma spero che nel
frattempo intervenga qualcuno più preparato.
Ciao, notte.
Sandro


title: Sospendere l'esecuzione del codice

author: Alessandro Baraldi

text:
"gg" <
provach...@libero.it
> wrote in message
news:0GoRe.2845$
O6.1...@news3.tin.it

Non credo sia possibile poichè le queries vengono
eseguite in modo ASINCRONO.
L'unica cosa da provare è inserire un Doevents dopo
ogni Query.
Saluti.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Sospendere l'esecuzione del codice

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:e9df12aaf18e89be78...@mygate.mailgate.org...

Ok grazie delle risposte, ma ho risolto in altro modo, ho creato due
pulsanti al primo faccio eseguire le queri di selezione al secondo le altre.
grazie ancora gianni


title: database corrotto

author: Maurizio

text:
ho un database access 2000. Probabilmente il PC dove era salvato si è
bloccato e adesso se cerco di aprire il database, Access cerca di
ripristinarlo ma senza successo. Esiste un tool oppure qualche
programma che permette il ripristino del database ?
grazie a tutti
Maurizio


title: database corrotto

author: Marco Papo

text:
"Maurizio" <
consu...@open.it
> ha scritto nel messaggio
news:1180969879....@r19g2000prf.googlegroups.com...

Prova ad aprirlo tenendo premuto lo shift...
Altrimenti prova a creare un altro DB e File\importa importati tutti gli
oggetti nel nuovo.
Ciao


title: database corrotto

text:
On 4 Giu, 17:17, "Marco Papo" <
marco.pape...@gmail.com
> wrote:
> "Maurizio" <
consule...@open.it
> ha scritto nel messaggionews:1180969879....@r19g2000prf.googlegroups.com...
> ho un database access 2000. Probabilmente il PC dove era salvato si è
> bloccato e adesso se cerco di aprire il database, Access cerca di
> ripristinarlo ma senza successo. Esiste un tool oppure qualche
> programma che permette il ripristino del database ?
> grazie a tutti
> Maurizio
>
> Prova ad aprirlo tenendo premuto lo shift...
> Altrimenti prova a creare un altro DB e File\importa importati tutti gli
> oggetti nel nuovo.
>
> Ciao
già provato ma non funzia
Maurizio


title: database corrotto

author: Carlo Costarella

text:
"Maurizio" <
consu...@open.it
> ha scritto nel messaggio
news:1180969879....@r19g2000prf.googlegroups.com...

Prova anche ad eliminare il file .ldb (elleDiBi) associato e nella stessa
cartella del db che non si apre.
In ultimo, se mi mandi il file zippato, vedo cosa si può fare.
Ciao, Carlo


title: database corrotto

author: Sergio MAZZA

text:
"Maurizio" <
consu...@open.it
> ha scritto nel messaggio news:1180969879....@r19g2000prf.googlegroups.com...

[risposta]
Prova qui:
http://www.donkarl.com/it/
1. Fondamentali
1.27 Come procedere con database danneggiati
Ciao.
--
Sergio MAZZA


title: database corrotto

author: RobertoA

text:
> Prova anche ad eliminare il file .ldb (elleDiBi) associato e nella stessa
> cartella del db che non si apre.
> In ultimo, se mi mandi il file zippato, vedo cosa si può fare.
Hai qualche trucchetto particolare ???
Ciao
RobertoA


title: database corrotto

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4665...@newsgate.x-privat.org...

A parte i trucchetti che tutti conoscono come quello di cancellare il file
.ldb, scandisk o chkdsk c: /F in caso di mancanza di corrente o chiusura a
caldo di windows, opzione decompile ecc., solo alcuni software, perarltro a
pagamento.
Ciao, Carlo


title: Stampa 2^ copia

author: fid

text:
Ho necessità che a fine stampa abbia un msgbox che debba confermare o meno
la stampa di una seconda copia del report, come realizzare ciò?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Stampa 2^ copia

author: namor

text:
fid ha scritto:
> Ho necessità che a fine stampa abbia un msgbox che debba confermare o meno
> la stampa di una seconda copia del report, come realizzare ciò?
> grazie
Se lanci il report da una maschera o da menù è molto più semplice
prevedere 2 tasti distinti: 'Stampa 1 copia' e 'Stampa 2 copie', o
abbinare al tasto 'Stampa' una casella 'Numero copie' .
Namor
--
namor at inwind punto it



title: Stampa 2^ copia

text:
namor ha scritto:
> fid ha scritto:
> > Ho necessità che a fine stampa abbia un msgbox che debba confermare o meno
> > la stampa di una seconda copia del report, come realizzare ciò?
> > grazie
> Se lanci il report da una maschera o da menù è molto più semplice
> prevedere 2 tasti distinti: 'Stampa 1 copia' e 'Stampa 2 copie', o
> abbinare al tasto 'Stampa' una casella 'Numero copie' .
> Namor
Perfetto, modifico i pensieri e procedo!
grazie
--



title: Stampa 2^ copia

author: . chiarello @gmail.com MC

text:
[cut]
io uso solitamente quanto segue:
DoCmd.OpenReport "NOME_REPORT", acViewPreview
        DoCmd.PrintOut acSelection, , , acHigh, 2
        DoCmd.Close acReport, "NOMEREPORT", acSaveNo
variando il numero vari di conhseguenza il numero di copie che stamperai.
Saluti,
--
MC


title: tabella svuotate!

author: Michael

text:
Abbiamo un gestionale di contabilità, che memorizza i dati contabili in un
file AZIENDA.MDB , fatto in access 97.( scritto il tutto in VB6)
Dentro vi è, tra le altre 20\25 tabelle,pure   la tabella "piano dei conti".
Stamattina tale  tabella anzichè avere 1200 righe , ne ha zero!!
Ho dovuto ripristinare una copia di backup del file!
Come succedono queste cose?
Il file azienda.mdb non è danneggiato, si apre normalmente con access,
solamente è sceso da 550 KB  a 200 Kb per via di sta tabella svuotata!
ciao!


title: tabella svuotate!

author: Antonio Biso

text:
"Michael" <
mi...@tin.it
> ha scritto nel messaggio
news:bldvkt$dcl$1...@usenet.itgate.net...

Due considerazioni basate sul ragionamento visto che la mia sfera di
cristallo è a fare il tagliando:
- I record potrebbero essere stati cancellati da un utente volontariamente,
da un utente involontariamente, da un bug nel codice sottostante.
- Se il db è sceso di dimensione significa che dopo la cancellazione
qualcuno l'ha anche compattato, altrimenti la dimensione rimaneva la stessa.
Vedi un po' se queste indicazioni ti fanno pensare...
Antonio


title: tabella svuotate!

text:
>
> Due considerazioni basate sul ragionamento visto che la mia sfera di
> cristallo è a fare il tagliando:
>
> - I record potrebbero essere stati cancellati da un utente
volontariamente,
> da un utente involontariamente, da un bug nel codice sottostante.
> - Se il db è sceso di dimensione significa che dopo la cancellazione
> qualcuno l'ha anche compattato, altrimenti la dimensione rimaneva la
stessa.
> Vedi un po' se queste indicazioni ti fanno pensare...
L'unica possibile è quella del bug del codice, ma come dimostrarlo?
(nel tentativo di ripristinare il file con le utilità fornite dal sw devo
averlo anche compattato-riparato, per cui la dimensione sarà scesa
così.....)
La softwarehouse mi dice : disco rigido danneggiato, sbalzi di tensione....
Non può essere il file di access che ogni tanto può perdere dati interni per
motivi suoi ?
Se fosse il bug non dovrei avere spesso il problema ?
E' la prima volta che mi capita dopo 2 anni di uso del sw....
ciao e grazie per l'interessamento.


title: tabella svuotate!

text:
"Michael" <
mi...@tin.it
> ha scritto nel messaggio
news:blea2g$glq$1...@usenet.itgate.net...
> >
> > Due considerazioni basate sul ragionamento visto che la mia sfera di
> > cristallo è a fare il tagliando:
> >
> > - I record potrebbero essere stati cancellati da un utente
> volontariamente,
> > da un utente involontariamente, da un bug nel codice sottostante.
> > - Se il db è sceso di dimensione significa che dopo la cancellazione
> > qualcuno l'ha anche compattato, altrimenti la dimensione rimaneva la
> stessa.
> > Vedi un po' se queste indicazioni ti fanno pensare...
>
> L'unica possibile è quella del bug del codice, ma come dimostrarlo?
> (nel tentativo di ripristinare il file con le utilità fornite dal sw devo
> averlo anche compattato-riparato, per cui la dimensione sarà scesa
> così.....)
> La softwarehouse mi dice : disco rigido danneggiato, sbalzi di
tensione....
Questo comporterebbe corruzione dell'intero database o perdita della
transazione in corso, quindi un solo record magari
> Non può essere il file di access che ogni tanto può perdere dati interni
per
> motivi suoi ?
Direi proprio di no!
> Se fosse il bug non dovrei avere spesso il problema ?
Non è detto, perchè magari è capitato per una serie di circostanze mai
verificate prima.
Per testarlo dovresti vedere se da qualche parte c'è qualche query di
cancellazione o codice che esegue delle cancellazioni di record.
Altrimenti i record sono stati cancellati a mano
Antonio


title: Pop up

author: Pinguino

text:
Salve. Ho un problema nella creazione di una finestra pop up.
L'obiettivo è quello di verificare l'esistenza di dati sulla tabella
dove andrò ad accodare i dati per evitare di avere dati duplicati. La
pop up genera una lista di articoli per la compilazione di una fattura,
ma se esiste già l'id fattura sulla tabella ordine, la pop up dovrà
essere vuota. Come posso fare?


title: Pop up

author: Gabriele Bertolucci

text:

Devi spiegarti meglio.
In linea di principio sembra che il tuo problema si possa risolvere modificando
leggermente la struttura di una tabella in modo da avere un indice sul campo
IDFattura, ma non posso essere sicuro di averti dato il consiglio migliore
se non conosco meglio la struttura del database sul quale stai lavorando.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution