text:
Gianni has brought this to us :

Il campo Note è una storia lunga... non so come importarlo.
Gli altri... spero d'averci preso!

Sostituisci nella procedura il For Each... Next con:
====================================================
For Each i In Kontact.Items
    RS.AddNew
    ' Nome
    RS![Title] = i.Title
    RS![FirstName] = i.FirstName
    RS![LastName] = i.LastName
    RS![JobTitle] = i.JobTitle
    ' Telefono
    RS![PrimaryTelephoneNumber] = i.PrimaryTelephoneNumber
    RS![MobileTelephoneNumber] = i.MobileTelephoneNumber
    RS![OtherTelephoneNumber] = i.OtherTelephoneNumber
    RS![HomeTelephoneNumber] = i.HomeTelephoneNumber
    RS![Home2TelephoneNumber] = i.Home2TelephoneNumber
    RS![BusinessTelephoneNumber] = i.BusinessTelephoneNumber
    RS![Business2TelephoneNumber] = i.Business2TelephoneNumber
    ' FAX
    RS![HomeFaxNumber] = i.HomeFaxNumber
    RS![BusinessFaxNumber] = i.BusinessFaxNumber
    RS![OtherFaxNumber] = i.OtherFaxNumber
    ' eMail
    RS![Email1Address] = i.Email1Address
    RS![Email2Address] = i.Email2Address
    RS![Email3Address] = i.Email2Address
    ' Indirizzo
    RS![HomeAddress] = i.HomeAddress
    RS![HomeAddressStreet] = i.HomeAddressStreet
    RS![HomeAddressCity] = i.HomeAddressCity
    RS![HomeAddressPostalCode] = i.HomeAddressPostalCode
    RS![HomeAddressState] = i.HomeAddressState
    RS![HomeAddressCountry] = i.HomeAddressCountry
    RS![BusinessAddress] = i.BusinessAddress
    RS![BusinessAddressStreet] = i.BusinessAddressStreet
    RS![BusinessAddressCity] = i.BusinessAddressCity
    RS![BusinessAddressState] = i.BusinessAddressState
    RS![BusinessAddressCountry] = i.BusinessAddressCountry
    RS![BusinessAddressPostalCode] = i.BusinessAddressPostalCode
    RS![OtherAddress] = i.OtherAddress
    RS![OtherAddressStreet] = i.OtherAddressStreet
    RS![OtherAddressCity] = i.OtherAddressCity
    RS![OtherAddressPostalCode] = i.OtherAddressPostalCode
    RS![OtherAddressState] = i.OtherAddressState
    RS![OtherAddressCountry] = i.OtherAddressCountry
    ' Varie
    RS![WebPage] = i.WebPage
    RS![CompanyName] = i.CompanyName
    RS![PersonalHomePage] = i.PersonalHomePage
    RS![FileAs] = i.FileAs
    '
    RS.Update
Next
===================================================

... e ricostruisci la tabella OutlookContacts con 39 campi
i cui nomi sono quelli contenuti in RS![xxx], Text(255),
AllowZeroLength = YES

Buon divertimento.

Bruno


title: Access 2010 - Importare contati da outlook 2010

author: Gianni

text:
Il Tue, 04 Nov 2014 18:22:30 +0100, Bruno Campanini <
brun...@libero.it
> ha scritto:

>Gianni has brought this to us :
>> Il Tue, 04 Nov 2014 01:52:07 +0100, Bruno Campanini <
brun...@libero.it
> ha
>> scritto:
>>
>>> Gianni was thinking very hard :
>>>> Il Mon, 03 Nov 2014 00:59:22 +0100, Bruno Campanini <
brun...@libero.it
> ha
>>>> scritto:
>> ...CUT
...CUT
>
>Il campo Note è una storia lunga... non so come importarlo.
>Gli altri... spero d'averci preso!
>
>Sostituisci nella procedura il For Each... Next con:
>====================================================
>For Each i In Kontact.Items
>    RS.AddNew
>    ' Nome
>    RS![Title] = i.Title
>    RS![FirstName] = i.FirstName
...CUT
>    RS![WebPage] = i.WebPage
>    RS![CompanyName] = i.CompanyName
>    RS![PersonalHomePage] = i.PersonalHomePage
>    RS![FileAs] = i.FileAs
>    '
>    RS.Update
>Next
>===================================================
>
>... e ricostruisci la tabella OutlookContacts con 39 campi
>i cui nomi sono quelli contenuti in RS![xxx], Text(255),
>AllowZeroLength = YES
>
>Buon divertimento.
>
>Bruno
Quando mi hai risposto per la prima volta, nel commento della seconda dicevi di aver fatto come la
gatta frettolosa... Ebbene, mi é capitata la stessa cosa.
Mi hai passato il link dei Contact Members, ho fatto una prova troppo preso dall'ansia ed è andata
male. Invece la risposta ERA LI': mi ero semplicemente dimenticato di aggiornare la mia tabella e
per quello non riuscivo a caricare gli altri campi. Ora, ovviamente, sono stato più accorto e potrei
importare TUTTI i campi di Outlook ammesso che mi servano proprio tutti.
Per quanto riguarda il campo NOTE se non ci sei riuscito tu non credo possa farlo io, ma proverò a
cercare.
Quindi grazie, grazie davvero per l'ottimo suggerimento.
Gianni


author: Bruno Campanini

text:
It happens that Gianni formulated :

> Quando mi hai risposto per la prima volta, nel commento della seconda dicevi
> di aver fatto come la gatta frettolosa... Ebbene, mi é capitata la stessa
> cosa. Mi hai passato il link dei Contact Members, ho fatto una prova troppo
> preso dall'ansia ed è andata male. Invece la risposta ERA LI': mi ero
> semplicemente dimenticato di aggiornare la mia tabella e per quello non
> riuscivo a caricare gli altri campi. Ora, ovviamente, sono stato più accorto
> e potrei importare TUTTI i campi di Outlook ammesso che mi servano proprio
> tutti. Per quanto riguarda il campo NOTE se non ci sei riuscito tu non credo
> possa farlo io, ma proverò a cercare. Quindi grazie, grazie davvero per
> l'ottimo suggerimento. Gianni

Il campo "Notes" non è come gli altri di cui parliamo un "Member"
di "ContactItem".
Le uniche procedure che ho trovato in rete sono in C# che io
non conosco e che comunque, nella circostanza, non m'interessa.

Ma io non sono un buon cane da tartufo: non trovo mai niente...

Bruno


text:
Il giorno mercoledì 5 novembre 2014 11:13:32 UTC+1, Bruno Campanini ha scritto:

> Ma io non sono un buon cane da tartufo: non trovo mai niente...

Io peggio di te, ma MOLTO peggio :-)


text:
radica...@gmail.com
 presented the following explanation :

Final release:
abbiamo anche il campo Note e crea la tabella coi 40 campi.
============================================================
Private Sub Command1_Click()
Dim Kontact As Outlook.Folder, n As Integer, j As Integer
Dim i As ContactItem, appOutlook As Outlook.Application, NewField As
Field
Dim RS As Recordset, TableName As String, NewTab As TableDef

'---  Definizioni
----------------------------------------------------------------
TableName = "OutlookContacts"
n = 40
ReDim CT(1 To 2, 1 To n)
CT(1, 1) = "Title":                         CT(1, 2) = "FirstName"
CT(1, 3) = "LastName":                      CT(1, 4) = "JobTitle"
CT(1, 5) = "PrimaryTelephoneNumber":        CT(1, 6) =
"MobileTelephoneNumber"
CT(1, 7) = "OtherTelephoneNumber":          CT(1, 8) =
"HomeTelephoneNumber"
CT(1, 9) = "Home2TelephoneNumber":          CT(1, 10) =
"BusinessTelephoneNumber"
CT(1, 11) = "Business2TelephoneNumber":     CT(1, 12) = "HomeFaxNumber"
CT(1, 13) = "BusinessFaxNumber":            CT(1, 14) =
"OtherFaxNumber"
CT(1, 15) = "Email1Address":                CT(1, 16) = "Email2Address"
CT(1, 17) = "Email3Address":                CT(1, 18) = "HomeAddress"
CT(1, 19) = "HomeAddressStreet":            CT(1, 20) =
"HomeAddressPostalCode"
CT(1, 21) = "HomeAddressCity":              CT(1, 22) =
"HomeAddressState"
CT(1, 23) = "HomeAddressCountry":           CT(1, 24) =
"BusinessAddress"
CT(1, 25) = "BusinessAddressStreet":        CT(1, 26) =
"BusinessAddressPostalCode"
CT(1, 27) = "BusinessAddressCity":          CT(1, 28) =
"BusinessAddressState"
CT(1, 29) = "BusinessAddressCountry":       CT(1, 30) = "OtherAddress"
CT(1, 31) = "OtherAddressStreet":           CT(1, 32) =
"OtherAddressPostalCode"
CT(1, 33) = "OtherAddressCity":             CT(1, 34) =
"OtherAddressState"
CT(1, 35) = "OtherAddressCountry":          CT(1, 36) = "WebPage"
CT(1, 37) = "CompanyName":                  CT(1, 38) =
"PersonalHomePage"
CT(1, 39) = "FileAs":                       CT(1, 40) = "Body"
'---------------------------------------------------------------------------------------

DoCmd.Hourglass True

On Error Resume Next
DoCmd.DeleteObject acTable, TableName
On Error GoTo 0

Set NewTab = CurrentDb.CreateTableDef(TableName)
For j = 1 To n - 1
    Set NewField = NewTab.CreateField(CT(1, j), dbText, 255)
    NewField.AllowZeroLength = True
    NewTab.Fields.Append NewField
Next
Set NewField = NewTab.CreateField(CT(1, j), dbMemo, 65536)
NewField.AllowZeroLength = True
NewTab.Fields.Append NewField
CurrentDb.TableDefs.Append NewTab

Set RS = CurrentDb.OpenRecordset(TableName)
Set appOutlook = CreateObject("Outlook.Application")
Set Kontact = Session.GetDefaultFolder(olFolderContacts)

For Each i In Kontact.Items
    RS.AddNew
    ' Nome
    RS![Title] = i.Title
    RS![FirstName] = i.FirstName

    RS![WebPage] = i.WebPage
    RS![CompanyName] = i.CompanyName
    RS![PersonalHomePage] = i.PersonalHomePage
    RS![FileAs] = i.FileAs
    RS![Body] = i.Body ' È il campo Notes
    '
    RS.Update
Next
DoCmd.Hourglass False

End Sub
============================================================

Bruno


text:
Il Wed, 05 Nov 2014 17:28:35 +0100, Bruno Campanini <
brun...@libero.it
> ha scritto:

>
radica...@gmail.com
 presented the following explanation :
>> Il giorno mercoledì 5 novembre 2014 11:13:32 UTC+1, Bruno Campanini ha
>> scritto:
...CUT

>    RS![FileAs] = i.FileAs
>    RS![Body] = i.Body ' È il campo Notes
>    '
>    RS.Update
>Next
>DoCmd.Hourglass False
>
>End Sub
>============================================================
>
>Bruno
Accidenti! Per me é l'apoteosi. Sono riuscito, GRAZIE A TE, a recuperare tutto quello che mi
interessava. Ora dovrò mettermi a studiare la prima parte della routine, quella in cui hai
sbrogliato il problema del campo "note".
Non sarà facile e non so se, data l'età, mi capiterà ancora nella vita di imbattermi in un casino
del genere, ma fa sempre bene tenere in esercizio la mente.
Ora smettila di suggerirmi delle cose, sennò sarò costretto a ringraziarti ancora una volta, ed
ancora una volta, ed ancora una volta, ed ancora una volta........
Ciao


text:
Gianni expressed precisely :

> Accidenti! Per me é l'apoteosi. Sono riuscito, GRAZIE A TE, a recuperare
> tutto quello che mi interessava. Ora dovrò mettermi a studiare la prima parte
> della routine, quella in cui hai sbrogliato il problema del campo "note".
Io non ho sbrogliato niente...
Tutti i campi che appaiono nella finestra dei Contatti hanno un nome
e con quel nome si chiamano tutti i Members di ContactItem che poi
servono nella programmazione.
Così il campo FirstName si chiama FirstName, il campo Email si chiama
Email... il campo Notes si chiama Body.
Bastava saperlo e io non lo sapevo... per caso ho richiesto
il contenuto di Body e ho ottenuto quuello di Notes!

> Non sarà facile e non so se, data l'età, mi capiterà ancora nella vita di
> imbattermi in un casino del genere, ma fa sempre bene tenere in esercizio la
> mente.
Io fra tre mesi compio i 79, tu cos'hai l'età di Matusalemme?

> Ora smettila di suggerirmi delle cose, sennò sarò costretto a
> ringraziarti ancora una volta, ed ancora una volta, ed ancora una volta, ed
> ancora una volta........ Ciao
Troppo gentile, grazie.

Bruno


text:
Il Thu, 06 Nov 2014 19:02:08 +0100, Bruno Campanini <
brun...@libero.it
> ha scritto:

>Gianni expressed precisely :
>
CUT
>Tutti i campi che appaiono nella finestra dei Contatti hanno un nome
>e con quel nome si chiamano tutti i Members di ContactItem che poi
>servono nella programmazione.
>Così il campo FirstName si chiama FirstName, il campo Email si chiama
>Email... il campo Notes si chiama Body.
>Bastava saperlo e io non lo sapevo... per caso ho richiesto
>il contenuto di Body e ho ottenuto quuello di Notes!

Un po' come capitò per la penicellina, allora?

