title: Msgbox salva dati

author: Davide

text:
Buongiorno a tutti.
Seguendo i suggerimenti del ng. ho inserito il codice per chiedere tramite
una msg box il salvataggio dei dati in una maschera.
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "I dati sono cambiati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub
Naturalmente funziona ma...
Quando clicco sul comando (si-no-annulla)della msg box la maschera si
chiude.
E' possibile farle eseguire comunque le operazioni si / no / annulla
tenendola aperta (per poi chiudere la maschera con il comando chiudi)?
Grazie per eventuali suggerimenti e buon ferragosto.
D.


title: Msgbox salva dati

author: Sergio MAZZA

text:
"Davide" <
nom...@iosl.it
> ha scritto nel messaggio news:xmYCg.131$K8...@news.edisontel.com...

Non credo essendo una funzionalità "interna" alla MsgBox; ma nulla vieta che ti costruisca tu una form simile alla MsgBox con le
stesse funzionalità...
Ciao.
--
Sergio MAZZA


title: critery query tramite più campi sì/no

author: boomerang

text:
Buongiono a tutti, mi sono di nuovo arenato sul mio db e chiedo
gentilmente il vostro aiuto!
ho una query di selezione dove vado a filtrare i record tramite 5
controlli del tipo sì/no.
in fase di definizione criteri questi controlli sono impostati tramite
dei pulsanti su una maschera che permettono di selezionare
individualmente i 5 campi. la struttura dei campi si/no sulla query è
la seguente:
             opz1    opz2    opz3   opz4   opz5
criteri      sì
oppure               sì
oppure                            sì
ovviamente al posto dei s' ci sono i valori dei pulsanti della
maschera. poichè la ricerca dovrebbe avvenire su uno o più opzioni ed
un record potrebbe avere più opzioni, se per esempio voglio
visualizzare i record che hannole opz 3-4-5  così come è strutturata
la query il primo campo (opz1) in questo caso dovrebbe avere valore
(no) ma in questo caso la query mi restituisce tutti i record. come
posso fare? c'è un modo per esempio di creare la query con i campi opz
ordinati secondo l'ordine in cui vengono premuti i pulsanti es:
            opz3   opz5  opz1
criteri
e che possa cambiare ogni volta che si riapre la maschera con la
scelta dei pulsanti?   in quale modo secondo voi dovrei procedere?
devo orientarmi su una macro? potete darmi qualche suggerimento?
vi ringrazio in anticipo per l'aiuto che vorrete darmi
grazie e saluti a tutto il NG
Gigi


title: critery query tramite più campi sì/no

author: almorel

text:

Ciao Gigi,
non so se ho capito bene il problema ma visto che
vero=-1 e falso=0, se esegui la query  opz 3-4-5 mettendoci tu
a mano i paramentri opz 0,0,-1,-1,-1 funziona ?
Se sì devi solo migliore l'input dei parametri.
Ciao
Alberto


title: critery query tramite più campi sì/no

text:
> Ciao Gigi,
> non so se ho capito bene il problema ma visto che
> vero=-1 e falso=0, se esegui la query  opz 3-4-5 mettendoci tu
> a mano i paramentri opz 0,0,-1,-1,-1 funziona ?
> Se sì devi solo migliore l'input dei parametri.
> Ciao
> Alberto
Ciao Alberto e grazie per la tua risposta......
il problema è un pò più complicato... cerco di spiegarmi meglio:
a parte che definisco la query tramite degli interruttori su una
maschera non associata... ma il problema è che se anche opero
direttamente sulla query e metto a mano i parametri se faccio come mi
hai suggerito e quindi metto opz 0,0,-1,-1,-1 ho come risultato la
visualizzazione dei record che hanno vere tutte e tre le opz con -1;
invece facendo in questo modo p es :
                   opz1     opz2     opz3     opz4     opz5
criteri           0
oppure                       -1
oppure                                      0
  .......                                                      -1
 ........
