text:
Il Sito Comune non mi ha dato ancora una risposta per cui ho deciso di
inviarlo personalmente nel NewsGroup
Spero che vi possa essere utile
Le uniche cose che non sono riuscito a determinare sono :
1)  La possibilità di controllare  l'Email prima di spedirla (attualmente
parte subito)
2)  La possibilità di inserire l'account desiderato (attualmente per chi ha
più di un account prende il predefinito)
Qualsiasi miglioramento è ben accetto.
Collegare ad un pulsante o altro il seguente codice:
Dim MSGX, OBJX As Variant
Dim aTO(0 To 0) As String
Dim aCC(0 To 0) As String
Dim aBCC(0 To 0) As String
Dim aFiles(0 To 2) As String
'Assicurarsi che i files esistono veramente altrimenti non parte
        aFiles(0) = "C:\EMAIL\PIPPO.ZIP"
        aFiles(1) = "C:\EMAIL\PAPERINO.txt"
        aFiles(2) = "C:\DOC\PLUTO.PDF"
        aTO(0) = "
pi...@pluto.it
"
        aCC(0) = "
pape...@pluto.it
"
        aBCC(0) = "
topo...@pluto.it
"
        OBJX = "Invio Email e Allegati con Outlook Express"
        MSGX = "Finalmente ci sono riuscito"
        Invia_MSOE aTO, aCC, aBCC, OBJX, MSGX, aFiles
in un modulo inserire quest'altro codice:
Option Compare Database
Option Explicit
Private Type MAPIRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
Private Type MAPIFileTag
    Reserved As Long
    TagLength As Long
    Tag() As Byte
    EncodingLength As Long
    Encoding() As Byte
End Type
Private Type MAPIFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As Long
End Type
Private Type MAPIMessage
    Reserved As Long
    Subject As String
    NoteText As String
    MessageType As String
    DateReceived As String
    ConversationID As String
    Originator As Long
    Flags As Long
    RecipCount As Long
    Recipients As Long
    FileCount As Long
    Files As Long
End Type
'inserirel'esatto percorso del file  msoe.dll altrimenti non funziona
Public Declare Function MAPISendMail Lib "c:\programmi\outlook
express\msoe.dll" (ByVal Session As Long, ByVal UIParam As Long, ByRef
message As MAPIMessage, ByVal Flags As Long, ByVal Reserved As Long) As Long
Private Const MAPI_E_NO_LIBRARY = 999
Private Const MAPI_E_INVALID_PARAMETER = 998
Private Const MAPI_ORIG = 0
Private Const MAPI_TO = 1
Private Const MAPI_CC = 2
Private Const MAPI_BCC = 3
Private Const MAPI_UNREAD = 1
Private Const MAPI_RECEIPT_REQUESTED = 2
Private Const MAPI_SENT = 4
Private Const MAPI_LOGON_UI = &H1
Private Const MAPI_NEW_SESSION = &H2
Private Const MAPI_DIALOG = &H8
Private Const MAPI_UNREAD_ONLY = &H20
Private Const MAPI_ENVELOPE_ONLY = &H40
Private Const MAPI_PEEK = &H80
Private Const MAPI_GUARANTEE_FIFO = &H100
Private Const MAPI_BODY_AS_FILE = &H200
Private Const MAPI_AB_NOMODIFY = &H400
Private Const MAPI_SUPPRESS_ATTAch = &H800
Private Const MAPI_FORCE_DOWNLOAD = &H1000
Private Const MAPI_OLE = &H1
Private Const MAPI_OLE_STATIC = &H2
Dim mAf() As MAPIFile
Dim mAr() As MAPIRecip
Dim lAr As Long
Dim lAf As Long
Dim mM As MAPIMessage
Dim aErrors(0 To 26) As String
Private Sub Class_Initialize()
    aErrors(0) = "Success"
    aErrors(1) = "User Abort"
    aErrors(2) = "Failure"
    aErrors(3) = "LogIn Failure"
    aErrors(4) = "Disk Full"
    aErrors(5) = "Insufficient Memory"
    aErrors(6) = "Block Too Small"
    aErrors(8) = "Too Many Sessions"
    aErrors(9) = "Too Many Files"
    aErrors(10) = "Too Many Recipients"
    aErrors(11) = "Attachment No Found"
    aErrors(12) = "Attachment Open Failure"
    aErrors(13) = "Attachment Write Failure"
    aErrors(14) = "Unknown Recipient"
    aErrors(15) = "Bad Recipient"
    aErrors(16) = "No Messages"
    aErrors(17) = "Invalid Message"
    aErrors(18) = "Text Too Large"
    aErrors(19) = "Invalid Session"
    aErrors(20) = "Type Not Suppported"
    aErrors(21) = "Ambiguous Recipient"
    aErrors(22) = "Message in Use"
    aErrors(23) = "Network Failure"
    aErrors(24) = "Invalid Edit Fields"
    aErrors(25) = "Invalid Recipient"
    aErrors(26) = "Not Supported"
End Sub
Public Sub Azzera_Email()
lAr = 0
lAf = 0
End Sub
Public Sub BCCAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_BCC, , strAddress
End Sub
Public Sub BCCAdd(ByVal strName As String, ByVal strAddress As String)
    RecipientAdd MAPI_BCC, strName
End Sub
Public Sub BCCNameAdd(ByVal strName As String)
    RecipientAdd MAPI_BCC, strName, strAddress
End Sub
Public Sub CCAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_CC, , strAddress
End Sub
Public Sub CCNameAdd(ByVal strName As String)
    RecipientAdd MAPI_CC, strName
End Sub
Public Sub MessageIs1(ByVal strNoteText As String)
    mM.NoteText = strNoteText
End Sub
Public Sub SubjectIs1(ByVal strSubject As String)
    mM.Subject = strSubject
End Sub
Public Sub ToAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_TO, , strAddress
End Sub
Public Sub ToNameAdd(ByVal strName As String)
    RecipientAdd MAPI_TO, strName
End Sub
Public Sub FileAdd(ByVal strPathName As String)
    Dim F As MAPIFile
    With F
        .PathName = StrConv(strPathName, vbFromUnicode)
    End With
    ReDim Preserve mAf(lAf)
    mAf(lAf) = F
    lAf = lAf + 1
End Sub
Public Sub Send1()
    Dim r As Long
    With mM
        If lAf > 0 Then
            .FileCount = lAf
            .Files = VarPtr(mAf(0))
        End If
        If lAr > 0 Then
            .RecipCount = lAr
            .Recipients = VarPtr(mAr(0))
            r = MAPISendMail(0, 0, mM, 0, 0)
            If r <> 0 Then
                If aErrors(r) = "" Then
                    MsgBox " Email non creata "
                Else
                    MsgBox aErrors(r) & " - Email non creata"
                End If
            Else
            End If
        End If
    End With
End Sub
Public Sub RecipientAdd(ByVal lngType As Long, Optional ByVal strName As
String, Optional ByVal strAddress As String)
    Dim r As MAPIRecip
    r.RecipClass = lngType
    If strName <> "" Then r.Name = StrConv(strName, vbFromUnicode)
    If strAddress <> "" Then r.Address = StrConv(strAddress, vbFromUnicode)
    ReDim Preserve mAr(lAr)
    mAr(lAr) = r
    lAr = lAr + 1
End Sub
Sub Invia_MSOE(TO1 As Variant, CC1 As Variant, BCC1 As Variant, ByVal OGG1
As String, ByVal MSG1 As String, AFIL1 As Variant)
    Dim T1, B1, C1, A1 As Long
'NUOVA TRASMISSIONE
    Azzera_Email
'ACCODA TO
        For T1 = LBound(TO1) To UBound(TO1)
        If TO1(T1) <> "" Then
            ToAddressAdd TO1(T1)
        Else
            MsgBox "MANCA IL DESTINATARIO - CHIUDO"
        Exit Sub
        End If
        Next T1
'ACCODA CC
        For C1 = LBound(CC1) To UBound(CC1)
        If CC1(C1) <> "" Then
            CCAddressAdd CC1(C1)
        Else
        End If
        Next C1
'ACCODA BCC
        For B1 = LBound(BCC1) To UBound(BCC1)
        If BCC1(B1) <> "" Then
            BCCAddressAdd BCC1(B1)
        Else
        End If
        Next B1
'INSERISCI TESTO MESSAGGIO
    MessageIs1 MSG1
'INSERISCI OGGETTO MESSAGGIO
    SubjectIs1 OGG1
'ACCODA ALLEGATI
    For A1 = LBound(AFIL1) To UBound(AFIL1)
    If AFIL1(A1) <> "" Then
        FileAdd AFIL1(A1)
    Else
    End If
    Next A1
'INVIA
    Send1
End Sub
--
  Ciao
Andrea


title: Funzione per gestire da codice Outlook Express

author: Lupo

text:
The FOG ha scritto:
> Il Sito Comune non mi ha dato ancora una risposta per cui ho deciso di
> inviarlo personalmente nel NewsGroup
Grazie, ma tu l'avevi mandato al SC di Access, no?!
Di colpe questo NG ne ha sicuramente un tot, ma non questa. ;-))
http://makeashorterlink.com/?R43523BF2
Questi sono i problemi che nascono dall'inviare lo stesso post a più
destinatari.


author: Zanna

text:
"The FOG" <
andre.b...@tiscali.it
> wrote in message
> Il Sito Comune non mi ha dato ancora una risposta per cui ho deciso di
> inviarlo personalmente nel NewsGroup
Strano, perchè l'attuale WM è piuttosto solerte.
Comunque Lupo ha posto l'attenzione su questo post.
Qualcuno si farà sentire, o magari chiedi tu stesso informazioni al WM.
Ciao


text:
"Zanna" <
znt....@virgilio.it
> wrote in message news:6QhS9.65437$Q%
> > Il Sito Comune non mi ha dato ancora una risposta per cui ho deciso di
> > inviarlo personalmente nel NewsGroup
>
> Strano, perchč l'attuale WM č piuttosto solerte.
Come non detto: anche io sono piuttosto solerte a dire cretinate :PPP
Ciao


text:
Zanna ha scritto:
> Come non detto: anche io sono piuttosto solerte a dire cretinate :PPP
Perchè mai? Anch'io ero sorpreso (conoscendo il nostro WM), ma The FOG ce
l'aveva con il SC di Access, non col nostro. L'equivoco è nato dal fatto che
ha scritto là e anche qui.
Lascio volutamente il doppio destinatario.


title: Andare al record successivo solo se ...

author: pang

text:
... si verificano delle condizioni.
Ho la necessità appunto di controllare da maschera che alcuni campi siano
inseriti in modo esatto. Su tale maschera non ho pulsanti di spostamento
personalizzati ma uso quelli della maschera stessa.
Se premo tab sull'ultimo campo automaticamente si sposta al record
successivo e questo va bene solo quando sono soddisfatte determinate
condizioni altrimenti mi deve avvisare e rimanere nel record attuale senza
assolutamente passare a quello successivo.
E' possibile ? A fronte di quale evento ?
Ciao, pang.


title: Andare al record successivo solo se ...

author: Ebo

text:
"pang" <
pangN...@email.it
> ha scritto nel messaggio
news:wnTnd.369493$35.16...@news4.tin.it...

>Forse può bastare impostare tra le proprietà della maschera SEQUENZA =
>Record corrente
>e creare un pulsante che salvi il record e mandi a nuovo record previa
>verifica delle condizioni
>Ciao Ebo


title: Andare al record successivo solo se ...

text:
"pang" <
pangN...@email.it
> ha scritto nel messaggio
news:wnTnd.369493$35.16...@news4.tin.it...




title: sql che non funziona (anche se apparentemente corretto)

author: Robby

text:
ciao a tutti,
	io su un db in Access 97 provo a fare via codice una insert
con dbengine(0)(0).execute SQL
dove SQL è una stringa che mi costruisco io dinamicamente.
un esempio della mia stringa SQL potrebbe essere:
INSERT INTO [330MAN_01000_16_54_11] ( Data, [96_1_VC], [145_42_VC],
[232_42_VC], [309_25_VC], [362_41_VC], [369_35_VC], [501_15_VC],
DataData ) SELECT 'DATA' AS D, 'BOD' AS 96_1 , 'COD Tal quale' AS
145_42 , 'Fosforo' AS 232_42 , 'MST' AS 309_25 , 'pH' AS 362_41 ,
'Portata' AS 369_35 , 'TKN' AS 501_15 ,  '01/01/1900' AS Data2
Il problema è che l'execute da codice non va.
nel senso che il dbengine(0)(0).RecordsAffected è sempre = 1 (quindi
corretto), se copio l'sql in una query e la eseguo mi accoda
correttamente 1 record, ma eseguito da codice non accoda niente.
qualcuno sa illuminarmi??
ciao e grazie
Roberta


author: Sib

text:
"Robby" <
rob...@freemail.it
> ha scritto nel messaggio

Come lo esegui? (posta la riga di codice)
Perche' usi SELECT invece di VALUES ( )?
Sib


