text:
Credo di essere in topic, se così non è mi scuso in anticipo con il gruppo.
Questa notte l'ho passata a fare qualche esperimento. So che qualcuno
(magari molti o tutti) di voi sorriderà di fronte all'acqua calda che ho
sperimentato, me per quei pochissimi che ancora non ci hanno provato riporto
qualche performance test.
Il server: Pentium MMX 166 MHz con 32 MB di ram e disco EIDE con 6 giga, con
sopra Linux RH7.2 e MySQL (non chiedetemi come un catorcio del genere riesca
a stare in piedi, ma tant'è ;-))
Il client: un portatile con Access 2000 e i drivers MyODBC.
Ho generato un file asci di UN MILIONE di record e l'ho importato (con
mysqlimport) su un paio di tabelle MySQL, l'ho maneggiato da Access
collegando le tabelle attraverso i drivers MyODBC.
Pesco, con una selezione LIKE, un record fra un milione, in circa 10
secondi.
Le selezioni su campi non chiave rispondono al max in 15 sec.
In circa 30 sec. faccio update di un campo su tutto il milione di record.
La query più incasinata che son riuscito a pensare, join fra queries di
aggregazione fatte su altre queries, insomma un malloppo di SQL sensa senso,
giusto per costringere il db a scorrere e lavorare, ci ha messo 80 secondi.
Ho l'impressione che MySQL e i driver MyODBC lavorino con una sinergia fuori
dal comune. Il disco del server frulla poco, quello del client con Access
anche, il led della scheda di rete lampeggia (sensazioni qualitative) in
modo abbastanza regolare. I resultset mi vengono visualizzati a pagine di un
migliaio l'una ... sembra che sotto non giri proprio nulla ... ho photoshop
e IE e, nel minuto circa di attesa, mi faccio un giro su yahoo per
controllare la posta elettronica ...
Con un Pentium MMX, 32 mega di RAM e 6 giga di disco dal lato server :-|
Sono senza parole, non oso pensare se metto su un server anche solo un po
più serio.
Anzi, più tardi in azienda proverò su di una macchina vera a macinare 5
milioni di record. E, se vi interessa, vi riporto i risultati.



title: Ma come cavolo funzionano le query di Access?

author: Massimiliano Amendola  kksrl

text:
> Il server: Pentium MMX 166 MHz con 32 MB di ram e disco EIDE con 6 giga,
con
> sopra Linux RH7.2 e MySQL (non chiedetemi come un catorcio del genere
riesca
> a stare in piedi, ma tant'č ;-))
>
> Il client: un portatile con Access 2000 e i drivers MyODBC.
>
> Ho generato un file asci di UN MILIONE di record e l'ho importato (con
> mysqlimport) su un paio di tabelle MySQL, l'ho maneggiato da Access
> collegando le tabelle attraverso i drivers MyODBC.
>
> Pesco, con una selezione LIKE, un record fra un milione, in circa 10
> secondi.
>
>
> Con un Pentium MMX, 32 mega di RAM e 6 giga di disco dal lato server :-|
>
> Sono senza parole, non oso pensare se metto su un server anche solo un po
> piů serio.
>
> Anzi, piů tardi in azienda proverň su di una macchina vera a macinare 5
> milioni di record. E, se vi interessa, vi riporto i risultati.
facci sapere e se va come deve andare te lo regalo io un muose per il pc
nuovo (ehm... mi sa che č giunta l'ora di cambiarselo, non farlo piů
soffrire, sarebbe accanimento terapeutico...)
;-)
ciao MAssimiliano


author: Massimiliano Bertoglio

text:
"Sandro"








Io più che senza parole sono sbalordito!
Ma come diavolo fa??
Però adesso voglio sbregare: crea una form continua sulla milionata di
records e associa a un paio di campi Combo che peschino valori da tabelline
di supporto ... sarei assai curioso di vedere quanto variano le
performances...
Comunque scaricherò MySQL quanto prima: voglio toccare con mano ;-)
Ciao, Max


author: Sandro

text:
Il 18 Lug 2002, 21:24, "Massimiliano Bertoglio" <
maxber...@libero.it
> ha
scritto:
> Io più che senza parole sono sbalordito!
> Ma come diavolo fa??
> Però adesso voglio sbregare: crea una form continua sulla milionata di
> records e associa a un paio di campi Combo che peschino valori da
tabelline
> di supporto ... sarei assai curioso di vedere quanto variano le
> performances...
Ho fatto le medesime prove con 6 milioni di record su di una macchina con
UnixWare 7 biprocessore, mezzo giga di ram e s scsi. I tempi di risposta, a
parità di queries, si assestano attorno al minuto, se fatte senza utilizzare
le chiavi. Sulle chiavi i tempi sono infinitamente più veloci.
>
> Comunque scaricherò MySQL quanto prima: voglio toccare con mano ;-)
Si si, e magari ci fai sapere ...



title: Aiuto!!Access 2000

author: libero

text:
Vorrei creare una sottomaschera in una maschera che mi visualizzi una
tabella. Non mi funziona la creazione guidata della sottomaschera! Come
posso fare (senza creazione guidata) in modo che mi visualizzi piu' righe
della mia tabella e non solo una?
grazie per l'aiuto, sono agli inizi con access
matteo


title: Aiuto!!Access 2000

author: principiante

text:
"libero" <
kma...@libero.it
> ha scritto nel messaggio
news:vnAz7.43791$1H1.5...@news.infostrada.it...

> Nelle proprietą della maschera che usi come sottomaschera scegli
Formato-VisualizzazionePredefinita:"maschere continue"


title: Aiuto!!Access 2000

author: Sergio MAZZA (Ufficio Stampa)

text:
"libero" <
kma...@libero.it
> ha scritto nel messaggio
news:vnAz7.43791$1H1.5...@news.infostrada.it...

Visualizza in struttura (e non a tutto schermo) la maschera principale,
trascinaci dentro la sottomaschera dalla finestra del database...
Ciao.


title: Condizioni IF

author: Luca

text:
Salve a tutti, il codice di seguito è il codice di un filtro. Questo filtro
viene applicato a una maschera prendendo i valori da un'altra maschera.
Vorrei che se non ci sono campi immessi mi desse solo un messaggio di errore
come quello all'interno del primo If isNull. Da profano ho pensato di usare
l'operatore logico AND collegando logicamente i vari campi da immettere.
Questo metodo funziona se i campi sono tutti nulli, ma se vado a inserire un
campo per la ricerca mi da un errore: "Tipo non corrispondente", e non mi fa
filtrare la maschera. Se invece tolgo il primo If IsNull, la ricerca
funziona perfettamente, ma giustamente da errori quando non vengono inseriti
i campi.
Grazie per il vostro aiuto e visto che non mi piace vantarmi di meriti
altrui ringrazio anche chi ha messo su SitoComune il file di esempio da cui
ho preso spunto per questo frammento di codice.
Scusate anche se ho messo tutto il codice, ma magari il problema non si
trova all'inizio del codice nella clausola If e non me ne rendo conto.
Luca
Private Sub Comando285_Click()
Dim strTitolo As String, strMsg As String, IntFinestraMsg As Integer
Dim IntNuovo As Integer
Dim ChiaveRic As String
If IsNull(Me![Autore] And Me![Titolo] And Me![Editore] And Me![Volume] And
Me![Anno] And Me![Genere] And Me![Stanza] And Me![Scaffale]) Then
    strTitolo = "Non sono stati digitati campi per la ricerca"
    strMsg = "Non sono stati digitati campi per la ricerca"
    IntFinestraMsg = vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Me!Autore.SetFocus
    Else
If Not IsNull(Me!Autore) Then
    ChiaveRic = "[Autore] Like " & Chr$(34) & Me!Autore & Chr$(34)
    If Left(Me!Autore, 1) <> "*" Then
        Me!Autore = "*" & Me!Autore
    End If
    If Right(Me!Autore, 1) <> "*" Then
        Me!Autore = Me!Autore & "*"
    End If
End If
If Not IsNull(Me!Titolo) Then
ChiaveRic = "[Titolo] Like " & Chr$(34) & Me!Titolo & Chr$(34)
    If Left(Me!Titolo, 1) <> "*" Then
        Me!Titolo = "*" & Me!Titolo
    End If
    If Right(Me!Titolo, 1) <> "*" Then
        Me!Titolo = Me!Titolo & "*"
    End If
End If
If Not IsNull(Me!Editore) Then
    ChiaveRic = "[Editore] Like " & Chr$(34) & Me!Editore & Chr$(34)
    If Left(Me!Editore, 1) <> "*" Then
        Me!Editore = "*" & Me!Editore
    End If
    If Right(Me!Editore, 1) <> "*" Then
        Me!Editore = Me!Editore & "*"
    End If
End If
If Not IsNull(Me!Volume) Then
ChiaveRic = "[Volume] Like " & Chr$(34) & Me!Volume & Chr$(34)
    If Left(Me!Volume, 1) <> "*" Then
        Me!Volume = "*" & Me!Volume
    End If
    If Right(Me!Volume, 1) <> "*" Then
        Me!Volume = Me!Volume & "*"
    End If
End If
If Not IsNull(Me!Anno) Then
    ChiaveRic = "[Anno] Like " & Chr$(34) & Me!Anno & Chr$(34)
    If Left(Me!Anno, 1) <> "*" Then
        Me!Anno = "*" & Me!Anno
    End If
    If Right(Me!Anno, 1) <> "*" Then
        Me!Anno = Me!Anno & "*"
    End If
End If
If Not IsNull(Me!Genere) Then
ChiaveRic = "[Genere] Like " & Chr$(34) & Me!Genere & Chr$(34)
    If Left(Me!Genere, 1) <> "*" Then
        Me!Genere = "*" & Me!Genere
    End If
    If Right(Me!Genere, 1) <> "*" Then
        Me!Genere = Me!Genere & "*"
    End If
End If
If Not IsNull(Me!Stanza) Then
ChiaveRic = "[Stanza] Like " & Chr$(34) & Me!Stanza & Chr$(34)
    If Left(Me!Stanza, 1) <> "*" Then
        Me!Stanza = "*" & Me!Stanza
    End If
    If Right(Me!Stanza, 1) <> "*" Then
        Me!Stanza = Me!Stanza & "*"
    End If
End If
If Not IsNull(Me!Scaffale) Then
ChiaveRic = "[Scaffale] Like " & Chr$(34) & Me!Scaffale & Chr$(34)
    If Left(Me!Scaffale, 1) <> "*" Then
        Me!Scaffale = "*" & Me!Scaffale
    End If
    If Right(Me!Scaffale, 1) <> "*" Then
        Me!Scaffale = Me!Scaffale & "*"
    End If
End If
    If Not IsNull(Me!Autore) Then
     ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Autore] Like " & Chr$(34) &
Me!Autore & Chr$(34)
    End If
    If Not IsNull(Me!Titolo) Then
     ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Titolo] Like " & Chr$(34) &
Me!Titolo & Chr$(34)
    End If
    If Not IsNull(Me!Editore) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Editore] Like " &
Chr$(34) & Me!Editore & Chr$(34)
    End If
    If Not IsNull(Me!Volume) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Volume] Like " &
Chr$(34) & Me!Volume & Chr$(34)
    End If
    If Not IsNull(Me!Anno) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Anno] Like " & Chr$(34)
& Me!Anno & Chr$(34)
    End If
    If Not IsNull(Me!Genere) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Genere] Like " &
Chr$(34) & Me!Genere & Chr$(34)
    End If
    If Not IsNull(Me!Stanza) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Stanza] Like " &
Chr$(34) & Me!Stanza & Chr$(34)
    End If
    If Not IsNull(Me!Scaffale) Then
        ChiaveRic = ChiaveRic & " " & Me!ANDOR & " [Scaffale] Like " &
Chr$(34) & Me!Scaffale & Chr$(34)
    End If
    Me.Visible = False
    DoCmd.Hourglass True
    Forms!EliminaRecord.SetFocus
    DoCmd.ApplyFilter , ChiaveRic
    If Forms!EliminaRecord.RecordsetClone.RecordCount = 0 Then
        DoCmd.Hourglass False
        strTitolo = "Ricerca con esito negativo"
        strMsg = "Non esistono libri che soddisfano questi criteri"
        IntFinestraMsg = vbExclamation
        IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
        DoCmd.GoToRecord , , acFirst
    End If
    DoCmd.Hourglass False
    Me.Visible = True
    Me!Comando39.SetFocus
    Me!Comando285.Visible = False
    DoCmd.Close
End If
End Sub


title: Condizioni IF

author: Antonio Biso

text:
"Luca" <
luca...@libero.it
> ha scritto nel messaggio
news:1HhKa.120821$lK4.3...@twister1.libero.it...
> Vorrei che se non ci sono campi immessi mi desse solo un messaggio di
errore
> come quello all'interno del primo If isNull. Da profano ho pensato di
usare
Moooolto da profano...
La sintassi è
if isnull(A) and isnull(B) and .... and isnull(Z) then
Antonio


title: Condizioni IF

text:
"Antonio Biso" <
ch...@libero.it
> ha scritto nel messaggio
news:D8iKa.118925$Ny5.3...@twister2.libero.it...
> Moooolto da profano...
>
> La sintassi è
>
> if isnull(A) and isnull(B) and .... and isnull(Z) then
>
> Antonio
>
>
Grazie mille, e anche le critiche sono sempre ben accette (almeno ci ho
provato!!)
Ciao Luca


title: Condizioni IF

