title: Importo in lettere su report

author: Max Ghetti

text:
Dovrei aggiungere  a un report che ha solo una casella chiamata
"importo" il cui valore deriva da una query, l'importo in lettere (tipo
assegno).
Da bravo utente del ng, sono andato sul sitocomune e ho scaricato
l'esempio "Convertire numeri in testo" di F.Luciani.
L'esempio viene applicato ad una maschera che carica il modulo in
entrata (su caricamento) mentre nel mio caso dovrei semplicemente
chiamare la routine ("eurocheque ?") passargli il valore del campo
importo e pubblicare l'output della routine nella nuova casella di testo
chiamata "diconsi".
Domande:
1) come faccio a dire al report (richiamato da un pulsante di una
maschera e che ha come origine dati una query) di caricare il modulo
"modCurrency2String" ?
2)come faccio a passargli il  valore ?
3) come faccio a recuperare il valore letterale ?
Mi guidereste passo passo ?
Lo so, sono domande stupide, ma da autodidatta non so che pesci pigliare
!
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Importo in lettere su report

author: Sergio MAZZA

text:
"Max Ghetti" <
maxg...@libero.it
> ha scritto nel messaggio
news:f4a38053d6e77385d56...@mygate.mailgate.org...

Cotruisciti una funzione in un modulo che richiama la EuroCheque; la
funzione riceverà in input il valore numerico e restituirà il valore
alfanumerico. La funzione la puoi inserire direttamente nei controlli del
report (come origine dati) o nella query (se esiste) del report creandoti
dei campi calcolati.
Es.
'-------------
Function daNumeroAtesto(importo As Double, Optional testolingua As Byte = 1)
As String
Dim sNumberValue As String, sCaseValue As String, txtValore as String
EuroCheque importo, sNumberValue, txtValore, testolingua
testoGrammi = txtValtxtValore
End Function
'-------------
Ciao.
--
Sergio MAZZA


title: Importo in lettere su report

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message
news:a33rpr$std$1...@canarie.caspur.it...
>
> Cotruisciti una funzione in un modulo che richiama la EuroCheque; la
> funzione riceverà in input il valore numerico e restituirà il valore
> alfanumerico. La funzione la puoi inserire direttamente nei controlli del
> report (come origine dati) o nella query (se esiste) del report creandoti
> dei campi calcolati.
> Es.
> '-------------
> Function daNumeroAtesto(importo As Double, Optional testolingua As Byte = 1)
> As String
> Dim sNumberValue As String, sCaseValue As String, txtValore as String
>
> EuroCheque importo, sNumberValue, txtValore, testolingua
>
> testoGrammi = txtValtxtValore
> End Function
> '-------------
>
> Ciao.
>
> --
> Sergio MAZZA
Abbi pazienza....
Ho costruito la seg. funzione (copiando la tua) inserendola in "Modulo1"
Function daNumeroAtesto(IMPORTO As Double, Optional testolingua As Byte
= 1) As String
Dim sNumberValue As String, sCaseValue As String, txtValore As String,
Testoeuro As String
EuroCheque IMPORTO, sNumberValue, txtValore, testolingua
Testoeuro = txtValore
End Function

Ora ho la mia casella di testo sul report chiamata "Diconsi" :
vorrei inserire nei controlli come origine dati, (se ho capito bene)
"testoeuro" : ho provato varie strade ma mi da' sempre errore o mi apre
la
mascherina per farmi digitare un valore per "testoeuro".
Come dovevo fare ?
grazie



title: Importo in lettere su report

text:
"Max Ghetti" <
maxg...@libero.it
> ha scritto nel messaggio
news:48c9405b10069f174a2...@mygate.mailgate.org...
>
> Abbi pazienza....
Tranquillo e rilassato...
> Ho costruito la seg. funzione (copiando la tua) inserendola in "Modulo1"
Ok;
------ omissis --------
> Ora ho la mia casella di testo sul report chiamata "Diconsi" :
> vorrei inserire nei controlli come origine dati, (se ho capito bene)
> "testoeuro" : ho provato varie strade ma mi da' sempre errore o mi apre
> la
> mascherina per farmi digitare un valore per "testoeuro".
> Come dovevo fare ?
> grazie
>
Mandarmi a quel paese...
Ho dimenticato di modificare la penultima riga della funzione (testoGrammi =
txtValtxtValore); il codice giusto è:
'-------------
Function daNumeroAtesto(importo As Double, Optional testolingua As Byte = 1)
As String
Dim sNumberValue As String, txtValore as String
EuroCheque importo, sNumberValue, txtValore, testolingua
daNumeroAtesto = txtValtxtValore
End Function
'-------------
Quindi l'origine dati della casella di testo "Diconsi" diventa:
'-----------
= daNumeroAtesto([Importo])
'-----------
Controlla anche che [importo] contenga sempre valori numerici, magari
utilizzando la funzione nz() (vedi help):
'-----------
= daNumeroAtesto(Nz([Importo];0))
'-----------
Ciao.
--
Sergio MAZZA


title: Importo in lettere su report

text:
Ti ringrazio molto, funziona alla perfezione !
Grazie



title: Importo in lettere su report

author: GIGIGNO

text:
"Max Ghetti" <
maxg...@libero.it
> ha scritto nel messaggio
news:663cf3c5115743a5346...@mygate.mailgate.org...

Mi potete spiegare i vari passaggi...piu' dettaglitamente anche io ho
l'esigenza di convertire in report numero > lettere
[Importo] >>>>> [Importo lettere]
ma il modulo da Voi costruito non e' accettato dal
mio a97 mi da' errore si txtvaltxtvalore!!!!
Grazie


title: Evitare inserimenti multipli

author: Pinguino

text:
Ho una tbl di inserimento dati basata su una popup che si apre
sull'aggiornamento di un campo. Però se vado a modificare tale campo
in una riga contenete già dei dati, la popup mi si ripresenta vuota
(giuastamente: alla modifica parte la sequenza svuota/riempi basata su
query), permettendo l'inserimento di ulteriori dati. Vorrei evitare che
questo accada. Così termino questo db e non rischio di diventare
ragù... qualcuno può indicarmi un metodo?


title: Evitare inserimenti multipli

author: Massimo Piubelli

text:
Pinguino wrote:
> Ho una tbl di inserimento dati basata su una popup che si apre
> sull'aggiornamento di un campo. Però se vado a modificare tale campo
> in una riga contenete già dei dati, la popup mi si ripresenta vuota
> (giuastamente: alla modifica parte la sequenza svuota/riempi basata su
> query), permettendo l'inserimento di ulteriori dati. Vorrei evitare
> che questo accada.
Allora, la logica potrebbe essere quella di controllare se il record esiste
già
Se il record esiste, apri la maschera in modifica, se non esiste apri la
maschera in inserimento.
> Così termino questo db e non rischio di diventare
> ragù... qualcuno può indicarmi un metodo?
ROTFL...
non l'avevo mai sentita.
Ciao,
Massimo


title: Evitare inserimenti multipli

text:
...è appunto questo il problema. Per effettuare la verifica di
esistenza o meno del record dovrei affidarmi ad un minimo di conoscenza
di VBA. Peccato solo che ne conosco ben poco. Quello che ho acquisito,
lo ho imparato quì, in questo NG.
Parlo di ragù perchè il software è per una macelleria, ed il
titolare mi ha promesso di fare un ottimo macinato se...


title: Evitare inserimenti multipli

text:
Pinguino wrote:
> ...č appunto questo il problema. Per effettuare la verifica di
> esistenza o meno del record dovrei affidarmi ad un minimo di
> conoscenza di VBA. Peccato solo che ne conosco ben poco. Quello che
> ho acquisito, lo ho imparato quě, in questo NG.
> Parlo di ragů perchč il software č per una macelleria, ed il
> titolare mi ha promesso di fare un ottimo macinato se...
Potresti usare Dlookup, DCount (cerchi il funzionamento sulla guida in linea
che cosě impari)
Poi con il costrutto if, vai a operare il tuo modo di operare
If Dcount(..qua scopri tu che ci va..) = 0 then
    docmd.OpenForm "NomeForm",,,,acFormAdd
else
    docmd.OpenForm "NomeFome",,,"ID = " & campoID
end if


title: Evitare inserimenti multipli

text:
Perfetto, vado subito a sfogliarmi la guida.
...e poi son tutto ossi, che ragù vuoi che ci faccia con me...


title: Evitare inserimenti multipli

text:
Cribb... ops!
Dovrei a questo punto avere qualcosa del genere:
Private Sub Modello_AfterUpdate()
    Me.Refresh
    If DLookup("[Modello]", "OrdineModello", "[idordine] = " _
    & Forms!MascheraOrdineModello!idordine) <>
Forms!MascheraOrdineModello!Modello _
    Then
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "SottoOrdinePopUpSvuota"
        DoCmd.OpenQuery "SottoOrdinePopUpRiempi"
        DoCmd.OpenForm "SottoOrdinePopUp"
        DoCmd.SetWarnings True
    Else
    End If
End Sub
Però la maschera "MascheraOrdineModello" è sottomaschera... e penso
che non sia la sintassi corretta. Della serie: non funge.


title: Evitare inserimenti multipli

text:
Pinguino wrote:
> Cribb... ops!
Benenuto nel mondo dei programmatori... tra poco inizierai anche tu con le
bestemmie in turco ;-)
> Dovrei a questo punto avere qualcosa del genere:
> Private Sub Modello_AfterUpdate()
>     Me.Refresh
>     If DLookup("[Modello]", "OrdineModello", "[idordine] = " _
>     & Forms!MascheraOrdineModello!idordine) <>
> Forms!MascheraOrdineModello!Modello _
Il codice lo scrivi nella sottomaschera, oppure esite un campo modello anhce
nella maschera principale?
Se fosse nella sottomaschera (come presumo) potresti scrivere direttamente
If DLookup("[Modello]", "OrdineModello", "[idordine] = " &
Forms!MascheraOrdineModello!idordine) <> Me.Modello
> Perň la maschera "MascheraOrdineModello" č sottomaschera... e penso
> che non sia la sintassi corretta. Della serie: non funge.
Altrimenti prova cosě
Forms!NomeMskPrincipale!NomeOggettoSottomaschera!NomeCampo
poi fa sapere
Ciao,
Massimo


title: Evitare inserimenti multipli

text:
Ottimo! Risolto oggi con un pò di pazienza. Per lo meno se ri
seleziono la medesima voce non si apre più la pop up. Il prossimo
passo sarà la cancellazione degli inserimenti se vengono effettuati
nella medesima riga di inserimento.
Comunque era proprio Me.Modello...
Grazie dell'aiuto!


title: Evitare inserimenti multipli

text:
Pinguino wrote:
> Ottimo! Risolto oggi con un pň di pazienza.
La pazienza č la virtů dei programmatori ;-)
> Grazie dell'aiuto!
Di niente.
Ciao,
Massimo


title: Evitare inserimenti multipli

text:
In effetti la sua funzione la fà. Se adesso provo a cambiare il valore
in una "riga" dove c'erano già dei dati, in vba la cancello
direttamente... così impara a sbagliare... se riuscirò a farmi capire
porterò un altro problema... con mooooolta pazienza.


title: Inserire annunci sul Web

author: alex

text:
E' possibbile creare un programmino per inserire annunci  sui giornali?
Es:
Clicco su pulsante accesse e....
Si collega al sito , scrive user pass , clicca su pagina annunci , inserisce
annuncio , conferma .
Mi basterebbero degli spunti ! Avete qualche idea?
Grazie Alex


title: Inserire annunci sul Web

author: Setec Astronomy

text:
alex wrote:

Si, e' possibile, ma abbastanza complesso.
Non ti conviene utilizzare Access, ma un tool di sviluppo piu' general
purpose.
Saluti.


title: Esportazione OLE su foglio Excel

text:
Per questioni di lavoro ho l'esigenza di inserire immagini JPEG di
pochi KB in un foglio EXCEL, prelevandole da un campo di
tabella di tipo oggetto OLE.
Premetto che ho già implementato con successo la tecnica OLE Linking,
utilizzando percorsi e nomi file insertiti in due campi
di tabella che poi vengono passati al metodo Add dell'insieme
OLEObjects.
Tuttavia dato che le immagini si trovano in rete e questa potrebbe non
essere disponibile, vorrei passare alla soluzione di
incorporare l'oggetto OLE in tabella e quindi di *esportarlo
direttamente* nel foglio Excel.
Vorrei utilizzare ancora il metodo Add dell'insieme OLEObjects, ma ho
qualche problema a riferirmi a un oggetto DAO.Field
tramite l'argomento ClassType:="" del metodo Add. Per questo motivo ho
due domande da porvi:
1) La tecnica OLE Embedding obbliga a usare l'argomento ClassType,
oppure posso usare l'argomento FileName?
2) Se sono obbligato a usare ClassType, qual è l'OLE programmatic
idertifier di un oggetto Field della libreria DAO?
Alla pagina web
http://msdn2.microsoft.com/en-us/library/aa204929(office.11).aspx
ho trovato informazioni su alcuni OLE
programmatic identifier, per esempio "Access.CurrentData", ho fatto
vari tentativi per adattare il codice all'oggetto
DAO.Field ma finora non ho avuto risultati.
Vi ringrazio anticipatamente dell'aiuto che potrete darmi.


title: Esportazione OLE su foglio Excel

author: ALESSANDRO Baraldi

text:
"Torino79" <
gso...@alice.it
> ha scritto nel messaggio
news:1193823484.3...@22g2000hsm.googlegroups.com...














