author: Alessandro Baraldi

text:
Carlo Costarella ha scritto:

Carlo ma tu da buon Calabrese, quando vai in casa d'altri non porti
specialità della tua Zona....?? Eccome....
Ora non è ancora Natale, vedrai........
Come dissi qualche tempo fà, in questo mondo cambiano i "cazzi"(che
come eufemismo sono quelli della classe politica al governo) ma i
"CULI" niente da fare sono sempre i NOSTRI.... e loro che hanno da fare
con quello che hanno traggono il massimo divertimento....!
Fai pure attenzione a non muoverti troppo, rischi di dar loro piacere a
GRATISSE.
;-)
@Alex


title: [Super OT] Quale è la società di Torre del Greco...che

author: ciroteo

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1158398027.1...@d34g2000cwd.googlegroups.com...
Carlo Costarella ha scritto:





;-)
@Alex
ah però  ... riflessioni da week - end!
aggiungiamo allora che sulla copertina del giornale leggevo proprio che un
caro amico ha pensato bene di dimettersi ... vogliamo parlarne? ma no ...
aspettiamo ancora un po'....


author: MA

text:

Non sapevo di questa notizia ma indagherò.
In ogni caso, Torre è una città con immensi capitali seppur sommersi.
Credo possa essere l'ITS un'azienda di software che ha come clienti Telecon,
H3G, Telecom e che si sta muovendo molto bene. I capitali sono puliti e
quello che fanno lo stanno facendo per capacità (dei commerciali più che dei
tecnici), non altro.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


author: Carlo Costarella

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:eelfq4$akb$1...@area.cu.mi.it...
cut
> Non sapevo di questa notizia ma indagherò.
> In ogni caso, Torre è una città con immensi capitali seppur sommersi.
> Credo possa essere l'ITS un'azienda di software che ha come clienti
> Telecon,
> H3G, Telecom e che si sta muovendo molto bene. I capitali sono puliti e
> quello che fanno lo stanno facendo per capacità (dei commerciali più che
> dei
> tecnici), non altro.
>
Meglio così!
Buon pro.
Ciao, Carlo


title: Codice di inserimento dopo … non va

author: nwrr

text:
Se utilizzo tale codice per inserire record in una sottomaschera
funziona bene. Dentro la sottomaschera ho una form in modalità continua.
Però dopo la cancellazione di record con altro codice riportato sotto
al click tale codice non riesce più ad inserire record. Dove erro?
--------------------------------------------------------------------------
--------------------------------------------------------------------------
Private Sub Puls1_Click()
Dim rcMio As Recordset
Dim stMio As String
Set rcMio = Me![nome_sottomaschera].Form.RecordsetClone
'controllo di non mettere doppioni, faccio il controllo solo se già
inserito un record
If rcMio.RecordCount > 0 Then
stMio = "campoA = " & Me![cas_testo1] & " and campoB = ' " _
& Me![cas_testo2] & " ' "
        rcMio.FindFirst stMio
        If rcMio.NoMatch Then
                 'non ho trovato doppione, allora aggiungo record
                  rcMio.AddNew
                  rcMio![campoA] = Me![ cas_testo1]
                  rcMio![ campoB] = Me![ cas_testo2]
                  rcMio.Update
                              'scarico la variabile
                               Set rcMio = Nothing
                               Exit Sub
        Else 'incontro il doppione
            msgbox "Attenzione Nome Inserito" , 32
                              'scarico la variabile
                               Set rcMio = Nothing
                              Exit Sub
        End If
End If
'nel caso non ho nessun record allora aggiungo direttamente
 rcMio.AddNew
                  rcMio![campoA] = Me![ cas_testo1]
                  rcMio![ campoB] = Me![ cas_testo2]
                  rcMio.Update
                              'scarico la variabile
                               Set rcMio = Nothing
'aggiorno sottomaschera
Me![nome_sottomaschera].Requery
End Sub
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Se però poi cancello con il codice sotto alcuni record,
 lo stesso codice sopra poi non rifunziona più.
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Private Sub Click()
Dim rcMio As Recordset
Set rcMio = Me![nome_sottomaschera].Form.RecordsetClone
rcMio.Bookmark = Me![ nome_sottomaschera].Form.Bookmark
rcMio.Delete
rcMio.MoveFirst 'rimetto la selezione sul primo record
            'scarico la variabile
                   Set rcMio = Nothing
             'aggiorno sottomaschera
Me![testo_Sottom_004d_prov_reg_ins].Requery
End Sub
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------


title: vedi/nascondi un campo in funzione del record.

author: Gianni

text:
ciao a tutti...
vorrei chiedervi quanto segue:
ho una form "fornitori" del tipo :
campo "A" txt
campo "b" txt
campo "c" numerico
campo "d" data
campo "e" si/no
ora vorrei visualizzare il campo "d" e il campo "e" solo per valori precisi
di "c".
Esempio:
per valori di "C" = 1000 visualizza nella form "d" e "e" diversamente
nascondi "d" e "e"
grazie per tutto.
ciao e buon lavoro
Gianni


author: Nicola Di Martino

text:
"Gianni" <
giann...@hotmail.com
> ha scritto nel messaggio
news:DJAUf.46677$A83.1...@twister1.libero.it...

Ciao
nell'evento Form_Current puoi mettere
If c=1000 then
    d.visible=false
    e.visible=false
else
    d.visible=true
    e.visible=true
end if
questo solo per c=1000 se vuoi per valori maggiori o minori cambi
l'operando...
ciao
Nik


author: Gabriele Bertolucci

text:
> nell'evento Form_Current puoi mettere
> If c=1000 then
> d.visible=false
> e.visible=false
> else
> d.visible=true
> e.visible=true
> end if
> questo solo per c=1000 se vuoi per valori maggiori o minori cambi
> l'operando...
Alla risposta di Nicola di Martino aggiungo solo che la cosa funziona sempre,
ma con le maschere in visualizzazione "maschere continue" si ottengono degli
spiacevoli effetti grafici.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
Io sono per la massima razionalizzazione del codice
e tenderei a riassumere il tutto così:
    d.visible=(C=1000)
    e.visible=(C=1000)
Ciao
@Alex


title: Visualizzare caselle di testo in certe condizioni

author: Femto

text:
Ciao NG, secondo voi come si può fare a far comparire una casella di
testo in base a una scelta in una casella combinata? Esampio: Ho una
situazione dove a volte devo inserire solo la dimensione altezza ed
altre in cui mi dovrebbere apparire entrambe, cioè altezza e diametro.
Grazie
Femto


text:
"Femto" <
fem...@virgilio.it
> ha scritto nel messaggio
news:a6fbe6d7.04102...@posting.google.com...

supponi che hai una casellacombinata con dei valori di scelta valore1,
valore2, valoreN
su dopo aggiornamento della casellacombinata esegui un istruzione if
if casellacombinata="valore1" then
    campo1.visible=true
    campo2.visible=false
elseif casellacombinata="valore2" then
    campo1.visible=true
    campo2.visible=true
elseif ecc.....
endif
fai tutti i vari casi.
fammi sapere
ciao Simba883


text:
"Femto" <
fem...@virgilio.it
> wrote in message
news:a6fbe6d7.04102...@posting.google.com

Secondo me dovresti prevedere un CAMPO nella Tabella origine
dati della Combo ed in base a quello inserito come COLONNA
nascosta nella Combo condizioni la visualizzazione della
TextBox...!
Es:
Supponi di avere un Campo Mostra(Si/No) e di averlo
inserito nella 2° colonna della Combo(sarebbe indice 1)
Su evento After_Update
Me.nomeTextBox.Visible=(Me.NomeCombo.Column(1)=True)
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:

Grande, funziona a meraviglia....
ciao Femto


title: errore operatore senza operando!

author: David

text:
Ho installato il service pack 2 mi office 2000 e da quel momento la seguente
istruzione non funziona. Peggio mi restituisce il seguente errore:
"operatore senza operando.......OPERAISUUSCITE.IDUSCITA = ....
DoCmd.RunSQL "INSERT INTO OPERAISUUSCITEtemp (IDUSCITA, IDOPERAIO)SELECT " _
        & "OPERAISUUSCITE.IDUSCITA as IDUSCITA, OPERAISUUSCITE.IDOPERAIO as
IDOPERAIO "  _
        & "FROM OPERAISUUSCITE WHERE OPERAISUUSCITE.IDUSCITA = " &
Me!TXIDUSCITA & ";"
sbaglio qualche cosa???
Ciao a tutti.
ps: dimenticavo, trattasi di una istruzione che passa tutti i nominativi da
una tabella definitiva ad una temporanea!!
David


title: errore operatore senza operando!

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:vfpF6.178636$lj4.5...@news6.giganews.com...

> ------------------------------------------------------
Non è che per caso il db sia stato fatto con A97 !!


title: Apertura Sottomaschera

author: Luca

text:
Ciao a tutto il ng.
Mi piacerebbe sapere il codice da utilizzare al clic di un pulsante posto su
di una maschera non associata a niente ( sarebbe una maschera di menu) per
poter rendere visibile (Non aprire) una sottomaschera.
Grazie
Luca

--------------------------------
Inviato via
http://usenet.libero.it


title: Apertura Sottomaschera

author: George

text:
"Luca" <
pi...@libero.it
> ha scritto nel messaggio
news:217Z56Z224Z171Y...@usenet.libero.it...
> Ciao a tutto il ng.
> Mi piacerebbe sapere il codice da utilizzare al clic di un pulsante posto
su
> di una maschera non associata a niente ( sarebbe una maschera di menu) per
> poter rendere visibile (Non aprire) una sottomaschera.
>
> Grazie
>
> Luca
Se il pulsante sta nella maschera corrente come la sottomaschera:
Me.<nomecontrollosottomaschera>.visible=true (false se la vuoi nascondere)
Altrimenti
Forms!<nomemaschera>!<nomecontrollosottomaschera>.visible=true
Ciao


title: Apertura Sottomaschera

text:
Il 29 Mag 2003, 08:38, "George" <
giorgio.ben...@libero.it
> ha
scritto:

....Con "nomecontrollosottomaschera" cosa intendi?
Mi spiego: io ho inserito la sottomaschera nella maschera principale (quella
con il pulsante) e quando lancio la sua apertura, in automatico mi fa vedere
anche la sottomaschera. Mi piacerebbe invece che al momento del lancio della
maschera principale non si vedesse la sottomaschera e quando clicco sul
pulsante la sottomaschera sia visibile. Probabilmente il comando che mi hai
suggerito tu funziona già penso però che per default debba mettere la
sottomaschera in uno stato "non visibile". E' così ? Se si come devo fare?



title: Apertura Sottomaschera

text:

La sottomaschera va impostata con la proprietà visibile a false.
L'oggetto sottomaschera ha poi un nome (attenzione: non la sorgente dati!),
quello è il nome che intendo...
Bye.


title: Apertura Sottomaschera

author: Max

text:
Luca <
pi...@libero.it
> wrote in message
217Z56Z224Z171Y...@usenet.libero.it...

Apri la maschera principale in visualizzazione struttura
seleziona la sottomaschera e clicca su proprietà
metti a no l'opzione visibile
vai su altri e memorizza il nome con cui quella sottomaschera è definita
nella maschera principale (es dettpippo)
Vai sul codice del pulsante
e scrivi:
me.dettpippo.visible=true
Ciao Max


title: Apertura Sottomaschera

text:

Grazie Max, grazie George
Funziona!!



title: cambiare icona alla barra dei menu

author: Fabio Intelligente

text:
ciao a tutti,
il mio problema č questo: ho creato un piccolo db, con la mia bella barra
dei comandi. Voglio personalizarla con le stesse immagini dei bottoni che ho
inserito nella maschera principale. Mentre sui bottoni č facile inserire un
file immagine, non mi sembra cosě sulla barra...
come faccio?


title: Modifica il font della barra del titolo

author: Thunder

text:
Ciao a tutti,
chiedo il vostro aiuto in quanto vorrei modificare il font della barra del
titolo della mia maschera. Ma come si fa?
Se qualcuno di voi mi sapesse instradare verso una possibile soluzione
gliene sarei davvero grato.
Grazie
Thunder


title: Modifica il font della barra del titolo

author: ALESSANDRO Baraldi

text:
"Thunder" <##
roma...@freesurf.ch
> ha scritto nel messaggio
news:cja2dr$gkc$1...@newshispeed.ch...

Non si può.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Modifica il font della barra del titolo

text:
"Thunder" <##
roma...@freesurf.ch
> ha scritto nel
messaggio news:cja2dr$gkc$1...@newshispeed.ch...

credo che ubidisca alle impostazioni "Aspetto" di
windows
MAssimiliano


title: Maschera ordini, dettagli ordini e aggiunte ai prodotti madre

author: Maroso Marco

text:
Mi spiego meglio, finora ho sviluppato la classica maschera ordini con sottomaschera dettaglio ordini (visualizzazione tabellare) all'interno della quale imposta i prodotti e quantità ottenendo negli altri campi il subtotale etc.

Fin qui tutto funziona.