>> Non sarà facile e non so se, data l'età, mi capiterà ancora nella vita di
>> imbattermi in un casino del genere, ma fa sempre bene tenere in esercizio la
>> mente.
>Io fra tre mesi compio i 79, tu cos'hai l'età di Matusalemme?

Ai tuoi non ci credo, io fra poco meno di un mese ne avrò 64

>> Ora smettila di suggerirmi delle cose, sennò sarò costretto a
>> ringraziarti ancora una volta, ed ancora una volta, ed ancora una volta, ed
>> ancora una volta........ Ciao
>Troppo gentile, grazie.
>
>Bruno
Vorei farti una "faccina", ma non ne sono capace.
Adesso però non metterti a darmi anche queste informazioni.......

Grazissime e ciaoissimo.
Cura ut valeas,
Gianni


text:
Il Sun, 02 Nov 2014 02:49:40 +0100, Bruno Campanini <
brun...@libero.it
> ha scritto:

>Gianni wrote :
>> Sistema operativo Windows 8. E' possibile importare in Access 2010 i contatti
>> di Outlook 2010 senza tralasciare alcun campo?
>> Esiste un sistema diretto (wizard o simili), oppure é possibile tramite vba o
>> come? Grazie a quanti risponderanno.
...CUT
>    RS![Email1Address] = i.Email1Address
>    RS![HomeTelephoneNumber] = i.HomeTelephoneNumber
>    RS![BusinessTelephoneNumber] = i.BusinessTelephoneNumber
>    RS![MobileTelephoneNumber] = i.MobileTelephoneNumber
>    RS.Update
>Next
>
>End Sub
>===============================================
>
>Bruno

Scusa se mi rivolgo ancora a te, ma voglio darti una dritta sul problema in oggetto che hai
risoltobrillantemente.
Ora, dovendo fare il percorso inverso (esportare singolarmente un contatto dalla mia agenda a quella
dei contatti di outlook), ho trovato la seguente funzione che lavora egregiamente:
===========================
Function AddOlContact()
On Error GoTo Error_Handler
    Const olContactItem = 2
    Dim olApp As Object
    Dim Ctct As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olContact = olApp.CreateItem(olContactItem)
    With olContact
        .FirstName = FirstName
        .LastName = LastName
        .BusinessAddress = BusinessAddress
        .BusinessTelephoneNumber = BusinessTelephoneNumber
        .HomeTelephoneNumber = HomeTelephoneNumber
        .MobileTelephoneNumber = MobileTelephoneNumber
        .PrimaryTelephoneNumber = PrimaryTelephoneNumber
        .OtherTelephoneNumber = OtherTelephoneNumber
        .BusinessFaxNumber = BusinessFaxNumber
        .BusinessAddress = BusinessAddress
        .BusinessAddressCity = BusinessAddressCity
        .BusinessAddressState = BusinessAddressState
        .BusinessAddressPostalCode = Str(Val(BusinessAddressPostalCode))
        .BusinessAddressCountry = BusinessAddressCountry
        .Email1Address = Email1Address
'        .WebPage = Text(Trim(WebPage))
'        .Body = Text(Body)
        'usa .Display se vuoi che l'utente veda il modulo pop-up dei Contatti di Outlook
        .display
        .Save
    End With
Error_Handler_Exit:
    On Error Resume Next
    Set olContact = Nothing
    Set olApp = Nothing
    Exit Function
Error_Handler:
    MsgBox "MS Access ha generato il seguente errore" & vbCrLf & vbCrLf & "Numero di Errore: " & _
    Err.Number & vbCrLf & "Sorgente dell'Errore: AddOlContact" & vbCrLf & "Descrizione dell'Errore:
" & Err.Description, vbCritical, "C'é stato un Errore!"
    Resume Error_Handler_Exit