Se il Campo OLE contiene il Binario del File non ti resta che rispotarlo
fuori...
leggendo il Data(Field) e scrivendolo in un File(con opportuna estensione
che devi sapere) aperto in Binary in Append o for Output.
A quel punto finita la scrittura il File conterrà l'immagine JPG(se quella
era l'estensione) e puoi prendere il File stesso ed incollarlo
in Excel come faresti da VBA... registra la Macro e vedi che codice viene
applicato e riportalo in Access con le dovute modifiche
nel riferimento all'oggetto Excel.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: ORDINA AD AVVIO SOVRASCRITTO

author: Roberto Spinella Esteban

text:
Ho una maschera con la proprietą ordina ad avvio impostata a COGNOME,NOME.
Appena perņ un utente effettua un ordinamento su un qualsiasi campo della
maschera il nuovo ordinamento viene memorizzato nella proprieta ordina ad
avvio
C'č modo di preimpostare in maniera fissa l'ordinamento che voglio Io ?
Grazie


title: ORDINA AD AVVIO SOVRASCRITTO

author: Maurizio

text:
"Roberto Spinella Esteban" <
rs...@tiscali.it
> ha scritto nel messaggio
news:b80efs$chu$1...@lacerta.tiscalinet.it...

ordina la tabella di origine come ti pare, salvala e reimposta la proprietą
"origine record" della maschera al nome della stessa tabella.
Maurizio


title: Formattazione testo in messaggio Whatsapp

author: BF Soluzioni

text:
Buongiorno,
ho creato un form access dove ho i dati del cliente e un form per il
messaggio da inviare via email o con whatsapp.
Il testo è il seguente:
Gent.ma  Sig.ra Luana,
Il suo codice cliente è: 74.
Le auguriamo un felice compleanno e con l'occasione, Le inviamo un buono
sconto per un qualsiasi trattamento presso il nostro negozio, valido per
30 giorni dal ricevimento del messaggio.
Per usufruire dello sconto, mostri questo messaggio all'ingresso.
La preghiamo di volerci contattare per fissare l'appuntamento e con
l'occasione, le porgiamo
Cordiali saluti.

Il testo è formattato in questo modo ed è inserito in una casella di
testo di tipo testo lungo.

Quando lo spedisco per email, viene spedito correttamente ma quando lo
spedisco con whatsapp, viene tutto attaccato e senza andare a capo.
Ho provato a passargli il codice vbcrlf o il codice ascii, ma non cambia
nulla.

Il codice che ho  usato per inviare il messaggio è il seguente:

cell = "+39 " & Forms![clienti]!TelCellulare
CreateObject("Shell.Application").Open
"
https://api.whatsapp.com/send?phone=
" & cell & "&text=" &
Me.TestoMessaggio & vbCrLf & Me.Ditta
Forms!clienti!ultimomessaggio = Date
Forms!clienti!id_messaggio = Me.Messaggio
Forms!clienti!TipoMessaggio = DLookup("[titolo]", "messaggi", "[id] = "
& Me.Messaggio)

Ho sbagliato qualcosa?
Vi ringrazio.
Cordiali saluti.
Stefano

--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


author: BFS

text:

al posto dello spazio devi usare il +

BFS


text:

dimenticavo
per l'acapo usa  %0a

esempio

Dim testo As String
testo = "riga+uno%0ariga+2"

cell = "+393......"
CreateObject("Shell.Application").Open
"
https://api.whatsapp.com/send?phone=
" & cell & "&text=" & testo

BFS


author: Michele

text:

Da quello che ho capito questo codice funziona se whatsapp applicazione o web sono aperti.
Giusto?


text:

almeno sul mio pc se non aperto l'app si apre
ma come gia discusso in passato il messaggio non viene inviato in
automatico..serve comunque cliccare su invia.

se non ricordo male perchè espressamente vietato dalla policy di whatapp
che vieta l'invio di messaggi senza l'intervento dell'utente.

BFS


author: RobertoA

text:

E questo rompre discretamente le scatole
Non c'e' altro modo di automatizzare l'invio messaggi su wa?
Identificare handle finestra con aperto wa web e far 'premere' il tasto
INVIA a colpi di SendMessage ?


text:

Grazie mille, mi hai salvato la vita...
Funziona alla perfezione anche se devo confermare ogni volta l'invio.
Adesso dovrò dividere il codice se devo inviare con whatsapp o email, ma
almeno adesso è perfetto.
Buongiorno a tutti.



text:

ma con accrocchi esterni lo si fa
esempio su pyton c'è una libreria esterna dove basta mettere numero
destinatario messaggio, data e ora e il messaggio parte

per vba vedi qui una possibile soluzione

https://www.youtube.com/watch?v=Wn9L1MD_y0Y

BFS


text:

No no, che confermare l'invio ogni volta, non esiste
Il sior BFS ti ha consigliato due metodi per ovviare al limite
Sei pregato, urgentemente, di provarli e poi riferire
Con tanto di codice, s'intende  :)


text:

no no gran calma
ho scritto che ci sono soluzioni, ma sottolineo nuovamente che l'invio
automatico NON è consentito e neppure l'invio in massa

https://faq.whatsapp.com/1104252539917581/?locale=it_IT

ci sono sanzioni

BFS


title: Help access

author: Riccardo

text:
Ciao, ho 2 problemi con access...vorrei che in una maschera,
selezionando un codice articolo da un menù a tendina, mi cambiassero
anche le altre caselle correlate...ealtra cosa in cui non riesco, è di
inserire un bottone che ogni che viene premuto, mi aggiunga 1 ad una
certa quantità...GRAZIE a tutti!!!
Ps in caso posso inviare il file di access...


title: Help access

author: ciroteo

text:
"Riccardo" <
td_...@yahoo.it
> ha scritto nel messaggio
news:dd99f20a.04053...@posting.google.com...

Allora Riccardo, sei proprio un gran lavoratore vai a letto tardi e ti
svegli di buon ora ... ma cavolaccio sembra che tu abbia la testa un po'
dura!!!
Hai ripostato, ma non hai cambiato l'oggetto del messaggio.
Cerco di spiegarmi. Se in futuro qualcun altro avrà bisogno di risolvere il
tuo stesso problema, (anche se al momento non è molto chiaro), proverà
magari a vedere nei messaggi precedenti se l'argomento è già stato trattato,
a quel punto cosa cercherà : help access???? Sai che aiuto gliene verrà?!?!?
O forse cercherà tra i messaggi che hanno per oggetto x esempio : modficia
valori campi dopo aggiornamento casella combinata., modifica valori su click
di un pulsante.
Un altro consiglio tu hai due esigenze:
- aggiornare i dati dopo aver selezionato un valore dalla casella combinata
- aggiornare dei valori dopo il click di un pulsante
Vai per gradi affronta un problema e l'altro verrà di conseguenza.
dacci un po' più di informazioni sulla struttura della tabelle.


title: Cambio Formato

text:
Buon Giorno a tutti...
Access 97
Maschera preventivo
e' possibile assegnare al totale preventivo
il formato valuta (Lire Italiane) fino all'Id_preventivo 5914 ed il formato
euro "?" #.###,## dal 5914 in poi.....
Grazie


title: Cambio Formato

text:
"GIGIGNO" <
gco...@tin.it
> ha scritto nel messaggio
news:1Fe08.9509$pm3.2...@news1.tin.it...

Queste gestioni miste dei dati sono terribili.........!!!!
Hai 2 possibilità, delle quali io non ne utilizzerei nemmeno 1/2.....!!!(Non
pratiche)
1)Query d'aggiornamento con Vincolo Id_Preventivo>5914 Aggiorna a
Format(Campo;#.####,##)
2)Se non hai una Form a Maschere Continue un Campo non associato in cui
Origine Controllo
  inserisci una BRUTTA funzione
IIF(ID_Preventivo>5914;Format(.......);Normale)
Auguri......!
--
@Alex
*--------------------------------------------------------------------------*
Alessandro B.
Sito Comune      :
http://www.sitocomune.com
Sito Personale   :
http://digilander.iol.it/ik2zok/
*--------------------------------------------------------------------------*


title: Modifica proprietà file

author: Checci

text:
Salve a tutti
ho ancora una volta bisogno del vostro prezioso aiuto (MITICO MAAAAA) ;o)
Allora dovrei cambiare le proprietą di un file .rtf da in sola "lettura"!
Che comando devo usare?
Grazie mille!
Checco
--------------------------------
Inviato via
http://usenet.libero.it


title: Modifica proprietà file

text:
"Checci" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Salve a tutti
> ho ancora una volta bisogno del vostro prezioso aiuto (MITICO MAAAAA) ;o)
> Allora dovrei cambiare le proprietą di un file .rtf da in sola "lettura"!
> Che comando devo usare?
>
> Grazie mille!
>
> Checco
>
Ti ripropongo una risposta data da Luca Dormio su  it.comp.lang.visual-basic
-------------------------------------------------------------------------
prova a guardare nella guida in linea i comandi GetAttr\SetAttr; ad
esempio:
'Imposta l'attributo di sola lettura
SetAttr "C:\TEST.TXT", vbReadOnly
oppure, meglio ancora:
Dim iFileAttr As Integer
'recuperiamo gli attributi correnti del file
iFileAttr = GetAttr("C:\TEST.TXT")
'se non e' gia' impostato come read only aggiungiamo
'il flag preservando quelli vecchi.
If (iFileAttr And vbReadOnly) = 0 Then
    iFileAttr = iFileAttr + vbReadOnly
    SetAttr "C:\TEST.TXT", iFileAttr
End If
-------------------------------------------------------------------------
Ciao
@Alex


title: Modifica proprietà file

author: Checco

text:
> Ti ripropongo una risposta data da Luca Dormio su
it.comp.lang.visual-basic
> -------------------------------------------------------------------------
> prova a guardare nella guida in linea i comandi GetAttr\SetAttr; ad
> esempio:
>
> 'Imposta l'attributo di sola lettura
> SetAttr "C:\TEST.TXT", vbReadOnly
>
> oppure, meglio ancora:
>
> Dim iFileAttr As Integer
>
> 'recuperiamo gli attributi correnti del file
> iFileAttr = GetAttr("C:\TEST.TXT")
>
> 'se non e' gia' impostato come read only aggiungiamo
> 'il flag preservando quelli vecchi.
> If (iFileAttr And vbReadOnly) = 0 Then
> iFileAttr = iFileAttr + vbReadOnly
> SetAttr "C:\TEST.TXT", iFileAttr
> End If
> -------------------------------------------------------------------------
MITICO ALEXXXX! :o)
> Ciao
> @Alex



title: Modifica proprietà file

author: MA

text:
Il 27 Giu 2003, 12:59,
fra....@libero.it
 (Checco) ha scritto:
> > Ti ripropongo una risposta data da Luca Dormio su
> it.comp.lang.visual-basic
> >
-------------------------------------------------------------------------
> > prova a guardare nella guida in linea i comandi GetAttr\SetAttr; ad
> > esempio:
> >
> > 'Imposta l'attributo di sola lettura
> > SetAttr "C:\TEST.TXT", vbReadOnly
> >
> > oppure, meglio ancora:
> >
> > Dim iFileAttr As Integer
> >
> > 'recuperiamo gli attributi correnti del file
> > iFileAttr = GetAttr("C:\TEST.TXT")
> >
> > 'se non e' gia' impostato come read only aggiungiamo
> > 'il flag preservando quelli vecchi.
> > If (iFileAttr And vbReadOnly) = 0 Then
> > iFileAttr = iFileAttr + vbReadOnly
> > SetAttr "C:\TEST.TXT", iFileAttr
> > End If
> >
-------------------------------------------------------------------------
>
>
> MITICO ALEXXXX! :o)
Eh NO! Il mitico sono io...
>
> > Ciao
> > @Alex
@Alex cmq devo ammetterlo tu sei veramente MI-TI-CO...
ma vaffa...
MAssimiliano



title: Modifica proprietà file

text:
> > MITICO ALEXXXX! :o)
> Eh NO! Il mitico sono io...
Beh tu sei all'apice della classifica dei MI-TI-CI, anche se noto con molto
piacere che ce ne sono tanti altri! ;o)

> >
> > > Ciao
> > > @Alex
Checco



title: Modifica proprietà file

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y...@usenet.libero.it...
[CUT]
> >
> > MITICO ALEXXXX! :o)
> Eh NO! Il mitico sono io...
>
>
> > > Ciao
> > > @Alex
>
> @Alex cmq devo ammetterlo tu sei veramente MI-TI-CO...
> ma vaffa...
>
> MAssimiliano
>
In effetti me lo aspettavo..., la battuta era d'obbligo.......!
MI-TTI-CCI..................!!!
Bye a tutti.....!
@Alex


title: filtro in base a #Errore

author: Valerio Dal Monte

text:
buongiorno e buonasera.
in una query alcuni campi contengono il valore "#Errore". questo accade
perché quel campo è calcolato con una formula che talvolta trova vuoto uno
dei campi necessari.
ora io vorrei filtrare (con filtro ad esclusione selezione) nella query i
record che contengono campi con il valore "#Errore".
purtroppo access non me lo permette. quando ci provo mi esce una mascherina
che dice:
Tipo di dati non corrispondenti nell'espressione criterio.
Potete suggerirmi qualche coscia ?
grazie, ciao.


title: filtro in base a #Errore

author: Alessandro Cara

text:

Per suggerimenti di  "cosce" son disponibile anchio
Se e' una query avrai un sql sel tipo sum(campo)
prova con
sum(nz(campo,0))
--
ac