text:
"Luca" <
luca...@libero.it
> ha scritto nel messaggio
news:1WiKa.119105$Ny5.3...@twister2.libero.it...

Ti spiego la mia critica:
l'errore era talmente grossolano, che avresti potuto accorgertene da solo se
avessi spulciato un po' l'help e gli esempi.
Sulla sana ignoranza (nel senso di mancanza di conoscenza) non mi
permetterei di bacchettare...
Antonio


title: Valori di un campo evidenziati

author: carla

text:
Salve, avrei bisogno di 1 aiuto per quanto sotto
ho 1 tabella Tab1, con il campo data "rilevata"
1 Query1 di creazione tabella, che partendo da Tab1 crea Tab2 contenente il
campo data "rilevata"
1 maschera Mask1, che si appoggia a Tab2, con il campo "rilevata".
Vorrei che le date contenute nel campo rilevata fossero scritte di rosso
quando la data è 01/01/2001
Inoltre se vado a variare la data di rilevata e quindi questa non è più
01/01/2001 dovrebbe tornare nera come in automatico
E' possibile fare questo?
Grazie
Ciao
Carla


title: Valori di un campo evidenziati

author: Alessandro Baraldi

text:
"carla" <carl...@NOSPAMhotmail.com> wrote in message
news:436fc30b$0$1492$
4faf...@reader2.news.tin.it

Sfruttando la Formattazione condizionale.
Dai un'occhiata alla possibilità di gestire una formattazione
accedendo al Menù dedicato in modalità Struttura della Maschera
e ti renderai conto di poter associare una o più condizioni
al fine di ottenere l'applicazione della formattazione.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Valori di un campo evidenziati

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:a919bd9da7a09fe5df...@mygate.mailgate.org...

Grazie e... un'altro consiglio, mi sono accorta, testanto la formattazione
condizionale, che se nel campo rilevata (che ha formato "Data in cifre")
scrivo 1/1/50 oppure 1/1/1950 lo memorizza e visualizza come 01/01/1950,
invece se scrivo 1/1/950 lo accetta e lo lascia scritto così, cosa, nel mio
caso, errata.
Come faccio a farglielo tradurre sempre come nel primo caso?
Grazie
Ciao
Carla


title: saluti

author: bluefox

text:
sale amici
volevo porVI un cordialissimo saluto
mi avvicino adesso al mondo dei db per motivi più che altro
legati alla semplificazione del mio lavoro , legato soprattutto alla
gestione del personale, delle ore lavorative ma anche statistiche.
spero di poter essere accettato da voi luminari del db
ne ho proprio bisogno
saluti
bluefox


title: saluti

text:
bluefox ha scritto:

Benvenuto.
In questo gruppo, non moderato ci siamo impegnati a rispettare una
sorta di convenzione per rendere la partecipazione utile e fruibile nel
miglior modo
possibile a tutti.
Ti invitopertanto a leggere il post che Roberto invia quasi
settimanalmente quì con le istruzioni per l'uso anche reperibile nel
SitoComune di riferimento :
www.sitocomune.com
Ciao
@Alex


title: saluti

author: Sergio MAZZA

text:
"bluefox" <
maltese...@tiscali.it
> ha scritto nel messaggio
news:1155160540.1...@m73g2000cwd.googlegroups.com...

[risposta]
Come nuovo arrivo hai diritto ad una consumazione...
Ciao.
--
Sergio MAZZA


title: saluti

text:
Sergio MAZZA ha scritto:

Ciao Sergio, più tardi ti disturbo per una domanda.... estetica, di
chirurgia ovviamente...!
Ciao
@Alex


title: saluti

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1155206935.9...@p79g2000cwp.googlegroups.com...
Ciao Sergio, più tardi ti disturbo per una domanda.... estetica, di
chirurgia ovviamente...!
Ciao
@Alex
[risposta]
Vuoi il numero di telefono di chi mi ha fatto il trapianto?
Ciao.
--
Sergio MAZZA


title: saluti

text:
Sergio MAZZA ha scritto:

Beh tutto sommato mi pare abbia fatto un discreto lavoro.... se non
fosse per quel difettuccio di pelle... ma si vede solo ad essere
pignoli.
Ora sono fuori sede, quando rientro ti contatto, se non oggi domani non
è urgente...
Ciao
@Alex


title: saluti

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1155208581.2...@m79g2000cwm.googlegroups.com...
Beh tutto sommato mi pare abbia fatto un discreto lavoro.... se non
fosse per quel difettuccio di pelle... ma si vede solo ad essere
pignoli.
[risposta]
Sě č vero; solo ad essere pignoli...
Ora sono fuori sede, quando rientro ti contatto, se non oggi domani non
č urgente...
[risposta]
Va bene...
Ciao
@Alex
[risposta]
Ciao.
--
Sergio MAZZA


title: Fwd: da Lbo per ICAA

author: AntoGal

text:
ricevuto dal Comandante in e-mail:
ah, già che ci siamo... purtroppo ogni tanto devo fare finta di lavorare
davvero, quindi non sono stato e forse non potrò essere molto presente sul
ng
in questi giorni... (a parte che il server di interbusiness mi pare non
funzionare).  se qualcuno dovesse proprio sentire la mia mancanza magari per
favore avvisali tu.
dalle foto si direbbe proprio una bella tavolata!
te le rimando in posta prioritaria anche io appena scannate.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.tin.it/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: Fwd: da Lbo per ICAA

author: sib

text:
AntoGal <zer...@NOSPAMtiscalinet.it> wrote in message
85iifa$nr2$1...@pegasus.tiscalinet.it...
> ricevuto dal Comandante in e-mail:
>
> ah, già che ci siamo... purtroppo ogni tanto devo fare finta di lavorare
> davvero, quindi non sono stato e forse non potrò essere molto presente sul
> ng
> in questi giorni... (a parte che il server di interbusiness mi pare non
> funzionare).  se qualcuno dovesse proprio sentire la mia mancanza magari
per
> favore avvisali tu.
>
>
> dalle foto si direbbe proprio una bella tavolata!
>
> te le rimando in posta prioritaria anche io appena scannate.
Proprio in questo momento mi chiedevo di Lbo.
Meno male, mi stavo preoccupando non leggendolo piu'. hehehe
Ciao, Sib
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
Ma ricordate anche che il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Fwd: da Lbo per ICAA

author: eMa

text:
AntoGal <zer...@NOSPAMtiscalinet.it> wrote:
> ricevuto dal Comandante in e-mail:
>
poi le mettete anche sul sito comune?? :-)
bye!
--
eMa        <
ece...@penguinpowered.com
>
http://www.penguinpowered.com/~ecesena
"Hanno ammazzato Pablo, Pablo e' vivo!": qui, o De Gregori era ciucco,
o Pablo e' un Highlander...


title: Fwd: da Lbo per ICAA

text:
eMa <ece...@NOSPAMpenguinpowered.com> wrote in message
85l03p$8k$1...@srv.ema.it...
> poi le mettete anche sul sito comune?? :-)
of course! :-)



title: sincronizzare combo oppure no?

text:
Salve a tutti
Ho una form singola di inserimento dati denominata "MsSpessori" con
origine record la tabella "TbSpessori".
In questa form ho due combobox associate non sincronizzate:
la prima, denominata "spmin" con origine controllo il campo 'spmin' della
tabella "TbSpessori"
la seconda, denominata "spmax" con origine controllo il campo 'spmax'
della tabella "TbSpessori"
Entrambe mostrano i valori contenuti nel campo "sp" della tabella
"TbSpMinMax"
Praticamente con queste combo seleziono dei valori di spessore (tipo 1,25,
1,80, ecc ecc - formato testo, non numerico).
Vorrei che funzionassero in questo modo:
se, ad esempio, dalla combobox "spmin" seleziono un valore di 1,20, la
combobox "spmax" mi deve mostrare solo spessori da 1,20 (compreso) in su.
Devono essere sincronizzate?
Devono prendere valori di spessore da due tabelle diverse anzichè dalla
stessa?
Anche seguendo gli esempi sul sito comune non capisco come affrontare il
problema
Grazie a tutti
Ciao


title: sincronizzare combo oppure no?

author: esseAemme

text:

Crei una query filtrata per l'origine dati della seconda
combo(=combospmax), dove lo spessore spmin dev'essere uguale a
[nomemaschera]![combospmin]
però, dovresti avere una tabella così
id spmin spmax
1  0,8     0,3
2  0,8     0,35
3  0,8     0,4
4  1,2     0,6
5  1,2     0,65
etc...
ad ogni requery della combo spmin devi fare il requery per spmax, da
codice
me.combospmax.requery
Samantha


title: cambia directory

author: Elton JJO

text:
sto sviluppando il mio DB ed è composto da 2 db uno c'è la base dati e uno
fa FE
la base dati a casa mia è su una dir mentre al lavoro è su un'altra.
siccome sto sviluppando il FE a casa e poi me lo porto al lavoro, ogni
volta devo settare la directory di dove si trova la base dati. vorrei
creare un pulsante di opzione che cliccandolo gli dica leggi questa dir
oppure leggi questa
come faccio a fare questo?
non ne ho la piu pallida idea di come iniziare
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: cambia directory

author: ALESSANDRO Baraldi

text:
"Elton JJO" <
el...@fininvest.it
> ha scritto nel messaggio
news:bl25ic$7v7$1...@news.newsland.it...
> sto sviluppando il mio DB ed è composto da 2 db uno c'è la base dati e uno
> fa FE
> la base dati a casa mia è su una dir mentre al lavoro è su un'altra.
> siccome sto sviluppando il FE a casa e poi me lo porto al lavoro, ogni
> volta devo settare la directory di dove si trova la base dati. vorrei
> creare un pulsante di opzione che cliccandolo gli dica leggi questa dir
> oppure leggi questa
> come faccio a fare questo?
> non ne ho la piu pallida idea di come iniziare
>
>
www.sitocomune.com
Riallegare le Tabelle..........!
@Alex.


title: cambia directory

author: namor

text:
Elton JJO ha scritto:
> sto sviluppando il mio DB ed è composto da 2 db uno c'è la base dati e uno
> fa FE
> la base dati a casa mia è su una dir mentre al lavoro è su un'altra.
> siccome sto sviluppando il FE a casa e poi me lo porto al lavoro, ogni
> volta devo settare la directory di dove si trova la base dati. vorrei
> creare un pulsante di opzione che cliccandolo gli dica leggi questa dir
> oppure leggi questa
> come faccio a fare questo?
> non ne ho la piu pallida idea di come iniziare
Guarda su
www.sitocomune.com
, sezione Tables, aggiornamento tabelle
allegate.
Namor



title: updatare

author: fsangio

text:
Problema:
ho una tabella "vie" con un campo "via";
una tabella con un campo in cui oltre alla via c'è il numero civico,
interno, isolato e se necessarie altre info;
Voglio aggiungere un nuovo campo alla seconda tabella dove è indicata la
sola via ( senza n°civico o altro) per poter fare delle query di ricerca.
Scorrendo i vari record della tabella vie vorrei "Updatare" questo nuovo
campo con una istruzione SQL del tipo
UPDATE TABELLA SET solo_via = via1 where via_di_prima like '* vie!via *'
E' possibile una cosa del genere? Qual è l'istruzione precisa che devo
usare?
Oppure se c'è una strada più semplice...quale?
grazie


title: updatare

author: Roberto dal portatile

text:
"fsangio" <
fsa...@libero.it
> ha scritto nel messaggio
news:IORg7.544$i81....@news.infostrada.it...

Secondo me c'è una strada più semplice, senza bisogno di aggiungere il nuovo
campo della sola via, nè utilizzare la prima tabella.
Creati una query basata sulla seconda tabella e nella riga Criteri: relativa
al campo che contiene via+numero civico+interno+isolato+ecc. scrivi:
Like "*" & [Digita via:] & "*"
> grazie
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Sembra uno scherzo ma è vero!

text:
Tu invece, clicca qui:
http://utenti.tripod.it/mendicanti/main.html
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora
provetti poeti fiorentini come vturturro.
(Cosě disse
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)


title: Saldo negativo in Rosso

author: Akira

text:
Ciao,
tempo fa trovai un suggerimento sul sito comune riguardante la
formattazione del font in caso di numeri negativi (in rosso) ma non la
ritrovo più.
Sapete reindirizzarmi sul sito comune o darmi qualche suggerimento da
propormi?.
Ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Saldo negativo in Rosso

author: massimiliano

text:
>tempo fa trovai un suggerimento sul sito comune riguardante la
>formattazione del font in caso di numeri negativi (in rosso) ma non la
>ritrovo più.
>Sapete reindirizzarmi sul sito comune o darmi qualche
suggerimento da
>propormi?.
nel formato del saldo inserisci
#.##0,00[nero]; - #.##0,00[rosso]; "e cosa vuoi che scriva in caso di
valore nullo" [blu]
in realtà prima delle cifre puoi anche inserire del
testo appropriato se del caso basta metterlo tra le " ".
ciao
MAssimiliano
--------------------------------
Inviato via
http://usenet.iol.it


title: Stringa SQL mi restituisce un valore numerico e non di testo