text:
Il Mon, 18 Aug 2003 15:45:07 GMT, "Sib" <si...@SPAMiol.it> ha scritto:
>Come lo esegui? (posta la riga di codice)
DBEngine(0)(0).Execute "INSERT INTO [330MAN_01000_16_54_11] ( Data,
[96_1_VC], [145_42_VC], [232_42_VC], [309_25_VC], [362_41_VC],
[369_35_VC], [501_15_VC], DataData ) SELECT 'DATA' AS D, 'BOD' AS 96_1
, 'COD Tal quale' AS 145_42 , 'Fosforo' AS 232_42 , 'MST' AS 309_25 ,
'pH' AS 362_41 , 'Portata' AS 369_35 , 'TKN' AS 501_15 ,  '01/01/1900'
AS Data2"
>Perche' usi SELECT invece di VALUES ( )?
Ho provato inizialmente con il  VALUES.
L'ho copiato in una nuova query e l'ho eseguito (ed č stato
correttamente accodato 1 record), perň tornando nell'SQL, Access me lo
aveva trasformato in SELECT, cosě ho pensato che fosse piů corretto
come me lo proponeva Access (cioč col SELECT). Deduzione sbagliata?
ciao
Roberta


text:
"Robby" <
rob...@freemail.it
> ha scritto nel messaggio

Diciamo che access traduce a modo suo, nel codice meglio values, e' piu'
chiaro che si tratta di un solo record.
Ma con values ti funziona?
Sib


text:
Il Tue, 19 Aug 2003 14:20:49 GMT, "Sib" <si...@SPAMiol.it> ha scritto:
>Diciamo che access traduce a modo suo, nel codice meglio values, e' piu'
>chiaro che si tratta di un solo record.
>Ma con values ti funziona?
>
>Sib
>
ok, ce l'ho fatta, il caldo padano mi ha fatto svarionare.
penso che abbia sempre funzionato, non mi ero accorta che in una
funzione che viene richiamata + avanti vengono cancellati tutti i
record con Data antecedente a quella inserita dall'operatore (perciò
anche il record appena aggiunto con data 01/01/1900).
Quindi tutto ok, scusate il disturbo.
comunque grazie mille
ciao
Robby


title: Nuovo aggiornamednto del Sito Comune

author: Roberto dalla campagna

text:
A coloro che ne sono interessati, comunico che è in linea un nuovo
aggiornamento del Sito Comune.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Nuovo aggiornamednto del Sito Comune

author: luigionofrio

text:
Roberto dalla campagna ha scritto:
> A coloro che ne sono interessati, comunico che è in linea un nuovo
> aggiornamento del Sito Comune.
grazie!!! io vado subito a curiosare!!!  :-))
l.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Nuovo aggiornamednto del Sito Comune

author: ciroteo

text:
On 27 Set, 18:44, "Roberto dalla campagna" <
r.mass...@libero.it
>
wrote:

grazie roberto, ottimo lavoro
il sito comune si conferma come "papà" di tutti gli altri ...
ne sentivamo la mancanza!


title: Nuovo aggiornamednto del Sito Comune

text:
Roberto dalla campagna ha scritto:
> A coloro che ne sono interessati, comunico che è in linea un nuovo
> aggiornamento del Sito Comune.
ho dato uno sguardo veloce e mi ha colpito "codice fiscale ed anagrafica",
ma sono rimasto deluso in quanto imho non è molto funzionale per esigenze
specifiche (è ottimo per usarlo solo a se stante ma ve ne sono molti di
questi programini in giro)
ci vorrebbe il calcolo del CF non riempendo una stringa, ma prendendo i
dati dai campi singoli di una tabella anagrafica che, sempre secondo me,
ve ne sono moltissime di questi applicativi che hanno l'esigenza del
calcolo CF e che venga memorizzato in un campo CF.
luigi
Comunque, vi è anche il detto "a caval donato non si guarda in bocca"
e confermo che il sito comune è una pezza d'appoggio ed un'isola di
salvezza di molti di noi.
grazie!
luigi



title: Nuovo aggiornamednto del Sito Comune

author: MA

text:
Roberto dalla campagna wrote:
> A coloro che ne sono interessati, comunico che è in linea un nuovo
> aggiornamento del Sito Comune.
Ciao Roberto, grazie dell apubblicazione e del lavoro che c'è alle spalle.
Ti segnalo:
3.126. piccolo refuso nel titolo "eecords"
6.14: i due codici per scatenare i suoni sono uguali
ciao
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Nuovo aggiornamednto del Sito Comune

author: PBsoft

text:
> A coloro che ne sono interessati, comunico che è in linea un nuovo
> aggiornamento del Sito Comune.
Suggerimento: nella sezione Libri converrebbe invertire gli importi in lire
con quelli in euro.
Intendo dire che agli importi in euro dovrebbe essere data la precedenza,
rispetto a quelli in lire che potrebbero essere "citati" tra parentesi.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Nuovo aggiornamednto del Sito Comune

author: CIDI

text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:v5RKi.126329$U01.1...@twister1.libero.it...

Ciao Roberto
volevo segnalarti le faq 8.35  e 8.32 mi sembrano uguali.
la tua faq 6.160 mi sembra la realizzazione... :-)
Daniele


title: Arrotondamento-cifra -superiore

author: Rino Ferrari

text:
Salve autto il NG
Il quesito di oggi e:
come e possibile arrotondare un campo numerico alla cifra superiore tipo:
1.225 - a - 1.250  o
1.230 - a - 1.250
Grazie in anticipo
Rino


title: Arrotondamento-cifra -superiore

author: Fabio Montagner

text:
Credo sia
if (1225/10) = int(1225/10) then 1225
else  (int(1225/10)+1)*10
end if
per 1225 a 1230
Pertanto credo che al posto di 10 tu possa mettere 50 e verifica l'1.
"Rino Ferrari" <
gen...@tin.it
> wrote in message
news:S1Gp6.17616$yl2.3...@news1.tin.it...



title: Arrotondamento-cifra -superiore

author: Federico Luciani

text:

sul sito comune c'e' gia' qualcosa, comunque ti posto questa funzione che sara'
on line al prossimo aggiornamento:
questa permette di arrotondare a qualunque cifra decimale (vedi esempi)
Function fctRound(varNr, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
   fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10 ^ varPl)
End Function
Esempi:
Se si omette varPI, il numero viene arrotondato alla seconda cifra decimale
?fctRound(1.024) --> 1.02
?fctRound(1.025) --> 1.03
?fctRound(1.24, 1) --> 1.2
?fctRound(1.25, 1) --> 1.3
?fctRound(1240, -2) --> 1200
?fctRound(1250, -2) --> 1300
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Arrotondamento-cifra -superiore

author: GT

text:
"Rino Ferrari" <
gen...@tin.it
> ha scritto nel messaggio
news:S1Gp6.17616$yl2.3...@news1.tin.it...

Dim cifre As Integer
dim num as integer    <---- tuo numero
cifre = Right(num, 2)
If cifre >= 1 And cifre <= 50 Then
num = (num - cifre) + 50
Else
num = (num - cifre) + 100
End If
io facendo cosi  otterrei 1225 ---> 1250
                                    1230 ---> 1250
                                    1251 ---> 1300
associalo all'evento di un pulsante o all'aggiornamento di una casella di
testo


title: Duplicazione record

author: stefano

text:
Ciao a tutti
spesso mi capita che degli ordini creati per un cliente vadano bene
anche per altri clienti.
Volevo quindi crearne una copia. La struttura è la stessa di
notrhwind.mdb cioè ordini>dettagli ordini. Mi servirebbe però
duplicare anche i dettagli agganciati all'ordine che sto andando a
copiare. Ho provato con l'autocomposizione del tasto duplica record ma
mi da errore e non penso che comunque mi copi i record correlati di
dettagli ordini. L'unico modo che ho trovato è quello di scorrerre il
recordset di ordini (trasferito in una tab temporanea) e una volta
individuato il record che mi interessa trasferirlo campo per campo e
poi fare la stessa cosa per dettagli ordini (ovviamente dopo aver
individuato la stessa chiave dell'ordine). Esiste un modo meno
macchinoso e piu' elegante?
Tanto per abusare della pazienza:
Ho provato a fare la conversione da 97 a 2000 ed è andata a buon fine
ma nella barra di windows (Start....)  rimangono visibili i tasks
delle varie maschere nidificate che apro. Posso fare apparire solo il
task della procedura come accade sul 97?
Grazie Stefano


title: Duplicazione record

author: Roberto dal portatile

text:
"stefano" <
s.bernardin...@tin.it
> ha scritto nel messaggio
news:3c109047...@news.tiscalinet.it...
> Ciao a tutti
> spesso mi capita che degli ordini creati per un cliente vadano bene
> anche per altri clienti.
> Volevo quindi crearne una copia. La struttura è la stessa di
> notrhwind.mdb cioè ordini>dettagli ordini. Mi servirebbe però
> duplicare anche i dettagli agganciati all'ordine che sto andando a
> copiare. Ho provato con l'autocomposizione del tasto duplica record ma
> mi da errore e non penso che comunque mi copi i record correlati di
> dettagli ordini. L'unico modo che ho trovato è quello di scorrerre il
> recordset di ordini (trasferito in una tab temporanea) e una volta
> individuato il record che mi interessa trasferirlo campo per campo e
> poi fare la stessa cosa per dettagli ordini (ovviamente dopo aver
> individuato la stessa chiave dell'ordine). Esiste un modo meno
> macchinoso e piu' elegante?
>
Se la chiave primaria della tabella ordini è il numero ordine e NON è un
contatore, potresti pensare di crearti dinamicamente due stinghe SQL, la
prima che seleziona l'ordine da duplicare  e accoda il nuovo record ordine
(cambiandone il numero d'ordine ed il codice cliente) e la seconda che
seleziona i relativi record dettaglio e accoda i nuovi dettagli ordine,
modificandone adeguatamente la chiave esterna (alias numero d'ordine).
> Tanto per abusare della pazienza:
> Ho provato a fare la conversione da 97 a 2000 ed è andata a buon fine
> ma nella barra di windows (Start....)  rimangono visibili i tasks
> delle varie maschere nidificate che apro. Posso fare apparire solo il
> task della procedura come accade sul 97?
Il secondo problema non l'ho ben compreso, quindi....
>
> Grazie Stefano
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Duplicazione record

author: FabioS

text:
"stefano" <
s.bernardin...@tin.it
> ha scritto nel messaggio
news:3c145cc...@news.tiscalinet.it...
> spesso mi capita che degli ordini creati per un cliente vadano bene
> anche per altri clienti.
>
> Tanto per abusare della pazienza:
> Ho provato a fare la conversione da 97 a 2000 ed è andata a buon fine
> ma nella barra di windows (Start....)  rimangono visibili i tasks
> delle varie maschere nidificate che apro. Posso fare apparire solo il
> task della procedura come accade sul 97?
>
> Grazie Stefano
>
1°: se duplichi frequentemente puoi usare VBA scrivendo una procedura ad
hoc; diversamente sfrutta le caratteritiche di A2k: sulla tab. lato1 compare
a sn un + che ti dà l'esploso dei rcd correlati, copia il rcd lato1 e poi i
correlati(è istantaneo, lo consiglio se non deve farlo un utente inesperto).
2° Menù Strumenti>Opzioni>scheda Visualizzazione: deseleziona "icone sulla
barra delle appl."
Buon lavoro


title: Numeri in Intestazione Pagina

author: Carlo

text:
Salve, so benisssimo che la matematica impone determinati concetti, quali ad
esempio che una somma va riportata alla fine di certi numeri presi in
considerazione. Ma se io volessi fare una somma (in un report) di numeri
presi da una tabella x e avere il loro totale per pagina, in intestazione, č
fattibile ?
Grazie!


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:8G6ug.41527$_J1.4...@twister2.libero.it...

> è fattibile ?
Non mi è chiaro cosa tu voglia fare.
Se in una casella di testo non associata posta nell'intestazione di pagina
vuoi visualizzare la somma di un campo di una tabella, nell'origine
controllo della casella di testo scrivi una DSum (vedi help) che realizzi
tale somma.
Se invece vuoi stampare il totale di pagina nella intestazione di pagina
invece che nel Pié di pagina pagina, puoi stampare tale valore con il metodo
Print (vedi help) dopo avere reso non visibile la casella di testo che
contiene il totale di pagina nel Pié di pagina pagina.
Insomma, facendo riferimento al database di esempio allegato alla FAQ di
Antogal intitolata "4.5 Rappresentazione, su Report, di periodi temporali
mediante segmenti." che trovi nella Sezione Reports del Sito Comune (link
qui sotto), rendi non visibile la casella di testo PageSum che è inserita
nel Piè di pagina pagina e a fronte dell'evento "Su pagina" del report
genera il seguente codice VBA:
Private Sub Report_Page()
Me.ScaleMode = 6
Me.CurrentX = 50
If Page = 1 Then
    Me.CurrentY = 17
Else
    Me.CurrentY = 4
End If
Me.Print Me!PageSum
End Sub
Insomma, dopo che tutta una pagina è stata formattata, prima che essa venga
stampata, predisponi nella sua intestazione il valore della casella di testo
PageSum, ovvero il totale di pagina del campo Giacenza.
Dopo sta faticata spero che sia quello che ti serve, in caso contrario
spiegati meglio.
>
> Grazie!
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:5G8ug.41567$zy5.8...@twister1.libero.it...

Ciao Roberto, come al solito non perdi un colpo, appena scrivo... immediata
è la risposta! Grazie come sempre! Allora dopo la faticaccia, e che
faticaccia, la soluzione sembra essere la seconda, però ci deve essere
qualcosa che non quadra, perchè il risultato in alto è sempre 1 e non quello
del piè! Cerco di spiegarmi meglio...
Tabella 1
Campo A
Campo B
Campo C
Tutti numerici, creo report con creazione guidata e alla fine nel piè voglio
il totale del campo A ma solo della pagina che visualizzo, quando cambio
pagina (es. la 2 -3 o 10), voglio solo il totale di quella pagina! Il fatto
è che il totale lo vorrei mettere in testa e non in piè! Spero di essermi
spiegato bene, quasi quasi come un paracadute... ;-)
Ciao e grazie ancora!


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:4gdug.41847$zy5.8...@twister1.libero.it...
>
> "Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:5G8ug.41567$zy5.8...@twister1.libero.it...
>>
>> "Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
>> news:8G6ug.41527$_J1.4...@twister2.libero.it...
>>> Salve, so benisssimo che la matematica impone determinati concetti,
>>> quali ad esempio che una somma va riportata alla fine di certi numeri
>>> presi in considerazione. Ma se io volessi fare una somma (in un report)
>>> di numeri presi da una tabella x e avere il loro totale per pagina, in
>>> intestazione, č fattibile ?
>>
>> Non mi č chiaro cosa tu voglia fare.
>> Se in una casella di testo non associata posta nell'intestazione di
>> pagina vuoi visualizzare la somma di un campo di una tabella,
>> nell'origine controllo della casella di testo scrivi una DSum (vedi help)
>> che realizzi tale somma.
>> Se invece vuoi stampare il totale di pagina nella intestazione di pagina
>> invece che nel Pié di pagina pagina, puoi stampare tale valore con il
>> metodo Print (vedi help) dopo avere reso non visibile la casella di testo
>> che contiene il totale di pagina nel Pié di pagina pagina.
>> Insomma, facendo riferimento al database di esempio allegato alla FAQ di
>> Antogal intitolata "4.5 Rappresentazione, su Report, di periodi temporali
>> mediante segmenti." che trovi nella Sezione Reports del Sito Comune (link
>> qui sotto), rendi non visibile la casella di testo PageSum che č inserita
>> nel Pič di pagina pagina e a fronte dell'evento "Su pagina" del report
>> genera il seguente codice VBA:
>>
>> Private Sub Report_Page()
>> Me.ScaleMode = 6
>> Me.CurrentX = 50
>> If Page = 1 Then
>>    Me.CurrentY = 17
>> Else
>>    Me.CurrentY = 4
>> End If
>> Me.Print Me!PageSum
>> End Sub
>>
>> Insomma, dopo che tutta una pagina č stata formattata, prima che essa
>> venga stampata, predisponi nella sua intestazione il valore della casella
>> di testo PageSum, ovvero il totale di pagina del campo Giacenza.
>>
>> Dopo sta faticata spero che sia quello che ti serve, in caso contrario
>> spiegati meglio.
>>
>>>
>>> Grazie!
>>
>> Prego
>>
>> --
>> Roberto
>>
>>
> Ciao Roberto, come al solito non perdi un colpo, appena scrivo...
> immediata č la risposta! Grazie come sempre! Allora dopo la faticaccia, e
> che faticaccia, la soluzione sembra essere la seconda, perň ci deve essere
> qualcosa che non quadra, perchč il risultato in alto č sempre 1 e non
> quello del pič! Cerco di spiegarmi meglio...
> Tabella 1
> Campo A
> Campo B
> Campo C
>
> Tutti numerici, creo report con creazione guidata e alla fine nel pič
> voglio il totale del campo A ma solo della pagina che visualizzo, quando
> cambio pagina (es. la 2 -3 o 10), voglio solo il totale di quella pagina!
> Il fatto č che il totale lo vorrei mettere in testa e non in pič! Spero di
> essermi spiegato bene, quasi quasi come un paracadute... ;-)
Tu ti sei spiegato, ma a quanto sembra non mi sono spiegato io.
Il totale di pagina nel pié di pagina pagina lo hai realizzato nel tuo
report?
Sei andato a vedere l'esempio allegato alla FAQ 4.5 del Sito Comune?
Se si, hai usato quella tecnica  per realizzare il totale di pagina nel Pič
di pagina pagina?
La soluzione che ti ho proposto funziona SOLO se lo hai fatto; per scrupolo
ho testato quella soluzione proprio all'interno del database di esempio di
cui sopra ed a me funziona egregiamente; ti invito a fare altrettanto ed una
volta che verifichi che lě funzioni trasferisci quella tecnica all'interno
del tuo report.
Resta comunque il fatytto che, per avere i totali di pagina corretti
nell'anteprima del report, č ASSOLUTAMENTE NECESSARIO che tu visualizzi
TUTTE le pagine in sequenza e non saltellare da una all'altra: questo č
necessario in quanto i totali vengono costruiti a fronte degli eventi di
formattazione delle varie sezione quindi tutti i record delle pagine non
visualizzate non partecipano alla formazione dei totali, ma questo č
naturale ed intuitivo: naturalmente se esegui la stampa su carta del report
non avrai invee alcuna complicazione, visto che la stampa viene eseguita
tutta dall'inizio alla fine.ů
>
> Ciao e grazie ancora!