-1
in questo caso potrei estrarre tutti gli id che hanno o l'opz2 ol'opz4
o l'opz5  vera.
poichè le opzioni da mettere vere vengono scelte dall'utente questo
metodo finziona sino a quando non si seleziona la prima condizione
(opz1)=0. in questo caso (proprio quello dell'esempio) , infatti il
primo criterio fa sì che mi si visualizzino tutti i record.
sto pensando di fare una istruzione select case sulla maschera,
attribuire i controlli a 5 variabili in modo da avere una griglia
opzioni su tutta una riga  es: 0, -1, 0, -1, -1 e passarla come WHERE
alla query...... devo vedere se funziona solo che in questo caso
dovrei impostare lo 0 come null ed usare un or (perche un id può avere
sia opz1 che opz2 vera e non mi verrebbe visualizzato) non lo so sono
un pò in alto mare.
Se avete altri aiuti li accetto volentieri.
ciao   Gigi


title: Aiuto su PrintSection e Movelayout

author: Enzo Laperchia

text:
Un saluto a tutto il NG,
stamattina ho scoperto le proprieta' MoveLayout e PrintSection e pensavo
fossero la soluzione ad un problema che mi sto trascinando dietro da 2
settimane a questa parte.
Ho costruito un report e nel corpo del report ho inserito due caselle di
testo: Testo0 e Testo2
Poi nell'evento Formattazione ho inserito la seguente routine:
Dim rstAgenti As Recordset
Dim rstBookingAgenti As Recordset
Dim stAgente As String
Set rstAgenti = CurrentDb.OpenRecordset("SELECT Venditori.nome,
Venditori.sigla_vend, Venditori.Agente _
FROM venditori
WHERE (((Venditori.Agente)=-1));")
rstAgenti.MoveFirst
If rstAgenti.EOF Then Exit Sub
Do While Not rstAgenti.EOF
Set rstBookingAgenti = CurrentDb.OpenRecordset("SELECT
Sum([qtaordinata]*[prezzovendita]) AS booking, Venditori.sigla_vend _
FROM Venditori
INNER JOIN ([Dati Ordine Cliente]
INNER JOIN Item ON [Dati Ordine Cliente].nrordcli = Item.nrordcli)
ON Venditori.sigla_vend = [Dati Ordine Cliente].sigla_vend
WHERE ((([Dati Ordine Cliente].dataordine) Between #01/01/2000# And
#31/01/2000#)
AND Venditori.sigla_vend = '" & rstAgenti.Fields(1) & "')
GROUP BY Venditori.nome, Venditori.sigla_vend;")
    rstBookingAgenti.MoveFirst
    Me!Testo2 = rstAgenti.Fields(0)
    If rstBookingAgenti.EOF Then
        Me!Testo0 = 0
        Else
        Me!Testo0 = rstBookingAgenti.Fields(0)
    End If
    Me.PrintSection = True
    Me.MoveLayout = True
    'Me.NextRecord = True
    rstBookingAgenti.Close
    If Not rstAgenti.EOF Then rstAgenti.MoveNext
Loop
rstAgenti.Close
In teoria l'istruzione Me.MoveLayout e Me.PrintSection, ogni volta che viene
incontrata, dovrebbero rispettivamente spostarsi alla successiva posizione
di stampa nella pagina, e stampare la sezione.
Ma perche' allora mi stampa sempre e solo l'ultimo recordset (e sono sicuro
che l'evento formattazione si verifica n volte)?
Ho interpretato male l'help in linea oppure ho sbagliato qualcosa nella
costruzione del report o della routine evento?
Grazie mille per la collaborazione
--
Enzo Laperchia
UR SpA


title: aggiornamento maschera

text:
salve a tutto il ng
il mio problema e' questo:
ho una sottomascheraA (in sola lettura) che mi visualizza alcuni campi della
tabella 1.
per aggiornare o eliminare dei record apro una mascheraB  che mi visualizza
tutti i record di tabella1.
quando elimino dei record dalla maschera B la maschera A visualizza
#eliminato.
che codice posso usare, alla chiusura di B, in modo di aggiornare A?


title: aggiornamento maschera

author: cidi

text:
"Daniel100" <
daniel1...@iol.it
> ha scritto nel messaggio
news:XpCyb.31273$AX1.1...@news1.tin.it...

Ciao Daniel100
Devi avere come origine dati della sottomaschera una query e su chiusura
della maschera B metti:
 [Forms]![TuaNomemMaschera]![TuoNomeSottomaschera].Requery
ciao Daniele


title: aggiornamento maschera

text: grazie ciao


title: Aggiornare Campo con nuovi Valori

text:
Scusate re riapro il post ma è davvero importante.
Allora sempre lo stesso problema
ho un tabllea con seguenti campi
IDArticolo contatore
CodiceArticolo (KIAVE)
Pezzi
Cartoni
Colli
Devo far in modo che quando metto un Codice articolo per esempio XXXX
siregistri con quel valore.
se per esempio ridigito lo stesso numero di codice XXXX mi di inserire un
nuovo valore ma che poi vada a sommarsi a quello di prima.
Esempio
       Data                codice Articolo   Pezzi  Cartoni Colli
 21/10/2005            XXXXX               36        1        0 si dovrebbe
aggiornare questo valore in automatico a 38 pezzi 2 cartoni
22/10/2005              XXXXX               2          1        0
                     (qui mi dovrebbe richiamare l'articolo che ho gia in
magazzino)
Ragazzi solo questo ed ho finito.


title: Aggiornare Campo con nuovi Valori

text:
"Fabrizio_LoL" <
f_j...@libero.it
> ha scritto nel messaggio news:OS86f.24752$Pe2.4...@twister2.libero.it...

Lo fai con una query di aggiornamento...
Ciao.
--
Sergio MAZZA


title: visibile

author: Pivo

text:
alla chiusura di una maschera A vorrei che venisse resa visibile la maschera
B se questa è al momento aperta con visible=false, se è chiusa si deve
aprire la maschera C
come si può fare?
grazie


title: visibile

author: Paolo A.

text:
Pivo wrote:

> grazie
prova a mettere questo codice nell'evento chiusura della forms "A".
Cerca se esiste la form "B" nell' insieme Forms (maschere aperte), se la trova
la visualizza, altrimenti apre la "C"
dim frm as form
dim frm_found as boolean
frm_found = false
for each frm in forms
    if
frm.name
 = "B"
        frm_Found = true
        exit for
    endif
next frm
if frm_found then
    forms("B").visible = true
else
    docmd.openform "C"
end if
Saluti
Paolo


title: visibile

text:
Il Mon, 9 Oct 2000 17:37:33 +0200, "Pivo" <
hge...@tiscalinet.it
>
scrisse:
>(.....)
>alla chiusura di una maschera A vorrei che venisse resa visibile la maschera
>B se questa č al momento aperta con visible=false, se č chiusa si deve
>aprire la maschera C
>(.....)
if syscmd(AcSysCmdGetObjectState, acForm, "B") = acObjStateOpen Then
   forms![B].visible = true
else
   docmd.openform "C"
endif
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: visibile

text: grazie a tutti, ho risolto!


title: visibile

author: Lorenzo Coronati

text:
Scrisse "Pivo" <
hge...@tiscalinet.it
>:
>alla chiusura di una maschera A vorrei che venisse resa visibile la maschera
>B se questa è al momento aperta con visible=false, se è chiusa si deve
>aprire la maschera C
sub form_close
on error goto ci
forms!A.visible=true
exit sub
ci:
docmd.openform C
end sub
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono
convinti che noi poveri principianti (nel senso
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--
<<se il lavoro non me lo dai tu, me lo da
un'altro stronzo che non capisce una sega
di access e di informatica in generale>>
(Ivan dal lavoro, 30/09/2000)
--


title: Proteggere il mio programma.

author: Giuseppe Baudo

text:
Come posso fare a proterggere un mio programma fatto in access ed evitare
che venga usato su di un qualsiasi altro pc che non sia quello su cui IO
STESSO l'ho copiato.
Attualmente metto in c:\windows\system un file chiamato mioprogramma.KEY che
contiene una chiave di 25 cifre.
L'assenza sdel file o la diversità di contenuto del medesimo non mi fa
aprire la maschera iniziale.
Ma quello che io vorrei sarebbe una chiave unica che solo quel pc ha e che
non può essere riprodotta o clonata.
Si può fare?
Grazie mille.


title: Proteggere il mio programma.

author: TheMax

text:
"Giuseppe Baudo" <
baudo.g...@email.it
> ha scritto nel messaggio
news:7DSRc.93288$OR2.4...@news3.tin.it...

Certo, vai sul Sitocomune (
www.sitocomune.com
)
Sezione "General" voce "Come impedire la copia degli applicativi usando il
numero seriale dell' hard disk"
Quell'esempio ti restituisce il numero seriale dell'HD, poi vedi tu come
sbizzarrirti nel generare chiavi varie.
> Grazie mille.
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Proteggere il mio programma.

text:
> Quell'esempio ti restituisce il numero seriale dell'HD, poi vedi tu come
> sbizzarrirti nel generare chiavi varie.
Va bene se nell'evento "su caricamento" della maschera iniziale (o di avvio)
ci metto che se "getserialnum"<> da <il valore del seriale dell HD> then
docmd.quit?
un'altra cosa:
ho notato che se tengo premuto il tasto shift mentre doppioclikko sull'icona
del mio programma per aprirlo non mi si apre la maschera iniziale ma solo la
struttura del programma dal quale si potrebbe eventualmente aprire le varie
maschere singolarmente senza passare da quella principale.
come si può ovviare a questo?


title: Proteggere il mio programma.

author: MA

text:
                    Il 12 Ago 2004, 08:52, "Giuseppe Baudo" <
baudo.g...@email.it
> ha
scritto:

          Su
www.sitocomune.com
 c'è quello che cerchi.
MAssimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Positivo/Negativo

author: Luc Lucc

text:
In una maschera ho una casella dove Origine controllo=
IIf(([SottoFin].[Form]![Totale]=0);"POSITIVO";"NEGATIVO")
Per il POSITIVO tutto OK ma nel caso di NEGATIVO nella mia casella viene
visualizzato prima POSITIVO e immediatamente dopo NEGATIVO.
Come mai?
Grazie
                   Luciano
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: scarico delle news di access in outlook express

author: Toni Avenoso

text:
Da qualche giorno non riesco piů a leggere le news di
it.comp.appl.access tramite outlook express dove tenevo in evidenza
quelle che mi interessavano. Come mai? Erano sotto news di
ti.it
. Ora
collegandomi alle news di
tin.it
 non me ne compaiono pochissime e quella
di access non c'č piů. Come devo fare?
Toni
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Aggiungere nuovi records dopo aver applicato un filtro

author: Fabio

text:
Ciao a Tutti/e
Il mio problema è questo: ho nella mia maschera principale, una casella
combinata che mi filtra i records che nella maschera principale immetto.
A fronte dell’evento su aggiornamento della combo, lancio una macro applica
filtro .
Il risultato che ottengo non è però quello che desidererei perche ottengo
solo una visualizzazione dei records in base al filtro scelto nella combo,
ma non posso aggiungerne di nuovi, ne modificare quelli già inseriti.
Ottengo quindi solo una visualizzazione dei records della tabella
principale……..ma come posso anche aggiungerne di nuovi e modificarli dopo
aver applicato il filtro?
So che è possibile xchè ho visto un esempio concreto!
--------------------------------
Inviato via
http://usenet.libero.it


author: Sib

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
> Ciao a Tutti/e
> Il mio problema è questo: ho nella mia maschera principale, una casella
> combinata che mi filtra i records che nella maschera principale immetto.
> A fronte dell'evento su aggiornamento della combo, lancio una macro
applica
> filtro .
> Il risultato che ottengo non è però quello che desidererei perche ottengo
> solo una visualizzazione dei records in base al filtro scelto nella combo,
> ma non posso aggiungerne di nuovi, ne modificare quelli già inseriti.
> Ottengo quindi solo una visualizzazione dei records della tabella
> principale....ma come posso anche aggiungerne di nuovi e modificarli dopo
> aver applicato il filtro?
> So che è possibile xchè ho visto un esempio concreto!
Non mi risulta che possa succedere quello che dici.
Come lo applichi questo filtro?
Riesci a inserire i record prima di applicare il filtro (secondo me no)
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
Riesci a inserire i record prima di applicare il filtro? (secondo me no)


text:
Il 14 Lug 2003, 10:57, "Sib" <si...@SPAMiol.it> ha scritto:
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
>
> Riesci a inserire i record prima di applicare il filtro? (secondo me no)
No infatti non riesco!
Ma allora come è possibile sta cosa.
Io ho una maschera dei fornitori e relativi dettagli.Adesso i fornitori sono
pochi, ma diventeranno centinaia.Se non usassi un filtro dovrei essere
costretto a far scorrere centinaia di record prima di trovare quello che
m'interessa? Cosa potrei fare di diverso per andare subito a quei record che
mi interessano ed editarli o aggiungerne di nuovi?



text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
> Il 14 Lug 2003, 10:57, "Sib" <si...@SPAMiol.it> ha scritto:
> > "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> >
> > Riesci a inserire i record prima di applicare il filtro? (secondo me no)
>
> No infatti non riesco!
> Ma allora come è possibile sta cosa.
La query sottostante la maschera non e' aggiornabile.
Probabilmente contiene delle funzioni di raggruppamento o alter opzioni che
non consentono una identificazione certa e univoca del record da aggiornare,
quindi devi modificare la query in modo da renderla aggiornabile.
Sib


title: librerie

author: Alessandro

text:
Salve,
ho creato con ode 2000 un pacchetto includendo il runtime.
Quando vado ad installare il programma, su un pc mi dice che non riesce a
trovare file sotto una cartella 1033 che in quel percorso non c'è, mentre su
un altro pc trova un pò meno problemi ma chiedo lo stesso qualche file.
Si tratta di librerie?
Come posso includerle nel programma in modo che abbia tutto quello che gli
serve per funzionare correttamente, a prescindere dalle versioni dei sistemi
operativi e dai relativi aggiornamenti?
Il programma si può testare con il runtime su un pc che abbia già access
2000?
Grazie
Alessandro


title: Mandare email

author: Jack

text:
Ho una tabella Soci(nome,cognome,email)
Devo creare un form per scegliere a chi mandare un email.
E qui sorgono 2 problemi:
1) ho provato a far selezionare le persone a chim nadare l'email tramite
un checkbox, ma quando seleziono una persona si selezionano
automaticamente tutte le altre. Quindi ho optato per una casella di
riepilogo a selezione multipla. (se qualcuno sa come fare usando i
checkbox...)
2) come faccio a fargli aprire il programma di email, aprire
automaticamente la finestra per i nuovi messaggi e riempire il campo To:
con le email delle persone selezionate in precedenza?
Grazie Mille Jack


title: Mandare email

author: Sergio MAZZA

text:
"Jack" <
pi...@disney.com
> ha scritto nel messaggio
news:1g7x1q6.2rghq41sxuuzgN%pi...@disney.com...

Sul sito comune (
www.sitocomune.com
) e nei messaggi precedenti è già stato
trattato questo problema...
Ciao.
--
Sergio MAZZA


title: cambiare posizione ai caratteri di un campo

author: Operatore

text:
Ho questa situazione; nel campo di una tabella ci sono n articoli del tipo:
X1234567890
Vorrei creare un'altra tabella in cui i caratteri di quel campo si scambiano
di posizione e gli articoli diventano:
X4569012378
Come risolvo?
Grazie e saluti al ng.


author: Nicolas

text:
"Operatore" <
vito....@tin.it
> ha scritto nel messaggio
news:49140f97$0$1083$4faf...@reader2.news.tin.it...

mid left right? vedi help


text:
"Nicolas"
>> Ho questa situazione; nel campo di una tabella ci sono n articoli del
>> tipo:
>> X1234567890
>> Vorrei creare un'altra tabella in cui i caratteri di quel campo si
>> scambiano di posizione e gli articoli diventano:
>> X4569012378
>> Come risolvo?
>> Grazie e saluti al ng.
> mid left right? vedi help
Be si, MID direi... fin li ci sono!
Pensavo di creare un array tipo:
For n=1 to 11
MyArray(n)=mid(([articolo]);n;1)
next n
 e ricostruire l''articolo richiesto con qualcosa tipo:
articolonew=MyArray(1)&MyArray(5)&MyArray(6)&MyArray(7)&MyArray(10)&MyArray(11)&MyArray(2)&MyArray(3)&MyArray(4)&MyArray(8)&MyArray(9)
Ma come imposto il resto?
Cioč: come faccio a leggere tutti i dati della tabella e creare la nuova
tabella con i nuovi articoli?


author: Carlo Costarella

text:
"Operatore" <
vito....@tin.it
> ha scritto nel messaggio
news:49140f97$0$1083$4faf...@reader2.news.tin.it...

Prima di tutto bisogna stabilire una regola, un criterio:
come deve avvenire il cambio di posizione dei singoli caratteri?
Questa regola ha un solo criterio?
Se sì, esplicita il criterio. P.e.
Primo carattere invariato, ultimo carattere diventa il secondo, il penultimo
il terzo, il secondo l'ultimo...e così via.
Sulla base del o dei criteri si passa alla costruzione dell'algoritmo.
Fatto questo sarà quasi un gioco da ragazzi accodare il nuovo valore
risultante ad una seconda tabella esistente o da creare.
Ciao, Carlo


text:
"Carlo Costarella"
[cut]
> Prima di tutto bisogna stabilire una regola, un criterio:
> come deve avvenire il cambio di posizione dei singoli caratteri?
> Questa regola ha un solo criterio?
> Se sì, esplicita il criterio. P.e.
> Primo carattere invariato, ultimo carattere diventa il secondo, il
> penultimo il terzo, il secondo l'ultimo...e così via.
> Sulla base del o dei criteri si passa alla costruzione dell'algoritmo.
> Fatto questo sarà quasi un gioco da ragazzi accodare il nuovo valore
> risultante ad una seconda tabella esistente o da creare.
Il criterio l'ho esplicitato nel post precedente, desumibile da:
articolonew=MyArray(1)&MyArray(5)&MyArray(6)&MyArray(7)&MyArray(10)&MyArray(11)&MyArray(2)&MyArray(3)&MyArray(4)&MyArray(8)&MyArray(9)


text:
"Operatore" <
vito....@tin.it
> ha scritto nel messaggio
news:49142fc9$0$18154$4faf...@reader3.news.tin.it...

Dato per buono questo criterio io farei così:
creao una tabella TblCriterio con al suo interno un solo campo "Criterio" di
tipo numerico, chiave primaria; gli scrivo dentro la mia sequenza (un numero
per ogni record)
1
5
6
7
10
...ecc
Poi una semplice funzione del tipo (uso DAO):
Public Function DimmiNuovaStringa(XX As String) As String
'a XX devi passare la stringa originale
'X1234567890
Dim rcs As Recordset, i As Integer, NuovaStringa As String
Set rcs = CurrentDb.OpenRecordset("TblCriterio")
rcs.MoveLast
rcs.MoveFirst
For i = 1 To rcs.RecordCount
NuovaStringa = NuovaStringa & Mid(XX, rcs!criterio, 1)
rcs.MoveNext
Next i
rcs.Close
Set rcs = Nothing
DimmiNuovaStringa = NuovaStringa
End Function
Questo è solo un esempio e ci possono essere altre strade, ma a me sembra
molto veloce, modificabile a piacere e semplice da realizzare.
Ciao, Carlo


text:
"Carlo Costarella"
>> [cut]

Grande Carlo! :)
L'ho provato in una maschera e tutto funziona perfettamente. Ho solo
aggiunto il riferimento ad ADO in:
Dim rcs As ADO.Recordset, i As Integer, NuovaStringa As String
Ora dovrei processare l'intera tabella con i vecchi valori e crearne una con
quelli nuovi... mi metteresti sulla strada?


text:
"Operatore"
> Ho solo aggiunto il riferimento ad ADO in:
Ovviamente intendevo DAO...
> Dim rcs As DAO.Recordset, i As Integer, NuovaStringa As String


text:
"Operatore" <
vito....@tin.it
> ha scritto nel messaggio
news:491802ae$0$40302$4faf...@reader5.news.tin.it...

Ok.
Il tutto è perfettamente gestibile con due recordset:
il primo è la tabella(vecchia), la seconda la nuova.
La funzione può essere tranquillamente trasformata in una sub perchè non
restituisce nulla;
anche la variabile XX può essere eliminata:
Public Sub DimmiNuovaStringa()
Dim rcs As Recordset, i As Integer, NuovaStringa As String
Dim RcsVecchia As Recordset, RcsNuova As Recordset
Dim ii As Integer
Set RcsVecchia = CurrentDb.OpenRecordset("Tbl1")
Set RcsNuova = CurrentDb.OpenRecordset("Tbl2")
RcsVecchia.MoveLast
RcsVecchia.MoveFirst
Set rcs = CurrentDb.OpenRecordset("TblCriterio")
rcs.MoveLast
rcs.MoveFirst
For ii = 1 To RcsVecchia.RecordCount
With RcsNuova
.AddNew
For i = 1 To rcs.RecordCount
NuovaStringa = NuovaStringa & Mid(RcsVecchia!CampoDaLeggere, rcs!criterio,
1)
rcs.MoveNext
Next i
!CampoDaAggiornare = NuovaStringa
.Update
End With
RcsVecchia.MoveNext
NuovaStringa = ""
rcs.MoveFirst
Next ii
RcsVecchia.Close
Set RcsVecchia = Nothing
RcsNuova.Close
Set RcsNuova = Nothing
rcs.Close
Set rcs = Nothing
End Sub
Ciao, Carlo


title: Stampare da programma la pagina n di un report

author: BC

text:
(A2003) Ho la necessitï¿œ di stampare la pagina  di un report che indico
in una txtbox di una maschera...
  Ho cercato nella rete ma senza successo...

Grazie dell'aiuto che mi potrete dare

BC?


author: Pablitomf

text:
BC <
cesare...@gmail.com
> ha scritto:

mmmmm dovresti intercettare l'oggetto Print...
ma non fai prima a fare cosi'?

DoCmd.SelectObject acReport, "TuoReport", True
DoCmd.RunCommand acCmdPrint

cosi' si apre la finestra di dialogo, e li' setti pagine e n. copie?

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.


text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:

> BC <
cesare...@gmail.com
> ha scritto:
>
> > (A2003) Ho la necessitï¿œ di stampare la pagina  di un report che indico
> > in una txtbox di una maschera...
> >   Ho cercato nella rete ma senza successo...
> >
> > Grazie dell'aiuto che mi potrete dare
>
> mmmmm dovresti intercettare l'oggetto Print...

spe' spe' ho detto una ****ata! :D

usa l'oggetto PrintOut

dalla guida:
Il metodo PrintOut esegue l'azione Stampa in Visual Basic.

espressione.PrintOut(IntervalloStampa, DaPagina, APagina, Qualitï¿œStampa,
Copie, FascicolaCopie)
espressione      Obbligatorio. Espressione che restituisce uno degli
oggetti indicati nell'elenco Si applica a.

IntervalloStampa     Costante AcPrintRange facoltativa.

AcPrintRange puï¿œ essere rappresentata da una delle costanti AcPrintRange
riportate di seguito.
acPages
acPrintAll impostazione predefinita
acSelection
Se si omette questo argomento, viene utilizzata l'impostazione predefinita
(acPrintAll).

DaPagina     Elemento Variant facoltativo. Espressione numerica che
rappresenta un numero di pagina valido nella maschera o nel foglio dati
corrente. Questo argomento ï¿œ obbligatorio se si specifica acPages
nell'argomento intervallostampa   .

APagina     Elemento Variant facoltativo. Espressione numerica che
rappresenta un numero di pagina valido nella maschera o nel foglio dati
corrente. Questo argomento ï¿œ obbligatorio se si specifica acPages
nell'argomento intervallostampa   .

Qualitï¿œStampa     Costante AcPrintQuality facoltativa.

AcPrintQuality puï¿œ essere rappresentata da una delle costanti
AcPrintQuality riportate di seguito.
acDraft
acHigh impostazione predefinita
acLow
acMedium
Se si omette questo argomento, viene utilizzata l'impostazione predefinita
(acHigh).

Copie      Elemento Variant facoltativo. Espressione numerica. Se si
omette questo argomento, viene utilizzata l'impostazione predefinita (1).

FascicolaCopie     Elemento Variant facoltativo. Utilizzare True (ï¿œ1) per
fascicolare le copie e False (0) per stampare senza fascicolazione. Se si
omette questo argomento, viene utilizzata l'impostazione predefinita,
ovvero True.

Osservazioni
Per ulteriori informazioni sul funzionamento dell'azione e dei relativi
argomenti, vedere l'argomento della Guida in linea relativo all'azione.

ï¿œ possibile omettere un argomento facoltativo all'interno della sintassi,
ma ï¿œ necessario includere la virgola dell'argomento. Se si omettono uno o
piï¿œ argomenti finali, non utilizzare la virgola dopo l'ultimo argomento
specificato.

Esempio
Nell'esempio riportato di seguito viene indicato come stampare due copie
fascicolate delle prime quattro pagine della maschera o del foglio dati
attivo.

DoCmd.PrintOut acPages, 1, 4, , 2



text:
> > mmmmm dovresti intercettare l'oggetto Print...
>
> spe' spe' ho detto una ****ata! :D

> DoCmd.PrintOut acPages, 1, 4, , 2

tie', leggiti questo
http://it.comp.appl.access.narkive.com/XXu3yzHP/stampa-n-copie-di-un-report




text:

...perfetto!

grazie! e' tornato il sole  (anche nel senso che qui questa mattina
pioveva e ora si puï¿œ andare a mare...)

grazie ancora

BC


title: problema import in access file spool as400

author: Gianluca De Sciscio

text:
Ho il seguente problema:
ho dirottato la stampa as400 degli ordini su un PC dotato di client access;
al bisogno ho creato un opportuno file pdf (derivato da esc_p eliminando
tutti i caratteri di controllo).
Il file di testo così ottenuto non viene importato correttamente da access:
alcuni record che in notepad risultano distinti in access vengono importati
come unico record (viene ignorato il carriage return che risulta visibile
nel campo della tabella access).
Qualcuno può spiegarmi il motivo?
p.s.: lo stesso file importato in una tabella foxpro non dà questo problema.


title: non aggiornare!!

author: danieleni

text:
Ciao, volevo sapere se esiste un'operazione che evita di aggiornare il
record corrent alla pressione di un tasto
Me.undo non funge e cancel=true non è possibile impostarlo su di un
pulsante
C'è qualche altra cosa?
Vorrei evitare di aprire la tabella, andare sull'ultimo record ed
eliminarlo, per risparmiare risorse!
Grazie


title: non aggiornare!!

author: Roberto da casa

text:
"danieleni" <
a...@a.it
> ha scritto nel messaggio
news:3c9b233f...@news.tiscalinet.it...

Prova con
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
con A97 funziona.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: non aggiornare!!

text:


Grazie, ma ho intenzione di non usare la barra degli strumenti
predefinita.
A tal proposito vorrei chiederti: Ma se io inserisco una barra
personalizzata, questa riga che mi hai scritto, funziona ugualmente o
no?
p.s.2: se hai tempo vorrei da te una risposta sul mio post con
oggetto:" defaultvalue di casella combinata"
Grazie


title: non aggiornare!!

text:
"danieleni" <
a...@a.it
> ha scritto nel messaggio
news:3c9b5e40...@news.tiscalinet.it...
> On Fri, 22 Mar 2002 16:36:18 +0100, "Roberto da casa"
> <
r.ma...@libero.it
> wrote:
>
> >
> >"danieleni" <
a...@a.it
> ha scritto nel messaggio
> >news:3c9b233f...@news.tiscalinet.it...
> >> Ciao, volevo sapere se esiste un'operazione che evita di aggiornare il
> >> record corrent alla pressione di un tasto
> >> Me.undo non funge e cancel=true non è possibile impostarlo su di un
> >> pulsante
> >> C'è qualche altra cosa?
> >> Vorrei evitare di aprire la tabella, andare sull'ultimo record ed
> >> eliminarlo, per risparmiare risorse!
> >> Grazie
> >
> >Prova con
> >
> >DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
> >
> >con A97 funziona.
> >
> >--
> >Roberto
> >
> Grazie, ma ho intenzione di non usare la barra degli strumenti
> predefinita.
Ed allora prova con :
DoCmd.RunCommand acCmdUndo
> A tal proposito vorrei chiederti: Ma se io inserisco una barra
> personalizzata, questa riga che mi hai scritto, funziona ugualmente o
> no?
Non ho mai provato; nulla vieta però che ci provi tu a vedere se funziona.
> p.s.2: se hai tempo vorrei da te una risposta sul mio post con
> oggetto:" defaultvalue di casella combinata"
Già fatto.
> Grazie



title: campi calcolati con sintassi SQL Server

author: pfmarro

text:
salve

Abs(Int([etich_mancante]+[etich_rotta]+[etich_nolettura])) AS ccNAltre,
[ccNAltre]+[nscarico] AS nPACCHISCaricati,
[nPACCHISCaricati]*[pmedio] AS TotPEso

come tradurre
ABS
INT
e sommare campi ?

Grazie


title: campi calcolati con sintassi SQL Server

author: BFS

text:

abs resta uguale

int diventa convert(int,tuovalore)

ciao


title: campi calcolati con sintassi SQL Server

text:
Grazie

tieni conto che i campi sono di tipo byte
>
> > Abs(Int([etich_mancante]+[etich_rotta]+[etich_nolettura])) AS ccNAltre,
>
>
 int diventa convert(int,tuovalore)
dove posso trovare un prospetto con le corrispondenze?

Grazie


title: campi calcolati con sintassi SQL Server

text:

non hai il raffronto ma hai la lista completa
http://msdn.microsoft.com/en-us/library/aa260642%28SQL.80%29.aspx

per il resto google

ciao


title: problemi con caselle combinate, Date e € .. dopo Update!

text:
Ciao a tutti,
Da circa un mese, dopo aver effettuato gli aggiornamenti di Microsoft
Office, mi è capitato che gli elenchi a discesa delle caselle
combinate inserite nelle maschere non visualizzavano più i contenuti
delle tabelle, nonstante i dati in esse fossero presenti. Lo stesso
problema si presenta su macchine diverse e con programmi differenti.
Inoltre, a questo problema, altri se ne sono verificati tipo il
mancato riconoscimento del simbolo Euro, (campo formattato valuta
euro, nella maschera non viene visualizzato il simbolo dell'euro) ed
infine la formattazione delle Date... ignora le specifiche dettate.
Ad oggi ho potuto risolvere in parte i problemi in due modi:
1) ricreando nuove maschere e quindi reinserendo i campi (non sempre
funzionante)!!!
2) utilizzando PC senza Aggiornamento!
Grazie per l'aiuto.
salvo


author: Karl Donaubauer

text:
salvo....@gmail.com
 wrote:
> Da circa un mese, dopo aver effettuato gli aggiornamenti di Microsoft
> Office, mi è capitato che gli elenchi a discesa delle caselle
> combinate inserite nelle maschere non visualizzavano più i contenuti
> delle tabelle, nonstante i dati in esse fossero presenti. Lo stesso
> problema si presenta su macchine diverse e con programmi differenti.
> ...
Si la tua versione segreta di Access è A03 con SP3
devi installallare il hotfix per queso Service Pack.
Il link trovi qui:
www.donkarl.com/it?FAQ9.1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Upload tramite access

author: Samuele

text:
ciao a tutti,
vorrei che il mio applicativo in access xp inviasse dei file sul mio sito.
Ho trovato un applicativo che lo fa usando l'ocx msinet.
Vorrei sapere se lo ritenete un componente valido e affidabile e se è
possibile tramite msinet creare cartelle e, in generale, compiere operazioni
sui file remoti del mio server.
grazie per le risposte.
Samuele


title: Upload tramite access

author: Giorgio Prx

text:
"Samuele" <
samoas...@afici.it
> ha scritto nel messaggio
news:Y96nb.358897$R32.11...@news2.tin.it...

Ciao
Le operazioni che puoi effettuare con msinet o con qualsiasi altro controllo
sono quelle che il server può effettuare.
Per avere una panoramica dei comandi apri una finestra dos e scrivi
C:\WINDOWS>FTP + Invio quindi da FTP> premi ? , verrà elencata la lista dei
comandi possibili tra cui MKDIR per creare una nuova cartella.
Se hai già la licenza di MsInet ti conviene utilizzarlo, in altro caso se
devi acquistare qualcosa prova a vedere il controllo Evans Ftp.
http://www.Evans-Programming.com
Ciao Giorgio


title: Upload tramite access

text:
Licenza? devo ignorare alcune cose...
Dunque io mi trovo il componente sul mio pc ma visto che non l'ho comprato
non so perchè.
Forse perchè ho comprato visual basic 6.0?
Samuele



title: Upload tramite access

text:
"Samuele" <
samoas...@afici.it
> ha scritto nel messaggio
news:767nb.359363$R32.11...@news2.tin.it...
> Licenza? devo ignorare alcune cose...
> Dunque io mi trovo il componente sul mio pc ma visto che non l'ho comprato
> non so perchč.
>
> Forse perchč ho comprato visual basic 6.0?
>
Sě con visual basic 6.0 puoi distribuire le tue applicazioni Vb6 con il
controllo MsInet.
Ciao Giorgio


title: X Stefano Bettini

author: ZioBill

text:
Esiste anche la possibilità di formattare un dischetto tramite un pulsante
di comando?, se si', mi dici come?
A rigrazie
ZioBill
P.S. e' mai possibile che un programmino scritto in access su alcuni pc
funge e su altri no, su tutti access 97 servicepak 2
Il problema in particolare è la funzione STR() su alcuni pc mi dice:
funzione non presente in libreria.
la cosa strana che ho notato che detta funzione, anche sul pc che funge, non
viene colorata come un qualsiasi altro comando riconosciuto in access, ad
esempio a me i comandi li colora in blu.


title: X Stefano Bettini

author: Stefano Bettini

text:
ZioBill ha scritto nel messaggio <873v9j$mcj$
1...@news.mclink.it
>...
>Esiste anche la possibilità di formattare un dischetto tramite un pulsante
>di comando?, se si', mi dici come?
Maddai! Windows non è abbastanza user-friendly da dover
implementare una cosa del genere sul gestionale?!
Cmq puoi sempre eseguire il comando format tramite
l' istruzione Shell(), anche se è una soluzione che non
mi piace x niente.....
>
>P.S. e' mai possibile che un programmino scritto in access su alcuni pc
>funge e su altri no, su tutti access 97 servicepak 2
>Il problema in particolare è la funzione STR() su alcuni pc mi dice:
>funzione non presente in libreria.
>la cosa strana che ho notato che detta funzione, anche sul pc che funge,
non
>viene colorata come un qualsiasi altro comando riconosciuto in access, ad
>esempio a me i comandi li colora in blu.
>
Apri un modulo, vai nel menu Strumenti -> Riferimenti e confronta
come sono impostati quelli delle 2 macchine...
Certamente su quella dove la str() non funge ci sarà un qualche
riferimento errato da risistemare.
Bye, Ste


title: X Stefano Bettini

author: ema

text:
Mi permetto di rispondere, anche se e` solo per il Bettini.
Mio cugino mi ha detto che ZioBill <
R.Di...@mclink.it
> scrisse:
> Esiste anche la possibilità di formattare un dischetto tramite un pulsante
> di comando?, se si', mi dici come?
>
shell "format a:"
Ti chiede la conferma e NON ti dico come toglierla, senno` fai dei
casini :-)