text:
Salve a tutti,
Alessandro tempo fa mi aveva suggerito una procedura per passare ad una
query più valori di una casella di riepilogo a selezione multipla.
Questo è il codice:
Private Sub Comando56_Click()
Dim strCriterio As String
Dim varItem As Variant
For Each varItem In Me.elnloc.ItemsSelected
strCriterio = strCriterio & "'" & varItem & "',"
Next
strCriterio = Mid$(strCriterio, 1, Len(strCriterio) - 1)
strsql = "SELECT* FROM ANAGRAFICA WHERE [localita] IN (" & strCriterio & ")"
CurrentDb.QueryDefs(Query1).SQL = strsql
End Sub
Il problema è che la stringa cher si viene a creare riporta il numero
dell'Item è non il testo (es. invece di Rossi, mi appare 12 e così via) di
conseguenza quando cerca di passare i paramteri alla query mi da errore.
Cosa posso fare per ovviare a questo problema?
Grazie
Massimo Pallavicini


author: VT @ Work

text:
On Wed, 13 Sep 2006 16:05:39 +0200, "Maxus68"
<
maspall...@virgilio.it
> wrote:
 (...)
>For Each varItem In Me.elnloc.ItemsSelected
>strCriterio = strCriterio & "'" & varItem & "',"
>Next
Prova cosě:
For Each varItem In Me.elnloc.ItemsSelected
strCriterio = strCriterio & "'" & elnloc.columns(nTuaColonna,varItem)
& "',"
Next
dove nTuaColonna č l'indice della colonna nella quale č contenuto il
valore da ricercare nella tabella (ATTENZIONE: gli indici partono da
zero, quindi la prima colonna ha indice 0, la seconda 1 ...)


text:
"VT @ Work" <V...@Work.it> ha scritto nel messaggio
news:4509001d...@firewall.regione.toscana.it...

Ora mi restituisce correttamente i valori ma comunque mi da sempre errore di
run time 3265, elemento non trovato in questo insieme .....?!!?


text:
On Thu, 14 Sep 2006 10:28:21 +0200, "Maxus68"
<
maspall...@virgilio.it
> wrote:
 (...)
>Ora mi restituisce correttamente i valori ma comunque mi da sempre errore di
>run time 3265, elemento non trovato in questo insieme .....?!!?
>
L'errore si verifica durante il ciclo di creazione della stringa,
oppure durante l'esecuzione dell'istruzione SQL ?


author: Massimo Pallavicini

text:
VT @ Work ha scritto:


Si verifica durante l'esecuzione dell'istruzione SQL, ovvero su questa
riga di comando:
CurrentDb.QueryDefs(Query1).SQL = strsql
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: VT @ home

text:
Il Thu, 14 Sep 2006 16:25:33 +0200,
maspall...@virgilio.it
 (Massimo Pallavicini) ha scritto:
>(.....)
>VT @ Work ha scritto:
>
>> On Thu, 14 Sep 2006 10:28:21 +0200, "Maxus68"
>> <
maspall...@virgilio.it
> wrote:
>>  (...)
>
>> >Ora mi restituisce correttamente i valori ma comunque mi da sempre errore di
>> >run time 3265, elemento non trovato in questo insieme .....?!!?
>> >
>> L'errore si verifica durante il ciclo di creazione della stringa,
>> oppure durante l'esecuzione dell'istruzione SQL ?
>
>
>Si verifica durante l'esecuzione dell'istruzione SQL, ovvero su questa
>riga di comando:
>CurrentDb.QueryDefs(Query1).SQL = strsql
Quindi il problema è da cercare nella stringa SQL generata.
Per verificare l'errore:
- esegui il codice in modalità debug
- visualizza il contenuto della stringa SQL
- apri un nuovo query
- click sul pulsante SQL in alto a sinistra nella toolbar
- copia/incolla il contenuto della stringa SQL ed esegui il query
Si verificherà l'errore, ed il cursore verrà posizionato in un punto dell'istruzione SQL oltre il quale c'è il problema
che impedisce l'esecuzione. Oltre non vuole dire "immediatamente dopo": il cursore si posiziona nel primo punto oltre il
quale l'istruzione SQL non può essere più interpretata in maniera corretta.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


text:
Il Thu, 14 Sep 2006 16:25:33 +0200,
maspall...@virgilio.it
 (Massimo Pallavicini) ha scritto:
>(.....)
>> >Ora mi restituisce correttamente i valori ma comunque mi da sempre errore di
>> >run time 3265, elemento non trovato in questo insieme .....?!!?
Ora che ci penso: "mi dà sempre errore" vuole dire che te lo dava anche prima della modifica ?
Però la query funziona ("mi restituisce correttamente i valori") ?
C'è qualcosa che non quadra ...



text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:p00jg2ttsbfgccoeb...@4ax.com...

Vincenzo, l'errore me lo dava e me lo da sempre nella stessa riga di
comando.
Adesso provo a fare le prove come hai detto tu, poi ti faccio sapere.


text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:p00jg2ttsbfgccoeb...@4ax.com...
> Il Thu, 14 Sep 2006 16:25:33 +0200,
maspall...@virgilio.it
 (Massimo
> Pallavicini) ha scritto:
>>(.....)
>
>>> >Ora mi restituisce correttamente i valori ma comunque mi da sempre
>>> >errore di
>>> >run time 3265, elemento non trovato in questo insieme .....?!!?
>
> Ora che ci penso: "mi dà sempre errore" vuole dire che te lo dava anche
> prima della modifica ?
> Però la query funziona ("mi restituisce correttamente i valori") ?
> C'è qualcosa che non quadra ...
Ho sbagliato a scrivere: ovviamente la query non funziona ........ ma la
stringa che si crea è corretta.
In poche parole la stringa SQl che si crea è corretta ma poi quando è ora di
passare i parametri alla query mi da l'errore..


text:
On Thu, 14 Sep 2006 19:18:38 +0200, "maxus68"
<
maspall...@virgilio.it
> wrote:
(...)
>Ho sbagliato a scrivere: ovviamente la query non funziona ........ ma la
>stringa che si crea è corretta.
>In poche parole la stringa SQl che si crea è corretta ma poi quando è ora di
>passare i parametri alla query mi da l'errore..
Non metterti a ridere ...
verifica che la colonna [localita] sia presente nella tabella
Anagrafica (per caso non è che si chiama località ?)
In alternativa:
costruisci manualmente la query con l'interfaccia QBE, quindi guarda
l'istruzione SQL che viene generata e confrontala con quella generata
da codice.


title: collegamento odbc con file mdb su spazio web

author: Giuseppe

text:
Ciao a tutti
Sapete se č possibile collegare il FE con il BE che risiede in uno spazio
web tipo aruba?
grazie. Saluti


author: Cinzia

text:
<Giuseppe> ha scritto nel messaggio
news:4925f494$0$18158$4faf...@reader3.news.tin.it...
> Ciao a tutti
> Sapete se è possibile collegare il FE con il BE che risiede in uno
> spazio
> web tipo aruba?
> grazie. Saluti
>
Ciao Giuseppe,
nativamente no, non puoi farlo.
Esiste tuttavia un modo, usando dei componenti che scarichi da
sourceforge, qui puoi trovare le info
http://odbcsock.sourceforge.net/
.
Non so molto più di questo, ma al link indicato dovresti almeno capire
se ti può essere utile.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.spaces.live.com
---------------------------------------->


title: un aiuto vi prego! Immagini e web

author: Andrea Vasini

text:
Sono alle prime armi ed avrei bisogno di voi esperti:
1) Come faccio ad inserire una immagine(deve essere gif o jpeg) in un campo
di un DB fatto con Access?
2) In seguito con una  stringa ASP dovrei prelevare questa immagine e farla
comparire in una pagina web, cosa scrivo?
Grazie.


title: un aiuto vi prego! Immagini e web

author: Roberto - Syd

text:
"Andrea Vasini" <
andrea...@libero.it
> ha scritto nel messaggio
news:FJZr7.6131$jT5.2...@news.infostrada.it...

Per inserire un'immagine nella tabella devi avere un campo di tipo
OggettoOLE, quindi quando sei posizionato sul campo fai click sul menu
inserisci -> Oggetto e qui si apre una maschera che ti guida
nell'inserimento dell'immagine, la seconda risposta non la so.
Ciao Roberto - Syd


title: un aiuto vi prego! Immagini e web

author: Silvio Berruti

text:
"Andrea Vasini" <
andrea...@libero.it
> ha scritto nel messaggio
news:FJZr7.6131$jT5.2...@news.infostrada.it...

Per il 1° quesito: fai un giro nella sezione General del Sito Comune.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Tasti funzione

author: Stefano

text:
Salve a tutti ....come posso disabilitare il tasto F1 in modo da non far
aprire la guida Access??
Grazie!
Stefano.


title: Tasti funzione

author: Karl Donaubauer

text:
Stefano ha scritto:
> Salve a tutti ....come posso disabilitare il tasto F1 in modo da non far
> aprire la guida Access??
Nella tua db creati un nuovo macro col nome "Autokeys".
Nella prima riga del macro scrivi come nome macro:
{F1}
Chiudi e riapri la db.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Tasti funzione

text:
Stefano ha scritto:
> Salve a tutti ....come posso disabilitare il tasto F1 in modo da non far
> aprire la guida Access??
Nel tuo db creati un nuovo macro col nome "Autokeys".
Nella prima riga del macro scrivi come nome macro:
{F1}
Chiudi e riapri il db.



title: Tasti funzione

text:
Karl Donaubauer ha scritto:


Come funziona questa cosa? Ho provato ma non va.
Il nome della macro deve essere Autokeys, va bene.
Ma dove si scrive l'{F1}? Se lo metto nella prima riga sotto la colonna
"azione" dice che non corrisponde ad una voce dell'elenco.
Forse bisogna usare una delle azioni predefinite e mettere {F1} come
parametro?
Namor
--

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


title: Tasti funzione

author: salvino

text:
namor ha scritto:
> Karl Donaubauer ha scritto:
> > Stefano ha scritto:
> > > Salve a tutti ....come posso disabilitare il tasto F1 in modo da non far
> > > aprire la guida Access??
> > Nel tuo db creati un nuovo macro col nome "Autokeys".
> > Nella prima riga del macro scrivi come nome macro:
> > {F1}
> > Chiudi e riapri il db.
> > --
> > HTH
> > Karl
> > *********
> > Access-FAQ (tedesco):
http://www.donkarl.com
> Come funziona questa cosa? Ho provato ma non va.
> Il nome della macro deve essere Autokeys, va bene.
> Ma dove si scrive l'{F1}? Se lo metto nella prima riga sotto la colonna
> "azione" dice che non corrisponde ad una voce dell'elenco.
> Forse bisogna usare una delle azioni predefinite e mettere {F1} come
> parametro?
> Namor
Si deve inserire {F1} nella colonna NOME MACRO lasciando vuoto tutto il
resto.
Ho provato. Funziona
rgrds
SC



title: Tasti funzione

text:
salvino ha scritto:




Mi spiego meglio: quando crei una nuova macro vuota, gli unici campi che
hai sono "Azione" e "Commento".
"Nome macro" compare solo quando selezioni un'azione tipo "Eseguimacro"
che richiede come argomento il nome di una macro.
Ho provato a impostare l'azione "EseguiMacro", usando {F1} nel parametro
"Nome macro" e ho salvato la macro come "Autokeys". Ho chiuso e riaperto
il db ma non funziona, F1 mi apre sempre l'help.
Tu che azione usi? E che versione di access? Io la 97.
Namor



title: Tasti funzione

text:
namor ha scritto:
> salvino ha scritto:






In questo PC ho Acc2k.
Sulla Barra degli Strumenti attivando Struttura Macro compare un pulsante
che ti permette di aprire la colonna NOME MACRO.
Nel primo rigo della macro inserisci {F1} lasciando blank sia la colonna
CONDIZIONE che la colonna AZIONE.
Ricordo che comunque in Acc97 era la stessa cosa.
rgrds
SC



title: Tasti funzione

text:








Ok, grazie, funziona anche con Access 97.
Questa non la sapevo!
Namor



title: Tasti funzione

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bkqcnn$4oduc$1...@ID-46617.news.uni-berlin.de...

Grazie mille....soluzione perfetta e veloce
Ciao e grazie ancora
Stefano


title: Riferimento a maschera inesistente in un report

author: il barbi

text:
Ho un report che mi stampa i record risultanti da una
ricerca in base a una maschera mskRic e nell'intestazione
vorrei stampare i campi in base a cui e' stata fatta la
ricerca, e li riferisco come:
Forms!mskRic!campo
pero' vorrei poter usare lo stesso report anche senza aver
fatto nessuna ricerca, stampando tutti i record della
maschera principale mskBona
naturalmente mi succede che i record me li stampa lo stesso,
ma siccome non trova la maschera mskRic, nell'intestazione
mi stampa tanti #Nome?. In pratica nei campi di ricerca
dovrei mettere una formuletta cosiffatta: se non trovi
Forms!mskRic!campo, non stampare niente; ho provato
con le funzioni Nz e Iif (usando come test sia IsNull che
IsEmpty) ma non cambia niente
il barbi


author: sv

text:
il barbi ha scritto:

Inserisci la seguente funzione in un modulo:
Function IsLoaded(ByVal strFormName As String) As Integer
 ' Restituisce True se la maschera specificata è aperta in visualizzazione
Maschera o Foglio dati.

    Const conObjStateClosed = 0
    Const conDesignView = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If

End Function
Poi utilizzala su formattazione della sezione dove hai posto i controllo
che fanno riferimento alla maschera di ricerca.
if isloaded(miamascheraricerca)=true then
miotextboxreport=miotextboxmascheraricerca
else
miotextboxreport.visible=false
endif
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: batch , è possibile crearne .....????

author: riviera

