text:
"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:CZsIc.77763$G%.19@tornado.fastwebnet.it...

dimenticavo... e che Hermann si scrive con due enne finali...
> skipper dixit...
>
>


title: Re: Componente masochista nella sessualita'

author: Amilcare Esposito

text:

Come è noto, i discorsi sublimi hanno ben scarsa influenza sulle
passioni.


author: Sfasato

text:

In materia di sessualità oggi noi, uno per uno, siamo, malati o sani,
nient'altro che degli ipocriti. Sarebbe un bene per tutti noi se, come
risultato di tale onestà generale, venisse raggiunto un certo grado di
tolleranza nelle cose sessuali.


text:
                    Il 11 Lug 2004, 08:13, Sfasato <
Sfasat...@hotmail.com
> ha scritto:
> >>C'è una componente masochista nella costituzione sessuale di molte
> >>persone, che deriva dalla trasformazione nel suo contrario della
> >>componente aggressiva, sadica. Quelli che provano piacere, non nel
> >>dolore fisico inflitto loro, ma nell'umiliazione e tortura mentale, si
> >>possono chiamare "masochisti mentali". Si comprende subito che questo
> >>tipo di persone può fare sogni contrari a desideri e sogni spiacevoli,
> >>che tuttavia sono realizzazioni di desideri perché soddisfano le loro
> >>tendenze masochiste.
> >
> >Certamente, infatti i sintomi isterici sono i derivati di ricordi che
> >operano a livello inconscio.
>
> Posso dire che è di esperienza quotidiana il fatto che il rapporto
> sessuale tra adulti sembri spaventoso ai bambini che lo osservano e
> che provochi angoscia in essi. Ho spiegato questa angoscia deducendo
> che stiamo trattando di una eccitazione sessuale che la loro
> intelligenza non è in grado di affrontare, e che inoltre essi
> indubbiamente rifiutano poiché implica i loro genitori; e quindi si
> trasforma in angoscia.
>

MA 9 x 9 FARA' 81 ???
BOH !!!!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:

Il genere umano non si è accontentato di godere della comicità quando
l'ha incontrata nel corso della propria esperienza; ha anche cercato
di provocarla intenzionalmente, e possiamo apprendere di più sulla
natura della comicità se studiamo i mezzi che servono per rendere
comiche le cose.


author: Sfalsato

text:

C'è un granello di verità che si nasconde in ogni delirio.


author: Amilcaretto

text:
>>>>Come è noto, i discorsi sublimi hanno ben scarsa influenza sulle
>>>>passioni.
>>>
>>>In materia di sessualità oggi noi, uno per uno, siamo, malati o sani,
>>>nient'altro che degli ipocriti. Sarebbe un bene per tutti noi se, come
>>>risultato di tale onestà generale, venisse raggiunto un certo grado di
>>>tolleranza nelle cose sessuali.
>>
>>Il genere umano non si è accontentato di godere della comicità quando
>>l'ha incontrata nel corso della propria esperienza; ha anche cercato
>>di provocarla intenzionalmente, e possiamo apprendere di più sulla
>>natura della comicità se studiamo i mezzi che servono per rendere
>>comiche le cose.
>
>C'è un granello di verità che si nasconde in ogni delirio.
Ci sono anche tanti altri granelli bianchi ...


text:

Molte persone che amano i fratelli e le sorelle e che si sentirebbero
desolate per la loro morte, nutrono contro di essi desideri cattivi
nell'inconscio da moltissimo tempo; e questi desideri possono essere
realizzati dai sogni.
--
Sfasato il Re
--


text:

da porre sullo specchietto



text:
>>>>>>Sfasato wrote:
>>>>>>
>>>>>>> C'è una componente masochista nella costituzione sessuale di molte
>>>>>>> persone, che deriva dalla trasformazione nel suo contrario della
>>>>>>> componente aggressiva, sadica. Quelli che provano piacere, non nel
>>>>>>> dolore fisico inflitto loro, ma nell'umiliazione e tortura mentale, si
>>>>>>> possono chiamare "masochisti mentali". Si comprende subito che questo
>>>>>>> tipo di persone può fare sogni contrari a desideri e sogni spiacevoli,
>>>>>>> che tuttavia sono realizzazioni di desideri perché soddisfano le loro
>>>>>>> tendenze masochiste.
>>>>>>
>>>>>>in poche parole, romanisti cambiate squadra!
>>>>
>>>>Solo nell'infanzia ci facciamo vedere seminudi da membri della
>>>>famiglia e da estranei, governanti, cameriere, ospiti, e solo allora
>>>>non ci vergogniamo della nostra nudità. Possiamo ora osservare che lo
>>>>spogliarsi ha un effetto quasi inebriante su molti bambini, anche
>>>>quando sono più grandi, invece di far loro provare vergogna. Ridono e
>>>>saltano da tutte le parti e si colpiscono, mentre la madre o chiunque
>>>>sia presente li rimprovera, dicendo: "Vergognati, questo non si fa!".
>>>>I bambini spesso manifestano il desiderio di esibirsi.
>>>
>>>Possiamo affermare che molti sogni, se attentamente interpretati, sono
>>>bisessuali, in quanto ammettono senza dubbio una sovrainterpretazione
>>>in cui si realizzano gli impulsi omosessuali del sognatore, gli
>>>impulsi, cioè, che sono contrari alle sue normali attività sessuali.
>>>Tuttavia sostenere, come fanno Stekel e Adler, che tutti i sogni
>>>devono essere interpretati bisessualmente mi sembra una
>>>generalizzazione nello stesso tempo indimostrabile e poco probabile
>>>che non mi sento di appoggiare. In particolare poi non posso ignorare
>>>il fatto evidente che ci sono numerosi sogni che soddisfano esigenze
>>>diverse da quelle erotiche, nel senso più ampio della parola: sogni di
>>>fame e di sete, sogni di comodità, ecc.
>>
>>Alla domanda se tutti i sogni possano essere interpretati, bisogna
>>rispondere negativamente. Non si deve dimenticare che
>>nell'interpretazione del sogno siamo ostacolati dalle forze psichiche
>>responsabili della sua deformazione. È quindi questione di forza
>>relativa, se, nell'interpretazione del sogno, il nostro interesse
>>intellettuale, la nostra capacità di autodisciplina, le nostre
>>conoscenze psicologiche e la nostra pratica riescono a dominare le
>>resistenze interne. E' sempre possibile arrivare fino a un certo
>>punto: in ogni caso fino a convincerci che il sogno è una struttura
>>con un significato, e in genere anche fino ad avere un'idea sul suo
>>significato.
>
>Non c'è alcun bisogno di tirare in ballo altre forze che non siano
>psichiche per spiegare le guarigioni miracolose.
Parnaso rappresenta



author: Hamilcar Hesposit

text:

la volontà di guarire o il desiderio di morire
--
Amilcare Esposito, del Regno degli Sfasati
--


text:

e da tirare dolcemente



author: Sf'asato

text:
Hamilcar Hesposit <
mil...@hotmail.com
> :

Qualsiasi cambiamento del modo abituale di vestirsi, qualsiasi
negligenza, per esempio un bottone abbottonato male, una parte del
corpo lasciata distrattamente scoperta, significa sempre qualcosa che
il proprietario degli abiti non vuol dire direttamente e di cui il più
delle volte non ha alcun sospetto.



text:
Hamilcar Hesposit <
mil...@hotmail.com
> :

Succede spesso per strada che due persone che camminano in senso
inverso nel tentativo di evitarsi e di cedersi la strada, perdono
qualche secondo a spostarsi di qualche passo a destra o a sinistra, ma
entrambi nello stesso senso fino a fermarsi l'uno di fronte all'altro.
Si crea una situazione spiacevole ed imbarazzante, in cui generalmente
si vede l'effetto di una goffaggine accidentale. Invece è possibile
provare che in molti casi questa goffaggine nasconde intenzioni
sessuali e riproduce un atteggiamento maleducato e provocatorio
dell'età giovanile.



title: Modifica di più record contemporaneamente

author: Raffi

text:
Salve ragazzi, e innanzitutto grazie per l'aiuto che spesso mi/ci
offrite....
Il mio "problema" odierno, riguarda una maschera, basata su una tabella,
all'interno della quale c'è un campo si/no di scelta, che io nella maschera
ho riportato con un interruttore on/off.
Orbene, io faccio una scelta dei singoli records cliccando sull'interruttore
in oggetto, e alla fine della "scelta", clicco su un pulsante di comando che
mi stampa un report con solo i campi scelti.
Quello che ora vorrei creare, è un altro interruttore, magari posto a piè di
maschera, selezionato o deselezionato il quale, in automatico si
selezionino/deselezonino tutti gli interruttori dei records visualizzati in
quel momento nella maschera; insomma, un po' come succede nelle webmail di
libero o virgilio, dove un interruttore posto in cima alla pagina, mi
seleziona tutte le email visualizzate in quella pagina per poi, magari,
cancellarle.
Spero di essere stato chiaro, e Vi sarei grati se mi indicaste come
procedere...
A presto, Raf


author: Alessandro Cara

text:

Private Sub ckSel_Click()
Dim rs As Variant
Set rs = <%path%>.RecordsetClone
rs.MoveFirst
Do Until rs.EOF
     rs.edit
     rs!<%myRsCk%> = <%cksel%>
     rs.Update
     rs.MoveNext
Loop
seleziona o deseleziona in funzione dello stato del ck di controllo
(cksel). <%?%> sai tu cosa devono essere
--
ac
y-1=x


author: geppo

text:

per selezionare tutto:
private sub NomeTuoInteruttore_click()
dim ctl as control
for each ctl in controls
if ctl.controltype = accheckbox then
   ctl = true
end if
next ctl
end sub
per deselezionare cambia
ctl = false
--
Ciao
Geppo


text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:XuSvj.42351$Xg7....@tornado.fastwebnet.it...
> Raffi wrote:
>> Salve ragazzi, e innanzitutto grazie per l'aiuto che spesso mi/ci
>> offrite....
>>
>> Il mio "problema" odierno, riguarda una maschera, basata su una tabella,
>> all'interno della quale c'č un campo si/no di scelta, che io nella
>> maschera ho riportato con un interruttore on/off.
>> Orbene, io faccio una scelta dei singoli records cliccando
>> sull'interruttore in oggetto, e alla fine della "scelta", clicco su un
>> pulsante di comando che mi stampa un report con solo i campi scelti.
>> Quello che ora vorrei creare, č un altro interruttore, magari posto a pič
>> di maschera, selezionato o deselezionato il quale, in automatico si
>> selezionino/deselezonino tutti gli interruttori dei records visualizzati
>> in quel momento nella maschera; insomma, un po' come succede nelle
>> webmail di libero o virgilio, dove un interruttore posto in cima alla
>> pagina, mi seleziona tutte le email visualizzate in quella pagina per
>> poi, magari, cancellarle.
>> Spero di essere stato chiaro, e Vi sarei grati se mi indicaste come
>> procedere...
>>
>> A presto, Raf
> Private Sub ckSel_Click()
> Dim rs As Variant
> Set rs = <%path%>.RecordsetClone
> rs.MoveFirst
> Do Until rs.EOF
>     rs.edit
>     rs!<%myRsCk%> = <%cksel%>
>     rs.Update
>     rs.MoveNext
> Loop
>
> seleziona o deseleziona in funzione dello stato del ck di controllo
> (cksel). <%?%> sai tu cosa devono essere
>
Beh...spero scuserai la mia abissale ignoranza...ma non so cosa debbano
essere (cksel). <%?%>;
ti sarei grato se fossi piů elementare, magari con una specie di maschera
esempio.
Per capirci:
in una maschera con i campi mettiamo, ID, descrizione, misure, e scelta (il
campo on/off di cui parlavo)
creo un pulsante di comando che abbia come routineevento su clic quella che
tu hai scritto, con quali modifiche??