End Function
=========================
Ok, come avrai notato le due ultime richieste di salvataggio riguardano due campi particolari:
.WebPage e .Body.
Quando tento di passare quei dati come campi di testo, ricevo il seguente msg di errore (é lo stesso
sia per un campo che per l'altro):
"Errore di compilazione, Sub o Funzione non definita"
e il prompt evidenzia nella routine VBA la funzione Text.
Sapresti dirmi il perché? E come potrei superare l'ostacolo?
Grazie, Gianni


text:
Gianni formulated the question :

[...]
> Sapresti dirmi il perché? E come potrei superare l'ostacolo?
> Grazie, Gianni

Perché non esiste una funzione Text in Access.
Prova semplicemente ad elinminarla:
.WebPage = WebPage
.Body = Body

Bruno


text:

Veramente nel testo originale l'istruzione era come tu l'hai ripulita; siccome mi dava lo stesso
errore, ho pensato di aggiungere io quelle funzioni (sciagurate ?!)
Gianni


text:
Gianni pretended :

Prova a modificare così:
'.WebPage = WebPage
.Body = "Aasdfghjk"

Se non funziona modifica ancora:
'.WebPage = WebPage
'.Body = Body
MsgBox Body

E dimmi quel che succede.

Bruno

Bruno


text:
Il Fri, 14 Nov 2014 10:57:41 +0100, Bruno Campanini <
brun...@libero.it
> ha scritto:

>Gianni pretended :
>> Il Thu, 13 Nov 2014 19:34:29 +0100, Bruno Campanini <
brun...@libero.it
> ha
....
>> Veramente nel testo originale l'istruzione era come tu l'hai ripulita;
>> siccome mi dava lo stesso errore, ho pensato di aggiungere io quelle funzioni
>> (sciagurate ?!) Gianni
>
>Prova a modificare così:
>'.WebPage = WebPage
>.Body = "Aasdfghjk"
>
>Se non funziona modifica ancora:
>'.WebPage = WebPage
>'.Body = Body
>MsgBox Body
>
>E dimmi quel che succede.
>
>Bruno
Alora, ci sono riuscito. Ho inserito Body = "nkkkkknkn" come mi hai detto ed é andata.
Però mi sono accorto di un'altra cosa: i dati bisogna passarli in un ordine prestabilito, come se
ogni item del olContact avesse una sua precisa posizione all'interno dell'oggetto. Perciò se al
numero 1 passo il numero 1 mio, ok; se gli passo il numero 2 (e non vi é corrispondenza fra tipo di
campo e valore immesso), il sistema produce un errore.
Non so seono riuscito a spiegarmi, ma ad intuito ho capito come funziona e cosa ho fatto? Ho
riordinato le voci da trasferire secondo l'ordine di "ricezione" e tutto é filato liscio.
Ho notato solo un po' di ritardo nell'acquisizione e relativa visualizzazione del nuovo contatto su
Outlook.
Non finirò mai di ringraziarti,
Gianni


text:
Gianni wrote on 14-11-14 :

> Alora, ci sono riuscito. Ho inserito Body = "nkkkkknkn" come mi hai detto ed
> é andata. Però mi sono accorto di un'altra cosa: i dati bisogna passarli in
> un ordine prestabilito, come se ogni item del olContact avesse una sua
> precisa posizione all'interno dell'oggetto. Perciò se al numero 1 passo il
> numero 1 mio, ok; se gli passo il numero 2 (e non vi é corrispondenza fra
> tipo di campo e valore immesso), il sistema produce un errore. Non so seono
> riuscito a spiegarmi, ma ad intuito ho capito come funziona e cosa ho fatto?
> Ho riordinato le voci da trasferire secondo l'ordine di "ricezione" e tutto é
> filato liscio. Ho notato solo un po' di ritardo nell'acquisizione e relativa
> visualizzazione del nuovo contatto su Outlook. Non finirò mai di
> ringraziarti, Gianni

Non ho proprio voglia di fare ora della prove... ma credo
che l'ordine non c'entri proprio niente.
Credo invece, perché mi è capitato varie volte, che riscrivere
una procedura o una sua parte riporti la medesima alla
regolarità di esecuzione.

Bruno


title: order by + iif + parametro, non va

text:
Salve a tutti
Data la seguente query
SELECT oggetto_schedato.OGTD, oggetto_schedato.DEU,
oggetto_schedato.numeroscheda, fotografie.FTAJ, fotografie.FTAX,
oggetto_schedato.P_STRM, collocazione.LDCN, collocazione.LDCS
FROM (collocazione RIGHT JOIN oggetto_schedato ON collocazione.P_LDC =
oggetto_schedato.F_LDC) LEFT JOIN (fotografie RIGHT JOIN ogg_foto ON
fotografie.P_FOTO = ogg_foto.F_FOTO) ON oggetto_schedato.P_STRM =
ogg_foto.F_STRM
ORDER BY iif([order] is null or [order] = '',
( oggetto_schedato.OGTD ), [order] ) ASC;
ho problemi con la clausola order by, nello specifico quando la
condizione è falsa mi aspetto che ordini
la query in base al campo messo dall'utente ( [order] ), in realtà
pero' la query va senza errori ma se [order]
è immesso viene ignorato
Invece se order è vuoto la iif funziona (viene ordinato in base
a .OGTD)
Qualcuno sa dove sbaglio?
Grazie in anticipo


title: order by + iif + parametro, non va

author: Alessandro Cara

text:
fazf...@gmail.com
 ha scritto:

prova cosi':
nz(order,ogdt)
o
iif(order&''='',ogdt,order)
--
ac


title: order by + iif + parametro, non va

text:
fazf...@gmail.com
 ha scritto:
P.S.: e' gradito l'avviso se si posta lo stesso quesito su altro NG.
--
ac


title: Somma in piè di pagina in un sottoreport

author: Luigi

text:
Salve a tutti,
sto impazzendo perchè non riesco a fare una somma nel piè di pagina
di un sottoreport. Ho creato una casella di testo senza associazioni e
ho scritto = somma([Impon]) e funziona ma tutti i valori del campo
impon vengono messe a zero nel corpo del sottoreport.
Ho cretato una casella di testo associandola a impon e attivando la
somma parziale sia su tutto sia sul gruppo e sempre stesso identico
problema. Il totale  compare ma i valori del campo impon vengono tutte
messe a zero.
Il problema penso sia dovuto al fatto che come origine dati di questo
sottoreport c'è una query che contiene un campo calcolato con una
subquery, è possibile una cose del genere?
Ho provato ad utilizzare la funziona Dsum nel corpo del report padre
ma ricevo un errore.
La sintassi che ho utilizzato è la seguente: =Dsum([Sottoreport
ProvvigionexFattura]![Impon]; [Sottoreport ProvvigioneXFattura]) e
niente da fare.
La situazione nel dettaglio è la seguente:
Ho il report padre basato su una query che estrae dall'anagrafica tutti
gli agenti di vendita, poi con il wizard di access ho inserito il
sottoreport in cui ci sono i campi di data fattura, numero, agente e la
provvigione di ogni agente calcolato con la subquery. Ho poi fatto
l'unione tra report padre e report figlio attraverso il campo agente.
Funziona tutto alla grande. L'unica cosa che non sono riuscito a fare
è mettere la somma di tutte le fatture per l'agente nel piè di pagina
del sottoreport...in realtà potrei metterlo anche da qualsiasi altra
parte ma purchè ci riesca!
Qualcuno può illuminarmi?
Ciao e grazie!
Luigi


text:
Luigi wrote:
> Salve a tutti,
> sto impazzendo perchč non riesco a fare una somma nel pič di pagina
> di un sottoreport.
Normale. Per quello che so non si puo'.
Sul sito comune (forse anche nel sito di Karl) dovrebbero esserci dei
workaround
www.sitocomune.com
ww.donkarl.com/it
--
ac


text:
Alessandro Cara wrote:
> Luigi wrote:
> > Salve a tutti,
> > sto impazzendo perchè non riesco a fare una somma nel piè di pagina
> > di un sottoreport.
>
> Normale. Per quello che so non si puo'.
> Sul sito comune (forse anche nel sito di Karl) dovrebbero esserci dei
> workaround
>
www.sitocomune.com
>
ww.donkarl.com/it
Ho già dato uno sguardo ai siti indicati ma non ho trovato niente di
utile!
Quale potrebbe essere una soluzione alternativa al mio problema? Credo
e spero che qualche cosa si possa fare ma proprio sono a corto di idee.
Grazie comunque per l'interesse!
Ciao,
Luigi


text:
Perchè non metti il totale fattura nel totale a cambio di agente ?
Forse in questo modo il dato ti compare nel report padre.
Ciao
Gabry


author: Sergio MAZZA

text:
"Luigi" <
luigia...@gmail.com
> ha scritto nel messaggio
news:1158485547....@h48g2000cwc.googlegroups.com...





Qualcuno può illuminarmi?
Ciao e grazie!
Luigi
[risposta]
Ma un semplice raggruppamento per agente?
Ciao.
--
Sergio MAZZA


text:
>
>
> [risposta]
> Ma un semplice raggruppamento per agente?
>
> Ciao.
> --
> Sergio MAZZA
E' stata la prima soluzione che ho adottato ma mi dice che è
impossibile effettuare il raggruppamento poichè la query che uso come
origine dati ha delle sottoquery!
Ciao e grazie,
Luigi


text:
"Luigi" <
luigia...@gmail.com
> ha scritto nel messaggio
news:1158580679.1...@m73g2000cwd.googlegroups.com...
E' stata la prima soluzione che ho adottato ma mi dice che è
impossibile effettuare il raggruppamento poichè la query che uso come
origine dati ha delle sottoquery!
Ciao e grazie,
Luigi
[risposta]
Fai una query che unisce l'anagrafica agenti e le loro fatture e poi nel
report fai i raggruppamenti che vuoi...
Ciao.
--
Sergio MAZZA


text:
>
> [risposta]
> Fai una query che unisce l'anagrafica agenti e le loro fatture e poi nel
> report fai i raggruppamenti che vuoi...
>
Grazie mille per il suggerimento. Ora funziona alla grande!
Ciao,
Luigi


title: controllare il tasto INVIO

author: stwe

text:
ovvero mi trovo in una situazione che ha dell'inverosimile, sono riuscito a
far fare delle cose che manco mi sognavo ad access, ed ora eccomi quà:
come fare a non andare in un nuovo record alla pressione del tasto invio?
ho una maschera che contiene una sottomaschera note, la quale deve avere un
solo campo. se io ne aggiungo un altro ovviamente la query mi da tutti i
valori di un'altra sottomaschera doppi, tripli etc...
come faccio a fare in modo che quando premo invio non succeda nulla????
ho la necessità che nel resto della maschera il tasto invio passi al campo
successivo e finiti i campi al record successivo.
grazie
by
stwe


title: controllare il tasto INVIO

author: principiante

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:vD_D7.18484$7A4.1...@news.infostrada.it...

In che senso ne aggiungi un altro?(campo)


title: controllare il tasto INVIO

author: Massimo

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:vD_D7.18484$7A4.1...@news.infostrada.it...

 hai provato a fare questo:
Sulla maschera dove hai il campo, abilita l'evento Anteprima Tasti con SI
poi sull'evento Su Tasto Giù scrivi:
Select Case KeyCode
Case vbKeyReturn
'Fai quello che vuoi
End Select
in questo caso solo alla pressione del tasto invo fa quello che vuoi tu.
spero che ti sia stato utile.
Max


title: controllare il tasto INVIO

text:
"Massimo" <
ron...@libero.it
> ha scritto nel messaggio
news:kg%D7.18826$7A4.1...@news.infostrada.it...

Grazie mille, funziona perfettamente, ti sono debitore.
by
stwe


title: controllare il tasto INVIO

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:RsmE7.27013$7A4.1...@news.infostrada.it...

.....10.000 Euri Virtuali .....
è stato un piacere.
Max


title: Aprire database protetto

author: Raffaele

text:
Vorrei sapere come fare per aprire un database protetto da password via
codice, grazie a chiunque voglia rispondermi.


title: Aprire database protetto

author: Riccardo

text:
Raffaele <
val...@inwind.it
> wrote in message
Ek%48.17952$761.6...@twister1.libero.it...
> Vorrei sapere come fare per aprire un database protetto da password via
> codice, grazie a chiunque voglia rispondermi.
>
>
devi passargli anche la password.
ciao Riccardo


title: forzatura interruzione pagina

author: Michi

text:
Mi spiego meglio:
Ho un report nel quale sono inclusi due sottoreport. Vorrei fare in modo che
il secondo sottoreport venga visualizzato interamente in una pagina.
Il problema é che i due sottoreport sono di altezza variabile.
Il primo descrive una lista di prodotti che una tal persona possiede, il
secondo sottoreport invece é un riassunto di questi prodotti.
Come
faccio a dire ad access di interrompere la pagina tra un sottoreport e
l'altro, quando il secondo sottoreport non mi ci sta interamente sulla
pagina corrente?
grazie
michi


title: forzatura interruzione pagina

text:
"Michi" <
maderni-cape...@bluewin.ch
> ha scritto nel messaggio
news:3bbc305a$1...@news.bluewin.ch...

Soluzione "furba" (non corretta, ma forse risolve): fare due report?
by
stwe


title: forzatura interruzione pagina

author: Silvio Berruti

text:
"Michi" <
maderni-cape...@bluewin.ch
> ha scritto nel messaggio
news:3bbc305a$1...@news.bluewin.ch...

Sinceramente non ho provato, ma potresti inserire un'interruzione di pagina,
resa non visibile, tra i 2 sottoreport.
Su formattazione della sezione interessata potresti vedere se la somma delle
altezze dei 2 controlli contenenti i sottoreport supera la dimensione a
disposizione, rendi visibile l'interruzione pagina.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Record successivo

author: antcim

text:
Cordialita' a chi mi legge.
La domanda:
In una maschera con origine record una tabella,
(visualizzazione fogliodati) vorrei andare al
record successivo dopo che ho editato un campo
(uno qualsiasi ma non l'ultimo). Come si fa..?
Scusate la mia ignoranza.
Grazie in anticipo.
Antcim


title: Record successivo

author: Alessandro

text:
"antcim" <
gabriel...@virgilio.it
> wrote in message
news:DAOg8.33588$_u5.1...@news1.tin.it...

Non ne sono sicuro, ma puoi provare così:
Su evento AFTER_UPDATE del "CAMPO" che in realtà si chiama CONTROLLO:
Me.RecordsetClone.MoveNext
Me.Bookmark=Me.RecordsetClone.Bookmark
In realtà devi inserire assolutamente il controllo di ULTIMO
record poichè se sei all'ultimo genera un errore, che intercetti
e fai un Resume Exit nella Gestione errori
Spero...!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Record successivo

author: Emyr

text:


ma lui ha detto di essere in folgio dati... funziona lo stesso?
Saluti.
Emanuele.


title: Record successivo

text:
"Emyr" <
fan...@lavoro.com
> wrote in message
news:9be78uk4gqp4ebcrd...@4ax.com...
>[CUT]
> >Spero...!
> >
> >Alessandro.
>
>
>
> ma lui ha detto di essere in folgio dati... funziona lo stesso?
> Saluti.
> Emanuele.
Senza approfondire il mio "SPERO" al termine del post era riferito
a questo, visto che non l'ho provato.....!!!
Mi scopri gli altarini..????
Ciao Alex.



title: Record successivo

text:
Ciao Alessandro.
Ho provato come tu dici.
Non funziona.
Grazie
Antcim
Alessandro <
ik2...@libero.it
> wrote in message
9e95e88640afd9dce8...@mygate.mailgate.org...



title: Record successivo

author: Alberto S.

text:
"antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
news:DAOg8.33588$_u5.1...@news1.tin.it...

DoCmd.GoToRecord , , acNext
... però lo devi mettere a fronte dell'evento 'dopo aggiornamento' di tutti
i controlli dai quali vuoi 'saltare' al record successivo.
Ciao,
--
Alberto


title: Record successivo

author: Roccia

text:
Il Mon, 04 Mar 2002 20:00:16 GMT, antcim oso' dichiarare:
> > Me.RecordsetClone.MoveNext
> > Me.Bookmark=Me.RecordsetClone.Bookmark
> Ciao Alessandro.
> Ho provato come tu dici.
> Non funziona.
Una piccola modifica che dovrebbe aggiustare le cose:
dim RST as Recordset
Set RST=Me.recordsetclone
RST.Movenext
Me.bookmark=RST.Bookmark
(Ma non si fa prima a fare
DOcmd.gotorecord, accurrentdataobject,,acnext??)
--
Cia'
"Roccia" Max De Poli <
rocc...@katamail.com
>


title: Record successivo

text:
Grazie per le risposte.
Funziona benissimo:
DOcmd.gotorecord, accurrentdataobject,,acnext??)
Grazie ancora.
Cordialita'
Antcim
Roccia Max De Poli <
rocc...@katamail.com
> wrote in message
MPG.16f08f2db...@news.tiscalinet.it...



title: Record successivo

text:
Grazie davvero..!
Funziona benissimo.
Ciao Alberto e, ancora grazie.
Cordialita' .
Antcim
Alberto S. <
sartor...@tin.it
> wrote in message
a60oqe$ar6mi$2...@ID-134626.news.dfncis.de...



title: Formato numerico

author: Checco

text:
Ciao a tutti,
in una query ho impostato una campo come segue:
"MeseOR: Format([data];"m")"
per ottenere l'ordinamento per mese, solo che i mesi con la doppia cifra me
li inserisce prima di quelli con una!Come il campo testo! Come posso fare
per impostare nella query il formato numerico per avere l'ordinamento
corretto?
Grazie mille!
Francesco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Formato numerico

author: Neo

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...

prova con "mm"
oppure usa right("00" & mese";2) per formattare tutti a 2 cifre


title: Formato numerico

author: Antonio Biso

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Ciao a tutti,
> in una query ho impostato una campo come segue:
>
> "MeseOR: Format([data];"m")"
>
> per ottenere l'ordinamento per mese, solo che i mesi con la doppia cifra
me
> li inserisce prima di quelli con una!Come il campo testo! Come posso fare
> per impostare nella query il formato numerico per avere l'ordinamento
> corretto?
E mettere mm ?
Antonio


title: Formato numerico

text:
> prova con "mm"
>
> oppure usa right("00" & mese";2) per formattare tutti a 2 cifre
Con "MM" va benissimo!
GRazie ad entrambi per la disponibilità e la sorprendente celerità! ;o)



title: Formato numerico

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> > prova con "mm"
> >
> > oppure usa right("00" & mese";2) per formattare tutti a 2 cifre
>
>
> Con "MM" va benissimo!
>
> GRazie ad entrambi per la disponibilità e la sorprendente celerità! ;o)
Spero che il tuo bonifico sia altrettanto celere...
Antonio


title: Errore: l'indice o la chiave primaria non può contenere un valore Null

author: lanthila

text:
Ho un problema, in una maschera di inserimento dati con sottomaschere
in cui si inserisce un'informazioni che può riguardare più cose, se
l'utente seleziona prima cosa riguarda (cosa che può scegliere tramite
combobox) e poi cancella, viene fuori questo errore: "l'indice o la
chiave primaria non può contenere un valore Null"
E vabbè, ovvio....
Il problema è che poi anche selezionando un valore dalla combobox
l'errore continua ad esserci. Allo stato attuale se l'utente fa questo
sbaglio gli si blocca tutto, c'è un modo per evitare che la cosa si
verifichi? Cioè mi sta bene l'errore, visto che il campo è richiesto
ma non il blocco dell'applicazione.
Grazie mille!


author: MA

text:

sull errore mettici un bell me.undo
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text: Apparentemente non c'è verso...


text:
Ma secondo voi evitare l'errore aggiungendo in ogni tabella un valore
fasullo, da mettere quando la persona non sceglie nulla, è
concettualmente sbagliato?
Cioè tipo, tabella Prodotti, se la persona non sceglie nessun prodotto
mettere come scelta automatica [none] cosi non visualizzo nessun errore
e poi nell'output verrà fuori che il campo era vuoto.
Mi date qualche parere?
Grazie :)


title: Spedire mail con condizione.

author: RobertOne

text:
Buona sera a tutti.

Un pņ alla volta sto andando avanti col mio db, che contiene l'anagrafica
delle persone facente parte ad una associazione.

Ho la necessitą sia all'atto dell'inserimento della nuova anagrafica ed
anche in modifica nuova anagrafica, nel caso non sia stato immesso in
precedenza, che l'indirizzo di posta elettronica, assieme al nome e cognome,
venga spedito via mail al webmaster del sito che ha la gestione della
mailing list.

P.es. Inserisco l'anagrafica del nuovo utente Roberto Roberti, via bla bla
bla, n. bla, cap bla etc. etc. ed alla fine l'indirizzo di posta elettronica
rob...@roberti.it
 .

Ho la necessita che cognome, nome ed indirizzo vengano spediti. Pensavo di
mettere una casella di controllo che dev'essere flaggata per inviare tale
mail.

So cosa voglio fare, ma non so come procedere... Avrei bisogno di una dritta
e soprattutto sapere se č corretto usare la casella di controllo.

Grazie.

Roberto


title: Spedire mail con condizione.

text:
Perchè fare CROSSPOST su altri siti, anche quì, nonostante la prassi si sia ANNACQUATA vige il divieto di XPOST.

@Alex


title: Spedire mail con condizione.

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:615223ce-c7b6-4a00...@googlegroups.com...
Perchè fare CROSSPOST su altri siti, anche quì, nonostante la prassi si sia
ANNACQUATA vige il divieto di XPOST.

@Alex

Non lo sapevo...


title: disabilitare rotellina mouse

author: max

text:
Grazie innanzitutto al mitico Roberto da casa che mi ha dato l'ennesima
dritta!!!
Non ho ancora trovato però la soluzione alla disabilitazione della rotellina
centrale del mouse che mi causa non pochi problemi con database aperto (non
voglio in poche parole che mi faccia scorrere fra i record).
Qualcuno conosce la soluzione, oltre a quella di buttare i mouse con
rotellina impiegati per le mie applicazioni Access?
Ciao :-))


title: disabilitare rotellina mouse

author: Alex de Rossi

text:
"max" <
cremin...@libero.it
> ha scritto nel messaggio
news:24_ma.40372$DT4.1...@twister1.libero.it...

Imposta il valore "Consenti Aggiunte" della form su NO
Ciao
Alex


title: Errore = "0"

author: AN

text:
Buona sera a tutto il news,
in una sub  quando la eseguo mi d� errore 0 non riesco a capire che errore
�, eppure il risultato v� benissimo, forse sbaglio in qualcosa e non me ne
st� accorgendo?
 On Error GoTo Err
If Format(Me.OraAppuntamento, "hh.nn") >= "0.01" And
Format(Me.OraAppuntamento, "hh.nn") < "12.01" Then
    Me.Pomeriggio = Null
    Me.Mattina = "AM"
Else
    Me.Mattina = Null
    Me.Pomeriggio = "PM"
End If
Err:
    MsgBox Err.Number & " " & Err.Description
dopo averla eseguita mi tira furi il MsgBox 0 (zero) senza alcuna
descrizione � un mio errore di compilazione?
Grazie e buona serata ancora


title: Errore = "0"

author: Karl Donaubauer