text:
Vorrei approfondire l'argomento batch ,se possibile . Mi spiego : presso
altra sede ho un DB che periodicamente devo aggiornare . Le tabelle da
aggiornare hanno delle relazioni con altre tabelle e contengono dei records
che non devo cancellare , dei record con campi che vanno modificati , e
dovrei anche poter accodare records nuovi . Cioč vorrei poter eseguire un
programma (leggi query) composto di piů tipi di modifiche nello stesso tempo
, un batch appunto . Mentre scrivo penso ad una macro che lancia una query
dopo l'altra o un modulo in VB .. boh ! Sono un po' confuso ma sono sicuro
che i suggerimenti per chiarirmi le idee voi li avete . Spero vorrete
scusarmi se pongo domande a ritmo un po' serrato  ...... se pensate che i
post siano lunghi (per esempi o altro) potete spedire direttamente grazie
Ciao e grazie ,


title: batch , è possibile crearne .....????

author: Giovanni Albertone

text:
On Tue, 28 Mar 2000 17:07:58 +0200, "riviera"
<
marce...@smartino.ge.it
> wrote:
>Cioč vorrei poter eseguire un
>programma (leggi query) composto di piů tipi di modifiche nello stesso tempo
Cambia in:
-----
Vorrei (cioe' e' proprio brutto...) poter eseguire un programma
composto di piů tipi di modifiche *(leggi query)* .
-----
Una volta definite e testate le tue query (direi queries, se fossi
sicuro che Luciano non stia leggendo...) fatti una bella macro che le
esegua una per volta. Se proprio vuoi fare una sciccheria la chiami
"Autoexec", cosi' parte da sola all'apertura del database.
Ovviamente le query di modifica partiranno in successione, non sono
sicuro di aver capito cosa intendi quando dici che le vuoi tutte allo
steso tempo.
Ci sono soluzioni piu' eleganti, non necessariamente piu' efficienti,
dipende da cosa vuoi fare esattamente, quanto e' grosso il tuo
database e quante "modifiche" devi lanciare. La via della macro e' la
piu' semplice e praticabile per un neofita.
--
Ciao,
Giovanni


title: batch , è possibile crearne .....????

text:
On Tue, 28 Mar 2000 17:07:58 +0200, "riviera"
<
marce...@smartino.ge.it
> wrote:
>Mentre scrivo penso ad una macro che lancia una query
>dopo l'altra o un modulo in VB
Ora che ci penso pero' potresti aver chiesto una cosa diversa, ovvero
come lanciare dei comandi per far eseguire delle procedure su un
computer remoto. Se questa era la domanda, direi che innanzi tutto
dipende da che tipo di collegamento e da quali diritti di accesso tu
hai sul sistema remoto.
In secondo luogo, non essendo Access un sistema client-server, ti devi
inventare un modo per lanciarlo sul PC remoto. Qualcuno in questo NG
ogni tanto (lanciando il sasso e nascondendo la mano :-) ha citato la
possibilita' di controllare una copia remota di Access tramite winsock
e compagnia bella. Non ho idea di come si faccia, pero' ci sono delle
semplici soluzioni alternative (un po' rozze): puoi lanciare Access
tramite un qualunque scheduler, con uno switch (/X) che ti permette di
eseguire la tua macro di modifica dei dati.
--
Ciao,
Giovanni


title: batch , è possibile crearne .....????

text:
> Ora che ci penso pero' potresti aver chiesto una cosa diversa, ovvero
> come lanciare dei comandi per far eseguire delle procedure su un
> computer remoto.
In effetti sto cercando di capire se č possibile lanciare una macro (che
lancia piů "queries") da un DB che perň eseguono le elaborazioni su un altro
DB sulla stessa macchina . La situazione piů semplice sarebbe una query sul
DB-A che perň aggiorna dei campi sulla tabella del DB-B sulla stessa
macchina . Dimmi se mi sono spiegato  .
Ciao e grazie


title: batch , è possibile crearne .....????

text:
On Wed, 29 Mar 2000 09:49:23 +0200, "riviera"
<
marce...@smartino.ge.it
> wrote:
>La situazione più semplice sarebbe una query sul
>DB-A che però aggiorna dei campi sulla tabella del DB-B sulla stessa
>macchina
Allora e' molto piu' semplice. Puoi innanzi tutto collegare le tabelle
di A e usarle in B come tabelle locali. Oppure puoi usare la
"clausola" (o preposizione? come cippa si traduce "Clause" in
italiano?) IN nell'SQL delle tue query. IN ti permette di specificare
in quale database esterno si trova la tabella di cui vuoi fare
l'update o da cui vuoi selezionare i dati.
--
Ciao,
Giovanni


title: batch , è possibile crearne .....????

text:
Hai centrato il problema , Mi potresti fare un piccolo esempio ??? non ho
eccessiva dimestichezza con l'SQL
Se il pc non fosse lo stesso , ma quello del vicino
 \\vicino\documenti\db.mdb ) , cambierebbe di molto ??
Grazie per sopportarmi ....


title: batch , è possibile crearne .....????

author: lbo dal portatile

text:
>di A e usarle in B come tabelle locali. Oppure puoi usare la
>"clausola" (o preposizione? come cippa si traduce "Clause" in
>italiano?) IN nell'SQL delle tue query. IN ti permette di specificare
mi pare che sull'help la chiamino prOposizione...
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: batch , è possibile crearne .....????

text:
On Tue, 04 Apr 2000 23:15:02 GMT,
l...@NOSPAM.blunet.it
 (lbo dal
portatile) wrote:
>mi pare che sull'help la chiamino prOposizione...
Hai ragione, ma IN e' pur sempre una prEposizione :-)
--
Ciao,
Giovanni


title: Query e campo numerico

author: F. Piccardi