text:
Raffi wrote:
> "Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
> news:XuSvj.42351$Xg7....@tornado.fastwebnet.it...
>> Raffi wrote:
>>> Salve ragazzi, e innanzitutto grazie per l'aiuto che spesso mi/ci
>>> offrite....
>>>
>>> Il mio "problema" odierno, riguarda una maschera, basata su una tabella,
>>> all'interno della quale c'è un campo si/no di scelta, che io nella
>>> maschera ho riportato con un interruttore on/off.
>>> Orbene, io faccio una scelta dei singoli records cliccando
>>> sull'interruttore in oggetto, e alla fine della "scelta", clicco su un
>>> pulsante di comando che mi stampa un report con solo i campi scelti.
>>> Quello che ora vorrei creare, è un altro interruttore, magari posto a piè
>>> di maschera, selezionato o deselezionato il quale, in automatico si
>>> selezionino/deselezonino tutti gli interruttori dei records visualizzati
>>> in quel momento nella maschera; insomma, un po' come succede nelle
>>> webmail di libero o virgilio, dove un interruttore posto in cima alla
>>> pagina, mi seleziona tutte le email visualizzate in quella pagina per
>>> poi, magari, cancellarle.
>>> Spero di essere stato chiaro, e Vi sarei grati se mi indicaste come
>>> procedere...
>>>
>>> A presto, Raf
>> Private Sub ckSel_Click()
>> Dim rs As Variant
>> Set rs = <%path%>.RecordsetClone
>> rs.MoveFirst
>> Do Until rs.EOF
>>     rs.edit
>>     rs!<%myRsCk%> = <%cksel%>
>>     rs.Update
>>     rs.MoveNext
>> Loop
>>
>> seleziona o deseleziona in funzione dello stato del ck di controllo
>> (cksel). <%?%> sai tu cosa devono essere
>>
> Beh...spero scuserai la mia abissale ignoranza...ma non so cosa debbano
> essere (cksel). <%?%>;
(cksel).
questo e' un punto di fine periodo.
<%?%> significa che quei nomi sono dipendenti dai nomi che "tu" hai
assegnato ai controlli e quindi li devi sostituire con quei "tuoi" nomi.
> ti sarei grato se fossi più elementare, magari con una specie di maschera
> esempio.
sui ng si scrive solo testo e' "complicato" far vedere un form.
>
> Per capirci:
> in una maschera con i campi mettiamo, ID, descrizione, misure, e scelta (il
> campo on/off di cui parlavo)
> creo un pulsante di comando che abbia come routineevento su clic quella che
> tu hai scritto, con quali modifiche??
nella mia routine il pulsante di comando non serve poiche' e' legata
all'evento di click di "altrointerrutorepostoapièdipagina" ma se vuoi
metterci il pulsante non e' un problema e' sufficiente mettere le
istruzione dietro l'evento di click del pulsante
i.e.
Private Sub altrointerrutorepostoapièdipagina/o pulsantedicomando_Click()
Dim rs As Variant
Set rs = me.RecordsetClone  'se non hai subform altrimenti non va bene e
gli devi dare il <%path%> per arrivare al controllo una cosa del tipo
me!miasubform.form.recordsetclone in altri termini <%path%>.Recordsetclone
rs.MoveFirst
Do Until rs.EOF
    rs.edit
    rs!scelta = altrointerrutorepostoapièdipagina
'in altri termini rs!<%field%> = <%controllocheckgenerale%>
    rs.Update
    rs.MoveNext
loop
end sub
come potrai osservare ho cambiato tutti i riferimenti che portavano
<%?%> che voleva indicare semplicemente che erano nomi "da sostituire"
>
>
--
ac
y-1=x


text:
ECCELLENTE!! Ti ringrazio dell'aiuto...è andato tutto alla perfezione!!
e..scusa per la richiesta di una spiegazione più maccheronica....



text:
Raffi wrote:
> ECCELLENTE!! Ti ringrazio dell'aiuto...è andato tutto alla perfezione!!
> e..scusa per la richiesta di una spiegazione più maccheronica....
OK. Ma quando rispondi taglia quello che non serve e scrivi, per favore,
dopo il paragrafo a cui rispondi
--
ac
y-1=x


title: Come si controla una barra progressiva?

author: LUCA OZ

text:
In una form ho inserito una "Microsoft Progress Bar Control ver 6" però non
so come utilizzarla.
Vorrei fare in modo che la barra inizi la progressione quando viene premuto
un pulsante sulla form (pulsante che server per calcolare dei costi,
operazione che dura 10-15 secondi).
In pratica non riesco, anzi non so, a dirgli che la barra deve iniziare la
progressione quando si clicca su quel pulsante.
ciao e grazie
Luca


title: Come si controla una barra progressiva?

author: Roberto da casa

text:
"LUCA OZ" <
luc...@libero.it
> ha scritto nel messaggio
news:b95c72$oc6$1...@newsreader.mailgate.org...

Sul Sito Comune (link qui sotto) ci trovi tre o quattro FAQ che indicano
come usare le barre di progressione.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Come si controla una barra progressiva?

text:
> Sul Sito Comune (link qui sotto) ci trovi tre o quattro FAQ che indicano
> come usare le barre di progressione.
Ciao
Avevo già guardato sul sito, ho cercato tramite il Cerca del sito ma ho
trovato solo come utilizzare la PROGRESS_BAR di Windows senza ricorrere
all'OCX.
Io invece ho inserito il controllo activeX Microsoft Progress Bar. Non
riesco a trovare infromazioni su come utilizzarlo.
Scusa l'ignoranza.
ciao
Luca


title: Come si controla una barra progressiva?

text:
"LUCA OZ" <
luc...@libero.it
> ha scritto nel messaggio
news:b95n3n$clk$1...@newsreader.mailgate.org...

Mi dispiace, non conosco quell'ActiveX, quindi non posso eeserti di aiuto.



title: varbinary(max)

author: marcod

text:
Ho nel database di Sql Server un campo varbinary(max) che contiene
un'immagine .bmp.
Vorrei visualizzare questa immagine come immagine di fondo in un
report, ma non posso visualizzarla
utilizzando il rowsource perchè è già utilizzata per i dati del
report.
C'è un'altro sistema?
Grazie a tutti in anticipo
Marco Dell'Oca


title: varbinary(max)

text:

Scusate ho sbagliato a scrivere.
E' il RecordSource e non il Rowsource
Marco Dell'Oca


title: Query creazione tabella

text:
Ciao ragazzi altro piccolo problemino:
Vorrei fare una Query in access2000 che mi copi il risultato della query in
una tabella....insomma una query di creazione tabella direste voi!!! E in
fondo č esatto solo che vorrey sapere il codice SQL per far creare la
tabella e per nominarla come voglio io....
Chiedo troppo .... Spero di no :)
Suggerimenti???
grazie e alla prox....


title: Query creazione tabella

text:
"Pito81x" <
pit...@virgilio.it
> ha scritto nel messaggio
news:2ilepsF...@uni-berlin.de...
> Ciao ragazzi altro piccolo problemino:
>
> Vorrei fare una Query in access2000 che mi copi il risultato della query
in
> una tabella....insomma una query di creazione tabella direste voi!!! E in
> fondo è esatto solo che vorrey sapere il codice SQL per far creare la
> tabella e per nominarla come voglio io....
>
> Chiedo troppo .... Spero di no :)
> Suggerimenti???
>
> grazie e alla prox....
P.S. Dimenticavo....vorrei anche togliere i messaggi di conferma per la
creazione della tabella!!! :))


title: Query creazione tabella

author: Antonio Biso

text:
"Pito81x" <
pit...@virgilio.it
> ha scritto nel messaggio
news:2ilepsF...@uni-berlin.de...
> Ciao ragazzi altro piccolo problemino:
>
> Vorrei fare una Query in access2000 che mi copi il risultato della query
in
> una tabella....insomma una query di creazione tabella direste voi!!! E in
> fondo è esatto solo che vorrey sapere il codice SQL per far creare la
> tabella e per nominarla come voglio io....
>
> Chiedo troppo .... Spero di no :)
> Suggerimenti???
Prepara una query di creazione tabella con il QBE
Poi prendi la stringa SQL creata e copia incollala in un modulo.
Prepara la stringa da codice sostituendo il nome tabella creata con uno dato
da codice.
Lancia la stringa sQL con
docmd.runsql
prima di farlo fai
docmd.setwarnings false
dopo averlo fatto fai
docmd.setwarnings true
Antonio


title: Messaggi stile balloon ecc.

author: MarkRed

text:
Salve a tutti!
Vi chiedo se č possibile fa visualizzare un messaggio diverso da msgbox (al
quale si deve obbligatoriamente premere un tasto) dove, per esempio, mi
appaia una specie di contatore, diciamo, di 5 secondi?
Mi spiego meglio.......
vorrei utilizzare un messaggio a mo' di pausa ove mi compaia un conto alla
rovescia prima di eseguire una certa operazione. Avevo pensato ad un loop
oppure ad una funzione FOR X= 1 TO 5 ed inserire un'altra routine tipo FOR
Y=1 100000. In questo modo funziona perchč, se non sbaglio, sono esattamente
5 secondi ma il probelma rimane che alla fine di questo loop e/o routine, il
messaggio deve sparire automaticamente.
Spero sia stato abbastanza chiaro e ringrazio tutti anticipatamente.
Marco.


title: Messaggi stile balloon ecc.

author: Carlo Costarella

text:
"MarkRed" <
con...@libero.it
> ha scritto nel messaggio
news:ffO29.180896$vm5.5...@news2.tin.it...

Nonostante il caldo c'č qualcuno che ti risponde.
Credo che la soluzione migliore sia quella di realizzare una maschera
oppurtunamente dimensionata e con un bel pulsante e un controllo per
visualizzare il conteggio all'indietro.
Qui ti riporto il codice di una maschera che si chiama Maschera2 e che oltre
ad avere un controllo "Tempo" che visualizza il conteggio da 5 a 0 ha un
pulsante che si chiama
Comando0. Il controllo "tempo" ha il "Valore Predefinito" impostato a 5 ma
si puň cambiare. L'intervallo Timer della maschera č impostato a 1000.
Ovviamente dovrai impostare la maschera a popup, scelta obbligata, togliere
tutte le barre, i pulsanti di spostamento, ecc. Insomma rendere la maschera
quanto piů simile ad una msgbox.
Option Compare Database
Dim Selezionato As Boolean 'variabile locale di tipo booleano
Private Sub Comando0_Click()
Selezionato = True ' interrompe il conto alla rovescia
'metti qui il tuo codice
End Sub
Private Sub Form_Open(Cancel As Integer)
Selezionato = False 'imposto la variabile locale a False per permettere il
conto alla rovescia
End Sub
Private Sub Form_Timer()
If Selezionato = True Then
Exit Sub
Else
Me.Tempo = Me.Tempo - 1
End If
If Me.Tempo = 0 Then
DoCmd.Close 'chiude la maschera se il contatore č = a zero.
End If
Fammi sapere.
Ciao, Carlo
End Sub


title: Esportare in formato Excel.

text:
Il comando
DoCmd.OutputTo acOutputTable, "tTempEmergenza", acFormatXLS, "d:
\documenti generali\emergenza.xls", -1
che funzionava con A2000, non mi funziona più con A2007. Qualcuno può
darmi un'alternativa? (a parte diverse righe di codice per scrivere i
dati riga dopo riga...).
Grazie
Riccardo Baldinottti


title: Esportare in formato Excel.

author: Bruno Campanini

text:
<
bari...@gmail.com
> wrote in message
news:aee08367-ad01-489b...@w35g2000yqm.googlegroups.com...

=======================================
DoCmd.TransferSpreadsheet TransferType:=acExport, _
                          SpreadsheetType:=acSpreadsheetTypeExcel9, _
                          TableName:="Tabella1", _
                          FileName:="\\P90\E\Document\Excel\XLS\aaaaa.xlsm",
_
                          Range:="Sheet1!A10:C10"
Con Range si indicherà il nome del foglio e il range
delle SOLE COLONNE.
L'intestazione delle colonne in Excel viene fatta
automaticamente con riferimento al nome dei campi di Tabella1.
Bruno


title: Esportare in formato Excel.

text:
On 25 Mar, 15:57, "Bruno Campanini" <
B...@gmail.com
> wrote:
> <
barimo...@gmail.com
> wrote in message

Primo: ho detto una cavolata. Non mi funzionava perché c'era
tutt'altro sbaglio.
Secondo: grazie, userò anche i tuoi suggerimenti.
Spiegami un po' la storia delle sole colonne: nel tuo esempio,
Range:="Sheet1!A10:C10" vuol dire che esporti le colonne da A a C? In
tal caso, il valore 10 potrebbe essere qualunque altro?
Riccardo Baldinotti


title: Esportare in formato Excel.

text:
<
bari...@gmail.com
> wrote in message
news:ac0ca7da-bbf1-440e...@c11g2000yqj.googlegroups.com...
Primo: ho detto una cavolata. Non mi funzionava perché c'era
tutt'altro sbaglio.
Secondo: grazie, userò anche i tuoi suggerimenti.
Spiegami un po' la storia delle sole colonne: nel tuo esempio,
Range:="Sheet1!A10:C10" vuol dire che esporti le colonne da A a C? In
tal caso, il valore 10 potrebbe essere qualunque altro?
Riccardo Baldinotti
===================================
Esporti i record di Tabella1 che verranno collocati
quanto ai nomi dei campi in A10:C10;
quanto ai dati in A11:C11   1° record
                         A12:C12   2° record
                         .............     ..............
Bruno


title: Ancora problemi con la creazione guidata su A2

author: Sergio Della Giora

text:
Innanzitutto grazie per avermi risposto.
Volevo precisare che comunque avevo provato anch'io a smanettare sul tasto
"con la bacchetta", ma non ero riuscito lo stesso a riattivare la creazione
guidata.
Sarà un caso, ma proprio ieri, ho ripristinato/compresso il mio database e
puff.... come per magia tutto funziona come prima. Bah! Secondo me c'è
bisogno di quale piccolo Service pack...
Saluti
Sergio Della Giora


title: Piccola azienda cerca programmatore

author: AP

text:
Per terminare un applicativo gia' al 99% di gestione produzione e
attaccarci ordini/bolle/fatture.
Tracciati record gia' fatti.
grazie.


title: Piccola azienda cerca programmatore

author: Roberto da Parma

text:
"AP" <
duc...@iaciners.org
> ha scritto nel messaggio
news:g5lhuljvs1l2$.dlg@news.individual.net...

Indica almeno la zona.
Ciao
--
Roberto da Parma


title: Piccola azienda cerca programmatore

text:
Il Sun, 21 Sep 2008 12:46:06 +0200, Roberto da Parma ha scritto:
>> grazie.
>
> Indica almeno la zona.
scusa, hai ragione, Sud Milano. (ma avevo gia' postato un annuncio simile
tempo fa).
Ringrazio tutti quelli che mi hanno scritto, sono in un picco di lavoro e
non ho tempo nemmeno per dormire. Rispondo a breve dando vantaggio alla
distanza. Si puo' fare quasi tutto on line, ma certe cose discusse  e
risolte di persona hanno evidenti vantaggi