title: filtro in base a #Errore


title: Protezione file

author: bobparr

text:
Buondi', su access 2007 ho un file (con tabelle, query, report...) che
dovrei rendere di sola lettura, per evitare che il figlio del capo
continui a farci casini sopra.

La sfortuna e' che ello vi accede dal mio PC e non da un altro profilo.

Vorrei arrivare a far si' che la maschera XY si apra al click sul file,
che si possa andare avanti e indietro con le freccine, che si possa
usare una macro1 di ricerca giustapposta nel campo di ricerca adibito
allo scopo, e stop!
No inserimenti, no cancellazioni, no modifiche

Se vuoi fare quelle (e io le devo fare, ogni tanto) si dovrebbe aprire
una mascherina che dice: "se vuoi fare le modifiche inserisci questa
pswd..."

Si puo' fare, per uno che non ne mastica di codice tipo me?


title: Protezione file

text:

---
Alla fine l'ho trovato da solo, il flag snapshot sulla maschera...
:-|
M.


title: MHTM inviabile? Come?

author: OneEDP

text:
Ciao a tutto il NG
Obiettivo: inviare una e-mail con un messaggio di tipo MHTM  (MIME
Encapsulation of Aggregate HTML Documents salva insieme all'HTML una
serie di files binari in strutture MIME un unico file)
Ho necessità di inviare un messaggi HTML corredato di tutti i link
(immagini, sfondi, ecc...) contenuti in file Word. Inviando il formato HTML
perdo tutti i link, ovviamente. L'alternativa e produrre un file .mht ed
inviarlo
NON CI SONO RIUSCITO! Nè con SendObject, nè con gli oggetti di automazione
Outlook.MailItem
Mapi32 forse potrebbe fare al caso mio, ma in sitocomune e nei post
precedenti non ho trovato le impostazioni necessarie per l'invio. C'è un
esempio di Carlo Costarella, ma solo in formato testo.
Ho l'impressione che MAPI32 sia così completo da inviare anche i .mht, ma
non ho nessuna idea su come impostare le variabili.
Vi prego di aiutarmi sono bloccato da giorni!
Grazie
Ciao
Daniele


title: MHTM inviabile? Come?

author: Sergio MAZZA

text:
"OneEDP" <
one.emme...@tin.it
> ha scritto nel messaggio
news:iEnub.127887$e6.45...@twister2.libero.it...

Se utilizzi Win2000 dovresti provare con gli oggetti CDonts e per NET CDO
(spero di non aver sbagliato le sigle).
Non ho approfondito il tema (li utilizzo in modo superficiale: semplici mail
di testo) e forse hanno la soluzione...
Ciao.
--
Sergio MAZZA


title: Ricerca.... fallisce

author: Fedele

text:
Buonasera, in una maschera ho aggiunto un pulsante per effettuare la ricerca all'intarno del db con il seguente codice

Private Sub cmdFind_Click()
    Dim fld As DAO.Field
    Dim ctl As Access.Control
    Dim sSQL As String
    Dim Attr As String
    Dim RicAss As String
    Dim ctlVal  As Variant
    Attr = " AND "
    If Me!boxAttr = 2 Then
        Attr = " OR "
    End If
    RicAss = ""
    If Me.boxRicerca = 1 Then
        RicAss = "*"
    End If

    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox
                If ctl <> "" Then
                   ctlVal = ctl.Value
                   If Me.RecordsetClone.Fields(ctl.Name).Type = dbText Then
                        ctlVal = RicAss & ctlVal & RicAss
                   End If
                   If Me.RecordsetClone.Fields(ctl.Name).Type = dbMemo Then
                        ctlVal = RicAss & ctlVal & RicAss
                   End If
                   sSQL = sSQL & BuildCriteria(ctl.Name, Me.RecordsetClone.Fields(ctl.Name).Type, ctlVal) & Attr
                End If
        End Select
    Next
    If Len(sSQL) > 0 Then
        sSQL = Mid$(sSQL, 1, Len(sSQL) - Len(Attr))
    End If
    DoCmd.close acForm, "find", acSaveNo
    DoCmd.OpenForm "Modifica", , , sSQL

End Sub

Nel campo memo  del db molto spesso sono registrate delle progressive kilometriche, 17+514 o 115+785. Se cerco loro non ottengo nessun risultato. Sicuramente ho sbagliato da qualche parte, ma dove?


title: Ricerca.... fallisce

author: pfmarro

text:

ottima idea aver postato il codice, ma commentassi qualcosa sarebbe melgio.
Manca  la funzione BuildCriteria

coe'e' --> ctlVal = ctl.Value

nella riga passi la stringa SQL
 DoCmd.OpenForm "Modifica", , , sSQL

hai provato ad aprire una query e mettere
SELECT * FROM ...
WHERE
e incollare IL VALORE SI sSql ?
lo puoi ricavare

scrivendo nella riga prima

 debug.print sSql
 DoCmd.OpenForm "Modifica", , , sSQL

e visualizzando la finestra immediata


title: Ricerca.... fallisce

author: Karl Donaubauer

text:
pfmarro wrote:
>...
> commentassi qualcosa sarebbe melgio.
> Manca  la funzione BuildCriteria
> ...

<F1>

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


title: Ricerca.... fallisce

text:
Il giorno martedì 15 ottobre 2013 19:48:32 UTC+2, Fedele ha scritto:

colpa di una coppia di doppi apici....


title: Comportamento anomalo cursore in maschere continue

author: yosef

text:
Cerco di spiegare il mio problema,
ho una maschera continua che viene popolate da un filtro su una query
a seconda del mese scelto ( in pratica gestisco l'orario di entrata e
uscita dei dipendenti, permessi, assenze e quant'altro.
Il tutto funziona se non per un comportamento anomalo del cursore, mi
spiego: se mi trovo su un record (digitato non finito di digitare
caratteri, se una volta terminato l'inserimento di un campo mi sposta
al successivo dello stesso record con il mouse mi voglio spostare su
un campo di un altro record non funziona rimane sempre lì, alle volte
anche se vado al record successivo e provo a spostarmi cmq non sposta
il cursore. Alle volte stranamente funziona (ma sinceramente non so
spiegare il perchè), funziona se sposto il fuoco su un altro controllo
della maschera che non sia un campo dei record (tipo pulsante) a quel
punto posso posizionarmi dove voglio.
Qualcuno sa dirmi come mai o c'è qualche opzione che non ho settato
correttamente?
grazie


title: ritardare esecuzione codice dopo apertura maschera

text:
Buongiorno a tutti
ho un db che viene avviato ogni 30 minuti che aggiorna degli archivi a
seguito di elaborazioni e relative esportazione di tabelle collegate
in odbc. L'operazione dura circa 3/5 minuti in base allo stato di
utilizzo delle tabelle originali.
Tutto il codice viene eseguito all'avvio della maschera principale che
man mano scorre dei record che contengono i parametri da elaborare ed
esportare.
Ho però il seguente problema:
avviando il DB, viene eseguito il codice senza che la maschera venga
effettivamente aperta la maschera e questo comporta il blocco del
codice stesso in quanto non vengono "pescati" i valori da elaborare...
(il tutto funziona se avvio da maschera già aperta)
come posso far avviare la maschera e far si che il codice venga
eseguito dopo ad esempio 10 secondi?
Ho provato a mettere prima di tutto il codice un ciclo for next che
gira a vuoto per qualche secondo ma pare non funzionare..
attendo vostre dritte....
vi ringrazio in anticip
Nicola


author: Antonio Biso

text:
"N1C0L4" <
nick...@gmail.com
> ha scritto nel messaggio
news:f7f970ac-d35a-42c2...@gv8g2000vbb.googlegroups.com...
Buongiorno a tutti
ho un db che viene avviato ogni 30 minuti che aggiorna degli archivi a
seguito di elaborazioni e relative esportazione di tabelle collegate
in odbc. L'operazione dura circa 3/5 minuti in base allo stato di
utilizzo delle tabelle originali.
Tutto il codice viene eseguito all'avvio della maschera principale che
man mano scorre dei record che contengono i parametri da elaborare ed
esportare.
Ho per� il seguente problema:
avviando il DB, viene eseguito il codice senza che la maschera venga
effettivamente aperta la maschera e questo comporta il blocco del
codice stesso in quanto non vengono "pescati" i valori da elaborare...
(il tutto funziona se avvio da maschera gi� aperta)
come posso far avviare la maschera e far si che il codice venga
eseguito dopo ad esempio 10 secondi?
Ho provato a mettere prima di tutto il codice un ciclo for next che
gira a vuoto per qualche secondo ma pare non funzionare..
dai un occhiata all'evento su timer
Antonio


text:
On Jun 15, 11:41 am, "Antonio Biso" <
ab...@libero.it
> wrote:
> "N1C0L4" <
nickb...@gmail.com
> ha scritto nel messaggionews:f7f970ac-d35a-42c2...@gv8g2000vbb.googlegroups.com...
> Buongiorno a tutti
> ho un db che viene avviato ogni 30 minuti che aggiorna degli archivi a
> seguito di elaborazioni e relative esportazione di tabelle collegate
> in odbc. L'operazione dura circa 3/5 minuti in base allo stato di
> utilizzo delle tabelle originali.
> Tutto il codice viene eseguito all'avvio della maschera principale che
> man mano scorre dei record che contengono i parametri da elaborare ed
> esportare.
> Ho però il seguente problema:
>
> avviando il DB, viene eseguito il codice senza che la maschera venga
> effettivamente aperta la maschera e questo comporta il blocco del
> codice stesso in quanto non vengono "pescati" i valori da elaborare...
> (il tutto funziona se avvio da maschera già aperta)
> come posso far avviare la maschera e far si che il codice venga
> eseguito dopo ad esempio 10 secondi?
> Ho provato a mettere prima di tutto il codice un ciclo for next che
> gira a vuoto per qualche secondo ma pare non funzionare..
>
> dai un occhiata all'evento su timer
>
> Antonio
Perfetto!! Va alla grande
Grazie
Nicola


text:
"N1C0L4" <
nick...@gmail.com
> ha scritto nel messaggio
news:b1cecba2-291b-4061...@w10g2000yqh.googlegroups.com...
On Jun 15, 11:41 am, "Antonio Biso" <
ab...@libero.it
> wrote:
>
> avviando il DB, viene eseguito il codice senza che la maschera venga
> effettivamente aperta la maschera e questo comporta il blocco del
> codice stesso in quanto non vengono "pescati" i valori da elaborare...
> (il tutto funziona se avvio da maschera gi� aperta)
> come posso far avviare la maschera e far si che il codice venga
> eseguito dopo ad esempio 10 secondi?
> Ho provato a mettere prima di tutto il codice un ciclo for next che
> gira a vuoto per qualche secondo ma pare non funzionare..
>
> dai un occhiata all'evento su timer
>
> Antonio
Perfetto!! Va alla grande
Grazie
Nicola
La soddisfazione non � tanto nel ringraziamento (prego comunque), ma che c'�
ancora gente a cui dai le dritte, dicendo di spulciare l'help.. E LO FANNO!
e studiano e imparano e risolvono il problema e crescono...
;-P
Antonio


title: dimensioni campo eccessiva

text:
Sto provando a convertire un db 2000 a 97 ma l'operazione si interrompe
col messaggio "dimensioni campo eccessiva". I campi sono tutti testo 255.
Cosa posso fare?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: dimensioni campo eccessiva

author: Brown

text:
rete33 ha scritto:
> Sto provando a convertire un db 2000 a 97 ma l'operazione si interrompe
> col messaggio "dimensioni campo eccessiva". I campi sono tutti testo 255.
> Cosa posso fare?
>
non ho modo di controllare, ma probabilmente access 97 per il formato
"Testo" accetta solamente lunghezze minori di 255.
Se cosě fosse non c'č verso, o si diminuisce la lunghezza di quei campi
o non si converte il db.
Controlla con access 97 quale dimensione massima di testo puoi avere.


title: dimensioni campo eccessiva

text:
> probabilmente access 97 per il formato
> "Testo" accetta solamente lunghezze minori di 255.
> Se cosě fosse non c'č verso, o si diminuisce la lunghezza di quei campi
> o non si converte il db.
> Controlla con access 97 quale dimensione massima di testo puoi avere.
Nel 97 accetta fino a 255 e quella dimensione hanno anche nel 2000, guaio
č che il messaggio di errore č generico e non so dove possa intervenire.
Nei motori di ricerca non trovo niente, forse avendo la versione inglese
dell'errore...



title: dimensioni campo eccessiva

text:
rete33 wrote:
> Sto provando a convertire un db 2000 a 97 ma l'operazione si interrompe
> col messaggio "dimensioni campo eccessiva". I campi sono tutti testo 255.
> Cosa posso fare?
Dopo scrivi che il messagio è inglese.
Allora com'è il suo testo letterale?
Forse è il record che diventa troppo grande. In A00 (ovvero JET 4)
con la compressione Unicode attiva puo avere ca. 4000 caratteri
in A97 solo 2000.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: Maschere\Collegamento tra controlli...c'è un'altra str ada?

author: Lindbergh

text:
Ciao a tutti...questo è il periodo dei problemini di perfezionamento.Quando
dai la caramella,poi
vogliono il dolcetto, poi la torta...ecc..ecc   :-))
Ho le mie belle 2 mascherine aperte sul video.
La 1 rappresenta un classico database clienti.La 2 una sorta di "cose da
fare" riferito ai record della 1.
Il problema postomi era la possibilita' di andare/tornare al record della 1
evidenziato nella 2.
Cioe':
1                                 2
Azienda                      chiamare:
 aaaa                          cccc
