title: form: evento su controllo campo

author: luigi onofrio

text:
ho un campo formato testo "campo1", un campo formato data "data1" e un
altro campo formato data "campo2",
in una form voglio che se nel campo1 si inserisce un testo tipo "pinco
pallino" nel campo2 si memorizzi in automatico la data1 + 40 giorni,
Ho provato su prima di aggiornare la formula
Private Sub campo1_BeforeUpdate(Cancel As Integer)
If campo1 = "pinco pallino" Then
data2 = data1 + 40
End If
End Sub
oppure
Private Sub campo1_BeforeUpdate(Cancel As Integer)
If campo1 like "pinco pallino" Then
data2 = data1 + 40
End If
End Sub
ma anche se non dą errore di compilazione, l'evento non si verifica.
ho provato a inserire la stessa formula anche su altri eventi, ma niente!.
grazie dell'aiuto
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: form: evento su controllo campo

author: Gabriele Bertolucci

text:
> If campo1 = "pinco pallino" Then
> data2 = data1 + 40
> End If
>
> If campo1 like "pinco pallino" Then
> data2 = data1 + 40
> End If
> End Sub
> ma anche se non dą errore di compilazione, l'evento non si verifica.
Per sommare date ti consiglio di utilizzare la DateAdd (F1 per ulteriori
informazioni).
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: form: evento su controllo campo

text:
Gabriele Bertolucci ha scritto:
> > If campo1 = "pinco pallino" Then
> > data2 = data1 + 40
> > End If
> >
> > If campo1 like "pinco pallino" Then
> > data2 = data1 + 40
> > End If
> > End Sub
> > ma anche se non dà errore di compilazione, l'evento non si verifica.
> Per sommare date ti consiglio di utilizzare la DateAdd (F1 per ulteriori
> informazioni).
ho provato anche
Private Sub campo1_BeforeUpdate(Cancel As Integer)
If campo1 Like "pinco pallino" Then
data2 = DateAdd("d", 40, Me.data1)
End If
End Sub
sia sull'evento dopo aggiornamento che su click
ma niente non viene memorizzata nessuna data nel campo data2



title: form: evento su controllo campo

author: Giovanni Matasci

text:
"luigi onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
news:dus24j$oem$1...@news.newsland.it...
> Gabriele Bertolucci ha scritto:
>
> > > If campo1 = "pinco pallino" Then
> > > data2 = data1 + 40
> > > End If
> > >
> > > If campo1 like "pinco pallino" Then
> > > data2 = data1 + 40
> > > End If
> > > End Sub
> > > ma anche se non dà errore di compilazione, l'evento non si verifica.
>
> > Per sommare date ti consiglio di utilizzare la DateAdd (F1 per ulteriori
> > informazioni).
>
> ho provato anche
>
> Private Sub campo1_BeforeUpdate(Cancel As Integer)
> If campo1 Like "pinco pallino" Then
> data2 = DateAdd("d", 40, Me.data1)
> End If
> End Sub
>
> sia sull'evento dopo aggiornamento che su click
>
> ma niente non viene memorizzata nessuna data nel campo data2
>
>
> --
Ciao
forse dovresti mettere la tua formula a dopoaggiornamento


title: form: evento su controllo campo

text:
Giovanni Matasci ha scritto:
> "luigi onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
> news:dus24j$oem$1...@news.newsland.it...
> > Gabriele Bertolucci ha scritto:
> >
> > > > If campo1 = "pinco pallino" Then
> > > > data2 = data1 + 40
> > > > End If
> > > >
> > > > If campo1 like "pinco pallino" Then
> > > > data2 = data1 + 40
> > > > End If
> > > > End Sub
> > > > ma anche se non dą errore di compilazione, l'evento non si verifica.
> >
> > > Per sommare date ti consiglio di utilizzare la DateAdd (F1 per ulteriori
> > > informazioni).
> >
> > ho provato anche
> >
> > Private Sub campo1_BeforeUpdate(Cancel As Integer)
> > If campo1 Like "pinco pallino" Then
> > data2 = DateAdd("d", 40, Me.data1)
> > End If
> > End Sub
> >
> > sia sull'evento dopo aggiornamento che su click
> >
> > ma niente non viene memorizzata nessuna data nel campo data2
> >
> >
> > --
> Ciao
> forse dovresti mettere la tua formula a dopoaggiornamento
provato, ma niente!
non vorrei che sbagli la formula!



title: form: evento su controllo campo

author: Alessandro Cara

text:
luigi onofrio wrote:
> Giovanni Matasci ha scritto:
>
>
>>"luigi onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
>>news:dus24j$oem$1...@news.newsland.it...
>>
>>>Gabriele Bertolucci ha scritto:
>>>
>>>
>>>>>If campo1 = "pinco pallino" Then
>>>>>data2 = data1 + 40
>>>>>End If
>>>>>
>>>>>If campo1 like "pinco pallino" Then
>>>>>data2 = data1 + 40
>>>>>End If
>>>>>End Sub
>>>>>ma anche se non dà errore di compilazione, l'evento non si verifica.
>>>
>>>>Per sommare date ti consiglio di utilizzare la DateAdd (F1 per ulteriori
>>>>informazioni).
>>>
>>>ho provato anche
>>>
>>>Private Sub campo1_BeforeUpdate(Cancel As Integer)
>>>If campo1 Like "pinco pallino" Then
>>>data2 = DateAdd("d", 40, Me.data1)
>>>End If
>>>End Sub
>>>
>>>sia sull'evento dopo aggiornamento che su click
>>>
>>>ma niente non viene memorizzata nessuna data nel campo data2
>>>
>>>
>>>--
>>
>>Ciao
>>forse dovresti mettere la tua formula a dopoaggiornamento
>
>
> provato, ma niente!
>
> non vorrei che sbagli la formula!
>
>
non ho mai usato la like sui controlli. Sei sicuro che funziona?
--
ac


title: form: evento su controllo campo

text:
Alessandro Cara ha scritto:

no!, ma errori di codice non me ne dà!
ma ho provato anche a mettere = e lo stesso non succede niente!
preferirei like per le diverse battiture del valore: maiuscolo. minuscolo
ecc.



title: form: evento su controllo campo

text:
"luigi onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
news:dus61k$6qa$1...@news.newsland.it...
> Alessandro Cara ha scritto:
>
> > luigi onofrio wrote:
> > > Giovanni Matasci ha scritto:
> > >
> > >
> > >>"luigi onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
> > >>news:dus24j$oem$1...@news.newsland.it...
> > >>
> > >>>Gabriele Bertolucci ha scritto:
> > >>>
> > >>>
> > >>>>>If campo1 = "pinco pallino" Then
> > >>>>>data2 = data1 + 40
> > >>>>>End If
> > >>>>>
> > >>>>>If campo1 like "pinco pallino" Then
> > >>>>>data2 = data1 + 40
> > >>>>>End If
> > >>>>>End Sub
> > >>>>>ma anche se non dą errore di compilazione, l'evento non si
verifica.
> > >>>
> > >>>>Per sommare date ti consiglio di utilizzare la DateAdd (F1 per
ulteriori
> > >>>>informazioni).
> > >>>
> > >>>ho provato anche
> > >>>
> > >>>Private Sub campo1_BeforeUpdate(Cancel As Integer)
> > >>>If campo1 Like "pinco pallino" Then
> > >>>data2 = DateAdd("d", 40, Me.data1)
> > >>>End If
> > >>>End Sub
> > >>>
> > >>>sia sull'evento dopo aggiornamento che su click
> > >>>
> > >>>ma niente non viene memorizzata nessuna data nel campo data2
> > >>>
> > >>>
> > >>>--
> > >>
> > >>Ciao
> > >>forse dovresti mettere la tua formula a dopoaggiornamento
> > >
> > >
> > > provato, ma niente!
> > >
> > > non vorrei che sbagli la formula!
> > >
> > >
> > non ho mai usato la like sui controlli. Sei sicuro che funziona?
> > --
> > ac
> no!, ma errori di codice non me ne dą!
> ma ho provato anche a mettere = e lo stesso non succede niente!
> preferirei like per le diverse battiture del valore: maiuscolo. minuscolo
> ecc.
>
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
> campo 1 č scritto giusto?


title: form: evento su controllo campo

text:
> preferirei like per le diverse battiture del valore: maiuscolo.
> minuscolo
Se vuoi evitare errori di battitura del tipo maiuscolo/minuscolo, puoi anche
utilizzare l'operatore "=" ma utilizzare, per il confronto, la seguente istruzione:
    If StrConv(campo1, vbUpperCase) = "PINCO PALLINO" Then



title: form: evento su controllo campo

text:
> Private Sub campo1_BeforeUpdate(Cancel As Integer)
> If campo1 Like "pinco pallino" Then
> data2 = DateAdd("d", 40, Me.data1)
> End If
> End Sub
> sia sull'evento dopo aggiornamento che su click
>
> ma niente non viene memorizzata nessuna data nel campo data2
Guarda che il codice che hai scritto non provvede ad alcuna memorizzazione
di dati.
Sei sicuro poi che il record venga salvato dopo che hai modificato su il
valore del controllo data2?
Poi, volevo suggerirti di utilizzare sempre il riferimento Me sia per i campi
che per i controlli.
Infine, dal codice che hai scritto non si capisce bene se campo1, data1 e
data2 sono campi dell'origine dati che sta alla base della form, oppure se
sono controlli associati ad altrettanti campi dell'origine dati della maschera.



title: form: evento su controllo campo

text:
Gabriele Bertolucci ha scritto:
> > Private Sub campo1_BeforeUpdate(Cancel As Integer)
> > If campo1 Like "pinco pallino" Then
> > data2 = DateAdd("d", 40, Me.data1)
> > End If
> > End Sub
> > sia sull'evento dopo aggiornamento che su click
> >
> > ma niente non viene memorizzata nessuna data nel campo data2
> Guarda che il codice che hai scritto non provvede ad alcuna memorizzazione
> di dati.
e come dovrei fare per memorizzarla?
> Sei sicuro poi che il record venga salvato dopo che hai modificato su il
> valore del controllo data2?
si
> Poi, volevo suggerirti di utilizzare sempre il riferimento Me sia per i
campi
> che per i controlli.
> Infine, dal codice che hai scritto non si capisce bene se campo1, data1 e
> data2 sono campi dell'origine dati che sta alla base della form, oppure se
> sono controlli associati ad altrettanti campi dell'origine dati della
maschera.
sono i nomi dei campi della tabella associata alla maschera
> --
> PBsoft di Gabriele Bertolucci
>
www.pbsoft.it
> skype: pbsoftsolution



title: form: evento su controllo campo

text:
luigi onofrio ha scritto:
> Gabriele Bertolucci ha scritto:




> si




HO RISOLTO!
dopo che mi hai messo la pulce nell'orecchio, ho scambiato il nome data2
con il nome del controllo testo105 ed ha funzionato.
grazie.



title: form: evento su controllo campo

text:
Gabriele Bertolucci ha scritto:




grazie del suggerimento! prendo nota delle modifiche!.



title: Caratteri strani in tabella

text:
Salve a tutti, ho questo "piccolo" problema.
Faccio una query che accoda dei dati ad una tabella, la query e'
composta da sole tabelle, il risultato e' che nella tabella mi trovo un
campi riempito con strani caratteri ovviamente assenti nel campo di origine.
Qui trovate un immagine esplicativa:
http://www.freemao.com/pics/x.JPG
I campi i origine e destinazione sono dello stesso tipo con proprietà
identiche, tutte di default.
Che succede? Come posso risolvere?
ciao & grazie
mau


title: Caratteri strani in tabella

author: Carlo Costarella

text:
"mau_rizio" <
alte...@mailcity.com
> ha scritto nel messaggio
news:eBsTi.150082$%k.29...@twister2.libero.it...

Quasi certamente il problema è la scheda di rete...sostituiscila e non avrai
più problemi.
Ciao, Carlo


title: Caratteri strani in tabella

text:
Carlo Costarella ha scritto:

Non ho questo problema essendo in locale.
Comunque credo che se fosse un problema di scheda di rete l'errore
sarebbe random su qualsiasi campo e non sempre e solo sullo stesso campo.
ciao
mau


title: problema su query creazione tabella

author: Max

text:
Salve a tutti,
Ho realizzato una query di creazione tabella che "pesca" i dati da 1 query
di selezione.
A volte ci sono dati validi a volte non c'č nemmeno 1 dato nella query di
selezione cosě che la query di creazione tabella non mi crea nulla.
Avrei bisogno invece che in ogni caso tale query creasse la tabella
anche"vuota",mantenedo la sola struttura, poichč la stessa va a interagire
con altre query.
Qualcuno mi sa illuminare?
Grazie anticipatamente.


title: problema su query creazione tabella

author: OndaMax

text:
"Max" ha scritto nel messaggio ...
> A volte ci sono dati validi a volte non c'č nemmeno 1 dato nella query di
> selezione cosě che la query di creazione tabella non mi crea nulla.
> Avrei bisogno invece che in ogni caso tale query creasse la tabella
> anche"vuota",mantenedo la sola struttura, poichč la stessa va a interagire
> con altre query.
La Query di creazione tabella crea COMUNQUE una tabella, anche vuota ...
Ciao
Marco


title: User e password

author: pippo