title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:cemug.41994$zy5.8...@twister1.libero.it...
>
> "Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
> news:4gdug.41847$zy5.8...@twister1.libero.it...
>>
>> "Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
>> news:5G8ug.41567$zy5.8...@twister1.libero.it...
>>>
>>> "Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
>>> news:8G6ug.41527$_J1.4...@twister2.libero.it...
>>>> Salve, so benisssimo che la matematica impone determinati concetti,
>>>> quali ad esempio che una somma va riportata alla fine di certi numeri
>>>> presi in considerazione. Ma se io volessi fare una somma (in un report)
>>>> di numeri presi da una tabella x e avere il loro totale per pagina, in
>>>> intestazione, è fattibile ?
>>>
>>> Non mi è chiaro cosa tu voglia fare.
>>> Se in una casella di testo non associata posta nell'intestazione di
>>> pagina vuoi visualizzare la somma di un campo di una tabella,
>>> nell'origine controllo della casella di testo scrivi una DSum (vedi
>>> help) che realizzi tale somma.
>>> Se invece vuoi stampare il totale di pagina nella intestazione di pagina
>>> invece che nel Pié di pagina pagina, puoi stampare tale valore con il
>>> metodo Print (vedi help) dopo avere reso non visibile la casella di
>>> testo che contiene il totale di pagina nel Pié di pagina pagina.
>>> Insomma, facendo riferimento al database di esempio allegato alla FAQ di
>>> Antogal intitolata "4.5 Rappresentazione, su Report, di periodi
>>> temporali mediante segmenti." che trovi nella Sezione Reports del Sito
>>> Comune (link qui sotto), rendi non visibile la casella di testo PageSum
>>> che è inserita nel Piè di pagina pagina e a fronte dell'evento "Su
>>> pagina" del report genera il seguente codice VBA:
>>>
>>> Private Sub Report_Page()
>>> Me.ScaleMode = 6
>>> Me.CurrentX = 50
>>> If Page = 1 Then
>>>    Me.CurrentY = 17
>>> Else
>>>    Me.CurrentY = 4
>>> End If
>>> Me.Print Me!PageSum
>>> End Sub
>>>
>>> Insomma, dopo che tutta una pagina è stata formattata, prima che essa
>>> venga stampata, predisponi nella sua intestazione il valore della
>>> casella di testo PageSum, ovvero il totale di pagina del campo Giacenza.
>>>
>>> Dopo sta faticata spero che sia quello che ti serve, in caso contrario
>>> spiegati meglio.
>>>
>>>>
>>>> Grazie!
>>>
>>> Prego
>>>
>>> --
>>> Roberto
>>>
>>>
>> Ciao Roberto, come al solito non perdi un colpo, appena scrivo...
>> immediata è la risposta! Grazie come sempre! Allora dopo la faticaccia, e
>> che faticaccia, la soluzione sembra essere la seconda, però ci deve
>> essere qualcosa che non quadra, perchè il risultato in alto è sempre 1 e
>> non quello del piè! Cerco di spiegarmi meglio...
>> Tabella 1
>> Campo A
>> Campo B
>> Campo C
>>
>> Tutti numerici, creo report con creazione guidata e alla fine nel piè
>> voglio il totale del campo A ma solo della pagina che visualizzo, quando
>> cambio pagina (es. la 2 -3 o 10), voglio solo il totale di quella pagina!
>> Il fatto è che il totale lo vorrei mettere in testa e non in piè! Spero
>> di essermi spiegato bene, quasi quasi come un paracadute... ;-)
>
> Tu ti sei spiegato, ma a quanto sembra non mi sono spiegato io.
> Il totale di pagina nel pié di pagina pagina lo hai realizzato nel tuo
> report?
> Sei andato a vedere l'esempio allegato alla FAQ 4.5 del Sito Comune?
> Se si, hai usato quella tecnica  per realizzare il totale di pagina nel
> Piè di pagina pagina?
> La soluzione che ti ho proposto funziona SOLO se lo hai fatto; per
> scrupolo ho testato quella soluzione proprio all'interno del database di
> esempio di cui sopra ed a me funziona egregiamente; ti invito a fare
> altrettanto ed una volta che verifichi che lì funzioni trasferisci quella
> tecnica all'interno del tuo report.
>
> Resta comunque il fatytto che, per avere i totali di pagina corretti
> nell'anteprima del report, è ASSOLUTAMENTE NECESSARIO che tu visualizzi
> TUTTE le pagine in sequenza e non saltellare da una all'altra: questo è
> necessario in quanto i totali vengono costruiti a fronte degli eventi di
> formattazione delle varie sezione quindi tutti i record delle pagine non
> visualizzate non partecipano alla formazione dei totali, ma questo è
> naturale ed intuitivo: naturalmente se esegui la stampa su carta del
> report non avrai invee alcuna complicazione, visto che la stampa viene
> eseguita tutta dall'inizio alla fine.ù
>
>>
>> Ciao e grazie ancora!
>
> Prego
>
> --
> Roberto
> -----------------------------------------------
> il Sito Comune di it.comp.appl.access
>
http://www.sitocomune.com
> -----------------------------------------------
>
>
Ciao Roberto, io non capisco perchè una stupida somma non debba venire
riportata nè sul piè nè in intestazione di pagina!!! Sono veramente bip bip
bip! Non mi riesce neppure fare questo! L'esempio l'ho visto, ma la tecnica
non riesco ad applicarla al mio problema. Per scrupolo, ti ho inviato l'mdb,
se vuoi puoi aprirlo, altrimenti buttalo via. Ho provato ad usare anche il
tuo codice di cui sopra, però quando sarà attivo l'mdb, avrò circa 30 campi
e non potrò per ogni campo fare tutto questo rigiro!
Ciao


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:zIxug.42732$_J1.5...@twister2.libero.it...

> Ciao Roberto, io non capisco perchè una stupida somma non debba venire
> riportata nè sul piè nè in intestazione di pagina!!! Sono veramente bip
> bip bip! Non mi riesce neppure fare questo! L'esempio l'ho visto, ma la
> tecnica non riesco ad applicarla al mio problema. Per scrupolo, ti ho
> inviato l'mdb, se vuoi puoi aprirlo, altrimenti buttalo via. Ho provato ad
> usare anche il tuo codice di cui sopra, però quando sarà attivo l'mdb,
> avrò circa 30 campi e non potrò per ogni campo fare tutto questo rigiro!
Naturalmente solo tu puoi sapere cosa puoi o non puoi fare nel tuo database;
resta però il fatto che non esistono nei report di Access delle opzioni che
ti permettano di ottenere senza "rigiri" totali di pagina nel pié di pagina
pagina e tantomeno nell'intestazione di pagina.
Ciò premesso, decidi tu quale strada prendere.
> Ciao



title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:1BIug.43145$_J1.5...@twister2.libero.it...

Ciao Roberto, scusa per il ritardo e scusa per la polemica, ma in quel
momento ero molto bip... Capito, vero?
Il discorso è che con Access, uno è abituato a fare di tutto, poi dopo per
una cosa che sembra davvero banale, non si riesce a ottenere in modo
semplice quello che sivuole e quindi ci si arrabbia! Ovviamente a chi non ha
pazienza e vuole sempre tutto (tipo me!). Comunque so che Access non è come
Excel e quindi non bisogna pretendere più di tanto, altrimenti si dovrebbe
migrare verso un foglio di lavoro! Comunque, ho provato altri sistemi e ci
sono quasi vicino, ho provato a mandarti una e-mail, ma mi è tornata
indietro. Potremmo discuterne insieme su una soluzione che avrei pensato?
Grazie per l'eventuale risposta!
Ciao


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:tR7vg.44938$_J1.5...@twister2.libero.it...
>
[CUT]
> Ciao Roberto, scusa per il ritardo e scusa per la polemica, ma in quel
> momento ero molto bip... Capito, vero?
>
> Il discorso č che con Access, uno č abituato a fare di tutto, poi dopo per
> una cosa che sembra davvero banale, non si riesce a ottenere in modo
> semplice quello che sivuole e quindi ci si arrabbia! Ovviamente a chi non
> ha pazienza e vuole sempre tutto (tipo me!). Comunque so che Access non č
> come Excel e quindi non bisogna pretendere piů di tanto, altrimenti si
> dovrebbe migrare verso un foglio di lavoro!
Non so cosa tu voglia dire con questa tua affermazione con tanto di punto
esclamativo.
Io riesco a fare molte ma molte piů cose con Access che con Excel specie per
quanto riguarda la gestione dei dati e delle stampe, quindi puoi comprendere
che non condivido affatto questa tua tassativa affermazione.
> Comunque, ho provato altri sistemi e ci sono quasi vicino, ho provato a
> mandarti una e-mail, ma mi č tornata indietro. Potremmo discuterne insieme
> su una soluzione che avrei pensato?
Certo che possiamo cercare una soluzione insieme al tuo problema, ma
esclusivamente qui sul NG e non con un dialogo in privato: sarebbe contro lo
spirito e le regole di questo NG.
>
> Grazie per l'eventuale risposta!
Prego