Evento su click controllo "Azienda da Chiamare" (cccc)  e diventa
1                                 2
Azienda                      chiamare:
cccc                           cccc
Mi porto sul record del cliente da chiamare. Il tutto lo faccio gia' ma
utilizzo la funzione linkCriteria
purtroppo creando un filtro( che poi andrebbe eliminato) e quindi creando un
recordsetclone di un solo record.
Vorrei invece fare questo senza che si applichi un filtro ma semplicemente
"spostarmi" nel record interessato.
C'è un'altra strada che non conosco?
Come sempre grazie a tutti del vostro tempo.
Eddie


author: Roberto dal portatile

text:
"Lindbergh" <
lind...@libero.it
> ha scritto nel messaggio
news:J68T6.265$7F4....@news.infostrada.it...

A fronte dell'evento "Su clic" del controllo "Azienda da Chiamare" di
maschera 2, sposta il fuoco sul controllo "Azienda" di maschera 1, esegui il
metodo FindRecord dell'oggetto DoCmd usando come stringa di ricerca il
contenuto del controllo "Azienda da Chiamare" di maschera 2.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Daniele Fasoli

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9fj40r$66ak$1...@stargate1.inet.it...

Visto che usa già il metodo recordsetclone basta che si guardi sull help
anche la proprietà bookmark no?
...Preso dall'Help di Access97
Dim rst As Recordset, strCriteri As String
 strCriteri = "[NomeContatto] Like '*" & InputBox("Immettere le " _
  & "prime lettere del nome da trovare") & "*'"
 Set rst = Me.RecordsetClone
 rst.FindFirst strCriteri
 If rst.NoMatch Then
  MsgBox "Impossibile trovare voce"
 Else
  Me.Bookmark = rst.Bookmark
 End If
Daniele "Antares" Fasoli
fas...@easy1.easynet.it


text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9fj40r$66ak$1...@stargate1.inet.it...

Grazie Roberto, non avevo pensato alla possibilita' di spostare il Focus :-)
Ti chiedo un'altra cortesia.Sopra troverai un'altro mio post...devo
sostanzialmente modificare un'interfaccia utente...mi dai anche un tuo parer
e??
Grazie e ciao
Eddie



text:
"Daniele Fasoli" <
fas...@easy1.easynet.it
> ha scritto nel messaggio
news:b6bT6.24390$Uo3.9...@news6.giganews.com...

Non stavo usando il metodo Recordsetclone..pero' in effetti poteva essere
un'altra strada....al posto di InputBox potrei dare ii riferimento al
controllo.
Grazie Eddie
>
>
>
> Daniele "Antares" Fasoli
>
fas...@easy1.easynet.it
>
>


title: librerie

author: fausto

text:
Buongiorno volevo chiedere se attivare la libreria DAO oltre alla ADO
appesantisce di tanto l'applicazione per una sola funzione.
grazie
Negrinelli Walter


title: librerie

author: Carlo Costarella

text:
"fausto" <
negri...@tiscali.it
> ha scritto nel messaggio
news:4da7e1fb$0$18248$4faf...@reader2.news.tin.it...

No, va bene.
Ricorda di usare la dichiarazione esplicita se usi entrambe le librerie, per
esempio:
Dim rs as DAO.Recordset
oppure
Dim rs as ADO.recordset
Ciao, Carlo


title: librerie

text:
>> Buongiorno volevo chiedere se attivare la libreria DAO oltre alla ADO
>> appesantisce di tanto l'applicazione per una sola funzione.
>> grazie
>>
>>
>> Negrinelli Walter
>>
>>
>
> No, va bene.
> Ricorda di usare la dichiarazione esplicita se usi entrambe le librerie,
> per esempio:
> Dim rs as DAO.Recordset
> oppure
> Dim rs as ADO.recordset
>
> Ciao, Carlo
chiedo comunque se questa funzione puň essere eseguita anche con ADO perche
cosě come č mi da errore ovviamente eliminando DAO.
dim qdf as DAO.querydef
dim fld as DAO.field
dim rst as DAO.recordset
dim conta as integer
set qdf=currentdb().querydef(miaquery)
set rst=qdf.openrecordset
conta =1
for each fld in rst.field
me("controllo" & trim(conta) & "etichetta").caption=
fld.name
me("controllo" & trim(conta)).controlsource=
fld.name
conta =conta+1
next


title: librerie

text:
fausto wrote:
> ...
> chiedo comunque se questa funzione può essere eseguita anche con
> ADO perche così come è mi da errore ovviamente eliminando DAO.
>
> dim qdf as DAO.querydef
> dim fld as DAO.field
> dim rst as DAO.recordset
> dim conta as integer
> set qdf=currentdb().querydef(miaquery)
> set rst=qdf.openrecordset
> conta =1
> for each fld in rst.field
> me("controllo" & trim(conta) & "etichetta").caption=
fld.name
> me("controllo" & trim(conta)).controlsource=
fld.name
> conta =conta+1
> next
Non è un problema di DAO o ADO ma di al minimo
2-3 sbagli nel codice, soprattutto:
querydef(miaquery) --> querydefs("miaquery")
in rst.field --> in rst.fields
Prova così:
Dim db As DAO.Database
dim rs as DAO.recordset
dim fld as DAO.field
dim lngConta As Long
Set db = Currentdb
Set rs=db.openrecordset("miaquery", dbOpenDynaset)
lngConta =1
for each fld in rs.Fields
    me("controllo" & lngConta & "etichetta").caption=
fld.name
    me("controllo" & lngConta).controlsource=
fld.name
    lngConta = lngConta+1
next
Se non funziona così, copia/incolla il tuo vero codice
e scrivi il numero e messaggio esatto dell'errore e
in quale riga succede.
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: librerie

text:

mi sono espresso male,
il codice funziona ma ho attivato la libreria DAO solo per questo codice e
cercando di farla funzionare con ADO mi da errore perchè penso non esista la
proprietà Querydef
era per quello che volevo sapere se aggiungere una libreria appesantiva il
codice e il programma in generale.
adesso ho un file che mi pesa 18 mb e volevo cominciare a smagrirlo un pò.
le tabelle sono già collegate volevo chiedere se è possibile fare anche un
file con i report che funzioni come le tabelle.
grazie



title: librerie

text:
On 15 Apr, 11:31, "fausto" <
negrifau...@tiscali.it
> wrote:
> >> ...
> >> chiedo comunque se questa funzione pu essere eseguita anche con
> >> ADO perche cos come mi da errore ovviamente eliminando DAO.
>
> >> dim qdf as DAO.querydef
> >> dim fld as DAO.field
> >> dim rst as DAO.recordset
> >> dim conta as integer
> >> set qdf=currentdb().querydef(miaquery)
> >> set rst=qdf.openrecordset
> >> conta =1
> >> for each fld in rst.field
> >> me("controllo" & trim(conta) & "etichetta").caption=
fld.name
> >> me("controllo" & trim(conta)).controlsource=
fld.name
> >> conta =conta+1
> >> next
>
> > Non un problema di DAO o ADO ma di al minimo
> > 2-3 sbagli nel codice, soprattutto:
>
> > querydef(miaquery) --> querydefs("miaquery")
> > in rst.field --> in rst.fields
>
> > Prova cos :
>
> > Dim db As DAO.Database
> > dim rs as DAO.recordset
> > dim fld as DAO.field
> > dim lngConta As Long
>
> > Set db = Currentdb
> > Set rs=db.openrecordset("miaquery", dbOpenDynaset)
>
> > lngConta =1
>
> > for each fld in rs.Fields
> >    me("controllo" & lngConta & "etichetta").caption=
fld.name
> >    me("controllo" & lngConta).controlsource=
fld.name
> >    lngConta = lngConta+1
> > next
>
> > Se non funziona cos , copia/incolla il tuo vero codice
> > e scrivi il numero e messaggio esatto dell'errore e
> > in quale riga succede.
>
> mi sono espresso male,
> il codice funziona ma ho attivato la libreria DAO solo per questo codice e
> cercando di farla funzionare con ADO mi da errore perch penso non esista la
> propriet Querydef
>
> era per quello che volevo sapere se aggiungere una libreria appesantiva il
> codice e il programma in generale.
> adesso ho un file che mi pesa 18 mb e volevo cominciare a smagrirlo un p .
> le tabelle sono gi collegate volevo chiedere se possibile fare anche un
> file con i report che funzioni come le tabelle.
> grazie
Mi piacerebbe capire se stai usando ADP o MDB..., perchè solo se usi
ADP ha senso disattivare DAO.
Nel caso tu stia usando un MDB direi che è decisamente poco sensato
usare ADO, visto che JET lavora implicitamente con DAO ed obblighi
Access ad apportare conversioni ESPLICITE sugli Oggetti DataBound...
@Alex


title: librerie

text:

Mi piacerebbe capire se stai usando ADP o MDB..., perchč solo se usi
ADP ha senso disattivare DAO.
Nel caso tu stia usando un MDB direi che č decisamente poco sensato
usare ADO, visto che JET lavora implicitamente con DAO ed obblighi
Access ad apportare conversioni ESPLICITE sugli Oggetti DataBound...
@Alex
uso mdb access xp quindi ho capito che č meglio che lascio cosě com'č
grazie mille.
mentre per il discorso di creare un file mdb nuovo con solo i report per
snellire quello attuale sapete darmi indicazioni?
grazie mille


title: librerie

text:

> Mi piacerebbe capire se stai usando ADP o MDB..., perch solo se usi
> ADP ha senso disattivare DAO.
> Nel caso tu stia usando un MDB direi che decisamente poco sensato
> usare ADO, visto che JET lavora implicitamente con DAO ed obblighi
> Access ad apportare conversioni ESPLICITE sugli Oggetti DataBound...
>
> @Alex
>
> uso mdb access xp quindi ho capito che meglio che lascio cos com'
> grazie mille.
> mentre per il discorso di creare un file mdb nuovo con solo i report per
> snellire quello attuale sapete darmi indicazioni?
> grazie mille
La cosa si può fare, ma ti complichi la vita, e devi in tutti i casi
pensare a come gestire i dati...!
Se i REPORT sono basati su Query, devi andare a gestire Query Linkate
o Qry di tipo Passtrought sul DB originale... oppure linkare le
tabelle al BE e via Automazione
andare a gestire i Filtri...
Possibile che tu abbia centinaia di Report da gestire...?
Io non ho mai avuto più di una 30ina di Report, e, usando immagini BMP
a 256 colori, le iglobavo nel Report appensantendolo... ma questo non
mi ha mai reso necessario
valutare Report esterni...!
Nel caso le immagini siano pesanti si Linkano...
Il Report di per se non può essere causa di pesantezza, a meno che tu
non abbia mal strutturato i Report e ti trovi a gestire centinaia di
Report per qualche errore di ingegnerizzazione dell'applicativo...
@Alex


title: librerie

text:
--
Negrinelli Walter
3355237136
www.negrinellisrl.it
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:ee9d8328-4db0-41d8...@u12g2000vbf.googlegroups.com...




@Alex
i report sono solo una trentina anche i miei e non hanno nemmeno chisà che
immagini
ma 18 mb per un db sono tanti o pochi.
il tutto è solo perchè il mio stesso programma lo usa un amico e quando
faccio aggiornamenti lo devo portare perchè non ha adsl e scaricare 18 mb
senza adsl è sempre un problema.
grazie


title: librerie

text:
Il 15/04/2011 11.31, fausto ha scritto:
[cut]
> era per quello che volevo sapere se aggiungere una libreria appesantiva il
> codice e il programma in generale.
Le librerie sono oggetti esterni al DB. Il mDB conserva solo il path e
qualche altra proprieta' (cfr. Help "References") per il collegamento,
esattamente come succede per le tabelle collegate.
--
ac (x=y-1)


title: librerie

text:
...
> i report sono solo una trentina anche i miei e non hanno nemmeno chisà che
> immagini
> ma 18 mb per un db sono tanti o pochi.
> il tutto è solo perchè il mio stesso programma lo usa un amico e quando
> faccio aggiornamenti lo devo portare perchè non ha adsl e scaricare 18 mb
> senza adsl è sempre un problema.
> grazie
I 18Mb in se non sono moltisimi... hai provato tuttavia a creare un
NUOVO db Vergine ed importare tutto il contenuto del vecchio...?
Compila e compatta tutto...!
Spesso la dimensione del DB aumenta anche per le mancate compattazioni
del codice, e spesso dopo molte modifiche il margine di compattazione
si riduce...
se segui il consiglio di prima potrebbe migliorare molto.
@Alex


title: librerie

text:
@Alex wrote:
> ...
>> i report sono solo una trentina anche i miei e non hanno nemmeno
>> chisà che immagini
>> ma 18 mb per un db sono tanti o pochi.
>> il tutto è solo perchè il mio stesso programma lo usa un amico e
>> quando faccio aggiornamenti lo devo portare perchè non ha adsl e
>> scaricare 18 mb senza adsl è sempre un problema.
>
> I 18Mb in se non sono moltisimi... hai provato tuttavia a creare un
> NUOVO db Vergine ed importare tutto il contenuto del vecchio...?
> Compila e compatta tutto...!
>
> Spesso la dimensione del DB aumenta anche per le mancate
> compattazioni del codice, e spesso dopo molte modifiche il margine
> di compattazione si riduce...
> se segui il consiglio di prima potrebbe migliorare molto.
v.a.
http://www.donkarl.com/it?FAQ1.22
In più c'è il formato zip per mandare aggiornamenti. ;-)
--