Il problema è che i miei prodotti possono avere delle aggiunte ... potrei selezionare nella sottomaschera il prodotto pizza margherita ed in automatico mi lega il prodotto alla tabella dettaglio ordini riportandomi il prezzo, la quantità ed il totale riga.

Ora però potrei dover aggiungere o toliere qualche ingrediente a tale prodotto ad esempio ...aggiungo il crudo e tolgo il pomodoro!

Ho creato quindi una tabella prodottiaggiunte e l'ho popolata con le varie aggiunte possibili (cotto, crudo, grana, pomodoro, aglio, cipolla, etccc)

Poi ho creato una tabella tipoaggiunte dove ho inserito le voci (con, senza, molto, poco)

Ho poi creato una tabella aggiunte dove ho inserito idaggiunta, iddettaglioordine, idtipoaggiunta, idprodottoaggiunta

Con vari magheggi sono riuscito ad inserire una voce nel dettaglioordini che si chiama totaleaggiunte dove mi visualizza il valore totale delle aggiunte applicate a quella particolare riga che corrisponde ad un prodotto.

Ora vorrei creare un report che poi sarebbe uno scontrino dove mi viene riportato l'elenco dei prodotti di quell'ordine riportando il costo del prodotto (margherita) e delle rispettive aggiunte dandomi poi il totale del prodotto + aggiunte distinto per ogni prodotto (possono esserci prodotti con aggiunte ed altri senza che semplicemente restano invariati senza aggiunta di ingredienti).

Non riesco a creare il report e quant'altro occorre per visualizzare uno scontrino dettagliato con il totale complessivo oltre che nel dettaglio di ogni singola voce.

Qualcuno mi sa dare una mano? MI sembra di diventare matto!

Se qualcuno ha un'idea migliore mi dica! Non voglio aggiungere le aggiunte nella lista dei prodotti normali come se fossero prodotti in quanto voglio siano legate al prodotto madre a cui vengono applicati.

GRazie in anticipo.


author: GiorgioDaPrato

text:

sembra proprio una delle variazioni possibili del (classico) caso di come riuscire a definire prodotti (articoli) personalizzati (super-personalizzati in quanto variati anche di un solo componente rispetto ad un articolo pre-esistente)

La questione mi "tocca" personalmente, in un altro ambito: definizione scheda articoli per (piccole) aziende di confezione. Nel mio caso l'azienda presenta  articoli "base" e accetta (sul posto) qualsiasi modifica da parte di clienti (anche piccole modifiche: variazioni di bottoni, aggiunta di loghi ...) che di fatto diventano un nuovo articolo (prezzato seduta stante).

Per arrivare a questo la strada è semplice (e nota), in estrema sintesi:
1) definizione di tutti i componenti, con prezzo (tabella "componenti")
2) definizione dei prodotti (tabella "articoli", ma nel mio caso sono più di una): form in cui i componenti (sub-form componenti) si scelgono da combo. Nella form è possibile effettuare copie parziali (si richiamano i componenti di un altro articolo) e completamenti delle copie stesse (aggiunte o eliminazioni di componenti) per cui la definizione di "nuovi articoli" (poco, o anche molto, variati nei componenti rispetto ad un esistente) è agevole e veloce ("la fa il cliente" ...)

Penso che, procedendo in questo modo (SE non lo hai già fatto, considera l'impegno del "rifacimento") si evitino tutte le situazioni confusionarie (e labirintiche) in cui, a quanto appare, ti stai imbattendo e avviando


text:

Grazie dei consigli, purtroppo è la terza volta che riparto da capo ed ormai manca poco perchè sia finito.

Mi rendo conto che quel che dici è corretto, la definizione "labirintico" non poteva essere più azzeccata!

In sostanza è come realizzare un programma di distinta base.


text:

sì
con la possibile variante di tenere separati (tabella a parte) i prodotti di vendita dai componenti (che pure sono prodotti).
E con la prospettiva (facile a verificarsi in un caso come quello "food") che ci siano prodotti intermedi che possono essere contemporaneamente componenti e prodotti "di vendita".
Inoltre considera la necessità di una tabella a parte in cui inserire le "note di realizzazione" del prodotto di vendita (le possibili esigenze del cliente): sono diciture di descrizione della variazione richiesta (magari suddivise per i momenti più distinguibili delle fasi di realizzazione del prodotto)


title: mettere in verticale un campo ole

author: Paul

text:
ciao. In un report avrei bisogno di stampare in senso verticale il
contenuto di un oggetto ole che punta a un file di word incorporato, ma
mentre negli altri controlli c'è la proprietà "verticale", nel campo ole
non c'è! Come posso fare?
grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: mettere in verticale un campo ole

text:
"Paul" <
t...@libero.it
> ha scritto nel messaggio
news:407c3de0a78cbea684d...@mygate.mailgate.org...

Forse non puoi.
Prova a mettere in verticale l'oggetto di Word direttamente nel programma
che lo ha generato e poi lo incorpori.
Ciao, Carlo


title: Numerazione progressiva

author: RobertOne

text:
Buon giorno a tutto il n.g.
Chiedo scusa se rifaccio ancora tale richiesta, ma non ho ricevuto nella
precedente nessuna risposta esaudiente, soprattutto in rapporto alle mie
conoscenze. C'è un modo abbastanza semplice per raggiungere il risultato del
quesito che vi propongo?
Nel mio db ho la necessità in fase di inserimento delle fatture fornitori,
di avere un numero progressivo che automaticamente si incrementi ad ogni
inserimento, anche se dovessi cancellare una fattura.
Non voglio usare il n. ID che mi da Access in quanto se dovessi eliminare un
record tale numero sballerebbe.
Come potrei fare?
Grazie per l'attenzione.
Roberto


title: Numerazione progressiva


title: Errore su query ma poi va

author: Greg

text:
VB6 + Access 2007

Ho una query a campi incorciati che surante l'esecuzione genera
Errorre runtime 3143, Errore si sintassi nell'istruzione Transform.

La cosa curiosa ï¿œ che se metto un On error resume next la query viene
eseguita e restituisce i dati corretti.

Allora che significa questo errore-non errore?

Grazie a tutti per ogni info

--
Greg


title: Errore su query ma poi va

text:
Ciao Greg, immagino tu abbia provato ad usare uno STATEMENT più semplice tipo una semplice SELECT per verificare sia tutto OK...

Poi USI ADO immagino, non DAO, quindi se lo STATEMENT SQL lo hai COPIAINCOLLATO da JET, potresti avere dei CHAR Speciali non adatti... come il JOLLY...!

Altra prova che puoi fare è lasciare lo STATEMENT SQL in JET, e da VB6 aprire la Query... e verificare cosa succede.

Ho il sospetto, per capirci, che possa derivare dalla conversione JET-ADO

Ciao
@Alex


title: Errore su query ma poi va

text:
Il 30/05/14 12:47:38 @Alex ha scritto:
> Ciao Greg, immagino tu abbia provato ad usare uno STATEMENT piï¿œ semplice tipo
> una semplice SELECT per verificare sia tutto OK...

Grazie per l'intervento Alex,

uso dao 3.6 e la query compincollata da Access ï¿œ questa:
q = "TRANSFORM Count(IdMan) AS ConteggioDiIdMan "
q = q & "SELECT Year([Data1]) AS Anno, Count(IdMan) AS [Totale Anno]
From Stat1 Where TipoMan = 'Normale' GROUP BY Year([Data1]), TipoMan "
q = q & "PIVOT Format([Data2],'mmm') In
('gen','feb','mar','apr','mag','giu','lug','ago','set','ott','nov','dic')"

In access funziona, copiata in VB6 (togliendo i doppi apici) da
quell'errore. L'ho rifatto diverse volte pensando a qualche errore di
digitazione durante la modifica, ma l'errore rimane. Adesso funziona
con un Resume Next, ma vorrei tanto toglierlo e capire il problema

--
Greg


title: Passaggio recordset  a una form tramite Property con errore di runtime

author: Stolcius Von Stolcenberg

text:
Un salutone a tutti.

Cercherò di semplificare al massimo il problema.

Abbiamo 2 Form:

- "Form1"  - commandbuton: ”cmdApriForm”
- "Form2" associata a una tablella qualsiasi con n record

DETTAGLIO:
----------- Form1 -----------------------------
Private pRsInProperty As DAO.Recordset

Private Sub cmdApriForm_Click()
   DoCmd.OpenForm "Form2", , , , , acDialog
   Debug.Print Me.Name & " ->" & Me.RsInProperty.RecordCount
End Sub

Public Property Get RsInProperty() As DAO.Recordset
   Set RsInProperty = pRsInProperty
End Property

Public Property Let RsInProperty(ByVal newValue As DAO.Recordset)
   Set pRsInProperty = newValue
End Property

----------- Form2 -----------------------------

Private Sub Form_Load()
   Dim frm As Form_Form1

   Set frm = Forms("form1")
   frm.RsInProperty = Me.Recordset

   Debug.Print Me.Name & “->" & frm.RsInProperty.RecordCount
End Sub

----- ESECUZIONE ----

- Lancio la form 1

- Clicco sul commandbutton che apre la Form2

- Il Debug.Print  evidenzia correttamente il recordcount tramite
  la RsInProperty

- Chiudo la form2

- La riga con il Debug.Print della Form1 genera l’errore di runtime
  ‘3000’ (errore riservato - 1104)

Domanda: come mai la property  funziona correttamente nella Form2 e, invece, nella Form1 mi genera un errore di runtime tutt'altro che chiaro?

TIA per l'aiuto,
Stolcius

-- Per aspera ad (dis)astra


author: Alessandro Cara

text:
Il 14/07/2012 17.53, Stolcius Von Stolcenberg ha scritto:
> Un salutone a tutti.
>
> Cercherò di semplificare al massimo il problema.
>
> Abbiamo 2 Form:
>
> - "Form1"  - commandbuton: ”cmdApriForm”
> - "Form2" associata a una tablella qualsiasi con n record

[cut].........
Perche' definisci una property Let per un oggetto? Che tra l'altro passi
(vorresti passare) byVal?
Gli oggetti usano "set" e vengono passati per reference.

--

ac (x=y-1)


text:
Il giorno sabato 14 luglio 2012 19:51:55 UTC+2, Alessandro Cara ha scritto:

> [cut].........
> Perchè definisci una property Let per un oggetto?

Ciao e grazie, Alessandro.

Imho l'inguacchio non dovrebbe risiedere nel let, in quanto, nella form2, l'oggetto restituisce correttamente il recordcount.

Ad ogni bon conto avevo già tentato tutte le combinazioni possibili: let, set, byval, byref, ali di pipistrello e olio di serpente. :-))

Al culmine della disperazione ho osato anche l'oscura via del late binding con "as object" al posto di "as dao.recordset"

L'ultima combinazione è quella del post con let e byval.

L'errore è stato sempre lo stesso: runtime error 3000(-1104).

Prova tu stesso.

Che dici? E' possibile che si tratti di un bug?

Per la cronaca il test è stato effettuato con Access 2007 - Sp2.

Ritornando al let e set,probabilmente mi sbaglio, ma mi sembra che la differenza sia puramente sintattica.

Con Property Let debbo referenziare l'oggetto in questo modo:

frm.RsInProperty = Me.Recordset

Con Property  Set:

Set frm.RsInProperty = Me.Recordset

Un salutone,
Stolcius


text:
Il 14/07/2012 22.32, Stolcius Von Stolcenberg ha scritto:
> Il giorno sabato 14 luglio 2012 19:51:55 UTC+2, Alessandro Cara ha scritto:
>
>> [cut].........
>> Perchè definisci una property Let per un oggetto?
>
> Ciao e grazie, Alessandro.
>
> Imho l'inguacchio non dovrebbe risiedere nel let, in quanto, nella form2, l'oggetto restituisce correttamente il recordcount.

Il recordcount non e' un oggetto. E' scalare, quindi e' "Let"
Recordset e' oggetto, quindi "Set"
La "Get" e' get per tutti e due, in un caso il ritorno e' impostato con
"Let" : property=var, nell'altro caso con "Set": set property=var

>
> Ad ogni bon conto avevo già tentato tutte le combinazioni possibili: let, set, byval, byref, ali di pipistrello e olio di serpente. :-))
Lo immaginavo. Manca il sangue di drago!

>
> Al culmine della disperazione ho osato anche l'oscura via del late binding con "as object" al posto di "as dao.recordset"
Io uso sempre variant (quindi non definisco il tipo) e non ho mai avuto
problemi. i.e
Public Property Set RsInProperty(param)
    Set pRsInProperty = newValue
End Property

>
> L'ultima combinazione è quella del post con let e byval.
>
> L'errore è stato sempre lo stesso: runtime error 3000(-1104).
>
> Prova tu stesso.
>
> Che dici? E' possibile che si tratti di un bug?
Mi sembra strano.
>
> Per la cronaca il test è stato effettuato con Access 2007 - Sp2.
Cosa succeda con il 2007 lo ignoro. Sono fermo al 2003

>
> Ritornando al let e set,probabilmente mi sbaglio, ma mi sembra che la differenza sia puramente sintattica.
Non lo e'.
se nel caso di un oggetto fai x=oggetto e' "orrore"  (Let e' implicita)
devi fare set x = oggetto
(Come scrivi a seguire)