title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:V38vg.44961$_J1.5...@twister2.libero.it...

Roberto, il fatto č che non sono esperto in Access quanto in Excel, che
reputo sicuramente piů semplice e meno complesso per fare delle cose, ad
esempio dei totali di pagina (oggetto della discussione). Al punto
esclamativo, non badare, ovviamente č una autocritica. Per quanto riguarda
lo sviluppo,sicuramente volevo affrontarlo su questo Ng, soltanto che mi
resta veramente complicato spiegare tutto passaggio per passaggio, quello
che ho fatto. Comunque mi armo di tanta pazienza e ci provo:
Allora, ho creato un nuovo .mdb, ho creato una tabella con i campi:
Id - Contatore - chiave primaria
Campo1 - Numerico
Campo2 - Numerico
Campo3 - Numerico
Ho inserito dei numeri a caso nei 3 campi e con la composizione automatica
ho creato un report escludendo il campo Id. A questo punto, ho messo nel
corpo del report, una casella di testo chiamata Testo1 che ha come origine
controllo il Campo1 e su Somma Parziale ho messo Su Tutto. Ho inserito una
casella di testo chiamata Testo2 che ha come origine controllo =[Testo1]. A
questo punto mandando in esecuzione il report, ottengo sulla prima pagina il
totale a pič di pagina di quella pagina (scusa il gioco di parole) cioč 55,
mentre sulla seconda ottengo il totale della prima e della seconda pagina
cioč 72 (ovvero la somma parziale). Qui cominciano i guai... Perchč il primo
passo da fare secondo me č 72 - 55, in modo da lasciare sulla prima il 55
che č giusto mentre sulla seconda 17 che č il totale di quei record
visualizzati solo su quella pagina! Ho provato ancora a mettere un'altra
casella di testo sull'intestazione chiamata Testo3 e come origine controllo
=[Testo1], in modo da avere subito anche in intestazione il valore
precedente, ma cosě non č in quanto mi prende il primo numero della prima
riga del Campo1. Ho provato anche a dare uno sguardo alla 4.17 Creare il
totale di pagina ed il totale progressivo nel pič di pagina con il riporto
nell'intestazione pagina, ma non mi funziona, mi va in negativo. Dove
sbaglio?
Spero di essermi spiegato, anche se la cosa č stata un pň lunga....
Ciao


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:xYbvg.45367$_J1.5...@twister2.libero.it...

Allora!!
Partendo dal presupposto che hai creato con l'autocomposizione un report
basato sulla tua tabella di cui sopra.
Se nel corpo del report hai inserito anche una casella di testo non
associata chiamata Testo1 nella cui origine controllo hai scritto:
=[Campo1]
Se nella sezione del report Pié di pagina pagina hai inserito una casella di
testo non associata chiamata Testo2 in cui vuoi visualizzare il totale di
pagina.
Al contrario di quello che hai fatto, NON devi scrivere nulla nella sua
origine record.
Se nella sezione Intestazione di pagina hai inserito una casella di testo
non associata chiamata Testo3 in cui vuoi visualizzare il totale di riporto,
ovvero il totale progressivo sino a tutta la pagina precedente.
Anche in questo caso, al contrario di quello che hai fatto, NON devi
scrivere nulla nella sua origine record.
A questo punto, a fronte dell'evento "Su apertura" del report genera il
seguente codice VBA:
Private Sub Report_Open(Cancel As Integer)
x = 0
End Sub
Quindi a fronte dell'evento "Su stampa" della sezione Intestazione di pagina
genera il seguente codice VBA:
Private Sub IntestazionePagina_Print(Cancel As Integer,  _
        PrintCount As Integer)
If Page = 1 Then
    Me!Testo3.Visible = False
Else
    Me!Testo3.Visible = True
    Me!Testo3 = x
End If
End Sub
Inoltre a fronte dell'evento "Su stampa" della sezione Pié di pagina pagina
genera il seguente codice VBA:
Private Sub PičDiPaginaPagina_Print(Cancel As Integer,  _
        PrintCount As Integer)
If Page = 1 Then
    Me!Testo2 = Me!Testo1
Else
    Me!Testo2 = Me!Testo1 - x
End If
x = Me!Testo1
End Sub
Infine all'inizio del modulo di classe del report, prima di tutte le sub e
subito dopo le frasi:
Option Compare Database
Option Explicit
genera la seguente riga di codice VBA:
Dim x As Double
Tutto qui: dovrebbe funzionare.



title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:9OLvg.47333$_J1.5...@twister2.libero.it...
>
> "Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
> news:xYbvg.45367$_J1.5...@twister2.libero.it...
>>
>> "Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
>> news:V38vg.44961$_J1.5...@twister2.libero.it...
>>>
>>> "Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
>>> news:tR7vg.44938$_J1.5...@twister2.libero.it...
>>>>
>>> [CUT]
>>>> Ciao Roberto, scusa per il ritardo e scusa per la polemica, ma in quel
>>>> momento ero molto bip... Capito, vero?
>>>>
>>>> Il discorso è che con Access, uno è abituato a fare di tutto, poi dopo
>>>> per una cosa che sembra davvero banale, non si riesce a ottenere in
>>>> modo semplice quello che sivuole e quindi ci si arrabbia! Ovviamente a
>>>> chi non ha pazienza e vuole sempre tutto (tipo me!). Comunque so che
>>>> Access non è come Excel e quindi non bisogna pretendere più di tanto,
>>>> altrimenti si dovrebbe migrare verso un foglio di lavoro!
>>>
>>> Non so cosa tu voglia dire con questa tua affermazione con tanto di
>>> punto esclamativo.
>>> Io riesco a fare molte ma molte più cose con Access che con Excel specie
>>> per quanto riguarda la gestione dei dati e delle stampe, quindi puoi
>>> comprendere che non condivido affatto questa tua tassativa affermazione.
>>>
>>>> Comunque, ho provato altri sistemi e ci sono quasi vicino, ho provato a
>>>> mandarti una e-mail, ma mi è tornata indietro. Potremmo discuterne
>>>> insieme su una soluzione che avrei pensato?
>>>
>>> Certo che possiamo cercare una soluzione insieme al tuo problema, ma
>>> esclusivamente qui sul NG e non con un dialogo in privato: sarebbe
>>> contro lo spirito e le regole di questo NG.
>>>
>>>>
>>>> Grazie per l'eventuale risposta!
>>>
>>> Prego
>>>
>>>> Ciao
>>>
>>> --
>>> Roberto
>>> -----------------------------------------------
>>> il Sito Comune di it.comp.appl.access
>>>
http://www.sitocomune.com
>>> -----------------------------------------------
>>>
>>>
>>
>> Roberto, il fatto è che non sono esperto in Access quanto in Excel, che
>> reputo sicuramente più semplice e meno complesso per fare delle cose, ad
>> esempio dei totali di pagina (oggetto della discussione). Al punto
>> esclamativo, non badare, ovviamente è una autocritica. Per quanto
>> riguarda lo sviluppo,sicuramente volevo affrontarlo su questo Ng,
>> soltanto che mi resta veramente complicato spiegare tutto passaggio per
>> passaggio, quello che ho fatto. Comunque mi armo di tanta pazienza e ci
>> provo:
>>
>> Allora, ho creato un nuovo .mdb, ho creato una tabella con i campi:
>>
>> Id - Contatore - chiave primaria
>>
>> Campo1 - Numerico
>> Campo2 - Numerico
>> Campo3 - Numerico
>>
>> Ho inserito dei numeri a caso nei 3 campi e con la composizione
>> automatica ho creato un report escludendo il campo Id. A questo punto, ho
>> messo nel corpo del report, una casella di testo chiamata Testo1 che ha
>> come origine controllo il Campo1 e su Somma Parziale ho messo Su Tutto.
>> Ho inserito una casella di testo chiamata Testo2 che ha come origine
>> controllo =[Testo1]. A questo punto mandando in esecuzione il report,
>> ottengo sulla prima pagina il totale a piè di pagina di quella pagina
>> (scusa il gioco di parole) cioè 55, mentre sulla seconda ottengo il
>> totale della prima e della seconda pagina cioè 72 (ovvero la somma
>> parziale). Qui cominciano i guai... Perchè il primo passo da fare secondo
>> me è 72 - 55, in modo da lasciare sulla prima il 55 che è giusto mentre
>> sulla seconda 17 che è il totale di quei record visualizzati solo su
>> quella pagina! Ho provato ancora a mettere un'altra casella di testo
>> sull'intestazione chiamata Testo3 e come origine controllo =[Testo1], in
>> modo da avere subito anche in intestazione il valore precedente, ma così
>> non è in quanto mi prende il primo numero della prima riga del Campo1. Ho
>> provato anche a dare uno sguardo alla 4.17 Creare il totale di pagina ed
>> il totale progressivo nel piè di pagina con il riporto nell'intestazione
>> pagina, ma non mi funziona, mi va in negativo. Dove sbaglio?
>>
>> Spero di essermi spiegato, anche se la cosa è stata un pò lunga....

> Private Sub PièDiPaginaPagina_Print(Cancel As Integer,  _
>        PrintCount As Integer)
> If Page = 1 Then
>    Me!Testo2 = Me!Testo1
> Else
>    Me!Testo2 = Me!Testo1 - x
> End If
> x = Me!Testo1
> End Sub
>
> Infine all'inizio del modulo di classe del report, prima di tutte le sub e
> subito dopo le frasi:
>
> Option Compare Database
> Option Explicit
>
> genera la seguente riga di codice VBA:
>
> Dim x As Double
>
> Tutto qui: dovrebbe funzionare.
>
>>
>> Ciao
>
> --
> Roberto
> -----------------------------------------------
> il Sito Comune di it.comp.appl.access
>
http://www.sitocomune.com
> -----------------------------------------------
>
>
Ciao Roberto, grazie sempre per la tua cortesia! Però ti devo interrompere
nel senso che io a questo ci ero già arrivato, proprio vedendo altri post
precedenti al mio sul NG, quello che indendo ottenere è semplicementre il
totale della pagina a video (leggi attentamente i post precedenti), quello
che mi hai gentilmente suggerito è per avere il riporto della pagina
nell'intestazione di pagina. Io devo ottenere nell'iontestazione e nel piè
il totale di quella pagina. Provo a fare un esempio grafico:
Pagina1
Intestazione di pagina
Totale del Campo1 --->16
Corpo
Campo1
3
5
4
1
2
1
Piè di pagina
Totale del Campo1 --->16
Spero che così sia più chiaro, si potrebbe fare una sottrazione tra il
totale complessivo e il totale della pagina, ma non funziona, dà sempre lo
stesso valore.
Ciao


title: Numeri in Intestazione Pagina

text:
"Carlo" <
99ca...@hotmail.com
> ha scritto nel messaggio
news:LnOvg.47517$_J1.5...@twister2.libero.it...
[CUT]
>>
> Ciao Roberto, grazie sempre per la tua cortesia! Però ti devo interrompere
> nel senso che io a questo ci ero già arrivato, proprio vedendo altri post
> precedenti al mio sul NG, quello che indendo ottenere è semplicementre il
> totale della pagina a video (leggi attentamente i post precedenti),
[CUT]
Io li ho letti attentamente e l'unica cosa che si evidenzia è che sembra che
in un momento chiedi una cosa ed in un altro ne chiedi una diversa.
Ora però rileggili attentamente tu, in quanto il mio primo messaggio di
risposta, quello del 15/7/2006 ore 18:25, contiene la soluzione al tuo
problema.
Strano che una persona attenta come te non l'abbia capito subito.



title: Numeri in Intestazione Pagina

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:sL4wg.48534$_J1.5...@twister2.libero.it...

Ciao Roberto, grazie per l'ennesima risposta. Scusa se posso averti
minimamente offeso, facendoti rilevare che forse non avevi letto
attentamente i post precedenti, ma, mi sa che alla fine mi sono incartato
io, anzi sicuramente! Inizialmente, avevo espresso (secondo me) bene il
concetto di cosa intendevo realizzare, poi strada facendo mi sono
completamente distratto dal fatto che non mi riusciva neppure a fare il
totale nel piè di pagina, ed ecco la confusione. Adesso, mi sono
effettivamente letto tutti i post e sono finalmente riuscito con i tuoi
accorgimenti e quelli di Antogal, dell'esempio sul Sito Comune, a realizzare
quello di cui effettivamente ho bisogno. Devo ancora aggiungere, che per me
non è facile spiegarmi scrivendo cosa ho in mente, sarebbe veramente più
semplice se certe cose si potessero fare "parlandosi", ma ovviamente come
già hai precisato, sui NG questo non è fattibile!
Grazie ancora della pazienza e della cortesia.
Ciao
Carlo