title: librerie

text:

le compattazioni vengono fatte spesso
volevo chiedere inoltre una cosa
come si può fare per verificare il peso di ogni singola maschera report
query modulo
grazie



title: librerie

text:
fausto wrote:
>>> ...
>>> I 18Mb in se non sono moltisimi...
>> ...
>>
http://www.donkarl.com/it?FAQ1.22
>>
>> In più c'è il formato zip per mandare aggiornamenti. ;-)
>
> le compattazioni vengono fatte spesso
Non è quello che volevo sottolineare con il link, ma proprio tutte
le altre cause e metodi descritte nell'articolo.
> volevo chiedere inoltre una cosa
> come si può fare per verificare il peso di ogni singola maschera
> report query modulo
Non si puo ovvero solo con compattare/eliminare/compattare.
Però quasi non importano se non hai mille di oggetti o diecimilla
righe di codice in ogni oggetto o certo tabelle con dati nel FE.
Per tutti altri casi vale:
Leggi l'articolo, poi togli o almeno riduci il numero delle immagini (logo
ecc.),
fai l'importazione-decompile-compattazione e stupisci.
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: librerie

text:
On 15 Apr, 14:44, "fausto" <
negrifau...@tiscali.it
> wrote:
> >>> i report sono solo una trentina anche i miei e non hanno nemmeno
> >>> chisà che immagini
> >>> ma 18 mb per un db sono tanti o pochi.
> >>> il tutto è solo perchè il mio stesso programma lo usa un amico e
> >>> quando faccio aggiornamenti lo devo portare perchè non ha adsl e
> >>> scaricare 18 mb senza adsl è sempre un problema.
>
> >> I 18Mb in se non sono moltisimi... hai provato tuttavia a creare un
> >> NUOVO db Vergine ed importare tutto il contenuto del vecchio...?
> >> Compila e compatta tutto...!
>
> >> Spesso la dimensione del DB aumenta anche per le mancate
> >> compattazioni del codice, e spesso dopo molte modifiche il margine
> >> di compattazione si riduce...
> >> se segui il consiglio di prima potrebbe migliorare molto.
>
> > v.a.
http://www.donkarl.com/it?FAQ1.22
>
> > In più c'è il formato zip per mandare aggiornamenti. ;-)
>
> le compattazioni vengono fatte spesso
> volevo chiedere inoltre una cosa
> come si può fare per verificare il peso di ogni singola maschera report
> query modulo
> grazie
>
Fai attenzione che quanto ti è stato suggerito non ha nulla a che
vedere con la NORMALE gestione della compattazione...!!
@Alex


title: librerie

author: RobertoA

text:
> Basta ordinare per dimensione i singoli file prodotti e voila' il problema
> del 'peso' singola maschera o report e' trovato
Naturalmente era "..e voila' il problema del 'peso' singola maschera o
report e' risolto.."


title: librerie

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4da9bedc$1...@newsgate.x-privat.org...

>> Ciao
>> Karl
>
> Veramente anch'io mi sono sempre interessato allo spazio occupato da ogni
> procedura/report ed ho cercato in rete ed adattato una routinetta che
> esporta tutti gli oggetti in formato testo
> E' molto comoda perche' ti fa capire subito se in qualche report hai
> dimenticato qualche immagine dentro
> Basta ordinare per dimensione i singoli file prodotti e voila' il problema
> del 'peso' singola maschera o report e' trovato
> Ciao
> RobertoA
>
> Ciapa ki:
>
> '====================================================================
> ' Name:    DocDatabase
> ' Purpose: Documents the database to a series of text files
> '
> ' Author:  Arvin Meyer
> ' Date:    June 02, 1999
> ' Comment: Uses the undocumented [Application.SaveAsText] syntax
> '          To reload use the syntax [Application.LoadFromText]
> '      Modified to set a reference to DAO 8/22/2005
> '====================================================================
> Public Sub Documenta_Database()
> 10    On Error GoTo Err_DocDatabase
>
>      Dim dbs As DAO.Database
>      Dim cnt As DAO.Container
>      Dim doc As DAO.Document
>      Dim i As Integer
>
> 20    nome_dir = Application.CurrentProject.Path & "\PRG_ESP_TXT_" &
> Format$(Now, "yyyy_mm_dd_hh_nn_ss")
>
> 30    If Len(Dir(nome_dir, vbDirectory)) < 1 Then
> 40        MkDir nome_dir
> 50        End If
>
> 60    Set dbs = CurrentDb() ' use CurrentDb() to refresh Collections
>
> 70    Set cnt = dbs.Containers("Forms")
> 80    For Each doc In cnt.Documents
> 90        Debug.Print "FORM ==> " & doc.Name
> 100       Application.SaveAsText acForm, doc.Name, nome_dir & "\" &
> doc.Name & ".txt"
> 110       Next doc
>
> 120   Set cnt = dbs.Containers("Reports")
> 130   For Each doc In cnt.Documents
> 140       Debug.Print "REPORT ==> " & doc.Name
> 150       Application.SaveAsText acReport, doc.Name, nome_dir & "\" &
> doc.Name & ".txt"
> 160       Next doc
>
> 170   Set cnt = dbs.Containers("Scripts")
> 180   For Each doc In cnt.Documents
> 190       Debug.Print "MACRO ==> " & doc.Name
> 200       Application.SaveAsText acMacro, doc.Name, nome_dir & "\" &
> doc.Name & ".txt"
> 210       Next doc
>
> 220   Set cnt = dbs.Containers("Modules")
> 230   For Each doc In cnt.Documents
> 240       Debug.Print "MODULO ==> " & doc.Name
> 250       Application.SaveAsText acModule, doc.Name, nome_dir & "\" &
> doc.Name & ".txt"
> 260       Next doc
>
> 270   For i = 0 To dbs.QueryDefs.Count - 1
> 280       Debug.Print "QUERY ==> " & dbs.QueryDefs(i).Name
> 290       Application.SaveAsText acQuery, dbs.QueryDefs(i).Name, nome_dir
> & "\" & dbs.QueryDefs(i).Name & ".txt"
> 300       Next i
>
> 310   Set doc = Nothing
> 320   Set cnt = Nothing
> 330   Set dbs = Nothing
>
> Exit_DocDatabase:
> 340       Exit Sub
>
> Err_DocDatabase:
> 350       Select Case Err
>
>          Case Else
> 360           MsgBox Err.Description
> 370           Resume Exit_DocDatabase
> 380       End Select
>
> End Sub
alla fine questa opzione mi ha fatto scoprire che avevo 3 immagini in un
report
db diventato 6,5 mb
grazie


title: evento before update:  annullare modifiche o no

author: ciaoo

text:
ciao
quando l'utente cerca di chiudere un form dopo averlo modificato,
controllo se ci sono degli errori nei dati inseriti...e tramite l'evento
before_update...chiedo all'utente: "c'e un errore!! vuoi correggere?"
1)se preme su "no"..allora faccio docmd.runcommand accmdundo ..le
modifiche vengono annullate..e la maschera si chiude
2)se preme su si..voglio che l'evento di chiusura form venga
annullato...e uso il metodo docmd.cancelevent...che pero ' mi genera un
fastidioso msgbox "impossibile chiudere oggetto database." .
E' possibile evitare ques'ultimo messaggio?
grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee


author: Mario

text:
"ciaoo" <
d...@dff.com
> ha scritto nel messaggio
news:JVD2e.1138662$35.42...@news4.tin.it...

Guarda la faq 3.13 del sito comune
Mario


text:
Mario wrote:
>
> Guarda la faq 3.13 del sito comune
> Mario
>
>
ok..pero il mio problema e' che se stavo chiudendo il form...e io faccio
cancel=true..il form viene chiuso lo stesso.


author: Alessandro Baraldi

text:
"ciaoo" <
d...@dff.com
> wrote in message
news:uUP2e.717127$
b5.32...@news3.tin.it

Intercetta l'Evento Unload e gestisci quel Cancel con una
variabile Private di tipo Boolean che setti per consentire
la chiusura.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: passare da where a select accorgimenti particolari e si puo fare?

author: nn

text:
Access 97
Attualmente, in base a quale pulsante di opzione è selezionato nella
form, l'elenco che ho dentro ad una casella di riepilogo lo ottengo
mediante le 2 righe:
Me!Elenco.RowSourceType = "Tabella/query"
Me!Elenco.RowSource = "query_A"  (se voglio avere ad esempio solo i
valori A)
dove query_A è in realtà una query_1 con aggiunto un where:
query_A  =     query_1  WHERE  Tab.Categoria = A
se al posto del where, che estrae solo in base ad un valore, voglio
mettere piu' valori di un campo di una tabella, come si fa?
n.b. non voglio usare l'operatore AND, ma il Select campo sulla tabella
(mi serve il select perché dalla tabella
i valori del campo li devo estrarre usando l'operatore where)
grazie


author: Sib

text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio

La cosa mi sembra un po' confusa.
una cosa e' certa, query_1 where ecc. ecc. non lo stai usando perche'
avresti un errore di sintassi.
Quindi probabilmente non hai guardato cosa contiene esattamente la
proprieta' rowsource (premi i tre puntini)
Sib


text:

Hai ragione credo che la prima parte non e' una query
ti riporto il codice completo della query_A :
SELECT [Tab_1].id_1, [Query].sp, [Tab_1].ti, [Tab_1].Cat, [Tab_1].sg
FROM Query RIGHT JOIN Tab_1 ON [Query].Cod_ti=[Tab_1].id_1
WHERE ([Tab_1].Cat= "A");
credo che le prime 2 righe non sono una query
pero' si puo' fare quello da me indicato ? :
    al posto del where, che estrae solo in base ad un valore ci devo



text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
cut
> ti riporto il codice completo della query_A :
>
> SELECT [Tab_1].id_1, [Query].sp, [Tab_1].ti, [Tab_1].Cat, [Tab_1].sg
> FROM Query RIGHT JOIN Tab_1 ON [Query].Cod_ti=[Tab_1].id_1
> WHERE ([Tab_1].Cat= "A");
>
> credo che le prime 2 righe non sono una query
come no!
certo che le prime due righe sono una query.
> pero' si puo' fare quello da me indicato ? :
>     al posto del where, che estrae solo in base ad un valore ci devo
>     mettere piu' valori di un campo di una tabella, come si fa?
WHERE [Tab_1.Cat]="A" AND Tab_1.ti="B" AND ecc. ecc.
Sib


title: Calcoli nei report ...

author: Angelo

text:
Ciao NG,
ho un report (Report1) nel quale ho creato un controllo calcolato ( es...
Testo1=[Testo2]+[Testo3] ...),
In un secondo report (Report2) ho riportato il riepilogo di tutti i
controlli "Testo1".
Ciò che non riesco a fare è la somma aritmetica di tutte le caselle "Testo1"
nel "piè di pagina report" del Report2.
A I U T O
Angelo


title: Calcoli nei report ...

author: MA

text:

Se vuoi usare somma(testo1) quando testo1 è semplicemente la somma di due
controlli del report, non ci riesci. Se invece la somma la calcoli nella
query origine del report dopo ti basterà fare somma(testo1)
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Calcoli nei report ...

author: Roberto da casa

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:Oabia.39059$Jg1.9...@news1.tin.it...

Vai sull'help e leggiti Calcolare il totale di un controllo calcolato in una
maschera o in un report.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Form : Caric.Immagini (Lebans ). Incorpora, non collega...

author: Pablitomf

text:
File : PictureBoxA2k
Modulo : Bas_CaricaImmagini
Autore : Lebans -
http://www.lebans.com/DownloadFiles/PictureBoxA2K.zip
Come da oggetto, la routine per il caricamento di immaggini di Lebans, se
pur veloce, non collega le immagini alla form, ma le incorpora
(appesantendo vistosamente il db)...qualcuno ha risolto il problema
riuscendo a collegare l'immagine apportando modifiche al codice?
Grazie.
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:cl589b$8pf$
1...@news.newsland.it
> File : PictureBoxA2k
>
> Modulo : Bas_CaricaImmagini
>
> Autore : Lebans -
http://www.lebans.com/DownloadFiles/PictureBoxA2K.zip
>
> Come da oggetto, la routine per il caricamento di immaggini di Lebans, se
> pur veloce, non collega le immagini alla form, ma le incorpora
> (appesantendo vistosamente il db)...qualcuno ha risolto il problema
> riuscendo a collegare l'immagine apportando modifiche al codice?
>
> Grazie.
Non ho A2K sotto mano ma quanto dici mi pare poco probabile.
Non passando per il Design non sarebbe possibile incorporare
un oggetto, e poichè sono sicuro che non passa per il Design
non credo sia questo il problema.
Se le tue considerazioni nascono dal fatto che
riaprendo la maschera mantiene l'immagine può
dipendere da un errato modo di liberare, o addirittura
da un mancato liberamento della proprietà Picture
ma succede solo con MDB, hai provato a creare un MDE e
vedere se ti da lo stesso problema...?
La versione A97 che sto provando non dà assolutamente
questo difetto, oppure ho capito male.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
Alessandro Baraldi ha scritto:





> Ciao
> @Alex
Io la faccio passare per il DESIGN... poi creo il controllo
Set newctl = CreateControl("Frm_zzz", acImage, , , , x,y,z,w)
fLoadPicture newctl, "C:\\Img\xx.jpg"
'newctl.Picture = "C:\RistHotel\Img\Tabloid4.jpg"
newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
newctl.PictureAlignment = 0
'newctl.PictureType = 1
come vedi se uso LEBAN, non posso usare il PictureType xkè mi disabilita
l'immagine... x questo devo usare il Picture e disabilitare fLoadPicture
Sbaglio in qualcosa secondo te?



text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:cl5h0m$iat$
1...@news.newsland.it
[CUT]
>
> Io la faccio passare per il DESIGN... poi creo il controllo
Ahhhh ma allora spiegati bene, non dare la colpa a Stephen L.
che non c'entra nulla....!!!!!

> Set newctl = CreateControl("Frm_zzz", acImage, , , , x,y,z,w)
Quì setta la proprietà COLLEGATA invece che INCORPORA....!!!!!
> 'newctl.Picture = "C:\RistHotel\Img\Tabloid4.jpg"
> newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
> newctl.PictureAlignment = 0
> 'newctl.PictureType = 1
 fLoadPicture newctl, "C:\\Img\xx.jpg"

> come vedi se uso LEBAN, non posso usare il PictureType xkè mi disabilita
> l'immagine... x questo devo usare il Picture e disabilitare fLoadPicture
>
> Sbaglio in qualcosa secondo te?
Forse...! non saprei perchè non ho modo di provare:
1)Setta come ti dicevo la proprietà PictureType=0
poi la funzione di LEBANS la devi usare dopo averlo creato
e formattato il controllo non prima...!!!
[OSSERVAZIONE]
Sai che creando il controllo Runtime anche se gli dai
il nome non lo usa...!!!
Devi crearlo e RINOMINARLO altrimenti gli dà come ovvio
il nome con il progressivo classico.
Ciao
@ALex.