>
> Con Property Let debbo referenziare l'oggetto in questo modo:
>
> frm.RsInProperty = Me.Recordset
>
> Con Property  Set:
>
> Set frm.RsInProperty = Me.Recordset
>
>
> Un salutone,
> Stolcius
>

--

ac (x=y-1)


text:
Il giorno domenica 15 luglio 2012 06:45:01 UTC+2, Alessandro Cara ha scritto:

>Il recordcount non e' un oggetto. E' scalare, quindi e' "Let"
>Recordset e' oggetto, quindi "Set"
>La "Get" e' get per tutti e due, in un caso il ritorno e' impostato con
>"Let" : property=var, nell'altro caso con "Set": set property=var

D'accordo, ma rimane il fatto che nella form2 l'oggetto recordset viene assegnato(1) e utilizzato(2) senza problemi, mentre nella form1 -ceteris paribus - il tutto va in vacca.

1) Set frm.RsInProperty = Me.Recordset
2) Debug.Print Me.Name & " ->" & frm.RsInProperty.RecordCount

Per il resto conto di risponderti non appena avrò fatto alcuni test.

Un salutone e grazie ancora  per la risposta,
Stolcius


author: Bruno Campanini

text:
Stolcius Von Stolcenberg presented the following explanation :

Sembra un programma fatto da MS...
Fa' ancora qualche sforzo e la MS ti assume come consulente.

Su Form1:
Private Sub Command3_Click()
    'DoCmd.OpenForm "Form2", , , , , acHidden
    Set Recordset = Forms("Form2").Recordset
    'DoCmd.Close acForm, "Form2"
End Sub

I controlli (campi della tabella origine di Form2) debbono esistere in
Form1.

Bruno

PS
RsInProperty nell'Help di Access 10/64 non esiste.
E io non l'ho mai sentito nominare.
Da dove viene?


text:
Il giorno domenica 15 luglio 2012 14:32:34 UTC+2, Bruno Campanini ha scritto:
>Sembra un programma fatto da MS...
>Fa' ancora qualche sforzo e la MS ti assume come consulente.

Ho già contattato Ballmer ;-))

Bruno, scusami, ma forse questa volta, con tuttto il ripetto, sei stato un po' prevenuto.

Non si tratta di un'applicazione vera e propria, ma solo una PoC che mostra un comportamento del'assegnazione di un recordset tramite le Property Get e Set.

La solita fuffa sulla programmazione a oggetti(che a te non interessa, se ben ricordo)

>PS
>RsInProperty nell'Help di Access 10/64 non esiste.
>E io non l'ho mai sentito nominare.

>Da dove viene?

Le ho create io:
Public Property Get RsInProperty() As Recordset
       Set RsInProperty = pRsInProperty
End Property

Public Property Set RsInProperty(ByVal newValue As Recordset)
      Set pRsInProperty = newValue
End Property

Beninteso, avrai mille altre occasioni per tirarmi le orecchie.
D'altronde il mio moto è "per aspera ad (dis)astra" :-))

Un salutone,
Stolcius


text:
Stolcius Von Stolcenberg presented the following explanation :
> Il giorno domenica 15 luglio 2012 14:32:34 UTC+2, Bruno Campanini ha scritto:
>> Sembra un programma fatto da MS...
>> Fa' ancora qualche sforzo e la MS ti assume come consulente.
>
> Ho giï¿œ contattato Ballmer ;-))
>
> Bruno, scusami, ma forse questa volta, con tuttto il ripetto, sei stato un
> po' prevenuto.
>
> Non si tratta di un'applicazione vera e propria, ma solo una PoC che mostra
> un comportamento del'assegnazione di un recordset tramite le Property Get e
> Set.
>
> La solita fuffa sulla programmazione a oggetti(che a te non interessa, se ben
> ricordo)
>
>> PS
>> RsInProperty nell'Help di Access 10/64 non esiste.
>> E io non l'ho mai sentito nominare.
>
>> Da dove viene?
>
> Le ho create io:
> Public Property Get RsInProperty() As Recordset
>        Set RsInProperty = pRsInProperty
> End Property
>
> Public Property Set RsInProperty(ByVal newValue As Recordset)
>       Set pRsInProperty = newValue
> End Property
>
> Beninteso, avrai mille altre occasioni per tirarmi le orecchie.
> D'altronde il mio moto ï¿œ "per aspera ad (dis)astra" :-))
>
> Un salutone,
> Stolcius

Se ti piace andar per aspera mi taccio... come Farinata.

Bruno


text:
Alessandro,
ho fatto alcuni test e, come promesso, rispondo al resto del tuo precedente post.

>Non lo e'.
>se nel caso di un oggetto fai x=oggetto e' "orrore"  (Let e' implicita)
>devi fare set x = oggetto (Come scrivi a seguire)

Giusto, ma ciò è valido per gli oggetti predefiniti.

Tramite le property siamo noi che decidiamo come dovrà essere la sintassi.

Non si tratta di un’assunzione gratuita: dimostrerò(almeno lo spero) questa tesi tramite la seguente  PoC.

****** Modulo di Classe: “clsClassePoc” ******
Option Compare Database
Option Explicit

Private pOggettoQualsiasi As Object

Public Property Get OggettoQualsiasi() As Object
    Set OggettoQualsiasi = pOggettoQualsiasi
End Property

Public Property Set OggettoQualsiasi(ByRef newValue As Object)
    Set pOggettoQualsiasi = newValue
End Property

******* Modulo: “Modulo1” **********
Private Sub TestPoc()

  Dim ClassePoc As clsClassePoc
  Dim CollPoc As Collection

  Set ClassePoc = New clsClassePoc
  Set CollPoc = New Collection

  Debug.Print "****** START *******"
  ' inserisco un elemento qualsiasi  nella collezione

  CollPoc.Add "PippoItem", "Pippokey"

  Set ClassePoc.OggettoQualsiasi = CollPoc

    ' inserisco un secondo elemento  nella collezione tramite la classe
  Debug.Print "1) "; ClassePoc.OggettoQualsiasi.Item("Pippokey")

  ClassePoc.OggettoQualsiasi.Add "PlutoItem", "Plutokey"
  Debug.Print "2) " & ClassePoc.OggettoQualsiasi.Item("Plutokey")

 Set ClassePoc = Nothing
 Set CollPoc = Nothing

End Sub
*********************************************
In poche parole abbiamo una Property “Set”.
Il riferimento viene quindi attribiuto con un Set.
------------------------------------------------------------
    Set ClassePoc.OggettoQualsiasi = CollPoc
------------------------------------------------------------
Lancio TestPoc -> output:
----------------------
****** START *******
1) PippoItem
2) PlutoItem
-----------------------
Ok, il tutto funzica alla grande.

Modifichiamo la property da Set A Let.
-------------------------
Public Property Let OggettoQualsiasi(ByRef newValue As Object)
    Set pOggettoQualsiasi = newValue ‘l’importante è che qui non
                                     ' venga espunto il set
End Property
----------------

A questo punto il riferimento deve essere attribiuto senza Set.
------------------------------------------------------------
    ClassePoc.OggettoQualsiasi = CollPoc
-------------------------------------------------------------
Lancio TestPoc -> output:
-------------------------
****** START *******
1) PippoItem
2) PlutoItem
-------------------------
Quindi CVD il meccanismo - mutatis mutandis -funziona anche con il Let.

Spero di non aver scritto castronerie.

Un salutone,
Stolcius


text:
Il giorno domenica 15 luglio 2012 06:45:01 UTC+2, Alessandro Cara ha scritto:
>Lo immaginavo. Manca il sangue di drago!

Ma lo sai che avevi ragione?

[Sangue di Drago]="Sale in zucca di Stolcius" :-))

Ho capito le ragioni del problema, che adesso mi sembra di un'ovvietà disarmante.

Be', è naturale che chiudendo la "form2" il richiamo al recordcount generi un errore: l'oggetto me.recordset, con la chiusura, "Kaputt!" Va a ingrassare i cavoli.

Pertanto, la property si ritrova un riferimento che pesca nel nulla che nulleggia!

Ci sarei dovuto arrivare subito, ma vi è stato un alquanto arcano precedente che mi ha sviato.

Infatti, avevo già provato a usare una variabile globale "as recordset.dao" con piena soddisfazione(a chiusura della form2, la variabile globale manteneva il riferimento).

Ciò, molto probabilente - e correggimi se dovessi sbagliarmi -, è dovuto al Garbage Collector, che, in qualche modo, tiene in vita l'oggetto cui la variabile si riferisce per qualche attimino in più.

A riprova di questa congettura, inseredo un  DoEvents prima del richiamo della variabile si genera nuovamente l'abominevole errore 3000.

Private Sub cmdApriForm_Click()
   DoCmd.OpenForm "Form2", , , , , acDialog

   DoEvents 'Senza questa riga il recordcount restituisce il n. dei record.

   Debug.Print Me.Name & Now & " global ->" & rsGlobale.RecordCount

End Sub

Meglio tardi(in tutte le neurologiche accezioni) che mai...

Stolcius


title: gia' che ci sono... anno solare e anno fiscale

author: Ajax Diesel

text:
Un rapporto con i totali riferiti all'anno fiscale, Settembre-Agosto nel mio
caso, come fareste?


author: Roberto dalla campagna

text:
Ajax Diesel <
aj...@procter.com
> wrote in message
9uK99.96768$lu5.2...@twister1.libero.it...
>
> Un rapporto con i totali riferiti all'anno fiscale, Settembre-Agosto nel
mio
> caso, come fareste?
Se i dati sono contenuti in Tabella2 ed il campo del record che contiene la
data si chiama Data1, prova con una query che abbia il seguente codice SQL:
SELECT Tabella2.*
FROM Tabella2
WHERE (((Tabella2.Data1) Between DateSerial(Year(Date())-1,9,1) And
DateSerial(Year(Date()),8,31)));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
> > Un rapporto con i totali riferiti all'anno fiscale, Settembre-Agosto nel
> mio
> > caso, come fareste?
>
> WHERE (((Tabella2.Data1) Between DateSerial(Year(Date())-1,9,1) And
> DateSerial(Year(Date()),8,31)));
c'e' del genio, pero' funziona solo per l'ultimo anno e non per i
precedenti...
Volevo evitare una tabella esterna di appoggio con l'indicazione
dell'esercizio per ogni mese...


author: Maurizio Borrelli

text:
> "Ajax Diesel" [...]:
> Un rapporto con i totali riferiti all'anno fiscale, Settembre-Agosto nel
> mio caso, come fareste?
    Scua, ma... come faremmo a fare cosa?
    Parli di un rapporto con i totali *riferiti all'anno fiscale*. Ma
perche'? Forse i dati nel rapporto non appartengono tutti all'AF? Se vi
appartengono allora anche i totali saranno riferiti all'AF.
    Potrebbe essere che intendi: come estrarre i record che ricadono
nell'intervallo. Quindi il problema sarebbe: ottenere le date limite
dell'AF, dato un anno solare. Considera il codice seguente:
Public Function Test1()
  Dim iAnno       As Integer
  Dim tDataI      As Date
  Dim tDataF      As Date
  Dim tData       As Date
  Dim bAppartiene As Boolean
  iAnno = 2002
  tDataI = DateSerial(iAnno, 9, 1)
  tDataF = DateSerial(iAnno + 1, 8, 31)
  Debug.Print "Anno solare "; Format$(iAnno); "."
  Debug.Print _
      "Anno fiscale " _
    ; Format$(tDataI, "dd/mm/yyyy") _
    ; " - " _
    ; Format$(tDataF, "dd/mm/yyyy") _
    ; "."
  tData = #1/1/2003#
  bAppartiene = (tDataI <= tData And tData <= tDataF)
  Debug.Print "La data "; Format$(tData, "dd/mm/yyyy"); " ";
  If (bAppartiene = True) Then
    Debug.Print "cade nell'";
  Else
    Debug.Print "non fa parte dell'";
  End If
  Debug.Print "anno fiscale."
End Function
    Potrebbe essere invece che intendi: un rapporto relativo ai dati dell'AS
che vorresti raggruppati per AF. In questo caso, estratti i record
appartenenti all'AS in questione, si trattera' solo di testare se sono
precedenti o successivi al primo settembre.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


text:
> "Maurizio Borrelli" [...]:
> > "Ajax Diesel" [...]:
> > Un rapporto con i totali riferiti all'anno fiscale, Settembre-Agosto nel
> > mio caso, come fareste?
    Scusate, leggo solo adesso la replica di Roberto dalla campagna e la tua
precisazione che, secondo me, conferma il fatto che devi chiarire, a te ed a
noi, prima ancora di parlare di formule, quale debba essere lo scopo e
l'impagninazione del report.
    Movimenti dal ... al ...
    raggruppati per Anno Fiscale
-oppure-
    Movimenti dall'A.F. ... all'A.F. ...
    raggruppati per A.F.
-oppure-
    Movimenti dall'Anno solare ... all'A.S. ...
    raggruppati per A.S. e A.F.
o qualsiasi altra fantasiosa combinazione.



text:
Ajax Diesel <
aj...@procter.com
> wrote in message
%qV99.99139$lu5.2...@twister1.libero.it...