bye!
--
Emanuele Cesena        <
ece...@penguinpowered.com
>
http://www.penguinpowered.com/~ecesena
Errare e' umano, ma per fare veramente casino ci vuole la password di root.


title: X Stefano Bettini

text:
Thankkkkkkk, si mi basta cosi' grazie, meglio non incasinarmi che io di
casini già ne faccio abbastanza.:-)))))
ema <ece...@NOSPAMpenguinpowered.com> wrote in message
876r64$f1$1...@srv.ema.it...



title: Popolare una tabella da una query

author: goose

text:
Un saluto a tutto il NG.
Scusate se posto una domanda che in realtà ne racchiude concettualmente più
di una, ma vorrei capire almeno dove sbaglio.
Ho una maschera  con una casella di controllo che assume determinati valori.
Ho poi una query che contiene una serie di campi, oltre a quello indicato
nella maschera.
Vorrei che tutti i record di questa query che soddisfano una determinata
condizione (che contengano cioè il valore indicato nella casella di
controllo) andassero a popolare un'altra tabella, posta come recordsource di
una sottomaschera della maschera stessa.
Adesso vi dico come ho ragionato così è probabilmente più semplice per voi
darmi una mano.
1. Ho impostato il recordset di origine dei dati, anche se non so come far
verificare la condizione (uso un comando in sql all'interno di
openrecordset?)
Set rs = db.OpenRecordset("query", dbOpenSnapshot)
2. Ho impostato il recordset di destinazione
Set fat = db.OpenRecordset("tabledestinazione", dbOpenTable)
3. Mi sono posizionato in testa al recordset di origine dei dati
rs.MoveFirst
4. Poi inizio ad assegnare i valori all'interno di un ciclo do.. loop
Do Until rs.EOF
fat.AddNew
fat.Fields("campodestinazione1") = rs.fiedls("campoorigine1")
fat.Fields("campodestinazione2") = rs.fiedls("campoorigine2")
fat.Fields("campodestinazione3") = rs.fiedls("campoorigine3")
.......
fat.Fields("campodestinazionen") = rs.fiedls("campooriginen")
fat.Update
rs.MoveNext
Loop
rs.Close
fat.Close
Qui il sistema mi va in errore ('Run-time 438': Object doesn't support this
property or method).
Qualcuno mi riesce a dare una mano???
Sarei grato anche di qualche 'dritta' sulla quale possa lavorare per
risolvere il problema.
Vi ringrazio per la collaborazione.
Goose