title: Striscia destra non sfruttabile

author: il barbi

text:
Ho notato che nella visualizzazione delle maschere viene
sempre lasciato vuota una striscia verticale larga circa 0,8
cm. sulla destra del video e quindi in struttura maschera ne
devo tener conto per evitare che mi visualizzi il righello
di spostamento orizzontale della schermata.
C'e' qualche motivo per cio'? o magari non ho tenuto conto
di qc?
il barbi


title: Striscia destra non sfruttabile

author: sv

text:
il barbi ha scritto:

Dovrebbe essere la barra di scorrimento verticale. Prova a mettere "No" e
vedi come va.
--
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: Striscia destra non sfruttabile

author: Sergio MAZZA

text:
"il barbi" <
ilb...@tin.it
> ha scritto nel messaggio
news:ap6Vb.271207$_P.92...@news4.tin.it...

E' probabile che sia lo spazio riservato alla barra di scorrimento
verticale...
Ciao.
--
Sergio MAZZA


title: Striscia destra non sfruttabile

author: gion

text:
"il barbi" <
ilb...@tin.it
> ha scritto nel messaggio
news:ap6Vb.271207$_P.92...@news4.tin.it...

č lo spazio per la barra si scorrimento verticale


title: Casella combinata non mi seleziona voce

author: Giulio Severini

text:
Ho creato una casella combinata le cui righe traggono i dati da una
tabella:
ccTitoliDiStudio
tipo origine riga: Tabella/Query
origine riga: tblElencoTitoliDiStudio
numero colonne: 2
colonna associata: 1
Visualizzo correttamente tutte le voci però quando
ad.es
 seleziono solo
una voce - poniamo 'Diploma di laurea in Fisica' - nella casella di
riepilogo viene visualizzata sempre e solo la prima voce della tabella,
ovvero 'Diploma di laurea in chimica'.
Da cosa può dipendere??
Grazie!!
--
FIRMA BAU BAU MICIO MICIO - Un tale disse a un tale 'Tu sei tale e quale a
un tale'. Il tale chiese al tale 'Tale e quale a quale tale?'. Non sapendo
a quale tale fosse tale e quale il tale, il tale se ne andò. Convinto che
quel tale a qualche tale fosse proprio tale e quale.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Casella combinata non mi seleziona voce

author: Roccia Max De Poli

text:
Non capisco, che c'entra la casella di riepilogo?
In pratica stai dicendo che il controllo non si aggiorna?  E'
associato?
Oppure stai cercando di fare qualcosa tipo codice/descrizione?
Cia'
Max


title: Casella combinata non mi seleziona voce

text:
Roccia Max De Poli ha scritto:

> Cia'
> Max
E' una casella combinata associata alla tabella tblElencoTitoliStudio.
Quando clicco sulla casella si apre la tendina, le voci vengo tutte
correttamente visualizzate ma se clicco su una voce questa non mi viene
posizionata per prima, mentre rimane sempre visualizzata la prima voce
presente nella tabella da cui questa casella trae i dati.
Per capirci:
io ho una tabella tblLettere
A
B
C
ed una casella combinata che prende i dati da questa tabella. Quando
clicci sulla casella si apre il menu che ti mostra:
A
B
C
Se tu clicci su C vuoi che C diventi il valore che verrà mostrato nella
casella, ok? Il fatto è che in questa mia casella se io clicco su C, in
realtà mi rimane visibile e selezionato sempre e solo A.
Non so se sono riuscito a spiegarmi bene però....



title: Casella combinata non mi seleziona voce

text:
Facciamo chiarezza:
una casella combinata ha sempre (o quasi) una SORGENTE DATI, e PUO'
essere associata a un campo del recordset della maschera in cui si
trova.
Tu mi hai detto qual'e' la SORGENTE DATI della casella.
Io ti chiedo se la casella e' associata, perche' se per qualche ragione
non puoi modificare il record corrente, non puoi modificare il valore
di un controllo associato.
Idem se il controllo e' locked.
cia'
Max


title: Casella combinata non mi seleziona voce

text:
> Tu mi hai detto qual'e' la SORGENTE DATI della casella.
> Io ti chiedo se la casella e' associata, perche' se per qualche ragione
> non puoi modificare il record corrente, non puoi modificare il valore
> di un controllo associato.
> Idem se il controllo e' locked.
> cia'
> Max
Allora
MASCHERA
|
|
CasellaCombinata-----trae dati da---->tblElencoTitoli
MASCHERA ha come Origine Record tblElencoTitoli
Casella Combinata ha come:
origine controllo il campo 'Titolo' della tabella tblElencoTitoli
tipo origine riga: Tabella/Query
origine riga: tblElencoTitoli
colonna associata: 1
larghezza colonne: 0
Quindi, l'elenco lo vedo bene però appunto la selezione rimane fissa sul
primo record della tabella. Boh, non ci capisco niente.
Ah, la Casella Combinata è associata al campo Titolo di tblElencoTitoli
Grazie Max!



title: Casella combinata non mi seleziona voce

author: Prometeo

text:
Giulio Severini ha scritto:
> Ho creato una casella combinata le cui righe traggono i dati da una
> tabella:
> ccTitoliDiStudio
> tipo origine riga: Tabella/Query
> origine riga: tblElencoTitoliDiStudio
> numero colonne: 2
> colonna associata: 1
> Visualizzo correttamente tutte le voci però quando
ad.es
 seleziono solo
> una voce - poniamo 'Diploma di laurea in Fisica' - nella casella di
> riepilogo viene visualizzata sempre e solo la prima voce della tabella,
> ovvero 'Diploma di laurea in chimica'.
> Da cosa può dipendere??
> Grazie!!
ciao Giulio
Larghezza colonne 0 non può funzionare, scrivi per esempio 5;10 e tieni
conto che una volta selezionata la voce in elenco, ti apparirà solo la
prima colonna e nel caso la colaonna associata fosse la prima con codice
numerico puoi scrivere Larghezza colonne 0;10 così visualizzerai la
seconda.
Non ho capito però cosa ti serva selezionare una voce che peraltro
dovrebbe essere univoca ([Titolo]dovrebbe essere unico in elenco titoli)
dalla stessa tabella che dà origine alla maschera.
Ciao
Prometeo
--



title: Maschera per inserimento dati riviste

author: Eugenio

text:
Ho l'esigenza di inserire i nomi e le annate di alcune riviste e avrei
bisogno di creare una maschera di access per l'inserimento dei dati.
Visto che della maggior parte delle riviste possiedo molte annatte
consecutive, dovrei inserire gli items in questo modo, ad esempio:
1) Rivista1  Anno 2000 Gennaio
2) Rivista1  Anno 2000 Febbraio
.
.
.
24) Rivista1 Anno 2001 Dicembre
ecc...
Ma, per inserire questi dati, vorrei creare un maschera di inserimento in
cui posso specificare, ad esempio, i valori "da... a..." di un dato campo,
esempio:
Rivista1 DA 2000 A 2001
e in questo modo il programma dovrebbe crearmi i 24 items corrispondenti a
tutti i mesi del 2000 e del 2001, come nell'emepio precedente.
Si puo' fare? Se si mi date dei suggerimenti su come possa essere fatto?
Grazie a tutti,
Eugenio


title: Maschera per inserimento dati riviste

author: Roberto da casa

text:
"Eugenio" <
epime...@hotmail.com
> ha scritto nel messaggio
news:NQUac.1881$hc5....@news3.tin.it...

Se la tabella che deve contenere i dati si chiama Tabella1 ed ha la seguente
struttura:
ID                    Contatore e chiave Primaria
NomeRivista    Testo
AnnoRivista      Numerico
MeseRivista      Testo
Se le caselle di testo della maschera in cui digiti il nome della rivista,
il primo anno e l'ultimo anno si chiamano rispettivamente Rivista, DaAnno e
AAnno.
Per ottenere la registrazione dei record in Tabella1 esegui il seguente
codice VBA:
Dim ContaAnni As Long
Dim ContaMesi As Long
If Not IsNumeric(DaAnno) Or _
    Not IsNumeric(AAnno) Or _
    DaAnno > AAnno Then
        MsgBox "Digita degli anni corretti!", _
        vbCritical, "Errore sugli anni"
        Exit Sub
End If
For ContaAnni = DaAnno To AAnno
    For ContaMesi = 1 To 12
        DoCmd.RunSQL "INSERT INTO Tabella1 " _
        & "(NomeRivista, AnnoRivista, MeseRivista) " _
        & "VALUES ('" & Me!Rivista & "', " & _
        ContaAnni & ", '" & Format(DateSerial(ContaAnni, _
        ContaMesi, 1), "mmmm") & "');"
    Next ContaMesi
Next ContaAnni
>
> Grazie a tutti,
> Eugenio
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Maschera per inserimento dati riviste

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:cVVac.102243$Kc3.3...@twister2.libero.it...
> Per ottenere la registrazione dei record in Tabella1 esegui il seguente
> codice VBA:
Ti ringrazio di cuore, funziona tutto perfettamente.
Soltanto una cosa:
per far attivare il codice VBA ho usato un "pulsante di comando" (ovviamente
nella maschera) che si attiva con il click del mouse. Pero', quando lo
premo, mi compare il messaggio: "Numero di righe che verranno accodate: 1",
io naturalmente premo "ok", ma il messaggio si ripete tante volte queante
sono il numero di righe. Si potrebbe evitare questo messaggio? Al limite
andrebbe anche bene un messaggio soltanto con, ad esempio, "numero di righe
accodate: 24" se ho messo come intervallo 2000-2001, ma 24 messaggi come
quello di prima sono troppi :)
Grazie ancora,
Eugenio


title: Maschera per inserimento dati riviste

text:
"Eugenio" <
epime...@hotmail.com
> ha scritto nel messaggio
news:LZ0bc.6606$rM4.1...@news4.tin.it...

Modifica la routin così:
Dim ContaAnni As Long
Dim ContaMesi As Long
If Not IsNumeric(DaAnno) Or _
    Not IsNumeric(AAnno) Or _
    DaAnno > AAnno Then
        MsgBox "Digita degli anni corretti!", _
        vbCritical, "Errore sugli anni"
        Exit Sub
End If
For ContaAnni = DaAnno To AAnno
    For ContaMesi = 1 To 12
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Tabella1 " _
        & "(NomeRivista, AnnoRivista, MeseRivista) " _
        & "VALUES ('" & Me!Rivista & "', " & _
        ContaAnni & ", '" & Format(DateSerial(ContaAnni, _
        ContaMesi, 1), "mmmm") & "');"
        DoCmd.SetWarnings True
    Next ContaMesi
Next ContaAnni
>
> Grazie ancora,



title: L'oggetto non supporta la propietà o il metodo

author: stefano

text:
Salve
Ho La maschera Esperto in questa maschera ho inserito una sottomaschera.
la sottomaschera ha come recorsource il valore di rowsource di un elenco
della maschera principale (casella di riepilogo)
Forms!Esperto.percespmc.recordsource = Me!Elenco6.RowSource
mi da il seguente errore:
"L'oggetto non supporta la propietą o il metodo"
Nauralmente se la maschera "percespmc" non la uso come sottomaschera e
faccio
Forms!percespmc.recordsource = Me!Elenco6.RowSource
tutto funziona correttamente.
Come si puņ fare in modo che la sottomaschera venga raggiornata (cambia
propio il recordsource ) in base alle schelte della maschera principale?
Stefano
Grazie a tutti per la pazienza.


text:
"stefano" <
stl...@tin.it
> ha scritto nel messaggio
news:UuT%9.130875$0v.37...@news1.tin.it...
> Salve
>
> Ho La maschera Esperto in questa maschera ho inserito una sottomaschera.
> la sottomaschera ha come recorsource il valore di rowsource di un elenco
> della maschera principale (casella di riepilogo)
>
>
> Forms!Esperto.percespmc.recordsource = Me!Elenco6.RowSource
> mi da il seguente errore:
> "L'oggetto non supporta la propietà o il metodo"
> Nauralmente se la maschera "percespmc" non la uso come sottomaschera e
> faccio
>
> Forms!percespmc.recordsource = Me!Elenco6.RowSource
> tutto funziona correttamente.
> Come si può fare in modo che la sottomaschera venga raggiornata (cambia
> propio il recordsource ) in base alle schelte della maschera principale?
>
> Stefano
> Grazie a tutti per la pazienza.
Ma come si chiama il controllo sottomaschera inserito nella maschera
Esperto?
Attento ho chiesto come si chiama il controllo sottomaschera e non la
sottomaschera.
Se il controllo della maschera principale che contiene la sottomaschera si
chiama Pippo, prova con:
Forms!Esperto!Pippo.Form.recordsource = Me!Elenco6.RowSource
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:2UT%9.82815$ZE.22...@twister2.libero.it...

Ho provato a cambiare il nome in pippo così per sicurezza non faccio
confusione
quando nella function assegno
Forms!Esperto!pippo.Form.RecordSource = Me!Elenco6.RowSource
error 2467 the expression you entered refers to an object that is closed or
doesn't exist
la propietà name della sottomaschera (il controllo è pippo)
Stefano


author: Antonio Biso