title: reindirizzamento

author: Enzo

text:
Ciao a tutti, ho un piccolo problema ma non riesco a risolvere pur avendo
visto su sitocomune: ho una maschera nel quale mi viene calcolato il
codice fiscale, ma se clicco sul tasto calcola senza riempire i campi
"comune" "codicecomune" e "provincia" di da l'errore null, insomma vorrei
sapere come fare per far uscire ad esempio una pop-up che mi dica
"compilare...". Vi ringrazio anticipatamente. Ciao ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: reindirizzamento

author: Alessandro Cara

text:

sub Tastocalcola_click
.....
if "" & comune = "" then msgbox("metti er comune")
......
end sub
--
a.cara
Togli qualcosa dall'email


title: Password

author: Giampaolo :-)

text:
Salve a tutti;
Ho la necessità che l'utente di un Db digiti una password all'apertura del
Form_Esempio,
ma non si devono vedere i caratteri digitati: quale è il comando che dovrei
usare?
Grazie
Giampaolo


title: Password

author: omasnc

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:demFa.69510$pR3.1...@news1.tin.it...

Puoi impostare il colore del carattere della testbox uguale al colore di
sfondo.
Ciao
Galliano.


title: Password

text:
> Puoi impostare il colore del carattere della testbox uguale al colore di
> sfondo.
>
> Ciao
>
> Galliano.
>
>
Certo, però volevo un metodo un po' più.....
Grazie, comunque
Giamapolo


title: Password

author: Roberto da casa

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:demFa.69510$pR3.1...@news1.tin.it...

Imposta a Password la proprietà Maschera di input della casella di testo
dove l'utente deve digitare la password.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Password

text:
Il 10 Giu 2003, 19:18, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> news:demFa.69510$pR3.1...@news1.tin.it...
> > Salve a tutti;
> > Ho la necessità che l'utente di un Db digiti una password all'apertura
del
> > Form_Esempio,
> > ma non si devono vedere i caratteri digitati: quale è il comando che
> dovrei
> > usare?
> > Grazie
> > Giampaolo
>
> Imposta a Password la proprietà Maschera di input della casella di testo
> dove l'utente deve digitare la password.
>
> --
> Roberto
>
e se poi premi F7??
Buona serata Robi e a tutti, vado a festeggiare il mio compleanno. Ne compio
17. Adoro i Ng dove non potete verificare se è vero!!!!
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Password

author: SunRex

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...

Per evitarlo ci metti questo.
Auguri Massimiliano ;)
Sun Rex
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 Select Case KeyCode
        Case vbKeyF7
           KeyCode = 0
End Select
End Sub


title: Password

text:
> e se poi premi F7??
>
>
Che succede se premo f7 ?
a me fa il controllo ortografia ma onestamente non mi sembra che crei grossi
problemi...
Se mi manca qualche pezzo ditemelo !!!! :-)
Alex


title: Password

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...
> Il 10 Giu 2003, 19:18, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
> >
> > "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> > news:demFa.69510$pR3.1...@news1.tin.it...
> > > Salve a tutti;
> > > Ho la necessità che l'utente di un Db digiti una password all'apertura
> del
> > > Form_Esempio,
> > > ma non si devono vedere i caratteri digitati: quale è il comando che
> > dovrei
> > > usare?
> > > Grazie
> > > Giampaolo
> >
> > Imposta a Password la proprietà Maschera di input della casella di testo
> > dove l'utente deve digitare la password.
> >
> > --
> > Roberto
> >
>
> e se poi premi F7??
A me se pigio il tasto funzione F7 fa il controllo automatico, e a te??
>
>
> Buona serata Robi e a tutti, vado a festeggiare il mio compleanno. Ne
compio
> 17. Adoro i Ng dove non potete verificare se è vero!!!!
Se ieri è stato il tuo compleanno, anche se in ritardo, ti faccio gli
auguri, ma non capisco perché vuoi farci credere di essere un minorenne.
Anche se non ti vediamo non ci crede nessuno. ;-)
> MAssimiliano



title: Password

author: Mirko Parisi

text:
> a me fa il controllo ortografia ma onestamente non mi sembra che crei grossi
> problemi...
se la password č una parola non di senso compiuto, cme di solito accade,
il controllo ortografico te la mostra in chiaro nella finestra della
correzione.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Password

text:
>
> se la password č una parola non di senso compiuto, cme di solito accade,
> il controllo ortografico te la mostra in chiaro nella finestra della
> correzione.
>
Hai ragione, solo che io normalmente utilizzo password che utilizzano sia
lettere che numeri ed in tal caso non viene riportato in chiaro niente..
Ciao e grazie ( ed auguri a MA , anche se in ritardo)
Alex


title: Password

text:
...vari
Grazie a chi mi ha risposto... e Auguri a chi compie gli anni..
(Io ne ho qualcuno in più.....)
Giampaolo


title: Pricipiante

author: Alessandro

text:
Salve a tutti, mi sono avvicinato ad Access da poco tempo;
Sto cercando di fare un Db per il carico/scarico magazzino degli articoli
del mio negozio;
Ho creato ad Ok le tabelle di anagrafica prodotti e anagrafica
carico/scarico, ma ora sono fermo.
Man mano che proseguo nella creazione delle maschere mi sembra sempre piů
impossibile finire.
Vorrei sapere se posso portare a termine il mio lavoro senza avere nessuna
nozione di Vb.
Grazie.


title: Pricipiante

author: sittinghorse

text:
"Alessandro" <
music...@wind.it
> ha scritto nel messaggio
news:9ticiq$v7e$1...@nreada.inwind.it...
> Salve a tutti, mi sono avvicinato ad Access da poco tempo;
> Sto cercando di fare un Db per il carico/scarico magazzino degli articoli
> del mio negozio;
> Ho creato ad Ok le tabelle di anagrafica prodotti e anagrafica
> carico/scarico, ma ora sono fermo.
> Man mano che proseguo nella creazione delle maschere mi sembra sempre più



title: Pricipiante

text:
"Alessandro" <
music...@wind.it
> ha scritto nel messaggio
news:9ticiq$v7e$1...@nreada.inwind.it...
> Salve a tutti, mi sono avvicinato ad Access da poco tempo;
> Sto cercando di fare un Db per il carico/scarico magazzino degli articoli
> del mio negozio;
> Ho creato ad Ok le tabelle di anagrafica prodotti e anagrafica
> carico/scarico, ma ora sono fermo.
> Man mano che proseguo nella creazione delle maschere mi sembra sempre più
> impossibile finire.
> Vorrei sapere se posso portare a termine il mio lavoro senza avere nessuna
> nozione di Vb.
> Grazie.
>
> Gestire la movimentazione di un magazzino può essere a mio avviso un
compito
abbordabile anche con scarse conoscenze di vb se al  chiedi al tuo
applicativo un basso contenuto di automatizzazione. Mi spiego meglio se
tutto il tuo problema si esaurisce con semplici operazioni di carico,
scarico e tenuta della giacenza grossi problemi non sussistono (in questo
caso sei tu che gestisci tutto il resto dei problemi e cioè decidi tu a
quale fornitore inviare le richieste, decidi tu se esistono prodotti uguali
ma con nomi commerciali diversi, decidi tu quando la tua scorta ti sembra
carente, fai tu i conti per sapere quanto materiale riordinare e così via).
E' altrettanto vero che se al tuo applicativo richiedi un alto grado di
automatizzazione in modo che sia lui a gestire il tutto (limiti di allarme
scorte, compilazione automatizzata delle richieste per ripristino scorte,
gestione di uguali prodotti con nomi commerciali diversi, storico delle
richieste, fatturazione bolle e chi più ne ha più ne metta) troverari il
compito, alla luce della poca padronanza del codice, un po' arduo.
Io sto lavorando a un progetto di gestione magazzino completamente
automatizzato del tipo chi più ne ha più ne metta da agosto e ancora non ho
finito. (ti faccio presente che in tutto il progetto non una maschera, di
quelle che uso, è agganciata con l'autocomposizione ma è tutto gestito da
codice con metodo DAO).
Vedi un po' e in bocca al lupo.


title: azzerare DB con contatore

author: SuperPippo®

text:
salve a tutti...
ho costruito un db anagrafico e per fare delle prove ho inserito una
decina di record...
ora dovrei azzerarlo per far fare il suo lavoro al db...
secondo voi quale č la maniera + semplice e rapida per fare ciň senza
scombinare tutto ... considerando che nel db
esistono relazioni e moduli etc...
grazie per l'aiuto...


title: azzerare DB con contatore

author: Carlo Costarella

text:
"SuperPippo®" <cuccoT*O*G*L*I*S*P*A*
M...@libero.it
> ha scritto nel messaggio
news:mlsuh.8041$qN4.1...@twister1.libero.it...
> salve a tutti...
> ho costruito un db anagrafico e per fare delle prove ho inserito una
> decina di record...
> ora dovrei azzerarlo per far fare il suo lavoro al db...
> secondo voi quale è la maniera + semplice e rapida per fare ciò senza
> scombinare tutto ... considerando che nel db
> esistono relazioni e moduli etc...
> grazie per l'aiuto...
>
Elimina tutti i record e poi compatta il database con le tabelle...i campi
contatore ripartiranno da 1.
Ciao, Carlo


title: azzerare DB con contatore

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:epdk7v$ho3$1...@tdi.cu.mi.it...
>> secondo voi quale è la maniera + semplice e rapida per fare ciò senza
>> scombinare tutto ... considerando che nel db
>> esistono relazioni e moduli etc...
>> grazie per l'aiuto...
>
> Elimina tutti i record e poi compatta il database con le tabelle...i
> campi contatore ripartiranno da 1.
>
> Ciao, Carlo
----------------
grazie Carlo... sempre gentile e disponibile. :-))
Ciao Giuseppe


title: controllare gli indici univoci

author: Nicola

text:
Cia a tutti
nel db che sto realizzando, ho impostato un indice su 2 campi in modo che
non vengano inseriti record duplicati.
Sembra funzionare, ma avrei 2 domande da porvi.
1:
i 2 campi indicizzati si trovano all'inizio dell'inserimento, l'avviso di
record duplicato mi viene dato però sull'ultimo campo (tenete presente che i
campi indicizzati sono il 3° e il 4° su circa 20 record). E' possibile fare
un controllo direttamente sull'ultimo campo indicizzato evitando quindi di
inserire i restanti campi?
2:
Come si puo fare per personalizzare il messaggio di errore che si presenta
sul record duplicato?
ringrazio in anticipo
Nicola


title: controllare gli indici univoci

text:

Sperando nella mia e tua comprensione
Il messaggio viene emesso nel momento in cui avviene la scrittuara
fisica sulla tabella ed e' a carico del componente Jet, il quale e'
quello che "smanazza" effettivamente i dati.
Bisogna quindi fare un controllo "prima" che avvenga questo processo.
Se non erro l'evento interessato e' il "Form_beforeUpdate" che e' di
tipo cancellabile, indi, su tale evento, bisognerebbe fare un controllo
della presenza della chiave, per esempio, tramite dlookup ed in funzione
del ritorno di questa far proseguire il processo o emettere il messaggio
personalizzato con contemporanea cancellazione dell'evento.
--
a.cara
Togli qualcosa dall'email


title: access nella systray di windows o altro programma?

text:
forse non si riesce a mettere un db di access nella systray di windows ma
scondo voi č realizzabile un programmino che sia collegato ad una query di
un database di access e se la query non č vuota che il programmino
trovandosi nella systray all'accensione del pc mandi un messaggio al'utente
di aprire il database in quanto ci sono delle operazioni da fare sui record
della query in questione.
forse chiedo troppo?
grazie a tutti.


title: [OT] Statevene a casa!!!

author: Sergio MAZZA

text:
Ciao a tutti!
Come la state passando la giornata? A chi non guarda il calendario oggi è il
Giorno con la gi maiuscola: Venerdì 17!!!
Non ci credete a "queste cose"?
Io sì visto che puntualmente mi capita qualcosa; oggi per esempio:
sono uscito in mattinata per pagare dei debiti (tanto per cambiare!) e, cosa
molto insolita per me, sono andato alla posta.
Me la sono cavata con 30 min. di attesa; mmmhh! Gatta ci cova...
Mentre attendo per attraversare una Roma semi deserta, il semaforo pedonale
segna il giallo tendente al verde; ma sì! Mi decido; non passa nessuno,
faccio due passi e BOOOMM!!
Mi scivola ai piedi un motociclista...
E te pareva! Esclamo io!
Questo stava arrivando al semaforo; scatta il giallo un'auto si ferma; lui
era dietro la scarta e si accinge a passare l'incrocio, mi vede e decide di
frenare e slitta su una chiazza di olio... Si è fatto 5m in scivolata per
fermarsi davanti ai miei piedi.
Quasi mi veniva da ridere pensando a che giorno è oggi!
Per fortuna era una persona educata e non c'è stato nessun problema a
costatare il fatto e chiamati i vigili urbani, hanno fatto i rilevamenti e
lui di sua spontanea volontà è andato al pronto soccorso...
Come dicono a Napoli: Ha 'ddà passà a nuttata!
Ciao e buona giornata, se potete...