title: Popolare una tabella da una query

author: Alessandro Cara

text:
[cut]
> fat.Fields("campodestinazione1") = rs.fiedls("campoorigine1")
> fat.Fields("campodestinazione2") = rs.fiedls("campoorigine2")
> fat.Fields("campodestinazione3") = rs.fiedls("campoorigine3")
> .......
[cut]
se hai riportato in modo preciso il codice, la sintassi e' errata
"fields" e non "fiedls". Ma a parte questo. Per quale ragione fai la
scrittura su una tabella?
Quello che ti serve e' visualizzare i dati filtrati?
Per fare questo basta che apri l'intera tabella e poi sull'evento di
dopo aggiornamento del controllo che ti serve da criterio di selezione
applichi un filtro.Metodo applyfilter o gestione delle proprieta' filter
e filteron.
a.cara


title: Popolare una tabella da una query

text:
Alessandro Cara <
al...@blunet.it
> wrote in message
news:3A79E523...@blunet.it...
> [cut]
> > fat.Fields("campodestinazione1") = rs.fiedls("campoorigine1")
> > fat.Fields("campodestinazione2") = rs.fiedls("campoorigine2")
> > fat.Fields("campodestinazione3") = rs.fiedls("campoorigine3")
> > .......
> [cut]
>
> se hai riportato in modo preciso il codice, la sintassi e' errata
> "fields" e non "fiedls". Ma a parte questo. Per quale ragione fai la
> scrittura su una tabella?
Ops... errorino... maledetti tasti... :)
> Quello che ti serve e' visualizzare i dati filtrati?
No. Quello che mi serve è prendere dei record da una query, verificarli con
una condizione, e nel caso inserirli in una tabella.
Nella fattispecie, individuato un DdT, il db deve prendere le righe del DdT
e copiarle nelle righe della fattura.
Ci sono riuscito quando il recordset di origine è una tabella. Mi va in
errore se il recordset è una query.
[cut]
> a.cara
Ti ringrazio per la pazienza.
Goose


title: Popolare una tabella da una query

text:
goose wrote:
>
[cut]
> > Quello che ti serve e' visualizzare i dati filtrati?
> No. Quello che mi serve è prendere dei record da una query, verificarli con
> una condizione, e nel caso inserirli in una tabella.
> Nella fattispecie, individuato un DdT, il db deve prendere le righe del DdT
> e copiarle nelle righe della fattura.
> Ci sono riuscito quando il recordset di origine è una tabella. Mi va in
> errore se il recordset è una query.
> [cut]
>
ricapitoliamo:
1) controllo per impostazione criteri su form (immagino principale)
2) form con dati proveniente da query
3) subform con dati provenienti da tabella
come la vedo:
a) imposto il criterio su form
b) tramite il criterio applico un filtro alla form principale
c) immagino che ci sia un tasto "adesso scarica su sottomaschera"
d) prendo i dati dal recordsetclone del form principale e per quelli che
interessano aggiorno il recordsetclone della sottomaschera
e) cosi', se il recordsetclone della sottomaschera proviene da una
tabella ed e' di tipo aggiornabile, deve andare
f) ovviamente non posso aggiornare i dati sul recordsetclone del form
principale
--
Alessandro Cara


title: Popolare una tabella da una query

author: sib

text:
goose <
goose...@hotmail.com
> wrote in message
0_te6.45462$L94.5...@twister2.tin.it...
>
> Alessandro Cara <
al...@blunet.it
> wrote in message
> news:3A79E523...@blunet.it...
cut
> > Quello che ti serve e' visualizzare i dati filtrati?
> No. Quello che mi serve è prendere dei record da una query, verificarli
con
> una condizione, e nel caso inserirli in una tabella.
> Nella fattispecie, individuato un DdT, il db deve prendere le righe del
DdT
> e copiarle nelle righe della fattura.
> Ci sono riuscito quando il recordset di origine è una tabella. Mi va in
> errore se il recordset è una query.
> [cut]
E' una implementazione abbastanza frequente in un gestionale.
A mio avviso la cosa migliore e' una query di accodamento, sia lanciata come
stringa da codice o, se preferisci, memorizzata come query ed eseguita
all'occorrenza.
Mettersi li' a fare loop quando il dbengine e' stato progettato apposta per
fare queste operazioni mi pare superfluo.
Devi scrivere qualcosa del tipo
CurrentDB.Execute "INSERT INTO RigheFattura ( IDFattura, IDFornitore,
IDProdotto, Quantita, PrezzoPerUnita ) SELECT '" & Me!IDFattura & "' AS
Espr1, RigheDDT.IDFornitore, RigheDDT.IDProdotto, RigheDDT.Quantita,
Prodotti.PrezzoUnitario FROM Prodotti INNER JOIN RigheDDT ON
(Prodotti.IDFornitore = RigheDDT.IDFornitore) AND (Prodotti.IDProdotto =
RigheDDT.IDProdotto) WHERE (((RigheDDT.IDDDT) ='" & Me.IDDDT & "'));"
Per la cronaca, questa e' la query che uso io per fare l'operazione che
vorresti fare anche tu.
E' meno complicata di quanto sembra.
Se vuoi capirla meglio inseriscila nell'SQL di una query e vai in
visualizzazione struttura (ovviamente dopo avere cambiato i nomi di campo e
di tabella con quelli tuoi.
Sib


title: Popolare una tabella da una query

text:
sib <
sibN...@iol.it
> wrote in message
news:XPsf6.106718$ew1.6...@news.infostrada.it...
> goose <
goose...@hotmail.com
> wrote in message
> 0_te6.45462$L94.5...@twister2.tin.it...
> >
> > Alessandro Cara <
al...@blunet.it
> wrote in message
> > news:3A79E523...@blunet.it...
> cut
> E' una implementazione abbastanza frequente in un gestionale.
> A mio avviso la cosa migliore e' una query di accodamento, sia lanciata
come
> stringa da codice o, se preferisci, memorizzata come query ed eseguita
> all'occorrenza.
> Mettersi li' a fare loop quando il dbengine e' stato progettato apposta
per
> fare queste operazioni mi pare superfluo.
> Devi scrivere qualcosa del tipo
>
> CurrentDB.Execute "INSERT INTO RigheFattura ( IDFattura, IDFornitore,
> IDProdotto, Quantita, PrezzoPerUnita ) SELECT '" & Me!IDFattura & "' AS
> Espr1, RigheDDT.IDFornitore, RigheDDT.IDProdotto, RigheDDT.Quantita,
> Prodotti.PrezzoUnitario FROM Prodotti INNER JOIN RigheDDT ON
> (Prodotti.IDFornitore = RigheDDT.IDFornitore) AND (Prodotti.IDProdotto =
> RigheDDT.IDProdotto) WHERE (((RigheDDT.IDDDT) ='" & Me.IDDDT & "'));"
>
> Per la cronaca, questa e' la query che uso io per fare l'operazione che
> vorresti fare anche tu.
> E' meno complicata di quanto sembra.
> Se vuoi capirla meglio inseriscila nell'SQL di una query e vai in
> visualizzazione struttura (ovviamente dopo avere cambiato i nomi di campo
e
> di tabella con quelli tuoi.
>
> Sib
Vi ringrazio per la collaborazione
Un saluto
Goose


title: come domare una query in vba

author: Alessandro

text:
Ho un problemino che non riesco a risolvere:
ho una tabella dettaglio ordine che contiene tutte le linee di un ordine, e
una tabella ordini con i dati dell'ordine (come nordwind). I prodotti
appertengono ad una delle 7 classi previste. Devo trovare i sub totali per
ogni classe di prodotti dell'ordine e scrivere i risulati nei campi relativo
alla tabella ordini.
Ho fatto una query che mi raggruppa per ordine e per classe e mi da i
subtotali giusti, ma non riesco a scrivere una routine che dato il numero
d'ordine mi trovi i valori nella query e me li metta nella tabella...
spero qualcuno sia cosě gentile da darmi un suggerimento, perchč non so
proprio che pesci pigliare.
Grazie a tutti e ciao.


title: come domare una query in vba

author: Sergio MAZZA

text:
"Alessandro" <
lond...@inwind.it
> ha scritto nel messaggio
news:uarJ8.32163$8x3.6...@twister1.libero.it...

Utilizza i recordset; ti apri la query che ritorna i risultati giusti e
leggi i valori dei campi della query.
Es.(ac'97)
'-----------------------
Dim recSet as RecordSet
Set recSet = CurrentDb.openrecordset("nomeQuery")
if not recSet.eof then
    me!nomeControllo = recSet!nomeCampoQuery
end if
recSet.close
set recSet = nothing
'-----------------------
Ciao.
--
Sergio MAZZA


title: Tastiera

author: cnicola

text:
Ciao a tutti,
Qualcuno sa dirmi gentilmente come gestire la tastiera in access.
Mi spiego:
Avrei bisogno in una maschera che premendo il tasto F2 mi apra un'altra
maschera.
Dove devo mettere il codice nell'evento "tasto giï¿œ" ?
Mi potete fare un esempio.
Grazie
Nicola


title: Tastiera

author: Geppo

text:
Ciao cnicola wrote:
> Ciao a tutti,
> Qualcuno sa dirmi gentilmente come gestire la tastiera in access.
> Mi spiego:
> Avrei bisogno in una maschera che premendo il tasto F2 mi apra
> un'altra maschera.
> Dove devo mettere il codice nell'evento "tasto gi�" ?
> Mi potete fare un esempio.
devi sfruttare l'evento keydown della form, dopo aver impostato la propriet�
"Anteprima Tasti" a SI:
private sub Form_KeyDown(Keycode as integer, Shift as integer)
if keycode = vbkeyf2 then
   docmd.openform........
end if
end sub
> Grazie
> Nicola
--
Ciao
Geppo


title: Tastiera

text:
Il 06/05/2010 23:36, Geppo ha scritto:
> Ciao cnicola wrote:
>> Ciao a tutti,
>> Qualcuno sa dirmi gentilmente come gestire la tastiera in access.
>> Mi spiego:
>> Avrei bisogno in una maschera che premendo il tasto F2 mi apra
>> un'altra maschera.
>> Dove devo mettere il codice nell'evento "tasto giï¿œ" ?
>> Mi potete fare un esempio.
>
> devi sfruttare l'evento keydown della form, dopo aver impostato la proprietï¿œ
> "Anteprima Tasti" a SI:
>
> private sub Form_KeyDown(Keycode as integer, Shift as integer)
>
> if keycode = vbkeyf2 then
>     docmd.openform........
> end if
>
> end sub
>
>> Grazie
>> Nicola
>
Grazie mille
Nicola


title: Problemi con casella combinata

author: didacus

text:
Grazie in anticipo a tutti.
Ho un problema con una casella combinata e ho fatto ricerche sul NG
per trovare la soluzione. Ci sono diversi interventi che fanno al caso
mio però non sono riuscito a capire dove sbaglio.
Cerco di fare un sunto con questo esempio:
1- nel Db ci sono due tabelle, "Mariti" e "Mogli", entrambe hanno 8
campi ("ID", "Nome", "Cognome", "Età", "Peso", "Data_nascita",
"Altezza", ecc...)  e sono in relazione uno a uno.
2- A questo punto ho fatto una Query di selezione "Query1" che
comprende di entrambe le tabelle i campi: "ID", "Cognome", "Nome",
"Peso", "Altezza" (un solo campo "ID").
3- Quindi ho fatto una maschera "Maschera1" che ha come origine record
"Query1". Nella maschera ci sono 1+4+4 caselle di testo che
corrispondono ai rispettivi campi della "Query1".
Aprendo "Maschera1", il mio intento è quello di spostarmi ad un
determinato record avvalendomi di una casella combinata "Combo1", che
mi permetta di fare una scelta in base al cognome del marito e della
moglie, per cui:
a- inserisco la casella combinata "Combo1" nella "Maschera1".
b- In proprietà di "Combo1" scelgo numero colonne: 3. Tipo origine
riga:Tabella/Query. Origine riga:"Query1". Colonna associata: 2.
c- Apro "Query1" e nella colonna 2, in corrispondenza dei criteri,
scrivo: [forms]![Maschera1]![Combo1].
d- Ritorno nelle proprietà di "Combo1" e su Dopo aggiornamento scrivo
questa routine: Me.Requery
Risultato: "Maschera1" <> successo.
Forse nel fare tutto ciò ho commesso errori patologici, del resto non
conoscendo nulla di VB non poteva andarmi meglio...


title: Problemi con casella combinata

author: Salvatore

text:
"didacus" <
did...@interfree.it
> ha scritto nel messaggio
news:4377ef2.02050...@posting.google.com...

Perchè non provi così:
sull'evento dopo aggiornamento esegui questo codice
        DoCmd.GoToControl "Cognome"
        DoCmd.FindRecord Forms!Maschera1!Combo1, acEntire, False, , False, ,
True
ovviamente la colonna 2 della combo1 deve contenere il cognome.
Ciao, Salvatore


title: Problemi con casella combinata

text:
"Salvatore" <
sal...@tiscalinet.it
> wrote in message news:<ab166t$o7e$
1...@pegasus.tiscalinet.it
>...

Grazie Mille Salvatore, la routine che hai scritto funziona
perfettamente!!!
Per coloro a cui potrebbe servire una piccola precisazione, dai
criteri di "Query1" ho tolto: [forms]![Maschera1]![Combo1]
Grazie ancora, Ciao
didacus


title: Problemi con casella combinata

text:
"Salvatore" <
sal...@tiscalinet.it
> wrote in message news:<ab166t$o7e$
1...@pegasus.tiscalinet.it
>...

Grazie Mille Salvatore, la routine che hai scritto funziona
perfettamente!!!
Una piccola precisazione per coloro cui potrebbe servire, dai criteri
di "Query1" ho tolto [forms]![Maschera1]![Combo1]
Ciao e grazie ancora,
didacus


title: non mi visualizza l'help contestuale

text:
qualcuno sa speigarmi perchè se vado sulla proprietà di una textbox e premo
F1 non mi visualizza l'help contestuale ma visualizza lhelp generico?
grazie


title: non mi visualizza l'help contestuale

author: Lorenzo(pyx)

text:
In news:44f1870b$0$35075$
4faf...@reader4.news.tin.it
,
Stero72 <
ste...@email.it
> typed:
> qualcuno sa speigarmi perchč se vado sulla proprietą di una textbox e
> premo F1 non mi visualizza l'help contestuale ma visualizza lhelp
> generico?
> grazie
Ciao,
potrebbe essere una installazione non riuscita bene
oppure un ainstallazione di piu' versioni di access.
Che versione usi ?
Prova a vedere se esiste la voce   ?->Rileva problemi e
ripristina, dal menu dell'hlp appunto.
--
Lorenzo


title: chiudere sessione windows

author: Leo

text:
Salve a tutto il ng..
Esiste un modo di chiudere la sessione di lavoro di windows e quindi
spegnere il pc attraverso access?
Leo


title: chiudere sessione windows

author: Silvio Berruti

text:
"Leo" <
rut...@galactica.it
> ha scritto nel messaggio
news:Z18T6.24196$Uo3.9...@news6.giganews.com...
> Salve a tutto il ng..
> Esiste un modo di chiudere la sessione di lavoro di windows e quindi
> spegnere il pc attraverso access?
Inserisci quanto segue in un modulo.
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_PowerOff = 8
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
Public Function ShutDown()
    ExitWindowsEx (EWX_LOGOFF), &HFFFF
End Function
A questo punto hai una nuova funzione ShutDown() da usare quando ti serve.
(lascio alla tua fantasia l'uso delle altre costanti)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: chiudere sessione windows

author: Luca77 - VI

text:
"Leo" <
rut...@galactica.it
> ha scritto nel messaggio
news:Z18T6.24196$Uo3.9...@news6.giganews.com...

Certo ma sono un po pigro ...
va a vedere qui:
http://www.mvps.org/access/api/api0016.htm
senza offesa per il sito comune se vado in cerca altrove ...
Ciao


title: chiudere sessione windows

text:
"Silvio Berruti" <
s...@libero.it
> ha scritto nel messaggio
news:zl8T6.397$7F4....@news.infostrada.it...

Grazie per la tempestiva risposta...
per crearmi un pulsante di comando per richiamare la funzione devo
utilizzare il comando call o cosa?
Grazie ancora..


title: chiudere sessione windows

text:
Grazie per la risposta...
"Luca77 - VI" <
lucc...@tiscalinet.it
> ha scritto nel messaggio
news:Ek8T6.24221$Uo3.9...@news6.giganews.com...



title: chiudere sessione windows

text:
"Leo" <
rut...@galactica.it
> ha scritto nel messaggio
news:Li9T6.24270$Uo3.9...@news6.giganews.com...
>
> "Silvio Berruti" <
s...@libero.it
> ha scritto nel messaggio
> news:zl8T6.397$7F4....@news.infostrada.it...
> >
> > "Leo" <
rut...@galactica.it
> ha scritto nel messaggio
> > news:Z18T6.24196$Uo3.9...@news6.giganews.com...
[CUT]
> > A questo punto hai una nuova funzione ShutDown() da usare quando ti
serve.
> > (lascio alla tua fantasia l'uso delle altre costanti)
> per crearmi un pulsante di comando per richiamare la funzione devo
> utilizzare il comando call o cosa?
come ti ho già scritto, la usi come una normale funzione di Access:
Dim Foo as Long
Foo=ShutDown()



title: Macro e Condizioni

author: Matteo

text:
Ciao a tutti!
Ho un problemino nel creare una macro..
Mi spiego meglio:
ne ho creato una che in steps successivi
1)lancia una query di creazione tabella (la tabella già esiste,
ma così mi assicuro di azzerare i dati in essa contenuti)
2)lancia un'altra query di accodamento dati nella tabella appena
creata
3)lancia una maschera pivot partendo dalla tabella in questione
(mi fermo qui ma la macro fa dell'altro..)
Il problema è che tra il punto 2) e il punto 3) mettere in pausa
la macro in modo da poter controllare/modificare i records in
essa e poi permettere alla macro di  eseguire i passi successivi...
Avrei pensato di mettere una condizione a fianco del punto 3
nella struttura della macro, ma non so proprio cosa sciverci:
esiste un comando vba per dirgli di controllare se la tabella è
chiusa oppure di indicargli proprio il momento di chiusura come
il momento di via libero per il punto 3?
Grazie a tutti!
--
Postato da Virgilio Newsgroup: scopri i nuovi gruppi
Eros, foto e video a
http://newsgroup.eros.virgilio.it