text:
AN wrote:
> in una sub  quando la eseguo mi dà errore 0 non riesco a capire che
> errore è, eppure il risultato và benissimo, forse sbaglio in qualcosa
> e non me ne stò accorgendo?
>
> On Error GoTo Err
> If Format(Me.OraAppuntamento, "hh.nn") >= "0.01" And
> Format(Me.OraAppuntamento, "hh.nn") < "12.01" Then
>    Me.Pomeriggio = Null
>    Me.Mattina = "AM"
> Else
>    Me.Mattina = Null
>    Me.Pomeriggio = "PM"
> End If
Exit Sub
> Err:
>    MsgBox Err.Number & " " & Err.Description
>
> dopo averla eseguita mi tira furi il MsgBox 0 (zero) senza alcuna
> descrizione è un mio errore di compilazione?
No un tuo errore di combinazione. ;-)
Senza Exit la riga con il MsgBox viene eseguita in ogni caso.
Ancora meglio:
On Error GoTo myError
' come "Err" è una parola chiave di VBA
'qui il codice grandioso
myExit:
    Exit Sub
myError:
    MsgBox Err.Number & " " & Err.Description
    Resume myExit
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Errore = "0"

author: Valerio Valentini

text:
"AN" <
an...@libero.it
> ha scritto nel messaggio
news:49dcc26c$0$1118$4faf...@reader1.news.tin.it...
> Buona sera a tutto il news,
> in una sub  quando la eseguo mi dà errore 0 non riesco a capire che errore
> è, eppure il risultato và benissimo, forse sbaglio in qualcosa e non me ne
> stò accorgendo?
>
> On Error GoTo Err
> If Format(Me.OraAppuntamento, "hh.nn") >= "0.01" And
> Format(Me.OraAppuntamento, "hh.nn") < "12.01" Then
>    Me.Pomeriggio = Null
>    Me.Mattina = "AM"
> Else
>    Me.Mattina = Null
>    Me.Pomeriggio = "PM"
> End If
>
> Err:
>    MsgBox Err.Number & " " & Err.Description
>
>
> dopo averla eseguita mi tira furi il MsgBox 0 (zero) senza alcuna
> descrizione è un mio errore di compilazione?
>
> Grazie e buona serata ancora
>
Sparo a caso, Me.Quellocheè non accetta il Null, magari devi metterci una
stringa vuota tipo ""
Ciao Valerio.


title: Errore = "0"

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:743umsF...@mid.individual.net...

Più veloce ed ovviamente più attento e preparato.
Ciao Valerio.


title: Errore = "0"

text:
> No un tuo errore di combinazione. ;-)
> Senza Exit la riga con il MsgBox viene eseguita in ogni caso.
>
> Ancora meglio:
>
> On Error GoTo myError
> ' come "Err" � una parola chiave di VBA
>
> 'qui il codice grandioso
   Ho postato la parte in cui mi dava errore "GRANDIOSO"
> myExit:
>    Exit Sub
>
> myError:
>    MsgBox Err.Number & " " & Err.Description
>    Resume myExit
Grazie K.D. per l accorgimento


title: Pulsante comando particolare: Esiste?

author: Mirk

text:
Vorrei sapere come uscire da una tabella che ho in visualizzazione,
tramite un pulsante di comando e dove posso inserirlo?
Mirko Di B.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Pulsante comando particolare: Esiste?

author: cidi

text:
"Mirk" <
mirko...@tiscali.it
> ha scritto nel messaggio
news:br1hp3$1vt$1...@news.newsland.it...
> Vorrei sapere come uscire da una tabella che ho in visualizzazione,
> tramite un pulsante di comando e dove posso inserirlo?
>
> Mirko Di B.
>
Ciao Mirk
Creati una maschera con origine dati dalla tua tabella e inserisci , con
l'autocomposizione, tutti i pulsanti che vuoi
Ciao Daniele


title: Pulsante comando particolare: Esiste?

text:
cidi ha scritto:





title: Barra di avanzamento intelligente

text:
Vorrei poter inserire una barra di avanzamento che inzia quando io clicco su
un pulsante  che copia un file sul floppy A:, e avanza progressivamente fino
ad arrivare al 100% quando la luce del drive A: si spegne cioč l'operazione
č terminata, ovviamente la dimensione del file varia e quindi non posso
calcolare
il tempo che impiega a copiarlo in quanto variabile in base alla dimensione
del file.
Sapete aiutarmi? Grazie.


title: Barra di avanzamento intelligente

author: Alex

text:
"Tosto73" <
tos...@libero.it
> wrote in message
news:z_VK7.147318$sq5.6...@news.infostrada.it...
> Vorrei poter inserire una barra di avanzamento che inzia quando io clicco su
> un pulsante  che copia un file sul floppy A:, e avanza progressivamente fino
> ad arrivare al 100% quando la luce del drive A: si spegne cioè l'operazione
> è terminata, ovviamente la dimensione del file varia e quindi non posso
> calcolare
> il tempo che impiega a copiarlo in quanto variabile in base alla dimensione
> del file.
>
> Sapete aiutarmi? Grazie.
In VB6 è possibile utilizzando Recordset(ADO) Asincroni Dopo aver letto
con API le dimensione del File e Dimensionato il MAX(Value) incrementare
l'avanzamento
sapendo la dimensione del blocco letto, questo viene facilitato da un evento
collegabile che viene scatenato ad ogni blocco di dati:
Dim WithEvents Rs As ADODB.Recordset
Private Sub Rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long,
adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    ProgressBar1.Value = Progress
End Sub
Questo è solo uno stralcio estratto da una Routine che gestisce una
Progress_BAR
durante il Caricamento di un RECORDSET aggiornata in Real_Time.
In ACCESS non utilizzo mai ADO perchè uso A97, quindi non sò se sia possibile
, ma non credo, utilizzare la stessa tecnica...
Ciao @Alex
--
Posted from  [62.98.31.167]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: invio report con fax di windows 2003 sbs

author: gino paoli

text:
Ciao a tutti,
Vorrei inviare un report con il fax di windows 2003 sbs.
Ho una Form (Preventivi) nella quale ho diversi controlli che inseriscono
dati in diverse tabelle, questi dati formeranno un preventivo che
visualizzerò con un report (report fax preventivi standard).
La selezione dei dati avviene attraverso un controllo(Entrata n°) della Form
(Preventivi) e la stampa di QUEL SOLO report selezionato attraverso il
controllo suddetto è ottenuta attraverso un bottone con il seguente codice:
Private Sub Stampa_preventivo_standard_Click()
On Error GoTo Err_Stampa_preventivo_standard_Click
    Dim stDocName As String
    stDocName = "Report fax preventivi standard"
    DoCmd.OpenReport stDocName, , , "[Entrata n°]=" & Me.Entrata_n°
Exit_Stampa_preventivo_standard_Click:
    Exit Sub
Err_Stampa_preventivo_standard_Click:
    MsgBox Err.Description
    Resume Exit_Stampa_preventivo_standard_Click
End Sub
Questo funziona perfettamente per inviare la stampa alla stampante
predefinita. Io chiedo se qualcuno è in grado di aiutarmi a modificarlo per
inviare il report prescelto direttamente al fax senza doverlo selezionare
come stampante predefinita.
Ho un SO windows 2003 sbs ed il database è diviso in FE e BE
grazie in anticipo a chi mi può aiutare.
c.


author: Roberto da Parma

text:
"gino paoli" <
sael...@libero.it
> ha scritto nel messaggio
news:UeMBf.144789$65.40...@twister1.libero.it...

Non vedo il problema...al momento dell'anteprima tasto dx sull'anteprima
report, scegli stampa e dalla finestra scegli Fax al posto di quella
predefinita!
Vale lo stesso dal menù file....
Ciao
Roberto


author: Sergio MAZZA

text:
"gino paoli" <
sael...@libero.it
> ha scritto nel messaggio
news:UeMBf.144789$65.40...@twister1.libero.it...

Se il 2003 ha lo stesso oggetto Fax del 2000 puoi vedere se l'esempio sul
sito comune può aiutarti.
www.sitocomune.com
 - Sezione General:
6.131 Inviare da VBA uno o più file per fax usando FaxServer di Windows XP
Ciao.
--
Sergio MAZZA


author: Noperditempograzie

text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:43d812f7$0$27399$4faf...@reader1.news.tin.it...

Ciao Roberto,
Hai ragione, però mi sono dimenticato di dire che il bottone invia
direttamente il report selezionato alla stampante SENZA aprire l'anteprima.
secondo te c'è la possibilità di passargli da codice il fax invece che la
stampante?
grazie in anticipo.
c.


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:drb2d4$jgf$1...@area.cu.mi.it...

Mi hai anticipato.....stavo per proporre la stessa cosa....
In ogni caso se tu settassi il fax come stampante predefinita l'invio con il
pulsante dovrebbe essere immediato...in ogni caso ci potrebbero essere anche
altre soluzioni...
Ciao
Roberto


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio news:43e10025$0$4171$4faf...@reader3.news.tin.it...
>
> Mi hai anticipato.....stavo per proporre la stessa cosa....
Il mio terzo nome č: Manolesta... Sarŕ per questo che mi č calata la vista?
> In ogni caso se tu settassi il fax come stampante predefinita l'invio con il pulsante dovrebbe essere immediato...in ogni caso ci
> potrebbero essere anche altre soluzioni...
Sicuramente; basta capire le esigenze di chi le ha...
> Ciao
> Roberto
Ciao.
--
Sergio MAZZA


title: Passaggio file MDW

author: Roberto Spinella Esteban

text:
Mi succede una cosa strana da qualche tempo. Ho generato un file Utenti.mdw
per gestire le autorizzazioni in Access 2K.
Impostando il file di default tramite Wrkgadm e lanciando l'MDB tutto OK.
Se invece non imposto l'MDW ma lo passo come parametro come segue
"msaccess.exe" /wrkgrp Utenti.MDW "programma.mdb"
sembra che legga 2 volte. Infatti la funzione Whois() che mi riporta il nome
dell'utente attivo, nel secondo caso me lo indica 2 volte.
Questo genera un problema di condivisione che mi impedisce di apportare
modifiche al MDB.
Spero di essere stato chiaro e che qualcuno mi aiuti.
Grazie  Roberto Spinella


title: Selezionare un valore in un TreeView

author: tom

text:
Ciao a tutti,
in una form ho in serito un treeView che mi elenca i dati di una
tabella. Il treeview è popolato sull'evento open della form, la form è
filtrata e visualizza un determinato record. La mia domanda è: come
faccio all'apertura della form una volta popolato il TreeView
esplodere il record relativo alla form. Esempio: Il TreeView contiene
3000 record l'ID della form è il 150 io devo visualizzare i tre
livelli ad 'albero del record 150 del TreeView.
Spero di essere stato chiaro..
Tommy


title: Selezionare un valore in un TreeView

text:

Ciao nel tree puoi usare un tag che porta all'id che ti serve,
quindi su nodeclick tprendi il valore di Node.Tag
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Come aprire un file winword da una maschera?

author: Toni

text:
Ciao a tutti
Problema:
C'è la possibilità via codice di aprire un determinato documento .doc il cui
path trovo in un
determinato campo di una tabella trovandomi all'interno di una maschera
access
nella quale c'è pure il campo con il path su menzionato ????
La funzione shell che conosco mi da' la possibilità di aprire solo un'
applicazione e non vorrei utilizzare
oggetti ole.
Grazie infinite a chi mi risponderà !!!!!
Ciao Alberto


text:
Guarda i thread di qualche giorno fa oppure, ancora meglio, guarda
www.sitocomune.com
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora
provetti poeti fiorentini come vturturro.
(Cosě disse Ivan Lelli Ven 25 Aug 2000 09:34:52 +0200)
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
... e quello di it.comp.as400:
http://www.faq400.com/
---------------------------------------------


title: Turk182 Bravo

author: Alessandro Chiodo

text: Grazie di vero cuore


title: Turk182 Bravo

text:
>Grazie di vero cuore
non ricordo per cosa...
ma prego :)
P.


title: [Cisa 3]: Novità

author: MA

text:
Ciao ragazzi,
fervono i preparativi di access. Abbiamo fissato luogo, giorni e molti
argomenti della Conferenza. L'Agenda è piena, ma stiamo provando ad
esagerare.
In ogni caso per info:
http://www.accessgroup.it/index2.asp?ID=221&ID_Coll_Menu=221&Titolo=
<B>CISA%202007</b>%20(Cisa3)
Scriveteci anche solo per info.
A presto
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: [Cisa 3]: Novità

author: Ungi

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:eudbnq$g5m$1...@tdi.cu.mi.it...

In questo caso il Cisa si svolge nella sua sede "naturale", sono previste
presenze e interventi di personale tecnico Microsoft?
Ungi


title: [Cisa 3]: Novità

text:
Ungi wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:eudbnq$g5m$1...@tdi.cu.mi.it...
>> Ciao ragazzi,
>> fervono i preparativi di access. Abbiamo fissato luogo, giorni e
>> molti argomenti della Conferenza. L'Agenda è piena, ma stiamo
>> provando ad esagerare.
>>
>> In ogni caso per info:
>>
http://www.accessgroup.it/index2.asp?ID=221&ID_Coll_Menu=221&Titolo=
<B>CISA%202007</b>%20(Cisa3)
>>
>> Scriveteci anche solo per info.
>> A presto
>>
>>
> In questo caso il Cisa si svolge nella sua sede "naturale", sono
> previste presenze e interventi di personale tecnico Microsoft?
> Ungi
dato il particolare prodotto, probablmente abbiamo già tra i relatori le
pesone più qualificate in Access.