text:
"stefano" <
stl...@tin.it
> ha scritto nel messaggio
news:UuT%9.130875$0v.37...@news1.tin.it...
> Salve
>
> Ho La maschera Esperto in questa maschera ho inserito una sottomaschera.
> la sottomaschera ha come recorsource il valore di rowsource di un elenco
> della maschera principale (casella di riepilogo)
>
>
> Forms!Esperto.percespmc.recordsource = Me!Elenco6.RowSource
> mi da il seguente errore:
> "L'oggetto non supporta la propietà o il metodo"
> Nauralmente se la maschera "percespmc" non la uso come sottomaschera e
> faccio
>
> Forms!percespmc.recordsource = Me!Elenco6.RowSource
> tutto funziona correttamente.
> Come si può fare in modo che la sottomaschera venga raggiornata (cambia
> propio il recordsource ) in base alle schelte della maschera principale?
Ah la sintassi....
Forms("Esperto").percespmc.form.recordsource = Me!Elenco6.RowSource
Ah... ovviamente i nomi dei campi devono essere gli styessi
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:gs30a.83227$YG2.2...@twister1.libero.it...

Adesso funziona
Grazie


text:
"stefano" <
stl...@tin.it
> ha scritto nel messaggio
news:_8V%9.181200$AA2.7...@news2.tin.it...
[CUT]
> Ho provato a cambiare il nome in pippo così per sicurezza non faccio
> confusione
> quando nella function assegno
>
> Forms!Esperto!pippo.Form.RecordSource = Me!Elenco6.RowSource
>
>
>
> error 2467 the expression you entered refers to an object that is closed
or
> doesn't exist
>
> la propietà name della sottomaschera (il controllo è pippo)
>
> Stefano
Qualcosa mi dice chePippo non sia il nome del tuo controllo sottomaschera.



title: Sincronizzazione database via Internet

author: Alfi

text:
Salve,
ho la necessità di sincronizzare due database: il master che si trova
sul mio computer e la replica che si trova sul server web del mio
dominio. Con Access dovrebbe essere possibile ma ad un certo punto
della procedura ho qualche problema.
Scelgo sincronizza direttamente con replica dal menu Strumenti/replica
di Access e dove mi chiede il percorso della replica, io seleziono un
percorso ftp impostato precedentemente da risorse di rete.
Riesco ad entrare nello spazio ftp e a selezionare il database
replicato presente sul server.
Nel campo sfoglia scrive:
ftp://www.nomedominio.it/nomedominio.it/database/Replica
 di db1.mdb
Confermo e si apre una finestra "stato della sincronizzazione in
Internet" ma si blocca subito con una finestra di avviso che dice
indirizzo HTTP non valido. A questo punto non posso andare avanti.
Cosa sto sbagliando? Ma alla fine è veramente possibile sincronizzare
un database che sta su un server
Grazie


title: Doppio clik aggiorna sottomaschera

text:
Grazie per l'aiuto che mi avete dato nell'altro post. Però è tutto il
pomeriggio che cerco la soluzione a questo problema:
Ho una maschera con due sottomaschere A e B
La sottomaschera A la uso per inserire i dati nella tabella GRUPPI
La sottomaschera B mi visualizza solo i campi SIGLA e NOME della
tabella GRUPPI
Vorrei che nella sottomaschera B con doppio clik sul campo SIGLA
automaticamente mi compaiano tutti i dati corrispondenti nella
sottomaschera A.
Grazie a tutti per l'aiuto


title: espressione troppo complessa per essere valutata e dintorni

author: Leoniglio

text:
Ciao a tutto il NG,
ho un problema che mi basisce.
come mai il mio database costruito con gli strumenti di access XP, quando lo
faccio girare su win98 mi da il seguente errore fra la macro autoexec e
l'evento "su apertura" della maschera principale:
"...espressione troppo complessa per essere valutata..."?
poi il programma si carica e funziona ma bypassa alcune istruzioni a suo
piacimento (tra le altre la verifica sullo stato della licenza)
... come mai questa mancanza di disciplina nei confronti del suo creatore?
Ho appena installato l'mdac (2.7) ma il problema di fondo persiste...
qualcuno ne sa qualcosa?
Grazie anticipatamente a chiunque mi possa dare una mano.
Ciao!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Problema di aggiornamento dati via VBA su server sql che su progetto adp funzionava!

author: Sabrina Levanti

text:
Salve,
Ho un database accdb (Access2019) collegato via ODBC a sql server
ho il seguente codice su un pulsante per accodare dei dati su una tabella
che sul db in access 2003 con progetto adb funzionava ma che ora continua a darmi errore ("Tipo non corrispondente nell'espressione") e non capisco cosa sto sbagliando:

Private Sub Comando106_Click()
Dim strSQL As String
Dim NRec As Long
Dim strFiltro, strFiltro1 As String
strFiltro = Me!ID_Fornitura
strFiltro1 = Me!IDFornitore
'MsgBox strFiltro1
'MsgBox strFiltro

strSQL = "INSERT INTO [dbo_Dettagli ordini a fornitori] ( Peso_Ritiro, ID_Fornitura, Posizione, Descrizione, Quantità, Qta, Comm, Codice, COD_rada, UN, Prezzo, Prezzo1, [Tipo di prezzo], SCONTO, Sconto1, FORNITORE_PREFERENZIALE, [Prezzo di riferimento], Lavorazione )" & _
"SELECT dbo_Codici_PDM.PESO*dbo_DistintaMateriali_UT.Quantità AS Peso_Ritiro, [dbo_Ordine a fornitore].ID_Fornitura, dbo_DistintaMateriali_UT.Posizione, dbo_DistintaMateriali_UT.Descrizione+' - '+dbo_DistintaMateriali_UT.Dimensioni+' - '+dbo_DistintaMateriali_UT.Materiale AS Des, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.COMM, dbo_Codici_PDM.CODICE_COSTRUTTORE, dbo_DistintaMateriali_UT.ParticolareDWG, dbo_DistintaMateriali_UT.UN, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.[Tipo di prezzo], dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.FORNITORE_PREFERENZIALE, dbo_Codici_PDM.PREZZO_LISTINO, dbo_DistintaMateriali_UT.Finitura " & _
"FROM dbo_DistintaMateriali_UT, [dbo_Ordine a fornitore], dbo_Fornitori, dbo_Codici_PDM " & _
"WHERE dbo_Fornitori.IDFornitore = " & strFiltro1 & " AND(dbo_DistintaMateriali_UT.oRDINATA = 1) AND(dbo_DistintaMateriali_UT.oRDINATA_PRIMA=0) AND (dbo_DistintaMateriali_UT.RdO=FALSE) AND (dbo_DistintaMateriali_UT.Fornitore=dbo_Fornitori.NomeFornitore) AND([dbo_Ordine a fornitore].ID_RichiestaOfferta=dbo_DistintaMateriali_UT.COMM) AND (dbo_DistintaMateriali_UT.ParticolareDWG = dbo_Codici_PDM.DED_COD) AND [dbo_Ordine a fornitore].ID_Fornitura = " & strFiltro

MsgBox strSQL
CurrentProject.Connection.Execute strSQL, NRec
MsgBox "Numero record inseriti: " & NRec
Me.[Sottomaschera Dettagli ordini a fornitori].Form.Requery

End Sub

Grazie per l'aiuto


author: BFS

text:

se strFiltro1 l'hai dichiaratao string quindi devono esserci gli apici