title: Macro e Condizioni

author: Carlo Costarella

text:
"Matteo" <
ziob...@virgilio.it
> ha scritto nel messaggio
news:4349723.1147160089673.JavaMail.newsgroup@sc-ng-1...
> Ciao a tutti!
>
> Ho un problemino nel creare una macro..
> Mi spiego meglio:
>
> ne ho creato una che in steps successivi
> 1)lancia una query di creazione tabella (la tabella già esiste,
> ma così mi assicuro di azzerare i dati in essa contenuti)
> 2)lancia un'altra query di accodamento dati nella tabella appena
> creata
> 3)lancia una maschera pivot partendo dalla tabella in questione
> (mi fermo qui ma la macro fa dell'altro..)
>
> Il problema è che tra il punto 2) e il punto 3) mettere in pausa
> la macro in modo da poter controllare/modificare i records in
> essa e poi permettere alla macro di  eseguire i passi successivi...
>
> Avrei pensato di mettere una condizione a fianco del punto 3
> nella struttura della macro, ma non so proprio cosa sciverci:
> esiste un comando vba per dirgli di controllare se la tabella è
> chiusa oppure di indicargli proprio il momento di chiusura come
> il momento di via libero per il punto 3?
>
> Grazie a tutti!
Il tuo approccio è decisamente elementare e sarebbe bene passare a un po' di
codice.
Una tabella si svuota o da codice o da una query di eliminazione: "Delete *
from TuaTabella;"
Magari puoi usare anche una macro per far partire la query di eliminazione.
Ricorda di impostare gli avvisi su no, esegui la query e poi li reimposti su
Sì.
Per "fermare" o "sospendere" il codice devi usare il codice.
Variabile globale: Global Eseguito as Boolean
All'apertura della maschera pivot: Eseguito = False
While eseguito = False
doevents
Wend
Alla chiusura della maschera: Eseguito = true
Riparte il codice....
Ciao, Carlo


title: Macro e Condizioni

author: matteo

text:
Grazie Carlo!
Sfortunatamente di vba ci capisco pochissimo...
Dalla tua risposta desumo cmq che per via semplice non si possa
fare...
Va bè farò più passaggi!
Grazie,
Matteo
Carlo Costarella ha scritto:




title: Macro e Condizioni

author: Paolo

text:
Matteo wrote:
> Ciao a tutti!
> Ho un problemino nel creare una macro..
Consiglio, le macro usale solo per i menu e per lanciare delle funzioni.
Rendono il codice illeggibile e non sono più semplici da scrivere del
codice.
Ciao


title: casella di testo che si aggiorna solo con debug

author: Giuseppe

text:
Buon pomeriggio.
Con il seguente codice
Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
Ottengo il numero dell'ultima pagina di una sottomaschera che mi visualizza 14 record per ogni pagina.
Su apertura form principale la sottomaschera è vuota.
Appena eseguo il primo filtro (IdAzienda), la sottomaschera si popola di 48 record ma la casella di testo non associata me.txtUltimaPagina anzichè avere valore 4 ha valore 0.
Se eseguo la routine passo a passo con il debug, invece visualizza correttamente 4.
Ad ogni successivo clic sui pulsanti avanti o indietro il numero di pagina si aggiorna correttamente anche senza debug.
Ho provato in tutti i modi ma non riesco a risolvere.
Grazie
Giuseppe


author: Michele

text:

Arrotonda_Eccesso dove si trova? nel recordsource?
1) perché non lo fai da codice?
2) forse con refresh risolvi


author: Phoenix Coop

text:

Ciao Michele.
Arrotonda_Eccesso è una funzione che ho messo in un modulo.
Ho aggiuntoil me.refresh  dopo
        Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
 ma la casella di testo, solo la prima volta mi mostra 0 , poi se clicco i pulsanti pg.avant o pg. indietro che richiamano la sub dove c'è sempre la riga
 Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
mi dà il risultato corretto.
Con il debug funziona anche la prima volta.
Grazie.
Giuseppe


text:

Nessuna idea?
Io continuo a provare e spostare la riga, ma niente.
Succede anche se vado in modifica di un record.
Quando torna visibile la maschera ha di nuovo 0 come ultiima pagina e non quella corretta.
Buona domenica a tutti.
Giuseppe


text:

Ho risolto inserendo la funzione Timer
Nella routine corrente ho inserito
    Me.TimerInterval = 10
e successivamente
Private Sub Form_Timer()
    Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
End Sub
La casella di testo prima va su 0 e dopo sul numero di pagina corretto.
E' lento e brutto da vedere ma funziona.
Qualsiasi valore indico come intervallo del timer sembra non cambiare la tempistica.
Suggerimenti?
Giuseppe


text:

Devi trovare il giusto evento per far scattare il calcolo facendo varie prove oppure più semplicemente calcola tutto tramite codice.


text:

In effetti Michele, oltre a non piacermi ed esser macchinosa, la soluzone con il timer sembra non funzionare sempre.
Spero di aver trovato la soluzione definitiva.
Sfruttando la query filtrata per l'esportazione in excel, ho calcolato il numero dell'ultima pagina, così:
Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT Count(qsmRiepSociFiltrata.IdSocio) AS ConteggioDiIdSocio FROM qsmRiepSociFiltrata")
    Me.txtUltimaPagina = Arrotonda_Eccesso(rs!ConteggioDiIdSocio / 14, 1)
Grazie ancora.
Giuseppe.


text:

Buongiorno a tutti.
Ripropongo il quesito.
Avevo trovato una soluzione, secondo me macchinosa, con la creazione di una query che mostra i record filtrati nella sottomaschera e su questa query facevo il conteggio dei record presenti nella subform.
Con l'aggiunta di subfiltri anche la query non va più bene.
Possibile che in Vba la riga
Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
funzioni solo facendo il debug passo a passo, mentre se tolgo il punto di interruzione mi restituisce 0?
Ho provato a fare requerery della subform con Me!smRiepSoci.Form.Requery
con il refresh della form con me.Form.Refresh
ma il risultato è sempre 0.
Grazie.


author: Ammammata

text:
Il giorno Thu 22 Jul 2021 12:28:39p, *Phoenix Coop* ha inviato su
it.comp.appl.access il messaggio
news:9950af86-7e44-4b89...@googlegroups.com
. Vediamo
cosa ha scritto:

> Possibile che in Vba la riga
> Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio /
> 14, 1) funzioni solo facendo il debug passo a passo, mentre se tolgo
> il punto di interruzione mi restituisce 0?
>