Allora prova così:
WHERE (((Tabella2.Data1) Between DateSerial([Digita anno di fine
periodo:]-1,9,1) And DateSerial([Digita anno di fine periodo:]-,8,31)));
e quando ti si aprirà la finestra di dialogo digita l'anno con cui finisce
l'anno fiscale.



text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
> o qualsiasi altra fantasiosa combinazione.
ah ah ah, grazie di questa fresca ventata di buon umore.
Sei proprio un mattacchione.
Spero tu non tratti cosi' anche i clienti, perche' ti manderebbero a cagare
al volo.
Grazie anche a Roberto, che senza fare il tuo stupido cabaret ha risposto
capendo la domanda e fornendo una risposta per me geniale.


text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
> e quando ti si aprirà la finestra di dialogo digita l'anno con cui finisce
> l'anno fiscale.
Grazie, hai ragione, in effetti prendo l'anno in corso e vado indietro di
due.


text:
> "Ajax Diesel" [...]:
> > "Maurizio Borrelli" [...]:
> > o qualsiasi altra fantasiosa combinazione.
> ah ah ah, grazie di questa fresca ventata di buon umore.
> Sei proprio un mattacchione.
> Spero tu non tratti cosi' anche i clienti, perche' ti manderebbero a
> cagare al volo.
> Grazie anche a Roberto, che senza fare il tuo stupido cabaret ha risposto
> capendo la domanda e fornendo una risposta per me geniale.
    Senti caro, di' pure quello che pensi, ma evita di essere volgare, per
favore. Voglio sperare che tu abbia il buon senso di scusarti con me e col
ng.
    Invece di dialogare con chi, bene o male, ha dedicato del tempo per
aiutarti nella soluzione dei tuoi problemi, hai scelto la comoda strada del
linguaggio offensivo, evidentemente l'unica alla tua portata.
    Auguri! E chiudo.



text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
>     Senti caro, di' pure quello che pensi, ma evita di essere volgare, per
> favore. Voglio sperare che tu abbia il buon senso di scusarti con me e col
> ng.
Ma dove volgare, nelle parole o nei termini?
O e' la forma?
Dovresti essere piu' preciso per favore, perche' ti risponderei volentieri,
ma dovresti quotare meglio in modo che capisca.
Ti ho dato del mattacchione e tutto mi sembra fuorche' una offesa.
O forse era la "ventata di buon umore"?
Enno', qui caro mio sei tu che mi fai il malizioso, io intendevo esattamente
quello che ho detto, una ventata di ilare simpatia.
 >     Invece di dialogare con chi, bene o male, ha dedicato del tempo per
> aiutarti nella soluzione dei tuoi problemi
Io ci ho dialogato con chi ha dedicato del tempo alla soluzione del mio
problema, e devo dire che se non fosse stato per te la cosa sarebbe ancora
incagliata, mi hai dedicato 5 messaggi, uno piu' inutile dell'altro, e io i
sacrifici li apprezzo sempre.
Ma posso immaginare che la tua generosita' fatichi a trovare confini e debba
per forza esprimersi.
> hai scelto la comoda strada del
> linguaggio offensivo, evidentemente l'unica alla tua portata.
"Evidentemente", caro il mio mattacchione.
Solo che quando uno prende per il culo la gente, dovrebbe essere un pochino
piu' disponibile alla battuta... se vuoi scusarti comunque, con me e col ng
della tua reiterata tracotanza, fallo pure, apprezzeremo.


title: clausola IsMissing

author: Riccardo Baldinotti

text:
� meglio fare cos�:
    If IsMissing(b) Then
    Else
        Forms!mRicerche!cCognome = Null
    End If
oppure cos�:
    If NotIsMissing(b) Then
        Forms!mRicerche!cCognome = Null
    End If
o � uguale?
Grazie a tutti
RB

--

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


title: clausola IsMissing

author: Karl Donaubauer

text:
Riccardo Baldinotti wrote:
> � meglio fare cos�:
>    If IsMissing(b) Then
>    Else
>        Forms!mRicerche!cCognome = Null
>    End If
> oppure cos�:
>    If NotIsMissing(b) Then
>        Forms!mRicerche!cCognome = Null
>    End If
> o � uguale?

Quasi uguale, cio� una questione di stile. Vedo spesso tutte
e due le varianti. Personalmente uso la seconda perch� la
trovo pi� chiara.

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


title: Posizionamento immagini direttamente nel testo del messaggio di Microsoft Outlook

author: Dormillo

text:
Salve,
sto utilizzando una routine per l'inserimento di allegati nelle e
mail, ma mentre in ricezione Outlook Express visualizza l'immagine
anche nel corpo del messaggio, in Microsoft Outlook invece si limita a
presentare l'allegato.
Sarebbe importante per me invece far sì che il corpo del messaggio
presentasse già le immagini senza dover costringere l'utente a
cliccare l'allegato per visualizzarle.
Posso approfittare per fare i miei complimenti ad Alessandro Baraldi,
Roberto da casa,Karl e tutti quei personaggi che dedicano il loro
tempo a questo newsgroup.
Se non ci foste voi, probabilmente adesso farei il parcheggiatore.


text:

I dubbi mi assalgono:
1) Ho fatto una domanda cretina.
2) La risposta è già nella newsgroup, basta ostinarsi a esplorare
meglio gli argomenti.
3) Ho fatto una domanda a cui non è possibile dare risposta.
4) Ho esposto male l'argomento.
Se mi scrivete qualsiasi cosa, anche brevissima, non vi ripropongo più
questa domanda.


text:

http://www.pcanswers.co.uk/tips/default.asp?pagetypeid=2&articleid=45383&subsectionid=616
puo' essere utile?
--
ac
y-1=x


text:
On 23 Mag, 18:31, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:

>
http://www.pcanswers.co.uk/tips/default.asp?pagetypeid=2&articleid=45.
..
>
> puo' essere utile?
>
> --
> ac
> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
E' il problema contrario.
Io vorrei che chi riceve una email inviata dal mio db tramite VBA e ha
come programma di posta MS outlook possa già vedere l'immagine nel
corpo del messaggio, proprio come fa outlook express che appunto,
visualizza l'immagine sia nel corpo che come allegato.
In pratica mi serve la simulazione dell'evento sendkeys che allega
l'immagine in Outlook in modo che sia parte integrante proprio del
corpo del messaggio...
Mi serve che l'utente, senza aprire l'allegato, possa già vedere
l'immagine (trattasi di promozioni pubblicitarie e quindi scritte e
immagini personalizzate in un unico jpeg)
Questo problema non si pone con Outlook Express.
Grazie.


text:
On 23 Mag, 18:31, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:

>
http://www.pcanswers.co.uk/tips/default.asp?pagetypeid=2&articleid=45.
..
>
> puo' essere utile?
>
> --
> ac



text:

[cut]
>
> E' il problema contrario.
Urca! Prova  a leggere l'articolo dal basso verso l'alto.
Se non erro il problema e' spiegato. Fare il rovescio non dovrebbe
essere difficile.
--
ac
y-1=x


text:
On 23 Mag, 21:16, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>

> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Stando con le indicazioni e inserendo un valore 0 nella chiave DWORD
Automatically Inline Images ho solo disattivato la possibilità di
vedere l'allegato in ricezione posta (fra l'altro inserendo 1 al posto
di 0 non cambia nulla e poi questa cosa la faccio a pappagallo senza
capire cosa sto facendo).
Siccome leggo la posta con Outlook Express a parte questo nulla è
cambiato (visto che le immagini già le vedevo nel corpo del
messaggio).
L'invio ad un utente Microsoft Outlook invece non consente la
visualizzazione nel corpo del messaggio dell'immagine e comunque non
vieta la visualizzazione dell'allegato ( cosa che però non mi
interessa, quello che mi interessa è che l'utente veda immediatamente
la promo nel corpo del messaggio).
Portate pazienza....
...


text:

questa e' forse l'unica cosa che non serviva
> Siccome leggo la posta con Outlook Express a parte questo nulla è
> cambiato (visto che le immagini già le vedevo nel corpo del
> messaggio).
> L'invio ad un utente Microsoft Outlook invece non consente la
> visualizzazione nel corpo del messaggio dell'immagine e comunque non
> vieta la visualizzazione dell'allegato ( cosa che però non mi
> interessa, quello che mi interessa è che l'utente veda immediatamente
> la promo nel corpo del messaggio).
> Portate pazienza....
Punti salienti
"The simplest way to eliminate the image from the body of your email is
to select Insert > File Attachment instead of Insert > Picture, Tom."
Cosa dice? Che invece di usare "Insert > File Attachment"  si deve usare
"Insert > Picture". Lui dice il contrario perche' lo  scopo era diverso
Cosa altro dice?
"Instead, you should format any email containing pictures as plain text"
Che le email inviate "non" devono essere in plain-text
Lui aridice il contrario. Ma lo scopo era diverso
Di grazia. quale' il codice che usi per inviare la E-mail? Hai
controllato se c'e' la proprieta' "Picture"? Hai verificato che "non"
invii plain-text?
--
ac
y-1=x


text:
On 24 Mag, 13:59, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>

Il modulo è questo:
+++++++++++++++++++++++++++++++++++++++
Option Compare Database
Option Explicit
Type MAPIMessage
   Reserved As Long
   Subject As String
   NoteText As String
   MessageType As String
   DateReceived As String
   ConversationID As String
   flags As Long
   RecipCount As Long
   FileCount As Long
End Type
Type MapiRecip
   Reserved As Long
   RecipClass As Long
   Name As String
   Address As String
   EIDSize As Long
   EntryID As String
End Type
Type MapiFile
   Reserved As Long
   flags As Long
   Position As Long
   PathName As String
   FileName As String
   FileType As String
End Type
Global Dialogue As MAPIMessage
Declare Function MAPISendMailOE _
                 Lib "C:\Programmi\Outlook Express\Msoe.dll" _
                 Alias "BMAPISendMail" _
                 (ByVal Session&, _
                  ByVal UIParam&, _
                  Message As MAPIMessage, _
                  Recipient() As MapiRecip, _
                  File() As MapiFile, _
                  ByVal flags&, _
                  ByVal Reserved&) As Long
Declare Function MAPISendMail _
                 Lib "MAPI32.DLL" _
                 Alias "BMAPISendMail" (ByVal Session&, _
                 ByVal UIParam&, _
                 Message As MAPIMessage, _
                 Recipient() As MapiRecip, _
                 File() As MapiFile, _
                 ByVal flags&, _
                 ByVal Reserved&) As Long