text:
Alessandro Baraldi ha scritto:
> Ahhhh ma allora spiegati bene, non dare la colpa a Stephen L.
> che non c'entra nulla....!!!!!
Non ho dato la colpa a nessuno... (forse lo sembrava?... bhè non è così)...
Ma a me non funziona e non ho ancora capico perchè...
> > Set newctl = CreateControl("Frm_zzz", acImage, , , , x,y,z,w)
> Quì setta la proprietà COLLEGATA invece che INCORPORA....!!!!!
> > 'newctl.Picture = "C:RistHotelImgTabloid4.jpg"
> > newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
> > newctl.PictureAlignment = 0
> > 'newctl.PictureType = 1
>  fLoadPicture newctl, "C:\Imgxx.jpg"
Dici di fare questo?
Set newctl = CreateControl("Frm_zzz", acImage, , , , 20, 20, 12000, 30000)
newctl.PictureType = 1
fLoadPicture newctl, "C:\Img\xxx.jpg"
newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
newctl.PictureAlignment = 0
Non funziona... ti ripeto, se sbaglio non lo so... ma credendo che la
risposta è "Si sbaglio" mi piacerebbe capire dove...
Se tu lo hai capito e me ne fai partecipe ti ringrazio Ale.
Ciao



text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:cl5mp4$ksu$
1...@news.newsland.it
[CUT]
> Non funziona... ti ripeto, se sbaglio non lo so... ma credendo che la
> risposta è "Si sbaglio" mi piacerebbe capire dove...
>
> Se tu lo hai capito e me ne fai partecipe ti ringrazio Ale.
>
> Ciao
Premetto che non sò se sbagli, come ti dicevo non ho modo
di testare il tutto.
Credo però che sia concettualmente sbagliato quello che
vuoi fare.
Il caricamento dell'immagine si dovrebbe fare dalla modalità
normale non in Design.
Passare un tipo dato stdPicture in DesignView che io
sappia non è da fare e non dovrebbe essere possibile
farlo.
Non capisco perchè tu debba caricare l'immagine durante il
Design in quel modo.....??????
Se spieghi meglio cosa vuoi realmente ottenere, forse ci sono
soluzioni alternative...!!!
Ciao
@Alex.



text:
Alessandro Baraldi ha scritto:
> Premetto che non sò se sbagli, come ti dicevo non ho modo
> di testare il tutto.
> Credo però che sia concettualmente sbagliato quello che
> vuoi fare.
E perchè mai?
> Il caricamento dell'immagine si dovrebbe fare dalla modalità
> normale non in Design.
Si "dovrebbe", e perchè? io la carico come elemento strutturale di una
form... praticamente è una griglia che mi sostituisce label apposite...
> Passare un tipo dato stdPicture in DesignView che io
> sappia non è da fare e non dovrebbe essere possibile
> farlo.
Io faccio un semplice :
DoCmd.OpenForm "Frm_zzz", acDesign, , , , acHidden
uso il codice che ti ho detto
e poi la chiudo salvando e visualizzando.
Semplice, semplice... solo che LEBAN (a me) non funge.
> Non capisco perchè tu debba caricare l'immagine durante il
> Design in quel modo.....??????
vedi sopra.
> Se spieghi meglio cosa vuoi realmente ottenere, forse ci sono
> soluzioni alternative...!!!
L'alternativa è
newctl.Picture = "C:\Img\xxx.jpg"
...
newctl.PictureType = 1 (CHE FUNGE NEL COLLEGARLA E NON INCORPORARLA)
ma mi rallenta la creazione con lo Sfarfallio del video...
Cmq, funziona, ma leban era + veloce.
> Ciao
> @Alex.
Se hai news fammi sapere
Se ti serve sapere altro chiedi pure, ma credo ti bastiquesto no?
Ciao Ale



text:
>
> L'alternativa č
> newctl.Picture = "C:\Img\xxx.jpg"
> ...
> newctl.PictureType = 1 (CHE FUNGE NEL COLLEGARLA E NON INCORPORARLA)
>
> ma mi rallenta la creazione con lo Sfarfallio del video...
>
> Cmq, funziona, ma leban era + veloce.
NOn solo, il runtime non legge il picture
MAssimiliano


text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:cl5nun$3dn$
1...@news.newsland.it
[CUT]
>
> Se hai news fammi sapere
> Se ti serve sapere altro chiedi pure, ma credo ti bastiquesto no?
>
> Ciao Ale
Come può memorizzare senza INGLOBARLO se non gli passi il RIFERIMENTO
ma una STRUTTURA dai Complessa come stdPicture.....????
Come ti dicevo è concettualmente impossibile.
Così come fai tu gli passi la PATH dell'immagine ed il controllo
la MEMORIZZA cosicchè aprendo la Form la recupera.
Come vorresti fare con LEBANS gli passi una struttura dato di tipo
BYTE(anche se non la vedi) se la INGLOBI durante il DESIGN deve
funzionare
se invece la vuoi collegata......
CHIEDITI
che riferimento ha per recuperarla...?????!!!!!!!
NOn gli hai dato un riferimento fisso ma un PACCHETTO di Byte
che lui converte in IMMAGINE.
NOn saprei come spiegarti meglio per mè è estremamente chiaro.
Secondo me dovresti memorizzare in qualche posto il nome dell'Oggetto
Immagine che hai appena creato e su OPEN della Form recuperare
l'oggetto e passarlo alla Funzione di LEBANS.
Qualche esempio di dove salvarli:
FILE.INI
FILE.TXT
Tabella Dedicata
Registro
ProprietàDelDB
....................
Ti basta creare una Funzione Generica che passandogli il Nome
del Controllo Immagine(New) applichi la Funzione.
Ciao.



text:
Alessandro Baraldi ha scritto:
> Ti basta creare una Funzione Generica che passandogli il Nome
> del Controllo Immagine(New) applichi la Funzione.
> Ciao.
> @Alex.
;-)



title: novità su parziale.

author: rudi

text:
rudi <
rud...@inwind.it
> wrote in message ...
> Se interessasse, su quest'argomento, ci sono novità.
> (Roberto, avevi proprio ragione).
> Infatti, ho scritto ad altri NG, e ho avuto le seguenti risposte che
> trasmetto a tutti.
> Per esser chiari, riassumo fin dal principio col mio primo messaggio:
>
> "Il mio problema:
> - Sono autodidatta e alle primissime armi.
> - Ho Access 2000 e Visual Basic 6.0 (Enterprise).
> - In Access2000, ho una tabella costituita da alcuni campi contenenti solo
> numeri. (Non c'è il contatore).
> - Con una query di selezione ho ricavato un campo costituito da numeri
> progressivi.
> - Esempio a casaccio:
>   12
>   19
>   41
>   70
>   93
> A questo punto, vorrei sottrarre l'ultimo meno il penultimo, il penultimo
> meno il terzultimo e così via fino al primo, per ottenere, in un nuovo
> campo:
>     7
>   22
>   29
>   23
> Ora:
> Non ho trovato (e mi ci sono consumato gli occhi), un solo manuale - nè di
> VB 6.0 e nè di Access2000 - (e non ne ho consultati pochi!), in cui
compaia
> il benchè minimo esempio, accenno o rimando, a: "somme o sottrazioni
> parziali".
> Sembra, infatti, che l'argomento sia sconosciuto o, (visto che nemmeno lo
si
> accenna), che questa possibilità, in questi programmi "estremamente
> potenti", semplicemente, non esista.
> Quindi, domande:
> - Esiste questa possibilità?
> - Se esistesse, quali sono i capitoli o i paragrafi o gli argomenti, che
mi
> dovrei studiare?
> Grazie fin da ora.
> rudi"
>
> Ecco ora una prima risposta:
>
> Infatti non esiste.
> Si deve fare a mano. Con un pò di inventiva si riesce, penso che basti un
> ciclo for.
>
> Ora, ecco il seguito:
>
> Penso che una soluzione simile a quella che trovi qui sotto possa andare
> bene:
>
> Private Sub Form_Load()
>
> Dim Connessione As ADODB.Connection
> Dim Record As ADODB.Recordset
>
> Set Connessione = New ADODB.Connection
> Set Record = New ADODB.Recordset
>
> Dim DataSource As String
> Dim I, X, Y, Z As Integer
>
> ' Nel progetto, come esempio sono state dichiarate due listbox
(List1,List2)
> ' Nella prima vengono elencati gli elementi del recordset (ordinati in
> maniera crescente
> ' Nella seconda listbox viene svolta l'operazione di detrarre dall'ultimo
il
> penultimo....
> ' Si suppone che il database abbia una tabella di nome <Dati> e un campo
di
> nome <Valore>
>
> ' Locazione del file sorgente
>
> DataSource = "C:\Stampe\Prova.mdb"
>
> ' Impostazione della connessione.
>
> Connessione.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data
> Source = " & DataSource
> Connessione.CursorLocation = adUseServer
> Connessione.Open
>
> 'Query di ricerca
>
> SQL = "SELECT * FROM Dati ORDER BY Valore"
>
> 'Apertura del recordset
>
> Record.CursorLocation = adUseServer
> Record.Open SQL, Connessione, adOpenKeyset, adLockOptimistic
>
> ' Se il recordset non è vuoto...
>
> If Record.RecordCount > 0 Then
>     ' Stampa tutti gli elementi del Recordset nella prima lista
>     Record.MoveFirst
>     For I = 1 To Record.RecordCount
>         List1.AddItem Record!Valore
>         Record.MoveNext
>     Next I
>     'Mi posiziono alla fine
>     Record.MoveLast
>     'Inizio il ciclo di calcolo...
>     For I = Record.RecordCount To 2 Step -1
>         ' questa parte è stata fatta nel modo più lungo per far ben vedere
i
> passaggi
>         ' di richiesta / calcolo, chiaramente si possono usare meno
> variabili....
>         X = Record!Valore
>         Record.MovePrevious
>         Y = Record!Valore
>         Z = X - Y
>         List2.AddItem Z
>     Next I
> End If
>
> Record.Close
> Connessione.Close
>
> End Sub
>
> Ed ecco, ancora, un altra risposta:
>
> Non si può fare, senza un campo progressivo sequenziale, per un semplice
> motivo: chi decide quale record è l'ultimo, il penultimo, ecc.., se non
hai
> un campo in base al quale ordinare???
>
> Access, infatti, come la stragrande maggioranza dei DB moderni, non è
> posizionale, ossia non garantisce che un determinato record sia
memorizzato
> in una determinata posizione. Facendo la query oggi, ti trovi i record in
un
> certo ordine. Facendo la stessa query domani, se non specifichi
> espressamente un Order by, i record potrebbero benissimo arrivare in
> tutt'altro ordine (potrebbero, anche se spesso l'ordine è lo stesso perchè
> l'ottimizzatore di accesso ai dati lavora sempre nello stesso modo).
>
> Risolvendo questo punto, ossia inserendo un campo contatore progressivo,
la
> cosa è molto semplice:
>
> Select Valore=T1.Campo_Numerico - ISNULL((Select Top 1 Campo_Numerico From
> Tabella as T2 where T2.Campo_Sequenziale<T1.Campo_Sequenziale Order by
> T2.Campo_Sequenziale DESC),0.0) From Tabella as T1 Order by
> T1.Campo_Sequenziale ASC
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>


title: Classifica per tempi

author: Alberto

text:
Un saluto al NG e spero di trovare un aiuto in voi.
Premetto che sono un nonnino di 62 anni e spero tanto che mi aiutate.
Ho costruito un DB con Acces per le gare di ciclismo di mio nipote; Ho
costruito la tabella per l'anagrafe degli atleti, iscrizioni alla gara e la
tabella per gli arrivi.
Ovviamente ho fatto le relative maschere e tutto sembrava funzionare alla
perfezione; invece..........?
Dunque la Maschera arrivi ha le seguenti voci: IDAtleta, datagara, regione,
cognome, nome, categoria, tiposport, tempo e classifica.
Con una casella combinata ( immesso il nr, di pettorale) mi estrae il record
ed invio un SetFocus alla textBox del tempo per inserire il tempo impiegato.
Il problema nasce che per esigenge di mio nipote l'ordine di classifica il
programma dovrebbe farlo in automatico, sia per categoria che per tempi.
Ho provato a fare un routin in uscita sulla TexBox del  tempo dicendo che la
Classifica = Classifica + 1.
Ho lavorato tanto ore, fino alle 2 di notte e dopo 5 giorni non sono
riuscito di venirne a capo.
Qualcuno puo darmi una mano?
Vi ringrazio in anticipo.