text:
Salve ho scritto una sub per il riconoscimento di password
in sostanza ho creato una tabella Admin con du e soli campi: User e Password
Al lancio dell'applicazione viene mostrata una maschera in cui l'utnte deve
specificare la password
a questo punto dovrei  fare un ciclo sulla tabella per vedere se la password
inserita dall'utente figura nella tabella
se viene individuata dovrei effettuare il salvataggio di user e password in
due variabili globali.
La cosa perà npn funziona  da cosa può dipendere?
-------
Private Sub Comando1_Click()
On Error GoTo Err_Comando1_Click
Dim strPass As String
Dim stDocName As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim Valore As String
Dim trovato As Boolean
' Leggi la password inserita dall'utente
strPass = Me.CasellaPassword.Value
'apro una connessione con la tabella tab_Admin e verifico che la password
'inserita dall'utente sia presente tra quelle inserite nella tabella
' inizializzo la variabile con la maschera da aprire in caso di successo
stDocName = "Mask_Menu"
trovato = True
Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("Tab_Admin", dbOpenTable)
    rst.MoveFirst
    Do While Not (rst.EOF) OR Not trovato
    With rst
       ' Assegna alla variabile globale Valore il valore del secondo campo
della tabella Tab_Admin
       Valore = ![Password]
       ' Assegna alla variabile globale Username il valore del primo campo
della tabella Tab_Admin
       userName = ![User]
       'effettuo il confronto con la password presa dal database
       'e quella inserita dall'utente
       If (StrComp(Valore, strPass, 1) <> 0) Then
         'ho trovato la password
         trovato = False
       End If
       'avanza al record successivo
       .MoveNext
    End With
    Loop
    'chiudi il recordset
    rst.Close
    ' chiudi il db
    dbs.Close
    If trovato = False Then
      DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
      MsgBox "Password Errata!)"
    End If
Exit_Comando1_Click:
    Exit Sub
Err_Comando1_Click:
    MsgBox Err.Description
    Resume Exit_Comando1_Click
End Sub


title: User e password

author: Alessandro Baraldi

text:
"pippo" <
pi...@pippo.it
> wrote in message
news:8QB_d.671230$
b5.30...@news3.tin.it
> Salve ho scritto una sub per il riconoscimento di password
>
> in sostanza ho creato una tabella Admin con du e soli campi: User e Password
>
> Al lancio dell'applicazione viene mostrata una maschera in cui l'utnte deve
> specificare la password
> a questo punto dovrei  fare un ciclo sulla tabella per vedere se la password
> inserita dall'utente figura nella tabella
> se viene individuata dovrei effettuare il salvataggio di user e password in
> due variabili globali.
>
> La cosa perà npn funziona  da cosa può dipendere?
>
> -------
>
Credo tu abbia preso la strada sbagliata.
E' assurdo Ciclare una Tabella quando c'è a disposizione
un'istruzione SQL che fà tutto lei...!
Prova questo con le opportune correzioni del
caso che mi sono sfuggite:
 Private Sub Comando1_Click()

 On Error GoTo Err_Comando1_Click

 Dim strPass As String
 Dim stDocName As String
 Dim dbs As DAO.Database
 Dim rst As DAO.Recordset
 Dim trovato As Boolean
 Dim sSQL As String

 strPass = Me.CasellaPassword.Value
 stDocName = "Mask_Menu"
 trovato = False
 sSQL="SELECT COUNT(*) AS [PWDEsistente] " & _
      "FORM Tab_Admin " & _
      "WHERE [Password]=" & chr(34) strPass & chr(34)
 Set dbs = CurrentDb()
     Set rst = dbs.OpenRecordset(sSQL)
     trovato =rst.Fields(0)>0
     'chiudi il recordset
     rst.Close
     ' chiudi il db
     dbs.Close

     If trovato = False Then
       DoCmd.OpenForm stDocName, , , stLinkCriteria
     Else
       MsgBox "Password Errata!)"
     End If

 Exit_Comando1_Click:
     Exit Sub

 Err_Comando1_Click:
     MsgBox Err.Description
     Resume Exit_Comando1_Click

 End Sub
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Convivenza Access 97-Office 2000

author: Roberto

text:
Salve, ho un grosso problema:
devo installare un database Access 97 su un computer che usa office 2000.
Ho provato a smontare office 2000 e installare access 97, ma mi da errore
sul comando CurrentDb. Ho impostato, tra i riferimenti, DAO 3.5,
importandolo anche da un Pc che usa A97 e sul quale tutto funziona
perfettamente, ma il problema persiste.
Come posso risolvere questo problema di convivenza???
Grazie.


title: Convivenza Access 97-Office 2000

author: Mattia

text:
--
P.S. Togli NOSPAM dall'indirizzo e-mail
"Roberto" <
r.za...@fer-online.it
> ha scritto nel messaggio
news:cr6K6.13$1l1...@nreader1.kpnqwest.net...

Io ho sia Acc97 che l'intero Off2000 e non ho nessun problema. Se il tuo db
non ha qualche problema di riferimenti, prova a guardare come installare
Acc97 su un PC con Access 2000. Come già dissi in alcuni msg fa, l'articolo
lo puoi trovare sulla KB di Microsoft: "Q241141 - ACC2000: How to Install
Access 97 and Access 2000 on the Same Computer". L'ID è chiaramente Q241141.
Eventualmente specifica il tipo di errore che ti da, controlla tra i
riferimenti che ci sia tutto e nello stesso ordine (come sul PC su cui
funziona) e poi controlla anche le versioni delle dll coinvolte (dao350.dll,
dao**, etc. ) cioè quelle che usa il tuo db.
Aloa                Mattia


title: Convivenza Access 97-Office 2000

author: Riviera

text:
"Roberto" <
r.za...@fer-online.it
> ha scritto nel messaggio
news:cr6K6.13$1l1...@nreader1.kpnqwest.net...

L'installazione di una versione anteriore a quella installata ha dato anche
a me seri problemi , tanto che ho dovuto disinstallare completamente Off
2000 , installare Off97 e reinstallare Off2000 avendo l'accortezza di
cambiare la cartella di default ( C:\programmi\microsoft office). Ma ,
funzionavano tutte le applicazioni fi office meno Access (un display mi
avvertiva che non avevo il permesso di accedere ad access), cosě ho
reinstallato Access (solo lui) in una cartella ancora diversa
(c:\programmi\access) e ora funziona . Prova un po ...
Ciao


title: form continue: ingrandire il selettore

author: massimo

text:
Ho bisogno di selezionare il record corrente in una maschera a schede
continue. Voglio usare DoCmd.RunCommand acCmdSelectRecord . E'
possibile modificare la larghezza del selettore dei record in modo da
renderlo ancor più evidente?


title: form continue: ingrandire il selettore

author: ALESSANDRO Baraldi

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns948ED7D7...@news.inwind.it...

No.
@Alex.


title: form continue: ingrandire il selettore

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns948ED7D7...@news.inwind.it...

Il selettore del record prende l'altezza del corpo dove è contenuto il
controllo.
Più grande è la sezione, più grande sarà il selettore.
Te po' bastà?
Ciao, Carlo


title: form continue: ingrandire il selettore

author: Roberto da casa

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns948ED7D7...@news.inwind.it...
> Ho bisogno di selezionare il record corrente in una maschera a schede
> continue. Voglio usare DoCmd.RunCommand acCmdSelectRecord . E'
> possibile modificare la larghezza del selettore dei record in modo da
> renderlo ancor piů evidente?
Per meglio evidenziare uno o piů record in una maschera continua, vai sul
Sito Comune e nella Sezione Forms prova a leggere queste due FAQ:
1) Evidenziare specifiche righe in Maschere Continue di asukuo
2) Evidenziare records specifici nelle maschere continue di Silvio Savoldi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: form continue: ingrandire il selettore

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:hykXb.311609$_P.10...@news4.tin.it...

Ciao Carlo chiedeva la Larghezza.
@Alex.


title: suggerimento

author: gicom

text:
sul sito della microsoft si trova il programma 'eurotool.exe'
serve perimpostare la valuta in euro direttamente dal pannello
di controllo di windows
(quindi in Access il formato valuta sarà ? 0,00)
molto utile
franco


title: suggerimento

author: Alessandro

text:
"gicom" <
gi...@tiscalinet.it
> wrote in message
news:a3mv6n$eee$1...@pegasus.tiscalinet.it...

E postare l'indirizzo sarebbe ancora meglio.
Grazie.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: suggerimento

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:fe8c9d575bf9039ecc...@mygate.mailgate.org...