title: [OT] Statevene a casa!!!

author: AER

text:
Io in genere mi preoccupo per il Sabato 18. Normalmente il Venerdģ 17 mi va
piuttosto bene.:-)
Ciao, Massimiliano


title: [OT] Statevene a casa!!!

text:
Ah! Mi sono scordato di dire che il tizio che ha fatto il capitombolo č nato
di venerdě 17!!!
Senza parole...


title: [OT] Statevene a casa!!!

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9lio6r$5je$1...@canarie.caspur.it...

Azz!


title: [OT] Statevene a casa!!!

author: Roberto dal portatile

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9lio6r$5je$1...@canarie.caspur.it...
> Ah! Mi sono scordato di dire che il tizio che ha fatto il capitombolo è
nato
> di venerdì 17!!!
>
> Senza parole...
>
Sarà forse perché sto più attento a ciò che mi succede nei venerdì 17, ma
anche io ce ne ho da scrivere tutti in maiuscolo.
Di contro mi è rimasto in mente un esame di latino, dato di venerdì 17, che
mi è andato alla grande; è sicuramente l'eccezione che conferma la regola.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [OT] Statevene a casa!!!

author: Antonio Biso

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9lio6r$5je$1...@canarie.caspur.it...
> Ah! Mi sono scordato di dire che il tizio che ha fatto il capitombolo č
nato
> di venerdě 17!!!
Beh, allora la colpa č la sua che non se ne č stato a casa il giorno del suo
compleanno!!!
Eh eh eh
Antonio


title: [OT] Statevene a casa!!!

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:QPtf7.4160$i9.1...@news.infostrada.it...
>
> Beh, allora la colpa è la sua che non se ne è stato a casa il giorno del
suo
> compleanno!!!
> Eh eh eh
>
> Antonio
Già non ci avevo pensato...
Ciao.


title: Query di aggiornamento con verifica record

author: Andytre

text:
Ciao a tutti,
Vi espongo subito il mio problema:
Ho una query che mi deve aggiornare alcuni campi di una tabella temporanea
dove importo circa un migliaio di record per volta per poi accodarli ad un
altra tabella.
Vorrei fare un piccolo controllo di errore che mi verifichi se la query mi
aggiorna tutti i record confrontando il N° di righe della tabella ed il
relativo N° di righe risultante dalla query di aggiornamento.
Se i due numeri sono diversi vorrei far comparire un messaggio di errore
(con testo scritto da me) ed ovviamente arrestare la query o annullare
l'aggiornamento.
Grazie
--------------------------------
Inviato via
http://usenet.libero.it


text:
"Andytre" <
and...@tiscali.it
> ha scritto nel messaggio
news:217Z133Z224Z223Y...@usenet.libero.it...
> Ciao a tutti,
> Vi espongo subito il mio problema:
> Ho una query che mi deve aggiornare alcuni campi di una tabella temporanea
> dove importo circa un migliaio di record per volta per poi accodarli ad un
> altra tabella.
> Vorrei fare un piccolo controllo di errore che mi verifichi se la query mi
> aggiorna tutti i record confrontando il N° di righe della tabella ed il
> relativo N° di righe risultante dalla query di aggiornamento.
> Se i due numeri sono diversi vorrei far comparire un messaggio di errore
> (con testo scritto da me) ed ovviamente arrestare la query o annullare
> l'aggiornamento.
> Grazie
>
Prova ad utilizzare al posto di RunSQL il Metodo Execute....!!!
Ti passo un esempio preso dall'Help, che forse può
interessarti.........................................!
Sub RecordAggiornati()
 Dim dbs As Database, qdf As QueryDef
 Dim strSQL As String
 ' Restituisce il riferimento al database corrente.
 Set dbs = CurrentDb
 strSQL = "UPDATE Impiegati SET Posizione = " _
  & "'Rappresentante Anziano' " _
  & "WHERE Posizione = 'Rappresentante';"
 ' Crea il nuovo oggetto QueryDef.
 Set qdf = dbs.CreateQueryDef("AggiornaPosizioni", strSQL)
 ' Esegue QueryDef.
 qdf.Execute
 Debug.Print qdf.RecordsAffected
Set dbs = Nothing
End Sub
@Alex.


text:
Il 18 Mag 2003, 22:44, "@Alex" <
ik2...@libero.it
> ha scritto:
>
> "Andytre" <
and...@tiscali.it
> ha scritto nel messaggio
> news:217Z133Z224Z223Y...@usenet.libero.it...
> > Ciao a tutti,
> > Vi espongo subito il mio problema:
> > Ho una query che mi deve aggiornare alcuni campi di una tabella
temporanea
> > dove importo circa un migliaio di record per volta per poi accodarli ad
un
> > altra tabella.
> > Vorrei fare un piccolo controllo di errore che mi verifichi se la query
mi
> > aggiorna tutti i record confrontando il N° di righe della tabella ed il
> > relativo N° di righe risultante dalla query di aggiornamento.
> > Se i due numeri sono diversi vorrei far comparire un messaggio di errore
> > (con testo scritto da me) ed ovviamente arrestare la query o annullare
> > l'aggiornamento.
> > Grazie
> >
>
>
> Prova ad utilizzare al posto di RunSQL il Metodo Execute....!!!
>
> Ti passo un esempio preso dall'Help, che forse puň
> interessarti.........................................!
>
> Sub RecordAggiornati()
> Dim dbs As Database, qdf As QueryDef
> Dim strSQL As String
>
> ' Restituisce il riferimento al database corrente.
> Set dbs = CurrentDb
> strSQL = "UPDATE Impiegati SET Posizione = " _
> & "'Rappresentante Anziano' " _
> & "WHERE Posizione = 'Rappresentante';"
> ' Crea il nuovo oggetto QueryDef.
> Set qdf = dbs.CreateQueryDef("AggiornaPosizioni", strSQL)
> ' Esegue QueryDef.
> qdf.Execute
> Debug.Print qdf.RecordsAffected
>
> Set dbs = Nothing
> End Sub
>
>
> @Alex.
Si effettivamente sembra interessante.
Vediamo se ho capito bene.
Facendo cosě vado a verificare che venga aggiornato ogni campo altrimenti mi
vengono stampati i record non aggiornati.
Se č giusto ciň che ho dedotto posso utilizzare questo metodo anche se
aggiorno piů campi dello stesso record contemporaneamente e se cosě fosse
come modifico il codice ?
Grazie molte del suggerimento



title: scaricare un elenco di file da cartella ftp

author: mario rossi

text:
buongiorno a tutti

possiedo una cartella su spazio hosting di nome "filecsv"
all'interno ho N file di nome 001.csv, 002.csv.... 00N.csv

la mia domanda è:
posso scorrere il contenuto della cartella e finchè ci sono file scaricarli in locale?

grazie a tutti.


author: BFS

text:

ci sono vari modi
se non vuoi sbatterti più di tanto e non ti scoccia usare tool esterni
vedi questo

https://www.ncftp.com/ncftp/

e lo richiami da linea di comando con i parametri descritti qui

https://www.ncftp.com/ncftp/doc/ncftpget.html

altrimenti ci sono API dedicate, ocx etc

BFS


author: Ammammata

text:
Il giorno Wed 27 Jan 2021 06:44:08p, *mario rossi* ha inviato su
it.comp.appl.access il messaggio
news:64ad73b7-0776-4ea9...@googlegroups.com
. Vediamo
cosa ha scritto:

> posso scorrere il contenuto della cartella e finchè ci sono file
> scaricarli in locale?
>
>

io uso wget per scaricare interi siti (con ovvi e opportuni filtri su cosa
e quanto scaricare e quante copie precedenti conservare)

@echo off

rem Wget executable must be either a) in PATH, or b) in the same directory
as this batch file.

wget --directory-prefix="C:\VisualWget" --force-directories --output-
file="C:\VisualWget\
www.nbastats.net
\log.txt" --page-requisites --
progress="dot:mega" --recursive --timestamping --backups=99
"
www.nbastats.net
"

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


text:
Quì ci sono 2 esempi, uno per generare uno script da lanciare  che usa [ftp.EXE] solitamente nativo di Windows, e l'altro via API:

https://stackoverflow.com/questions/7737691/upload-file-via-ftp-from-excel-vba

Sono valide alternative all'uso di file esterni, ovviamente da valutare.

Saluti
@Alex


text:

Grazie a tutti per le risposte.


text:

nella pagina download ci sono vari file quale va scaricato per il download il server o il client? grazie.


title: nomi macro e nomi funzioni

author: Giuseppe

text:
salve
con le seguenti funzioni stampo le macro e i moduli presenti nel db:
--------------------
Dim db As Database, ctr As Container, doc As Document
Set db = CurrentDb
Set ctr = db.Containers("Scripts") 'set a variabile to the Macro container.
For Each doc In ctr.Documents
Debug.Print doc.Name
Next doc
-------------------
Dim db As Database, ctr As Container, doc As Document
Set db = CurrentDb
Set ctr = db.Containers("Modules") 'set a variabile to the Modules
container.
For Each doc In ctr.Documents
Debug.Print doc.Name
Next doc
--------------------
è possibile stampare ( Debug.Print )  i nomi e le azioni delle macro e i
nomi delle Funzioni e Sub presenti nei moduli ?
giuseppe


title: nomi macro e nomi funzioni

text:
"Giuseppe" <
ebq...@tin.it
> ha scritto nel messaggio
news:WrN_5.1969$ag5.1...@twister1.tin.it...



title: nomi macro e nomi funzioni

text:
"Giuseppe" <
ebq...@tin.it
> ha scritto nel messaggio
news:WrN_5.1969$ag5.1...@twister1.tin.it...

Scusate mi è partito il dito prima del cervello (quest'ultimo da un bel
pezzo!)...
Volevo rispondere che l'esempio che hai indicato ottieni già quello che
chiedi e nell'help alla voce 'Insieme Modules' puoi trovare un esempio di
lettura delle righe di codice. Per le macro non trovo nulla del genere
nell'help...
Ciao.


title: nomi macro e nomi funzioni

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:91kvqq$io0$1...@suite03.caspur.it...

Grazie ma purtroppo non riesco a stampare i nomi delle routine (Function o
Sub) presenti nei moduli.
Penso che sia possibile in quanto per le macro si può avere l'elenco dei
nomi per es. nella proprietà Azione nella personalizzazione delle barre dei
menù;
per le routine l'elenco appare es. in una macro , Azione: Esegui codice
Nome funzione: attraverso il Generatore di espressioni leggi l'elenco dei
nomi delle routine
a me necessita stampare i nomi con Debug.Print
Continuo la ricerca
   giuseppe


title: nomi macro e nomi funzioni

author: Nicola Ardito

text:
Giuseppe ha scritto nel messaggio ...
>salve
CUT
>è possibile stampare ( Debug.Print )  i nomi e le azioni delle macro e i
>nomi delle Funzioni e Sub presenti nei moduli ?
>
>giuseppe
>
Presa dall'help
Function TutteRoutine(strNomeModulo As String)
    Dim mdl As Module
    Dim lngConteggio As Long, lngConteggioDichiarazione As Long, lngI As
Long
    Dim strNomeRoutine As String, astrNomiRoutine() As String
    Dim intI As Integer, strMsg As String
    Dim lngR As Long
    ' Apre un oggetto Module specifico.
    DoCmd.OpenModule strNomeModulo
    ' Restituisce il riferimento all'oggetto Module.
    Set mdl = Modules(strNomeModulo)
    ' Conta le righe del modulo.
    lngConteggio = mdl.CountOfLines
' Conta le righe della sezione Dichiarazione contenuta nel modulo.
    lngConteggioDichiarazione = mdl.CountOfDeclarationLines
    ' Determina il nome della prima routine.
    strNomeRoutine = mdl.ProcOfLine(lngConteggioDichiarazione + 1, lngR)
    ' Inizializza una variabile contatore.
    intI = 0
    ' Ridimensiona la matrice.
    ReDim Preserve astrNomiRoutine(intI)
    ' Memorizza il nome della prima routine della matrice.
    astrNomiRoutine(intI) = strNomeRoutine
' Determina il nome della routine per ciascuna riga successiva alle
dichiarazioni.
    For lngI = lngConteggioDichiarazione + 1 To lngConteggio
        ' Confronta il nome della routine con il valore della proprietà
ProcOfLine.
        If strNomeRoutine <> mdl.ProcOfLine(lngI, lngR) Then
            ' Incrementa il contatore.
            intI = intI + 1
            strNomeRoutine = mdl.ProcOfLine(lngI, lngR)
            ReDim Preserve astrNomiRoutine(intI)
            ' Assegna nomi di routine univoci alla matrice.
astrNomiRoutine(intI) = strNomeRoutine
        End If
    Next lngI
    strMsg = "Routine nel modulo '" & strNomeModulo & "': " _
        & vbCrLf & vbCrLf
    For intI = 0 To UBound(astrNomiRoutine)
        strMsg = strMsg & astrNomiRoutine(intI) & vbCrLf
    Next intI
    ' Finestra di dialogo che elenca tutte le routine del modulo.
    MsgBox strMsg