WHERE dbo_Fornitori.IDFornitore = '" & strFiltro1 & "' AND(

idem dove usi strFiltro

BFS


text:
Il 27/10/2021 19:11, Sabrina Levanti ha scritto:

e forse anche questo ti crea probelmi

dbo_DistintaMateriali_UT.RdO=FALSE

prova con

dbo_DistintaMateriali_UT.RdO=0

BFS


text:

 Intanto grazie per la risposta, sono riuscita solo ora a provare ma non sembra essersi risolto!
Il codice l'ho modificato così:
strSQL = "INSERT INTO [dbo_Dettagli ordini a fornitori] ( Peso_Ritiro, ID_Fornitura, Posizione, Descrizione, Quantità, Qta, Comm, Codice, COD_rada, UN, Prezzo, Prezzo1, [Tipo di prezzo], SCONTO, Sconto1, FORNITORE_PREFERENZIALE, [Prezzo di riferimento], Lavorazione )" & _
"SELECT dbo_Codici_PDM.PESO*dbo_DistintaMateriali_UT.Quantità AS Peso_Ritiro, [dbo_Ordine a fornitore].ID_Fornitura, dbo_DistintaMateriali_UT.Posizione, dbo_DistintaMateriali_UT.Descrizione+' - '+dbo_DistintaMateriali_UT.Dimensioni+' - '+dbo_DistintaMateriali_UT.Materiale AS Des, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.COMM, dbo_Codici_PDM.CODICE_COSTRUTTORE, dbo_DistintaMateriali_UT.ParticolareDWG, dbo_DistintaMateriali_UT.UN, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.[Tipo di prezzo], dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.FORNITORE_PREFERENZIALE, dbo_Codici_PDM.PREZZO_LISTINO, dbo_DistintaMateriali_UT.Finitura " & _
"FROM dbo_DistintaMateriali_UT, [dbo_Ordine a fornitore], dbo_Fornitori, dbo_Codici_PDM " & _
"WHERE dbo_Fornitori.IDFornitore ='" & strFiltro1 & "' AND(dbo_DistintaMateriali_UT.Ordinata = 1) AND (dbo_DistintaMateriali_UT.Ordinata_PRIMA=0) AND (dbo_DistintaMateriali_UT.RdO=0) AND (dbo_DistintaMateriali_UT.Fornitore=dbo_Fornitori.NomeFornitore) AND([dbo_Ordine a fornitore].ID_RichiestaOfferta=dbo_DistintaMateriali_UT.COMM) AND (dbo_DistintaMateriali_UT.ParticolareDWG = dbo_Codici_PDM.DED_COD) AND [dbo_Ordine a fornitore].ID_Fornitura = '" & strFiltro & "' "
L'errore è sempre lo stesso:
Errore di run-tima'-
2147467259
 (80004005)':
Tipo non corrispondente nell'espressione.


text:

fatti un debug.print di strsql
copia il testo
e prova ad incollarlo direttamente in management studio di sql server
cosi vedi cosa ti sottolinea come sintatticamente errato

BFS


text:

Grazie di nuovo per la risposta.
Ho provato e in  management studio non ho riscontrato problemi
qui riporto la query testata, non capisco sembra che quando vado a modificare i nomi tabella con i nomi dati via ODBC qualcosa si blocca (es. dbo.Codici_PDM con dbo_Codici_PDM)
ho provato anche inserendo manualmente  strFiltro1=125 e  strFiltro=3187 ma niente!

INSERT INTO dbo.[Dettagli ordini a fornitori] ( Peso_Ritiro, ID_Fornitura, Posizione, Descrizione, Quantità, Qta, Comm, Codice, COD_rada, UN, Prezzo, Prezzo1, [Tipo di prezzo], SCONTO, Sconto1, FORNITORE_PREFERENZIALE, [Prezzo di riferimento], Lavorazione )
SELECT dbo.Codici_PDM.PESO * dbo.DistintaMateriali_UT.Quantità AS Peso_Ritiro, dbo.[Ordine a fornitore].ID_Fornitura, dbo.DistintaMateriali_UT.Posizione, dbo.DistintaMateriali_UT.Descrizione+' - '+dbo.DistintaMateriali_UT.Dimensioni+' - '+dbo.DistintaMateriali_UT.Materiale AS Des, dbo.DistintaMateriali_UT.Quantità, dbo.DistintaMateriali_UT.Quantità, dbo.DistintaMateriali_UT.COMM, dbo.Codici_PDM.CODICE_COSTRUTTORE, dbo.DistintaMateriali_UT.ParticolareDWG, dbo.DistintaMateriali_UT.UN, dbo.Codici_PDM.PREZZO_LISTINO, dbo.Codici_PDM.PREZZO_LISTINO, dbo.Codici_PDM.[Tipo di prezzo], dbo.Codici_PDM.SCONTO, dbo.Codici_PDM.SCONTO, dbo.Codici_PDM.FORNITORE_PREFERENZIALE, dbo.Codici_PDM.PREZZO_LISTINO, dbo.DistintaMateriali_UT.Finitura
FROM dbo.DistintaMateriali_UT, dbo.[Ordine a fornitore], dbo.Fornitori, dbo.Codici_PDM
WHERE dbo.Fornitori.IDFornitore =125 AND(dbo.DistintaMateriali_UT.Ordinata = 1) AND (dbo.DistintaMateriali_UT.Ordinata_PRIMA=0) AND (dbo.DistintaMateriali_UT.RdO=0) AND (dbo.DistintaMateriali_UT.Fornitore=dbo.Fornitori.NomeFornitore) AND(dbo.[Ordine a fornitore].ID_RichiestaOfferta = dbo.DistintaMateriali_UT.COMM) AND (dbo.DistintaMateriali_UT.ParticolareDWG = dbo.Codici_PDM.DED_COD ) AND dbo.[Ordine a fornitore].ID_Fornitura = 3187


text:

Buon pomeriggio a tutti,
chiedo cortesemente aiuto non ho più idee.
Ho testato la query su management studio e tutto funziona!
Su progetto adp e access 2010 tutto ok
Portato su Access2019 collegato via ODBC a sql server continua a darmi:
Errore di run-tima'-
2147467259
 (80004005)':
Tipo non corrispondente nell'espressione.
Ho provato a semplificare la query fino al punto di inserire solo un campo e funziona, ma così divento matta non c'è modo di capire cosa gli da fastidio in un debug che magari non conosco?
Il problema è che nel db che sto provando ad aggiornare ci sono centinaia di query come quella postata, se devo ricostruirle tutte ci metto due anni! Quindi sto cercando di capire cosa può causare il problema?
Magari una dichiarazione di dati sulle tabelle sql non compatibile con access?


text:

visto che si tratta di un insert con una manciata di parametri perchè
non realizzi direttamente una stored procedure dentro sql che ti faccia
l'insert?

oltre a essere più performante è pure più chiara da leggere

se proprio non puoi usare TSQL allora per fare una sorta di debug parti
ad eseguire prima solo la select senza where e vedi se da errori

poi se la select funziona inizia ad aggiungere una condizione alla volta
la where

e alla fine l'insert

BFS


text:

Grazie per l'aiuto,
come posso fare a creare una stored procedure dentro sql passandogli però due campi di una maschera?
Mi spiego meglio:
Io ho una maschera in cui l'utente compila due campi e poi preme un pulsante carica nel quale c'era il codice originalmente postato e tale codice andava a recuperare dei dati da varie tabelle per caricarle un una sottomaschera  del form da cui stanno lavorando.


author: carlo process

text: Fai vedere il predicato sql che funziona con un solo campo.


text:
Questo funziona, ma ho inserito fisso Comm e ID_Fornitura e ho tolto praticamente tutti i campi :-(
Dim strSQL As String
Dim NRec As Long
Dim strFiltro, strFiltro1
strFiltro = Me!ID_Fornitura
strFiltro1 = Me!IDFornitore
'MsgBox strFiltro1
'MsgBox strFiltro

strSQL = "INSERT INTO [dbo_Dettagli ordini a fornitori] (posizione,ID_Fornitura)" & _
" SELECT dbo_DistintaMateriali_UT.Posizione,[dbo_Ordine a fornitore].ID_Fornitura" & _
" FROM dbo_DistintaMateriali_UT,[dbo_Ordine a fornitore]" & _
" WHERE dbo_DistintaMateriali_UT.COMM= '63082' AND [dbo_Ordine a fornitore].ID_Fornitura = 3187"



text:
Intanto prova ad esegure il seguente predicato:

strSQL = "INSERT INTO [dbo_Dettagli ordini a fornitori] ( Peso_Ritiro, ID_Fornitura, Posizione, Descrizione, Quantità, Qta, Comm, Codice, COD_rada, UN, Prezzo, Prezzo1, [Tipo di prezzo], SCONTO, Sconto1, FORNITORE_PREFERENZIALE, [Prezzo di riferimento], Lavorazione )" & _
"SELECT dbo_Codici_PDM.PESO*dbo_DistintaMateriali_UT.Quantità AS Peso_Ritiro, [dbo_Ordine a fornitore].ID_Fornitura, dbo_DistintaMateriali_UT.Posizione, dbo_DistintaMateriali_UT.Descrizione+' - '+dbo_DistintaMateriali_UT.Dimensioni+' - '+dbo_DistintaMateriali_UT.Materiale AS Des, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.Quantità, dbo_DistintaMateriali_UT.COMM, dbo_Codici_PDM.CODICE_COSTRUTTORE, dbo_DistintaMateriali_UT.ParticolareDWG, dbo_DistintaMateriali_UT.UN, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.PREZZO_LISTINO, dbo_Codici_PDM.[Tipo di prezzo], dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.SCONTO, dbo_Codici_PDM.FORNITORE_PREFERENZIALE, dbo_Codici_PDM.PREZZO_LISTINO, dbo_DistintaMateriali_UT.Finitura " & _
"FROM dbo_DistintaMateriali_UT, [dbo_Ordine a fornitore], dbo_Fornitori, dbo_Codici_PDM " & _
"WHERE dbo_DistintaMateriali_UT.COMM= '63082' AND [dbo_Ordine a fornitore].ID_Fornitura = 3187"

per vedere se funziona perchè l'errore dovrebbe consistere che uno dei tipi di dato inseriti nella ricerca non corrisponde a quello del relativo campo.
Se non funziona dovresti pubblicare ciò che mostra la finestra di messaggio

MsgBox strSQL

relativa al predicato sql pubblicato nel primo post.


text:

se lavoravi con gli adp do per scontato che le SP in TSQL le usavi gia
ti spiego come richiamarle da access e passare dei parametri

supponiamo che tu hai in sql server una stored procedure che cancella
dall'anagrafica un cliente con id passato come parametro
sp che crei con

CREATE PROCEDURE CancellaAnagrafica
	@IDelininare  int
AS

	delete from anagrafica where idcliente=@IDelininare

GO

supponiamo ora che nella tuo form access hai una casella di testo
"mioID" dove inserirci l'id da cancellare e un pulsante per avviare la
cancellazione

sul evento click del pulsante scrivi

Dim cnn As New ADODB.Connection
'qui metti la tua connection string
cnn.Open
"Provider=MSOLEDBSQL;Server=myServerAddress;Database=myDataBase;UID=myUsername;PWD=myPassword;
"

'cancellazione
cnn.Execute "exec cancellaAnagrafica " & me.mioID
cnn.Close

se i parametri sono piu di uno devi separarli con la virgola
se i parametri sono non numerici devi metterli tra apici

es, questa sp cancella un nominativo in base al nome  e al cognome passati

CREATE PROCEDURE CancellaAnagraficaNome
	@nome nvarchar(50),
	@cognome nvarchar(50)
AS

	delete from anagrafica where nome=@IDelininare and cognome=@cognome

GO

da access la richiami con

cnn.Execute "exec cancellaAnagrafica '" & me.txtNome & "','" &
me.txtCognome & "'"

BFS


text:

Grazie per l'aiuto
Ho creato la stored procedure e l'ho testata da Management Studio e funziona perfettamente!
Quando la richiamo da Access però ho degli errori:
Errore di run-time '3706':
Impossibile trovare il provider. E' possibile che non sia installato correttamente.

Questo è il codice sul pulsante:
Dim strFiltro, strFiltro1 As String
strFiltro = Me!ID_Fornitura
strFiltro1 = Me!IDFornitore
Dim cnn As New ADODB.Connection
cnn = "Provider=MSOLEDBSQL;Server=SERVERDB;Database=2021SQL;UID=sa;PWD=Prova;"

 cnn.Open

cnn.Execute "exec CaricaCOD_RADA '" & Me!IDFornitore & "','" & Me!ID_Fornitura & "'"
cnn.Close



text:

Ho risolto, reinstallando il DRIVER OLEDB!
Grazie a tutti per l'aiuto


text:

bene
dovresti notare anche un netto miglioramento delle prestazioni sui
client lavorando con le sp di sql

ciao
BFS


title: Come cancello il contenuto di una casella di testo?

author: LUIGI C.

text:
Buon Giorno A97...
Maschera MANDATI
ho una casella di controllo (Sě/No)
con una routine sull'evento click:
If Me.Quietanza = -1 Then
Me.TestoQuietanza = "In riferimento al presente MANDATO ..."
End If
come faccio a cancellare il TESTO introdotto se Quietanza diventa 0.....
Grazie
LUIGI
BARI


author: Alessandro Baraldi

text:
"LUIGI C." <
luigic...@hotmail.com
> wrote in message
news:%JYGf.3413$
9G6....@tornado.fastwebnet.it
> Buon Giorno A97...
[CUT]
> come faccio a cancellare il TESTO introdotto se Quietanza diventa 0.....
>
> Grazie
>
> LUIGI
>
> BARI
Me.TestoQuietanza=vbNullstring
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"LUIGI C." <
luigic...@hotmail.com
> ha scritto nel messaggio
news:%JYGf.3413$9G6....@tornado.fastwebnet.it...
> Buon Giorno A97...
> Maschera MANDATI
>
> ho una casella di controllo (Sì/No)
> con una routine sull'evento click:
>
> If Me.Quietanza = -1 Then
> Me.TestoQuietanza = "In riferimento al presente MANDATO ..."
> End If
>
> come faccio a cancellare il TESTO introdotto se Quietanza diventa 0.....
If Me.Quietanza = -1 Then
    Me.TestoQuietanza = "In riferimento al presente MANDATO ..."
Else
    Me.TestoQuietanza = ""
End If
>
> Grazie
Prego
>
> LUIGI
>
> BARI
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: scegliere dati per report

author: Enzo

text:
Ho una tabella contenente lista spese, ad esempio "data" "descrizione"
"costo"
Dovrei tramite una casella combinata scegliere il mese "gennaio"
"febbraio" ecc e creare un report nel quale visualizzare tutti i costi
del mese selezionato.


title: scegliere dati per report

author: Salvatore

text:
"Enzo" <
benin...@libero.it
> ha scritto nel messaggio
news:1137182555.3...@g47g2000cwa.googlegroups.com...

Ci sono diverse strade.
Una potrebbe essere questa. Crea la casella combinata usando due colonne.
Nella prima usi il numero del mese, nella seconda il nome del mese. Nascondi
la prima colonna (larghezza =0). Quindi apri il report filtrandolo in base
al mese scelto nella casella combinata. Per esempio month([TuaData])=
forms!TuaMaschera!TuaCasellaCombinata. Piuttosto, dovrai aggiungere anche un
controllo "anno", altrimenti ti visualizzerà tutte le date che hanno il mese
prescelto, a prescindere dall'anno.
Ciao
Salvatore


title: Opzioni di Access 2000

author: Lu

text:
Ciao..uso A2000 , e volevo sapere se fosse possibile tramite una maschera
all'avvio, o con una macro autoexec :
-nascondere la finestra di Access;
-togliere i flags a :
   modifiche records;
   eliminazioni documenti;
   query di comando
( stanno nel menu' strumenti/opzioni/modifica-trova)
grazie anticipate
Luisa


title: Opzioni di Access 2000

author: Old-Jack

text:
Lu <
hath...@aruba.it
> wrote in message
9omhtb$ije$1...@fe1.cs.interbusiness.it...
> Ciao..uso A2000 , e volevo sapere se fosse possibile tramite una maschera
> all'avvio, o con una macro autoexec :
>
> -nascondere la finestra di Access;
Vai nel menu Strumenti, alla voce Avvio, qui deselezioni "Visualizza
finestra database", a questo punto ti consiglio di selezionare una maschera
iniziale.
> -togliere i flags a :
>    modifiche records;
>    eliminazioni documenti;
Queste due operazioni puoi farle direttamente sulle maschere interessate
mettendo No alle proprietą Consenti modifiche e Consenti eliminazioni,
le trovi nelle proprietą delle maschere alla scheda Dati.
>    query di comando
> ( stanno nel menu' strumenti/opzioni/modifica-trova)
>
Puoi adoperare i codici:
DoCmd.SetWarnings False 'disattiva i messaggi
DoCmd.SetWarnings True 'attiva di nuovo i messaggi
>
> grazie anticipate
>
> Luisa
>
Ciao.
  Old-Jack


title: DateDiff e la guida in linea

author: SunRex

text:
Mi servirebbe di calcolare la differenza tra due date con DateDiff inserendo
tale funzione in un campo calcolato in una qry.
Seguendo le istruzioni della guida in linea......
"Nell'esempio riportato di seguito si indica come utilizzare la funzione
DateDiff in un'espressione nella query. Se si dispone di un tabella Ordini
contenente un campo DataOrdine ed un campo DataSpedizione, č possibile
creare un campo calcolato in una query per visualizzare il tempo trascorso
tra la data di un ordine e quella di spedizione di ciascun ordine. Nella
finestra Query, creare una nuova query aggiungendo la tabella Ordini e
trascinando il campo IDOrdine nella griglia di struttura della query. Per
creare un campo calcolato, immettere in una cella Campo vuota quanto
riportato di seguito:
Giorni trascorsi: DateDiff("a", [DataOrdine], [DataSpedizione])
io la cambio cosě cioč il secondo nome del campo si chiama DataEvasione
Giorni trascorsi: DateDiff ( "a", [DataOrdine], [DataEvasione])
e Access mi dice
"Errore di sintassi nell'espressione.Operando o operatore mancante,carattere
o virgola non valido etc etc."
il puntatore si ferma dopo la virgola appresso alla "a".
Qualcuno mi spiega sta cosa?
SunRex


title: DateDiff e la guida in linea

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:en2hd.234627$35.11...@news4.tin.it...

Mi rispondo in parte da solo avendo solamente adesso letto un vecchio post
di Roberto dalla.....
La sintassi giusta č
Giorni trascorsi: DateDiff("g";[DataOrdine];[DataEvasione])
Notare la "g" al posto della "a" ed il ; al posto della ,
Limortacci di chi ha scritto la guida in linea..........
SunRex
>
>


title: DateDiff e la guida in linea

author: Sergio MAZZA

text:

Forse di chi l'ha tradotta...
Ciao.
--
Sergio MAZZA


title: problemi di risoluzione 800x600 o 1024x768 massimizzare access

text:
il mio problema è il seguente:
il mio db è ottimizzato per una risoluzione 1024x768 e visto che ormai tutti
i monitor in circolazione supportano tale risoluzione o optato per la
seguente soluzione:
avviando il mio db controllo la risolzione e se inferiore a 1024 la imposto
io all'uscita rimetto quella originaria
il problema è che dopo aver impostato la 1024x768 la finestra di access
occupa comunque lo spazio pari a 800x600 e per massimizzarla devo fare
doppio click sulla barra blu oppure cliccare sul quandrato in altro a destra
solito per massimizzare la finestra.
esiste un comando da vb per massimizzare access senza che debba obbligare
l'utente a questa operazione? grazie a tutti.


author: Karl Donaubauer

text:

www.donkarl.com/it
 FAQ 1.10
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


title: Problema con decimali!

text:
Ho un problema:
Io dovrei utilizzare un campo (che e' una somma di altri campi che hanno 3
decimali), ma utilizzare per i calcoli successivi soltanto 2 decimali
arrotondando la seconda cifra decimale. Utilizzando la proprietà
Decimalplace mi arrotonda, ma sotto tiene sempre i 3 (o piu' se ho diviso)
decimali. Cosa posso fare???
Grazie all'anima pia che mi potra' rispondere.
D@S


title: Problema con decimali!

author: Sib

text:
"D@S" <
d...@d.it
> ha scritto nel messaggio
> Ho un problema:
>
>
> Io dovrei utilizzare un campo (che e' una somma di altri campi che hanno 3
> decimali), ma utilizzare per i calcoli successivi soltanto 2 decimali
> arrotondando la seconda cifra decimale. Utilizzando la proprietą
> Decimalplace mi arrotonda, ma sotto tiene sempre i 3 (o piu' se ho diviso)
> decimali. Cosa posso fare???
Questa domanda sta diventando un tormentone.
Se ti vai a leggere i messaggi di questi giorni vedrai quante volte e' stato
risposto a questa domanda.
Sib


title: Problema con decimali!

author: Emyr

text:
On Tue, 12 Feb 2002 11:42:23 +0100, "D@S" <
d...@d.it
> wrote:
>Ho un problema:
>
>
>Io dovrei utilizzare un campo (che e' una somma di altri campi che hanno 3
>decimali), ma utilizzare per i calcoli successivi soltanto 2 decimali
>arrotondando la seconda cifra decimale. Utilizzando la proprietą
>Decimalplace mi arrotonda, ma sotto tiene sempre i 3 (o piu' se ho diviso)
>decimali. Cosa posso fare???
>
>Grazie all'anima pia che mi potra' rispondere.
>
>D@S
>
 da Karl
Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Saluti.
Emanuele.


title: Controllare chi è loggato

author: Tony Bragagnolo

text:
Salve
vorrei sapere se esiste un metodo più semplice e senza usare ADO rispetto a
quello descritto sulla knowledge Microsoft (Q198755: ACC2000: Checking Who
Logged into Database with Jet UserRoster) per mostrare gli utenti collegati
dallo e sullo stesso db aperto con la multiutenza a livello di singolo
utente.
Grazie
--------------------------------
Inviato via
http://usenet.libero.it


title: Controllare chi è loggato

text:
"Tony Bragagnolo" <
cri...@inwind.it
> ha scritto nel messaggio
news:80Z206Z188Z10Y1...@usenet.libero.it...

Hai provato a dare uno sguardo al file LDB con un TEXT_EDITOR........!!!!
@Alex.


title: Controllare chi è loggato

text:
Il 27 Nov 2002, 21:05, "@Alex" <
ik2...@libero.it
> ha scritto:
>
> "Tony Bragagnolo" <
cri...@inwind.it
> ha scritto nel messaggio
> news:80Z206Z188Z10Y1...@usenet.libero.it...
> > Salve
> > vorrei sapere se esiste un metodo più semplice e senza usare ADO
rispetto
> a
> > quello descritto sulla knowledge Microsoft (Q198755: ACC2000: Checking
Who
> > Logged into Database with Jet UserRoster) per mostrare gli utenti
> collegati
> > dallo e sullo stesso db aperto con la multiutenza a livello di singolo
> > utente.
> > Grazie
> >
>
> Hai provato a dare uno sguardo al file LDB con un TEXT_EDITOR........!!!!
>
> @Alex.
ho capito, ma la cosa deve funzionare da dentro il db. cioè in una form
clicco un pulsante e se c'è più di un utente loggato mi avvisa con un msgbox
con il nome di chi è collegato. tutto qui, quindi serve per un utente che ci
lavora sul db, è chiaro che io amministratore lo faccio con altri sistemi.



title: Controllare chi è loggato

author: Giorgio prx

text:

Ciao Tony, @Alex ti ha indicato la strada giusta, basta che dal tuo form
apri con l'istruzione Open il file LDB con accesso Shared read write (vedi
istruzione Open da help sezione riferimento al linguaggio di Visual Basic),
il file è composo di N record (1 per ogni sessione che accede al database)
lunghi 64 Byte, all'inizio di ogni record c'è il Computer Name.
Ciao Giorgio.


title: Controllare chi è loggato

text:
> Ciao Tony, @Alex ti ha indicato la strada giusta, basta che dal tuo form
> apri con l'istruzione Open il file LDB con accesso Shared read write (vedi
> istruzione Open da help sezione riferimento al linguaggio di Visual
Basic),
> il file č composo di N record (1 per ogni sessione che accede al database)
> lunghi 64 Byte, all'inizio di ogni record c'č il Computer Name.
>
> Ciao Giorgio.
ok, perň non uso open ma una cosa cosě:
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\database.ldb", 1, 0)
e poi uso stringa=f.read(x)
a questo punto diciamo che nel mio stringa ho tutti i nomi degli utenti
collegati. purtroppo perň in mezzo c'č anche il segno di a capo o cambio
record, per cui facendo
Msgbox testo
mi trovo con solamente il primo nome visualizzato e gli altri niente.
come posso evitare questo? ho provato con
testo = Replace(testo, Chr(13), "")
ma non va
Grazie.



title: Controllare chi è loggato

text:
"Tony Bragagnolo" <
cri...@inwind.it
> ha scritto nel messaggio
news:80Z206Z188Z10Y1...@usenet.libero.it...
> > Ciao Tony, @Alex ti ha indicato la strada giusta, basta che dal tuo form
> > apri con l'istruzione Open il file LDB con accesso Shared read write
(vedi
> > istruzione Open da help sezione riferimento al linguaggio di Visual
> Basic),
> > il file è composo di N record (1 per ogni sessione che accede al
database)
> > lunghi 64 Byte, all'inizio di ogni record c'è il Computer Name.
> >
> > Ciao Giorgio.
>
> ok, però non uso open ma una cosa così:
>     Set fs = CreateObject("Scripting.FileSystemObject")
>     Set f = fs.OpenTextFile("c:\database.ldb", 1, 0)
>
> e poi uso stringa=f.read(x)
> a questo punto diciamo che nel mio stringa ho tutti i nomi degli utenti
> collegati. purtroppo però in mezzo c'è anche il segno di a capo o cambio
> record, per cui facendo
> Msgbox testo
> mi trovo con solamente il primo nome visualizzato e gli altri niente.
> come posso evitare questo? ho provato con
> testo = Replace(testo, Chr(13), "")
> ma non va
> Grazie.
Ciao Tony, ti posto un esempio di codice per ottenere una stringa con il
nome dei computer name che accedono al DB.
Dim stringa As Variant
Dim Utenti As Variant
Dim Utente As Variant
Dim i As Integer
Dim fs As Object
Dim f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\database.ldb", 1, 0)
stringa = f.Read(640)  'Poniamo di leggere max 640 byte pari a 10 utenti
f.Close
'eseguo un loop per la lettura dei record da 64 Byte
For i = 0 To Len(stringa) / 64 - 1
      Utente = Trim(Mid(stringa, i * 64 + 1, 30))   'nei primi 30 caratteri
del record c'e il computer_name
      Utente = Left(Utente, InStr(Utente, Chr(0)) - 1) 'Filtro il carattere
di fine stringa
      Utenti = Utenti + Utente + vbCrLf  'Lo accodo a Utenti
Next
MsgBox Utenti     'Stampo l'elenco
Set f = Nothing
Set fs = Nothing
Lo svantaggio di questa tecnica è che se tre utenti aprono il database e
successivamente due utenti lo chiudono, la lista è sempre composta da tre
utenti perche il file LDB viene azzerato all'uscita dell'ultimo utente.
Ciao Giorgio


title: Controllare chi è loggato

author: simisa

text: mi serviva....grazie


title: Conversione progetto ADP -> VB

author: lucianab64 on libero

text:
Salve al NG!
Per motivi di run time, sicurezza etc, mi e' venuto in mente di convertire
un progetto ADP in Visual Basic.
Sapete se c'e' un modo semplice o qualche automatismo per convertire
maschere Access in Visual Basic?
Grazie
Luciana


title: Conversione progetto ADP -> VB

author: warp

text:
lucianab64 on libero ha scritto nel messaggio ...

No ma .... io ci penserei tre volte prima di abbandonare Access '2000 come Front-end verso SQL
Server!  :-)
Ciao, warp


title: Conversione progetto ADP -> VB

text:
warp <
war...@libero.it
> wrote in message
903jnd$19a$1...@fe1.cs.interbusiness.it...

Sono assolutamente della tua stessa opinione, ma vorrei portare qualche
motivazione a quelli del mio gruppo che invece la pensano diversamente.
Tu come giustificheresti la tua risposta?
Grazie. Ciao. Luciana


title: Conversione progetto ADP -> VB

text:
[cut]
> >
> > No ma .... io ci penserei tre volte prima di abbandonare Access '2000
come
> Front-end verso SQL
> > Server!  :-)
> >
> > Ciao, warp
>
> Sono assolutamente della tua stessa opinione, ma vorrei portare qualche
> motivazione a quelli del mio gruppo che invece la pensano diversamente.
> Tu come giustificheresti la tua risposta?
>
La prossima form bella "zeppa" che dovete realizzare, con un po di
sottomaschere, caselle combinate, un bel pò di controlli "not in list", di
input, di "undo"... report in anteprima ecc ecc, iniziate a farla
simultaneamente su VB6 e VBA.
Si cronometra e poi si ride.
;-)
Guz


title: Conversione progetto ADP -> VB

text:
> [cut]
> La prossima form bella "zeppa" che dovete realizzare, con un po di
> sottomaschere, caselle combinate, un bel pò di controlli "not in list", di
> input, di "undo"... report in anteprima ecc ecc, iniziate a farla
> simultaneamente su VB6 e VBA.
> Si cronometra e poi si ride.
> ;-)
>
> Guz
>
OK !!!
Mi sembra una bella prova  ;-)
E se poi qualcuno obbiettasse che:
"Dal punto di vista commerciale VB è meglio di Access perche' Access è
considerato troppo da smanettoni e quindi meno vendibile?"
Cosa rispondere?
Grazie in anticipo dell'aiuto.
Luciana