questa delle cose che funzionano se le esegui passo passo mentre non vanno
se lasci andare il codice è uno dei misteri di cui non mi capacito neppure
io, essendoci in mezzo proprio in questi giorni :(

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: Mantenere una maschera sopra ad un'altra

author: robviv

text:
Ho due maschere una piccola e una grande.
Devo fare in modo che, in apertura, la piccola
si posizioni (in alto a destra) sopra quella grande,
e fare in modo che, anche se quella grande riceve
il focus, la piccola rimanga sempre in primo piano.
By By


author: Federico Luciani

text:
robviv wrote:
> Ho due maschere una piccola e una grande.
> Devo fare in modo che, in apertura, la piccola
> si posizioni (in alto a destra) sopra quella grande,
Guarda nell'help il metodo MoveSize per posizionare le form.
Lo puoi usare nell'evento Open della form.
> e fare in modo che, anche se quella grande riceve
> il focus, la piccola rimanga sempre in primo piano.
Guarda la proprieta' Popup delle form.
--
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: ColumnHeads

author: Alessandro Baraldi

text:
"Paolo" <***
bjh...@tin.it
> wrote in message
news:8S2Ya.23677$
an6.8...@news1.tin.it
> ho inserito dei valori nella cmboxQualifica in questo modo
>
> Me.cmboxQualifica.RowSourceType = "Elenco valori"
> Me.cmboxQualifica.ColumnHeads = False
> Me.cmboxQualifica.ColumnCount = 1
> Me.cmboxQualifica.ListRows = 9
> Me.cmboxQualifica.LimitToList = True
> Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & ";ARCH."
> Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & ";ING."
>
> non riesco ha togliere la prima riga vuota della cmboxQualifica
> l'intestazione della colonna.
>
> grazie, paolo
Sei sicuro che la prima riga vuota derivi dall'intestazione
colonna.....???
La proprietà è accessibile anche dalla modalità struttura
e la puoi modificare da li, ma io verificherei i dati, in quanto
il tuo codice mi pare corretto.
P.S. necessiti di modifiche delle proprietà della combo RUNTIME..??
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ColumnHeads

author: Giorgio Prx

text:
"Paolo" <***
bjh...@tin.it
> ha scritto nel messaggio
news:8S2Ya.23677$an6.8...@news1.tin.it...
> ho inserito dei valori nella cmboxQualifica in questo modo
>
> Me.cmboxQualifica.RowSourceType = "Elenco valori"
> Me.cmboxQualifica.ColumnHeads = False
> Me.cmboxQualifica.ColumnCount = 1
> Me.cmboxQualifica.ListRows = 9
> Me.cmboxQualifica.LimitToList = True
> Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & ";ARCH."
> Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & ";ING."
>
> non riesco ha togliere la prima riga vuota della cmboxQualifica
> l'intestazione della colonna.
>
> grazie, paolo
>
>
Ciao paolo,
Il punto e virgola č il separatore di elemento quindi se come prima cosa mi
inserisci un ; viene generata una riga vuota che č posta a sinistra del ;.
prova cosě
---------------------------------------------------------
Me.cmboxQualifica.RowSourceType = "Elenco valori"
Me.cmboxQualifica.ColumnHeads = False
Me.cmboxQualifica.ColumnCount = 1
Me.cmboxQualifica.ListRows = 9
Me.cmboxQualifica.LimitToList = True
Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & "ARCH."
Me.cmboxQualifica.RowSource = Me.cmboxQualifica.RowSource & ";ING."
--------------------------------------------------------
o meglio ancora
-------------------------------------------------------
Me.cmboxQualifica.RowSourceType = "Elenco valori"
Me.cmboxQualifica.ColumnHeads = False
Me.cmboxQualifica.ColumnCount = 1
Me.cmboxQualifica.ListRows = 9
Me.cmboxQualifica.LimitToList = True
Me.cmboxQualifica.RowSource = "ARCH.;ING."
--------------------------------------------------------
Ciao Giorgio.


title: ColumnHeads

text:
Giorgio Prx <
giorgio...@nospamtiscali.it
> wrote in message
bgqp18$3vo$1...@lacerta.tiscalinet.it...
>
> "Paolo" <***
bjh...@tin.it
> ha scritto nel messaggio
> news:8S2Ya.23677$an6.8...@news1.tin.it...
>CUT
> >
> > non riesco ha togliere la prima riga vuota della cmboxQualifica
> > l'intestazione della colonna.
> >
> > grazie, paolo
> >
> >
>
> Ciao paolo,
>
> Il punto e virgola è il separatore di elemento quindi se come prima cosa
mi
> inserisci un ; viene generata una riga vuota che è posta a sinistra del ;.
>
> prova così
>
> ---------------------------------------------------------
CUT
> --------------------------------------------------------
>
> o meglio ancora
> -------------------------------------------------------
> Me.cmboxQualifica.RowSourceType = "Elenco valori"
> Me.cmboxQualifica.ColumnHeads = False
> Me.cmboxQualifica.ColumnCount = 1
> Me.cmboxQualifica.ListRows = 9
> Me.cmboxQualifica.LimitToList = True
> Me.cmboxQualifica.RowSource = "ARCH.;ING."
> --------------------------------------------------------
>
>
> Ciao Giorgio.
>
> Grazie tutto OK
>


title: Esecuzione SQL

author: Rosario Manto

text:
Pe reseguire una istruzione SQL all'interno di una routine VBA basta soo
digitare il seguente codice(esempio)
sql= "Select etc etc
oppure bisogn utilizzare un DoCmd.qualcosa?
Grazie per la risposta


title: Esecuzione SQL

author: Luciano (DOC)

text:
Rosario Manto <
rosari...@citiesonline.it
> wrote in message
8t7ahu$5js$1...@serv1.iunet.it...
> Pe reseguire una istruzione SQL all'interno di una routine VBA basta soo
> digitare il seguente codice(esempio)
> sql= "Select etc etc
> oppure bisogn utilizzare un DoCmd.qualcosa?
Docmd.runsql tuastringasql
Ma questo i ncaso di query di comando (INSERT, DELETE). ALtrimenti devi
passare la tua stringa come origine di un recordset per recuperarne i
valori.
Saluti.
Luciano
(DOC)


title: Quesito Form

author: Ferrari Rino

text:
E possibile far si che un oggetto form quando aperta anche se selezionata
non prenda mai lo stato attivo, e che la sua chiusura avvenga solo ed
esclusivamente alla chiusura del' mdb?
Grazie


title: Quesito Form

author: Sergio MAZZA

text:
"Ferrari Rino" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:Ph5Ta.9609$t92.2...@news1.tin.it...

Intendi un form non visibile?
Ciao.
--
Sergio MAZZA


title: Quesito Form

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bfj199$gsf$1...@canarie.caspur.it...

> No il Form deve essere visibile.
Rino Ferrari


title: Quesito Form

text:
"Ferrari Rino" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:gfaTa.460$Za4....@news2.tin.it...
>
 > No il Form deve essere visibile.
> Rino Ferrari
Se non hai altri oggetti aperti dove vuoi spostare il fuoco?
Ciao.
--
Sergio MAZZA


title: Quesito Form

text:
>  > No il Form deve essere visibile.
> > Rino Ferrari
>
> Se non hai altri oggetti aperti dove vuoi spostare il fuoco?
>
> Ciao.
>
> --
> Sergio MAZZA
>
> Mettiamo il caso di avere due form aperte:
 Form 1 Form 2
dunque se seleziono la form 1  OK ma se passo alla Form 2 essa non dovrebbe
attivarsi  come se fosse disabilitata(naturalmente se possibile!).
Spero di essere stato più chiaro.
Rino Ferrari


title: Quesito Form

text:
"Ferrari Rino" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:3WdTa.2304$Za4....@news2.tin.it...
>
 > Mettiamo il caso di avere due form aperte:
>  Form 1 Form 2
> dunque se seleziono la form 1  OK ma se passo alla Form 2 essa non
dovrebbe
> attivarsi  come se fosse disabilitata(naturalmente se possibile!).
> Spero di essere stato più chiaro.
>
> Rino Ferrari
>
Io penso che potresti inserire nell'evento "su attivato" della seconda form
il codice che restituisce il focus alla prima o alla form che hai stabilito
tu:
Es.
Private Sub Form_Activate()
Forms("nomeForm").SetFocus
End Sub
Pensavo di farla generica, tipo: Forms(0).SetFocus ma la numerazione viene
cambiata ogni volta che si apre/chiude una form. E' vero che la 0 è la prima
aperta ma se inavvertitamente la chiudi perdi il riferimento.
Non ho trovato una funzione che ritorna il nome dell'ultimo oggetto che
aveva il focus, altrimenti era fatta...
Ciao.
--
Sergio MAZZA


title: Tabelle Collegate

author: Antonio

text:
Salve, dovrei impiantare un database sul mio pendrive: il database ha
le tabelle collegate.
Come potrei fare in modo che le tabelle siano collegate in modo
"relativo" al database, senza tutto il percorso?
Es:
Ora le tabelle sono collegate con questo link: C:\Gestione\Tabelle.mdb
io vorrei qualcosa tipo: \Gestione\Tabelle.mdb
in modo che, a prescindere da dove si trovi, cmq possa sempre
riconoscere il percorso delle tabelle!
Si può fare? se si, come?
Grazie in anticipo


title: Tabelle Collegate

text:

possibile che non ci sia nessun modo per collegarle? :(


title: Tabelle Collegate

author: CIDI

text:
"Antonio" <
ant...@gmail.com
> ha scritto nel messaggio
news:1190529453.8...@22g2000hsm.googlegroups.com...


di domenica No! :<))
domani forse....intanto dai un'occhiata al sito comune, qualcosa ci
trova anche nei siti di Baraldi e Karl.
buona domenica
Daniele


title: Tabelle Collegate

text:
On 23 Set, 09:53, "CIDI" <dadonziNO@Spam_tin.it> wrote:
> "Antonio" <
ant...@gmail.com
> ha scritto nel messaggionews:1190529453.8...@22g2000hsm.googlegroups.com...