title: [Cisa 3]: Novità

author: VT @ home

text:
Il Wed, 28 Mar 2007 11:17:29 +0200, "MA" <
mas...@massimilianoamendola.it
> ha scritto:
>Ciao ragazzi,
>fervono i preparativi di access. Abbiamo fissato luogo, giorni e molti
>argomenti della Conferenza. L'Agenda è piena, ma stiamo provando ad
>esagerare.
>
>In ogni caso per info:
>
http://www.accessgroup.it/index2.asp?ID=221&ID_Coll_Menu=221&Titolo=
<B>CISA%202007</b>%20(Cisa3)
>
>Scriveteci anche solo per info.
>A presto
>
>--
Microsoft farà pubblicità all'evento, oppure si limita ad affittare la sala ?
In caso di risposta negativa, avete pensato a qualche altra forma di pubblicizzazione dell'evento al di fuori del NG ?
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: [Cisa 3]: Novità

text:
VT @ home wrote:
> Il Wed, 28 Mar 2007 11:17:29 +0200, "MA"
> <
mas...@massimilianoamendola.it
> ha scritto:
>> Ciao ragazzi,
>> fervono i preparativi di access. Abbiamo fissato luogo, giorni e
>> molti argomenti della Conferenza. L'Agenda è piena, ma stiamo
>> provando ad esagerare.
>>
>> In ogni caso per info:
>>
http://www.accessgroup.it/index2.asp?ID=221&ID_Coll_Menu=221&Titolo=
<B>CISA%202007</b>%20(Cisa3)
>>
>> Scriveteci anche solo per info.
>> A presto
>>
>> --
>
> Microsoft farà pubblicità all'evento, oppure si limita ad affittare
> la sala ?
> In caso di risposta negativa, avete pensato a qualche altra forma di
> pubblicizzazione dell'evento al di fuori del NG ?
>
> Vincenzo Turturro
Si, lo metterà nella pagina di Office
Abbiamo contattato sia pc professionale che Office di Edizioni Master
Stiamo vagliando un elenco di software house a cui proporci



title: [Cisa 3]: Novità

text:
Il Wed, 28 Mar 2007 18:48:32 +0200, "MA" <
mas...@massimilianoamendola.it
> ha scritto:
>(.....)
>Si, lo metterà nella pagina di Office
>Abbiamo contattato sia pc professionale che Office di Edizioni Master
>Stiamo vagliando un elenco di software house a cui proporci
WOW !
Altrochè Vista ...



title: #Errore come riferimento all'interno di una condizione IIF( )

author: Bruno - S95

text:
Access 00/XP
Buongiorno a tutti..
In un controllo calcolato appare  la scritta       #Errore, vorrei sapere se
conoscete il metoso per far riferimento all'interno di un'istruzione IIF( )
affinchè se detto controllo riporta #Errore si possa far apparire "0". Io ho
provato nel seguente modo senza riuscire: IIF([Cammino] = "#Errore"; 0;
[Cammino]) ed anche IIF([Cammino] is null; 0; [Cammino]).
Come è considerato l'  #Errore    o anche  #Error che dovrebbe essere
l'errore in inglese.
Quanto precedentemente detto, indipendentemente dal fatto che a monte si
posssono evitare questi errori con la condizione NZ( ), ovviamente quando la
formula non è cosi lunga da permettere l'inserimento dei vari NZ( ), pari a
255 caratteri se ben ricordo.
1000 grazie, Bruno


author: antonio

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:46651253$0$4792$4faf...@reader4.news.tin.it...

Un metodo potrebbe essere questo:
Quel controllo lo rendi invisibile e magari lo sposti anche da qualche altra
parte che non dia fastidio.
Crea al suo posto un altro controllo che abbia, nel campo origine controllo,
la seguente formula
=iif (not iserror
(precedentecontrollooranascosto);precedentecontrollooranascosto;"INDETERMINABILE")
In questo modo ti appare: o il valore calcolato, oppure la scritta
"indeterminabile".
Ciao
Antonio


author: CIDI

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:46651253$0$4792$4faf...@reader4.news.tin.it...

Ciao Bruno
su evento caricamento della maschera che contiene il controllo "Cammino":
IIf IsError([Cammino]), "0", [Cammino]
Daniele


text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:46651253$0$4792$4faf...@reader4.news.tin.it...

Quando devi scrivere codice lungo nel'origine controllo, ti conviene
scriverti una tua funzione e passargli i valori...
Ciao.
--
Sergio MAZZA


title: Aggiungere Record senza aprire tabella

text:
Salve a tutti
Attraverso un pulsante su una maschera vorrei aggiungere un nuovo record
alla tabella "T_Articoli" (senza aprirla) in modo tale che il nel campo
"IdNrNonConformita" venga copiato il contenuto della texbox
"NrNonConformita" della maschera "M_ModificaNonConformita", ho fatto cosi
ma non funziona mi da errore ADDNew
*********************************************************************
Private Sub AggiungiNuovo_Click()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("T_Articoli", dbOpenTable)
    With rs
    rs.AddNew
      .Quantita
      .Codice
      .Descrizione
      .Anomalia
      !IdNrNonConformita = Forms!M_ModificaNonConformita!NrNonConformita
    .Update
    End With