title: Classifica per tempi

text:
"Alberto" <
dom...@virgilio.it
> ha scritto nel messaggio
news:6wFMd.494085$b5.23...@news3.tin.it...

se la sua tabella si chiama tabrisultati nell'origine dati della sua
maschera metta
select * from tabrisultati order by categoria, tempo
su dopo aggiornamento del campo tempo (after_update) esegua un requery
me.requery
in questo modo dopo ogni inserimento del tempo dovrebbe riordinarle tutto.
mi faccia sapere l'esito dell'operazione.
Saluti, Simba883


title: Classifica per tempi

author: sandro

text:
"Alberto" <
dom...@virgilio.it
> ha scritto nel messaggio
news:6wFMd.494085$b5.23...@news3.tin.it...

Ciao Alberto, sono appassionato anch'io di ciclismo.
In una situazione come la tua io opterei per creare un form M_atleti con
delle combobox non associate che estraggano, nome atleta, categoria di
appartenenze, gara
Poi una sottomaschera contentente i dati che ti servono visualizzare:
idatleta, datagara, regione, (stm_atleti)
cognome, nome, categoria, tiposport, tempo e classifica.
Poi creerei una query che è origine di questa sottomaschera conterra nella
struttura i criteri che consentiranno alla sottomaschera di visualizzare i
dati :like forms![M_atleti]![nome] . e così per tutti gli altri controlli
non associati inserti nelle form principale.
Le query avrà un ordinamento crescente sul campo tempogara e categoria
atleti, dove sarebbe meglio assegnare alla categorie (seniores, junior,
giovanissimi), un riferimento numerico per ordinarli in base alla
età-categoria di appartenenza.(altrimenti ordinati alfabeticamente il
risultato non sarebbe quello voluto)
Poi un pulsante sulla form M_atleti con me.stm_alteti.requery e il gioco è
fatto !
Inoltre se la query non ha funzioni di raggruppamento hai la possibilità di
modificare o inserire dati !
Se ho capito bene l'esigenza, questa dovrebbe essere la soluzione,
Ciao.


title: Problema Access --> SQL Server

author: Lino Mari [MOD iee]

text:
Il mio problema e' questo:
Creo un Progetto Access che viene collegato con un Server SQL, configurando
il Data Link... a questo punto tutto funziona egregiamente... ovvero
amministro in tutto e per tutto il DB SQL Server...
il problema nasce quando chiudo access e riapro  nuovamente il progetto...
mi dice che il progetto e' *disconnesso* e non c'e' verso di farlo
connettere... disinstallando e reistallando Access alla prima apertura
funziona ma poi quando lo chiudo si ripresenta lo stesso problema...
qualcuno ci ha capito qualcosa? grazie a chi mi sara' di aiuto...
p.s. ho gia' letto tutta la documentazione di access... ma non c'e' nulla...
Saluti
--
Lino Mari [MOD it.economia.e-commerce]
http://www.viadeimercanti.com
 -  Servizi e Software per l'E-Commerce
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - D2D004
http://corsi.aspitalia.com
 - ASP -
ASP.NET
, riconosciuti IWA


title: Problema Access --> SQL Server

text:
almeno ditemi se e' capitato a qualcun altro... o non si capisce come l'ho
scritto...
aspetto fisucioso...
bai



title: Problema Access --> SQL Server

author: MegaMax

text:
> almeno ditemi se e' capitato a qualcun altro... o non si capisce come l'ho
> scritto...
a me non sta capitando, ma ho poca esperienza.
Max


title: Problema Access --> SQL Server

author: S. Savoldi

text:
"Lino Mari [MOD iee]"
> almeno ditemi se e' capitato a qualcun altro... o non si capisce come l'ho
> scritto...
Non mi risulta: perň dovevi scrivere che versione di Access ... 2000, XP?
Ciao.


title: Problema Access --> SQL Server

text:
"S. Savoldi" wrote:
> Non mi risulta: perň dovevi scrivere che versione di Access ... 2000, XP?
2000...
non riesco a capire come farlo riconnettere... bah
ciao



title: Problema Access --> SQL Server

text:
"Lino Mari [MOD iee]"
> "S. Savoldi" wrote:
> > Non mi risulta: perň dovevi scrivere che versione di Access ... 2000,
XP?
>
> 2000...
>
> non riesco a capire come farlo riconnettere... bah
>
> ciao
Hai provato con vari PC o uno solo?


title: Problema Access --> SQL Server

text:
S. Savoldi" wrote:
> Hai provato con vari PC o uno solo?
con piu' di uno... e il problema me lo da solo con il mio... bo!



title: manipolazione stringhe in stile Oracle

text:
Buongiorno a tutti, ho questo problema.
Vorrei utilizzare in Access le seguenti funzioni di manipolazione stringhe (che
esistono nei DB Oracle)
1) rtrim(str) per togliere gli spazi bianchi a destra di una stringa data
2) rpad(str,lun,car) per ottenere una stringa che ha a destra il carattere se la
lunghezza di str e' sotto il valore lun
3) substr(str,pos1,pos2)  che a partire dala stringa str, estrae la
sottostringa che inizia in posizione pos1 e finisce in posizione pos2
Vi chiedo : queste funzioni (o analoghe) esistono ?
Altrimenti, si possono "realizzare" in qualche modo ?
Grazie per ogni suggerimento,
Paolo
(un'eventuale risposta e' gradita in casella)
-------------------------------------
paolo...@rcm.inet.it
-------------------------------------


title: manipolazione stringhe in stile Oracle

author: Sib dall'ufficio

text:
<
psc...@tiscalinet.it
> ha scritto nel messaggio
> Vorrei utilizzare in Access le seguenti funzioni di manipolazione stringhe
(che
> esistono nei DB Oracle)
>
> 1) rtrim(str) per togliere gli spazi bianchi a destra di una stringa data
trim()
> 2) rpad(str,lun,car) per ottenere una stringa che ha a destra il carattere
se la
> lunghezza di str e' sotto il valore lun
Te la fai con String()
> 3) substr(str,pos1,pos2)  che a partire dala stringa str, estrae la
> sottostringa che inizia in posizione pos1 e finisce in posizione pos2
InStr()
Sib
> (un'eventuale risposta e' gradita in casella)
>
> -------------------------------------
>
paolo...@rcm.inet.it
> -------------------------------------
Impensabile


title: manipolazione stringhe in stile Oracle

author: Roberto dal portatile

text:
<
psc...@tiscalinet.it
> ha scritto nel messaggio
news:3bbd9d00...@news.tiscalinet.it...
> Buongiorno a tutti, ho questo problema.
>
> Vorrei utilizzare in Access le seguenti funzioni di manipolazione stringhe
(che
> esistono nei DB Oracle)
>
> 1) rtrim(str) per togliere gli spazi bianchi a destra di una stringa data
>
esiste  la funzione Rtrim anche in Access
> 2) rpad(str,lun,car) per ottenere una stringa che ha a destra il carattere
se la
> lunghezza di str e' sotto il valore lun
>
Non mi sembra che ci sia una funzione simile.
Però
If Len(str) < lun
str = str & car
End If
> 3) substr(str,pos1,pos2)  che a partire dala stringa str, estrae la
> sottostringa che inizia in posizione pos1 e finisce in posizione pos2
>
La funzione Mid è molto simile.
>
> Vi chiedo : queste funzioni (o analoghe) esistono ?
> Altrimenti, si possono "realizzare" in qualche modo ?
>
>
> Grazie per ogni suggerimento,
> Paolo
>
> (un'eventuale risposta e' gradita in casella)
>
Per regolamento del NG, si risponde solo nel NG e non in privato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: manipolazione stringhe in stile Oracle

author: Sib dal portatile

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
> <
psc...@tiscalinet.it
> ha scritto nel messaggio
CUT
> > 2) rpad(str,lun,car) per ottenere una stringa che ha a destra il
carattere
> se la
> > lunghezza di str e' sotto il valore lun
> >
>
> Non mi sembra che ci sia una funzione simile.
> Però
>
> If Len(str) < lun
> str = str & car
> End If
Io avevo capito che voleva aggiungere tante volte il carattere fino alla
lunghezza lun della stringa.
> > 3) substr(str,pos1,pos2)  che a partire dala stringa str, estrae la
> > sottostringa che inizia in posizione pos1 e finisce in posizione pos2
> >
>
> La funzione Mid è molto simile.
Qui ho proprio capito male, non avevo letto la descrizione del
funzionamento.
Faro' penitenza. (si fa per dire)
Sib


title: manipolazione stringhe in stile Oracle

text:
"Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
news:seNv7.39312$0Y2.3...@news.infostrada.it...
[CUT]
> Faro' penitenza. (si fa per dire)
Beh, per questa volta solo un minuto in ginocchio sui ceci. :-))
>
> Sib
>
Ciao
Roberto


title: manipolazione stringhe in stile Oracle

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
> "Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
> [CUT]
> > Faro' penitenza. (si fa per dire)
>
> Beh, per questa volta solo un minuto in ginocchio sui ceci. :-))
Si', ma senza Corazzata Potionkin
Sib


title: manipolazione stringhe in stile Oracle

text:
"Sib dall'ufficio" <cerrise...@SPAMtiscalinet.it> ha scritto nel
messaggio news:9pur5s$l5m$1...@serv1.iunet.it...

Naturalmente: hai mica ucciso una persona!!
Ciao
Roberto


title: evitare ultima pagina report con solo intestazione e piè di pagina

text:
Buon giorno a tutti,
mi sono accorta che alcune volte, dipende dal numero di righe presenti
nel report, il mio repoort
di stampa ha nell'ultima pagina solo l'intestazione pagina (che
contiene delle etichette) e il piè di pagina (che contiene l'etichetta
"firma" e una riga), che è una cosa orribile!!!!
è possibile impostare da qualche parte qualcosa tipo "tieni il piè di
pagina con il precedente", oppure
"non inserire mai il pie di pagina da solo su nuova pagina" o ancora
"inserisci n. righe per pagina"
(n.b. per rughe intendo il record riportato nel corpo del report)
Grazie anticipatamente


author: almorel

text:

Ciao Elena,
"> (n.b. per rughe intendo il record riportato nel corpo del report)"
per le rughe esistono prodotti specifici ;-)).
Per le righe temo di no. Credo che l'unica alternativa sia giocarti lo
spazio a piè di pagina per il caso peggiore, ovvero fare in modo che
entrino nella pagina solo le righe che vuoi.
Ciao
Alberto


text:

rughe e aterosclerosi permettendo
sai come potrei fare a impostare max 7 RIGHE (=7 record)
nel corpo del report?
Grazie


title: Ancora problema con Filtro

author: Piero

text:
ciao a tutti
ho maschera con sottomaschera.
nella maschera ho inserito un pulsante
con questo codice

Me!subform.Form.Filter = ""
Me!subform.Requery

ma dopo everlo eseguito,
anche il filtro che ho nella query della subform stessa si annulla
p.e.
idCliente
Forms!MiaForm!IdCliente
or
idFornitore
Forms!MiaForm!idFornitore

e solo dopo aver chiuso e riaperto la maschera
il filtro torna a funzionare

Come posso risolvere?
grazie


title: Ancora problema con Filtro

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:5345509a$0$1356$4faf...@reader1.news.tin.it...

ho provato così per applicare il filtro all'IdCliente nella sottomaschera,
ma ho errore:
Dim MiaVar As Integer
Me!SubForm.Form.Filter = ""
MiaVar = Me!SubForm.Form!IdCliente
FilterOn = True
DoCmd.ApplyFilter , "[MiaVar] = " & Me!IdCliente

grazie per l'aiuto


title: Collegamento tra report e sottoreport

author: Simone

text:
Ciao a tutti,
ho un problema, l'origine dati di una casella di testo "IMP_DEB" di un
report  "MOD_F24" è una casella di testo  "TOT_IMP_DEB" (che calcola la
somma dei record), contenuta nel sottoreport "SOTT_SEZI_ENLO"
per farlo ho usato la formula:
=IIf(IsNull([Report]!SOTT_SEZI_REGI![TOT_IMP_DEB]);[Report]!SOTT_SEZI_REGI![
TOT_IMP_DEB])
se il sotto report non contiene alcun dato, la funzione viene eseguita
correttamente, al contrario se nel sotto report sono contenuti dei record,
la funzione mi restituische il medesimo risultato e cioè non visualizza
nulla.
ho provato a modificare la funzione nel seguente modo:
=IIf(IsNull([Report]!SOTT_SEZI_REGI![TOT_IMP_DEB]);Null;[Report]!SOTT_SEZI_R
EGI![TOT_IMP_DEB])
in questo caso se il sotto report non contiene alcun dato mi viene segnalato
un errore mentre funziona correttamente
se il sotto report contiene dati.
come posso fare?


title: Collegamento tra report e sottoreport

author: The-real-Isaac

text:
"Simone" <
simon...@tin.it
> ha scritto nel messaggio
news:R1XC7.22542$Qj6.1...@news.infostrada.it...