lo so che di domenica è difficile.. però mi serviva trovare una
soluzione entro domani :(


title: Tabelle Collegate

text:
Antonio wrote:
>
> lo so che di domenica è difficile.. però mi serviva trovare una
> soluzione entro domani :(
Cercando con google trovi altri messaggi con riferimento all'utilizzo del
pendrive (sconsigliato) e del collegamento delle tabelle con il percorso
relativo.
Purtroppo il tuo problema si è scontrato con Roma-Juve... Ce vo' pazienza...
Ciao.
--
Sergio MAZZA


title: Tabelle Collegate

text:

e lo so che il pendrive non è il massimo, però questo programmino che
ho fatto vogliono che debba stare su un pendrive: io sto facendo sta
ricerca perchè voglio essere sempre libero di modificare eventuali
problemini senza dover stare li a combattare per importare poi le
tabelle da un db all'altro e soprattutto proteggendo il db con passw
mettendo al sicuro da occhi indiscreti le tabelle.
Anche perchè anche utilizzare una protezione sul db mi sembra un pò
proibitivo visto l'alloggiamento su pendrive...
Cmq sarò io che non son bravo a cercare, ma su google ho trovato poco
e niente a riguardo :(


title: Tabelle Collegate

text:
Antonio wrote:
>
> e lo so che il pendrive non è il massimo, però questo programmino che
> ho fatto vogliono che debba stare su un pendrive: io sto facendo sta
> ricerca perchè voglio essere sempre libero di modificare eventuali
> problemini senza dover stare li a combattare per importare poi le
> tabelle da un db all'altro e soprattutto proteggendo il db con passw
> mettendo al sicuro da occhi indiscreti le tabelle.
>
>
> Anche perchè anche utilizzare una protezione sul db mi sembra un pò
> proibitivo visto l'alloggiamento su pendrive...
>
>
> Cmq sarò io che non son bravo a cercare, ma su google ho trovato poco
> e niente a riguardo :(
Prova questo:
http://groups.google.it/group/it.comp.appl.access/search?hl=it&q=pendrive&start=0&scoring=d&hl=it&
Ciao.
--
Sergio MAZZA


title: Disabilitare rotellina mouse

author: Raffaele

text: Qualcuno sa come fare a disabilitarla?


title: Disabilitare rotellina mouse

author: Emyr

text:
On Tue, 26 Feb 2002 23:06:30 +0100, "Raffaele" <
val...@inwind.it
>
wrote:
>Qualcuno sa come fare a disabilitarla?
>
vedi nei post precedenti, si intercettava la chiamata dei tasti
cancellando quelli di pagedown e pageup, ad alcuni funziona e ad altri
no
Saluti.
Emanuele.


title: Disabilitare rotellina mouse

text:


"Fausto Busato" <
fr_b...@inwind.it
> ha scritto nel messaggio
news:68b90ba42f6f562f668...@mygate.mailgate.org...
> vorrei disabilitare l'uso della rotella del mouse in una maschera di
> access97, come fare??
>
> Grazie a tutti
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '33 - PgUp; 34 - PgDown; 9 - Tab; 18=Alt
    Select Case KeyCode
        Case 33, 34, 9, 18
            KeyCode = 0
        Case Else
End Select
End Sub
;-)>    Mrok
devi anche abilitare l'intercettazione dei tasti sul form
Saluti.
Emanuele.


title: Disabilitare rotellina mouse

text: Grazie mille sei stato gentilissimo!


title: Esempi di database

author: Enrico Donzelli

text:
Qualcuno mi sa indicare dove trovare esempi di database di vario tipo si
internet? Grazie
--
E.D.


title: Esempi di database

author: Lbo dal portatile

text:
>Qualcuno mi sa indicare dove trovare esempi di database di vario tipo si
>internet? Grazie
sito comune.  trovi l'indirizzo nella signature di vari messaggi.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Esempi di database

author: sergio mazza

text:
Enrico Donzelli <
edon...@mail.com
> wrote in message
87sucf$8k2$1...@serv1.albacom.net...
> Qualcuno mi sa indicare dove trovare esempi di database di vario tipo si
> internet? Grazie
>
> --
> E.D.
>
>
Prova qui:
http://members.xoom.it/it_db_access
Ciao.


title: operazioni sulle stringhe

author: sbruscoli

text:
Salve
Ho una tabella costruita importando dati da un folglio di excel. Purtroppo i
dati contenuti in esso hanno aggregato in un unica colonna il valore
cognome-nome. Quindi importando i dati in access mi ritrovo in un unico
campo il dato cognome e nome separati da uno spazio. Esiste una qualche
funzione di testo che mi consenta di separare quello che trovo prima dello
spazio da quello che trovo dopo e viceversa, per poter costruire una query
per ottenere due campi, cognome e nome?
Grazie


title: operazioni sulle stringhe

author: Filippo

text:
"sbruscoli" <
sbru...@yahoo.com
> ha scritto nel messaggio
news:imZx7.9096$1H1.9...@news.infostrada.it...

Io ti posso dire il codice, ma non sono molto pratico di query e di access,
cioè ho difficoltà a manipolare i dati delle tabelle. Comunque
DIM strCognome AS STRING
DIM strNome AS STRING
DIM X AS INTEGER
X = Instr(TuaTabella.Cognome, " ")
IF X then
    strCognome=Left(TuaTabella.Cognome, X-1)
    strNome=Right(TuaTabella.Cognome, Len(TuaTabella.Cognome)-X)
END IF
Così hai separato il Nome dal Cognome, però non so bene come si fa ad
assegnarli ai campi della tabella dal codice. Anzi se quanlcuno me lo fa
vedere...
Questa routine ha il difetto di considerare il primo spazio che incontra,
quindi se ce ne è più di uno potrebbe non funzionare: ad es. se il cognome
viene prima del nome ed è del tipo DEL VESCOVO o LO CASCIO o magari
BARBERINI COLONNA la separazione è sbagliata così pure se il nome viene
prima e magari è MARIA GRAZIA. La soluzione potrebbe essere sostituire a
mano lo spazio significativo con un carattere particolare, che so "%", però
a questo punto tanto vale separare a mano il Cognome dal Nome.
Ciao
Filippo


title: operazioni sulle stringhe

text:
"Filippo" <
f....@panservice.it
> ha scritto nel messaggio
news:9qa7hj$8q0$1...@news.panservice.it...

Grazie dell'aiuto mi è servito molto e ho risolto il problema!!!
Ho utilizzato la logica delle espressioni che mi hai indicato per costruire
delle query con il generatore senza scrivere del codice; data la tabella
anno2000 contenente il campo iscritto ove avevo il cognome e nome separati
da uno spazio ho scritto due query, una per ottenere il campo congnome:
Cognome: Left([anno2000]![iscritto];(InStr([anno2000]![iscritto];" ")-1))
e l'altra per il nome:
Nome:
Right([anno2000]![iscritto];Len([anno2000]![iscritto])-InStr([anno2000]![isc
ritto];" "))
come vedi seguono la logica che mi indicavi e il tutto funziona
perfettamente.
Per il problema dei cognomi doppi la soluzione che ho impiegato è quella di
sostituire lo spazio con "_" (DEL_VESCOVO).
Grazie di nuovo, e solo un'ultima cosa:
dove posso trovare un manuale che mi spieghi il significato e l'uso delle
funzioni predefiniti presenti in Access?
By


title: operazioni sulle stringhe

author: Silvio Berruti

text:
"sbruscoli" <
sbru...@yahoo.com
> ha scritto nel messaggio
news:Iuby7.12420$1H1.1...@news.infostrada.it...
[CUT]
> dove posso trovare un manuale che mi spieghi il significato e l'uso delle
> funzioni predefiniti presenti in Access?
Inizialmente cerca nell'help di Access, scoprirai che è una fonte
straordinaria, anche con esempi ben commentati.
Poi, se vuoi approfondire, vai a dare un'occhiata alla sezione Libri del
Sito Comune.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: operazioni sulle stringhe

author: Filippo da studio

text:
In data Sun, 14 Oct 2001 07:52:08 GMT, "sbruscoli"
<
sbru...@yahoo.com
> ha postato:
>
>CUT
>Grazie dell'aiuto mi è servito molto e ho risolto il problema!!!
>Ho utilizzato la logica delle espressioni che mi hai indicato per costruire
>delle query con il generatore senza scrivere del codice; data la tabella
>anno2000 contenente il campo iscritto ove avevo il cognome e nome separati
>da uno spazio ho scritto due query, una per ottenere il campo congnome:
>
>Cognome: Left([anno2000]![iscritto];(InStr([anno2000]![iscritto];" ")-1))
>
>e l'altra per il nome:
>
>Nome:
>Right([anno2000]![iscritto];Len([anno2000]![iscritto])-InStr([anno2000]![isc
>ritto];" "))
>
a questo punto sono io che chiedo: dalla query come si fa ad assegnare
il risultato ai campi della tabella nuova (cioè a anno2000.Cognome e a
anno2000.Nome) ammesso che tu li abbia creati ;)
>Grazie di nuovo, e solo un'ultima cosa:
>dove posso trovare un manuale che mi spieghi il significato e l'uso delle
>funzioni predefiniti presenti in Access?
>By
manuali non ne conosco, però siccome queste funzioni esistono dal
tempo del GWBasic più o meno, ti consiglio di guardare il manuale on
line alle voci VBA e Visual Basic
Ciao
Filippo
IppoSoft


title: operazioni sulle stringhe

text:
"Filippo da studio" <
f....@panservice.it
> ha scritto nel messaggio
news:9fvKOzaYl7lw50QbHH7nM=jFg...@4ax.com...
> In data Sun, 14 Oct 2001 07:52:08 GMT, "sbruscoli"
> <
sbru...@yahoo.com
> ha postato:
>
> >
> >CUT
> >Grazie dell'aiuto mi č servito molto e ho risolto il problema!!!
> >Ho utilizzato la logica delle espressioni che mi hai indicato per
costruire
> >delle query con il generatore senza scrivere del codice; data la tabella
> >anno2000 contenente il campo iscritto ove avevo il cognome e nome
separati
> >da uno spazio ho scritto due query, una per ottenere il campo congnome:
> >
> >Cognome: Left([anno2000]![iscritto];(InStr([anno2000]![iscritto];" ")-1))
> >
> >e l'altra per il nome:
> >
> >Nome:
>
>Right([anno2000]![iscritto];Len([anno2000]![iscritto])-InStr([anno2000]![is
c
> >ritto];" "))
> >
>
> a questo punto sono io che chiedo: dalla query come si fa ad assegnare
> il risultato ai campi della tabella nuova (cioč a anno2000.Cognome e a
> anno2000.Nome) ammesso che tu li abbia creati ;)
>
Non ho usato nessuna procedura particolare. Semplicemente creo una nuova
query in visualizzazione struttura, scelgo la tabella sulla quale fare la
query (anno2000, che contiene il campo iscritto con i dati nel formato
"cognome nome", uso il generatore di espressioni, scrivendo le due
espressioni sopra riportate, lancio l'esecuzione della query e ottengo la
tabella contenente il campo cognome e il campo nome con i dati separati dal
campo iscritto della tabella anno2000. Ovviamento ho impostato la query come
query di creazione di nuova tabella, perchč mi interessa ottenere una
tabella con un archivio dati "pulito".
By
Grazie per la risposta sulle funzioni sul testo.
Stefano Bruscoli


title: mantenere l'ordine delle righe

author: Alex

text:
salve a tutti
in una form a maschere continue come fate voi a mantenere l'ordinamento
delle righe, permettendo di aggiungerne altre tra due esistenti o
cancellarne?
es.
riga a
riga b
riga c
cancellare la riga b
e aggiungere una riga z tra a e c?
e a video vedere
riga a
riga z
riga c
La soluzione che uso io è che ad ogni riga inserita assegno un progressivo
che mi salta di 10 in 10, questo mi permette di inserire tra due righe fino
ad altre 9 righe, ovviamento modificando a mano questo "contatore".
E ponendo l'ordinamento del recordset su questo campo.
ma non mi sembra il max.
voi come fate?
alex


title: mantenere l'ordine delle righe

author: PBsoft

text:
[omissis]
Ho tagliato tutto il tuo post perché non avrebbe avuto senso riportarlo in
quoting.
Tu stai cercando di reinventare l'acqua calda, senza saperlo.
Quello che ti stai ponendo è un problema inesistente.
In realtà nessuno va ad inserire un record B tra un record A ed un record
C. Il fatto che tu veda i record ordinati secondo un certo criterio dipende
appunto dal criterio selezionato.
Quando visualizzi una form in modalità "maschere continue", magari ordinata
per un campo di quelli visualizzati, quindi vai ad aggiungere un nuovo record,
Access ti visualizza quel record come in coda a tutti quelli precedentemente
presenti e visualizzati nella maschera, ma si tratta solamente di un problema
di visualizzazione.
Nella realtà non è dato sapere per certo quale sia l'ordine di memorizzazione
dei record in una tabella: sono tutti meccanismi interni di Access.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: mantenere l'ordine delle righe

text:
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea355226b48...@news.tin.it...
> [omissis]
>
> Ho tagliato tutto il tuo post perché non avrebbe avuto senso riportarlo in
> quoting.
> Tu stai cercando di reinventare l'acqua calda, senza saperlo.
>
> Quello che ti stai ponendo è un problema inesistente.
> In realtà nessuno va ad inserire un record B tra un record A ed un record
> C.
...bhe se lo chiedo vuol dire che in realtà a qualcuno serve.
supponi di avere 50 righe di fattura e ti sei scordato di inserirne una tra
la 25 e la 26...ed è fondamentale che sia in quella posizione perchè è una
nota tecnica o la garanzia della macchina descritta nella riga 26....l'unico
soluzione che ho trovato e numerare le righe di 10 in 10. (quindi
10-20-30-----500) con un apposito contatore...in questo caso mi è sufficente
caricare la riga per ultima e cambiare il numero progressivo generato di
questo mio contatore da 510 ad un valore tra 251 e 259 per farla posizionare
tra le due righe scelte.
Ovviamente la form ha come ordinamente il campo del mio contatore.
Mi chiedevo solo se c'era qualcosa di meno macchinoso e più automatico
Alex


title: mantenere l'ordine delle righe

text:
> Mi chiedevo solo se c'era qualcosa di meno macchinoso e più automatico
Credo proprio di no. Devi per forza passare da un campo che scegli poi come
criterio di ordinamento nell'origine dati dell'oggetto di Access.



title: mantenere l'ordine delle righe

author: Ivan da casa

text:
"Alex" <
aa...@tin.it
> ha scritto nel messaggio
news:468017d5$0$17943$4faf...@reader1.news.tin.it...

potresti usare un campo testo e immettere valori numerici.
1
2
3
4
5
6
poi vuoi imettere qualcosa tra 2 e 3?
25
Nuovo ordine
1
2
25
3
4
5
6
vuoi aggiungere tra 2 e 25 ?
230
Nuovo ordine
1
2
230
25
3
4
5
6
 ...
somiglia molto alla soluzione che hai adottato tu, non riesco a definire se
vince in pregi o difetti.
Inoltre puoi usare anche lettere ...
1
1a
1b
1cribbio
2
230
230c
25
3
4
5
6
 -----
  ;D
IvanDaBologna


title: mantenere l'ordine delle righe

text:
"Alex" <
aa...@tin.it
> ha scritto nel messaggio news:467fe0d7$0$36438$4faf...@reader5.news.tin.it...

Ovviamente l'inserimento di record tra altri non esiste, il record viene accodato sempre (quindi in fondo), poi tramite gli indici o
l'ordinamento puoi modificare la visualizzazione; quindi se dovessi risolvere un problema del genere farei (più o meno) come stai
facendo tu:
- cancelli il record (mi salvo in una variabile il numero di "posizione")
- inserisci il record (ci scrivo il numero di "posizione" salvato nella variabile)
- ordini i record
Così non ho bisogno di numerare di 10 in 10...
Ciao.
--
Sergio MAZZA


title: mantenere l'ordine delle righe

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f5qcme$bke$1...@tdi.cu.mi.it...
> "Alex" <
aa...@tin.it
> ha scritto nel messaggio
> news:467fe0d7$0$36438$4faf...@reader5.news.tin.it...
>> salve a tutti
>>
>> in una form a maschere continue come fate voi a mantenere l'ordinamento
>> delle righe, permettendo di aggiungerne altre tra due esistenti o
>> cancellarne?
>>
>> es.
>>
>> riga a
>> riga b
>> riga c
>>
>> cancellare la riga b
>>
>> e aggiungere una riga z tra a e c?
>>
>> e a video vedere
>>
>> riga a
>> riga z
>> riga c
>>
>> La soluzione che uso io č che ad ogni riga inserita assegno un
>> progressivo che mi salta di 10 in 10, questo mi permette di inserire tra
>> due righe fino ad altre 9 righe, ovviamento modificando a mano questo
>> "contatore".
>> E ponendo l'ordinamento del recordset su questo campo.
>> ma non mi sembra il max.
>>
>> voi come fate?
>>
>> alex
>
>
> Ovviamente l'inserimento di record tra altri non esiste, il record viene
> accodato sempre (quindi in fondo), poi tramite gli indici o l'ordinamento
> puoi modificare la visualizzazione; quindi se dovessi risolvere un
> problema del genere farei (piů o meno) come stai facendo tu:
> - cancelli il record (mi salvo in una variabile il numero di "posizione")
> - inserisci il record (ci scrivo il numero di "posizione" salvato nella
> variabile)
> - ordini i record
>
> Cosě non ho bisogno di numerare di 10 in 10...
>
> Ciao.
> --
> Sergio MAZZA
il problema č che non sempre c'č la cancellazione...a volte devo proprio
inserire un record tra due esistenti e quindi ho bisogno di numerare di 10
in 10.
il problema nasce se devo inserire piů di 10 righe tra due righe. (cosa non
rara su computi metrici o preventivi di 30-40 pagine)
ciao, Alex


title: mantenere l'ordine delle righe

text:
"Alex" <
aa...@tin.it
> ha scritto nel messaggio
news:4680cacb$0$10618$4faf...@reader2.news.tin.it...
>
> il problema č che non sempre c'č la cancellazione...a volte devo proprio
> inserire un record tra due esistenti e quindi ho bisogno di numerare di 10
> in 10.
> il problema nasce se devo inserire piů di 10 righe tra due righe. (cosa
> non rara su computi metrici o preventivi di 30-40 pagine)
>
> ciao, Alex
Puoi sempre inventarti un "meccanismo" che ti permette di selezionare il
record dove inserire (o sopra o sotto) il nuovo record; dopo averlo accodato
(il nuovo) ricalcoli tutti i numeri per tutti i record che hanno l'idFattura
uguale.
Oppure dei banalissimi bottoni che spostano il record dall'ultimo posto a -1
o dove viene indicato a mano...
Ciao.
--
Sergio MAZZA


title: Proteggere dati da modifica in maschera

text:
Ho realizzato una maschera di ricerca e vorrei che i dati non fossero
quindi modificabili, in quanto la modifica/creazione dei record è
necessaria nel mio caso solo in sottomaschera.
E' possibile quindi rendere impossibile ad un'utente sprovveduto la
modifica di dati quali il codice prodotto od il prezzo?


title: Proteggere dati da modifica in maschera

text:

blocca o disabilita  i rispettivi controlli della maschera (vedi
proprietà degli stessi)
F.


title: Proteggere dati da modifica in maschera

text:

Grazie. Un'ulteriore domanda. Per quel che concerne gli id vendita ho
messo un campo contatore, il quale, nonostante io abbia cancellato i
record di prova, mi parte non da 1 bensì da un numero più elevato (26,
eh sì ho fatto un pò di prove...). E' possibile riazzerare il
contatore di modo che l'id vendita dia un'idea all'utente
dell'andamento progressivo delle vendite?


title: Proteggere dati da modifica in maschera

text:

domanda ricorrente, per cui cerca nel newsgroup e troverai molte
risposte
F.


title: Proteggere dati da modifica in maschera

author: geppo

text:

Apri la tabella cancella il campo id e salva. Poi riapri la tabella e ricrei
il campo id.
--
Ciao
Geppo


title: Proteggere dati da modifica in maschera

text:

> Geppo- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Grazie di nuovo, sicuramente prima di postare è sempre meglio
ricercare :)


title: Access 97-2000-XP...licenze e sviluppo

author: Fabrizio Yqy

text:
Ciao a tutti,
ho un quesito da chiederi...
Ho le licenze di tutti gli acces disponibili, Access97/2000/XP e per
sviluppare le mie cose ne ho bisogno solo di una...che me ne faccio di
3? :))
Seguendo il ng vedo che molto spesso access 2000 fa i capricci e XP caga
proprio di fuori, peggio del 2000...e sembrerebbe che l'unico access
stabile, sicuro,...da utilizzare insomma sia il 97...
VOi che ne pensate? visto che andiamo verso xp... .Net forse access97 è
un po' datato (anche se funziona meglio di tutti secondo me).
Siccome ho la necessità di sviluppare cose STABILI ma allo stesso tempo
con le migliori tecnologie...(ado...bla bla..) quale sarebbe + indicato
dei 3?
Io ho sviluppato alcuni prog in access97 e in access2000 ma non vedo
differenze di stabilità o i comportamenti anomali..qualche bagghetto ce
l'hanno tutti e due...
Inteso che ho le licenze DEVELOPER per tutti...quale è consigliabile
usare?
Roberto da casa, Lucoano DOC, Syd...e gli altri "guru" voi cosa
utilizzate (che versioni) e perche'? Secondo voi in cosa si
differenziano dalle altre?
Saluti Fabrizio yQy
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Access 97-2000-XP...licenze e sviluppo