chiedo umilmente scusa, ho dato per scontate troppe cose :(
il programma è per win 95/98/nt4.0
l'indirizzo:
http://www.microsoft.com/italy/euro/eurotool.asp
scusate ancora
franco


title: Pulire contenuto foglio excel in maschera

text:
Ho inserito in una maschera , un controllo ActiveX Spreadshhet , in pratica
faccio visualizzare 2 colonne di un foglio elettronico excel per fare  dei
calcoli , vorrei che quando passo al record successivo della maschera un
range specifico del foglio venga "pulito".
Ho provato con varianti del genere :
Spreadsheet4
Range("C1:D14").Select
    Selection.ClearContents
ma niente.
consigli ?


title: Eliminare la contol box dell'applicazione

author: Jack Burton

text:
Ho realizzato un'applicazione che, all'avvio, mostra solamente una
custom menu bar tramite la quale l'utente sceglie cosa fare; all'avvio
quindi non viene visualizzata alcuna form se non quella standard di
background.
Poiche' alla voce EXIT della mia menubar e' associata una funzione
particolare, devo evitare che l'utente esca cliccando sulla X della
controlbox dell'applicazione.
Che voi sappiate, esiste un sistema per inibire la X oppure anche
tutta la control box ??
Ripeto che la c.b. in questione non e' associata ad una form,
altrimenti l'avrei gia' risolto attraverso le impostazioni della form
stessa.
Grazie dell'aiuto.
Jack


author: Marco Pretini

text:
Jack Burton <
jack_...@usa.com
> wrote in message
IM12OV2TUthdm924o=MKEBf...@4ax.com...

Sito comune
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
sezione Tips & Tricks
Rimuovere il pulsante di chiusura (X), il menu e i pulsanti di
ridimensionamento di Access. (97)
Autore : Antogal
Marco


author: Dario da PD

text:
Jack Burton <
jack_...@usa.com
> wrote in message
IM12OV2TUthdm924o=MKEBf...@4ax.com...
> Ho realizzato un'applicazione che, all'avvio, mostra solamente una
> custom menu bar tramite la quale l'utente sceglie cosa fare; all'avvio
> quindi non viene visualizzata alcuna form se non quella standard di
> background.
> Poiche' alla voce EXIT della mia menubar e' associata una funzione
> particolare, devo evitare che l'utente esca cliccando sulla X della
> controlbox dell'applicazione.
> Che voi sappiate, esiste un sistema per inibire la X oppure anche
> tutta la control box ??
> Ripeto che la c.b. in questione non e' associata ad una form,
> altrimenti l'avrei gia' risolto attraverso le impostazioni della form
> stessa.
>
> Grazie dell'aiuto.
>
> Jack
Non mi risulta si possa fare (a meno, forse, di usare le API9); io la cosa
io l'ho risolta così :
All'apertura carico una maschera nascosta in cui vi è un check box chiamato
CanClose che ha per valore predefinito False. Su evento scaricamento della
forma (Form_Unload) c'é questa riga di codice :
If Not Me.CanClose Then Cancel = True
che annulla la chiusura della maschera nel caso in cui il check box abbia
valore False (ossia il suo valore predefinito); questo è il caso quando
l'utente clicca sulla X dell'applicazione.
Quando invece l'utente va a cliccare sul tasto Exit della menu bar richiamo
un funzione che va semplicemente ad impostare il valore True sulla Check Box
della maschera nascota e chiude l'applicazione.
Attenzione però : se l'utente ha un po' di maschere aperte e clicca sulla X
non avviene l'uscita ma probabilmente vengono chiuse tutte le maschere
restanti : per evitare quindi che l'utente lasci "qualcosa a metà" il
controllo CanClose e la relativa riga di codice la inserisco su tutte le
maschere (in maniera che l'utente non chiuda nessuna maschera quando clicca
sulla X dell'applicazione).
La cosa è un po' macchinosa ma funziona egregiamente.
Ciao
Dario da PD


text:
> Sito comune
> il sito comune di it.comp.appl.access:
>
http://members.xoom.it/it_db_access/
>
> sezione Tips & Tricks
> Rimuovere il pulsante di chiusura (X), il menu e i pulsanti di
> ridimensionamento di Access. (97)
> Autore : Antogal
Si ma l'utente ha la possibilità sempre di premere Alt-F4 e di ottenere lo
stesso effetto...
Sbaglio ?
Ciao
Dario da PD


text:
Dario da PD ha scritto:

Ciao
credo di si, anche se non ho mai provato.
Marco


author: Federico Luciani

text:
Dario da PD wrote:
> Jack Burton <
jack_...@usa.com
> wrote in message

anch'io faccio cosi', nei casi in cui e' necessario.
visto che questa domanda e' frequente, ti andrebbe di scriverci una piccola FAQ
e mandarmela all'indirizzo del sito comune?
direi che ti basta sistemare quello che hai gia' scritto :-)
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


text:
La routine che c'e' nel sito comune vale se si ha a che fare con una
form attiva, cioe' se all'avvio della procedura viene richiamata dallo
startup o da una macro AutoExec una form iniziale.
Il mio problema e' che all'avvio non richiamo nessuna form, mostrando
esclusivamente una menubar custom in luogo di quella standard di
Access. Poiche' devo tenere un log delle operazioni effettuate dagli
utenti, nel quale ci deve essere anche i dati della disconnessione
dalla procedura, devo fare in modo che l'utente esca solo cliccando
sulla apposita voce del menu (exit) che lancia la procedura di
registrazione finale e chiusura del log. purtroppo alcuni utenti
insistono nell' uscire dalla procedura utilizzando la X, con il
risultato che mi ritrovo diversi records del log incompleti (con la
successiva impossibilita' di verificare quando un utente ha terminato
l'applicazione).
Ho provato a girare tutto il giorno sulla rete, ma non ho trovato
risposta.
Il problema a mio avviso e' che l'oggetto Application non ha tra i
parametri settabili la control box.
Un alternativa sarebbe quella di utilizzare una form (con la barra di
menu) dichiarandola popup e modal, ma il risultato sarebbe quello di
impedire l'accesso anche alla menubar ...
Boh ??
Comunque grazie.
Jack


text:
> anch'io faccio cosi', nei casi in cui e' necessario.
> visto che questa domanda e' frequente, ti andrebbe di scriverci una
piccola FAQ
> e mandarmela all'indirizzo del sito comune?
> direi che ti basta sistemare quello che hai gia' scritto :-)
'mmazza, l'onore è tale che non posso rifiutarmi...
Fra qualche giorno ti invio tutto...
Ciao
Dario da PD


text:
> Il mio problema e' che all'avvio non richiamo nessuna form, mostrando
> esclusivamente una menubar custom in luogo di quella standard di
> Access. Poiche' devo tenere un log delle operazioni effettuate dagli
> utenti, nel quale ci deve essere anche i dati della disconnessione
> dalla procedura, devo fare in modo che l'utente esca solo cliccando
> sulla apposita voce del menu (exit) che lancia la procedura di
> registrazione finale e chiusura del log. purtroppo alcuni utenti
> insistono nell' uscire dalla procedura utilizzando la X, con il
> risultato che mi ritrovo diversi records del log incompleti (con la
> successiva impossibilita' di verificare quando un utente ha terminato
> l'applicazione).
E' la stessa cosa che faccio io.
Utilizzo anch'io un log con tutti gli accessi dei vari utenti con registrato
la data e ora di login e logout.
Aggiungo inoltre che la maschera nascosta che uso all'avvio la utilizzo
anche per registrare altre informazioni, quali ad esempio l'utente
attualmente collegato, questo perché, alcune volte, se memorizzavo l'utente
in una variabile globale ad un certo punto la "perdeva" (in particolare
quando si verificava qualche errore nel programma non intercettato - mea
culpa che non li intercetto sempre tutti). E' capitato anche a qualcun'altro



text:
On Thu, 20 Jul 2000 19:20:18 +0200, "Dario da PD" <
ao...@tin.it
>
wrote:
>
>E' la stessa cosa che faccio io.
>Utilizzo anch'io un log con tutti gli accessi dei vari utenti con registrato
>la data e ora di login e logout.
>Aggiungo inoltre che la maschera nascosta che uso all'avvio la utilizzo
>anche per registrare altre informazioni, quali ad esempio l'utente
>attualmente collegato, questo perché, alcune volte, se memorizzavo l'utente
>in una variabile globale ad un certo punto la "perdeva" (in particolare
>quando si verificava qualche errore nel programma non intercettato - mea
>culpa che non li intercetto sempre tutti). E' capitato anche a qualcun'altro
>?
>
>Ciao
>Dario da PD
>
Il problema si verifica se la registrazione avviene su tabelle locali,
nel mio caso tutte le tabelle sono su un db remoto in MSSQL per cui
alla peggio mi rimane un record privo delle informazioni di logout in
caso di terminazione anomala da parte di un utente.
All'avvio rilevo i dati utente/terminale/ora, li scrivo sulla tabella
log e su una variabile locale, al momento del logout con questi dati,
che costituiscono fra l'altro la chiave del record, mi posiziono sul
record di log giusto e lo completo con le info di uscita. Per ogni
altra applicazione del db scrivo invece un record su una seconda
tabella di log di dettaglio.
Alla fine mi ritrovo un record "di testata" con le informazioni di
logon e logoff, e n records "di dettaglio" che mi riportano tutte le
mosse dell'utente (volendo si potrebbero registrare anche tutte le
variazioni effettuate consentendo quindi una sorta di rollback).
Ciao.
Jack


title: per volenterosi ... cerco aiuto su sottomaschera.

author: Giacomo

text:
salve,
ho la seguente situazione che non riesco a sbrogliare:
MASCHERA Fatture:
IDFattura, nomeCliente etc etc NumRate
SOTTOMASCHERA Rate:
IDRata, IDFattura (chiave esterna), importo, dataScadenza (questi
ultimi due campi vengono calcolati (afterUpdate) e settati di default
dalla maschera Fatture al momento della scelta
dell'importoTotaleFattura, del numeroRate, della scadenzaRate)
nella sottomaschera Rate mi sono creato, per poter gestire meglio, i
comandi di scorrimento avanti, dietro ed insNuovoRecord per evitare
che l'utente possa inserire + rate di quante specificate da NumRate.
il mio problema sta proprio qua, non riesco a bloccare il comando
InsNuovoRecord in modo tale che non mi faccia inserire troppi record
(troppe rate).
non riesco a trovare l'evento, se nel form, nel corpo, nel comando che
mi permetta di fare un for da i = 0 to NumRate e che alla fine mi
disabiliti il comando nuovoRecord e non capisco quale sia anche il
modo per disabilitare il comando dal momento che se per caso metto
"insNuovoRecord.enable = false" mi da errore dicendo che nella routine
non si puo abilitare e disabilitare il comando. ... vatteloapesca.
sono sicuro che sia una scemata ma non riesco ad andare avanti e mi
sono bloccato ormai da ieri! :(
se volete il codice e poco e lo posso mandare via email o come nuovo
post su questo 3d.
vi prego aiutatemi!
-g-


author: Giorgio prx

text:
"Giacomo" <
gia...@free.floating.net
> ha scritto nel messaggio
news:3d84df95....@powernews.inwind.it...

Nella sottomaschera delle rate nell'evento Form_BeforeInsert scrivi questo
esempio...
Private Sub Form_BeforeInsert(Cancel As Integer)
    If Me.Recordsetclone.Recordcount >= Me.Parent!NumRate Then Cancel=true
End Sub
Anche se la sottomaschera si posiziona nel nuovo record al raggiungimento
del numero di  rate viene cancellato l'evento di inserimento, nell'esempio
ho messo l'esclamativo in Me.Parent!NumRate se NumRate č il nome del
controllo e non del campo sostituisci l'esclamativo con il punto ovvero...
Me.Parent.NumRate
Ciao Giorgio.


text:
"Giacomo" <
gia...@free.floating.net
> ha scritto nel messaggio
news:3d84df95....@powernews.inwind.it...




text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:am34ij$9q6$1...@lacerta.tiscalinet.it...
>
> "Giacomo" <
gia...@free.floating.net
> ha scritto nel messaggio
> news:3d84df95....@powernews.inwind.it...
Interessante ho risposto al messaggio una volta alla 01.14 e l'invio è
fallito, ho riprovato alla 01.20 e l'invio è riuscito ma vedo che ci sono 4
risposte identiche alle 01.14.
Bo!! Giorgio


author: Antonio Biso

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:am3526$9vq$1...@lacerta.tiscalinet.it...

Chi ti ha detto che l'invio delle 01.14 era fallito?
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:SZfh9.27$wr....@twister1.libero.it...

La finestrella di stato era bloccata su invio in corso e dopo qualche minuto
ho premuto il pulsante interrompi, penso che il messaggio in ogni caso è
stato spedito e Outlook aspettava la risposta dal server.
Ciao.


author: Alessandro Cara

text:
Antonio Biso wrote:
>
>
> Chi ti ha detto che l'invio delle 01.14 era fallito?
>
ah? mi sembrava strano..........trovarti fra i volenterosi
--
a.cara


text:
On Mon, 16 Sep 2002 01:14:58 +0200, "Giorgio prx"
<
giorgio...@tiscalinet.it
> wrote:
> Nella sottomaschera delle rate nell'evento Form_BeforeInsert scrivi questo
>esempio...
>
>Private Sub Form_BeforeInsert(Cancel As Integer)
>
>    If Me.Recordsetclone.Recordcount >= Me.Parent!NumRate Then Cancel=true
>
>End Sub
>
>Anche se la sottomaschera si posiziona nel nuovo record al raggiungimento
>del numero di  rate viene cancellato l'evento di inserimento, nell'esempio
>ho messo l'esclamativo in Me.Parent!NumRate se NumRate e il nome del
>controllo e non del campo sostituisci l'esclamativo con il punto ovvero...
>Me.Parent.NumRate
>
>Ciao Giorgio.
>
ciao, grazie, ora provo e vediamo.
-g-
(quanto mi hai scritto rappresenta una novita, sperem)


text:
On Mon, 16 Sep 2002 01:14:58 +0200, "Giorgio prx"
<
giorgio...@tiscalinet.it
> wrote:
>
>Anche se la sottomaschera si posiziona nel nuovo record al raggiungimento
>del numero di  rate viene cancellato l'evento di inserimento, nell'esempio
>ho messo l'esclamativo in Me.Parent!NumRate se NumRate e il nome del
>controllo e non del campo sostituisci l'esclamativo con il punto ovvero...
>Me.Parent.NumRate
GRAZIE! finalmente funziona! non e il massimo,  "esteticamente"
parlando, ma almeno e un passo avanti al mio nulla!
:)
ciao,
giacomo


title: AZZERARE CONTATORE TABELLA ACCESS

author: ANGRIN

text:
Qualke buona anima mi puņ spiegare come azzerare l'ID di una tabella? Quel
campo lo uso per darmi la progressione per protocollare la corrispondenza
ed ora ho la necessitą che riprenda da 1!
Ciao e buona serata a tutti!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: AZZERARE CONTATORE TABELLA ACCESS

author: Ivan da casa

text:
"ANGRIN" <
angelo....@tiscali.it
> ha scritto nel messaggio
news:dqaukm$kcl$1...@news.newsland.it...
> Qualke buona anima mi può spiegare come azzerare l'ID di una tabella? Quel
> campo lo uso per darmi la progressione per protocollare la corrispondenza
> ed ora ho la necessità che riprenda da 1!
> Ciao e buona serata a tutti!
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
dal menu Strumenti -- > Utilità database --> Compatta e ripristina Database
questa procedura riporta al Minimo valore tutti i contatori. Se non esistono
records, in una tabella, il contatore viene Azzerato.
Se esistono records, il contatore riparte dal minimo numero successivo al
massimo presente in tabella.
--
... spero di esserti stato d'aiuto,
       \|/\|/\|/
       (@ --)
---o00-(_)-00o----- Ivan


title: AZZERARE CONTATORE TABELLA ACCESS

author: cidi

text:
"ANGRIN" <
angelo....@tiscali.it
> ha scritto nel messaggio
news:dqaukm$kcl$1...@news.newsland.it...
> Qualke buona anima mi può spiegare come azzerare l'ID di una tabella? Quel
> campo lo uso per darmi la progressione per protocollare la corrispondenza
> ed ora ho la necessità che riprenda da 1!
> Ciao e buona serata a tutti!
>
Ciao Angrin
usare l'ID di una tabella per la numerazione progressiva non è la cosa
migliore,
anzi sarebbe da evitare. cerca con google che trovi molto materiale per
numerare
progressivamente la corrispondenza, e nel sito comune la faq:
6.17 numerazione progressiva per fatture e altro.
per riportare a zero la tabella devi eliminare tutti i record e compattare
il db.
Daniele


title: Import tabella

author: Francesco Porců

text:
Come posso importare una tabella da codice ?
Es. Devo Importare nel database corrente
Path = C:\MioDB\Campo.mdb
Tabella = Cognomi


title: Import tabella

author: Old-Jack

text:
"Francesco Porců" <
por...@tin.it
> ha scritto nel messaggio
news:ipnJ9.1059$ab2....@news1.tin.it...

Questo č il codice:
DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\MioDB\Campo.mdb",
acTable, "Cognomi", "Cognomi", False
Ciao
Old-Jack


title: Import tabella

text:
grazie mille
ciao
"Old-Jack" <
onesp...@libero.it
> ha scritto nel messaggio
news:SLnJ9.521$TC5....@twister1.libero.it...



title: formato numerico maledetto

author: W. A. V. A.

text:
Ho un problema a personalizzare o trovare il formato numerico adatto
al mio caso .
Ecco il fatto :
ho questi numeri :
12500
12000,25411
14000,02
Se scelgo il formato STANDARD con cifre decimali AUTOM ecco cosa
succede
12.500,00
12.500,25
14.000,02
Io voglio ottenere:
12.500
12.000,25411
14.000,02
Quale formato personalizzato devo impostare ?


title: formato numerico maledetto

text:
Hai provato a non assegnare nessun formato numerico al campo?
Se non assegni nessun formato dovrebbe visualizzarti i numeri con i decimali
da te inseriti.
W. A. V. A. <
wava...@libero.it
> wrote in message
39C0F1CF...@libero.it...



title: formato numerico maledetto

author: Roberto

text:
"W. A. V. A." <
wava...@libero.it
> ha scritto nel messaggio
news:39C0F1CF...@libero.it...
> Ho un problema a personalizzare o trovare il formato numerico adatto
> al mio caso .
> Ecco il fatto :
> ho questi numeri :
> 12500
> 12000,25411
> 14000,02
>
> Se scelgo il formato STANDARD con cifre decimali AUTOM ecco cosa
> succede
> 12.500,00
> 12.500,25
> 14.000,02
>
> Io voglio ottenere:
> 12.500
> 12.000,25411
> 14.000,02
>
> Quale formato personalizzato devo impostare ?
>
Se adoperi #.###,##### ottieni:
12.500,
12.000,25411
14.000,02
che non è proprio quello che vuoi tu, però ci si avvicina molto
Roberto


title: formato numerico maledetto

text:
W. A. V. A. wrote:
> Ho un problema a personalizzare o trovare il formato numerico adatto
> al mio caso .
> Ecco il fatto :
> ho questi numeri :
> 12500
> 12000,25411
> 14000,02
>
> Se scelgo il formato STANDARD con cifre decimali AUTOM ecco cosa
> succede
> 12.500,00
> 12.500,25
> 14.000,02
>
> Io voglio ottenere:
> 12.500
> 12.000,25411
> 14.000,02
>
> Quale formato personalizzato devo impostare ?
  nessun altro consiglio??????


title: Stampare su piu' colonne stile Word

author: pfm

text:
Salve!
vorrei stampare 2 campi di una tabella
Cognome e Telefono
poiche' questi non occupano tutta la larghezza del foglio, vorrei
continuare a stampare creando + colonne
stile
pagina 1
a   f  m
b  g  n
c  h  o
d  i   p
e  l   q
pagina 2
r
s
t
dove le varie lettere sono record di una anagrafica
come e' possibile?
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


title: Stampare su piu' colonne stile Word

author: principiante

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3bcb0605...@news.interbusiness.it...
> Salve!
> vorrei stampare 2 campi di una tabella
> Cognome e Telefono
> poiche' questi non occupano tutta la larghezza del foglio, vorrei
> continuare a stampare creando + colonne
>
> stile
>
> pagina 1
> a   f  m
> b  g  n
> c  h  o
> d  i   p
> e  l   q
>
>
> pagina 2
> r
> s
> t
>
> dove le varie lettere sono record di una anagrafica
>
> come e' possibile?
>
> Grazie anticipatamente
>
> PFM
> --
Se non ho capito male ti basta File-ImpostaPagina-NumeroColonne....


title: Stampare su piu' colonne stile Word

author: Sergio MAZZA (Ufficio Stampa)

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3bcb0605...@news.interbusiness.it...

Apri il report e scegli dal menů: file - imposta pagina - colonne...
Ciao.


title: Stampare su piu' colonne stile Word

text:
"Sergio MAZZA \(Ufficio Stampa\)" <
sergi...@tiscalinet.it
> wrote:
>"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
>news:3bcb0605...@news.interbusiness.it...
>> Salve!
>> vorrei stampare 2 campi di una tabella
>> Cognome e Telefono
>> poiche' questi non occupano tutta la larghezza del foglio, vorrei
>> continuare a stampare creando + colonne
>> ....
>Apri il report e scegli dal menů: file - imposta pagina - colonne...
Grazie, ma NON sono riuscito.
Ho settato 2 colonne e noto che ho molto spazio libero, ma in
anteprima non viene visualizzatala seconda colonna
Saluti



title: Stampare su piu' colonne stile Word

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3bcd5d11...@news.interbusiness.it...
> "Sergio MAZZA \(Ufficio Stampa\)" <
sergi...@tiscalinet.it
> wrote:
>
> >"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
> >news:3bcb0605...@news.interbusiness.it...
> >> Salve!
> >> vorrei stampare 2 campi di una tabella
> >> Cognome e Telefono
> >> poiche' questi non occupano tutta la larghezza del foglio, vorrei
> >> continuare a stampare creando + colonne
> >> ....
>
> >Apri il report e scegli dal menů: file - imposta pagina - colonne...
>
> Grazie, ma NON sono riuscito.
> Ho settato 2 colonne e noto che ho molto spazio libero, ma in
> anteprima non viene visualizzatala seconda colonna
>
> Saluti
>
> PFM
Se non sbaglio (non ci ho mai provato) devi inserire i controlli
affiancandoli proprio come vuoi stampare le colonne...
Ciao.


title: Dato vuoto con il tab

author: Rosario

text:
Salve in una maschera, voglio che alcuni campi non siano vuoti; ho
impostato la proprieta' del controllo  (is not null, non so se va bene
anche per le date) solo che se vado avanti con il tab non mi da errore.
Come posso ovviare?
Devo fare un test se e' null il valore a proposito come devo
confrontare in base al tipo
cioe'
if data is not null (e' corretto?)
if numero is not null (e' corretto?)
if stringa is not null (e' corretto?)
Non so se sono stato chiaro
Rosario Ciotola
rcio...@gmail.com


title: Dato vuoto con il tab

author: Sergio MAZZA

text:
"Rosario" <
rcio...@gmail.com
> ha scritto nel messaggio
news:1150753748....@g10g2000cwb.googlegroups.com...

Gestisci l'evento "prima di aggiornare" della form inserendoci il codice che
verifica la correttezza dei dati inseriti:
es.
Private Sub Form_BeforeUpdate(Cancel As Integer)
if isnull(me!nomeControllo) then
    msgbox "Il campo: " & me!nomeControllo.caption & " non può essere
vuoto.",vbcritical+vbokonly
    me!nomeControllo.setfocus
    cancel = true
end if
End Sub
Ciao.
--
Sergio MAZZA


title: Ricercare record tramite 3 combobox

author: M. Rick

text:
Vorrei cercare di rintracciare un record utilizzando tre cbbox per
specificare i criteri, in un DB anagrafico
attualmente uso una sola cbbox associata ad una query che mi visualizza in
ordine alfabetico, su tre colonne, cognome, quindi il nome (se identico) e
la data di nascita.
Però così facendo potrei avere centinaia di rossi mario, e cmq dovrei
scorrere l'elenco partenda da rossi adamo, in quanto, digitando "rossi" la
cbbox mi posiziona solo sul "rossi" e poi devo scorrere l'elenco fino a
mario.
Usando 3 cbbox: nella primo scrivo rossi e quindi mi si posiziona su
"rossi", nella seconda scrivo "mario" quindi mi si posiziona sul primo dei
"rossi mario" e poi dalla terza seleziono manualmente la data di nascita che
mi interessa.
Questo sulla carta....m in pratica come le realizzo le tre cbbox a cascata?
Oppure come potrei risolvere il problema?
Grazie
Andrea


title: Ricercare record tramite 3 combobox

text:
"M. Rick" <
now...@libero.it
> ha scritto nel messaggio
news:dM2Rf.30986$A83.8...@twister1.libero.it...

sul sito comune
www.sitocomune.com
esiste una soluzione al tuo quesito.
direi gli esempi 3.72  e 3.73 (circa)
io però proverei a risolvere il problema con un'altro approccio. Normalmente
le anagrafiche hanno nome e cognome diviso (e questo è bene!), ma tu puoi
unirli (solo in una query) proprio per effettuare le ricerche da una casella
combinata.
Creati una query con due colonne, una con l'id del record ed una che sia
l'unione dei due campi Cognome + Nome.
qualcosa del tipo
SELECT ID,  [cogNome] & " " & [nome] AS NomeComp
FROM TuaTabellaAnagrafica;
(naturalmente devi indicare nomi relativi alla tua tabella e tuoi campi).
a questo punto durante la ricerca puoi digitare di seguito ROSSI M .... e ti
trovi posizionato sul primo ROSSI MARIO.
se nella query componi anche la data di nascita ( o qualsiasi altro campo,
magari su una colonna diversa) allora l'utente può scegliere tra i vari
MARIO ...
--
... spero di esserti stato d'aiuto, facci sapere
       \|/\|/\|/
       (@ @)
---o00-(_)-00o----- Ivan


title: Ricercare record tramite 3 combobox

text:
"M. Rick" <
now...@libero.it
> ha scritto nel messaggio
news:dM2Rf.30986$A83.8...@twister1.libero.it...

Oltre al suggerimento di Ivan da casa, puoi controllare l'evento "dopo
aggiornamento" della casella combinata creandoti il filtro e applicandolo;
quindi nell'evento ci scriverai:
'---
me.filteron = false
if me.filter <> "" then
    me.filter = me.filter & " And nome = " chr$(34) & me!cbNome & chr$(34)
else
    me.filter = "nome = " chr$(34) & me!cbNome & chr$(34)
end if
me.filteron = true
'---
Ciao.
--
Sergio MAZZA


title: Ricercare record tramite 3 combobox

text:
Ottimo il suggerimento di unificare i campi in uno. Funziona a perfezione.
Grazie anche a Sergio
Andrea


title: IF dentro ciclo For ?????

author: marioP

text:
Ho una ListBox Multiselect da cui sciegliere più valori.
Il ciclo For Each con il seguente codice funziona alla perfezione
Private Sub Comando81_Click()
Dim VociElenco As Variant
Set ctl = Me.ListBox1
     	For Each VociElenco In ctl.ItemsSelected
  		  Debug.Print ctl.ItemData(VociElenco)
     	Next VociElenco
End sub
A questo punto però ho bisogno di sapere il valore di column(1) della
listBox
E poi ho bisogno che le condiziioni (IF) facciano qualcosa a seconda
del valore di column(1) selezionato:
Ad Esempio,nella ListaBox1 ho i seguenti valori:
 Colonna0 Colonna1
  “Rossi” "D1"
  “Bianchi” "D2"
  “De Marco” "D3"
  “Cabrini” "D4"

Il problema nel seguente codice è che viene presa in
considerazione solo una condizione e non tante quante sono
le selezioni del Multiselect!
Private Sub Comando81_Click()
Dim Risultato as integer
Dim VociElenco As Variant
Set ctl = Me.ListBox1

For Each VociElenco In ctl.ItemsSelected

                     If ctl.Column(1) = "d1" Then
      			Risultato = 1
  	ElseIf ctl.Column(1) = "d2" Then
    			Risultato = 2
  	 ElseIf ctl.Column(1) = "d3" Then
  			 Risultato = 3
   	ElseIf ctl.Column(1) = "d4" Then
  			Risultato = 4
   	ElseIf ctl.Column(1) = "d5" Then
   			Risultato = 5
   	 End If
          Debug.Print ctl.ItemData(VociElenco)
    Next VociElenco
End Sub
 'PERCHE' Dopo NEXT non legge che ctl.column (1) è CAMBIATA?
'Come si fa a far funzionare IF o SELCT CASE dentro un ciclo For ?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: IF dentro ciclo For ?????

text:
"marioP" <
mariop...@libero.it
> ha scritto nel messaggio
news:87Z10Z99Z22Y11...@usenet.libero.it...

se vuoi usare SELECT CASE puoi trasformare il tuo codice così :
 Private Sub Comando81_Click()
 Dim Risultato as integer
 Dim VociElenco As Variant
 Set ctl = Me.ListBox1
For Each VociElenco In ctl.ItemsSelected
 SELECT CASE ctl.Column(1)
        CASE "d1" : Risultato = 1
        CASE "d2" : Risultato = 2
        CASE "d3" : Risultato = 3
        CASE "d4" : Risultato = 4
        CASE "d5" : Risultato = 5
 END SELECT
         Debug.Print ctl.ItemData(VociElenco)
 Next VociElenco
End Sub
la prima domanda non l'ho capita (!!) ... usi le colonne sapendo che sono
numerate da 0 vero? Nell'interfaccia si definisce la colonna 1 come la
prima, ma nel codice la prima colonna è la ZERO, e questo a volte crea delle
confusioni.
nel tuo caso specifico potresti abbreviare il tutto con un 'trucco' (o
semplificazione, in termini di istruzioni).
Se il Risultato 'è sempre' uguale alla cifra di Column(1) allora potresti
scrivere :
............
Risultato = Mid(ctl.Column(1),2)
............
ed elimini tutto da  Select Case .. a  End Select
IvanDaBologna


title: IF dentro ciclo For ?????

text:
"marioP" <
mariop...@libero.it
> ha scritto nel messaggio
news:87Z10Z99Z22Y11...@usenet.libero.it...

rileggendo il 3D credo di aver intuito (:\) il problema.
Tu istanzi una collezione VociElenco e poi però non la usi nel codice
successivo, continui a riferirti a CTL.ITEMSELECTED !
Probabilmente (anzi sicuramente) questo non ti scandisce l'elenco ma punta
sempre  e solo al primo elemento di un elenco preciso : gli ItemSelected
della tua casella a discesa.
--
... spero di esserti stato d'aiuto,
       \|/\|/\|/
       (@ @)
---o00-(_)-00o----- Ivan


title: IF dentro ciclo For ?????

text:
Il 23 Lug 2006, 08:38, "Ivan da casa" <
ivanSENZAQ...@tin.it
> ha
scritto:

cut
ESATTO: punta sempre al primo elemento.
Immagino gli Item selected di ctl, come fossero un recordset: al momento in
cui indico
di spostarsi alla voce successiva (MoveNext) , mi aspetto che anche IF legga
la nuova
voce ed esegua la nuova condizione. Ma non è così!
Dici che non devo riferirmi sempre a Ctl.ItemSelected.
E a chi devo rivolgermi! A San Gennaro? :-)))
Scherzi a parte mi pare che solo ctl abbia la proprietà Column(1)
Ciao grazie.



title: IF dentro ciclo For ?????

author: giorgio rancati

text:
--
Giorgio Rancati
[Office Access MVP]
"marioP" <
mariop...@libero.it
> ha scritto nel messaggio
news:87Z10Z99Z22Y11...@usenet.libero.it...

perchè ctl.column (1) è riferito all'item selezionato e non a quello
indirizzato da  Vocielenco.
per leggere la colonna relativa a Vocielenco fai così
----
For Each VociElenco In ctl.ItemsSelected
  If ctl.Column(1,Vocielenco) = "d1" Then
      Risultato = 1
  ElseIf ctl.Column(1,Vocielenco) = "d2" Then
    Risultato = 2
  ElseIf ctl.Column(1,Vocielenco) = "d3" Then
  Risultato = 3
   ElseIf ctl.Column(1,Vocielenco) = "d4" Then
  Risultato = 4
   ElseIf ctl.Column(1,Vocielenco) = "d5" Then
   Risultato = 5
   End If
   Debug.Print ctl.ItemData(VociElenco)
   Debug.Print ctl.ItemData(1,VociElenco)
 Next VociElenco
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: IF dentro ciclo For ?????

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:44c34473$0$970$5fc...@news.tiscali.it...
ops, questa
----
>    Debug.Print ctl.ItemData(1,VociElenco)
----
va scritta cosě
----
Debug.Print ctl.Column(1, VociElenco)



title: IF dentro ciclo For ?????

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:44c3469b$0$1000$5fc...@news.tiscali.it...

scusa Giorgio, ma non si puň ciclare sugli ItemSelected come se fossero
elementi della CasellaAdiscesa ?
qualcosa del tipo
Risultato = VociElenco.Column(1)
... ??
altrimenti nella maniera che voleva tenere lui, non ha senso istanziare
VociElenco ... o no ?!
'ciao


title: IF dentro ciclo For ?????

text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio
news:44c362d3$0$32148$4faf...@reader1.news.tin.it...
> ... ??
>
> altrimenti nella maniera che voleva tenere lui, non ha senso istanziare
> VociElenco ... o no ?!
ha senso eccome :-)
Ho l'impressione che non avete capito cosa sia VociElenco  :-)
VociElenco č un array o come preferisci un insieme di tipo Long (itero
lungo)  in cui sono contenuti i numeri delle righe selezionate.
Per capire meglio, metti nel loop l'istruzione
-----
Debug.Print VociElenco
-----
Forse cosě č piů chiaro.



title: IF dentro ciclo For ?????

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:44c365a7$0$979$5fc...@news.tiscali.it...
> "Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio
> news:44c362d3$0$32148$4faf...@reader1.news.tin.it...
>> ... ??
>>
>> altrimenti nella maniera che voleva tenere lui, non ha senso istanziare
>> VociElenco ... o no ?!
>
> ha senso eccome :-)
> Ho l'impressione che non avete capito cosa sia VociElenco  :-)
> VociElenco è un array o come preferisci un insieme di tipo Long (itero
> lungo)  in cui sono contenuti i numeri delle righe selezionate.
> Per capire meglio, metti nel loop l'istruzione
> -----
> Debug.Print VociElenco
> -----
> Forse così è più chiaro.
>
> Ciao
> --
> Giorgio Rancati
> [Office Access MVP]
>
orca !
è verissimo.
Per un'attimo(moolto lungo), ho pensato che potesse essere l'insieme delle
sole righe selezionate con tutte le loro proprietà !! ;)
grz per il chiarimento ...
IvanDaBologna