text:
Salve a tutti.
Uso Access97
Ho una query parametrica che mi permette di vedere anche quei campi che
hanno valore Null.
Ora grazie a delucidazioni avute sull' NG sono riuscito ad impostare i
criteri relativi ad un campo di formato numerico, e il tutto funziona.
Il problema č questo: ho un altro campo numerico il campo "Cassetta"che non
č mai Null e che all'inserimento di nuovi record mi da una numerazione
progressiva (non č un campo contatore) ottenuta con del codice abbinato ad
un pulsante.
Mi sto arrovellando per mettere dei criteri per la ricerca in questo campo
della query, ho provato a mettere semplicemete
([Forms]![mascCerca]![TxtcercaCassetta] ma quando lancio la ricerca
praticamente la query non funziona piů se tolgo questi parametri la query
rifunziona.
Preciso che i parametri di ricerca vengono digitati in controlli di un'altra
maschera che hanno tutti  requery dopo aggiornamento.
Questa č la query (senza parametri per il campo suddetto).
SELECT TabVideoteca.Cassetta, TabVideoteca.[Data di archiviazione],
TabVideoteca.Titolo, TabVideoteca.Genere, TabVideoteca.Durata,
TabVideoteca.[Data di registrazione], TabVideoteca.[Canale di
registrazione], TabVideoteca.Regia, TabVideoteca.Attori,
TabVideoteca.[Imprestata a], TabVideoteca.Il, TabVideoteca.Note,
Nz([Titolo],".") AS XTitolo, Nz([Durata]) AS XDurata, Nz([Genere],".") AS
XGenere
FROM TabVideoteca
WHERE (((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"*")
& "*") AND
((Nz([Durata]))>=IIf(IsNull([Forms]![MascCerca]![TxtCercadurata]),0,[Forms]!
[MascCerca]![TxtCercadurata])) AND ((Nz([Genere],".")) Like
Nz([Forms]![MascCerca]![CbCercaGenere],"*") & "*"));
Franco


title: Query e campo numerico

author: Antonio Biso

text:
"F. Piccardi" <
f.pic...@tin.it
> ha scritto nel messaggio
news:nMZbb.107370$hE5.3...@news1.tin.it...
> Salve a tutti.
>
> Uso Access97
>
> Ho una query parametrica che mi permette di vedere anche quei campi che
> hanno valore Null.
>
> Ora grazie a delucidazioni avute sull' NG sono riuscito ad impostare i
> criteri relativi ad un campo di formato numerico, e il tutto funziona.
>
> Il problema č questo: ho un altro campo numerico il campo "Cassetta"che
non
> č mai Null e che all'inserimento di nuovi record mi da una numerazione
> progressiva (non č un campo contatore) ottenuta con del codice abbinato ad
> un pulsante.
>
> Mi sto arrovellando per mettere dei criteri per la ricerca in questo campo
> della query, ho provato a mettere semplicemete
> ([Forms]![mascCerca]![TxtcercaCassetta] ma quando lancio la ricerca
> praticamente la query non funziona piů se tolgo questi parametri la query
> rifunziona.
>
> Preciso che i parametri di ricerca vengono digitati in controlli di
un'altra
> maschera che hanno tutti  requery dopo aggiornamento.
>
> Questa č la query (senza parametri per il campo suddetto).
e se magari mettevi anche il campo suddetto potevamo provare a capire il
problema.
Inoltre non dici che significa: la query non funziona piů...
Antonio



title: Query e campo numerico

text:
F. Piccardi <
f.pic...@tin.it
> wrote in message
nMZbb.107370$hE5.3...@news1.tin.it...
> Salve a tutti.
>
> Uso Access97
>
> Ho una query parametrica che mi permette di vedere anche quei campi che
> hanno valore Null.
>
> Ora grazie a delucidazioni avute sull' NG sono riuscito ad impostare i
> criteri relativi ad un campo di formato numerico, e il tutto funziona.
>
> Il problema è questo: ho un altro campo numerico il campo "Cassetta"che
non
> è mai Null e che all'inserimento di nuovi record mi da una numerazione
> progressiva (non è un campo contatore) ottenuta con del codice abbinato ad
> un pulsante.
>
> Mi sto arrovellando per mettere dei criteri per la ricerca in questo campo
> della query, ho provato a mettere semplicemete
> ([Forms]![mascCerca]![TxtcercaCassetta] ma quando lancio la ricerca
> praticamente la query non funziona più se tolgo questi parametri la query
> rifunziona.
>
> Preciso che i parametri di ricerca vengono digitati in controlli di
un'altra
> maschera che hanno tutti  requery dopo aggiornamento.
>
> Questa è la query (senza parametri per il campo suddetto).
>
> SELECT TabVideoteca.Cassetta, TabVideoteca.[Data di archiviazione],
> TabVideoteca.Titolo, TabVideoteca.Genere, TabVideoteca.Durata,
> TabVideoteca.[Data di registrazione], TabVideoteca.[Canale di
> registrazione], TabVideoteca.Regia, TabVideoteca.Attori,
> TabVideoteca.[Imprestata a], TabVideoteca.Il, TabVideoteca.Note,
> Nz([Titolo],".") AS XTitolo, Nz([Durata]) AS XDurata, Nz([Genere],".") AS
> XGenere
> FROM TabVideoteca
> WHERE (((Nz([Titolo],".")) Like
Nz([Forms]![mascCerca]![TxtcercaTitolo],"*")
> & "*") AND
>
((Nz([Durata]))>=IIf(IsNull([Forms]![MascCerca]![TxtCercadurata]),0,[Forms]!
> [MascCerca]![TxtCercadurata])) AND ((Nz([Genere],".")) Like
> Nz([Forms]![MascCerca]![CbCercaGenere],"*") & "*"));
>
> Franco
>
> Mi è sparito dall'elenco il messaggio di risposta di Antonio Biso
Comunque per rispondere alle sue richieste di chiarimenti
La query completa è questa:
SELECT TabVideoteca.Cassetta, TabVideoteca.[Data di archiviazione],
TabVideoteca.Titolo, TabVideoteca.Genere, TabVideoteca.Durata,
TabVideoteca.[Data di registrazione], TabVideoteca.[Canale di
registrazione], TabVideoteca.Regia, TabVideoteca.Attori,
TabVideoteca.[Imprestata a], TabVideoteca.Il, TabVideoteca.Note,
Nz([Titolo],".") AS XTitolo, Nz([Durata]) AS XDurata, Nz([Genere],".") AS
XGenere
FROM TabVideoteca
WHERE (((TabVideoteca.Cassetta)=[Forms]![mascCerca]![TxtcercaCassetta]) AND
((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"*") & "*")
AND
((Nz([Durata]))>=IIf(IsNull([Forms]![MascCerca]![TxtCercadurata]),0,[Forms]!
[MascCerca]![TxtCercadurata])) AND ((Nz([Genere],".")) Like
Nz([Forms]![MascCerca]![CbCercaGenere],"*") & "*"));
I  critero che mi da ( dava ) problemi è il primo dopo Where.
Non funziona sta a significare che se digitavo un  numero nel relativo
controllo della maschera MascCerca mi trovava il record corrispondente, ma
poi se intendevo effettuare altre ricerche  utilizzando gli altri controlli
mi dava record vuoto.
Comunque prova e riprova ho messo questo parametro Like
Nz([Forms]![mascCerca]![TxtcercaCassetta]; "*")
Adesso funziona anche se non non riesco (da principiante) a capire
esattamente il perchè.
La cosa che mi aveva messo fuori strada era il criterio relativo alla
durata, cioè se campo numerico non si utilizza Like e asterisco.
Grazie
Franco


title: Query e campo numerico

text:
"F. Piccardi" <
f.pic...@tin.it
> ha scritto nel messaggio
news:SDmcb.115560$hE5.3...@news1.tin.it...
>
> Comunque prova e riprova ho messo questo parametro Like
> Nz([Forms]![mascCerca]![TxtcercaCassetta]; "*")
>
> Adesso funziona anche se non non riesco (da principiante) a capire
> esattamente il perchè.
>
> La cosa che mi aveva messo fuori strada era il criterio relativo alla
> durata, cioè se campo numerico non si utilizza Like e asterisco.
Io non so cosa succedeva, si sarebbe dovuto fare delle prove.
Comunque questo criterio non è che vada così bene:
((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"*") & "*")
E' giusto fare
((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"") & "*")
Antonio


title: Query e campo numerico

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
J_ncb.345260$lK4.11...@twister1.libero.it...

> Grazie per il suggerimento, ma mi puoi spiegare  la differenza tra il
mettere e non l'asterisco?
Quanto suggerito da te è da usare anche per gli altri parametri relativi a
campi testo?
Franco


title: Query e campo numerico

text:
"F. Piccardi" <
f.pic...@tin.it
> ha scritto nel messaggio
news:UoGcb.166729$R32.5...@news2.tin.it...
>
> > Comunque questo criterio non č che vada cosě bene:
> > ((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"*") &
> "*")
> > E' giusto fare
> > ((Nz([Titolo],".")) Like Nz([Forms]![mascCerca]![TxtcercaTitolo],"") &
> "*")
> >
> > Antonio
> >
> > Grazie per il suggerimento, ma mi puoi spiegare  la differenza tra il
> mettere e non l'asterisco?
La differenza č che in un caso viene fuori Like "*" nell'altro Like "**".
Mi ricordo che alcune volte il like "**" mi dava dei problemi quindi ho
smesso da tempo di usarlo...
Antonio


title: Query e campo numerico

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
RFVdb.356470$Ny5.11...@twister2.libero.it...

> Grazie del chiarimento
Ciao Franco


title: Leggere utente..

author: sd

text:
Salve a tutti,
dovrei creare una maschera
di inseriemento dati.
Vorrei utilizzare la protezione
a livello utente di access....
E' possibile prelevare il nome
dell'utente che ha fatto il LOGIN
e scriverlo come campo nel record che
andrà a aggiungere/modifiare?
grazie
sdamy


title: Leggere utente..

author: Patrick

text:
Si dovrebbe essere la proprietą username del Workspace.
Dim wrk As Workspace
    Set wrk = DBEngine.Workspaces(0)
    If wrk.UserName = "Supervisore" Then .........
ciao ciao
"sd" <
sd...@tiscalinet.it
> wrote in message
news:9sb3bl$g1a$1...@pegasus.tiscalinet.it...
> Salve a tutti,
> dovrei creare una maschera
> di inseriemento dati.
>
> Vorrei utilizzare la protezione
> a livello utente di access....
> E' possibile prelevare il nome
> dell'utente che ha fatto il LOGIN
> e scriverlo come campo nel record che
> andrą a aggiungere/modifiare?
>
> grazie
>
> sdamy
>
>


title: Leggere utente..

text:
"Patrick" <
patr...@gmx.it
> ha scritto nel messaggio
news:Xu8G7.21404$zl4.6...@news2.tin.it...
> Si dovrebbe essere la proprietà username del Workspace.
> Dim wrk As Workspace
>     Set wrk = DBEngine.Workspaces(0)
>     If wrk.UserName = "Supervisore" Then .........
> ciao ciao
> "sd" <
sd...@tiscalinet.it
> wrote in message
> news:9sb3bl$g1a$1...@pegasus.tiscalinet.it...
> > Salve a tutti,
> > dovrei creare una maschera
> > di inseriemento dati.
> >
> > Vorrei utilizzare la protezione
> > a livello utente di access....
> > E' possibile prelevare il nome
> > dell'utente che ha fatto il LOGIN
> > e scriverlo come campo nel record che
> > andrà a aggiungere/modifiare?
> >
> > grazie
> >
> > sdamy
> >
> >
>
>
grazie ora ci provo
sdamy


title: Leggere utente..

author: Peter

text:
Oppure più semplicemente richiami la funzione CurrentUser
msgbox("Ciao " & CurrentUser)
"Patrick" <
patr...@gmx.it
> ha scritto nel messaggio
news:Xu8G7.21404$zl4.6...@news2.tin.it...
> Si dovrebbe essere la proprietà username del Workspace.
> Dim wrk As Workspace
>     Set wrk = DBEngine.Workspaces(0)
>     If wrk.UserName = "Supervisore" Then .........
> ciao ciao
> "sd" <
sd...@tiscalinet.it
> wrote in message
> news:9sb3bl$g1a$1...@pegasus.tiscalinet.it...
> > Salve a tutti,
> > dovrei creare una maschera
> > di inseriemento dati.
> >
> > Vorrei utilizzare la protezione
> > a livello utente di access....
> > E' possibile prelevare il nome
> > dell'utente che ha fatto il LOGIN
> > e scriverlo come campo nel record che



title: Leggere utente..

text:
ah grazie!
mi hai semplificato la vita!!
"Peter" <pete...@NOvizzavi.it> ha scritto nel messaggio
news:5wdG7.36615$sq5.1...@news.infostrada.it...



title: Leggere utente..

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:9sbqtu$rp$1...@pegasus.tiscalinet.it...
> ah grazie!
> mi hai semplificato la vita!!
>
>
> "Peter" <pete...@NOvizzavi.it> ha scritto nel messaggio
> news:5wdG7.36615$sq5.1...@news.infostrada.it...
> > Oppure più semplicemente richiami la funzione CurrentUser
> > msgbox("Ciao " & CurrentUser)
> >
E l'avete complicata a noi perché non rispondete dopo il testo dei messaggi
precedenti.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Leggere utente..

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:75fG7.37398$sq5.1...@news.infostrada.it...

eh hai ragione!
saluti
sdamy


title: un po' di domande per una nuova applicazione...

text:
Salve a tutti.
in premessa ricordo le caratteristiche della mia macchina:
P III 550mhz, 128 mb ram so. win, 98 se access 97
Passo subito ai questiti.
Ho salvato come pdf diversi file che costituiscono crocolari di lavoro.
Vorrei trovare un modo di archiviarle e fare in modo da riesumarle
attraverso una sorta di motore di ricerca. valorizzando una casella
combinata in una form access mi dovrebbe elencare tutte le circolari
relative all'artgomento selezionato; una volta scelta quella giusta con un
click si dovrebbe avviare acrobat per la visualizzazione della circolare.
seconda domanda:
vorrei creare un archivio di domande per ciascuna della quali si possono
prevedere più risposte (tipo A, b, c, d) ognuna con un suo personale
punteggio. l'utente dopo aver risposto, ad esempio a 20 domande dovrebbe
leggere il suo punteggio. ma, e qui sta il bello, vorrei che le 20 domande
venissero scelte casualmente da access in un archivio di, ad es. mille
domande, e che fosse inibita la possibilità di ripetersi deolle selezioni.
Abbiate cuore. da dove comincio?


author: Fox Mulder

text:
Ma esattamente a te cosa serve ?
qualcuno che ti faccia il programma ?
vuoi alcune dritte ?
> Passo subito ai questiti.
> Ho salvato come pdf diversi file che costituiscono crocolari di lavoro.
> Vorrei trovare un modo di archiviarle e fare in modo da riesumarle
> attraverso una sorta di motore di ricerca. valorizzando una casella
> combinata in una form access mi dovrebbe elencare tutte le circolari
> relative all'artgomento selezionato; una volta scelta quella giusta con un
> click si dovrebbe avviare acrobat per la visualizzazione della circolare.
Una scelta intelligente potrebbe essere quella di scandire la directory
contenente i pdf ed importare i dati in una tabella (magari generare questo
evento tramite un apposito comando di refresh).
Per quanto riguarda l'apertura di un documento (qualsiasi esso sia) ti basta
il percorso completo e il nome dell'applicativo (Acrobat Reader). Tramite la
funzione Shell di VBA puoi eseguire il "lancio"
> seconda domanda:
> vorrei creare un archivio di domande per ciascuna della quali si possono
> prevedere più risposte (tipo A, b, c, d) ognuna con un suo personale
> punteggio. l'utente dopo aver risposto, ad esempio a 20 domande dovrebbe
> leggere il suo punteggio. ma, e qui sta il bello, vorrei che le 20 domande
> venissero scelte casualmente da access in un archivio di, ad es. mille
> domande, e che fosse inibita la possibilità di ripetersi deolle selezioni.
>
Per fare una cosa del genere, pur non essendo complicata, sei costretto ad
utilizzare codice VBA.
Inizialmente carichi tutte le 1000 domande in una tabella indicizzata; con
la funzione Random di VBA (inizializzata con Randomize) puoi prelevare x
numeri per poi far riferimento (tramite indice) alle domande e caricarle a
loro volta in una tabella a parte.
La prossima volta, posta domande meno generiche così eviti agli altri di
fare l'analisi del problema al posto tuo...... :)))
Saluti


author: Rob

text:
<
ari...@libero.it
> ha scritto nel messaggio
news:B%Hd6.65661$ew1.4...@news.infostrada.it...
> Salve a tutti.
> in premessa ricordo le caratteristiche della mia macchina:
> P III 550mhz, 128 mb ram so. win, 98 se access 97
>
> Passo subito ai questiti.
> Ho salvato come pdf diversi file che costituiscono crocolari di lavoro.
> Vorrei trovare un modo di archiviarle e fare in modo da riesumarle
> attraverso una sorta di motore di ricerca. valorizzando una casella
> combinata in una form access mi dovrebbe elencare tutte le circolari
> relative all'artgomento selezionato;
Io creerei le seguenti tabelle:
*CatPrincipali*
[IDCategoria] 'Chiave Primaria
[Descrizione]
*CatSecondarie*  'Se vuoi puoi aggiungere ulteriori sottoclassi
[IDCatSecond] 'Chiave Primaria
[IDCategoria] 'Lato molti della relaz. con [IDCategoria] della tab
*CatPrincipali*
[Descrizione]
*Circolari*
[IDCircolare] 'ChiavePrimaria
[Descrizione]
[Link]' Link al file .pdf
Poichè penso che una circolare potrebbe contenere argomenti ambigui, cioè
che potrebbero appartenere a più di una categoria contemporaneamente, dovrei
in questi casi stabilire fra le tabelle *Circolari*  e *CatSecondarie* una
relazione molti a molti: Mi serve un'ulteriore tabella.
*CategAssociate*
[IDCategoria] 'Lato molti della relaz. con [IDCategoria] della tab
*CatPrincipali*
[IDCircolare] 'Lato molti della relaz. con [IDCircolare] della tab
*Circolari*
Ovviamente dovrai impostare una chave primaria multicampo che comrenda
entranbi i campi.
> una volta scelta quella giusta con un
> click si dovrebbe avviare acrobat per la visualizzazione della circolare.
Per fare ciò, adotterei lo stesso sistema esemplificato nel Sito Comune per
implementare un archivio di immagini: Documenti PDF in una directory e link
ipertesto nella tabella circolari.
> seconda domanda:
> vorrei creare un archivio di domande per ciascuna della quali si possono
> prevedere più risposte (tipo A, b, c, d) ognuna con un suo personale
> punteggio. l'utente dopo aver risposto, ad esempio a 20 domande dovrebbe
> leggere il suo punteggio. ma, e qui sta il bello, vorrei che le 20 domande
> venissero scelte casualmente da access in un archivio di, ad es. mille
> domande, e che fosse inibita la possibilità di ripetersi deolle selezioni.
Qui non si capisce bene se vuoi:
a) che l'utente dica: adesso mi sparo un bel quizzone! E gli appaiono una
ventina di domande, all'interno delle quali non vuoi duplicati. (Questa mi
sembra ovvia!)
b) che lo stesso utente dica: mo' mi risparo un'altro quizzone! E gli
rotolano fuori una ventina di domande tutte diverse dalla prima volta (o
dalle altre volte).
c) che l'utente (non più lo stesso) dica: mi sparo un bel quizzone! E il
programmino gli sputa 'sta ventina di domande diverse da qualsiasi altro
utente precedente.
d) che l'utente dica: adesso mi quizzo un bello sparo!! eee... @-/    #-\
....
Comunque sia, una volta implementato l'archivio dei domandoni, aggiungi un
campo Sel (Si/No) nella tabella stessa dei domandoni, per indicare al
programma se la domanda è stata inserita o meno nel quizzone in fase di
creazione. (caso A)
- Crei una routine che cicla sui record del tabellone dei domandoni ed
esegue una selezione random dei record (Non l'ho mai fatta ma se mi dovesse
capitare...). Se il record viene scelto imposti il campo Sel = True. Alla
prossima selezione casuale i valori True dovranno venire ignorati. Quando
hai raggiunto i 20 cicli (20 dimande estratte che verranno accodate da
qualche parte: tbl temporanea?)
esci dalla routine e ne esegui un'altra che reimposti tutti i flag di Sel a
False altrimenti ai prossimo giri successivi ti mancheranno tutte le domande
già proposte (Caso C)
- Se devi risolvere il caso B devi procedere come per il caso A e tenere
traccia per ogni utente (Ti serve anche una Tabella Utenti) di ogni quizzone
che si è sparato e delle relative domande già proposte.
- Caso D: Ctrl+Alt+Del!
> Abbiate cuore. da dove comincio?
Scegli tu, dalla prima o dalla seconda! :-)
Mandi, Rob.


title: Dimensioni variabili caselle in record

author: Marco

text:
Ciao a tutti,
premetto che non sono molto esperto di Report (come del resto, voi direte...
:-))
ma mi chiedevo se fosse posibile dimensionare i campi in base al contenuto.
Esempio
Ho un report del tipo
IdOrdine      Data        IdProdotto Spedizone ...    Note
Il campo Note può essere pieno o vuoto, ma comunque si estende su circa 4
righe.
La mia domanda è questa:
è possibile far dimensionare la riga del report agli altri campi (1 riga) se
il campo Note è vuoto oppure occupa una sola riga???
Grazie anticipatamente
Ciao
Marco