title: Conversione progetto ADP -> VB

text:
lucianab64 on libero ha scritto nel messaggio ...
>Sono assolutamente della tua stessa opinione, ma vorrei portare qualche
>motivazione a quelli del mio gruppo che invece la pensano diversamente.
>Tu come giustificheresti la tua risposta?
Mah, spesso è solo questione di gusti, fatto sta che non ancora visto gestionali in VB degni di
questo nome.
E' un ambiente privo di strumenti d'accesso ai dati nativi (e di conseguenza terribilmente legato
all'utilizzo di CAttiviX) e molto macchinoso nella Reportistica.
Oltretutto non è affatto un compilatore: la distribuzione delle applicazioni VB si avvale di un
Runtime leggermente meno palese di quello di Access.
In rapporto ad A '2000 + MSDE, beh a parer mio è l'uovo di colombo se si ha la necessità di
utilizzare un Server di Database, mantenendo tempi di sviluppo sostenibili.
Ciao, warp


title: Conversione progetto ADP -> VB

text:
lucianab64 on libero ha scritto nel messaggio ...
>OK !!!
>Mi sembra una bella prova  ;-)
>E se poi qualcuno obbiettasse che:
>"Dal punto di vista commerciale VB è meglio di Access perche' Access è
>considerato troppo da smanettoni e quindi meno vendibile?"
Beh, questo è un altro discorso :-))
Ma allora tanto vale sviluppare gestionali in Delphi, o meglio ancora in C++, dato che VB6 (e lo
dico sottovoce) è un ibrido che non fa niente veramente bene.
Comunque secondo me si dovrebbe programmare per vivere e non per la "gloria"!
Ciao, warp


title: Conversione progetto ADP -> VB