title: IF dentro ciclo For ?????

text:
Il 23 Lug 2006, 11:52, "giorgio rancati"
<
giorgio_No_Sp...@tiscali.it
> ha scritto:
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> messaggio news:44c34473$0$970$5fc...@news.tiscali.it...
>
> ops, questa
> ----
> > Debug.Print ctl.ItemData(1,VociElenco)
> ----
> va scritta così
> ----
> Debug.Print ctl.Column(1, VociElenco)
> ----
>
> Ciao
> --
> Giorgio Rancati
> [Office Access MVP]
Perfetto!!!! La soluzione al mio problema è stata trovata.
(Anche se io pensavo che la proprietà Column prevedesse un numero di riga ,
dopo il numero colonna…Non sapevo che si potesse mettere un argomento…
studierò meglio)....
A proposito di ListBox e Recordset
In un 3D di qualche settimana fa, qualcuno mi ha suggerito la proprietà
Recordset di
ListBox. (ListBox.Recordset…Sarebbe comoda!!!)
Io uso Access2000 ed ho caricato entrambe le librerie DAO e ADO
Ma questa proprietà… non funziona. Esiste o non esiste?
Se esiste quale potrebbe essere la ragione per cui non funziona?
Grazie ad entrambi per le risposte del precedente 3D