title: Dimensioni variabili caselle in record

author: Francesco R.

text:
"Marco" <
mar...@inwind.it
> ha scritto nel messaggio
news:Eh%Oa.160443$Ny5.4...@twister2.libero.it...

Cerca nell'help:
Proprietà CanGrow, CanShrink (Espandibile, Riducibile)
Ciao.


title: Report e diagrammi

author: Francesco Bistrussu

text:
Salve a tutti,
scrivo pre la prima volta per chiedere un aiutino.
Quando nella anteprima di stampa dei report, su layout etichette
multiple, cerco di far comparire dei diagrammi differenti su ciascuna
etichetta e generati da un modulo VBA, capita che viene stampato solo
l'ultimo diagramma calcolato sull'ultima etichetta, mentre le altre
rimangono bianche.
Perchè?
Il modulo VBA viene richiamato come evento su stampa del corpo
etichetta.
Qualcuno conosce un metodo per risolvere il problema?
Ciao.
FB
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Report e diagrammi

author: Sergio MAZZA

text:
"Francesco Bistrussu" <
fbis...@libero.it
> ha scritto nel messaggio
news:cb3663c49a988f3615...@mygate.mailgate.org...
> Salve a tutti,
> scrivo pre la prima volta per chiedere un aiutino.
> Quando nella anteprima di stampa dei report, su layout etichette
> multiple, cerco di far comparire dei diagrammi differenti su ciascuna
> etichetta e generati da un modulo VBA, capita che viene stampato solo
> l'ultimo diagramma calcolato sull'ultima etichetta, mentre le altre
> rimangono bianche.
> Perchè?
> Il modulo VBA viene richiamato come evento su stampa del corpo
> etichetta.
>
> Qualcuno conosce un metodo per risolvere il problema?
> Ciao.
>
> FB
>
Scusa l'ignoranza ma per diagrammi intendi grafici? Significa che per ogni
etichetta devi stampare un grafico differente (e quindi ricalcolato)?
Ciao.
--
Sergio MAZZA


title: convertire data in codice

text:
Ciao a tutti.
Ho un problema da "cervelloni di Access".
Vorrei convertire automaticamente una data in un codice.
La data è in formato 99/99/99 e si trova in una casella di testo
denominata "data" all'interno della maschera singola "Conversione" che
contiene anche un'altra casella di testo, denominata "codice", che deve
ricevere in modo automatico il codice.
Il codice è costituito come segue: 0 1 2
dove 0 = numero dal 1 al 31 indica il giorno
1= lettera da A a N indica il mese (1-12)
2= lettera da Z a A, con Z=1994 (1996=U), indica l'anno.
Per fare un esempio pratico, la data odierna 24/09/07 deve diventare 24IH
(con I=i, per intenderci).
Ovviamente l'anno deve ritornare sulla lettera Z nel 2015 (considerando
solo le 21 lettere dalla A alla Z senza k, w, x, j e y)
Ho trovato sul sito comune un esempio per la conversione dei numeri in
lettere ma non penso che sia attinente a questo caso.
Per me è una cosa complicatissima, non essendo esperto di VBA poi.....è
quasi impossibile.
Spero di essermi spiegato bene.
Grazie in anticipo a chi avrà la pazienza di aiutarmi.
Ciao


title: convertire data in codice

author: VT @ home

text:
Il Mon, 24 Sep 2007 14:45:49 +0000 (UTC),
ca...@flag.it
 ha scritto:
>(.....)

Function codice(dData As Date) As String
Dim aLettere(1 To 21) As String, i As Byte, k As Byte
k = 21
For i = 65 To 90
  If Chr$(i) <> "J" And Chr$(i) <> "K" And Chr$(i) <> "W" And Chr$(i) <> "X" And Chr$(i) <> "Y" Then
     aLettere(k) = Chr$(i)
     k = k - 1
   End If
Next i
codice = Trim$(Str$(Day(dData)))
codice = codice & Chr$(Month(dData) + 64)
codice = codice & aLettere((Year(dData) - 1973) Mod 21 + 1)
End Function
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: convertire data in codice

text:
Ho dimenticato di precisare che la funzione di cui al mio post precedente puoi richiamarla, per esempio nella routine
associata all'evento DopoAggiornamento del controllo txtData, in questo modo:
me.txtCodice=Codice(cdate(me.txtData))
dove txtCodice è il nome del controllo associato al campo codice.



title: convertire data in codice

text:
Ciao
Prima di tutto volevo ringraziarti per l'aiuto. Sei stato veramente
moooooolto gentile.
Vorrei però ulteriori chiarimenti, se possibile (io non mi intendo molto
di VBA, anzi, veramente poco).
Sull'evento dopo aggiornamento della casella di testo (o controllo) "data"
(perchè la chiami txtdata?) vado ad inserire:
me.txtCodice=Codice(cdate(me.txtData))
e fin qui tutto ok, ma dove salvo la function codice? In un modulo?
Poi "dove txtCodice è il nome del controllo associato al campo codice" non
capisco cosa significa......
Se dovessi modificare la maschera da singola a continua le cose cambiano
molto?
Siccome stò preparando una maschera di inserimento dati piuttosto
complessa non ho ancora ben chiaro come sarà.
La maschera continua avrebbe due caselle di testo "def" e "valore".
In "def" ci sarebbe scritto 'data' e sull'evento 'su disattivato'
metterei:
If Me!Def = "data" Then
DoCmd.OpenForm "Calendario"
End If
In modo da far apparire  (come da esempio 3.113 "un controllo calendario
di facile utilizzo" sul sitocomune) un calendario da cui poter scegliere
una data anzichè digitarla dall'operatore.
Questa data ovviamente verrebbe inserita nella casella di testo "valore".
Poi, andando avanti, in 'def' ci sarebbe scritto 'codice' e nella casella
di testo 'valore' dovrebbe comparirmi il codice (cioè la data selezionata
trasformata in codice).
Bisogna modificare parecchie cose?
Ti ringrazio ancora veramente tanto per l'aiuto
Ciao


title: convertire data in codice

text:
Il Tue, 25 Sep 2007 08:45:58 +0000 (UTC),
ca...@flag.it
 ha scritto:
>Ciao
>Prima di tutto volevo ringraziarti per l'aiuto. Sei stato veramente
>moooooolto gentile.
>Vorrei però ulteriori chiarimenti, se possibile (io non mi intendo molto
>di VBA, anzi, veramente poco).
>Sull'evento dopo aggiornamento della casella di testo (o controllo) "data"
>(perchè la chiami txtdata?)
Per evitare ambiguità fra il nome del controllo e quello del campo ad esso associato.
>vado ad inserire: me.txtCodice=Codice(cdate(me.txtData))
>e fin qui tutto ok, ma dove salvo la function codice? In un modulo?
Puoi salvarla in un modulo separato, oppure nello stesso modulo associato alla form.
Nel primo caso potrai richiamarla dovunque all'interno della tua applicazione.
Nel secondo caso, solo all'interno del modulo dove essa compare.
>Poi "dove txtCodice è il nome del controllo associato al campo codice" non
>capisco cosa significa......
Hai una form che è associata ad una tabella, ovvero che nella proprietà "Origine record" ha il nome di una tabella,
giusto ?
Ogni controllo della form (casella di testo, casella combinata ecc.) a sua volta può essere associato ad un campo di
tale tabella, ovvero avere la proprietà "Origine controllo" valorizzata con il nome di un campo della tabella associata
alla form.
Quindi, nel tuo caso:
campo tabella 	controllo form
------------------------------------------------
data		txtData
valore		txtValore
>Se dovessi modificare la maschera da singola a continua le cose cambiano
>molto?
Per quanto posso immaginare con gli elementi a disposizione, direi di no.
In ogni caso, le form continue sono abbastanza ostiche da domare, soprattutto per giochetti di questo tipo.
Quindi aspetterei.
>Siccome stò preparando una maschera di inserimento dati piuttosto
>complessa non ho ancora ben chiaro come sarà.
>La maschera continua avrebbe due caselle di testo "def" e "valore".
>In "def" ci sarebbe scritto 'data' e sull'evento 'su disattivato'
>metterei:
>If Me!Def = "data" Then
>DoCmd.OpenForm "Calendario"
>End If
>In modo da far apparire  (come da esempio 3.113 "un controllo calendario
>di facile utilizzo" sul sitocomune) un calendario da cui poter scegliere
>una data anzichè digitarla dall'operatore.
>Questa data ovviamente verrebbe inserita nella casella di testo "valore".
>Poi, andando avanti, in 'def' ci sarebbe scritto 'codice' e nella casella
>di testo 'valore' dovrebbe comparirmi il codice (cioè la data selezionata
>trasformata in codice).
>Bisogna modificare parecchie cose?
Sinnceramente non ho capito molto.
In ogni caso, io prima farei funzionare le cose senza troppe complicazioni (della serie: l'utente si consumerà un
pochino i polpastrelli a digitare la data nella casella di testo); poi, una volta collaudato e verificato che tutto
funziona, passerei ad abbellire (ed appesantire !) il tutto con le cosine carine che piacciono tanto agli utenti.
>Ti ringrazio ancora veramente tanto per l'aiuto
>Ciao



title: convertire data in codice

text:
Ciao, scusa se ti "assillo" ancora con questa faccenda del codice.
Ho creato una tabella 'tabella1' così formata:
id - chiave primaria e contatore
data - data/ora
codice - testo
Con la creazione guidata ho poi creato una maschera 'maschera1' e ho
chiamato le due caselle di testo 'txtdata' (origine controllo 'data') e
'txtcodice' (origine controllo 'codice').
Ho poi copia-incollato il tuo codice in un modulo che ho chiamato
FunzioneCodice.
Su 'dopo aggiornamento' del controllo 'txtdata' ho inserito:
me.txtCodice=Codice(cdate(me.txtData))
ma non funziona, mi esce l'avviso "tipo non corrispondente".
Sicuramente ho "toppato" da qualche parte. Ad esempio penso che il modulo
debba essere richiamato in un modo o nell'altro ma come?
Sei sicuro che sia '.......=Codice(cdate..........  con la 'c'?
Grazie mille per l'aiuto
Ciao


title: convertire data in codice

text:
Il Tue, 25 Sep 2007 13:29:58 +0000 (UTC),
ca...@flag.it
 ha scritto:
>(.....)
>Ciao, scusa se ti "assillo" ancora con questa faccenda del codice.
>Ho creato una tabella 'tabella1' cosě formata:
>id - chiave primaria e contatore
>data - data/ora
>codice - testo
>Con la creazione guidata ho poi creato una maschera 'maschera1' e ho
>chiamato le due caselle di testo 'txtdata' (origine controllo 'data') e
>'txtcodice' (origine controllo 'codice').
>Ho poi copia-incollato il tuo codice in un modulo che ho chiamato
>FunzioneCodice.
>Su 'dopo aggiornamento' del controllo 'txtdata' ho inserito:
>me.txtCodice=Codice(cdate(me.txtData))
>ma non funziona, mi esce l'avviso "tipo non corrispondente".
>Sicuramente ho "toppato" da qualche parte. Ad esempio penso che il modulo
>debba essere richiamato in un modo o nell'altro ma come?
>Sei sicuro che sia '.......=Codice(cdate..........  con la 'c'?
>Grazie mille per l'aiuto
>Ciao
Codice probabilmente č parola riservata di Access.
Nel modulo dove hai salvato la funzione sostituisci tutte le occorrenze di Codice con CreaCodice, quindi sostituisci
me.txtCodice=Codice(cdate(me.txtData))
con
me.txtCodice=CreaCodice(cdate(me.txtData))
A me ha funzionato.



title: convertire data in codice

author: Alessandro Cara

text:
VT @ home wrote:
> Il Tue, 25 Sep 2007 13:29:58 +0000 (UTC),
ca...@flag.it
 ha scritto:
>> (.....)
>
>> Ciao, scusa se ti "assillo" ancora con questa faccenda del codice.
>> Ho creato una tabella 'tabella1' cosě formata:
>> id - chiave primaria e contatore
>> data - data/ora
>> codice - testo
>> Con la creazione guidata ho poi creato una maschera 'maschera1' e ho
>> chiamato le due caselle di testo 'txtdata' (origine controllo 'data') e
>> 'txtcodice' (origine controllo 'codice').
>> Ho poi copia-incollato il tuo codice in un modulo che ho chiamato
>> FunzioneCodice.
>> Su 'dopo aggiornamento' del controllo 'txtdata' ho inserito:
>> me.txtCodice=Codice(cdate(me.txtData))
>> ma non funziona, mi esce l'avviso "tipo non corrispondente".
>> Sicuramente ho "toppato" da qualche parte. Ad esempio penso che il modulo
>> debba essere richiamato in un modo o nell'altro ma come?
>> Sei sicuro che sia '.......=Codice(cdate..........  con la 'c'?
>> Grazie mille per l'aiuto
>> Ciao
>
> Codice probabilmente č parola riservata di Access.
Uso "codice" normalmente e non mi sembra che sia parola riservata.
Il "tipo non corrispondente" probabilmente e' dato o dal tipo errato del
parametro passato alla funzione o su me.txtdata
--
ac
y-1=x


title: convertire data in codice

text:
ciao
funziona che è una meraviglia!!!
Io però presumo già che mi verrà richiesto di inserire questo benedetto
calendario da cui selezionare la data.
Posso inserire, su 'dopo aggiornamento',del calendario
me.txtCodice=CreaCodice(cdate(me.txtData))?
O devo modificare qualcosa? Visto che non si trova nella stessa maschera
ma si aprirà (presumo) su doppio click fatto sulla casella di testo
txtdata.
Ciao e ancora grazie 1000


title: convertire data in codice

text:
ciao
Ma perchè se inserisco manualmente la data questa viene convertita
regolarmente in codice mentre se la stessa la inserisco attraverso l'uso
di un calendario (esempio preso dal sitocomune) non succede nulla?
ciao


title: convertire data in codice

text:

Perche' inserendola attraverso calendario non richiama la routine di
conversione?
--
ac
y-1=x


title: convertire data in codice

text:
Ciao
Tu sai come si può risolvere la cosa?
Io di vba non ci capisco nulla.
Grazie per la risposta comunque....
Ciao


title: convertire data in codice

text:

caio  esiste un numero di "programmi" tendente ad infinito proprio
perche' esistono lo stesso numero di soluzioni (non e' vero ma passi)
E' questa la situazione?  (presa da altro tuo post)

--
ac
y-1=x


title: convertire data in codice

text:
Ciao e grazie per il tuo aiuto.
Ricapitoliamo, aggiornando la situazione allo stato attuale delle cose.
Argomento:convertire automaticamente una data in un codice.
La data è in formato 99/99/99 e si trova in una casella di testo
denominata "datap" all'interno della maschera singola "Conversione" che
contiene anche un'altra casella di testo, denominata "codice", che deve
ricevere in modo automatico il codice. Il codice è costituito come segue:
0 1 2
dove 0 = numero dal 1 al 31 indica il giorno, 1= lettera da A a N indica
il mese (1-12), 2= lettera da Z a A, con Z=1994 (1996=U), indica l'anno.
Per fare un esempio pratico, la data odierna 24/09/07 deve diventare 24IH
(con I=i, per intenderci). Ovviamente l'anno deve ritornare sulla lettera
Z nel 2015 (considerando solo le 21 lettere dalla A alla Z senza k, w, x,
j e y)
Soluzione proposta, inserita in un modulo:
Function creacodice(dData As Date) As String
Dim aLettere(1 To 21) As String, i As Byte, k As Byte
k = 21
For i = 65 To 90
  If Chr$(i) <> "J" And Chr$(i) <> "K" And Chr$(i) <> "W" And Chr$(i) <>
"X" And Chr$(i) <> "Y" Then
    aLettere(k) = Chr$(i)
    k = k - 1
  End If
Next i
creacodice = Trim$(Str$(Day(dData)))
creacodice = creacodice & Chr$(Month(dData) + 64)
creacodice = creacodice & aLettere((Year(dData) - 1973) Mod 21 + 1)
End Function
Poi 'su dopo aggiornamento' della casella di testo "datap" ho inserito:
Me.codice = creacodice(CDate(Me.datap))
mentre 'su click' sempre della stessa casella di testo ho inserito:
 ' Se la data è nulla, passo il valore 0; verrà proposta la data del
giorno

    Me!datap = InputCalendario(Nz(Me!datap, 0), "Calendario")
che mi apre il calendario (esempio preso dal sito comune).
Ora, se digito direttamente la data all'interno della casella di testo
"datap" questa crea automaticamente il codice ed inserito nella casella di
testo appropriata.
Se la stessa data la seleziono dal calendario questa si inserisce poi
automaticamente nella casella di testo "datap" ma non viene creato il
codice.
Se data e codice non fossero così importanti (compaiono poi su report che
vengono spediti in ogni angolo della terra e che servono per la
rintracciabilità del prodotto) non avrei messo il calendario e, forse, non
avrei automatizzato nemmeno il codice.
Ti ringrazio per l'interessamento
Ciao


title: convertire data in codice

text:

si l'avevo vista
io non amo le if e l'avrei fatta cosi':
Function creacodice(dData As Date) As String
Dim aLettere as string
aLettere = "ABCDEFGHILMNOPQRSTUVZ"
creacodice = Trim$(Str$(Day(dData)))
creacodice = creacodice & mid(alettere,Month(dData),1)
creacodice = creacodice & mid(aLettere,21 - (Year(dData) - 1973) Mod 21),1)
end function
>
> Poi 'su dopo aggiornamento' della casella di testo "datap" ho inserito:
>
> Me.codice = creacodice(CDate(Me.datap))
>
> mentre 'su click' sempre della stessa casella di testo ho inserito:
>
>  ' Se la data è nulla, passo il valore 0; verrà proposta la data del
> giorno
>
>     Me!datap = InputCalendario(Nz(Me!datap, 0), "Calendario")
Strano,  dovrebbe comunque passare dal "DopoAggiornamento".
aggiungi:Me.codice = creacodice(CDate(Me.datap))
dopo la istruzione precedente (chiamata a calendario)
--
ac
y-1=x