End Function
Per le macro non so...
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: nomi macro e nomi funzioni

text:
"Nicola Ardito" <men...@NOSPAM.it> ha scritto nel messaggio
news:91hug8$fn1$1...@nread1.inwind.it...

ho effettuato parecchie ricerche ma la Proprietà ProcOfLine non sono
riuscito ad incrociala
grazie per la segnalazione
continuo le ricerche per i nomi delle macro
giuseppe


title: Access 2k, Win 2k e mySql. Errore dopo inattività

author: Riccardo M.

text:
Salve a tutti, avrei da proporvi una domanda.
Ho un problema che sinceramente non riesco a capire da cosa dipenda e come
risolverlo.
Proverò a spiegarmi.
Lavoro su di un pc con installato (come da oggetto) Windows 2000 e Access
2000.
Il database che ho creato, ha le tabelle su di un server Linux su database
MySQL.
Quando lascio aperto dei forms, e lascio il db inattivo per alcuni minuti
(alle volte anche 5-10)
alla pressione di qualsiasi tasto mi da il seguente errore:
"L'espressione su click immessa come impostazione della proprietà di evento
ha provocato il seguente errore:
Impossibile eseguire l'azione adesso.
*L'espressione non corrisponde al nome di una macro, di una funzione
definita dall'utente oppure a [Routine Evento].
*Si è verificato un errore durante la valutazione di una funzione, di un
evento o di una macro."
Premetto che questo errore lo da su tutti i pc con la mia stessa
configurazione, ma solo da quando ho anche io sul mio pc questa
configurazione software (in alcuni pc ancora con Win 98 ed Access 97 il
problema non sussiste).
Fino a poco tempo fa, sul mio pc avevo installato Win 98 e sia Access 97 che
Access 2000. Con quella configurazione sul mio pc, quando rilasciavo nuove
versione del programma, non si riscontrava mai questo tipo di problema,
neanche sugli altri pc con Win2k e Access 2k.
Quindi penso che il problema possa dipendere o da Access 2k o dal mio pc!
Avete qualche idea a riguardo?
grazie mille
Riccardo


author: Alex De Rossi

text:
"Riccardo M." <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:b3lgsm$ofl$1...@localhost.localdomain...

Hai controllato i riferimenti tipo Dao 3.6 se ha la spunta, perche con A2k
il riferimento primario e su Ado
Ciao
Alessandro


author: Federico Filippi

text:
Ho avuto un problema identico e lo risolto facendo ri-eseguire al frontend
una delle query sull'evento timer del form principale... in pratica ogni 30
sec. la query viene eseguita "rinfrescando" la connessione.
Saluti,
F. Filippi


text:
"Federico Filippi" <
f.filipp...@infonet2000srl.com
> ha scritto nel
messaggio news:h1u7a.333133$AA2.12...@news2.tin.it...

__________________
scusami, ma come?
su evento timer impostato a 30 secondi sui forms che mi da errore, faccio
aprire in modalità nascosta una query del db e la chiudo?
così intendi?
se così intanto ci provo.
ciao e grazie


text:
> Hai controllato i riferimenti tipo Dao 3.6 se ha la spunta, perche con A2k
> il riferimento primario e su Ado
>
> Ciao
> Alessandro
_______________
si la spunta c'č!
bye


text:
"Federico Filippi" <
f.filipp...@infonet2000srl.com
> ha scritto nel
messaggio news:h1u7a.333133$AA2.12...@news2.tin.it...

________________________
ho provato ad impostare un timer a 60000 (1 minuto), ma non cambia nulla!
non si blocca sempre, ma molto spesso.... prima ho provato e si è inchiodato
tutto
dopo 15 minuti.
spero che possa aiutarmi .
ciao
Riccardo


text:
> scusami, ma come?
> su evento timer impostato a 30 secondi sui forms che mi da errore, faccio
> aprire in modalità nascosta una query del db e la chiudo?
>
> così intendi?
> se così intanto ci provo.
>
> ciao e grazie
>
L'esempio che avevo fatto era direttamente collegato al form principale
dell'applicativo (c'è un conteggio eseguito via query). Prova ad inserire
qualcosa del genere... l'importante è che la query venga ri-eseguita
costantemente.
Cmq nn credo che la mia soluzione sia la più corretta semplicemente è stata
la più efficace, per me... in pratica ha funzionato al primo colpo...


author: Expo

text:
Federico Filippi wrote:
> L'esempio che avevo fatto era direttamente collegato al form principale
> dell'applicativo (c'�un conteggio eseguito via query). Prova ad inserire
> qualcosa del genere... l'importante �che la query venga ri-eseguita
> costantemente.
> Cmq nn credo che la mia soluzione sia la pi corretta semplicemente �stata
> la pi efficace, per me... in pratica ha funzionato al primo colpo...
A questo punto non è più conveniente aprire la connessione al db ogni volta
che bisogna effettuare un'operazione, echiudere subito dopo ?


title: Errore VBA 429 ( ... Segue)

author: Marco Antonioli

text:
Ciao a tutti
Ho provato a seguire i consigli che mi avete gentilmente offerto.
E se il problema persiste ?
Grazie
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Errore VBA 429 ( ... Segue)

author: ALESSANDRO Baraldi

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:465dd6137df00df75df...@mygate.mailgate.org...
> Ciao a tutti
> Ho provato a seguire i consigli che mi avete gentilmente offerto.
> E se il problema persiste ?
> Grazie
> MArco
Questo errore deriva solitamente dall'uso di CreateObject
quando l'oggetto è già esistente, ma non ricollego il vecchio
problema....!!!
Potresti per riprendere la cosa fare riferimento al Post originale
con la Data ed il Subject, oppure, brevemente riassumere.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Errore VBA 429 ( ... Segue)

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote in message
news:d89t7i$rg1$
1...@domitilla.aioe.org
> "Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
> news:465dd6137df00df75df...@mygate.mailgate.org...
> > Ciao a tutti
> > Ho provato a seguire i consigli che mi avete gentilmente offerto.
> > E se il problema persiste ?
> > Grazie
> > MArco
>
> Questo errore deriva solitamente dall'uso di CreateObject
> quando l'oggetto è già esistente, ma non ricollego il vecchio
> problema....!!!
>
> Potresti per riprendere la cosa fare riferimento al Post originale
> con la Data ed il Subject, oppure, brevemente riassumere.
>
> Ciao
Il Post iniziale (anche per confrontare le risposte di Karl e Roberto)
è di ieri.
Comunque:
Una procedura che funziona con A2K/W98 continua a funzionare con
A2003/WXP sul PC N°1. Sul PC N° 2 dove ho utilizzato lo stesso set di CD
(MS Action Pack) si blocca con l'errore VBA 429 - "Il componente ActiveX
non è in grado di creare l'oggetto" all'istruzione "if
Me("RicercaX").Form.RecordsetClone.RecordCount = 0 then" .



title: Errore VBA 429 ( ... Segue)

author: Alessandro Baraldi

text:
"Marco Antonioli" <
in...@echovr.it
> wrote in message
news:f5a263000e56fdd43c3...@mygate.mailgate.org
[CUT]
> Il Post iniziale (anche per confrontare le risposte di Karl e Roberto)
> è di ieri.
> Comunque:
> Una procedura che funziona con A2K/W98 continua a funzionare con
> A2003/WXP sul PC N°1. Sul PC N° 2 dove ho utilizzato lo stesso set di CD
> (MS Action Pack) si blocca con l'errore VBA 429 - "Il componente ActiveX
> non è in grado di creare l'oggetto" all'istruzione "if
> Me("RicercaX").Form.RecordsetClone.RecordCount = 0 then" .
> Grazie
> MArco
Perchè non hai proseguito il 3D originale...??
Cosa sarebbe RicercaX ..?
Ciao
@Alex



title: Errore VBA 429 ( ... Segue)

author: Giovanna Pellegri

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:392f2131fda192673b...@mygate.mailgate.org

> Perchè non hai proseguito il 3D originale...??
> Cosa sarebbe RicercaX ..?
>
> Ciao
> @Alex
Mi sono illuso di aver risolto, ho ringraziato in anticipo, pensavo
 che nessuno ci sarebbe tornato ...
RicercaX è il nome di una sottomaschera il cui recordsource carico in
maniera "dinamica" costruendolo in base a parametri tipo nome tabella,
campi da elencare, condizioni ....
Grazie+
MArco



title: Errore VBA 429 ( ... Segue)

text:
> Mi sono illuso di aver risolto, ho ringraziato in anticipo, pensavo
>  che nessuno ci sarebbe tornato ...
Essendo molto recente  ci si torna tranquillamente....!
> RicercaX č il nome di una sottomaschera il cui recordsource carico in
> maniera "dinamica" costruendolo in base a parametri tipo nome tabella,
> campi da elencare, condizioni ....
Premetto che non ho letto il precedente, hai verificato eventuali
Riferimenti
mancanti....? Immagino di si..!
Hai provato a compilare per verificare errori di Codice...?
Hai provato la cosa piů stupida, metti il RecordSource della SubForm
fisso, e vedi se il problema persiste, nel caso non ci sia piů l'errore
č da cercare nella parte di assegnazione dinamica che non hai postato.
> Grazie+
> MArco
Ciao



title: Errore VBA 429 ( ... Segue)

text:
> Premetto che non ho letto il precedente, hai verificato eventuali
> Riferimenti
> mancanti....? Immagino di si..!
> Hai provato a compilare per verificare errori di Codice...?
> Hai provato la cosa più stupida, metti il RecordSource della SubForm
> fisso, e vedi se il problema persiste, nel caso non ci sia più l'errore
> è da cercare nella parte di assegnazione dinamica che non hai postato.
Non Capisco + Niente !!!!!
Riassunto p.p. :
- In un mdb ho referenziato n mde.
- In 1 di questi mde ho riscontrato il problema "429".
- Ho seguito i vari consigli contenuti nei 2 3D da me (erroneamente!)
  aperti. Niente.
Novità :
- Per mettere in pratica l'ultimo tuo consiglio (RescordSource) ho
  debuggato il codice per remmare e fissare e nn ho ricevuto errori.
- Ho provato ad eseguire da mdb senza debug e nn ho ricevuto errori.
- Ho creato mde e da qui ho eseguito e nn ho ricevuto errori.
- Ho eseguito in condizioni normali e funziona !
Boh!
Ciao+



title: Access + Terminal server + Browser web

author: RobertoA

text:
Sto lavorando su un progetto dove alcune funzionalita' di una procedura
Access vengono usate via TsPlus
In pratica con uno smartphone, avvio un browser web (nel mio caso Chrome
su Android o Safari su iOs), mi collego con una sessione di TsPlus che
gira sul pc dove e' installato il programma realizzato con Access e uso
alcune schermate per inserire dati e visualizzare informazioni
Una schermata prevede l'inserimento di una firma ottenuta usando un
controllo image e la classe clsPictureBox di Lebans

http://www.lebans.com/imageclass.htm

Il problema sta nella funzionalita' del browser, che quando l'operatore
visualizza la schermata firma col controllo image ed inizia a strisciare
il dito a schermo, fa si che tutta la form si sposti invece di tenere
ferma la form e consentire la strisciata col dito, come servirebbe in
quella schermata
Quindi il programma di suo non c'entra niente, funziona correttamente
E' la funzionalita' precisa del browser che sposta la form interpretando
il comando dell'operatore come un 'trascina' al posto di uno 'striscia'
Avete idea, mantenendo fermo l'utilizzo del programma via browser web,
di come posso risolvere?
Ciao e grazie


title: Access + Terminal server + Browser web

text:

hai provato ad usare il controllo per disegnare la firma direttamente
fornito da microsoft?

Microsoft InkEdit Controlo 1.0 ?

magari si comporta meglio.

Altrimenti se si tratta di compilare qualche casellina e fare una firma
potresti valutare di fare una app con android studio

ciao
BFS


title: Access + Terminal server + Browser web

text:

Ringrazio per la risposta, ma forse non sono stato chiaro nell'esporre
il problema
Il problema non sta nella procedura Access, se usata da pc desktop
funziona correttamente, anche via browser tipo Firefox o Chrome
Il problema sta nei browser dei device mobile, che hanno dei meccanismi
per vedere 'una zona' della pagina web, e strisciando sposti il focus su
altra zona
E' questo che intralcia lo strisciare del dito
Quando strisci il dito si sposta tutto, invece di 'pitturare' l'image
Ci vorrebbe un comando per bloccare il pan dx-sx-alto-basso, in modo che
la strisciata venga 'compresa' correttamente dal software
E ciao


title: Access + Terminal server + Browser web

text:

perchè al server terminal non ti colleghi con la app fatta apposta da
Microsoft? Microsoft Remote desktop. E' gratis per tutti i dispositivi e
non presenete l'effetto scroll di cui parli. Ovvio che il browser sposta
tutto quando muovi il dito...è fatto apositamente per quello

ciao
BFS


title: Access + Terminal server + Browser web

text:

Perche' se trovassi soluzione al sistema via browser, tutto
funzionerebbe senza installare niente di niente lato client
Col client per terminal server, qualcosina bisogna configurare
Ma esiste il client anche per sistemi iOs ?