title: IF dentro ciclo For ?????

text:
"marioP" <
mariop...@libero.it
> ha scritto nel messaggio
news:82Z57Z43Z24Y11...@usenet.libero.it...
> Perfetto!!!! La soluzione al mio problema è stata trovata.
>
> (Anche se io pensavo che la proprietà Column prevedesse un numero di riga
,
> dopo il numero colonna…Non sapevo che si potesse mettere un argomento…
> studierò meglio)....
no, prevede prima il numero di colonna e poi opzionale il numero di riga.
lo suggerisce anche l'intellisense
----
Column(Index as Long,[Row])
----
Trovi tutto nel manuale
> A proposito di ListBox e Recordset
>
> In un 3D di qualche settimana fa, qualcuno mi ha suggerito la proprietà
> Recordset di
> ListBox. (ListBox.Recordset…Sarebbe comoda!!!)
ma il recordset non ti dice quali righe sono selezionate.
> Io uso Access2000 ed ho caricato entrambe le librerie DAO e ADO
> Ma questa proprietà… non funziona. Esiste o non esiste?
> Se esiste quale potrebbe essere la ragione per cui non funziona?
In Access 2000 non esiste, è stata implementata dalla versione 2002.
> Grazie ad entrambi per le risposte del precedente 3D
Prego :-)



title: IF dentro ciclo For ?????

text:
[cut]
> Grazie ad entrambi per le risposte del precedente 3D
>
anch'io : prego ... di poter capire tutte queste cose un giorno!
;))
IvanDaBologna


title: win2k server e file aperti

author: ringo

text:
Salve a tutti,
è possibile andare a leggere i file aperti
del s.o. win2k server tramite codice access?
grazie
ringo


title: errorre di confronto fra campi calcolati

author: David

text:
buongiorno!! ho un grosso problema su un DB gestione corrispettivi (soldini
?), ho la funzione che confronta due campi calcolati e se sono diversi mi
blocca l'inserimento degli incassi nel libro dei corrispettivi, certe volte
funziona poi inspiegabilmente con certi importi anche se i valori delle due
caselle sono uguali la funzione mi blocca; ho provato anche l'operatore <>
con lo stesso risultato, mi sono appoggiato a due variabili al posto dei
campi ma niente, sapete da che cosa può dipendere?
grazie david
    If ((cTotCon + cTotPOS) = Me.mTotale) = False Then
        MsgBox ""
        Me.mTotVersato.SetFocus
        Verifica = False
        Exit Function
    End If


author: mayerlink

text:
"David" <
davi...@aopn.fvg.it
> ha scritto nel messaggio
news:cnkj25$q47$1...@fata.cs.interbusiness.it...

Prova con Me!mTotale
mayerlink


text:
"mayerlink" <
maye...@virgilio.it
> ha scritto nel messaggio
news:Mglnd.190163$b5.94...@news3.tin.it...
>
> "David" <
davi...@aopn.fvg.it
> ha scritto nel messaggio
> news:cnkj25$q47$1...@fata.cs.interbusiness.it...
> > buongiorno!! ho un grosso problema su un DB gestione corrispettivi
> (soldini
> > ?), ho la funzione che confronta due campi calcolati e se sono diversi
mi
> > blocca l'inserimento degli incassi nel libro dei corrispettivi, certe
> volte
> > funziona poi inspiegabilmente con certi importi anche se i valori delle
> due
> > caselle sono uguali la funzione mi blocca; ho provato anche l'operatore
<>
> > con lo stesso risultato, mi sono appoggiato a due variabili al posto dei
> > campi ma niente, sapete da che cosa puň dipendere?
> > grazie david
> >
> >     If ((cTotCon + cTotPOS) = Me.mTotale) = False Then
> >         MsgBox ""
> >         Me.mTotVersato.SetFocus
> >         Verifica = False
> >         Exit Function
> >     End If
> >
> >
>
> Prova con Me!mTotale
> mayerlink
>
>
Non funziona! P.P.
(1323.88=1323.88)=false
Solo con i miei euro le cose sono uguali!
Per calcolare delle somme in euro in codice č meglio usare le variabili
currency o single? E che formato devo configurare nei controlli per inserire
i dati?
Sono sull'orlo del suicidio!
David


title: Dropdown casella combinata su apertura maschera

author: Paolo

text:
Buonasera Gruppo
Avrei bisogno di far "Aprire" una combobox su una form quando questa viene aperta,in modo da visualizzare immediatamente come è popolata la combobox ed effettuare una selezione.
Su evento apertura maschera ho impostato il seguente codice:
Me.cboX.setfocus
Me.cboX.dropdown

La combobox si apre e si richiude immediatamente senza lasciar selezionare nulla.

Con lo stesso codice se lo utilizzo su evento click di un pulsante funziona alla perfezione.

C'è qualche problema di incompatibilità tra dropdown e l'evento openform o mi sfugge qualcosa?

Grazie


author: BFS

text:

probabile che hai altro codice che fa perdere il focus alla casella

BFS


author: Michele

text:

probabilmente c'è qualche altro evento che si attiva dopo openform che ti chiude la combobox.
imposta un timerinterval di 500 e in form_timer mettici il tuo codice seguito da me.timerinterval = 0
dovrebbe andare


title: su click di una casella di testo selezionare tutto il contenuto

author: mario rossi

text:
un operatore mi ha fatto notare che quando usa il tasto TAB per passare da un campo a un altro di una form tutto il contenuto si seleziona e quindi l'operatore può già scrivere il nuovo testo

mentre

se clicca con il mouse all'interno del campo si posiziona il cursore all'interno del testo contenuto e deve fare canc o backspace per eliminare il testo e poi scrivere il testo nuovo

è possibile selezionare tutto il testo anche con il click del mouse?


text:

risolto su click del campo ho messo

Me!Data.SelStart = 0
Me!Data.SelLength = Len(Me!Data.Text)


text:

qualcuno mi sa dire perchè non va con la combobox?


title: Conversione Access2000

author: Zangarel

text:
Salve a tutti,
ho un problema di questo tipo: ho un programmino fatto in Access97 quando lo
porto in una macchina Windows NT-2000 con Office 2000,se lo apro (sia che lo
converto, che non lo converto) mi da questo errore: "Impossibile trovare la
libreria??"
Il tutto xchè nel programma (fatto con Access97) ho usato un componente
Calendario (MSCAL.OCX) in inglese e non riesco a riportarlo/registrarlo
nell'altra macchina con Office2000...cosa bisogna fare?????
A QUALCUNO E' MAI CAPITATO.......?????
Ringrazio anticipatamente chi mi fornisce un aiuto...........
Luca


title: Store procedure in Access

author: GIERRE

text: E' vero che Access non supporta le Store Procedure?


title: Store procedure in Access

author: Fabio

text:
"GIERRE" <
gia...@freemail.it
> ha scritto nel messaggio
news:am4n1a$5gs$1...@e3k.asi.ansaldo.it...
> E' vero che Access non supporta le Store Procedure?
>
>
I progetti di Access 2000 (.adp) le supportano.
Fabio


title: Store procedure in Access

text:
Fabio <
nospam_fa...@tin.it
> wrote in message
49mh9.2644$j15....@twister2.libero.it...

Si tratta di SQL Server però


title: Store procedure in Access

text:
"GIERRE" <
gia...@freemail.it
> ha scritto nel messaggio
news:am4upj$6dm$1...@e3k.asi.ansaldo.it...
>
> Si tratta di SQL Server però
>
>
E allora? Con i progetti di Access puoi accedere a un database sia di MSDE
che di SQL Server e quindi alle varie Tabelle, Viste, Store Procedure.
Fabio


title: Store procedure in Access

text:
Fabio <
nospam_fa...@tin.it
> wrote in message
%1Ah9.4180$Hc7....@twister1.libero.it...

Volevo dire che confermi che un mdb non supporta le SP,io per Access intendo
mdb.
Cmq grazie mille,mi occorreva una conferma
GR


title: chiudere/aprire maschere a specifici record

author: Gloria