Global Const SUCCESS_SUCCESS = 0
Global Const MAPI_TO = 1
Global Const MAPI_CC = 2
Global Const MAPI_CCO = 3
Global Const MAPI_LOGON_UI = &H1
Global Const MAPI_DIALOG = &H8
Function SendMail(sSubject As String, _
                  sTo As String, _
                  sCC As String, _
                  sCCO As String, _
                  sAttach As String, _
                  sMessage As String, _
                  Optional sImmediateSend As Boolean = True) _
                  As Long
   Dim MAPI_Message As MAPIMessage
   Dim i As Integer
   Dim cTo As Integer
   Dim cCC As Integer
   Dim cCCO As Integer
   Dim cAttach As Integer
   Dim strTipoPosta As String
   cTo = CountWords(sTo, ";")
   cCC = CountWords(sCC, ";")
   cCCO = CountWords(sCCO, ";")
   cAttach = CountWords(sAttach, ";")
   ReDim rTo(0 To cTo) As String
   ReDim rCC(0 To cCC) As String
   ReDim rCCO(0 To cCCO) As String
   ReDim rAttach(0 To cAttach) As String
   ParseWords rTo(), sTo, ";"
   ParseWords rCC(), sCC, ";"
   ParseWords rCCO(), sCCO, ";"
   ParseWords rAttach(), sAttach, ";"
   ReDim MAPI_Recip(0 To cTo + cCC + cCCO - 1) As MapiRecip
   For i = 0 To cTo - 1
      MAPI_Recip(i).Name = rTo(i)
      MAPI_Recip(i).RecipClass = MAPI_TO
   Next i
   For i = 0 To cCC - 1
      MAPI_Recip(cTo + i).Name = rCC(i)
      MAPI_Recip(cTo + i).RecipClass = MAPI_CC
   Next i
   For i = 0 To cCCO - 1
      MAPI_Recip(cTo + cCC + i).Name = rCCO(i)
      MAPI_Recip(cTo + cCC + i).RecipClass = MAPI_CCO
   Next i
   ReDim MAPI_File(0 To cAttach) As MapiFile
   MAPI_Message.FileCount = cAttach
   For i = 0 To cAttach - 1
      MAPI_File(i).Position = -1
      MAPI_File(i).PathName = rAttach(i)
   Next i
   MAPI_Message.Subject = sSubject
   MAPI_Message.NoteText = sMessage
   MAPI_Message.RecipCount = cTo + cCC + cCCO
    If sImmediateSend = True Then
        Dialogue.flags = MAPI_LOGON_UI
    Else
        Dialogue.flags = MAPI_LOGON_UI + MAPI_DIALOG
    End If
  strTipoPosta = Nz(DLookup("PostaUtilizzata", "Operatori",
"NomeComputer=""" & Environ("Computername") & """"), "Outlook")
  Select Case strTipoPosta
  Case "Outlook Express"
      SendMail = MAPISendMailOE(0&, 0&, _
                                MAPI_Message, _
                                MAPI_Recip(), _
                                MAPI_File(), _
                                Dialogue.flags, 0)
 Case "Outlook", "Outlook"
      SendMail = MAPISendMail(0&, 0&, _
                                MAPI_Message, _
                                MAPI_Recip(), _
                                MAPI_File(), _
                                Dialogue.flags, 0)
  Case Else
      MsgBox "Votre client de messagerie n'est pas supporté"
  End Select
End Function
Function CountWords(ByVal sSource As String, _
                    ByVal sDelim As String) _
                    As Integer
Dim iDelimPos As Integer
Dim iCount As Integer
 If sSource = "" Then
    CountWords = 0
 Else
    iDelimPos = InStr(1, sSource, sDelim)
    Do Until iDelimPos = 0
        iCount = iCount + 1
        iDelimPos = InStr(iDelimPos + 1, sSource, sDelim)
    Loop
        CountWords = iCount + _
                     IIf(Right(sSource, 1) = sDelim, 0, 1)
 End If
End Function
Function GetWords(sSource As String, _
                  ByVal sDelim As String) _
                  As String
        Dim iDelimPos As Integer
        iDelimPos = InStr(1, sSource, sDelim)
    If (iDelimPos = 0) Then
        GetWords = Trim$(sSource)
        sSource = ""
    Else
        GetWords = Trim$(Left$(sSource, iDelimPos - 1))
        sSource = Mid$(sSource, iDelimPos + 1)
    End If
End Function
Sub ParseWords(mArray() As String, _
               ByVal sTokens As String, _
               ByVal sDelim As String)
        Dim i As Integer
        For i = LBound(mArray) To UBound(mArray)
        mArray(i) = GetWords(sTokens, sDelim)
        Next i
End Sub
+++++++++++++++++++++++++++++++++++++++++++
e questa è la riga di comando
retVal = SendMail(Titolo, txtA, "", strCCN, NomeImmagine1,
TestoMessaggio, False)
ma non c'è una proprietà picture.
Grazie...


title: immagini incorporate e dimensioni databse

author: felixx

text:
Per esigenze di visualizzazione di immagini diverse per ogni record in maschere continue (uso Access 2010), devo mantenere le immagini incorporate nella maschera. Ovviamente al raggiugimeno dei 2 Gb il database comincia a non accettare più nuovi record.

Due domande:
1) ho letto che è meglio inserire immagini in bmp, che assorbono meno spazio. Ci sono altri accorgimenti che limitano le dimensioni del file?
2) Se passo a Office 365 il problema si supera?

Grazie,
felixx


author: Mancini

text:
Molo meglio usare immagini collegate.

memorizzi solo il percorso, poi se la cartella immagini la metti nella stessa catrtella della applicazione puoi usare CurrentProject.Path() quindi non hai neanche il problema della "portabilita" della applicazione

.


text:
Scusa, ma ho la possibilità di visualizzazione di immagini diverse per ogni record in maschere continue?



text:
E' possibile con le immagini collegate visualizzarle nei report con vari record (1 immagine diversa per ogni record)?
Grazie



text:
felixx:

> 1) ho letto che ï¿œ meglio inserire immagini in bmp, che assorbono meno spazio.

ï¿œ falso.

> Ci sono altri accorgimenti che limitano le dimensioni del file?

http://www.donkarl.com/it?FAQ2.2

> 2) Se passo a Office 365 il problema si supera?

No.

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

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


text:
felixx:
> E' possibile con le immagini collegate visualizzarle nei report con vari record (1 immagine diversa per ogni record)?

A partire da A10 ï¿œ semplice. Basta impostare la nuova proprietï¿œ "origine
controllo" di un controllo immagine al nome del campo che contiene il
percorso.



author: Ammammata

text:
Il giorno Mon 29 Sep 2014 10:52:39a, *felixx* inviava su
it.comp.appl.access il messaggio news:49e8a951-9411-4961-9705-
eeedf5...@googlegroups.com
. Vediamo cosa scrisse:

> E' possibile [cut]

poi, quando hai risolto, leggi anche qui:
http://wiki.news.nic.it/QuotarBene

grazie

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


text:
Il giorno martedì 30 settembre 2014 22:42:00 UTC+2, Karl Donaubauer ha scritto:
> felixx:
>
> > E' possibile con le immagini collegate visualizzarle nei report con vari record (1 immagine diversa per ogni record)?
>
>
>
> A partire da A10 ï¿oe semplice. Basta impostare la nuova proprietï¿oe "origine
>
> controllo" di un controllo immagine al nome del campo che contiene il
>
> percorso.
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
http://www.donkarl.com/it

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

Ti ringrazio, ancora una cosa: è possibile richiamare il campo immagine con il lookup?
felixx


text:
felixx:
> Karl Donaubauer ha scritto:
>>
>>> E' possibile con le immagini collegate visualizzarle nei report con vari record (1 immagine diversa per ogni record)?
>>
>> A partire da A10 ï¿œoe semplice. Basta impostare la nuova proprietï¿œoe "origine
>> controllo" di un controllo immagine al nome del campo che contiene il
>> percorso.
>
> ... ï¿œ possibile richiamare il campo immagine con il lookup?

Non capisco la domanda. Descrivi meglio cosa vuoi ottenere.

Se fai cosa abbiamo suggerito non c'ï¿œ un "campo immagine".
Invece nella tabella un campo (tipo testo) con il percorso
e nel report o nella maschera un _controllo_ immagine.



text:
Il giorno giovedì 2 ottobre 2014 17:12:22 UTC+2, Karl Donaubauer ha scritto:
> felixx:
>
> > Karl Donaubauer ha scritto:
>
> >>
>
> >>> E' possibile con le immagini collegate visualizzarle nei report con vari record (1 immagine diversa per ogni record)?
>
> >>
>
> >> A partire da A10 ï¿oeoe semplice. Basta impostare la nuova proprietï¿oeoe "origine
>
> >> controllo" di un controllo immagine al nome del campo che contiene il
>
> >> percorso.
>
> >
>
> > ... ï¿oe possibile richiamare il campo immagine con il lookup?
>
>
>
> Non capisco la domanda. Descrivi meglio cosa vuoi ottenere.
>
>
>
> Se fai cosa abbiamo suggerito non c'ï¿oe un "campo immagine".
>
> Invece nella tabella un campo (tipo testo) con il percorso
>
> e nel report o nella maschera un _controllo_ immagine.
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
http://www.donkarl.com/it

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

Scusa mi spiego meglio.
In una maschera (basata sulla tabella Ordini) devo visualizzare l'immagine del modello che si trova nella tabella Campionario, per cui ho sempre uutilizzato la funzione Dlookup. Con l'immagine incorporata era tutto ok, ma adesso l'immagine, nel cui controllo ho inserito
DLookUp("[PercorsoImmagine]";"Campionario";"[ID Campione]=Form.[ID Campione]")
non viene visualizzata
Ciao,
felixx


text:

ok, tutto risolto, c'era una banale dimenticanza sulla modalità di ridimensionamento del controllo immagine, che avevo lasciato su "ritaglia" invece che su "zoom" e mi dava lo sfondo bianco dell'immagine.
Grazie


text:

Immagino che CurrentProject.Path() sia da inserire come codice e non all'interno del campo testo, mi puoi dare qualche dettaglio in più?
Grazie,
felixx


title: Dbase di comuni e cap

author: mrfree

text:
Chi mi può fornire un dbase del genere?
Grazie


title: Dbase di comuni e cap

author: Vazim

text:
In data Mon, 26 Jan 2004 18:41:58 GMT, mrfree ha scritto:
> Chi mi può fornire un dbase del genere?
> Grazie
Il sito delle poste. Pero' te lo devi formattare.
--
   \  /_ _ : _ _
    \/(_|/_|| | |
  mail me  :  vazim_dot_net_at_virgilio_dot_it
  view me  :
http://www.vazim.net


title: Dbase di comuni e cap

author: gastone

text:
"mrfree" <
mrfree...@aliceposta.it
> ha scritto nel messaggio
news:WbdRb.197533$_P.68...@news4.tin.it...
> Chi mi può fornire un dbase del genere?
> Grazie
>
>
Qui trovi addirittura il software da scaricare:
http://www.agenziaterritorio.it/software/altri/codicinazionistati/index.htm
Ciao.
Gastone


title: Dbase di comuni e cap

text:
Grazie dell'aiuto e quello che cercavo
"gastone" <
gas...@virgilio.it
> ha scritto nel messaggio
news:UioRb.150670$VW.61...@news3.tin.it...



title: prob con response.write

author: Frodo Baggins

text:
Ciao a tutti, questo č il primo posrt che faccio e per educazione mando un
saluto a  tutti.
Allora, da principiante ho trovato problemi nel formattare una tabella da
riempire con dati provenienti da un database access.
Se scrivo cosi:
Response.Write "
"
Response.write ""
    Response.write objRS("Nome")
Response.write "	"
Response.Write "
"
ecc.
naturalmente va tutto bene, ma siccome voglio formattare le tabelle con
particolare colore di sfondo e carattere, ho provato a scrivere cosi ma mi
da errore sulle righe di formattazione:
Response.Write "

Response.Write ""
    Response.Write objRS("Nome")
Response.Write "	"
ecc.
Perchč?
Grazie in anticipo


title: prob con response.write

text:
SCUSATEMI
ho sbagliato a postare, credevo di stare su it.comp.www.asp
scusate ancora


title: prob con response.write

author: Sergio MAZZA

text:
"Frodo Baggins" <
rpazzini...@libero.it
> ha scritto nel messaggio
news:uq3%7.3581$aD.1...@twister2.libero.it...

Prova con:
'--------------------
Response.Write("
")
Response.Write("")
Response.Write objRS("Nome")
Response.Write("	")
'--------------------
Ciao.
--
Sergio MAZZA


title: Format Orario

text:
Salve,
in una routine ho scritto

variabile_Ore = rs!Ore
il risultato è 10:35:00
Come fare ad eliminare i secondi dal formato?

Ho provato:
variabile_Ore = Format(rs!Ore, "hh:hh")
ma restituisce 10:10

PREMETTO CHE variabile_Ore è dichiarata come As String


title: Format Orario

text: Ok... Trovato... "hh:nn"


title: aiuto su istruzione select where

text:
devo selezionare i record che hanno giorno e mese uguale a now
    Set rs = db.OpenRecordset("select * from componenti
where(??????????????????)
grazie a tutti.


title: aiuto su istruzione select where

author: Web Master

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:ci925q$h24$1...@lacerta.tiscalinet.it...

ciao
non so se ti torna utile:
nel caso che l'ipotetico campo data contenga un valore del tipo gg/mm/aaaa
usa la funzione date() in questo modo
"SELECT * FROM componenti WHERE Data = Date()"


title: aiuto su istruzione select where

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio news:ci925q$h24$1...@lacerta.tiscalinet.it...

Prova con:
Set rs = db.OpenRecordset("SELECT *, CDate([giorno] & '/' & [mese] & '/' & Year(Date())) AS dataTmp FROM componenti WHERE
CDate([giorno] & '/' & [mese] & '/' & Year(Date()))=Date();")
Non ho utilizzato Now() perché restituisce anche l'ora...
Ciao.
--
Sergio MAZZA


title: aiuto su istruzione select where

text:
>> devo selezionare i record che hanno giorno e mese uguale a now
>>
>>     Set rs = db.OpenRecordset("select * from componenti
>> where(??????????????????)
>>
>> grazie a tutti.
>>
>>
>
> ciao
> non so se ti torna utile:
> nel caso che l'ipotetico campo data contenga un valore del tipo gg/mm/aaaa
> usa la funzione date() in questo modo
>
> "SELECT * FROM componenti WHERE Data = Date()"
il tuo esempio non vą bene in quanto devo estrapolare quelli che compiono
gli anni quindi solo giorno e mese


title: aiuto su istruzione select where

author: Luciano (DOC)

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:ci925q$h24$1...@lacerta.tiscalinet.it...
> devo selezionare i record che hanno giorno e mese uguale a now
>     Set rs = db.OpenRecordset("select * from componenti
> where(??????????????????)
"...day(tuadata) = day(date()) AND month(tuadata) = month(date())"
Occhio che cosi' becchi pure quelli degli anni passati.
Saluti.
Luciano


title: aiuto su istruzione select where

text:
> "...day(tuadata) = day(date()) AND month(tuadata) = month(date())"
> Occhio che cosi' becchi pure quelli degli anni passati.
> Saluti.
>
> Luciano
>
ho provato cosi ma mida errore
Set rs = db.OpenRecordset("select * from componenti where(
(day(datanascita) = day(date())) AND (month(datanascita) = month(date()))")
secondo voi cosa sbaglio?


title: aiuto su istruzione select where

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cic1fo$o53$1...@lacerta.tiscalinet.it...
> ho provato cosi ma mida errore
Che errore tida?
Saluti.
Luciano


title: aiuto su istruzione select where

text:
>> ho provato cosi ma mida errore
>
> Che errore tida?
> Saluti.
>
> Luciano
>
ho risolto era un problema di apici grazie.
la soluzione se servisse a qualcuno è questa
Set rs = db.OpenRecordset("select * from tabella where(
(day(tabella.datanascita)=" & Day(Now()) & ") and
(month(tabella.datanascita)=" & Month(Now()) & "))")


title: data di creazione del database

text:
ho una procedura che esegue una sfilza di operazioni su un file temporaneo

alla fine compatta questo file temporaneo scrivendone uno diverso,
precedentemente cancellato

qui controllo se esiste (Dir_Exist) e cancello, l'operazione viene sempre
eseguita senza errori

If Dir_Exist(Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb") <> "" Then
Kill Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb"

qui compatto il temp (DATI_REP.MDB) scrivendo quello nuovo

DBEngine.CompactDatabase Me.APP_PATH & "DATI_REP.MDB", Me.APP_PATH & NN &
Ty & CO & MA & "DATI_REP.Mdb"

cosa succede?

se eseguo il codice normalmente, lasciando fare senza debug, il file di
destinazione viene correttamente creato ma la data/ora di creazione resta
inspiegabilmente quella del file precedentemente cancellato (10 luglio)

se eseguo passo passo... funziona: la data/ora di creazione č quella del
momento stesso in cui eseguo l'istruzione (19 luglio)

al momento non mi capacito di questa cosa...

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


title: data di creazione del database

text:
Il giorno Mon 19 Jul 2021 03:19:46p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAD6C9BF124A68am...@127.0.0.1
. Vediamo cosa ha
scritto:

> se eseguo passo passo... funziona: la data/ora di creazione č quella del
> momento stesso in cui eseguo l'istruzione (19 luglio)
>

addendum: mi serve la data di creazione (gestita da windows e recuperabile
con

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oF = oFSO.GetFile(Me.APP_PATH + MyName)
CreationDate = oF.DateCreated

e non quella di ultima modifica del file in quanto ogni volta che lo apro
viene aggiornata



title: data di creazione del database

text:
Il giorno Mon 19 Jul 2021 04:35:27p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAD6CA8C61A52Bam...@127.0.0.1
. Vediamo cosa ha
scritto:

> addendum: mi serve la data di creazione (gestita da windows

le prime prove erano su windows 7, ma confermo che anche server 2016 fa lo
stesso scherzo :/



title: data di creazione del database

author: BFS

text:
Il 19/07/2021 15:19, Ammammata ha scritto:
> ho una procedura che esegue una sfilza di operazioni su un file temporaneo
>
> alla fine compatta questo file temporaneo scrivendone uno diverso,
> precedentemente cancellato
>
> qui controllo se esiste (Dir_Exist) e cancello, l'operazione viene sempre
> eseguita senza errori
>
> If Dir_Exist(Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb") <> "" Then
> Kill Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb"
>
> qui compatto il temp (DATI_REP.MDB) scrivendo quello nuovo
>
> DBEngine.CompactDatabase Me.APP_PATH & "DATI_REP.MDB", Me.APP_PATH & NN &
> Ty & CO & MA & "DATI_REP.Mdb"
>
> cosa succede?
>
> se eseguo il codice normalmente, lasciando fare senza debug, il file di
> destinazione viene correttamente creato ma la data/ora di creazione resta
> inspiegabilmente quella del file precedentemente cancellato (10 luglio)
>
> se eseguo passo passo... funziona: la data/ora di creazione è quella del
> momento stesso in cui eseguo l'istruzione (19 luglio)
>
> al momento non mi capacito di questa cosa...
>

la butto li
mettere uno sleep di qualche secondo prima di scrivere quello nuovo?
se provi a salvarlo in cartella diversa da dove era precedentemente
salvato quello cancellato cambia qualcosa?

BFS


title: data di creazione del database

text:
Il giorno Tue 20 Jul 2021 02:27:17p, *BFS* ha inviato su
it.comp.appl.access il messaggio news:sd6ff5$16mk$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> la butto li
> mettere uno sleep di qualche secondo prima di scrivere quello nuovo?
>

nope

nice try ;)

questa č la conclusione della fase di calcolo:

https://i.imgur.com/DtbBgZr.png

e questo č l'elenco dei database disponibili:

https://i.imgur.com/wtOkku4.png

nonostante il ritardo di due secondi il file CANCELLATO e rigenerato ha la
stessa data di creazione

che sia una magagna di NTFS?

piů tardi provo a generarlo con un nome diverso e a rinominarlo subito dopo
(prima devo cercare il codice VBA per l'operazione di rename)



title: data di creazione del database

text:
Il giorno Thu 22 Jul 2021 09:03:36a, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAD6F5C2C6E174am...@127.0.0.1
. Vediamo cosa ha
scritto:

> più tardi provo a generarlo con un nome diverso e a rinominarlo subito
> dopo (prima devo cercare il codice VBA per l'operazione di rename)
>
>

test con un nome diverso, poi rinominato:
niente da fare :(

ora test in una cartella diversa, poi spostamento



title: data di creazione del database

text:
Il giorno Thu 22 Jul 2021 09:37:51a, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAD6F61FAFC41Dam...@127.0.0.1
. Vediamo cosa ha
scritto:

>
> ora test in una cartella diversa, poi spostamento
>
>

ho modificato il codice per creare il file compattato in temp e poi
spostarlo nella sua posizione corretta

        Dim DBfilename As String

        DBfilename = NN & Ty & CO & MA & "DATI_REP.Mdb"
        If Dir_Exist(Me.APP_PATH & DBfilename) <> "" Then
            Kill Me.APP_PATH & DBfilename
        End If
        DBEngine.CompactDatabase Me.APP_PATH & "DATI_REP.MDB", Me.APP_PATH
& "temp\" & DBfilename
        Name Me.APP_PATH & "temp\" & DBfilename As Me.APP_PATH & DBfilename

        DBfilename = NN & Ty & CO & MA & Format(Me.RIFYEAR, "0000") &
Format(Me.RIFMONTH, "00") & "DATI_REP.Mdb"
        If Dir_Exist(Me.APP_PATH & DBfilename) <> "" Then
            Kill Me.APP_PATH & DBfilename
        End If
        DBEngine.CompactDatabase Me.APP_PATH & "DATI_REP.MDB", Me.APP_PATH
& "temp\" & DBfilename
        Name Me.APP_PATH & "temp\" & DBfilename As Me.APP_PATH & DBfilename

il log riporta i passaggi correttamente eseguiti

- 10:25:14 Calc phase completed, click on CLOSE, then on STOP to exit
- 10:25:14 Created DATI_REP(YM) CHNANALL202107DATI_REP.Mdb
- 10:25:13 Deleted CHNANALL202107DATI_REP.Mdb
- 10:25:13 Created DATI_REP CHNANALLDATI_REP.Mdb
- 10:25:12 Deleted CHNANALLDATI_REP.Mdb
Import Start : 22/07/2021 10:23:22
Import Stop  : 22/07/2021 10:25:12
Total Time   : 00:01:50
---------------------------------------

ho fatto due prove, la prima passo passo per verificare che tutto fosse a
posto, controllando di volta in volta che il file fosse cancellato,
costruito in temp, spostato nella cartella giusta
la seconda prova senza fermare il codice

la prima (verde) è ok, si vedono i due file evidenziati in verde con la
data di creazione giusta

la seconda (giallo) no, i due file hanno la data di creazione del file
preesistente, sebbene sia stato cancellato

https://i.imgur.com/QBITIrA.png

ho infine provato infilando un po' di DoEvents dopo le operazioni Kill e
Name...

niente da fare

https://i.imgur.com/K0IRCtt.png

boh...



title: OT Traduzione FAQ 4.25

text:
****************************
4.25 Avoid duplicates
Problem
You want to avoid that the user inserts a value into a field
that's already in the underlying table. If he tries to there
should be an easy understandable error message.
Solution
Variant 1
In the table set an index (no duplicates) on the field.
In the event code On Error of the form you write:
If DataErr = 3022 Then
  Response = acDataErrContinue
  MsgBox Me!MyControl & " already exists.", vbOKOnly, "Duplicate!"
  Me!MyControl.SetFocus
End If
Variant 2
With the above method the check takes place not before the
record should be saved i.e. normally on record change.
If you want the check immediately after insertion of the value you
can use e.g. the event After Update of the control and code like this:
If Not IsNull(Dlookup("MyField", "MyTable", "MyField = '" & Me!MyControl &
"'")) _
    And Me!MyControl <> nz(Me!MyControl.OldValue) Then
  MsgBox Me!MyControl & " already exists.", vbOKOnly, "Duplicate!"
  Cancel = True
End If
***************************
--
cu
Karl
*********
Access-FAQ
http://www.donkarl.com/it


title: OT Traduzione FAQ 4.25

author: Paolo opg

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> wrote in
news:34a0m6F...@individual.net
:
> ****************************
> 4.25 Avoid duplicates
>
Evitare duplicati
> Problem
>
> You want to avoid that the user inserts a value into a field
> that's already in the underlying table. If he tries to there
> should be an easy understandable error message.
>
Vuoi evitare che l'utente inserisca in un campo un valore gia' presente
nella tabella sottostante. Se l'utente ci prova, ci dovrebbe essere un
messaggio di facile comprensione.
> Solution
>
> Variant 1
>
> In the table set an index (no duplicates) on the field.
> In the event code On Error of the form you write:
>
variante 1
nella tabella, imposta un indice (duplicati non ammessi) sul campo.
nel codice dell'evento On Error della maschera, scrivi:
> If DataErr = 3022 Then
>   Response = acDataErrContinue
>   MsgBox Me!MyControl & " esiste già.", vbOKOnly, "Duplicato!"
>   Me!MyControl.SetFocus
> End If
>
> Variant 2
>
> With the above method the check takes place not before the
> record should be saved i.e. normally on record change.
> If you want the check immediately after insertion of the value you
> can use e.g. the event After Update of the control and code like this:
>
variante 2
col metodo precedente, il controllo avviene non prima del tentativo di
salvataggio, normalmente al cambio di record.
se vuoi che il controllo avvenga immediatamente dopo l'inserimento del
valore, è possibile utilizzare l'evento After Update del controllo e del
codice come questo:
> If Not IsNull(Dlookup("MyField", "MyTable", "MyField = '" &
> Me!MyControl & "'")) _
>     And Me!MyControl <> nz(Me!MyControl.OldValue) Then
>   MsgBox Me!MyControl & " esiste già.", vbOKOnly, "Duplicato!"
>   Cancel = True
> End If
> ***************************
>
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
| (fake address in reply-to field!)
+-------


title: OT Traduzione FAQ 4.25

author: sv

text:
Karl Donaubauer ha scritto:
> ****************************
> 4.25 Avoid duplicates
> Problem

> Solution
> Variant 1


> Variant 2


4.25 Evitare duplicati
Problema
Vuoi evitare che l’utente inserisca in un campo un valore
che è già nella tabella sottostante. Se tenta di fare ciò dovrebbe
apparire un messaggio d’errore di facile comprensione.
Soluzione
Variante 1
Nella tabella imposta un indice “Sì (duplicati non ammessi)” nel campo.
Nel codice dell’evento “Su errore” della maschera scrivi:
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox Me!MioControllo & " Già esiste.", vbOKOnly, "Duplicato!"
Me!MioControllo.SetFocus
End If
Variante 2
Con il metodo precedente il controllo avviene non prima che
il record sia salvato, p.e. normalmente al cambio di record.
Se vuoi il controllo immediatamente dopo l’inserimento del valore,
puoi usare p.e. l’evento “Dopo aggiornamento” del controllo, e codice come
questo:
If Not IsNull(Dlookup("MioCampo", "MiaTabella", "MioCampo = '" &
Me!MioControllo &
"'")) _
And Me!MioControllo <> nz(Me!MioControllo.OldValue) Then
MsgBox Me!MioControllo & " Già esiste.", vbOKOnly, "Duplicato!"
Cancel = True
End If
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Leggere su file .txt

author: luca

text:
Avrei la necessità di leggere un file .txt
in dettaglio vorrei scorrere e leggere ogni carattere della prima riga e poi
passare alla seconda leggendo
anche li ogni carattere.
000000001234ABCD00000000
000000005678ERTY00000000
come posso fare ?????
ciao e grazie infinite
luca
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Leggere su file .txt

author: Carlo Costarella

text:
"luca" <
lu...@libero.it
> ha scritto nel messaggio
news:88Z42Z173Z18Y1...@usenet.libero.it...
> Avrei la necessità di leggere un file .txt
> in dettaglio vorrei scorrere e leggere ogni carattere della prima riga e
> poi
> passare alla seconda leggendo
> anche li ogni carattere.
>
> 000000001234ABCD00000000
> 000000005678ERTY00000000
>
>
> come posso fare ?????
> ciao e grazie infinite
>
>
> luca
>
Se non hai dimestichezza con il VBA puoi allegare il file di testo come
tabella e quindi leggerlo.
Ciao, Carlo


title: Filtrare Form in VB

author: Borg Massimiliano

text:
Ciao a Tutti anche se questo è un NG su Microsoft access Volevo chiedervi
comunque se qualcuno sa coma faccio ad aprire una form in visual basic
filtrando il record che voglio vedere avendolo prima selezionato su unaltra
form
applicandi nella prorpieta recordsource del controllo data
l'istruzione sql che va a recuperare i dati da una tabella e poi applicando
la condizione where di tipo
where nome campo=nomemaschera!nomecampo
non riesco ad ottenere nulla
tutto questo in visual basic


title: Filtrare Form in VB

author: Alessandro Baraldi

text:
"Borg Massimiliano" <
borgmass...@libero.it
> wrote in message
news:Koln7.30281$ul3.1...@news.infostrada.it...

Presumi tu stia utilizzando ADO, visto che utilizzi DATA....?
In ogni caso devi caricare un Recordset con un'istruzione SQL
e attribuire a DATA il Recordset.
   Dim strSQL as Sting
   Dim Rs as ADODB.Recordset
   strSQL="Select * from TuaTbl Where " & Condizioni & "ORDER BY " & Criteri
   Set rs = New adodb.Recordset
   rs.CursorType = adOpenStatic
   rs.CursorLocation = adUseClient
   rs.LockType = Ltyp
   rs.Source = TuastrSQL
   rs.ActiveConnection = Cn
   rs.Open
   Set Adodc1.Recordset = Rs
In questo modo carichi in RS il Recordset filtrato in base alle condizioni
e ordinato in base ai criteri, poi attribuisci la Proprietà Recordset
di ADODC = al Recordset, tutto all'interno della Form si aggiorna, DATAGRID
ecc...
Spero tu non abbia difficoltà con la Connection, questo sistema è
indipendente
dalla posizione dell'origine dati, nel metodo dell'autocomposizione, quando
cambi la destinazione dell'origine dati non va più nulla.
@Alex.
--
Posted from  [62.98.30.225]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Overlapping Windows vs Tabbed Documents

author: Bruno Campanini

text:
Office 2013/64bit

C'è la maniera di veder creato un nuovo database nella
modalità Overlapping Windows anziché in quella Tabbed Documents?
Senza dover passare per File-Options..., chiudere e riaprire
il database appena creato!

Bruno


title: modificare la finestra "stampa" di access

author: Silvano Gemme

text:
Ho la necessità di eseguire una routine in occasione della stampa di un
report visualizzato in anteprima. Allo scopo, ho personalizzato da programma
la barra degli strumenti, in modo che premendo il tasto "stampa", prima di
inviare il report alla stampante, venga eseguita la routine in questione.
Sennonché, se l'utente decide di stampare utilizzando File-Stampa... dalla
barra del menù, compare la finestra Stampa, con le varie impostazioni della
stampante e, premendo OK, la stampa viene eseguita senza il richiamo alla
routine (e non posso eliminare questa opportunità, perché può essere
necessario, per esempio, cambiare stampante).
Per cui, la mia domanda è: è possibile manipolare questa finestra Stampa (ha
un nome in VBA?), propria di access, associando al tasto OK una propria
routine, oppure devo per forza creare una maschera che la sostituisca?
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.401 / Virus Database: 226 - Release Date: 09/10/02


author: Bauhaus Killer

text:
"Silvano Gemme" <
silvan...@libero.it
> ha scritto nel messaggio
news:b5Dt9.68696$RO.17...@twister1.libero.it...
> Ho la necessità di eseguire una routine in occasione della stampa di un
> report visualizzato in anteprima. Allo scopo, ho personalizzato da
programma
> la barra degli strumenti, in modo che premendo il tasto "stampa", prima di
> inviare il report alla stampante, venga eseguita la routine in questione.
> Sennonché, se l'utente decide di stampare utilizzando File-Stampa... dalla
> barra del menù, compare la finestra Stampa, con le varie impostazioni
della
credo che sia più semplice rifare il menu File con un richiamo alla tua
macro/routine al post del tradizionale File->Stampa, non trovi?
andrea


title: Problema sulle routine evento

author: barbi

text:
A seguito di operazioni forse un po' sconsiderate, dove copio una maschera e
incollo nei vari moduli di classe pezzi di codice prelevati da altre
maschere, mi trovo degli strani errori che mi dicono: "L'espressione "nome
evento" immessa come impostazione della proprietà di evento ha provocato il
seguente errore: La dichiarazione della routine di eventi non corrisponde
alla descrizione dell'evento collo stesso nome"
ma io ho controllato attentamente i nomi delle routine evento e
l'impostazione "nome evento" = [routine evento], cosa diavolo vuole?
talvolta sono riuscito a risolvere ricopiando di nuovo la maschera e
modificando a mano il codice...
barbi


title: Problema sulle routine evento

author: JBad

text:
In article <wIgn4.78428$
C3.8...@news.infostrada.it
>,
barbi...@libero.it
 says...

Prova a controllare le variabili dichiarate nella testata della routine
evento.
x es. la routine "su tatso giu" e' dichiarata come segue:
Private Sub Campo0_KeyDown(KeyCode As Integer, Shift As Integer)
                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Ciao


title: Problema sulle routine evento

text:
JBad <**jbad**@
ats.it
> wrote in message
MPG.1308c7223...@news.tin.it...

ho già controllato e tutto e' a posto, rinuncio a capire... l'unica e' non
copiare mucchietti di routines in una volta sola, adesso faccio così: mi
costruisco il modulo di classe pezzo per pezzo facendo generare la riga
"Sub" automaticamente, colla scelta [Routine Evento], e poi mettendoci
dentro il corpo della routine copiato dall'altra maschera, e cosi' sono
riuscito a ricostruire delle maschere funzionanti
barbi


title: Quale espressione per impedire visualizzazioni record con date vecchie ?

author: scacy

text:
Nel mio database, in Access, ho maschere in cui registro le prestazioni di
servizio rese durante il mio lavoro, alle quali associo (come è ovvio) la
data del servizio.
Siccome si tratta di servizi periodici che si ripetono a date stabilite,
qual'è l'espressione da utilizzare per poter visualizzare in queste maschere
solo ed esclusivamente gli ultimi record aventi la data più aggiornata ?
Ringrazio vivamente chi mi potrà dare una mano.
Un saluto, Stefano


author: Roberto da casa

text:
"scacy" <
sc...@technet.it
> ha scritto nel messaggio
news:xfII8.93119$CN3.2...@news2.tin.it...

Creati una query in cui ordini i record in base alla data in maniera
decrescete, quindi stabilisci i record da visualizzare impostando
adeguatamente la proprietà Primi valori della query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Nascondere duplicati

text:
Ciao a tutti
Vi espongo un mio problema che spero che mi aiutate a risolvere.
Devo nascondere dei duplicati in un report ma con l'impostazione nella
scheda "formato" della casella mi fa comparire il primo e mi nasconde
quelli successivi.
es:
Da così            a così
nome 1            nome 1
nome 1            nome
nome 1            nome
nome 1            nome
mentre a me serve che nn mi mostri il primo ma l'ultimo.
Es:
Da così            a così
nome 1            nome
nome 1            nome
nome 1            nome
nome 1            nome 1
è possibile??se è si come si fa??grazie


title: Nascondere duplicati

author: Roberto da Parma

text:
<
mrcub...@hotmail.it
> ha scritto nel messaggio
news:3365a33a-2e17-4da5...@e39g2000hsf.googlegroups.com...
Ciao a tutti
Vi espongo un mio problema che spero che mi aiutate a risolvere.
Devo nascondere dei duplicati in un report ma con l'impostazione nella
scheda "formato" della casella mi fa comparire il primo e mi nasconde
quelli successivi.
es:
Da cosě            a cosě
nome 1            nome 1
nome 1            nome
nome 1            nome
nome 1            nome
mentre a me serve che nn mi mostri il primo ma l'ultimo.
Es:
Da cosě            a cosě
nome 1            nome
nome 1            nome
nome 1            nome
nome 1            nome 1
č possibile??se č si come si fa??grazie
??? Non capisco...
Scusami ma con la funzione nascondi duplicati avresti dei campi vuoti in
testa....comunque....
secondo me ti basterebbe inserire nella casella di testo una formula del
tipo
=IIf(DMax(ID);[nome];"")
naturalmente dovrai ordinare per ID.
Ciao
--
Roberto da Parma


title: Nascondere duplicati

text:
On 1 Set, 14:15, "Roberto da Parma" <
arisi.robe...@tin.it
> wrote:
> <
mrcubali...@hotmail.it
> ha scritto nel messaggionews:3365a33a-2e17-4da5...@e39g2000hsf.googlegroups.com...
> Ciao a tutti
> Vi espongo un mio problema che spero che mi aiutate a risolvere.
> Devo nascondere dei duplicati in un report ma con l'impostazione nella
> scheda "formato" della casella mi fa comparire il primo e mi nasconde
> quelli successivi.
> es:
> Da così            a così
> nome 1            nome 1
> nome 1            nome
> nome 1            nome
> nome 1            nome
>
> mentre a me serve che nn mi mostri il primo ma l'ultimo.
> Es:
> Da così            a così
> nome 1            nome
> nome 1            nome
> nome 1            nome
> nome 1            nome 1
>
> è possibile??se è si come si fa??grazie
>
> ??? Non capisco...
> Scusami ma con la funzione nascondi duplicati avresti dei campi vuoti in
> testa....comunque....
> secondo me ti basterebbe inserire nella casella di testo una formula del
> tipo
>
> =IIf(DMax(ID);[nome];"")
>
> naturalmente dovrai ordinare per ID.
>
> Ciao
>
> --
>
> Roberto da Parma
grazie


title: Nascondere duplicati

text:
nn funziona ma grazie comunque...
Prov a asporre meglio il mio problema:
io ho questo
Nome    prezzo    totale (totale è la somma dei vari prezzi associati
al nome)
aaaaa    10,00     25,00
aaaaa     5,00      25,00
aaaaa    10,00     25,00
bbbbb    10,00     20,00
bbbbb    10,00     20,00
ccccc    25,00     35,00
ccccc    10,00     35,00
vorrei invece avere
Nome    prezzo    totale
aaaaa    10,00
aaaaa     5,00
aaaaa    10,00     25,00
bbbbb    10,00
bbbbb    10,00     20,00
ccccc    25,00
ccccc    10,00     35,00


title: Nascondere duplicati

text:
se uso la funzione nascondi duplicati ottengo:
aaaaa    10,00     25,00
aaaaa     5,00
aaaaa    10,00
bbbbb    10,00     20,00
bbbbb    10,00
ccccc    25,00     35,00
ccccc    10,00
cioè mi da il totale al primo rigo..mentre a me serve ke stia
all'ultimo..grazie


title: Nascondere duplicati

text:
<
mrcub...@hotmail.it
> ha scritto nel messaggio
news:3365a33a-2e17-4da5...@e39g2000hsf.googlegroups.com...
Ciao a tutti
Vi espongo un mio problema che spero che mi aiutate a risolvere.
Devo nascondere dei duplicati in un report ma con l'impostazione nella
scheda "formato" della casella mi fa comparire il primo e mi nasconde
quelli successivi.
es:
Da cosě            a cosě
nome 1            nome 1
nome 1            nome
nome 1            nome
nome 1            nome
mentre a me serve che nn mi mostri il primo ma l'ultimo.
Es:
Da cosě            a cosě
nome 1            nome
nome 1            nome
nome 1            nome
nome 1            nome 1
č possibile??se č si come si fa??grazie
[risposta]
credo che il problema stia nel tipo di domanda che hai posto nel senso che
gia presupponi il metodo da usare: nascondere i duplicati.
Nei report la somma si visualizza (preferenzialmente) in una sezione diversa
dal corpo.
Probabilmente ti serve avere articolo e prezzo in una sezione e mettere la
somma in un'altra sezione.
Per fare un esempio:
Nome    Prezzo    Totale
aaaa        10
aaaa        20
-------------------------------
totale aaaa            30
-------------------------------
bbbb        25
bbbb        30
-------------------------------
Totale bbbb        55
Ciao, Carlo


title: Nascondere duplicati

text:
<
mrcub...@hotmail.it
> ha scritto nel messaggio
news:55e5e4a3-a4f2-49d2...@w7g2000hsa.googlegroups.com...



Come dice Carlo allora il tuo è un'altro problema....
Io dico una cosa in più forse sbagli la query...sbagli un join che molto
probabilmente ti duplica i valori.
Parti dall'origine dei dati....



title: Nascondere duplicati

text:
la query non me li duplica..è corretto il suo funzionamento..comunque
carlo ho bisogno di nascondere i duplicati perchè fare in quella
maniera renderebbe il documento troppo incasinato...ho una lista molto
lunga..comunque grazie


title: Insert da maschere continue?

author: SimoRed

text:
Ciao a tutti,
ho la necessità di fare un insert di dati da codice VBA, in una
struttura maschera/sottomaschera tipo testata/righe (come per le
fatture).
Ho dei dati in maschera principale (che so come gestire in quanto sono
solo un set normalissimo) che devono essere scritti nella tbl A,
mentre poi ho una sottomaschera che può contenere n righe e vorrei che
questi dati venissero scritti invece nella tbl B. Ovviamente non so se
inserirò 1, 10 o 30 righe nella sottomaschera continua...
In pratica ho:
- Numero fattura, data fattura, indirizzo, ecc...
--- codice articolo, descrizione, prezzo, qta, totale
--- codice articolo, descrizione, prezzo, qta, totale
--- codice articolo, descrizione, prezzo, qta, totale
--- [...]
Come faccio a inserire da codice le righe della sottomaschera??
Grazie a chi mi vorrà aiutare!


title: Insert da maschere continue?

text:
SimoRed ha scritto:
>Ciao a tutti,
>ho la necessit=E0 di fare un insert di dati da codice VBA, in una
>struttura maschera/sottomaschera tipo testata/righe (come per le
>fatture).
>
>Ho dei dati in maschera principale (che so come gestire in quanto sono
>solo un set normalissimo) che devono essere scritti nella tbl A,
>mentre poi ho una sottomaschera che pu=F2 contenere n righe e vorrei che
>questi dati venissero scritti invece nella tbl B. Ovviamente non so se
>inserir=F2 1, 10 o 30 righe nella sottomaschera continua...
>
>In pratica ho:
>
>- Numero fattura, data fattura, indirizzo, ecc...
>
>--- codice articolo, descrizione, prezzo, qta, totale
>--- codice articolo, descrizione, prezzo, qta, totale
>--- codice articolo, descrizione, prezzo, qta, totale
>--- [...]
>
>Come faccio a inserire da codice le righe della sottomaschera??
>
>Grazie a chi mi vorr=E0 aiutare!
O imposti la proprietą Consenti Aggiunte della sottomaschera oppure ti crei una form non associata per gestire l'inserimento. Alla fine fai un INSERT ......VALUES......nella tabella da cui la sottomaschera preleva i dati e alla chiusura un requery. Io personalmente uso sempre il secondo metodo...molto + brigoso a livello di sviluppo (codice, controlli, SQL) ma, a mio parere, ti da + 'il polso' dell'inserimento
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Insert da maschere continue?

text:
>
> O imposti la proprietà Consenti Aggiunte della sottomaschera oppure ti crei una form non associata per gestire l'inserimento. Alla fine fai un INSERT ......VALUES......nella tabella da cui la sottomaschera preleva i dati e alla chiusura un requery. Io personalmente uso sempre il secondo metodo...molto + brigoso a livello di sviluppo (codice, controlli, SQL) ma, a mio parere, ti da + 'il polso' dell'inserimento
Grazie,
ma forse mi sono spiegato male... ho messo una form non associata e
appunto per questo quando poi faccio INSERT lui mi va ad inserire solo
la riga "attiva", "selezionata", e non tutte le 1, 3, 10... righe.
Mi servirebbe forse un qualcosa che faccia scorrere la tabella...
Grazie
Simo


title: MAschere e sottomaschere

author: Lisanna da Firenze

text:
Ciao a tutti, è possibile posizionare il cursore in automatico, sull'ultimo
record di una sottomaschera che è una maschera continua?
es: nella maschera ho una casella che mi permette di scegliere il nominativo
e la sottomaschera mi fa vedere tutti gli straordianri fatti.
Io vorrei che quando seleziono il nominativo il cursore mi siposizioni
sull'ultimo straordinario fatto (è l'ultimo record).
Grazie


title: MAschere e sottomaschere

author: Sergio MAZZA

text:
"Lisanna da Firenze" <
lisanna....@virgilio.it
> ha scritto nel
messaggio news:4582c7f4$0$19089$4faf...@reader4.news.tin.it...

Prova con:
Me!nomeSottomaschera!straordinario.setfocus()
Docmd.gotorecord acdataform,,acNewRec
Ciao.
--
Sergio MAZZA


title: MAschere e sottomaschere

author: Pablitomf (Maurizio Facciuti)

text:
[CUT]
> Prova con:
> Me!nomeSottomaschera!straordinario.setfocus()
> Docmd.gotorecord acdataform,,acNewRec
> Ciao.
Mmmmm...
Lisanna...
Sergio Mazza....
richiesta d'aiuto...
Sergio subito pronto...
sta cosa mi puzza!
:D:D:D
Volevo vedè se era un LISANNO!!!! ;-D
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel
forno acceso e i piedi nel congelatore statisticamente ha una
temperatura media."


title: MAschere e sottomaschere

author: Karl Donaubauer

text:
Sergio MAZZA wrote:
> ...
> Prova con:
> Me!nomeSottomaschera!straordinario.setfocus()
> Docmd.gotorecord acdataform,,acNewRec
Poi, per la seconda prova, togli le parentesi.
--
:-)
Karl
*********
Access FAQ:
www.donkarl.com/it


title: MAschere e sottomaschere

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4ug1chF...@mid.individual.net...

No, era un sorriso a bocca larga...
Ciao.
--
Sergio MAZZA


title: MAschere e sottomaschere

text:
"Pablitomf (Maurizio Facciuti)" <
keiko...@libero.it
> ha scritto nel
messaggio news:eluiv9$38c$1...@tdi.cu.mi.it...
>
> Mmmmm...
> Lisanna...
> Sergio Mazza....
> richiesta d'aiuto...
> Sergio subito pronto...
>
> sta cosa mi puzza!
> :D:D:D
>
> Volevo vedè se era un LISANNO!!!! ;-D
E' più semplice di quanto pensi: 'nciò un cacchio da fa'!!!
> --
> --
> Ciao
>
> Pablitomf (Maurizio Facciuti)
> -----------------------------------------------------------------
> Access: 97, 2000, XP e 2003
> ASP
> -----------------------------------------------------------------
>
http://www.accessgroup.it/
> -----------------------------------------------------------------
> Il mio motto :
> ""Non mi fido molto delle statistiche, perchè un uomo con la testa nel
> forno acceso e i piedi nel congelatore statisticamente ha una
> temperatura media."
Ciao.
--
Sergio MAZZA


title: MAschere e sottomaschere

author: ciroteo

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:elukd5$569$1...@tdi.cu.mi.it...
> "Pablitomf (Maurizio Facciuti)" <
keiko...@libero.it
> ha scritto nel
> messaggio news:eluiv9$38c$1...@tdi.cu.mi.it...
> >
> > Mmmmm...
> > Lisanna...
> > Sergio Mazza....
> > richiesta d'aiuto...
> > Sergio subito pronto...
> >
> > sta cosa mi puzza!
> > :D:D:D
> >
> > Volevo vedč se era un LISANNO!!!! ;-D
>
> E' piů semplice di quanto pensi: 'nciň un cacchio da fa'!!!
>
> > --
> > --
> > Ciao
> >
> > Pablitomf (Maurizio Facciuti)
> > -----------------------------------------------------------------
> > Access: 97, 2000, XP e 2003
> > ASP
> > -----------------------------------------------------------------
> >
http://www.accessgroup.it/
> > -----------------------------------------------------------------
> > Il mio motto :
> > ""Non mi fido molto delle statistiche, perchč un uomo con la testa nel
> > forno acceso e i piedi nel congelatore statisticamente ha una
> > temperatura media."
>
>
> Ciao.
> --
> Sergio MAZZA
>
non avessi la gamba zifula ... ti farei lavorare io!
aggratisse! cmq se puoi in sett ti interpello x un probl
;-)
M


title: MAschere e sottomaschere

author: VT @ home

text:
Il Fri, 15 Dec 2006 17:06:24 +0100, "Lisanna da Firenze"
<
lisanna....@virgilio.it
> ha scritto:

Prova con:
me.recordsetclone.movelast
me.bookmark = me.recordsetclone.bookmark


title: MAschere e sottomaschere

text:
"ciroteo" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:4582ebc1$0$19095$4faf...@reader4.news.tin.it...
>
> non avessi la gamba zifula ... ti farei lavorare io!
> aggratisse! cmq se puoi in sett ti interpello x un probl
> ;-)
> M
Comandi...
Ciao.
--
Sergio MAZZA


title: MAschere e sottomaschere

text:
"Pablitomf (Maurizio Facciuti)" <
keiko...@libero.it
> ha scritto nel
messaggio news:eluiv9$38c$1...@tdi.cu.mi.it...

>Salve a tutti, ringrazio Sergio per la sua rapida risposta e si
>tranquillizzi Maurizio non sono un Lisanno.
A parte gli scherzi tutte le soluzioni proposte non funzionano, il cursore
continua a  rimanere sulla combobox da cui ho selezionato il nominativo.
Se riuscissi ad attivare la sottomaschera forse il setfocus lo farebbe, ho
utilizzato queste istruzioni
Me![Sottomaschera Schede dipendenti].SetFocus
DoCmd.GoToRecord acDataForm, "Sottomaschera Schede dipendenti", acLast
ma l'ultima istruzione mi da un errore 2489  "l'ogetto sottomashera schede
dipendenti non è aperto.
Potete suggerire altro ?
Grazie
Lisanna


title: MAschere e sottomaschere

text:
Lisanna da Firenze wrote:
>> [CUT]
>>> Prova con:
>>> Me!nomeSottomaschera!straordinario.setfocus()
>>> Docmd.gotorecord acdataform,,acNewRec
>...
> A parte gli scherzi tutte le soluzioni proposte non funzionano, il
> cursore continua a  rimanere sulla combobox da cui ho selezionato il
> nominativo. Se riuscissi ad attivare la sottomaschera forse il
> setfocus lo farebbe, ho utilizzato queste istruzioni
>
> Me![Sottomaschera Schede dipendenti].SetFocus
>
> DoCmd.GoToRecord acDataForm, "Sottomaschera Schede dipendenti", acLast
Non è la sintassi che ti è stato consigliato.
> ma l'ultima istruzione mi da un errore 2489  "l'ogetto sottomashera
> schede dipendenti non è aperto.
> Potete suggerire altro ?
DoCmd.GoToRecord , , acLast
Vedi anche
www.donkarl.com/it
FAQ 4.2 Riferimento ad una sottomaschera/sottoreport
--
HTH



title: Inserimento dati da tabella in word

author: Antonio Sessa

text:
Salve atutto il NG,
Ho un problema che proprio non riesco a risolvere.
dovrei creare un documento word in una maschera di access e fin qui tutto
bene.
Il problema è l'inserimento dei dati che si trovano nella tabella di questo
documento word in una tabella di acces
chi mi illumina???
grazie


title: Inserimento dati da tabella in word

author: Informatica Education Center

text:
"Antonio Sessa" <
anto....@virgilio.it
> ha scritto nel messaggio
news:eMC_d.1081842$35.40...@news4.tin.it...

Ciao,
se vuoi 1 applicativo (VB( di appena 32kb che penso ti aiuti a risolvere il
tuo problema
Gaspare


title: Access2000 e SPSS10Ita

author: Juan

text:
Salve a tutti
Come da oggetto avrei una richiesta circa l'uso dei due sw.
Spiego meglio: devo creare una maschera di inserimento dati con Access
e poi elaborare i dati con SPSS.
Mi servirebbero dei suggerimenti sulla preparazione della maschera in
modo che importando il file in Spss mi salvi le etichette delle
variabili per non doverle riscriverle unaXuna (i dati sono molti!).
Ringrazio in anticipo chi mi potrà dare una mano.
--
Juan


title: Access2000 e SPSS10Ita

author: Carlo Costarella

text:
"Juan" <
gio...@yahoo.it
> ha scritto nel messaggio
news:3ff17f4b.02073...@posting.google.com...

Dai un'ochiata a partire da:
http://www.spss.com
Ciao, Carlo


title: gantt "modello Project"

author: brando

text:
Qualcuno ha notizie sulla possibilità di creare in un maschera un Gantt
simile a Project?
Grazie
- Bruno -


title: gantt "modello Project"

author: Alessandro Baraldi

text:
"brando" <
brando_alle...@tiscali.it
> wrote in message
news:2po6d3F...@uni-berlin.de

Certo con Project.
Questo strano programma si integra perfettamente
con l'Automazione di Office.
Diventa quindi relativamente semplice gestire
Project come gestiresti Excel o Word istanziando
un Oggetto dedicato.
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: gantt "modello Project"

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f01a5766e5e421ec5c...@mygate.mailgate.org...
> "brando" <
brando_alle...@tiscali.it
> wrote in message
>
news:2po6d3F...@uni-berlin.de
>
> > Qualcuno ha notizie sulla possibilità di creare in un maschera un Gantt
> > simile a Project?
> > Grazie
> > - Bruno -
>
>
> Certo con Project.
> Questo strano programma si integra perfettamente
> con l'Automazione di Office.
>
> Diventa quindi relativamente semplice gestire
> Project come gestiresti Excel o Word istanziando
> un Oggetto dedicato.
>
> Ciao.
> @Alex.
Grazie della risposta Alex.
Ma il presupposto è che su PC sia installato Project, o sbaglio.
- Bruno -


title: gantt "modello Project"

author: ALESSANDRO Baraldi

text:
>
> Grazie della risposta Alex.
> Ma il presupposto è che su PC sia installato Project, o sbaglio.
> - Bruno -
Certo che si.........come del resto con un OCX o qualsiasi
altro mezzo informatico...!!
Ma credo, non sono sicuro, che con la Versione Developer
ci sia anche questa opportunità.....!
Ciao.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------