author: warp

text:
"Fabrizio Yqy" <
> Seguendo il ng vedo che molto spesso access 2000 fa i capricci
e XP caga
> proprio di fuori, peggio del 2000...
E chi te le da queste certezze?
Facendo un'analisi sullo storico del ng. dei  problemi, veri e/o presunti,
di A' 97 potresti trarre le stesse conclusioni.


title: Access 97-2000-XP...licenze e sviluppo

author: massimiliano

text:




caro warp,
non voglio entrare nel merito ma è sicuramente
ipotizzabile che la diffusione e l'utilizzo di A '97 sia maggiore di quello
di Xp.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.iol.it


title: Access 97-2000-XP...licenze e sviluppo

text:
"massimiliano" <
> caro warp,
> non voglio entrare nel merito ma č sicuramente
> ipotizzabile che la diffusione e l'utilizzo di A '97 sia maggiore di
quello
> di Xp.
Certo che č maggiore: ma non č detto che dia meno problemi ... veri e/o
presunti tali.
Ciao, warp


title: Filtrare una maschera sulla base di un campo Data Formattato

text:
Salve a tutto il gruppo.
Passate buone ferie?...
il mio quesito di oggi è questo:
In una Maschera ho un campo non associato, chiamato MeseAnno
che ha un origine dati così formattato = Format$([DataBolla];"mmmm aaaa";0;0)
Per cui nei record visualizzo “Agosto 2019”, “Settembre 2019” anziché le date delle Bolle
Ora mi serve filtrare la maschera e su DopoAggiornamento di  una Combo chiamata FiltroMeseAnno ho inserito il seguente codice:

Me.Filter = "[MeseAnno]= " & Chr$(34) & Me![FiltroMeseAnno] & Chr$(34)
Me.FilterOn = True

Niente da fare.  Compare la maschera di Dialogo Access che mi chiede di inserire il valore di MeseAnno.
...Eppure la finestra immediata, all’istanza
?Me.filter  …mi restituisce ciò che ho selezionato sulla Combo per esempio:
[MeseAnno]= "agosto 2019"
Cosa sbaglio?...


author: Bruno Campanini

text:
gabria...@gmail.com
 explained on 21-08-19 :

Ci provo... senza averci provato:
Me.Filter = "[MeseAnno]= '" & Me![FiltroMeseAnno] & "'"

Bruno


text:

Grazie Bruno.
Anche così mi restituisce il valore mancante di MeseAnno
Solo che la Finestra immidita mi dà "Tipo non corrispondente"
Io penso che il problema dipenda dall'origine dati che ho messo in questa
Combo MeseAnno:
Espressione1: Format$([DataBolla];"mmmm aaaa";0;0)
Praticamente Ho preso la tabella in cui ci sono le DateBolle
e l'ho messa come origine dati con questa espressione...
In modo da avere nella Combo, gli stessi valori che devo filtrare nella maschera.
Che ne pensi?...


text:
Non confondere l'uso del FORMAT che modifica solo la VISUALIZZAZIONE e non il contenuto... il camp ORIGINALE è DATA, ma il campo Calcolato ottenuto con il FORMAT non è DATA ma TESTO..., quindi come tale va usato...!

Quindi se devi Filtrare co AGOSTO 2019 devi applicare il Filtro al campo Formattato... in sostanza comparazione di Testo.

Ipotizzando tu abbia 2 Variabili con Mese="Agosto" ed Anno="2019" in formato Testo:
Me.Filter = "[MeseAnno]= '" & Mese & "/" & Anno & "'"

Oppure operi sul campo DATA:
Me.Filter = "Format$([DataBolla],"mmmm yyyy")= " & Format$(Date(),"mmmm yyyy")

Me.FilterOn = True

Ovviamente ho passato DATE() che restituisce "Agosto 2019"

@Alex


text:

Buongiorno Alex
Non ho capito la tua seconda parte:
-----
Oppure operi sul campo DATA:
Me.Filter = "Format$([DataBolla],"mmmm yyyy")= " & Format$(Date(),"mmmm yyyy")
-----
dove mettere questo codice, su VBA dà errore...


text:
Si non ho scritto l'istruzione giusta, pensando fosse ovvio che nella parte inviata a JET servisse il PUNTOVIRGOLA come separatore ed ovviamente le virgolette non possono essere usate interno stringa ma servono apici singoli, mentre la parte risolta dal VBA è giusta.

Me.Filter = "Format$([DataBolla];'mmmm yyyy')= " & Format$(Date(),"mmmm yyyy")

Fai qualche prova...

@Alex


text:
Bruno Campanini has brought this to us :

> Ci provo... senza averci provato:
> Me.Filter = "[MeseAnno]= '" & Me![FiltroMeseAnno] & "'"

Rileggendo più accuratamente il tuo post...

Non puoi applicare un filtro prendendo come chiave un campo
non associato!!!

Quindi nel RecordSource di Form inserisci una query con
un nuovo campo così definito:
    MeseAnno:Format([DataBolla],"mmmm yyyy")
quindi nel ControlSource della Form poni, in luogo della
formula che ivi si trova, MeseAnno.

Poi in AfterUpdate della combo (che porta nella propria query
i campi raggruppati MeseAnno della query di Form) inserisci:
    Me.FilterOn = True
    DoCmd.ApplyFilter , "[MeseAnno]='" & Me![FiltroMeseAnno] & "'"

Per eliminare il filtro esegui da un CommandButton di Form:
    Me.FilterOn = False

Bruno


text:

OK GRAZIE


text:

OK Funziona. (A parte qualche piccolo errore di sintassi in questo Format
 MeseAnno:Format([DataBolla],"mmmm yyyy")
(virgola e yyyy = Punto e virgola e aaaa)
poi tutto bene.
Campanini Forever! :-)


text:
After serious thinking
gabria...@gmail.com
 wrote :

Nella mia versione ENG il separatore di lista è la virgola
e l'anno si esprime in "y".
Tu starai usando la versione ITA.
Ciao

Bruno


text:

ah!....Accadono anche di queste cose!...
operatori diversi a seconda della versione!
Complimenti ad Access! Un linguaggio dovrebbe essere UN linguaggio!


text:
Le impostazioni internazionali devono essere rispettate da qualsiasi linguaggio... non credi... come la virgola ed il punto separatori di decimale... o l'accezione anglosassone delle date...
Magari l'osservazione più adatta riguarda quelle cose che invece non hanno a che fare con le impostazioni del S.O. come i TWIPS es i PIXELS... che non ha un vero e proprio senso...

Chi sviluppa però ha modo di scrivere codice facilmente adattabile... se ha applicazioni che devono funzionare in paesi diversi altrimenti problema inesistente.

@Alex


text:
gabria...@gmail.com
 was thinking very hard :

Qui non si tratta di linguaggio, non si tratta di VBA, quello
è linguaggio.
Il quale VBA rimane immutato anche nella versione italiana.

Nelle traduzioni di tutto il resto ognuno se la tira come vuole.

Bruno


text:
In ogni caso...
Se scrivo ;mmmm aaaa
Chiudo il programma in ACCDE
lo vendo e un cliente lo istalla
Su un Office in inglese... non funzionerà
...linguaggio o non linguaggio, giusto?


text:
Sbagliato o meglio... devi comprendere la differenza tra il vba e l'interprete.
In vba se usi Format non userai MAI la notazione in italiano perché non funziona...
Ma se scrivi usando il generatore di espressioni nelle queries o dell'origine controllo allora si.
Come ti accennavo prima se sai che la tua applicazione deve essere flessibile devi evitare di passare per l'interprete.
Le queries si usa più com odamente i Parameters che no  risentono della lingua... ne delle impostazioni.

@Alex


title: ...database centro fitness...

author: SLoP

text:
...Ciao a tutti...
...dovrei creare un piccolo database [Access 2000] per avere più o meno
sotto controllo la situazione delle varie scadenze,corsi, ecc,...del centro
fitness appena preso in gestione da un mio amico...
...devo considerare 1500 iscritti...
...accetto qualsiesi idea...intanto inizio a progettare...vi terrò
informati...
...Ciao Lo...


title: ...database centro fitness...

author: flavio

text:
"SLoP" <
roccuh...@virgilio.it
> ha scritto nel messaggio
news:LobUa.22558$Za4.5...@news2.tin.it...

le anagrafiche
le scadenze degli abbonamenti
gli orari delle lezioni ed i presenti
la situazione dei pagamenti
la manutenzione delle macchine
il solarium
le visite mediche
buon lavoro


title: ...database centro fitness...

text:
"flavio" <
flaviotom...@tin.it
> ha scritto nel messaggio
news:GyeUa.24300$Za4.6...@news2.tin.it...
> le anagrafiche
 Id_cliente nome cognome via cap città provincia telefono cellulare e-mail
> le scadenze degli abbonamenti
?
> gli orari delle lezioni ed i presenti
?
> la situazione dei pagamenti
?
> la manutenzione delle macchine
?
> il solarium
Id_cliente data_utilizzo
> le visite mediche
Id_cliente data_visita
>
> buon lavoro
...il mio livello di preparazione non è altissimo come si può
notare...=)...cmq ci penso su un attimo...
...intanto grazieeeeeeeeeeee...
...Ciao Lo...