text:
Buongiorno,
avrei bisogno di un aiuto su un comando che non funziona come vorrei, ma
non riesco a capire in che modo risolvere il problema.
In una maschera chiamata "AssignPosto", clicco il pulsante "inserisci
nuovo posto" e la maschera AssignPosto si chiude e si apre un'altra
maschera chiamata "EditPostoNew" in formato immissione dati. Questo mi
serve per aggiungere un record (un'"posto" nel mio caso), qualora non sia
stato ancora inserito. Un volta compilati tutti i campi, vorrei chiudere
la maschera in cui ho inserito il nuovo record (EditPostoNew) e riaprire
la maschera "AssignPosto" al record che ho appena inserito, in modo che mi
venga visualizzato tale record.
Per far questo, nella maschera "EditPostoNew" ho aggiunto un pulsante
"Esci" con il seguente codice (il campo ID_Posto, comune a entrambe le
maschere è la chiave primaria):
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "AssignPosto"
    stLinkCriteria = "[ID_Posto]=" & "'" & Form_EditPostoNew!ID_Posto & "'"

 Form_EditPostoNew.Refresh
    DoCmd.Close

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click

End Sub
Cliccando però tale pulsante mi compare il seguente errore, che non so
risolvere:
"L'azione OpenForm è stata annullata.
E' stato utilizzato un metodo dell'oggetto DoCmd per eseguire un'azione in
Visual Basic ma poi è stato scelto Annulla in una finestra di dialogo.
E' stato utilizzato, ad esempio, il metodo Close per chiudere una maschera
modificata, quindi è stato scleto Annulla nella finestra di dialogo in cui
viene richeisto se si desidera salvare le modifiche apportate alla
maschera."
Sapreste indicarmi come muovermi per risolvere questo punto o se ci sono
degli errori nel codice scritto?
Grazie per l'attenzione,
Gloria
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Roberto dalla campagna

text:
Gloria <
glori...@yahoo.it
> wrote in message
bhq7qc$6ni$1...@news.newsland.it...

Se il campo ID_Posto è di tipo numerico prova così:
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stLinkCriteria As String
    stLinkCriteria = "[ID_Posto]=" & Me!ID_Posto
    DoCmd.OpenForm "AssignPosto", , , stLinkCriteria
    DoCmd.Close acForm, "EditPostoNew"
Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click
End Sub
Se è invece di tipo testo prova così:
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stLinkCriteria As String
    stLinkCriteria = "[ID_Posto]='" & Me!ID_Posto & "'"
    DoCmd.OpenForm "AssignPosto", , , stLinkCriteria
    DoCmd.Close acForm, "EditPostoNew"
Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
> Se il campo ID_Posto č di tipo numerico prova cosě:
> Se č invece di tipo testo prova cosě:
> Roberto
Grazie, proverň nel modo che mi ha indicato.
E' stato molto gentile a rispondere,



text:
Gloria <
glori...@yahoo.it
> wrote in message
bhv5ih$pfp$1...@news.newsland.it...
> > Se il campo ID_Posto è di tipo numerico prova così:
>
> > Se è invece di tipo testo prova così:
>
> > Roberto
>
> Grazie, proverò nel modo che mi ha indicato.
> E' stato molto gentile a rispondere,
> Gloria
>
Ciao Gloria,
volevo solo ricordarti che nei NewsGroups ci si dà del tu e non del lei, e
questo anche se il frequentatore con cui si sta dialogando (io) ha ormai
molti capelli bianchi. :-)



author: desio

text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:WWL0b.253502$lK4.7...@twister1.libero.it...
>
> Gloria <
glori...@yahoo.it
> wrote in message
> bhv5ih$pfp$1...@news.newsland.it...
> > > Se il campo ID_Posto è di tipo numerico prova così:
> >
> > > Se è invece di tipo testo prova così:
> >
> > > Roberto
> >
> > Grazie, proverò nel modo che mi ha indicato.
> > E' stato molto gentile a rispondere,
> > Gloria
> >
>
> Ciao Gloria,
>
> volevo solo ricordarti che nei NewsGroups ci si dà del tu e non del lei, e
> questo anche se il frequentatore con cui si sta dialogando (io) ha ormai
> molti capelli bianchi. :-)
>
> --
> Roberto
>
Caro Roberto sapevo che questo post si sarebbe prolungato
ciao e a proposito dove campagna?
desio
>


text:
desio <
giscar...@dada.it
> wrote in message 3f43b...@news.dada.it...
>
[CUT]
> >
> Caro Roberto sapevo che questo post si sarebbe prolungato
> ciao e a proposito dove campagna?
17 Km a sud di Perugia.
> desio



text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:CD11b.255259$lK4.7...@twister1.libero.it...
>
> desio <
giscar...@dada.it
> wrote in message 3f43b...@news.dada.it...
> >
> [CUT]
> > >
> > Caro Roberto sapevo che questo post si sarebbe prolungato
> > ciao e a proposito dove campagna?
>
> 17 Km a sud di Perugia.
>
bello! Vera Campagna
ciao desio
>
>


author: Antonio Biso

text:
"desio" <
giscar...@dada.it
> ha scritto nel messaggio
news:3f44a...@news.dada.it...

E che ojo !!!
Antonio


text:
Antonio Biso <
ch...@etruria.net
> wrote in message
K241b.255164$Ny5.7...@twister2.libero.it...

E che Vin Santo !!! :-)
Roberto


text:
> > > > [CUT]
> > > > > >
> > > > > Caro Roberto sapevo che questo post si sarebbe prolungato
> > > > > ciao e a proposito dove campagna?
> > > >
> > > > 17 Km a sud di Perugia.
> > > >
> > > bello! Vera Campagna
> >
> > E che ojo !!!
> >
> > Antonio
>
> E che Vin Santo !!! :-)
>
> Roberto
>
I biscotti di Prato (quelli veri di "mattonella")sono buoni inzuppati nel
vin santo
desio da Prato


title: Filtrare valori vuoti

text:
Salve a tutti! ho un problema e spero di essere abbastanza chiaro nello
spiegarmi. Ho bisogno di filtrare dei dati all' apertura di una
maschera secondo due condizioni : se il campo STATO risulta "CHIUSO" e
se il campo DATA INVIO è vuoto.
mi potete dare una mano? Grazie.


title: Filtrare valori vuoti

author: Bruno Campanini

text:
<
mar.c...@gmail.com
> wrote in message
news:1166401567....@80g2000cwy.googlegroups.com...

Se esegui il comando da un Command Button ovvero
per mezzo di altro evento esterno:
DoCmd.OpenForm "FormName", , , "[STATO] = 'CHIUSO'
                                                And [DATA INVIO] Is Null"
oppure:
in On Load della scheda:
DoCmd.ApplyFilter, "[STATO] = 'CHIUSO'
                         And [DATA INVIO] Is Null"
Bruno


title: AIUTO x vers. 2.0

author: Vincenzo

text:
Buon giorno a tutti
cerco disperatamente una versione di access 2.0
Qualcuno mi puň aiutare?
Potete inviarmela, oppure indicarmi un sito da dove posso scaricarla?
grazie a tutti
Vincenzo


title: selezionare un pezzo di stringa compresa fra 2 cancelletti

text:
in...@pippo.it#mailto:in...@pippo.it#
vorrei avere in una sottostringa solo mailto:
in...@pippo.it
mi sapete aiutare?
Grazie,


author: Cinzia

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:chkv04$k33$1...@lacerta.tiscalinet.it...

Ciao Simba883
prova questa funzione
Public Function Estrai(buf As String)
    Dim i As Integer
    Dim j As Integer
    Estrai = buf
    If Len(buf) > 0 Then
            i = InStr(buf, "#")
            If i > 0 Then
                j = InStr(i + 1, buf, "#")
                If j = 0 Then j = Len(buf) + 1
                Estrai = Mid(buf, i + 1, j - i - 1)
            End If
    End If
End Function
Saluti
Cinzia


text:
> >
in...@pippo.it#mailto:in...@pippo.it#
> >
> > vorrei avere in una sottostringa solo mailto:
in...@pippo.it
> >
se invece volessi la parte iniziale fino al primo carattere # č piu
semplice?


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:chl1r4$m6l$1...@lacerta.tiscalinet.it...

Appena  un po',
diventerebbe cosě:
Public Function Estrai2(buf As String)
    Dim i As Integer
    Estrai = buf
    If Len(buf) > 0 Then
            i = InStr(buf, "#")
            If i > 0 Then
                 Estrai = Mid(buf, i -1)
            End If
    End If
End Function
Cinzia


text:
> > > >
> >
> > se invece volessi la parte iniziale fino al primo carattere # č piu
> > semplice?
> >
> Appena  un po',
> diventerebbe cosě:
>
> Public Function Estrai2(buf As String)
>     Dim i As Integer
>     Estrai = buf
>     If Len(buf) > 0 Then
>             i = InStr(buf, "#")
>             If i > 0 Then
>                  Estrai = Mid(buf, i -1)
>             End If
>     End If
> End Function
>
> Cinzia
PS:
Se sei assolutamente sicuro che nel campo in questione il # c'č sempre puoi
anche mettere direttamente nella query o nell'origine controllo
Mid([Campo]; instr([Campo]; "#") -1)
Cinzia


author: MA

text:
"Simba883" <
simb...@libero.it
> ha scritto nel
messaggio
news:chkv04$k33$1...@lacerta.tiscalinet.it...
>
in...@pippo.it#mailto:in...@pippo.it#
>
> vorrei avere in una sottostringa solo
mailto:
in...@pippo.it
Poveraccio, ora l'account
pippo.it
 si ritroverà
pieno di spam!!!!
Evita gli indirizzi in chiaro.
;-P
MAssimiliano


author: Sergio MAZZA

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio news:chkv04$k33$1...@lacerta.tiscalinet.it...

Se Access 200x = Funzione Split (vedi help).
Se Access 97 = sito comune - funzioni Token e nToken...
Ciao.
--
Sergio MAZZA


text:
> mailto:
in...@pippo.it
> Poveraccio, ora l'account
pippo.it
 si ritroverà
> pieno di spam!!!!
>
> Evita gli indirizzi in chiaro.
>
> ;-P
> MAssimiliano
pensavo fosse abbastanza generico invece mi sa che esiste, è stato un
errore.


author: Luciano (DOC)

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:chkv04$k33$1...@lacerta.tiscalinet.it...
>
in...@pippo.it#mailto:in...@pippo.it#
> vorrei avere in una sottostringa solo mailto:
in...@pippo.it
Presumendo che ci possano essere altri caratteri dopo l'ultimo cancelletto:
newstringa = Mid(stringa, InStr(1, stringa, "#") + 1, InStrRev(stringa,
"#") - InStr(1, stringa, "#") - 1)
Saluti.
Luciano


title: Aggiornare controlli maschera principale con controlli sottomaschera

author: Alfio

text:
Buongiorno a tutti.
come da oggetto ho questo problema:
controllo "TotImp" in maschera principale è il risultato di un calcolo in sottomaschera. Nella sottomaschera sull'evento dopo aggiornamento di una casella combinata ho il seguente codice:

Private Sub CmbArt_AfterUpdate()
.
.
.
.
Forms![F_InsOrdini]![TotImp] = Me.totaleimponibile
' a questo rigo ho provato con i vari REFRESH RECALC sia sulla maschera che sul controllo senza risultato
.
.
.
.
End Sub

Purtroppo nella maschera principale il controllo TotImp resta inesorabilmente uguale a 0, mentre il controllo della sottomaschera è stato valorizzato.
Perchè non si aggiorna il controllo della maschera principale?  Dove sbaglio?

Grazie per l'aiuto

Alfio


text:
> Perchè non si aggiorna il controllo della maschera principale?  Dove sbaglio?
>
>
>
> Grazie per l'aiuto
>

Proprio nessuno può indicarmi l'errore?


author: Karl Donaubauer

text:
Alfio:
> come da oggetto ho questo problema:
> controllo "TotImp" in maschera principale ï¿œ il risultato di un calcolo in sottomaschera. Nella sottomaschera sull'evento dopo aggiornamento di una casella combinata ho il seguente codice:
>
> Private Sub CmbArt_AfterUpdate()
> .
> Forms![F_InsOrdini]![TotImp] = Me.totaleimponibile
> ' a questo rigo ho provato con i vari REFRESH RECALC sia sulla maschera che sul controllo senza risultato
> .
> End Sub
>
> Purtroppo nella maschera principale il controllo TotImp resta inesorabilmente uguale a 0, mentre il controllo della sottomaschera ï¿œ stato valorizzato.
> Perchï¿œ non si aggiorna il controllo della maschera principale?  Dove sbaglio?

- Quale versione di Access usi con quale SP?
- Qual'ï¿œ "il calcolo" che succede nella sottomaschera? Fatto con quale
metodo? Espressione, codice?
- Prova cosa ti dï¿œ

Msgbox Me!totaleimponibile

nella riga prima del tentativo di assegnarlo alla maschera pricipale.

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

Access Lobby:
http://www.AccessDevelopers.org


author: orte