title: convertire data in codice

text:
Ciao, ho seguito i tuoi suggerimenti e adesso funziona: grazie mille.
Solo una curiosità: perchè preferisci togliere "if"? C'è qualche motivo
particolare?
Ciao e grazie ancora


title: convertire data in codice

text:
ca...@flag.it
 wrote:
> Ciao, ho seguito i tuoi suggerimenti e adesso funziona: grazie mille.
> Solo una curiosità: perchè preferisci togliere "if"? C'è qualche motivo
> particolare?
If e cicli (che hanno if implicite) rendono il codice meno robusto.
Ogni if puo' generare due rami di codice diverso, le if annidate
aumentano i nodi in potenza di 2, trai le conclusioni.
Il pezzo di codice che hai utilizzato l'ha scrtto una persona "capace" e
non gli ci e' voluto molto. Una persona meno capace tra scrivere e fare
i controlli di corretta esecuzione ci avrebbe messo una settimana (e
tremila post ;<)). Quando il livello di difficolta' aumenta, aumenta
esponenzialmente il tempo da dedicare allo "spulciamento" e non si
riesce mai a fare tutti i test necessari.
--
ac
y-1=x


title: access 2003 developer extensions

author: Luciano

text:
ciao
qualcuno mi può dire se questo pacchetto è compreso nella suite office 2003
pro?, e se no come posso ottenerlo?
grazie


title: access 2003 developer extensions

author: . chiarello @gmail.com strano...mavero

text:
Come ha postato ringo in data odierna:
basta acquistare i Microsoft developers tools 2003
(se non erro il costo si aggira intorno ai 600,00 euro)
tra le altre cose il pacchetto oltre al runtime a2003 contiene
sql server versione developer e altri strumentini...
Saluti,
--
===
strano...mavero
Di fronte a tutti i pericoli,
di fronte a tutte le minacce,
le aggressioni, i blocchi, i sabotaggi,
tutti i frazionisti,
tutti i poteri che cercano di frenarci,
dobbiamo dimostrare,
una volta di più,
la capacità del popolo di costruire la propria storia.
Che Guevara (1928 - 1967)


title: Query senza record...

author: bc

text:
Il codice qui sotto fa sì che inserendo un testo in una txtbox, nella
tabella che viene visualizzata in modalità continua vengano fuori solo i
record che soddisfano  alla query...
Ci ho messo tempo ... però mi  va benissimo....
....però se inserisco una stringa che non ha nessun record visualizzabile il
sistema mi si blocca (nel senso che anche tornando indietro e cancellando le
lettere inserite , comunque non vengono visualizzati record) e l'unica cosa
che devo fare è chiudere la form e riaprirla...
mi date una mano?
Sub FiltraPerAssonanza()
Dim StrSQL As String
On Error GoTo fuori
StrRIC = Me.RicProceduraTxt.Text
StrSQL = "SELECT * FROM TblProcedureDH " _
         & "WHERE (((TblProcedureDH.Descrizione) like ""*" & StrRIC &
"*"" ));"
Me.RecordSource = StrSQL
Me.RicProceduraTxt.SetFocus
fuori:
Exit Sub
End Sub
grazie...........................................
bc


title: Query senza record...

text:
bc <
bce...@tiscalinet.it
> wrote in message
914hge$b8d$1...@lacerta.tiscalinet.it...

Quando lanci la sub che hai scritto, cioè su che evento?
Antonio


title: Query senza record...

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:iBkZ5.84534$hk4.3...@news.infostrada.it...
> bc <
bce...@tiscalinet.it
> wrote in message
> 914hge$b8d$1...@lacerta.tiscalinet.it...
> > Il codice qui sotto fa sě che inserendo un testo in una txtbox, nella
> > tabella che viene visualizzata
.......................................................> >
>
> Quando lanci la sub che hai scritto, cioč su che evento?
>
> Antonio
>
>
sul change della txtbox
e funziona..
esempio :
(il mio č un db si procedure mediche)
inserisco:
tac
visualizza :
tac addome
tac cranio
tac pelvi
....
inserisco:
capelli
 non c'č nessun record  nella tbl contenente capelli...
anche se cancello la stringa, la maschera non č capace di visualizzare piů
nulla se non viene chiusa e poi ricaricata  per
su form activate
strsql = select * from tbl
grazie dell'aiuto............


title: Query senza record...

text:
bc <
bce...@tiscalinet.it
> wrote in message
914plm$eqb$1...@lacerta.tiscalinet.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:iBkZ5.84534$hk4.3...@news.infostrada.it...
> > bc <
bce...@tiscalinet.it
> wrote in message
> > 914hge$b8d$1...@lacerta.tiscalinet.it...
> > > Il codice qui sotto fa sì che inserendo un testo in una txtbox, nella
> > > tabella che viene visualizzata
> .......................................................> >
> >
> > Quando lanci la sub che hai scritto, cioè su che evento?
> >
> > Antonio
> >
> >
> sul change della txtbox
>
> e funziona..
> esempio :
> inserisco:
> capelli
>  non c'è nessun record  nella tbl contenente capelli...
>
> anche se cancello la stringa, la maschera non è capace di visualizzare più
> nulla se non viene chiusa e poi ricaricata  per
> su form activate
> strsql = select * from tbl
> grazie dell'aiuto............
N'è possibile!!!
Questa funziona:
str = "SELECT * FROM Tabella2 "
    str = str & "WHERE (((Tabella2.inte) like ""*" & txt1.Text & "*"" ));"
    Me.RecordSource = str
    Me.txt1.SetFocus
    SendKeys "{F2}"
ho aggiunto il sendkeys altrimenti se digiti veloce ti cancella la lettera
precedente.
E ripeto, funziona perfettamente!!!
Sui controlli associati fai qualcosa?
Antonio


title: Query senza record...

author: Luigi - R

text:
"bc" <
bce...@tiscalinet.it
> ha scritto nel messaggio
news:914hge$b8d$1...@lacerta.tiscalinet.it...


Dim Rst as Recordset
On Error GoTo fuori
StrRIC = Me.RicProceduraTxt.Text
StrSQL = "SELECT * FROM TblProcedureDH " _
         & "WHERE (((TblProcedureDH.Descrizione) like ""*" & StrRIC &
"*"" ));"
Set Rst = CurrentDB.Openrecordset(StrSQL)
If Not Rst.Eof then
   Me.RecordSource = StrSQL
   Me.RicProceduraTxt.SetFocus
Else
   MsgBox "Nessun record soddisfa le condizioni."
   Me.Recordsource=""
End If
Exit sub
fuori:
Exit Sub
End Sub
Dovrebbe funzionare.


title: Insert Into da vb6

author: eSQueL

text:
Mi scuso prima se il post risulterà più idoneo per iclvb.
Quando faccio un'importazione da Access di una tabella esterna e alcuni
record hanno una PK già presente nella tabella di destinazione, Access mi
dice grosso modo "record non importati per violazione di chiave: tot" e mi
chiede se voglio proseguire lo stesso. Se dico di sì, lui allega solo i
record univoci.
Se provo a fare una Insert Into da VB6 nelle stesse condizioni ho un errore
e l'azione abortisce, senza alcuna possibilità di ottenere l'accodamento dei
record validi.
C'è un modo per evitare questo ed eseguire comunque l'accodamento dei record
validi (magari nei settaggi di Access)?
Grazie per qualsiasi aiuto
eSQueL


title: Insert Into da vb6

text:
"eSQueL" <
eSQ...@libero.it
> ha scritto nel messaggio
news:RKMCl.207638$Ca.3...@twister2.libero.it...

Ok, nel frattempo ho risolto. Filtro prima l'elenco con Is Null e poi lo
allego. Ma la curiosità rimane.
Ciao :)
eSQueL


title: Insert Into da vb6

text:
"eSQueL" <
eSQ...@libero.it
> ha scritto nel messaggio
news:RKMCl.207638$Ca.3...@twister2.libero.it...

Se ho capito bene:
Insert Into ... Where nomeChiaveEsterna Not In (Select nomeChiave From
nometabella)
Ciao.
--
Sergio MAZZA


title: Insert Into da vb6

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:49dda747$0$711$5fc...@news.tiscali.it...

Sì, più o meno il concetto è quello, solo che uso Is Null
    mysql = "INSERT INTO " & Tabella2 & "(" & CampoChiave & ")" & _
            "SELECT " & Tabella1 & "." & CampoChiave1 & " FROM " & Tabella1
& " LEFT JOIN " & Tabella2 & " ON " & Tabella1 & "." & CampoChiave1 & " = "
& Tabella2 & "." & CampoChiave & " WHERE (" & Tabella2 & "." & CampoChiave &
") Is Null"
La lascio così perché l'ora è tarda.
Ciao :)
eSQueL