End Sub
***********************************************************************
Dove sbaglio??? :(
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aggiungere Record senza aprire tabella

author: Carlo Costarella

text:
"Domy73" <
domy...@gmail.com
> ha scritto nel messaggio
news:ihjqk4$ksa$1...@news.newsland.it...
> Salve a tutti
> Attraverso un pulsante su una maschera vorrei aggiungere un nuovo record
> alla tabella "T_Articoli" (senza aprirla) in modo tale che il nel campo
> "IdNrNonConformita" venga copiato il contenuto della texbox
> "NrNonConformita" della maschera "M_ModificaNonConformita", ho fatto cosi
> ma non funziona mi da errore ADDNew
>
> *********************************************************************
> Private Sub AggiungiNuovo_Click()
>    Dim rs As DAO.Recordset
>    Set rs = CurrentDb.OpenRecordset("T_Articoli", dbOpenTable)
>    With rs
>    rs.AddNew
>      .Quantita
>      .Codice
>      .Descrizione
>      .Anomalia
>      !IdNrNonConformita = Forms!M_ModificaNonConformita!NrNonConformita
>    .Update
>    End With
> End Sub
> ***********************************************************************
>
> Dove sbaglio??? :(
>
Non si capisce bene cosa vorresti ottenere scrivendo:
rs.AddNew
     .Quantita
     .Codice
     .Descrizione
     .Anomalia
mancano i punti esclamativi al posto del punto e i rispettivi valori. (p.e.
!Quantita = boh?)
Manca l'indice e non dici se � un contatore e quindi poterne fare a meno.
Forms!M_ModificaNonConformita!NrNonConformita ha lo stesso tipo di dati di
!IdNrNonConformita?
Ciao, Carlo


title: Query a campi incrociati in giapponese

author: singer

text:
Ho una query a campi incrociati che in un campo visualizza un carattere in giapponese.
Nella relativa tabella il campo, invece, contiene correttamente il testo.
si tratta di un campo Memo.

Finora avevo risolto con la compattazione/ripristino del db, e funzionava.
Ma adesso niente più.
Nel campo della tabella non ci sono caratteri particolari!

Che faccio?


title: Query a campi incrociati in giapponese

author: Karl Donaubauer

text:
Ciao,

singer:

Il problema occorre abbastanza frequentemente con campi memo che vengono
raggruppati in una query. Il solito workaround è di non usare
Raggruppamento per il campo nella query ma una funzione come First (vedi
anche
http://www.allenbrowne.com/bug-18.html
).

Un'altro metodo che puoi provare è di usare un campo calcolato nella query:

MioGiapponese: Left(NomeCampo;255)

Cioè prendere i primi 255 charatteri del campo e continuare con questo
campo calcolato.

Se non riesci rivella dettagli:
- Da dove vengono i dati della quaci? Se si tratta già di una query
incolla il suo enunciato SQL.
- Incolla anche l'enunciato SQL della quaci.

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

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


title: Query a campi incrociati in giapponese

text:
Grazie, karl
come al solito strepitoso. Fuzniona

Hei, ma un piccolo aiutino per quell'altra questione su cui bruno si sta impegnando ... no?
magari un gruppo di lavoro!

Saluti

a presto


title: Ordinamento

text:
Salve ragazzi, ho due tabelle su cui una ci sono tutti gli studenti di una
scuola e l'altra i relativi compiti in classe sostenuti dagli studenti con i
relativi voti. Voglio l'elenco alfabetico di tutti gli studenti con cognome,
nome e numero delle prove sufficienti in una determinata materia. Ho fatto
la seguente query
select S.nome, S.cognome, count(P.id_prova)
from studente S, prova P
where  P.materia=[Inserire materia] and S.id_studente=P.studente and P.voto
<6
order by S.cognome ;
Mi segnala il seguente errore: Impossibile eseguire una query che non
include l'espressione "nome" specificata come parte di una funzione di
aggregazione
Non capisco cosa voglia significare questo errore, e soprattutto in cosa ho
sbagliato, grazie a chi vorrà darmi un consiglio :-)
--
# ICQ 84624356
# MSN
lello...@katamail.com


title: Ordinamento

author: Cinzia

text:
"Il_Puntatore" <
lello...@katamail.it
> ha scritto nel messaggio
news:u07Pd.27911$QG6.4...@twister2.libero.it...

Ciao IL_Puntatore,
prova con questa:
SELECT Studente.Cognome, Studente.Nome, Count(Prova.ID_Prova) AS
ConteggioProvePositive
FROM Studente  INNER JOIN Prova ON Studente.ID_Studente = Prova.ID_Studente
WHERE (((Prova.ID_Materia)=[Materia?]) AND ((Prova.Voto)>=6))
GROUP BY Studenti.Cognome, Studenti.Nome;
Saluti
Cinzia


title: Ordinamento

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:420d08f5$0$32355$5fc...@news.tiscali.it...

Mi segnala sempre il solito errore
Impossibile eseguire una query che non
include l'espressione "nome" specificata come parte di una funzione di
aggregazione :-(


title: Ordinamento

text:
> >> Salve ragazzi, ho due tabelle su cui una ci sono tutti gli studenti di
> >> una
> >> scuola e l'altra i relativi compiti in classe sostenuti dagli studenti
> >> con
> > i
> >> relativi voti. Voglio l'elenco alfabetico di tutti gli studenti con
> > cognome,
> >> nome e numero delle prove sufficienti in una determinata materia. Ho
> >> fatto
> >> la seguente query
> >>
> >> select S.nome, S.cognome, count(P.id_prova)
> >> from studente S, prova P
> >> where  P.materia=[Inserire materia] and S.id_studente=P.studente and
> > P.voto
> >> <6
> >> order by S.cognome ;
> >>
> >> Mi segnala il seguente errore: Impossibile eseguire una query che non
> >> include l'espressione "nome" specificata come parte di una funzione di
> >> aggregazione
> >>
> >> Non capisco cosa voglia significare questo errore, e soprattutto in
cosa
> > ho
> >> sbagliato, grazie a chi vorrà darmi un consiglio :-)
> >>
> >> --
> >
> > prova con questa:
> >
> > SELECT Studente.Cognome, Studente.Nome, Count(Prova.ID_Prova) AS
> > ConteggioProvePositive
> > FROM Studente  INNER JOIN Prova ON Studente.ID_Studente =
> > Prova.ID_Studente
> > WHERE (((Prova.ID_Materia)=[Materia?]) AND ((Prova.Voto)>=6))
> > GROUP BY Studenti.Cognome, Studenti.Nome;
> >
> > Saluti
> > Cinzia
>
> Mi segnala sempre il solito errore
> Impossibile eseguire una query che non
> include l'espressione "nome" specificata come parte di una funzione di
> aggregazione :-(
>
Ciao
ho scritto Studenti nel Group BY invece di Studente
SELECT Studente.Cognome, Studente.Nome, Count(Prova.ID_Prova) AS
ConteggioProvePositive
FROM Studente  INNER JOIN Prova ON Studente.ID_Studente =
 Prova.ID_Studente
 WHERE (((Prova.ID_Materia)=[Materia?]) AND ((Prova.Voto)>=6))
GROUP BY Studente.Cognome, Studente.Nome;
così deve andare!
Cinzia


title: Ordinamento

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:420d28a0$0$6308$5fc...@news.tiscali.it...
> SELECT Studente.Cognome, Studente.Nome, Count(Prova.ID_Prova) AS
> ConteggioProvePositive
> FROM Studente  INNER JOIN Prova ON Studente.ID_Studente =
> Prova.ID_Studente
> WHERE (((Prova.ID_Materia)=[Materia?]) AND ((Prova.Voto)>=6))
> GROUP BY Studente.Cognome, Studente.Nome;
>
> cosě deve andare!
> Cinzia
Ti ringrazio molto ora funziona correttamente, perň non ho capito l'uso del
group by, perchč senza il group by la query non funziona?


title: Ordinamento

text:
"Il_Puntatore" <
lello...@katamail.it
> ha scritto nel messaggio
news:TsoPd.28929$QG6.5...@twister2.libero.it...

Ciao
La funzione Count che usi per sapere qunte prove positive ha sotenuto
ciascun studente č una funzione di aggregazione e puoi usarla senza la
clausola GROUP BY solo se tu volessi sapere  quante prove positive hanno
sostenuto complessivamente gli studenti, siccome l'informazioni che cercavi
era relativa ad ogni siongolo studente  l'istruzione GROUP BY serve appunto
per ISTRUIRE SQL su come effettuare questo conteggio.
Un saluto
Cinzia


title: Euro.... in lettere

author: Oscar Adiutori

text:
Salve... sono un neoiscritto... probabilmente il mio problema è stato già
affrontato... cmq vi sottopongo la cosa... avrei bisogno di un codice o
procedura che permetta di tradurre in lettere gli importi in euro tipo
compilazione degli assegni bancari più o meno questo
? 12,23 dovrebbe dare
dodici/23
Potete aiutarmi?


title: Euro.... in lettere

text:
Sarebbe bello inserire la procedura in una macro di Word o altre
applicazioni Office. Utilissimo quando si devono fare decine e decine di
bonifici.
Sono parecchio interessato all'argomento!
Non appena sai qualcosa fai un fischio. Ciao!
One.Emmedi
"Oscar Adiutori" <
re...@tin.it
> ha scritto nel messaggio
news:H7qc8.85781$3J1.2...@news2.tin.it...



title: Euro.... in lettere

author: A.M. Liapunov

text:
beh in teoria non è molto difficile da realizzare...
prendiamo il caso di un numero tipo:
5.679,65 Euro (cinquemilaseicentosettantanove//65)
metti in una tabella (o in un array) la conversione delle migliaia e delle
centinaia, che rimangono invariate.
Diverso è per le decine...
ad esempio:
ventotto
ventuno
Si constata facilmente che la regola è
Decina=Trenta, Quaranta, Cinquanta, quelcheè...
Decina-Due, Decina-Tre, ..., Decina-Nove per tutti tranne che per il finale
otto e uno dove la vocale si tronca.
Un caso a parte poi per la prima decina.
Insomma senza troppi giri basta giocare un pò gli array e mettere le
opportune conversioni in lettere.
E il gioco è fatto!
Qualcuno ha un metodo migliore?
"One.Emmedi" <
pro...@promedshipsupply.it
> wrote in message
news:fqrc8.72129$om6.1...@news1.tin.it...



title: Euro.... in lettere

author: Riccardo

text:
A.M. Liapunov <
liap...@uni.de
> wrote in message
o8sc8.21198$8F6.9...@twister2.libero.it...

_______________
c'è sul sito comune un esempio (mi sembra di Federico Luciani) che scrivendo
un numero, compare il corrispondente in lettere.
Si puo' adattare per stampare bonifici...
già fatto e funziona alla perfezione...
ciao Riccardo


title: Euro.... in lettere

text:
Confermo: c'è qualcosa su sito comune... addirittura multi lingua l'unico
neo: 888 lo traduce in ottocentoottantotto e non ottocentottantotto.
Ciao e grazie!
One.Emmedi
"A.M. Liapunov" <
liap...@uni.de
> ha scritto nel messaggio
news:o8sc8.21198$8F6.9...@twister2.libero.it...



title: Euro.... in lettere

text:
Mi rispondo da solo:
Ecco il codice:
Public Function InLettere(numero As Double) As String
    Dim decine(9) As String
    Dim PrimaDecina(10) As String
    Dim Numeri(10) As String
    Numeri(1) = "uno"
    Numeri(2) = "due"
    Numeri(3) = "tre"
    Numeri(4) = "quattro"
    Numeri(5) = "cinque"
    Numeri(6) = "sei"
    Numeri(7) = "sette"
    Numeri(8) = "otto"
    Numeri(9) = "nove"
    PrimaDecina(0) = "dieci"
    PrimaDecina(1) = "undici"
    PrimaDecina(2) = "dodici"
    PrimaDecina(3) = "tredici"
    PrimaDecina(4) = "quattordici"
    PrimaDecina(5) = "quindici"
    PrimaDecina(6) = "sedici"
    PrimaDecina(7) = "diciassette"
    PrimaDecina(8) = "diciotto"
    PrimaDecina(9) = "diciannove"
    decine(2) = "venti"
    decine(3) = "trenta"
    decine(4) = "quaranta"
    decine(5) = "cinquanta"
    decine(6) = "sessanta"
    decine(7) = "settanta"
    decine(8) = "ottanta"
    decine(9) = "novanta"
    Dim migliaia As Integer
    Dim centinaia As Integer
    Dim dec As Integer
    Dim interi As Integer
    Dim result As String
    migliaia = numero \ 1000
    centinaia = (numero - migliaia * 1000) \ 100
    dec = (numero - migliaia * 1000 - centinaia * 100) \ 10
    interi = (numero - migliaia * 1000 - centinaia * 100 - dec * 10)
    If migliaia = 1 Then
    result = "mille"
    Else
    If migliaia > 1 Then
    result = Numeri(migliaia) & "mila"
    End If
    End If
    If centinaia = 1 Then
    result = result & "cento"
    Else
    If centinaia > 1 Then
    result = result & Numeri(centinaia) & "cento"
    End If
    End If
    If dec = 1 Then
    result = result & PrimaDecina(interi)
    ElseIf dec > 1 And (interi = 1 Or interi = 8) Then
        result = result & Left(decine(dec), Len(decine(dec)) - 1)
        result = result & Numeri(interi)
    Else
        result = result & decine(dec) & Numeri(interi)
    End If
    InLettere = result
End Function


title: Euro.... in lettere

text:
> Confermo: c'è qualcosa su sito comune... addirittura multi lingua l'unico
> neo: 888 lo traduce in ottocentoottantotto e non ottocentottantotto.
> Ciao e grazie!
Anche quello che ho postato sotto ...
basta sistemare la cosa...
ti mando il codice rivisto in posta.
Ciao
:)


title: Euro.... in lettere

text:
Questa soluzione mi piace di piů. E' piů pulita. Ti ringrazio ancora di piů
se li portiamo a 99.999.999,99 euro!
Spero di incassare io una cifra del genere, non si sa mai... almeno la
vediamo in lettere.
Grazie!
P.S.: Sono alla ricerca disperata delle soluzioni ai problemi in NG per
MSAGENT e MDAC 2.7. Rimando lě il mio problema. Grazie Mille!
One.Emmedi
"A.M. Liapunov" <
liap...@uni.de
> ha scritto nel messaggio
news:%2uc8.21786$8F6.9...@twister2.libero.it...



title: Euro.... in lettere

author: Antonio Biso

text:
"One.Emmedi" <
pro...@promedshipsupply.it
> ha scritto nel messaggio
news:Vsuc8.148$3s4....@news1.tin.it...
> MSAGENT e MDAC 2.7. Rimando lě il mio problema. Grazie Mille!
>
Perchč non lo rimandi scrivendo DOPO il quoting?
Antonio


title: Euro.... in lettere

text:
"One.Emmedi" <
pro...@promedshipsupply.it
> wrote in message
news:Vsuc8.148$3s4....@news1.tin.it...
> Questa soluzione mi piace di piů. E' piů pulita. Ti ringrazio ancora di
piů
> se li portiamo a 99.999.999,99 euro!
> Spero di incassare io una cifra del genere, non si sa mai... almeno la
> vediamo in lettere.
> Grazie!
Ok adesso perň sto uscendo. Sistemo il codice stanotte o domani e te lo
mando in posta.
OK?
Ciao


title: Euro.... in lettere

text:
Meglio se lo rimandi al NG! Grazie!One.Emmedi
"A.M. Liapunov" <
liap...@uni.de
> ha scritto nel messaggio
news:6zuc8.21937$8F6.9...@twister2.libero.it...
>
> "One.Emmedi" <
pro...@promedshipsupply.it
> wrote in message
> news:Vsuc8.148$3s4....@news1.tin.it...
> > Questa soluzione mi piace di più. E' più pulita. Ti ringrazio ancora di
> più
> > se li portiamo a 99.999.999,99 euro!
> > Spero di incassare io una cifra del genere, non si sa mai... almeno la
> > vediamo in lettere.
> > Grazie!
>
>
>
> Ok adesso però sto uscendo. Sistemo il codice stanotte o domani e te lo



title: Euro.... in lettere

author: Silvio Berruti

text:
"One.Emmedi" <
pro...@promedshipsupply.it
> ha scritto nel messaggio
news:zbvc8.318$3s4....@news1.tin.it...
> Meglio se lo rimandi al NG! Grazie!One.Emmedi
Meglio se impari a rispondere dopo i messaggi precedenti. Grazie.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Euro.... in lettere

author: BB

text:
> > > Sono parecchio interessato all'argomento!
> > > Non appena sai qualcosa fai un fischio. Ciao!
> > > One.Emmedi
> > > "Oscar Adiutori" <
re...@tin.it
> ha scritto nel messaggio
> >
> _______________
> c'è sul sito comune un esempio (mi sembra di Federico Luciani) che
scrivendo
> un numero, compare il corrispondente in lettere.
> Si puo' adattare per stampare bonifici...
> già fatto e funziona alla perfezione...
>
> ciao Riccardo
>
> hai ragione!
ho visto anche io questo esempio sul sito comune,
abusatene tutti!!!!!  :-)))


title: Euro.... in lettere

text:
A.M. Liapunov <
liap...@uni.de
> wrote in message
W5uc8.21800$8F6.9...@twister2.libero.it...

> non mandarlo solo a lui, ma anche a me grazie!!!
onof...@tin.it


title: Euro.... in lettere

text:
Grazie mille...
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:3svc8.137$E33....@twister1.libero.it...



title: Euro.... in lettere

text:
> > "One.Emmedi" <
pro...@promedshipsupply.it
> wrote in message
> > news:Vsuc8.148$3s4....@news1.tin.it...
> > > Questa soluzione mi piace di più. E' più pulita. Ti ringrazio ancora
di
> > più
> > > se li portiamo a 99.999.999,99 euro!
> > > Spero di incassare io una cifra del genere, non si sa mai... almeno la
> > > vediamo in lettere.
> > > Grazie!
Ecco di seguito il codice rivisto.
Effettivamente, come dicevi tu, sistemare tutto tutto mi ha impiegato più di
dieci minuti! :)
Credo di aver sistemato tutto; fai delle prove tu ed eventualmente dimmi se
c'è qualche problema!!
Adesso converte i numeri fino al miliardo (escluso).
Per sistemare la faccenda dei centesimi puoi scrivere una funziona
combinandola con la InLettere che trovi sotto.
Qualcosa del tipo:
= InLettere(cifra) & "//" & decimali
Da notare la soluzione Divide Et Impera con la doppia ricorsione per i
numeri più grandi di un milione! :)
Buona Giornata
AM Liapunov
---Cut---
 Public Function InLettere(numero As Double) As String
    If numero > 999999999 Then
        InLettere = "Numero troppo grande!"
        Exit Function
    End If

    Dim migliaia As Double
    Dim centinaia As Double
    Dim dec As Double
    Dim interi As Double
    Dim result As String
    Dim milioni As Integer
    migliaia = numero \ 1000
    centinaia = (numero - migliaia * 1000) \ 100
    dec = (numero - migliaia * 1000 - centinaia * 100) \ 10
    interi = (numero - migliaia * 1000 - centinaia * 100 - dec * 10)
    If migliaia = 1 Then
        result = "mille"
    ElseIf migliaia > 1 And migliaia <= 9 Then
        result = Numeri(migliaia) & "mila"
    ElseIf migliaia > 9 And migliaia < 20 Then
        result = PrimaDecina(migliaia - 10) & "mila"
    ElseIf migliaia >= 20 And migliaia < 1000 Then
        result = InLettere(CDbl(migliaia)) & "mila"
    ElseIf migliaia >= 1000 Then
        milioni = migliaia \ 1000
        If milioni = 1 Then
            result = "unmilione" & InLettere(CDbl(numero - milioni *
1000000))
            InLettere = result
            Exit Function
        Else
            result = InLettere(CDbl(milioni)) & "milioni" &
InLettere(CDbl(numero - milioni * 1000000))
            InLettere = result
            Exit Function
        End If
    End If
    If centinaia = 1 Then
        result = result & "cento"
    ElseIf centinaia > 1 And dec = 8 Then
        result = result & Numeri(centinaia) & "cent"
    ElseIf centinaia > 1 Then
        result = result & Numeri(centinaia) & "cento"
    End If
    If dec = 0 Then
        result = result & Numeri(interi)
    ElseIf dec = 1 Then
        result = result & PrimaDecina(interi)
    ElseIf dec > 1 And (interi = 1 Or interi = 8) Then
        result = result & Left(decine(dec), Len(decine(dec)) - 1)
        result = result & Numeri(interi)
    ElseIf dec > 1 Then



title: Euro.... in lettere

text:
A.M. Liapunov <
liap...@uni.de
> wrote in message
TUIc8.3848$Zf3.1...@twister2.libero.it...

Scusa se mi intrometto, ma giusto per un controllo, su come funzionasse, ho
copiato la tua routine,
poi in debug ho scritto
?inLettere(999.25)
ma su invio mi scrive solo l'intero senza i decimali.
come mai non li riporta?
ciao Riccardo


title: Euro.... in lettere

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a4vmbu$goa$1...@news.panservice.it...
> Scusa se mi intrometto, ma giusto per un controllo, su come funzionasse,
ho
> copiato la tua routine,
> poi in debug ho scritto
> ?inLettere(999.25)
> ma su invio mi scrive solo l'intero senza i decimali.
>
> come mai non li riporta?
> ciao Riccardo
Mi ero spiegato nel post con il codice:
La funzione riporta la traduzione in lettere degli interi; E' dunque di
carattere generale!
Per compilare un assegno o un bonifico o quant'altro e sufficiente comporre
la funzione in questo modo:
= InLettere(cifra) & "//" & decimali
dove decimali sarà stato opportunemente calcolato.
Dal momento che ho fatto questa funzione di fretta ieri sera non mi sono
messo a scrivere anche la procedurina per estrerre i decimali... ma è cosa
da poco...