text:
Il 06/10/2014 17:00, Karl Donaubauer ha scritto:
> - Quale versione di Access usi con quale SP?
> - Qual'è "il calcolo" che succede nella sottomaschera? Fatto con quale
> metodo? Espressione, codice?
> - Prova cosa ti dà
>
> Msgbox Me!totaleimponibile
>
> nella riga prima del tentativo di assegnarlo alla maschera pricipale.
>
Chiedo scusa se mi "infilo" ma vedo che Alfio non risponde... approfitto
della gentilezza di Karl.
Ho lo stesso problema, credo e provo a rispondere io sperando di essere
utile anche a Alfio.
- Access 2007
- Nella sottomaschera i dati da sommare sono originati da una espressione.
- Nel pié di pagina della sottomaschera ho un controllo con
l'espressione =SOMMA([NomeCampoda sommare*) che viene regolarmente
valorizzata.
- Devo assegnare questo valore su un controllo della maschera principale
che però è associato a un campo della Tabella master
E qui sta l'impiccio...
Se infatti inserisco un secondo controllo NON associato, e nel codice
innescato da un AfterUpdate() scrivo come origine dati
"=[NomeSottomaschera]![NomeControllo]" tutto va bene.
Inoltre se inserisco un   MsgBox XX ottengo 0, nel monitor il controllo
del Totale è vuoto e solo quando chiudo il MsgBox appare il calcolo
della Somma desiderata.
Spero di essre stato chiaro olre che prolisso...
Se mi potessi aiutare credo che il problema non sia solo mio.
GRAZIE!!!


title: Anteprima report diversa dalla Stampa

author: Alessandro Veroli

text:
Ho creato un piccolo programmino per la fatturazione e nel report ho
inserito del codice che mi visualizza il totale fattura solo nell'ultima
pagina!
A video tutto ciň viene eseguito correttamente ma quando stampo il totale
viene scritto su ogni pagina!!!
Spero vivamente che qualcuno mi aiuti!!!
Alessandro


title: Anteprima report diversa dalla Stampa

text:
"Alessandro Veroli" <
ver...@libero.it
> ha scritto nel messaggio
news:mOYc9.141472$lu5.3...@twister1.libero.it...

Se non sappiamo cosa hai scritto come si fa ad aiutarti?
Posta il codice
FABIO


title: Anteprima report diversa dalla Stampa

author: Catja Moeller

text:
On Tue, 03 Sep 2002 06:39:14 GMT, "Alessandro Veroli"
<
ver...@libero.it
> wrote:
>Ho creato un piccolo programmino per la fatturazione e nel report ho
>inserito del codice che mi visualizza il totale fattura solo nell'ultima
>pagina!
>A video tutto ciò viene eseguito correttamente ma quando stampo il totale
>viene scritto su ogni pagina!!!
Non va bene mettere il totale semplicemente nel "pie' di pagina
report" (senza nessun codice aggiunto), anzicche' nel "pie' di pagina
pagina"?


title: Anteprima report diversa dalla Stampa

text:
If Me.Page = [Pages] Then
Me.Testo32.Visible = True
End if
Naturalmente impostando per default visible= false!
"Fabio" <
nospam_fa...@tin.it
> ha scritto nel messaggio
news:5e_c9.142691$n04.3...@twister2.libero.it...



title: Anteprima report diversa dalla Stampa

text:
"Alessandro Veroli" <
ver...@libero.it
> ha scritto nel messaggio
news:_k_c9.142708$n04.3...@twister2.libero.it...
> If Me.Page = [Pages] Then
> Me.Testo32.Visible = True
> End if
>
> Naturalmente impostando per default visible= false!
1- La prossima volta scrivi dopo il quoting
2- Hai messo la routine... di che evento?
    Prova a mettere queste istruzioni nell'evento SuFormattazione del report
Fabio


title: Anteprima report diversa dalla Stampa

text:
"Fabio" <
nospam_fa...@tin.it
> ha scritto nel messaggio
news:Yt_c9.142736$n04.3...@twister2.libero.it...

La routine è SuFormattazione di Pièdipaginapagina
Il codice comunque è giusto perchè a video esegue esattamente ciò che
voglio, ma se poi lo stampo vedo il totale in ogni pagina!
Alessandro


title: Anteprima report diversa dalla Stampa

author: Roberto da casa

text:
"Alessandro Veroli" <
ver...@libero.it
> ha scritto nel messaggio
news:_k_c9.142708$n04.3...@twister2.libero.it...
> If Me.Page = [Pages] Then
> Me.Testo32.Visible = True
> End if
>
[CUT]
Hai provato con
If Me.Page = [Pages] Then
    Me.Testo32.Visible = True
Else
    Me.Testo32.Visible = False
End if
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Anteprima report diversa dalla Stampa

author: Fabio

text:
"Alessandro Veroli" <
ver...@libero.it
> ha scritto nel messaggio
news:2d%c9.142922$n04.3...@twister2.libero.it...

Ho provato a mettere nel report due controlli nascosti che si chiamano
NumPagina e NumPagine e che hanno come origine rispettivamente Page e Pages
a questo punto nell'evento SuFormattazione di Pièdipaginapagina ho messo
    me.Totale.Visible = (Me.NumPagina = Me.NumPagine)
e così mi funziona sia a video che in stampa. Prova così (anche se
concettualmente è la stessa cosa che hai fatto tu)
Fabio


title: Anteprima report diversa dalla Stampa

author: fidirico

text:
cut
> La routine è SuFormattazione di Pièdipaginapagina
>
> Il codice comunque è giusto perchè a video esegue esattamente ciò che
> voglio, ma se poi lo stampo vedo il totale in ogni pagina!
>
> Alessandro
Giorni fa ho avuto lo stesso problema: tutto bene in anteprima report, ma se
provavo a stampare sul serio, ecco i totali su ogni pagina! Ho risolto
inserendo la routine nell'evento Print della SezionePièDiPaginaPagina,
anzichè nell'evento Open del report come avevo fatto all'inizio: il tutto
pare funzionare egregiamente, anche se ho avuto modo di fare solo pochi
test.
Ciao
Galliano


title: Anteprima report diversa dalla Stampa

text:
"Fabio" <
nospam_fa...@tin.it
> ha scritto nel messaggio
news:Vj%c9.142948$n04.3...@twister2.libero.it...

Fabio non mi permette di inserire quei due controlli, mi da un errore!!
E poi se è vero che quei controlli hanno origine da Page,Pages, allora
praticamente è ciò che ho fatto io!!!
Grazie comunque per l'aiuto!!
Alessandro


title: Anteprima report diversa dalla Stampa

text:
"Alessandro Veroli" <
ver...@libero.it
> ha scritto nel messaggio
news:Pphd9.148739#
[CUT]
> Fabio non mi permette di inserire quei due controlli, mi da un errore!!
> E poi se è vero che quei controlli hanno origine da Page,Pages, allora
> praticamente è ciò che ho fatto io!!!
C'è una sottile differenza e credo stia nel fatto che se tu metti if
me.page
=[Pages] then me.testo32.visible=true quello resta visibile anche in
stampa mentre se tu metti (come ha suggerito anche Roberto)
me.testo32.visible=(
me.page
 = [Pages]) dovrebbe andare.
Il fatto che ti dia un errore sui due controlli NumPagina e NumPagine può
essere dovuto al nome che gli hai dato comunque non dovrebbero essere
indispensabili.
Ciao, FABIO


title: Anteprima report diversa dalla Stampa

text:
> C'è una sottile differenza e credo stia nel fatto che se tu metti if
>
me.page
=[Pages] then me.testo32.visible=true quello resta visibile anche
in
> stampa mentre se tu metti (come ha suggerito anche Roberto)
> me.testo32.visible=(
me.page
 = [Pages]) dovrebbe andare.
>
> Il fatto che ti dia un errore sui due controlli NumPagina e NumPagine può
> essere dovuto al nome che gli hai dato comunque non dovrebbero essere
> indispensabili.
>
> Ciao, FABIO
>
>
Grazie, era proprio questo il problema!!!!!!
Alessandro


title: Chi mi aiuta a capire che errore faccio?

author: Matteo

text:
Mi trovo di fronte ad un problema che non riesco a risolvere, e
ringrazio in anticipo chi potrà darmi delucidazioni. Vi spiego di cosa
si tratta:
ho creato un semplice database Access, che permette di inviare delle
e-mail a determinati clienti mediante una Stampa Unione effettuata su
una query del suddetto database.
Per automatizzare la Stampa Unione ho scritto un semplice programma in
VBA, che riporto di seguito:
Public Function StampaUnione()
Dim wrd As Word.Application
Set wrd = CreateObject("Word.Application")
wrd.Application.Documents.Open "C:\Documents and
Settings\Matteo\Documenti\SIMMAT Consulting\Studio Girolmoni\Testo di
prova invio email.doc"
    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
wrd.Application.Documents.Close Savechanges:=wdDoNotSaveChanges
wrd.Application.Quit
Set wrd = Nothing
End Function
Eseguendo il codice la prima volta tutto funziona, mentre le volte
successive, a meno di chiudere e riavviare Access, mi si presenta un
messaggio di run-time error 462. Ho cercato parecchio nei newsgroup,
ma nessuna delle soluzioni proposte risolve il mio problema... ho
anche provato la soluzione proposta nella Microsoft KB (articolo
188546).
Per ovviare al problema posso anche aprire il documento principale di
stampa unione e richiuderlo manualmente, dopodichè tutto funziona
anche senza aver chiuso Access! Suppongo che il documento Word non
venga chiuso correttamente, ma non riesco a capire perchè...
Un grazie a chiunque possa darmi una mano!!!
Matteo


author: TheMax

text:
"Matteo" <
sime...@supereva.it
> ha scritto nel messaggio
news:36d42883.04060...@posting.google.com...

Il primo errore lo hai fatto nella scelta dell'oggetto, ti consiglio di
ripostare il messaggio
con uno più significativo visto che le regole di questo ng. lo richiedono.
Sicuramente troverai molta più gente che ti aiuta.
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


author: Antonio Biso

text:
"TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
news:ca12n6$o2u$1...@atlantis.cu.mi.it...
> Il primo errore lo hai fatto nella scelta dell'oggetto, ti consiglio di
Quasi da manuale il tuo intervento...
Se avessi sfoltito un po' il quoting, sarebbe stato perfetto!!!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:cF_wc.96776$Qc.37...@twister1.libero.it...
> Quasi da manuale il tuo intervento...
> Se avessi sfoltito un po' il quoting, sarebbe stato perfetto!!!
Azzz... ma mi brincoli sempre ;-)
> Antonio
Ciao,
Massimo
Che la prossima volta posterà sbagliato sotto falso nome



text:
"TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
news:ca2grl$qeg$1...@atlantis.cu.mi.it...
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:cF_wc.96776$Qc.37...@twister1.libero.it...
> > Quasi da manuale il tuo intervento...
> > Se avessi sfoltito un po' il quoting, sarebbe stato perfetto!!!
>
> Azzz... ma mi brincoli sempre ;-)
Beh, ma ho dato un colpo al cerchio e uno alla botte...
>
> > Antonio
>
> Ciao,
> Massimo
> Che la prossima volta posterà sbagliato sotto falso nome
Le mie brincolate sono anonime e asessuate...
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:bIdxc.44231$Wc.14...@twister2.libero.it...
>
> Beh, ma ho dato un colpo al cerchio e uno alla botte...
Forse a forza di colpi imparerò le cose ...
...forse
> Le mie brincolate sono anonime e asessuate...
lo so lo so...
se fossi una bella gnocca però mi farebbe più piacere farmi brincolare ^__^
>
> Antonio
Ciao,
Massimo



text:
"TheMax" <
elpiub...@yahoo.it
> wrote in message news:<ca12n6$o2u$
1...@atlantis.cu.mi.it
>...
> Il primo errore lo hai fatto nella scelta dell'oggetto, ti consiglio di
> ripostare il messaggio
> con uno più significativo visto che le regole di questo ng. lo richiedono.
> Sicuramente troverai molta più gente che ti aiuta.
>
> Ciao,
> Massimo
Hai ragione, ma ho già postato questo messaggio indicando nell'oggetto
un preciso riferimento al tipo di errore che ricevo, e purtroppo
nessuno mi ha risposto!
Ti ringrazio comunque per il suggerimento.
Ciao, Matteo


text:
"Matteo" <
sime...@supereva.it
> ha scritto nel messaggio
news:36d42883.04062...@posting.google.com...

Non è che postando un messaggio che non segue le regole riceverai più aiuto,
anzi.
Avevo letto il tuo post precedente, e mi sembra di averlo anche provato.
Ma purtroppo non avendo la tua base dati ed i tuoi file di word si fa
fatica.
Inoltre non indichi la riga che va in errore.
Tieni conto comunque che _non_ c'è nessuno obbligato a rispondere, ma trovi
gente che ti
può aiutare molto se fornisci loro il modo di farlo.



title: elenco messaggi di errore

author: Maurizio Giacobbe

text:
Qualcuno puo' aiutarmi per trovare l'elenco di tutti i messaggi e codici
di errore che sono generati dalle istruzioni SQL?
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: elenco messaggi di errore

author: Sib

text:
"Maurizio Giacobbe" <
ma...@yahoo.it
> ha scritto nel messaggio
> Qualcuno puo' aiutarmi per trovare l'elenco di tutti i messaggi e codici
> di errore che sono generati dalle istruzioni SQL?
Quel qualcuno e' l'help in linea
Sib
--
qualita.assicurazione su
www.cerrinet.it
Il newsgroup sulla Qualita'


title: Aggiornamento tabelle collegate

author: Sync

text:
Ciao a tutti (scusate il crosspost), ho un database con delle tabelle di
excel collegate a quelle
di access, in modo da poter modificare i dati all'interno di excel e tramite
una maschera aggiornare i dati nel database.
Mi chiedevo, non č possibile fare anche il contrario?
Cioč, inserire dati nel database e fare in modo che anche le tabelle
collegate di excel vengano aggiornate?
Grazie!


title: Campi calcolati su report

author: Ilario