text:
warp <
war...@libero.it
> wrote in message
9060fq$p2r$1...@fe1.cs.interbusiness.it...
CUT
> Mah, spesso è solo questione di gusti, fatto sta che non ancora visto
gestionali in VB degni di
> questo nome.
> E' un ambiente privo di strumenti d'accesso ai dati nativi (e di
conseguenza terribilmente legato
> all'utilizzo di CAttiviX) e molto macchinoso nella Reportistica.
> Oltretutto non è affatto un compilatore: la distribuzione delle
applicazioni VB si avvale di un
> Runtime leggermente meno palese di quello di Access.
>
> In rapporto ad A '2000 + MSDE, beh a parer mio è l'uovo di colombo se si
ha la necessità di
> utilizzare un Server di Database, mantenendo tempi di sviluppo
sostenibili.
Sono d'accordo su tutto.
E' fondamentale valutare i tempi di sviluppo in rapporto ai risultati
ottenuti e alle prestazioni.
Personalmente ritengo che Access 2000 + MSDE siano un ottimo compromesso.
Grazie. Alla prossima
Luciana


title: creare campo "visualizzato come combobox" in una tabella, da codice VBA

author: ongiov

text:
Salve. chiedo aiuto in relazione al seguente problema.
ho necessita di accedere da codice vba alle proprietà dei campi che
sto creando in una nuova tabella.
Manualmente è possibile per ogni campo impostare il parametro
postosotto "ricerca-visualizza controllo" in  "casella combinata".
Successivamente si possono impostare diversi parametri relativi alla
combobox e in particolare l'origie riga, la casella associata...
E' possibile fare questo da codice vba?
Come?
grazie in anticipo.


text:

Di solito sconsiglio ad usare delle caselle combinate in tabelle.
Vedi:
http://www.mvps.org/access/lookupfields.htm
.
Se nondimeno insisti:
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set db = Currentdb
'o
'Set db = DBEngine.Workspaces(0).OpenDatabase("DB esterno")
Set tdf = db!TuaTabella
Set fld = tdf!TuoCampo
With fld
.Properties("DisplayControl") = acComboBox
Set prp = .CreateProperty("RowSource", dbText, "TuaOrigineRiga")
.Properties.Append prp
.Properties.Refresh
End With
Lo stesso metodo puoi usare per le altre proprietà del combo.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla CISA2, la seconda
Conferenza Italiana per Sviluppatori di Access, Paola, 17+18/6/2006


title: Togliere conferma da inserimento su tabella

author: SimoneB

text:
Salve a tutti,
ho un altro problema su di un DB. Ho un maschera denominata Gestione
Protocollo, su questa sono inserite due caselle di testo denominate mittente
e destinatario le quali prelevano i dati da due tabelle denominate Mittente
e Destinatario. Su queste caselle di testo all'evento "Su non in Elenco" ho
impostato questo codice:
If MsgBox("Questo Mittente non esite ancora. Desideri inserirlo?", vbYesNo +
vbQuestion) = vbYes Then
        DoCmd.OpenForm "Mittente", acNormal, , , acFormAdd, acDialog
        Response = acDataErrAdded
 Else
       Me.Undo
       Response = acDataErrContinue
       End If
Ed ovviamente lo stesso modificato per la casella di testo Destinatario.
Questo codice mi permette di aprire una finestra di controllo sulla quale
premendo sì è possibile inserire in tabella il nuovo cliente premendo no
torna alla maschera permettendo di cambiare il nome. Io non vorrei più nè
l'avviso nè tanto meno inserire manualmente nella maschera Mittente (o
destinatario) il nome che avevo già scritto nella casella di testo della
maschera Protocollo. Come posso fare a risolvere il mio problema? Potreste
indicarmi come fare?
Saluti e grazie a tutti SimoneB


text:
"SimoneB" <
simoneb...@tiscali.it
> ha scritto nel messaggio
news:46e66e54$0$37202$4faf...@reader3.news.tin.it...

?!?
Significa che vuoi cancellare il codice dall'evento?
Ciao.
--
Sergio MAZZA


text:

Cercherò di spiegare solo quello che voglio ottenere. In una maschera dal
nome Protocollo ho due caselle combinate Mittente e Destinatario, queste
sono associate ad omonime tabelle contenenti i campi IdMittente e Mittente -
IdDestinatario e Destinatario. Compilando la maschera Protocollo, quando ho
un mittente o un destinatario già presente in tabella lo posso prelevare dal
menù a discesa, il mio problema si pone quando invece non ho il cliente in
tabella, a questo punto devo chiudere la maschera protocollo aprire la
maschera mittente o destinatario ed inserire il nuovo nominativo, chiudere
la maschera aperta riaprire il protocollo ed inserire prelevando dal menù a
discesa della casella combinata. Per ovviare a tutti questi passaggi, ho
inserito all'interno dell'evento Su non in elenco il codice precedentemente
inviato, solo che questo genera un messaggio di conferma dopo aver premuto
su SI, mi apre la maschera del mittente o del destinatario e su questa devo
nuovamente scrivere il nominativo nuovo. Io vorrei invece che Access, se non
trova il nominativo scritto nella casella combinata aggiungesse nella
tabella Mittente o Destinatario il nominativo nuovo senza conferme di
aggiunta e soprattutto senza dover riscrivere nuovamente il nominativo del
mittente o del destinatario.
Saluti e grazie SimoneB


text:
"SimoneB" <
simoneb...@tiscali.it
> ha scritto nel messaggio
news:46e6a25c$0$10618$4faf...@reader2.news.tin.it...
> Cercherò di spiegare solo quello che voglio ottenere. In una maschera dal
> nome Protocollo ho due caselle combinate Mittente e Destinatario, queste
> sono associate ad omonime tabelle contenenti i campi IdMittente e
> Mittente - IdDestinatario e Destinatario. Compilando la maschera
> Protocollo, quando ho un mittente o un destinatario già presente in
> tabella lo posso prelevare dal menù a discesa, il mio problema si pone
> quando invece non ho il cliente in tabella, a questo punto devo chiudere
> la maschera protocollo aprire la maschera mittente o destinatario ed
> inserire il nuovo nominativo, chiudere la maschera aperta riaprire il
> protocollo ed inserire prelevando dal menù a discesa della casella
> combinata. Per ovviare a tutti questi passaggi, ho inserito all'interno
> dell'evento Su non in elenco il codice precedentemente inviato, solo che
> questo genera un messaggio di conferma dopo aver premuto su SI, mi apre la
> maschera del mittente o del destinatario e su questa devo nuovamente
> scrivere il nominativo nuovo. Io vorrei invece che Access, se non trova il
> nominativo scritto nella casella combinata aggiungesse nella tabella
> Mittente o Destinatario il nominativo nuovo senza conferme di aggiunta e
> soprattutto senza dover riscrivere nuovamente il nominativo del mittente o
> del destinatario.
> Saluti e grazie SimoneB
Invece di aprire la form per il nuovo inserimento, esegui una query di
accodamento con il nuovo valore e poi fai il requery della casella
combinata...
Ciao.
--
Sergio MAZZA


author: Roberto da Parma

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fc6887$gon$1...@tdi.cu.mi.it...

Usando la query dovrebbe disabilitare comunque gli avvisi
(metodo SetWarnings)....e usare DAO?
tiè qua.....
--
Roberto da Parma
  Dim IntNuovo As Integer, strTitolo As String
  Dim IntFinestraMsg As Integer, strMsg As String
  strTitolo = "Descrizione non in elenco"
  strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) &
Chr(10) & "in elenco?"
  IntFinestraMsg = vbYesNo + vbQuestion
  IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    Dim miorst As Recordset
    Set miorst = CurrentDb.OpenRecordset("tuatabella")
    miorst.AddNew
    miorst!tuocampo = NewData
    Me![casella] = miorst![tuocampo]
    miorst.Update
    miorst.Close
    Set miorst = Nothing
    strTitolo = "Inserimento nuova descrizione in elenco"
    strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrAdded
Else
    strTitolo = "Nome della descrizione errato"
    strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) & "Seleziona
una descrizione dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrContinue
    Me.Undo
End If


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:46e73b31$0$17941$4faf...@reader1.news.tin.it...
> Usando la query dovrebbe disabilitare comunque gli avvisi
Ehennò!
Prima complichi la vita a uno, ora vuoi semplificarla all'altro... Deciditi!
> --
> Roberto da Parma
Ciao.
--
Sergio MAZZA


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:46e73b31$0$17941$4faf...@reader1.news.tin.it...

Ma questo codice lo devo impostare sull'evento Su non in elenco?
Saluti SIMONEB


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:46e73b31$0$17941$4faf...@reader1.news.tin.it...

Ho provato ad inserire il codice sull'evento non in elenco modificandolo
secondo le mie esigenze in questo modo
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
  strTitolo = "Descrizione non in elenco"
  strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) &
Chr(10) & "in elenco?"
  IntFinestraMsg = vbYesNo + vbQuestion
  IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    Dim miorst As Recordset
    Set miorst = CurrentDb.OpenRecordset("Mittente")
    miorst.AddNew
    miorst!Nominativo = NewData
    Me![IdMittente] = miorst![Nominativo]
    miorst.Update
    miorst.Close
    Set miorst = Nothing
    strTitolo = "Inserimento nuova descrizione in elenco"
    strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrAdded
Else
    strTitolo = "Nome della descrizione errato"
    strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) & "Seleziona
una descrizione dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrContinue
    Me.Undo
End If
Mi fa eseguire il debug segnalandomi qualcosa di anomalo sulla riga
Me![IdMittente] = miorst![Nominativo]
come mai? Dov'è che sbaglio? Dicevate di usare DAO, ma devo impostare o
caricare qualcosa o Access lo usa di default?
Saluti SIMONEB


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fc7vlv$p9$1...@tdi.cu.mi.it...
> "Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
> news:46e73b31$0$17941$4faf...@reader1.news.tin.it...
>> Usando la query dovrebbe disabilitare comunque gli avvisi
>
> Ehennņ!
> Prima complichi la vita a uno, ora vuoi semplificarla all'altro...
> Deciditi!
>
>> --
>> Roberto da Parma
>
> Ciao.
> --
> Sergio MAZZA
>
Hai ragione...dipende un pņ dall'umore.... :-)))
Ciao
--
Roberto da Parma


text:
"SimoneB" <
simoneb...@tiscali.it
> ha scritto nel messaggio
news:46e85bac$0$4786$4faf...@reader4.news.tin.it...

Me![IdMittente]  deve essere il nome del campo che hai maschera...e deve
essere di tipo testo!
miorst![Nominativo] è il nome del campo che hai nella tabella di nome
"Mittente"
vedi di sistemare le cose...



title: filtro su query Access 2003 - problema con "ALike"

author: Leonardo

text:
Buongiorno Amici del NG,
su una quey ho impostato il seguente filtro sul campo "Categoria":
Like ("*" & [Forms]![MULT]![Categoria] & "*") in modo da filtrare
genericamente la categoria merceologica;
fino a qualche giorno fa funzionava regolarmente, ora la query non mi
da alcun risultato in quanto ho notato che il filtro è diventato
questo:
ALike ("*" & [Forms]![MULT]![Categoria] & "*").
In pratica c'è questa A davanti a Like che non si toglie e credo sia
la causa del problema.
Potete aiutarmi?
grazie sempre
Leo


text:
Leonardo wrote:
> su una quey ho impostato il seguente filtro sul campo "Categoria":
> Like ("*" & [Forms]![MULT]![Categoria] & "*") in modo da filtrare
> genericamente la categoria merceologica;
> fino a qualche giorno fa funzionava regolarmente, ora la query non mi
> da alcun risultato in quanto ho notato che il filtro č diventato
> questo:
> ALike ("*" & [Forms]![MULT]![Categoria] & "*").
> In pratica c'č questa A davanti a Like che non si toglie e credo sia
> la causa del problema.
ALike "succede" se ANSI 92 č attivata.
Controlla e togli la spunta nell'opzione, cioč menů
Strumenti - Opzioni - Tabelle/Query -
Sintassi compatibile SQL Server (ANSI 92)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 1 Apr, 14:13, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Leonardo wrote:
> > su una quey ho impostato il seguente filtro sul campo "Categoria":
> > Like ("*" & [Forms]![MULT]![Categoria] & "*") in modo da filtrare
> > genericamente la categoria merceologica;
> > fino a qualche giorno fa funzionava regolarmente, ora la query non mi
> > da alcun risultato in quanto ho notato che il filtro è diventato
> > questo:
> > ALike ("*" & [Forms]![MULT]![Categoria] & "*").
> > In pratica c'è questa A davanti a Like che non si toglie e credo sia
> > la causa del problema.
>
> ALike "succede" se ANSI 92 è attivata.
> Controlla e togli la spunta nell'opzione, cioè menù
>
> Strumenti - Opzioni - Tabelle/Query -
> Sintassi compatibile SQL Server (ANSI 92)
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Infatti, problema risolto, ora la query rifunziona regolarmente !!
Grazie Karl e una buona giornata.
Leo


title: Curiosità sui recordset

author: Paul

text:
ho una piccola curiosità, mi spiegate qual è la differenza sostanziale
fra queste due assegnazioni che danno lo stesso risultato?
dim rst as recordset
Set rst = CurrentDb.OpenRecordset("SELECT....")
Set rst = CurrentDb.createquerydef("SELECT....")
si può dire che una è migliore dell'altra?
grazie


title: Curiosità sui recordset

author: Luciano (DOC)

text:
Paul ha scritto nel messaggio <
3A6EA4BA...@libero.it
>...
>ho una piccola curiosità, mi spiegate qual è la differenza sostanziale
>fra queste due assegnazioni che danno lo stesso risultato?
>
>dim rst as recordset
>
>Set rst = CurrentDb.OpenRecordset("SELECT....")
>Set rst = CurrentDb.createquerydef("SELECT....")
La seconda manco sapevo che esistesse....ma mi sembra un contraddizione. A
che scopo creare una querydef?
Buona la prima direi...
Saluti.
lucia...@sitoocmune.com


title: Curiosità sui recordset

author: Federico Luciani

text:

>
lucia...@sitocomune.com
La corretta sintassi della seconda e':
Dim qdf as QueryDef
Set qdf = CurrentDb.createquerydef(nome, "SELECT....")
nome e' il nome della query che si vuole creare; se impostata a stringa di
lunghezza zero, la query e' una query temporanea.
viene utilizzata per creare un oggetto QueryDef, cioe' definire una query.
al contrario un Recordset rappresenta i records di una tabella o il risultato
di una query, infatti se si vuole accedere ai records trovati da una query
bisogna creare un recordset su di esso;
Dim qdf as QueryDef
Dim rst as Recordset
Set qdf = CurrentDb.createquerydef("", "SELECT....")
set rst = qdf.openrecordset(...)
non so se sono stato chiaro, spero di si.
cmq help e' piu' che chiaro
--
Federico
fluc...@paperino.sitocomune.com
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
mailto:
webm...@sitocomune.com
--------------------------------------


title: Curiosità sui recordset

text:
"Federico Luciani" <
fluc...@paperino.galactica.it
> wrote in message
news:3A6FE756...@paperino.galactica.it...
> La corretta sintassi della seconda e':
> Dim qdf as QueryDef
> Set qdf = CurrentDb.createquerydef(nome, "SELECT....")
Ooooops!!!:-)
Avevo letto male e mi sembrava che volesse aprire il recordset creando al
volo una querydef ....infatti mi sembrava una sintassi un po' strana!:-)
Saluti.
lucia...@sitocomune.com


title: Curiosità sui recordset

author: Antonio Biso

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
STXb6.64909$lV5.1...@news2.giganews.com...
>
> "Federico Luciani" <
fluc...@paperino.galactica.it
> wrote in message
> news:3A6FE756...@paperino.galactica.it...
>
> > La corretta sintassi della seconda e':
> > Dim qdf as QueryDef
> > Set qdf = CurrentDb.createquerydef(nome, "SELECT....")
>
> Ooooops!!!:-)
> Avevo letto male e
Bla bla bla
Dicono tutti cosě...
Antonio


title: inserimento immagini su word

author: melo

text:
ciao,
è possibile da codice vba in access inserire un file immagine su un doc
word precedentemente aperto?
mi occorrerebbe conoscere solo il codice relativo all'inserimento che da
word eseguirei manualmente come Inserisci-->Immagine-->Da file
grazie anticipatamente
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: inserimento immagini su word

text:

apri word
registra una macro
in cui fai le operazioni che hai scritto tu e che ti servono
guarda il codice creato nella macro (di word).
Spesso sei già a posto (portandolo in Access), a volte occorre
addattarlo un po' ma hai cmq un ottimo punto di partenza...
F. (uno smanettone autodidatta)


title: inserimento immagini su word

text:
dopo un po' di tentativi sono riuscito:
wordDoc.Shapes.AddPicture Filename:="percorsofile"
grazie comunque
melo ha scritto:



title: inserisci dati

author: Carlo Saulle

text:
ciao a tutti,
dopo aver creato, in una maschera1, un comando di apertura maschera2, scelgo
l'opsione "Apri la maschera e trova dati specifici da visualizzare".
il mio problema è che oltre ad "aprire la maschera" e trovare i "dati
specifici" vorrei anche inserire nuovi dati e non solo visualizzarli.
come faccio
carlo


title: inserisci dati

author: Roberto da casa

text:
"Carlo Saulle" <
cka.con...@virgilio.it
> ha scritto nel messaggio
news:dHmIa.209816$g92.4...@news2.tin.it...

Dopo che la maschera è stata aperta, quando vuoi inserire un nuovo record
pigia il pulsate Nuovo record (triangolo seguito da asterisco) sulla barra
degli strumenti, oppure pigia lo stesso pulsante che trovi vicino ai
pulsanti di spostamento, in basso a sinistra della maschera; ultima ratio,
usando l'autocomposizione, inserisci nella maschera un pulsante di comando
"inserisci record" e poi pigia quello.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: DoCmd.OpenForm

author: Franco

text:
cosa cambia aprire una maschera tra questi due codici?

    DoCmd.OpenForm "M_Ordini", acNormal, "", "", acEdit, acNormal
    DoCmd.OpenForm "M_Ordini", acNormal, "", "", , acNormal

grazie


title: DoCmd.OpenForm

text:
"Franco" <
Franco.D...@libero.it
> ha scritto nel messaggio
news:4f76baed$1$1389$4faf...@reader1.news.tin.it...

oppure cosi?
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "M_Ordini"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

grazie ancora


title: da excel ad access

author: carla

text:
Salve,
ho cercato di importare un foglio di excel in una tabella nuova di access.
Mi importa alcuni campi e per altri mi dice "errore di conversione del
tipo". Qual č il problema?
Grazie
Ciao


title: da excel ad access

author: TANNHAUSER

text:
carla ha scritto:
> Salve,
> ho cercato di importare un foglio di excel in una tabella nuova di access.
> Mi importa alcuni campi e per altri mi dice "errore di conversione del
> tipo". Qual è il problema?
Forse stai cercando di importare in un campo di tipo numerico anche dati
di tipo testo.
--
TANNHAUSER
"I've seen things you people wouldn't believe..."
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: da excel ad access

author: Alessandro Cara

text:
carla wrote:
> Salve,
> ho cercato di importare un foglio di excel in una tabella nuova di access.
> Mi importa alcuni campi e per altri mi dice "errore di conversione del
> tipo". Qual è il problema?
> Grazie
> Ciao
>
>
esattamente quello che dice.
i.e. se in fase di importazione access decide che una certa colonna e'
numerica e ci trova ad es una lettere ecco l'errore.
Generalmente (anzi sempre) access genera una tabella nomata "Errori di
incollamento" all'interno, in genere (anzi sempre), scrive il numero del
record che ha dato il problema ed un paio di altri attributi che ora non
ricordo ma utili a capire la situazione
--
a.cara


title: Relazione tra Tabelle

text:
Buongiorno ,

Non riesco a capire questa anomalia :

Sulla pagina delle relazioni mi trovo ogni volta che la apro,
una nuova tabella Prodotti_Categorie_Sconto_1  (relazionata 1 a oo con altra tabella Prodotti) che è doppione della tabella Prodotti_Categorie_Sconto .

La cancello , chiudo la pagina , la riapro e di nuovo mi compare questa tabella doppione che non ho .

Perchè succede questo ?
Mi sapete dare una risposta ?

Ciao  Giuseppe


title: Relazione tra Tabelle

author: GiorgioDaPrato

text:
> La cancello , chiudo la pagina , la riapro e di nuovo mi compare questa tabella doppione che non ho .
>
> Perchè succede questo ?
> Mi sapete dare una risposta ?
>

in effetti la cancellazione di una relazione tramite l'interfaccia grafica
può NON essere definitiva

quindi dovresti vedere da codice quali relazioni sono presenti

esempio:
Sub vediRelazioni()
Dim db As DAO.Database
Set db = CurrentDb()

For Each rel In db.Relations
    Debug.Print rel.Name, rel.Table, rel.ForeignTable
Next

Set db = Nothing
End Sub

e poi una volta indivisuato il nome di sistema della relazione "fastidiosa"

eliminarla con il metodo delete di relations

approssimativamente:
 db.Relations("laZanzara").delete


title: Aiuto: come inserire data in automatico in un campo

author: Adolfo Catelli

text:
Salve
Il mio quesito è il seguente
Se uso la funzione =DATE() viene inserita la data odierna che viene
aagiornata ogni volta che apro il database
Io vorrei inserire in automatico in un campo una data che rimanesse fissa
(ad es. vorrei che in un campo Data_inserimento_ordine, venisse in
automatico
inserita la data del odierna in cui ho fatto l'ordine e che questa non
venisse più modificata)
Grazie per l'aiuto


author: giorgio rancati

text:
"Adolfo Catelli" <
adolfo...@tiscali.it
> ha scritto nel messaggio
news:422a0253$0$6318$5fc...@news.tiscali.it...

Ciao Aldo,
non so se ho capito ma se il tuo campo ha come valore predefinito DATE() una
volta inserito non viene cambiato all'apertura del database, devi essere tui
a modificarlo.
Naturalmente stiamo parlando di un Campo contenuto in una Tabella vero ?
Ciao Giorgio


author: Rita

text:
"Adolfo Catelli" <
adolfo...@tiscali.it
> ha scritto nel messaggio
news:422a0253$0$6318$5fc...@news.tiscali.it...
> Salve
> Il mio quesito č il seguente
> Se uso la funzione =DATE() viene inserita la data odierna che viene
> aagiornata ogni volta che apro il database
> Io vorrei inserire in automatico in un campo una data che rimanesse fissa
> (ad es. vorrei che in un campo Data_inserimento_ordine, venisse in
> automatico
> inserita la data del odierna in cui ho fatto l'ordine e che questa non
> venisse piů modificata)
> Grazie per l'aiuto
>
>
Ciao, io ho avuto un problema del genere e l'ho risolto in maniera un pň
artigianale, ma mi va bene cosě.
Cioč ho inserito due controlli nella form, uno prende la data di sistema in
automatico ed un altro fa riferimento proprio al campo della tabella.
Se a me va bene la data 'odierna' clicco sul tasto di comando che mi
trasferisce la data 'odierna' nel controllo della data e cosě rimane fino a
quando non sono io a modificarla.
               Ciao Rita


title: grazie - ma male mi spiegai

author: ComemoC

text:
AVEVO SCRITTO: vi prego non fucilatemi.
avendo campo data estesa
volendo selezionare tutti i record del mese corrente qual'è la formula da
mettere nella querry?
    Vostre risposte corrette ma non intendevo...
VOLEVO DIRE:
    Ho un campo chamato Data_che_vuoi.
    All'interno ho 2000 record ognuno con una data diversa o uguale.
    Il campo è formattato in data estesa.
Desidero creare una querry che in apertura mi estrapola solo le date del
mese corrente.
Se desidero avere una querry che in apertura mi da i record solo del giorno
corrente è sufficiente che inserisco in criteri  "Date()", Ma se voglio che
mi selezioni tutti i record del mese corrente che cosa inserisco in criteri?
Grazie per i suggerimenti di oggi, mi sono utili per altro


title: grazie - ma male mi spiegai

text:
"ComemoC" <
adamo....@galactica.it
> ha scritto nel messaggio
news:yUH96.27923$lV5.3...@news2.giganews.com...

Guarda che le risposte che ti ha dato Karl sono esatte; se la tua tabella si
chiama Tabella1, il codice SQL della query che ti serve è il seguente:
SELECT Tabella1.*
FROM Tabella1
WHERE (((Month([Data_che_vuoi]))=Month(Date())) AND
((Year([Data_che_vuoi]))=Year(Date())));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Chiusura delle form...

author: Did

text:
Salve a tutti,
non sono ancora riuscito a leggere tutti i messaggi ...
per cui mi scuso in anticipo se pongo una domanda già risolta.
Il mio problema è quello di chiudere da codice le varie form aperte quando
rendo 'corrente' la form principale, il pannello comandi appunto.
Al momento ho ovviato con una serie di funzioni sul Pannello Comandi su
evento  Current:
    If miaFormIsOpen() Then DoCmd.Close acForm, "mia", acSaveYes
ovviamente con altrettante Funzioni Private per la verifica dello stato form
    miaFormIsOpen()
    InputboxFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Inputbox")
And acObjStateOpen) <> False
per carità funziona...ma con 14 diverse form è lunga.
Da principiante sono portato a pensare che sia possibile fare meglio, ma io
arrivo fin qui!
Grazie da ora a tutti per l'aiuto ...
David


title: Chiusura delle form...

author: Alessandro

text:
"Did" <
roma...@hotmail.com
> wrote in message
news:fg8g8.31856$Ns4.1...@news2.tin.it...

Puoi fare una Funzione in un Modulo che chiude tutte le Form Aperte
in AUTOMATICO tranne quella che passi alla funzione:
Public Function CloseForm(f_OnlyOpen as Form) as Boolean
   Dim f As String
   Dim x As Integer
   For x = 0 To Forms.Count - 1
      f = Forms(x).Name
      If f <> f_OnlyOpen.Name Then DoCmd.Close acForm, f
      CloseForm=True
   Next
End
Ovviamente per richiamarla devi scrivere nella Form che deve
rimanere aperta così:
   CloseForm Me
Non serve atro, come non serve la Funzione IsOpen che accennavi,
perchè l'Oggetto Forms contiene solo il Riferimento delle Form
APERTE che è proprio quello che serve a te....!!!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Chiusura delle form...

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:b269d19268c07005d5...@mygate.mailgate.org...
> "Did" <
roma...@hotmail.com
> wrote in message
> news:fg8g8.31856$Ns4.1...@news2.tin.it...
>
omissis...

Grazie per l'aiuto Alessandro...


title: Chiusura delle form...

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:b269d19268c07005d5...@mygate.mailgate.org...
> "Did" <
roma...@hotmail.com
> wrote in message
> news:fg8g8.31856$Ns4.1...@news2.tin.it...
> >

    Ho provato il tuo suggerimento, che funziona perfettamente... devo
riconoscere che la strada è lunga.
    Tuttavia, e scusa se approfitto della tua pazienza,  dato che da una
form, per necessità di visione dei record collegati, ho la possibilità di
aprirne una collegata, access mi ha notificato un errore di run time 2456 al
ritorno e quindi attivazione del pannello comandi,( in debug segnala
riferimento non valido su questa riga F = Forms(x).Name ).
    Mentre non c'è errore se diligentemente prima chiudo manualmente la
seconda formB  aperta con il pulsante della formA, in qualunque modo si
chiuda formA.
P.S.tutte le form sono con Proprietà Modal (A scelta obbligatoria) = false
Ciao e un saluto
David