title: Access + Terminal server + Browser web

text:

certo
https://itunes.apple.com/us/app/microsoft-remote-desktop/id714464092?mt=8

tempo installazione 5 secondi:
configurazione, il tempo di inserire ip user e psw
e funziona pure bene visto che è fatto apposta per queste cose

ciao


title: Access + Terminal server + Browser web

text:

Non conoscevo, molte grazie
Appena mi capita un iOs sottomano lo provo


title: Access + Terminal server + Browser web

text:

se hai android è identico
ciao


title: Access + Terminal server + Browser web

text:

Allora appena mi capita un Android sottomano lo provo
(chhhh, chhhh, chhhh.....)


title: CASELLA RIEPILOGO CON CAMPI NULL

text:
Buongiorno,
ho creato 7 caselle riepilogo per filtrare i dati.
Il problema è se un campo della listbox è null il programma si pianta senza dare il risultato nel campo memo.
Come posso gestire i campi null?
Grazie del vs. aiuto
----------
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
    DoCmd.Maximize
    Me.CDC = Null
    Me.Testo = Null
    Me.lstPROCESSI = Null
    Me.lstAppl = Null
    Me.lstSOTTOPROCESSI = Null
    Me.lstSP1 = Null
    Me.lstSP2 = Null
    Me.lstSP3 = Null
    Me.lstSP4 = Null
End Sub

Private Sub lstPROCESSI_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstAppl.Requery
    Me.lstSOTTOPROCESSI.Requery
    Me.lstSP1.Requery
    Me.lstSP2.Requery
    Me.lstSP3.Requery
    Me.lstSP4.Requery
End Sub
Private Sub lstAppl_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstSOTTOPROCESSI.Requery
    Me.lstSP1.Requery
    Me.lstSP2.Requery
    Me.lstSP3.Requery
    Me.lstSP4.Requery
End Sub
Private Sub lstSOTTOPROCESSI_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstSP1.Requery
    Me.lstSP2.Requery
    Me.lstSP3.Requery
    Me.lstSP4.Requery
End Sub

Private Sub lstSP1_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstSP2.Requery
    Me.lstSP3.Requery
    Me.lstSP4.Requery
End Sub

Private Sub lstSP2_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstSP3.Requery
    Me.lstSP4.Requery
End Sub
Private Sub lstSP3_AfterUpdate()
    Me.CDC = Null
    Me.Testo = Null
    Me.lstSP4.Requery
End Sub

Private Sub lstSP4_AfterUpdate()
    Me.CDC = Me.lstSP4.Column(1)
    Me.Testo = DLookup("rispo", "dati", "SP4=" & Chr(34) & Me.lstSP4 & Chr(34))
End Sub


title: tasto Indici

author: Giancarlo Ramon

text:
Salute a tutti
Devo creare un indice multiplo e non so come fare.
Ho aggiunto il tasto ai comandi, ma quando apro
una tabella non si accende
Mi potete aiutare?
Grazie Giancarlo


title: tasto Indici

author: antonio

text:
"Giancarlo Ramon" <
gra...@alice.it
> ha scritto nel messaggio
news:48f60b05$0$41660$4faf...@reader4.news.tin.it...

Sinceramente non capisco cosa possa voler dire aggiungere un tasto ai
comandi nè tantomeno capisco cosa si dovrebbe accendere. Forse se cerchi di
essere più chiaro, sicuramente qualcuno ti potrà aiutare.
Ciao
Antonio


title: tasto Indici

text:
Formulo la richiesta in altra maniera
Dovendo creare un indice multiplo, come devo fare
considerando che il tasto degli indici non esiste ?
grazie
"antonio" <
anto...@tiscali.it
> ha scritto nel messaggio
news:48f63017$0$14491$5fc...@news.tiscali.it...



title: tasto Indici

author: Carlo Costarella

text:
"Giancarlo Ramon" <
gra...@alice.it
> ha scritto nel messaggio
news:48f60b05$0$41660$4faf...@reader4.news.tin.it...

Con una tabella in visualizzazione struttura dovresti avere la barra
"Struttura tabella".
Se non c'č puoi farla riapparire scegliendo "Personalizza", usando il tasto
dx del mouse su uno dei menů o icone.
In personalizza puoi anche scegliere "Comandi" e quindi "Struttura tabella"
e infine, a dx, le icone di "Indici" e "Chiave primaria" che vanno
trascinati sulla barra dei menů.
In ultimo puoi agire da codice...ma č un po' piů difficile.
Ciao, Carlo


title: tasto Indici

author: Alessandro Cara

text:
Giancarlo Ramon ha scritto:
Per favore rispondi dopo il quote
> Formulo la richiesta in altra maniera
> Dovendo creare un indice multiplo, come devo fare
> considerando che il tasto degli indici non esiste ?
> grazie
Il tasto (icona) indici esiste. Nel pannello struttura tabella e'
identificato dal fulminetto tasto adiacente a qullo "chiavetta" (primaryKey)
--
ac


title: tasto Indici

text:
Carlo Costarella ha scritto:
[cut]
> Con una tabella in visualizzazione struttura dovresti avere la barra
> "Struttura tabella".
> Se non c'è puoi farla riapparire scegliendo "Personalizza", usando il tasto
> dx del mouse su uno dei menù o icone.
> In personalizza puoi anche scegliere "Comandi" e quindi "Struttura tabella"
> e infine, a dx, le icone di "Indici" e "Chiave primaria" che vanno
> trascinati sulla barra dei menù.
> In ultimo puoi agire da codice...ma è un po' più difficile.
sorry, non avevo visto la tua risposta. Oltretutto piu' completa.
--
ac


title: Errore in SECONDA ESPORTAZIONE in WORD

text:
Incomincio col ringraziare chiunque si possa prodigare... :-)
Partendo dall'esempio su StitoComune ho creato il codice qui sotto...
PROBLEMA:
prima esportazione tutto ok
seconda esportazione dalla stessa maschera se word è aperto OK
seconda esportazione da stessa maschera  ma chiusa e riaperta OK
seconda esportazione dalla stessa maschera se word è chiuso mi dà
errore di run time 462 il computer server remoto non esiste on non è
disponibile
anche se word lo apre il segnalibro lo trova, ma poi si blocca alla
riga successiva
Private Sub EsportaGruppiOmogenei_Click()
Me.GruppiOmogenei.SetFocus
Dim Wrd As Word.Application, Doc As Word.Document
Dim RstDatiDitta As New ADODB.Recordset
Dim CNDatiDitta As New ADODB.Connection
Dim stringaSQLDatiDitta As String
Dim Modello As String
Dim NomeFile As String
Dim Record As String
'Trova il nome, completo di percorso, del modello word
'("Relazione base fono626.dot" nella stessa cartella del database)
    Modello = CurrentDb.Name
    Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &
"Relazione base fono626.dot"
    On Error Resume Next 'gestione errori step by step
    'cerca un'istanza di Word già aperta
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        'se c'è stato un errore è perchè Word non era già aperto:
        'aprilo adesso
        Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori
    'rendi visibile la finestra di Word:
    Wrd.Visible = True
    'attiva Word e portalo in primo piano:
    Wrd.Activate
    'Apri un nuovo documento basato sul modello:
    Set Doc = Wrd.Documents.Add(Modello)
    'attivalo e portalo in primo piano:
    Doc.Activate
 ' trovo i dati della ditta
Set RstDatiDitta = New ADODB.Recordset
Set CNDatiDitta = CurrentProject.Connection
stringaSQLDatiDitta = "SELECT T_Anagrafica.IdAnagrafica,
T_Anagrafica.DITTA, T_Anagrafica.ViaSedeLegale,
T_Anagrafica.N_CivicoSedeLegale, T_Anagrafica.CAPSedeLegale,
T_Anagrafica.CittaSedeLegale, T_Anagrafica.ViaSedeOperativa,
T_Anagrafica.N_CivicoSedeOperativa, T_Anagrafica.CAPSedeOperativa,
T_Anagrafica.CittaSedeOperativa, T_Anagrafica.Telefono1,
T_Anagrafica.Fax, T_Anagrafica.P_IVA, T_Anagrafica.DatoreDiLavoro,
T_Anagrafica.RSPP, T_Anagrafica.RLS, T_Anagrafica.Medico FROM
T_Anagrafica WHERE (((T_Anagrafica.IdAnagrafica)=" &
Me.Id_Anagrafica_GruppiOmogenei & "));"
RstDatiDitta.Open stringaSQLDatiDitta, CNDatiDitta, adOpenKeyset,
adLockOptimistic
RstDatiDitta.MoveLast
RstDatiDitta.MoveFirst
    'cerco il segnalibro "Ditta"
    Wrd.Selection.GoTo What:=wdGoToBookmark, Name:="Ditta"
    Selection.MoveLeft unit:=wdWord, Count:=1
    Selection.Font.Bold = True
    If Not IsNull(RstDatiDitta(1)) Then
    Selection.TypeText Text:=RstDatiDitta(1)
    Else: Selection.TypeText Text:="______________________"
    End If
    'avvisa l'utente che l'esportazione è terminata
    Wrd.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
    'azzera le variabili oggetto
    Set Doc = Nothing
    Set Wrd = Nothing


title: Errore in SECONDA ESPORTAZIONE in WORD

text:
On 12 Mag, 19:32,
a...@libero.it
 wrote:
Mi correggo seconda esportazione con WORD chiuso mi da sempre e
comunque errore


title: Errore in SECONDA ESPORTAZIONE in WORD

text:
<
al...@libero.it
> ha scritto nel messaggio
news:1178991136.2...@o5g2000hsb.googlegroups.com...





Private Sub EsportaGruppiOmogenei_Click()
Me.GruppiOmogenei.SetFocus














------------------  RISPOSTA  -----------------
Prova a referenziare tutti i selection che non fanno riferimento esplicito
ad un oggetto.
Mi spiego meglio: vedo scritto "Selection.MoveLeft..." questa istruzione
falla diventare "Wrd.Selection.MoveLeft..." e così per tutte le altre
istruzioni che non fanno esplicito riferimento all'oggetto Wrd.
Ciao
Antonio


title: Errore in SECONDA ESPORTAZIONE in WORD

text:
On 13 Mag, 07:06, "antonio" <
antonewsgr...@tiscali.it
> wrote:
> <
a...@libero.it
> ha scritto nel messaggionews:1178991136.2...@o5g2000hsb.googlegroups.com...

Carissimo Antonio,
10 e LODE!!!!!!!!!!!!!!!!!!!!!!!!!
Funziona! Grazie ancora.
F.


title: Accodare tabella contenuta su un altro db

author: pang

text:
Mi occorre accodare tutti i record di una tabella contenuta su un altro
database - da codice - senza prima importarla.
Il database da cui accodare la tabella è 009.mdb e la tabella che dovrò
accodare è 'tabella1'
La tabella del database corrente su cui accodare si chiama anch'essa
'tabella1'
E con questo, grazie anche al vostro aiuto, avrei finito.
Grazie, pang.


author: Alex NSB

text:
> Mi occorre accodare tutti i record di una tabella contenuta su un
> altro database - da codice - senza prima importarla.
>
> Il database da cui accodare la tabella è 009.mdb e la tabella che
> dovrò accodare è 'tabella1'
>
> La tabella del database corrente su cui accodare si chiama anch'essa
> 'tabella1'
Crea un collegamento a Tabella1 sul database corrente chiamato, ad esempio,
Tabella11.
Quindi:
INSERT INTO Tabella1 (campo1, campo2, ...) SELECT campo1, campo2,... FROM
Tabella11;
HTH.
Alessandro


title: formattazione condizionale con piu di tre valori

author: Fabio - Eurostar_italia

text:
Perdonate la banalità,ma vorrei creare un report in cui uno dei campi viene
formattato condizionalmente con PIU di 3 condizioni (le predefinite di
access 2003)
mi hanno detto di procedere con una select manuale.
ma i campi di un report come vengono considerati ? txt box,txt_area ecc ?
sinceramente non ho mai lavorato con access in questo modo.
tks


author: Sergio MAZZA

text:
"Fabio - Eurostar_italia" <
st...@e646.it
> ha scritto nel messaggio news:4621444a$0$4784$4faf...@reader4.news.tin.it...

Sul report non ci sono campi (questi sono parte della tabella/query) ci sono controlli; e di solito sono caselle di testo.
Se vuoi formattare la casella in base a valori(condizioni) stabiliti(e) da te, gestisci l'evento "su formattazione" della sezione
(es. Corpo) che contiene la casella, inserendoci il codice VBA con il select case...
Ciao.
--
Sergio MAZZA


text:
> Sul report non ci sono campi (questi sono parte della tabella/query) ci
> sono controlli; e di solito sono caselle di testo.
> Se vuoi formattare la casella in base a valori(condizioni) stabiliti(e) da
> te, gestisci l'evento "su formattazione" della sezione (es. Corpo) che
> contiene la casella, inserendoci il codice VBA con il select case...
>
esatto ma (perdona l'ignoranza) che inserisco ?
il report ha i campi LOCALITA,LINEA,LINEA_CO,ZONA
 select case ........
case LOCALITA.TXTBOX = 1
        localita.txtbox ???