title: Euro.... in lettere

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a4vmbu$goa$1...@news.panservice.it...
>> Scusa se mi intrometto, ma giusto per un controllo, su come funzionasse,
ho
> copiato la tua routine,
> poi in debug ho scritto
> ?inLettere(999.25)
> ma su invio mi scrive solo l'intero senza i decimali.
>
> come mai non li riporta?
> ciao Riccardo
Ad esempio, tanto per completare... la funzione riportata sotto fa quello
che serve.
Supponendo di avere una maschera con un contro TxtNum che contiene il numero
da convertire per l'assegno, sarà possibile scrivere compattamente e
logicamente la seguente espressione:
=InLettere([txtNum]) & "//" & Decimali([txtnum])
Public Function Decimali(numero As Double) As String
    If InStr(numero, ",") = 0 Then
        Decimali = "00"
    Else
        Decimali = Mid(numero, InStr(numero, ",") + 1, 2)
    End If
End Function


title: Euro.... in lettere

text:
A.M. Liapunov <
liap...@uni.de
> wrote in message
gEJc8.3992$Zf3.1...@twister2.libero.it...

perfetto!
mi ero modificato quello del sito comune, ma il tuo è di piu' agevole
utilizzo.
thank's
Riccardo


title: Euro.... in lettere

text:
"A.M. Liapunov" <
liap...@uni.de
> ha scritto nel messaggio
news:gEJc8.3992$Zf3.1...@twister2.libero.it...

Scusate l'intromissione
Tanto per dirne una: la funzione Replace è molto comoda quando si vogliono
evitare molte if then else nidificate.
Per esempio:
st1 = "Ottocentoottantaotto"
st1 = Replace (st1,"oo","o") restituisce "Ottocentottantaotto"
in seguito
st1 = Replace (st1,"ao","o") restituisce "Ottocentottantotto"
Che ne dite?
One.Emmedi


title: Euro.... in lettere

text:
A rieccomi.... scusate se mi dilungo con qhesta richiesta di HELP....
Ho inserito l'espressione
=InLettere([Importo Versamento]) & "/" & Decimali([Importo Versamento])
Mi compare invece del risultato il seguente errore #Nome?
Da cosa dipende?
Considerate che con solo la prima funzione InLettere tutto funziona...
Grazie
"One.Emmedi" <
pro...@promedshipsupply.it
> ha scritto nel messaggio
news:KnLc8.2369$3s4....@news1.tin.it...



title: Euro.... in lettere

text:
"Oscar Adiutori" <
re...@tin.it
> ha scritto nel messaggio
news:TkMc8.2820$3s4....@news1.tin.it...
> A rieccomi.... scusate se mi dilungo con qhesta richiesta di HELP....
>
> Ho inserito l'espressione
> =InLettere([Importo Versamento]) & "/" & Decimali([Importo Versamento])
>
> Mi compare invece del risultato il seguente errore #Nome?
> Da cosa dipende?
Dal fatto che non scrivi DOPO il quoting!!!
Antonio


title: Euro.... in lettere

author: ferdiprimo

text:
Cut
 Confermo: c'è qualcosa su sito comune... addirittura multi lingua
 l'unico  neo: 888 lo traduce in ottocentoottantotto e non
ottocentottantotto
.
> > ti mando il codice rivisto in posta.
 Ciao
Perchè non lo posti nel NG?
Ciao Ferdinando


title: Aiuto urgente con Access

author: Luigi Bresciani

text:
Ho un database con 3 tabelle e 3 maschere.
MASCHERA1 (principale)
Nome                Codice             CodProdotto             .....
CLIENTE
Codice              Nome                 .....
0001                Pippo
0002                Pluto
PRODOTTO
NomeProdotto	    CodProdotto        Prezzo                  .....
AAAAAAAAAA              A		10
BBBBBBBBBB              B           	20
1. Come posso fare in modo che, una volta inserito il NomeCliente
Pippo nella Maschera1, in automatico mi inserisca come Codice 0001,
prelevandolo dalla maschera Cliente???
2. Come posso fare in modo che, al posto del CodProdotto della
Maschera1, mi compaia una specie di menù a tendina (o qualcosa del
genere), in modo che io possa scegliere di inserire solamente i Codici
Prodotto della maschera Prodotto (A, B,...)???
3. E' possibile far sì che il campo Prezzo della maschera Prodotto sia
protetto da Password?
Vorrei tutto il dtabase accessibile da tutti, mentre quel campo solo
da un utente.
4. Con le formule che ho implementato per le macro, dovrei fare
calcoli del tipo:
data   -> 15/06/2002
CampoA -> 2002+X
CampoB -> 1506+Y
Il problema è che Access prende 2002 giusto, mentre nel campoB
calcola: 156+Y (che è ben diverso!).
Come posso risolverlo???
Grazie,
       Luigi.
P.S.: Spero di essere stato abbastanza chiaro.


title: Aiuto urgente con Access

author: Sib

text:
"Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
Tutti i messaggi sono urgenti, mentre invece se fai capire di cosa parli hai
piu' possibilita' di ricevere risposta.
Per questa volta ti rispondo, ma la prossima volta scrivi un oggetto piu'
significativo.
cut
> 1. Come posso fare in modo che, una volta inserito il NomeCliente
> Pippo nella Maschera1, in automatico mi inserisca come Codice 0001,
> prelevandolo dalla maschera Cliente???
ComboBox (dalla tabella cliente, non dalla maschera)
> 2. Come posso fare in modo che, al posto del CodProdotto della
> Maschera1, mi compaia una specie di menù a tendina (o qualcosa del
> genere), in modo che io possa scegliere di inserire solamente i Codici
> Prodotto della maschera Prodotto (A, B,...)???
ComboBox
> 3. E' possibile far sì che il campo Prezzo della maschera Prodotto sia
> protetto da Password?
> Vorrei tutto il dtabase accessibile da tutti, mentre quel campo solo
> da un utente.
Mettilo su una tabella a parte e proteggi la tabella a livello utente.
> 4. Con le formule che ho implementato per le macro, dovrei fare
> calcoli del tipo:
> data   -> 15/06/2002
> CampoA -> 2002+X
> CampoB -> 1506+Y
> Il problema è che Access prende 2002 giusto, mentre nel campoB
> calcola: 156+Y (che è ben diverso!).
> Come posso risolverlo???
Access non prende "156", dipende da come gli passi i valori.
Sib
--
qualita.assicurazione su
www.cerrinet.it
Il newsgroup sulla Qualita'


title: Aiuto urgente con Access

text:
"Sib" <si...@SPAMiol.it> wrote in message news:<wT_T8.27480$
vm5.1...@news2.tin.it
>...
> "Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
>
> Tutti i messaggi sono urgenti, mentre invece se fai capire di cosa parli hai
> piu' possibilita' di ricevere risposta.
> Per questa volta ti rispondo, ma la prossima volta scrivi un oggetto piu'
> significativo.
Scusa, hai ragione. :-(
> > 1. Come posso fare in modo che, una volta inserito il NomeCliente
> > Pippo nella Maschera1, in automatico mi inserisca come Codice 0001,
> > prelevandolo dalla maschera Cliente???
>
> ComboBox (dalla tabella cliente, non dalla maschera)

Risolto, grazie.
> > 2. Come posso fare in modo che, al posto del CodProdotto della
> > Maschera1, mi compaia una specie di menù a tendina (o qualcosa del
> > genere), in modo che io possa scegliere di inserire solamente i Codici
> > Prodotto della maschera Prodotto (A, B,...)???
>
> ComboBox
Risolto anche questo, grazie.
> > 3. E' possibile far sì che il campo Prezzo della maschera Prodotto sia
> > protetto da Password?
> > Vorrei tutto il dtabase accessibile da tutti, mentre quel campo solo
> > da un utente.
>
> Mettilo su una tabella a parte e proteggi la tabella a livello utente.
Adesso ci provo, ma non so se ci riuscirò! ;-)
> > 4. Con le formule che ho implementato per le macro, dovrei fare
> > calcoli del tipo:
> > data   -> 15/06/2002
> > CampoA -> 2002+X
> > CampoB -> 1506+Y
> > Il problema è che Access prende 2002 giusto, mentre nel campoB
> > calcola: 156+Y (che è ben diverso!).
> > Come posso risolverlo???
>
> Access non prende "156", dipende da come gli passi i valori.
Per estrarre il 1506 ho usato
LTrim(Str(Mid([Data];1;2)))&LTrim(Str(Mid([Data];4;2)))

> Sib
Grazie,
       Luigi.


title: Aiuto urgente con Access

text:
"Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> wrote in message
> > "Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
cut
> > > 1. Come posso fare in modo che, una volta inserito il NomeCliente
> > > Pippo nella Maschera1, in automatico mi inserisca come Codice 0001,
> > > prelevandolo dalla maschera Cliente???
> >
> > ComboBox (dalla tabella cliente, non dalla maschera)
>
> Risolto, grazie.
Bene.
> > > 2. Come posso fare in modo che, al posto del CodProdotto della
> > > Maschera1, mi compaia una specie di menù a tendina (o qualcosa del
> > > genere), in modo che io possa scegliere di inserire solamente i Codici
> > > Prodotto della maschera Prodotto (A, B,...)???
> >
> > ComboBox
>
> Risolto anche questo, grazie.
Meglio
> > > 3. E' possibile far sì che il campo Prezzo della maschera Prodotto sia
> > > protetto da Password?
> > > Vorrei tutto il dtabase accessibile da tutti, mentre quel campo solo
> > > da un utente.
> >
> > Mettilo su una tabella a parte e proteggi la tabella a livello utente.
>
> Adesso ci provo, ma non so se ci riuscirò! ;-)
Sono certo di si, ma se non ci riesci riposta.
> > > 4. Con le formule che ho implementato per le macro, dovrei fare
> > > calcoli del tipo:
> > > data   -> 15/06/2002
> > > CampoA -> 2002+X
> > > CampoB -> 1506+Y
> > > Il problema è che Access prende 2002 giusto, mentre nel campoB
> > > calcola: 156+Y (che è ben diverso!).
> > > Come posso risolverlo???
> >
> > Access non prende "156", dipende da come gli passi i valori.
>
> Per estrarre il 1506 ho usato
> LTrim(Str(Mid([Data];1;2)))&LTrim(Str(Mid([Data];4;2)))
fai cosi':
format(month(Data),"00") & format(day(Data),"00")
Sib


title: Aiuto urgente con Access

text:
"Sib" <si...@SPAMiol.it> wrote in message news:<3KfU8.30547$
vm5.1...@news2.tin.it
>...

Ho risolto tutto, tranne il punto 3.
Ci siamo quasi! ;-)
Grazie.


title: Aiuto urgente con Access

author: Luigi Bresciani1