Se ho ben capito ...
=Nz(Reports![SOTT_SEZI_REGI]![TOT_IMP_DEB]);0)
Ciao
--
Alberto


title: Collegamento tra report e sottoreport

text:
Ciao e grazie per la risposta,
ho provato anche cosė ma inutilmente.
altre possibilitā?


title: gruppi - report e query

author: luigionofrio

text:
ho un archivio in cui vi sono memorizzati dati anagrafici.
vorrei:
1) aggiungere alla tabella un nuovo campo in cui memorizzarci un numero
progressivo a gruppi di 20 basati sulla lettera iniziale del cognome
2) stampare un report lista elenco con 20 record per foglio.
penso di dover creare una query di aggiornamento , ma prima di combinare
casini, mi potete indicare il codice da inserire per farlo?
grazie.
o se diversamente , casa fare?
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: gruppi - report e query

text:
luigionofrio ha scritto:
> ho un archivio in cui vi sono memorizzati dati anagrafici.
> vorrei:
> 1) aggiungere alla tabella un nuovo campo in cui memorizzarci un numero
> progressivo a gruppi di 20 basati sulla lettera iniziale del cognome
> 2) stampare un report lista elenco con 20 record per foglio.
> penso di dover creare una query di aggiornamento , ma prima di combinare
> casini, mi potete indicare il codice da inserire per farlo?
> grazie.
> o se diversamente , casa fare?
> luigi
aggiungo che per il report mi servirebbe anche poter stampare la lista a
gruppi di 20 basato sull'iniziale del cognome.
l.



title: gruppi - report e query

author: VT @ home

text:
Il Tue, 09 Oct 2007 13:56:30 +0200,
onofrio...@tin.it
 (luigionofrio) ha scritto:
>ho un archivio in cui vi sono memorizzati dati anagrafici.
>vorrei:
>1) aggiungere alla tabella un nuovo campo in cui memorizzarci un numero
>progressivo a gruppi di 20 basati sulla lettera iniziale del cognome
>2) stampare un report lista elenco con 20 record per foglio.
Per quanto mi riguarda non ho capito qual è il risultato che vuoi ottenere.
Magari se posti un esempio dei dati in tabella e della stampa corrispondente che vuoi ottenere ...
>penso di dover creare una query di aggiornamento , ma prima di combinare
>casini, mi potete indicare il codice da inserire per farlo?
>grazie.
>o se diversamente , casa fare?
>luigi
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: gruppi - report e query

text:
VT @ home ha scritto:
> Il Tue, 09 Oct 2007 13:56:30 +0200,
onofrio...@tin.it
 (luigionofrio) ha
scritto:
> >ho un archivio in cui vi sono memorizzati dati anagrafici.
> >vorrei:
> >1) aggiungere alla tabella un nuovo campo in cui memorizzarci un numero
> >progressivo a gruppi di 20 basati sulla lettera iniziale del cognome
> >2) stampare un report lista elenco con 20 record per foglio.
> Per quanto mi riguarda non ho capito qual è il risultato che vuoi ottenere.
> Magari se posti un esempio dei dati in tabella e della stampa corrispondente
che vuoi ottenere ...
> >penso di dover creare una query di aggiornamento , ma prima di combinare
> >casini, mi potete indicare il codice da inserire per farlo?
> >grazie.
> >o se diversamente , casa fare?
> >luigi
ok
1° caso:
tabella anagrafe  id, cognome, nome campo nuovo X
001 Abbate cosimo      1
....
020 asfodelo giuseppe   1
021 Arsenio lupino      2
....
039 ausonia alberto     2
040 avitabile roberto   3
......
059  ecc.
quindi come faccio ad assegnare il valore (ogni 20) al campo x ?
2° Caso:
il report di una lista deve avere 20 righe a pagina
mi sono spiegato?
l.



title: gruppi - report e query

author: Alessandro Cara

text:

Se hai il codice Matricola potrebbe essere anche cosi':
Query di origine
select ........blablabla......,int(matricola/20) as SelPag
e se vuoi la "rottura" anche per la prima iniziale del cognome
select ........blablabla......,left(cognome,1) & int(matricola/20)  as
SelPag
Metti una interruzine di gruppo su selpag ed hai fatto
se questa int(matricola/20) non funziona perche' matricola e
alfanumerico allora int(val(matricola/20))
--
ac
y-1=x


title: gruppi - report e query

text:
Alessandro Cara wrote:
P.S. Cancella. Con gli ID non puoi avere una sequenza corretta.
Cmq sul sitocomune c'e' un riferimento a come fare per stampare un
numero fisso di righe.
--
ac
y-1=x


title: gruppi - report e query

text:
Il Tue, 09 Oct 2007 15:57:29 +0200, Alessandro Cara <
alessan...@ay-1asistemi.it
> ha scritto:
>(.....)

Il suggerimento di Alessandro puoi applicarlo al campo ID, senza aggiungere niente.
Ritengo necessaria un precisazione: funziona a patto che la stampa venga ordinata sul campo ID; in caso diverso la
"rottura" su selpag avviene in maniera imprevista e non necessariamente ogni 20 record.



title: gruppi - report e query

text:
Il Tue, 09 Oct 2007 16:13:45 +0200, "VT @ home" <
V...@home.it
> ha scritto:
>(.....)
>
>Il suggerimento di Alessandro puoi applicarlo al campo ID, senza aggiungere niente.
>Ritengo necessaria un precisazione: funziona a patto che la stampa venga ordinata sul campo ID; in caso diverso la
>"rottura" su selpag avviene in maniera imprevista e non necessariamente ogni 20 record.
Ulteriore precisazione: con questo sistema il raggruppamento salta anche nel caso di "buchi" fra gli ID dovuti a
cancellazione di record.



title: 4th dimension vs Access

author: Ganimede

text:
Qualcuno li usa entrambe... differenze?
Grazie.
Ganimede Dignan.


title: 4th dimension vs Access

author: Oscar Manfredini

text:
"Ganimede"
> Qualcuno li usa entrambe... differenze?
>
> Grazie.
In dettaglio non conosco 4D, per� ho notato che � uno dei tanti applicativi
RAD programmabili solo con scripts.
L'assenza di un vero linguaggio d'interazione con la parte visuale e
DataBase a mio avviso � determinante (in senso negativo).
Ciao


title: domanda ADO e Access

author: Marco Nappi

text:
secondo voi l'uso di ado in access97 per connettersi a database sql è la
cosa migliore da fare (come prestazioni)?


title: query per scadenze compleanni

author: Morde

text:
Buongiorno a tutti, sono un "collega" di it.comp.lang.delphi.
Vengo da voi perche' ho un problema di composizione query che non riesco a
risolvere. ho gia' cercato in google groups su questo ng in alcuni thread
passati, ma ho dei problemi di implementazione query.
Il mio programma ha come base dati access 2000, mi e' stato chiesto uno
scadenziario dei compleanni, cioe' dato un parametro di intervallo, devo
visualizzare tutti i compleanni che si verificheranno da oggi in
quell'intervallo.
Ho realizzato una semplice tabella:
Tabella1:
Datanascita ! nome
------------+----------
20/12/2001  ! natoil20
25/12/1985  ! natoil25
30/12/1999  ! natoil30
Ho aggiunto questa query, ricavata da un thread di questo ng:
SELECT [Tabella1].[datanascita], [Tabella1].[nome]
FROM Tabella1
WHERE
(nz([Tabella1].[datanascita])-dateserial(year(nz([Tabella1].[datanascita]))+(month([Tabella1].[datanascita])<month(date())),month(date()),day(date())))<intervallo;
il problema accade che quando lancio la query e gli do' come parametro 5, mi
ritorna
20/12/2001  ! natoil20
30/12/1999  ! natoil30
Non capisco perche' mi tira fuori anche il 30 !!!
C'e' qualche buon'anima che mi sa dire dov'e' l'errore nella query ??
Ciao a tutti
--
Morde.
(
mo...@despammed.com
)


title: query per scadenze compleanni

author: SR

text:
"Morde" <
fake...@libero.it
> ha scritto nel messaggio
news:bmmttv8066segsd4l...@4ax.com...
> Il mio programma ha come base dati access 2000, mi e' stato chiesto uno
> scadenziario dei compleanni,>
> Datanascita ! nome
> ------------+----------
> 20/12/2001  ! natoil20
> 25/12/1985  ! natoil25
> 30/12/1999  ! natoil30
>
Quindi l'intervallo è definito per mese e giorno, a meno dell'anno, esatto?
select nome from Tabella1 where (format(Datanascita, "mm") &
format(Datanascita, "dd")) between (format([DataInizioIntervallo], "mm") &
format([DataInizioIntervallo], "dd")) and (format([DataFineIntervallo],
"mm") & format([DataFineIntervallo], "dd"))
Controlla virgole e parentesi ma il concetto dovrebbe essere questo


title: query per scadenze compleanni

text:
On Tue, 16 Dec 2003 11:52:17 +0100, "SR" <
ste...@despammed.com
> wrote:
>Quindi l'intervallo è definito per mese e giorno, a meno dell'anno, esatto?
Cavolo, purtroppo devo tenere conto dell'anno...la tua query funziona bene ma
solo fino al 31/12 dell'anno corrente.
Vediamo di riassumere il problema: ho un elenco di date di nascita, devo
visualizzare tutti i compleanni almeno 30 giorni prima che accadano.
Detto questo, definisco un intervallo di date "Datainizio" e "Datafine" dove
ho come Datainizio la data di oggi Date(), e Datafine la data di oggi + 30
giorni (Date()+30).
Dovrei percio' visualizzare tutti i compleanni che cadono in questo
intervallo, ma c'e' il problema del cambio di anno (2003->2004)
Come faccio a estrarre tutte le date di questo intervallo a prescindere
dall'anno?
Ti ringrazio di cuore perche' mi stai aiutando a capire, anche se sono
impedito con questo sql e access basic!
--
Morde.
(
mo...@despammed.com
)


title: query per scadenze compleanni

text:
----- Original Message -----
From: "Morde" <
fake...@libero.it
>
Newsgroups: it.comp.appl.access
Sent: Tuesday, December 16, 2003 12:30 PM
Subject: Re: query per scadenze compleanni
> On Tue, 16 Dec 2003 11:52:17 +0100, "SR" <
ste...@despammed.com
> wrote:
>
> >Quindi l'intervallo è definito per mese e giorno, a meno dell'anno,
esatto?
>
> Cavolo, purtroppo devo tenere conto dell'anno...la tua query funziona bene
ma
> solo fino al 31/12 dell'anno corrente.
Scusa, ho messo giù la query in fretta e non ho pensato ad intervalli che
coprissero più anni. Quindi l'obbiettivoè: capire chi fa il compleanno da
qui a 30 gg.
SELECT Tabella1.nome, Tabella1.datanasc
FROM Tabella1
WHERE
(((DateDiff('d',Date(),DateSerial(IIf(Month([datanasc])-Month(Date())>0,Year
(Date()),Year(Date())+1),Month([datanasc]),Day([datanasc]))))<=30));
Riprova, ciao
Stefano


title: query per scadenze compleanni

text:
On Tue, 16 Dec 2003 12:54:20 +0100, "SR" <
ste...@despammed.com
> wrote:
>Riprova, ciao
Ok, finalmente ci sono arrivato, senza il tuo preziosissimo aiuto non so se ci
sarei riuscito. Nel ringraziarti, posto a tutto il ng, per chi dovesse averne
bisogno in futuro, la soluzione. Non e' sicuramente la migliore, e' una delle
tante, ma funziona.
Dati:
Una tabella di esempio Tabella1 con due campi: Tabella1.datanascita,
Tabella1.nome.
Scopo: costruire una query che mostri tutti i compleanni con un anticipo in
giorni, rispetto alla data di sistema, indicato dal parametro [GiorniAvviso].
Soluzione:
Da ogni data di nascita ne ricavo il compleanno (DTCOMPLE) attualizzato
all'anno corrente:  se il compleanno rispetto alla data odierna (di sistema)
e' gia' passato, lo devo "futurizzare" all'anno prossimo (DTFUTURA).
Fatto questo, estraggo tutti quei record compresi tra la data odierna (di
sistema) e il limite di tempo dell'intervallo imposto dai giorni di preavviso
[GiorniAvviso].
DTCOMPLE =
DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita))
DTFUTURA =
IIf((DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita))<Date()),
DateSerial(Year(Date())+1,Month(Tabella1.datanascita),Day(Tabella1.datanascita)),
DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita)))
Definite queste variabili, non resta che completare l'SQL definitivo:
************************************************************** [SQL inizio]
SELECT Tabella1.datanascita, Tabella1.nome,
DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita))
AS DTCOMPLE,
IIf((DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita))<Date()),DateSerial(Year(Date())+1,Month(Tabella1.datanascita),Day(Tabella1.datanascita)),DateSerial(Year(Date()),Month(Tabella1.datanascita),Day(Tabella1.datanascita)))
AS DTFUTURA
FROM Tabella1
WHERE
(((IIf((DateSerial(Year(Date()),Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita]))<Date()),DateSerial(Year(Date())+1,Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita])),DateSerial(Year(Date()),Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita]))))<=(Date()+[GiorniAvviso])
And
(IIf((DateSerial(Year(Date()),Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita]))<Date()),DateSerial(Year(Date())+1,Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita])),DateSerial(Year(Date()),Month([Tabella1].[datanascita]),Day([Tabella1].[datanascita]))))>=Date()));
**************************************************************  [SQL fine]
Ciao a tutti, grazie ancora Stefano. :)
--
Morde.
(
mo...@despammed.com
)