text:
Ciao a tutti
perdonate la pessima esposizione che segue:
in un report in cui il corpo si ripete più volte perchè i record sono
raggruppati secondo un campo data in trimestri, ho un campo calcolato che
somma dei valori che ci sono in ogni trimestre. Ho bisogno di sommare a loro
volta questi campi calcolati, in pie di pagina, ma se imposto l'origine di
questo campo calcolato a =somma(campo_calcolato_in_corpo_report) non riesco
a ottenere la somma.
Dove sbaglio
Grazie
Ilario


title: Campi calcolati su report

author: Odino Saur

text:
"Ilario" <
liviae...@nolibero.it
> ha scritto nel messaggio
news:SpVna.49222$DT4.1...@twister1.libero.it...
> Ciao a tutti
> perdonate la pessima esposizione che segue:
> in un report in cui il corpo si ripete più volte perchè i record sono
> raggruppati secondo un campo data in trimestri, ho un campo calcolato che
> somma dei valori che ci sono in ogni trimestre. Ho bisogno di sommare a
loro
> volta questi campi calcolati, in pie di pagina, ma se imposto l'origine di
> questo campo calcolato a =somma(campo_calcolato_in_corpo_report) non
riesco
supponendo che il campo calcolato abbia come origine: campo1+campo2*campo3
prova a mettere nel campo di pieè pagina =somma(campo1+campo2*campo3)


title: Query di aggiornamento, è possibile?

author: Enzo

text:
Ciao a tutti,
volevo chiedere se sapevate il modo per eseguire in una unica query la
duplicazione di alcune righe di una tabella ed allo stesso tempo la
sostituzione dei valori di un campo delle righe aggiunte.
Esempio:
Tabella prima della esecuzione della query:
num        tipo        q.tà        prezzo
1        mela        120        1euro
1        pera        130        0,5euro
2        kiwi        100        0,8euro
3        banane    50         1,3euro
dopo l'esecuzione della query la tabella dovrà essere:
num        tipo        q.tà        prezzo
1        mela        120        1euro
1        pera        130        0,5euro
2        kiwi        100        0,8euro
3        banane    50         1,3euro
4        mela        120        1euro
4        pera        130        0,5euro
quindi esegue una duplicazione della due prime righe per intero ed allo
stesso tempo cambia il campo n° da 1 a 4 solo nelle nuove righe aggiunte
(p.esempio con il seguente criterio SELECT * FROM nometabella WHERE num =
1).
Ciao e grazie a tutti.
Enzo


title: Query di aggiornamento, è possibile?

author: Giorgio Prx

text:
"Enzo" <
ebra...@libero.it
> ha scritto nel messaggio
news:t2xUa.205771$lK4.5...@twister1.libero.it...

Ciao Enzo
Ti serve una query di accodamento.
Mettiamo il caso che la tua tabella si chiama frutta, allora .....
--------------------------------------------------------
INSERT INTO frutta ( Tipo, Qta, Prezzo, Num )
SELECT
     Tipo,
      Qta,
      Prezzo,
      (SELECT MAX(Num) FROM Frutta)+1 AS Nr
FROM Frutta
WHERE Frutta.Num=1
-----------------------------------------------------
Ciao Giorgio


title: xml

text:
uso access 2003 ed ho un database con queste tabelle

jobs -> job -> Job_customer
            -> job_components ->component

(le frecce indicano le relazioni uno a molti)
utilizzando questo codice

Public Function exportxml()
Dim objjobInfo As AdditionalData
Dim objjob_customerInfo As AdditionalData
Dim objjob_componentsInfo As AdditionalData
Dim objcomponentInfo As AdditionalData

Set objjobInfo = Application.CreateAdditionalData
Set objjob_customerInfo = objjobInfo.Add("job")
objjob_customerInfo.Add "job_customer"
Set objjob_componentsInfo = objjobInfo.Add("job")
objjob_componentsInfo.Add "job_components"
Set objcomponentInfo = objjob_componentsInfo.Add("job_components")
objcomponentInfo.Add "component"

Application.exportxml ObjectType:=acExportTable, DataSource:="jobs", DataTarget:="C:\" & "\xmlout.xml", AdditionalData:=objjobInfo

End Function

mi tira fuori questo xml

<?xml version="1.0" encoding="UTF-8"?>
-<dataroot generated="2015-08-27T13:16:40" xmlns:od="urn:schemas-microsoft-com:officedata"> RIGHE DA CANCELLARE

-<jobs>

<id>1</id>

-<job>

<PKEY>6</PKEY>

<jobs_id>1</jobs_id>

<job_name>Preventivo 1</job_name>

-<job_customer>

<FKEY>6</FKEY>

<cst_code>004722</cst_code>

</job_customer>

</job>  RIGHE DA CANCELLARE

-<job> RIGHE DA CANCELLARE

<PKEY>6</PKEY> RIGHE DA CANCELLARE

<jobs_id>1</jobs_id> RIGHE DA CANCELLARE

<job_name>Preventivo 1</job_name> RIGHE DA CANCELLARE

-<job_components> RIGHE DA CANCELLARE

<PKEY>6</PKEY> RIGHE DA CANCELLARE

</job_components> RIGHE DA CANCELLARE

-<job_components>

<PKEY>6</PKEY>

-<component>

<PKEY>4</PKEY>

<FKEY>6</FKEY>

<cmp_type>window_type</cmp_type>

<cmp_position>01</cmp_position>

<cmp_quantity>1</cmp_quantity>

<cmp_name>HOME-F1A</cmp_name>

<cmp_width>1000</cmp_width>

<cmp_height>1000</cmp_height>

</component>

</job_components>

</job>

</jobs>

</dataroot> RIGHE DA CANCELLARE

dove ho indicato RIGHE DA CANCELLARE sono le righe di errore, in sostanza a parte la riga dataroot iniziale e finale, mi duplica la tabella job quando esporto le due sottotabelle (job_customer e job_components) e mi duplica anche la tabella job_components quando esporta la sottotabella component

Ringrazio chiunque possa aiutarmi

Max


title: Passare da Access 97 a Access 2000

author: Alberto Colombo

text:
Salve a tutti,
    Lavoro in VB6 ed ho un database in access 97 e vorrei passare ad Access
2000. Cosa comporta il passaggio da Access 97 a Access 2000 o 2003 per
quanto riguarda la gestione database? Si hanno dei miglioramenti? E per
qaunto riuguarda il codice VB6, sono necessarie grosse modifiche?
Grazie.
Alberto


title: Passare da Access 97 a Access 2000

author: ALESSANDRO Baraldi

text:
"Alberto Colombo" <
alberto...@albasoftware.it
> ha scritto nel messaggio
news:41fd06a9$0$6310$5fc...@news.tiscali.it...

Da quanto capisco usi Access come Database, di conseguenza usi JET.
Non farai più riferimento a DAO 3.51 ma a DAO3.6
Se usi ADO(sconsigliato per inutili ritardi di conversione nativi di JET
sarà OLEDB)
Del resto non devi fare nessuna modifica.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Passare da Access 97 a Access 2000

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:41fd121e$0$32354$5fc...@news.tiscali.it...

Ciao e grazie per aver risposto,
    un'ultima domanda (anzi tre  :))) ): le librerie per dao 3.6 e relativo
database access 2000 sono liberamente distribuibili?
Access 2000 è piu' gestibile e sicuro di 97? Quali sono i miglioramenti?
Alberto


title: Passare da Access 97 a Access 2000

text:
> Ciao e grazie per aver risposto,
>     un'ultima domanda (anzi tre  :))) ): le librerie per dao 3.6 e
relativo
> database access 2000 sono liberamente distribuibili?
No, anche se la domanda č un pň banale... ti pare che MS conceda
liberamente la distribuzione di qualche cosa....?
Puoi distribuire Access2000 se possiedi il pacchetto di sviluppo ODE.
> Access 2000 č piu' gestibile e sicuro di 97? Quali sono i miglioramenti?
>
> Alberto
Non č piů sicuro, un database come JET non č sicuro di Default.
Usandolo come BE solamente non hai una differenza sostanziale se nonl'uso
di ADO ed altre piccole migliorie che trovi sul sito MS.
Le differenze sostanziali si hanno nella parte FE, ovvero la strutturazione
del prodotto per l'accesso alla parte graica d'interfaccia.
Ciao
--
@Alex (Alessandro Baraldi)



title: Passare da Access 97 a Access 2000

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:41fd2586$0$32348$5fc...@news.tiscali.it...
> > Ciao e grazie per aver risposto,
> >     un'ultima domanda (anzi tre  :))) ): le librerie per dao 3.6 e
> relativo
> > database access 2000 sono liberamente distribuibili?
>
> No, anche se la domanda č un pň banale... ti pare che MS conceda
> liberamente la distribuzione di qualche cosa....?
> Puoi distribuire Access2000 se possiedi il pacchetto di sviluppo ODE.
>
> > Access 2000 č piu' gestibile e sicuro di 97? Quali sono i miglioramenti?
> >
> > Alberto
>
> Non č piů sicuro, un database come JET non č sicuro di Default.
> Usandolo come BE solamente non hai una differenza sostanziale se nonl'uso
> di ADO ed altre piccole migliorie che trovi sul sito MS.
> Le differenze sostanziali si hanno nella parte FE, ovvero la
strutturazione
> del prodotto per l'accesso alla parte graica d'interfaccia.
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
> --------------------------------------------------------------------------
-
>
http://www.sitocomune.com/
>
http://www.mantuanet.it/alessandro.baraldi/
> --------------------------------------------------------------------------
-
>
Ciao,
potresti essere un po' piu' chiaro? Cosa sono le sigle BE, FE?
Possiedo il pacchetto di sviluppo Visual Studio 6.0 completo quindi posso
distribuire il mio applicativo e relative dll di dao 3.6?
Grazie.
Alberto


title: Passare da Access 97 a Access 2000

author: Alessandro Baraldi

text:
"Alberto Colombo" <
alberto...@albasoftware.it
> wrote in message
news:41fe45df$0$6319$
5fc...@news.tiscali.it
[CUT]
> Ciao,
> potresti essere un po' piu' chiaro? Cosa sono le sigle BE, FE?
> Possiedo il pacchetto di sviluppo Visual Studio 6.0 completo quindi posso
> distribuire il mio applicativo e relative dll di dao 3.6?
>
> Grazie.
> Alberto
FE=Interfaccia Uomo Macchina che per Access è
   costituita dalle Maschere/Queries/Report/Moduli
BE=Base Dati(Solo le Tabelle)
Avendo VS puoi distribuire il Runtime di Access, quindi
tutto quanto serve al PC nel quale metti la base dati
per girare.
Quello che è vietato dall'EULA se non ricordo male è la
distribuzione separata di Libreire o parti di librerie,
ma non credo sia il tuo caso.
Il Runtime di Access comprende tutte le DLL che servono.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Form recordset type snapshot e Requery

author: Roberto Fabbri

text:
Ciao a tutti, una stranezza di Access

Ambiente: BE accdb, FE accdb

Form con recordsource una query QBE (ma anche un SQL al volo), recordset type Snapshot, tutti i controlli impostati Lock=yes
Form non associata per le modifche (o anche inserimento), la source è tramite un recordset direttamente sulla tabella sorgente( me.controlloX.value = rst![ControlloX])
Alla chiusura la maschera chiamante fa requery. A volte non succede nulla. Se premo F5 un po' di volte (random) allora la modifica si riflette. A volte si riflette subito. Non sono riuscito a riprodurre la situazione. Sembra tutto random
Se utilizzo recordtype Dynaset, l'aggiornamento è sempre corretto. Quindi utilizzo dynaset, ma sembra uno spreco di risorse
Non ho provato con mdb, francamente però non avevo mai avuto di questi problemi
Con FE Sql server, fila tutto liscio, ma utilizzo mdb come FE
That's all
Grazie


title: recupero password db

author: fabrizio vignali

text:
Problemino:
Ho un mdb fatto un pò di tempo fa nel quale ho impostato una psw di accesso.
Il problema è che non ricordo la psw. Esiste un modo per aggirare
l'ostacolo?
Grazie
Saluti a Tutti
Fabrizio

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


title: recupero password db

author: Frank Adim Costa

text:
fabrizio...@libero.it
 (fabrizio vignali) wrote:

Cerca con google. Ci sono programmi a pochi euro che ti danno una
mano.


title: recupero password db

text:

Ok. Trovati Grazie



title: record successivo in sottomaschera

author: Giuseppe

text:
Buongiorno a tutti.
In una form di inserimento fattura, ho una casella di riepilogo che mi mostra le righe inserite e la sottomaschera di inserimento righe.
Ogni volta che salvo l'inserimento o la modifica di un record della sottomaschera, il focus si sposta su primo record della stessa, mentre io vorrei spostarmi su quello successivo se c'è.
Ho messo il seguente codice ma non cambia la situazione:
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNext
Forms!frmfatture.Elenco232.Requery
Forms!frmfatture!Riepilogoiva.Requery
Perchè invece si posiziona sul primo record?
Grazie.
Giuseppe


title: record successivo in sottomaschera

text:

E' normale, il REQUERY, come dice la parola stessa, riesegue la QUERY e siccome non sa dove tu ti trovavi, riporta al 1°...!
Se vuoi rimanga dove ti trovavi, prima memorizzi l'ID o la PK che dir si voglia e poi sposti il Bookmark con FindFirst...

@Alex