text:
> > "Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
> Ho risolto tutto, tranne il punto 3.
> Ci siamo quasi! ;-)
>
> Grazie.
Problemi precedenti risolti (anche la sicurezza!), ora perň me ne si č
aggiunto un altro! :-(
Consideriamo le due tabelle:
MASCHERA1 (principale)
CodiceCliente       NomeCliente        .....
CLIENTE
CodiceCliente       NomeCliente        .....
0001                    Pippo
0002                    Pluto
Al momento, riempiendo il campo CodiceCliente nella MASCHERA1, mi si apre il
menů a tendina da cui
posso scegliere 0001, 0002,...
Quello che vorrei č far sě che, se scelgo 0001, di default mi inserisca nel
campo NomeCliente pippo.
Come posso fare?
Grazie.


title: Aiuto urgente con Access

text:
"Luigi Bresciani1" <
brel...@libero.it
> wrote in message news:<ClAU8.35571$
vm5.1...@news2.tin.it
>...
> > > "Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
>
> > Ho risolto tutto, tranne il punto 3.
> > Ci siamo quasi! ;-)
> >
> > Grazie.
>
> Problemi precedenti risolti (anche la sicurezza!), ora però me ne si è
> aggiunto un altro! :-(
>
> Consideriamo le due tabelle:
>
> MASCHERA1 (principale)
> CodiceCliente       NomeCliente        .....
>
>
> CLIENTE
> CodiceCliente       NomeCliente        .....
> 0001                    Pippo
> 0002                    Pluto
>
>
> Al momento, riempiendo il campo CodiceCliente nella MASCHERA1, mi si apre il
> menù a tendina da cui
> posso scegliere 0001, 0002,...
> Quello che vorrei è far sì che, se scelgo 0001, di default mi inserisca nel
> campo NomeCliente pippo.
>
> Come posso fare?
>
> Grazie.
Nessuno è in grado di aiutarmi? :-(
Grazie,
       Luigi.


title: Aiuto urgente con Access

author: Roberto da casa

text:
"Luigi Bresciani1" <
brel...@libero.it
> ha scritto nel messaggio
news:ClAU8.35571$vm5.1...@news2.tin.it...

Se ll casella combinata (alias menů a tendina) inserita in MASCHERA1 si
chiama MiaCombo ed ha due colonne.
Se l'origine riga della casella combinata č:
SELECT CodiceCliente, NomeCliente FROM CLIENTE;
Se la casella di testo inserita in MASCHERA! in cui vuoi visualizzare il
valore del campo NomeCliente si chiama anche lei NomeCliente.
A fronte dell'evento "Dopo aggiornamento" della casella combinata genera la
seguente riga di codice VBA:
Me!NomeCliente = Me!MiaCombo.Column(1)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aiuto urgente con Access

text:
"Luigi Bresciani" <
bre...@hotmail.com
> ha scritto nel messaggio
cut
> > Quello che vorrei č far sě che, se scelgo 0001, di default mi inserisca
nel
> > campo NomeCliente pippo.
> >
> > Come posso fare?
Scusa il ritardo nella risposta, comunque ti ha gia' dato la soluzione
roberto



title: maschera access sempre in primo piano

author: marcello

text:
Vorrei che una maschera pop up fosse sempre in primo piano a video, anche
con altre applicazioni aperte, es. internet explorer.
Si puň fare?
Grazie


title: Non visualizzo barra dei menu

author: leonardo esposito

text:
Salve amici del NG,
non riesco più a visualizzare la barra dei menu in access 2003 (File,
Visualizza, Modifica, Strumenti, etc.): di preciso non ricordo cosa ho
potuto fare...faccio presente che ora insieme alle tabelle ci sono
anche "MSysAccessObjects", "MSysAccessXML", "MSysACEs"..
grazie molte per l'aiuto
Leonardo


title: Non visualizzo barra dei menu

text:
leonardo esposito ha scritto:
>Salve amici del NG,
>non riesco pi=F9 a visualizzare la barra dei menu in access 2003 (File,
>Visualizza, Modifica, Strumenti, etc.): di preciso non ricordo cosa ho
>potuto fare...faccio presente che ora insieme alle tabelle ci sono
>anche "MSysAccessObjects", "MSysAccessXML", "MSysACEs"..
>
>grazie molte per l'aiuto
>
>Leonardo
Guarda questo ,mi era capitato lo stesso problema
http://groups.google.com/group/it.comp.appl.access/msg/c4bf4c3b1d035f19
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Copia record ..............elimina nello stesso tempo.

author: Gianni B

text:
Buongiorno a tutto il News ho una domanda da fare a cui non trovo una
risposta è come al solito vengo a cercare il vostro aiuto ho la seguente
Query che mi copia il record selezionato in un'altra tabella funziona a
meraviglia ma ora io vorrei chiedervi è possibile tramite codice far
eseguire ad Access "1°":  la copia del record "selezionato" nella tabella di
destinazione,
2°: l 'eliminazione del record copiato dalla tabella di origine........
beh questo non sarebbe un grossso problema dite voi..... ma adesso vi dico
che le due operazioni dovrebbero essere fatte sull'evento click di un
bottone di comando nello stesso momento..... cioè con un solo click Access
dovrebbe prima copiare il record nella tabella di destinazione,è dopo
cancellare il record nella tabella di origine...........
È fantasia quello che vorrei fare.........?!?!
a proposito  la query è strutturata in questo modo:
INSERT INTO Material ( Partener_N°, Wagon_N°, Datum, Artikel, Artikel_N°,
[Gewicht Kg], Station, Code, Status, Bemerke, ID_Materiale )
SELECT Copia_Sicurezza.Partener_N°, Copia_Sicurezza.Wagon_N°,
Copia_Sicurezza.Datum, Copia_Sicurezza.Artikel, Copia_Sicurezza.Artikel_N°,
Copia_Sicurezza.[Gewicht Kg], Copia_Sicurezza.Station, Copia_Sicurezza.Code,
Copia_Sicurezza.Status, Copia_Sicurezza.Bemerke,
Copia_Sicurezza.ID_Materiale
FROM Partener INNER JOIN Copia_Sicurezza ON Partener.Partener_N° =
Copia_Sicurezza.Partener_N°
WHERE (((Copia_Sicurezza.ID_Materiale)=[Forms]![Sichereit]![ID_]));
Grazie come sempre,purtroppo le mie domande non sono semplici come una
volta.............mi scuso per questo.......
--
Gianni B.


author: Giuseppe

text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3e50a...@news.bluewin.ch...
[CUT]
> --
> Gianni B.
>
Come stai a VBA?
Giuseppe


author: MA

text:

eeeeeeeeeeeeeeeeeehhhhhhhhhhhhh!!!!!!!!!!!!!
Query di eliminazione
eeeeeeeeeeeeeeeeeehhhhhhhhhhhhh!!!!!!!!!!!!!
inseriscila subito dopo quella di accodamento
eeeeeeeeeeeeeeeeeehhhhhhhhhhhhh!!!!!!!!!!!!!
cliccando lo stesso pulsante fa tutte e due le cose
Le so tutte........................ B-]
ciao MAssimiliano
P.s. Ovviamente in onore a Walter Fontana di Zelig
--------------------------------
Inviato via
http://usenet.libero.it


text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3e50a...@news.bluewin.ch...

non ci crederete ma ci sono riuscito da solo con questo
sistema.............Private Sub Comando133_Click()
On Error GoTo Err_Comando133_Click
    Dim stDocName As String
     Dim stLinkCriteria As String
    stDocName = "Copia"
     stLinkCriteria = "[Wagon_N°]=" & "'" & Me![Wagon_N°] & "'"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.OpenForm "Sichereit", acNormal
Exit_Comando133_Click:
    Exit Sub
Err_Comando133_Click:
    MsgBox Err.Description
    Resume Exit_Comando133_Click
grazie comunque a tutti ho scritto il codice per aiutare qualcuno come me
che ne capisce
pochino...
ciao a tutti.
--
Gianni B.


title: Espressione con iif

author: Piero

text:
ciao a tutti

ho questa espressione che non mi da il giusto riusltato

 IIf(IsNull([MiaData] Or ([Numero_a]=0 And [Numero_b=0));0;-1)
vorrei che: se manca la data oppure
(Numero_a=0 e Numero_b=0)
risulato 0, altrimenti -1

Ma se ho
Numero_a=0 e Numero_b=0
ho come risulato -1 anzich� 0

Grazie


title: Espressione con iif

author: Bruno Campanini

text:
Piero was thinking very hard :

> ho come risulato -1 anzichï¿œ 0
>
> Grazie

IIF(IsNull(...) OR (a=0 AND b=0), 0, -1)

Questo ï¿œ VBA: e che c'entrano i ";"?

Bruno


title: Espressione con iif

text:
Bruno Campanini brought next idea :

[...]

> Questo ï¿œ VBA: e che c'entrano i ";"?
>

Sorry, pensavo essere nel NG di Excel!

Bruno


title: Espressione con iif

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:51c1f405$0$1349$4faf...@reader2.news.tin.it...

Prova questo:

IIf(IsNull([MiaData]) Or (([Numero_a] = 0) And ([Numero_b] = 0)); 0; -1)
Ciao


title: Espressione con iif

text:
"774" <
liber...@liber.it
> ha scritto nel messaggio
news:51c3556a$0$63502$c3e8da3$efbd...@news.astraweb.com...

si questo va bene
Grazie


title: ICONA su package di developer

author: sd

text:
Salve a tutti,
vorrei sapere se esiste il modo per poter cambiare
l'icona che appare dopo avere eseguito un setup di un
package fatto con il developer di A2k?
Dopo il setup su avvio-programmi-nomeprogramma
c'è sempre l'icona STANDARD di a2k... ho provato
a dare un'icona diversa da strumenti-avvio-icona
ma la cosa non cambia l'icona....
grazie
sdamy


title: Relazionare due caselle combinate

author: CDM

text:
Non riesco a risolvere il seguente problema:
prima tabella CLIENTI con i campi [id_cliente] e [nominativo]
seconda tabella CAUSALI_PAGAMENTO con i campi [id_cliente] e [causale]
ora nella maschera legata ho due caselle combinate, la prima dove scelgo il
cliente ed è tutto ok e la seconda dove vorrei poter scegliere solo le
causali del cliente scelto nella prima, riesco solo a far vedere tutte
quelle inserite di tutti i clienti
come posso fare
Grazie a tutti
ciao Claudio


title: Relazionare due caselle combinate

author: Gianluca

text:
"CDM" <
nospam.dema...@tin.it
> ha scritto nel messaggio
news:19vF8.68758$zW3.1...@news1.tin.it...

Nell'origine valori della seconda combo, metti un riferimento alla prima
combo nei criteri dell'ID.


title: Relazionare due caselle combinate

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:yOvF8.78774$5k4.1...@twister2.libero.it...

Scusa non capisco ti riferisci sull'istruzione sql del secondo combo? quello
è ok ma come faccio a specificere del record corrente, altrimenti mi prende
tutti gli id presenti nella tabella vendite


title: Relazionare due caselle combinate

author: SimonenomiS

text:
"CDM" <
nospam.dema...@tin.it
> wrote in
news:w1xF8.58538$
CN3.1...@news2.tin.it
:
>
> Scusa non capisco ti riferisci sull'istruzione sql del
> secondo combo? quello è ok ma come faccio a specificere del
> record corrente, altrimenti mi prende tutti gli id presenti
> nella tabella vendite
>
  Supponiamo che la 1a combo abbia come datasource la seguente
query SQL:
     SELECT ID, Nome FROM Clienti
  e che la colonna associata sia la ID.
  Dunque nella 2a combo dovrai scrivere una query del tipo:
     SELECT IDcliente, Ordine From Vendite
     WHERE IDcliente = combo1.column(1)
     OSS: puoi anche scrivere solamente
          WHERE IDcliente = combo1
  In questo modo la selezione degli Ordine risultera'
subordinata alla scelta del Cliente nella combo1
PS: Dimenticavo, nel codice relativo all'evento
DopoAggiornamento della combo1 è bene inserire l'istruzione
combo2.requery
  Ciao.
--
-------------------------------------
http://digilander.iol.it/winses/
-------------------------------------


title: Office 2000 Standard e...

author: Demiurgoprimo

text:
Salve,
mi hanno comprato Office 2000 Standard e naturalmente non c'č Access, la
versione che avevo e che ho ancora la '97 č completa, ora mi chiedo, č
possibile far convivere le due versioni? sullo stesso pc?
altrimenti non posso usare la versione 2000, che comprende Word Excell e
Powerpoint, qualcuno di voi ha gią avuto dei problemi simili? e come lo
avete risolto? le due versioni sono compatibili fra di loro, ovvero se un
utente usa il '2000 posso aprire il documento con il '97?
Ho fatto delle prove e sembrerebbe che non ci siano problemi ma mi farebbe
piacere conoscere anche il vostro parere.
Grazie
Giuseppe


title: Office 2000 Standard e...

author: Sib dal portatile

text:
"Demiurgoprimo" <
bkf...@tin.it
> ha scritto nel messaggio
> Salve,
> mi hanno comprato Office 2000 Standard e naturalmente non c'č Access, la
> versione che avevo e che ho ancora la '97 č completa, ora mi chiedo, č
> possibile far convivere le due versioni? sullo stesso pc?
Si'.
> altrimenti non posso usare la versione 2000, che comprende Word Excell e
> Powerpoint, qualcuno di voi ha gią avuto dei problemi simili? e come lo
> avete risolto? le due versioni sono compatibili fra di loro, ovvero se un
> utente usa il '2000 posso aprire il documento con il '97?
Si', eccetto che per Access
> Ho fatto delle prove e sembrerebbe che non ci siano problemi ma mi farebbe
> piacere conoscere anche il vostro parere.
> Grazie
Prego
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bin laden saddam attentato medio oriente


title: Office 2000 Standard e...

author: Emyr

text:
On Sat, 05 Jan 2002 15:03:08 GMT, "Demiurgoprimo" <
bkf...@tin.it
>
wrote:
>Salve,
>mi hanno comprato Office 2000 Standard e naturalmente non c'è Access, la
>versione che avevo e che ho ancora la '97 è completa, ora mi chiedo, è
>possibile far convivere le due versioni? sullo stesso pc?
>altrimenti non posso usare la versione 2000, che comprende Word Excell e
>Powerpoint, qualcuno di voi ha già avuto dei problemi simili? e come lo
>avete risolto? le due versioni sono compatibili fra di loro, ovvero se un
>utente usa il '2000 posso aprire il documento con il '97?
>Ho fatto delle prove e sembrerebbe che non ci siano problemi ma mi farebbe
>piacere conoscere anche il vostro parere.
>Grazie
>Giuseppe
>
sul sito microsoft ci sono le istruzioni per istallare tutte e due le
versioni sulla stesso sistema operativo.
al limite puoi sempre usare un'altra partizione dove istallare le
versioni vecchie....due sistemi operativi, un multiboot, una
partizione dati....
Saluti.
Emanuele.


title: Office 2000 Standard e...

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:uu7g3u4ct5qb3nie6...@4ax.com...
> On Sat, 05 Jan 2002 15:03:08 GMT, "Demiurgoprimo" <
bkf...@tin.it
>
> wrote:
>
> >Salve,
> >mi hanno comprato Office 2000 Standard e naturalmente non c'č Access, la
> >versione che avevo e che ho ancora la '97 č completa, ora mi chiedo, č
> >possibile far convivere le due versioni? sullo stesso pc?
> >altrimenti non posso usare la versione 2000, che comprende Word Excell e
> >Powerpoint, qualcuno di voi ha gią avuto dei problemi simili? e come lo
> >avete risolto? le due versioni sono compatibili fra di loro, ovvero se un
> >utente usa il '2000 posso aprire il documento con il '97?
> >Ho fatto delle prove e sembrerebbe che non ci siano problemi ma mi
farebbe
> >piacere conoscere anche il vostro parere.
> >Grazie
> >Giuseppe
> >
>
>
> sul sito microsoft ci sono le istruzioni per istallare tutte e due le
> versioni sulla stesso sistema operativo.
> al limite puoi sempre usare un'altra partizione dove istallare le
> versioni vecchie....due sistemi operativi, un multiboot, una
> partizione dati....
> Saluti.
> Emanuele.
Grazie
Giuseppe