title: Allowedits?

author: Gianandrea

text:
Salve a tutti,
se imposto una maschera con consenti modifiche = no e poi faccio un pulsante
con un codice Me.AllowEdits = True, perchè la sottomaschera del mio form
rimane bloccata?
--
Grazie a chi saprà rispondermi
Ciao
Gianandrea


title: Allowedits?

author: Federico Luciani

text:
Gianandrea wrote:
> Salve a tutti,
> se imposto una maschera con consenti modifiche = no e poi faccio un pulsante
> con un codice Me.AllowEdits = True, perchč la sottomaschera del mio form
> rimane bloccata?
la sub form e' un'altra form, quindi devi settarla anche per lei.
Me.AllowEdits = True ' per la mainForm
Me.nomeSubForm.Form.AllowEdits = True ' per la subForm
--
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
--------------------------------------


title: Allowedits?

text:
Grazie mille!
--
Qualche libro lo compro anche io,
ma questo tipo di indicazioni si possono leggere da qualche parte?
il NG va benissimo però vorrei anche qualcosa da leggere davanti al
camino...
ciao
Gianandrea


title: Font Codici a Barre

author: Emyr

text:
Purtroppo mi è stato chiesto di realizzare un programma per la stampa
di etichette con relativi codici a barre ean 13 e code 128
nelle peregrinazioni alla ricerca di font ed ocx (tutti rigorosamente
a pagamento) mi è venuto in mente che forse qualcuno di voi aveva già
provveduto alla realizzazione di font utilizzabili (senza che debba
crearmeli da solo)
Che ne dite....?
Altrimenti se nessuno l'ha già fatto vorrei chiedere ai responsabili
di sitocomune se sono interessati alla pubblicazione di quelli che
eventualmente dovrò realizzare (solo font)
Saluti.
Emanuele.


title: Font Codici a Barre

author: MA

text:
Il 24 Ott 2002, 07:21, Emyr <
fan...@lavoro.com
> ha scritto:
> Purtroppo mi è stato chiesto di realizzare un programma per la stampa
> di etichette con relativi codici a barre ean 13 e code 128
> nelle peregrinazioni alla ricerca di font ed ocx (tutti rigorosamente
> a pagamento) mi è venuto in mente che forse qualcuno di voi aveva già
> provveduto alla realizzazione di font utilizzabili (senza che debba
> crearmeli da solo)
> Che ne dite....?
Ciao ti invio l'ocx.
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Font Codici a Barre

text:
Il 24 Ott 2002, 08:38,
kk...@kksrl.com
 (MA) ha scritto:
> Il 24 Ott 2002, 07:21, Emyr <
fan...@lavoro.com
> ha scritto:
> > Purtroppo mi è stato chiesto di realizzare un programma per la stampa
> > di etichette con relativi codici a barre ean 13 e code 128
> > nelle peregrinazioni alla ricerca di font ed ocx (tutti rigorosamente
> > a pagamento) mi è venuto in mente che forse qualcuno di voi aveva già
> > provveduto alla realizzazione di font utilizzabili (senza che debba
> > crearmeli da solo)
> > Che ne dite....?
>
> Ciao ti invio l'ocx.
> MAssimiliano
ciao Emanuele, mi dice che
fan...@lavoro.com
 non è valido.
Che faccio?



title: Font Codici a Barre

author: AMLiapunov

text:
MA wrote:
>>Ciao ti invio l'ocx.
>>MAssimiliano
Lo mandi anche a me?
Lo sto cercando.
Grazie


title: Font Codici a Barre

author: Claudio

text:
"MA" <
kk...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...
> Il 24 Ott 2002, 07:21, Emyr <
fan...@lavoro.com
> ha scritto:
> > Purtroppo mi è stato chiesto di realizzare un programma per la stampa
> > di etichette con relativi codici a barre ean 13 e code 128
>
> Ciao ti invio l'ocx.
> MAssimiliano
Come si chiama questo ocx? Sarei interessato anch'io, se è freeware.
Ciao. Claudio.


title: Font Codici a Barre

text:
>
>
>ciao Emanuele, mi dice che
fan...@lavoro.com
 non è valido.
>Che faccio?
>MAssimiliano
>
scusami il nuovo indirizzo è
fan...@tiscali.it
grazie....
Saluti.
Emanuele.


title: Font Codici a Barre

author: Marco

text:
"MA" <
kk...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...

> Ciao Emyr ho anche io il problema di stampare codici a barre da access, mi
puoi spedire anche a me l'ocx? Te ne sarei grato.
Ciao Marco



title: Due sottomaschere collegate

author: flash

text:
inanzitutto un saluto a tutti
mi trovo nella situazione di dover correlare i valori di tre tablelle
collegafra fra loro con un legame 1 a molti nella stessa maschera devo cioč
collegare fra di loro due sottomaschere in modo tale che attivando un
determinato record nella sottomaschera 1 mi compaiano i recor correlati
nella seconda.
mi servirebbe il codice da inserire su corrente nella maschera 1
un grazie fin d'ora


title: Due sottomaschere collegate

author: Roberto dal portatile

text:
"flash" <
start...@libero.it
> ha scritto nel messaggio
news:p4bn5.87202$dF5.1...@news.infostrada.it...
> inanzitutto un saluto a tutti
> mi trovo nella situazione di dover correlare i valori di tre tablelle
> collegafra fra loro con un legame 1 a molti nella stessa maschera devo
cioè
> collegare fra di loro due sottomaschere in modo tale che attivando un
> determinato record nella sottomaschera 1 mi compaiano i recor correlati
> nella seconda.
> mi servirebbe il codice da inserire su corrente nella maschera 1
> un grazie fin d'ora
>
>
Poiché la gestione delle sottomaschere è prevista a due livelli, se Tabella1
è in relazione uno-a-molti con Tabella2 e Tabella2 è in relazione
uno-a-molti con Tabella3, non ti serve alcun codice VBA: crea Maschera1 che
ha come origine record Tabella1 e che contiene in un controllo sottomaschera
Sottomaschera1 che ha come origine record Tabella2; a sua volta
Sottomaschera1 deve contenere un controllo sottomaschera che contiene
Sottomaschera2 che ha come origine record Tabella3.
Tutto avverrà automaticamente a condizione che setterai adeguatamente le
proprietà "Collega campi secondari" e Collega campi master" dei due
controlli sottomaschera.
Roberto


title: Due sottomaschere collegate

text:
> Poiché la gestione delle sottomaschere è prevista a due livelli, se
Tabella1
> è in relazione uno-a-molti con Tabella2 e Tabella2 è in relazione
> uno-a-molti con Tabella3, non ti serve alcun codice VBA: crea Maschera1
che
> ha come origine record Tabella1 e che contiene in un controllo
sottomaschera
> Sottomaschera1 che ha come origine record Tabella2; a sua volta
> Sottomaschera1 deve contenere un controllo sottomaschera che contiene
> Sottomaschera2 che ha come origine record Tabella3.
> Tutto avverrà automaticamente a condizione che setterai adeguatamente le
> proprietà "Collega campi secondari" e Collega campi master" dei due
> controlli sottomaschera.
>
> Roberto
ho fatto gia come da te indicatomi ma la cosa funziona solo fra la mashera1
e la sottomashera1 mentre nella sottomaschera2 ho dei problemi di
aggiornamento dei dati e di eliminazione dei record, succede che eliminando
un record non mi aggiorni la sottomashera2
saluti fabrizio


title: Due sottomaschere collegate

text:
"flash" <
start...@libero.it
> ha scritto nel messaggio
news:D_bn5.87473$dF5.1...@news.infostrada.it...

Nella relazione tra le tre tabelle:
1) hai applicato l'integrità referenziale?
2) hai abilitato l'opzione "Aggiorna campi correlati a catena" ?
3) hai abilitato l'opzione "Elimina record correlati a catena" ?
Roberto
Hai


title: Due sottomaschere collegate

text:
> Nella relazione tra le tre tabelle:
> 1) hai applicato l'integrità referenziale?
> 2) hai abilitato l'opzione "Aggiorna campi correlati a catena" ?
> 3) hai abilitato l'opzione "Elimina record correlati a catena" ?
>
> Roberto
> Hai
attivato tutto come sopra
per farlo funzionare ho dovuto inserire nella sottomaschera1 "su corrente"
il segunte codice
On Error GoTo linea
If IsNull(Me![CAT SC 2]) = True Then
'Chiave primaria sottomashera1
Exit Sub
Else
Forms![Prodotti CAT SC 1]![Prodotti CAT SC 3].Form.Requery
'sottomashera2
End If
linea:
ora la cosa funziona ma si inchiada se elimino l'ultimo record dalla
sottomaschera1
se elimino un'altro che non sia l'ultimo non si inchioda
grazie per l'aiuto
fabrizio


title: Due sottomaschere collegate

text:
"flash" <
start...@libero.it
> ha scritto nel messaggio
news:Bpdn5.87851$dF5.1...@news.infostrada.it...

Per caso alla chiave primaria di Tabella2 e/o Tabella3 hai dato un valore
predefinito ed hai dei campi calcolati in sottomaschera1 o sottomaschera2.
Che errore ti dà Access ?
Mi sono fatto un esempio e a me funziona tutto bene.
Roberto


title: impedire la stampa se non risponde alle richieste

text:
Ciao, ho questo problema, ma direi più che altro vorrei una finezza,
allora ho un pulsante di comando per report, nella maschera metto un
flag se voglio quel tipo di stampa o no,  ebbene vorrei che se il flag
non è attivato il report non mi si stampasse, e mi apparisse il
messaggio di impossibilità a stampare. invece il report mi si stampa
ugualmente ma privo di dati ovviamente perche la query riporta il
parametro del flag non attivo.Credo che sia una banalità ma è qualche
giorno che ci penso e non ne cavo un ragno dal buco. Per voi
sicuramente è semplicissimo


author: Carlo Costarella

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:705e413c-52de-46a2...@x41g2000hsb.googlegroups.com...

-------------------------
Tutto è semplice quando si conosce l'argomento!
Una strada: agisci dal report, su apertura potresti scrivere:
If Forms!NomeMaschera!MioFlag = True Then Cancel = True
supponendo che hai un controllo "casella di controllo" sulla maschera
"nomemaschera" che si chiama MioFlag e che sia impostata a True/Vero quando
si cerca di stampare il report.
Il report non si aprirà nemmeno con la forza bruta.
Per aggiungere un messaggio...
If Forms!NomeMaschera!MioFlag = True Then
Msgbox "Il report non può essere stampato per questo e per quest'altro..."
Cancel = True
End if
Ciao, Carlo


text:
On 21 Set, 20:48, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> <
uomo...@hotmail.it
> ha scritto nel messaggionews:705e413c-52de-46a2...@x41g2000hsb.googlegroups.com...

Intanto grazie per l'interessamento , ma non mi funziona, eppure ho
fatto come hai scritto tu:
Private Sub Report_Open(Cancel As Integer)
If Forms!NomeMaschera!MioFlag = True Then Cancel = True
End Sub
Tieni presente che il tutto è comandato da un pulsante di comando con
questo codice:
Private Sub Comando356_Click()
On Error GoTo Err_Comando356_Click
Dim stDocName As String
Dim rpt As Report
DoCmd.OpenReport "reportinvito", acViewPreview, , , acHidden
Set rpt = Reports![reportinvito]
With rpt.Printer
     .Copies = 2
End With
DoCmd.OpenReport "reportinvito", acViewNormal
DoCmd.Close acReport, "reportinvito", acSaveNo
Exit_Comando356_Click:
    Exit Sub
Err_Comando356_Click:
    MsgBox ("STAMPA ANNULLATA"), vbInformation, "ATTENZIONE!!"
    Resume Exit_Comando356_Click
End Sub
c'è qualche errore? come mai non funziona? Grazie per l'eventuale aiuto


text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:c8a7bdf1-98ce-4373...@j22g2000hsf.googlegroups.com...







DoCmd.OpenReport "reportinvito", acViewNormal

Exit_Comando356_Click:
    Exit Sub

    Resume Exit_Comando356_Click
End Sub

------------------------------------------------
E' del tutto evidente che quando scrivo:
If Forms!NomeMaschera!MioFlag = True Then Cancel = True
intendo che devi opportunamente cambiare il nome della maschera e del
controllo.
L'ipotesi, come scrivevo era...
supponendo che hai un controllo "casella di controllo" sulla maschera
"nomemaschera" che si chiama MioFlag e che sia impostata a True/Vero quando
si cerca di stampare il report.
Se tutto ciò è stato correttamente fatto, magari cambiando opportunamente i
nomi, puoi stare traquillo che funziona.
Le mie domande:
Come si chiama la maschera?
Come si chiama, se lo hai, il controllo "casella di controllo" (quel
quadratino che spuntato significa Sì e bianco significa No)?
Hai messo il codice su apertura del report?
Ciao, Carlo


text:
On 23 Set, 15:01, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> <
uomo...@hotmail.it
> ha scritto nel messaggionews:c8a7bdf1-98ce-4373...@j22g2000hsf.googlegroups.com...

> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
La maschera si chiama Maschera Inserimento
Il campo del flag si chiama lettera
 Private Sub Report_Open(Cancel As Integer)
> If Forms![Maschera Inserimento]![lettera] = True Then Cancel = True
> End Sub
questo è quello che ho scritto.....
dimenticavo il report è comandato da una query dopo nel campo lettera
nei criteri c'è sì