author: ALESSANDRO Baraldi

text:
"bizio" <
fabriz...@libero.it
> ha scritto nel messaggio
news:1179329556....@q23g2000hsg.googlegroups.com...


Domanda già letta alla quale hai avuto già risposta... tu sai dove vero....
;-)
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: inserimento valore negativo

text:
Scusate la domanda da Niubbo ma stavo risolvendo alcuni problemi
inerenti la gestione storico del multimagazzino che gira in Access ,
leggendo il vostro gruppo e facendovi domande sono tiuscito a risolvere
ilprobema dello storico sempre aggiornato a qualisasi data .... ora
però hop un problema .
Ho impostato la tabella magazzino in modo che tutte le movimentazioni
(carico e scarico) vengano memorizzati in questa tabella e più
precisamente la quantità di scarico e carico vengono memorizzati in un
unico campo " quantità " ... volevo sapere se tramite la maschera di
immissione potevo fare in modo che il valore venisse inserito come
formato positivo nella maschera (senza mettere -5 ecc..) ma salvato
come negativo nella tabella e , a sua volta in fase di report venisse
visualizzato col suo valore assoluto (quindi nel caso di -5 , con 5 )
Se avete riferimenti da farmi leggere o comunque una soluzione per il
mio problema , ve ne sarei grato
Grazie
GoG


title: inserimento valore negativo

author: Massimo Piubelli

text:

Due soluzioni:
1) cercare con google
http://groups.google.com/group/it.comp.appl.access/search?group=it.comp.appl.access&q=valore+assoluto&qt_g=1&searchnow=Search+this+group
2)
abs(-5)
>
> Grazie
> GoG
Ciao,
Max


title: inserimento valore negativo

text:
Massimo Piubelli ha scritto:

Max , per quanto riguarda avere il valore assoluto nel report, ho
risolto (non ho provato ma ho trovato quello che volevo ) grazie al tuo
suggerimento : ABS([nomecampo]).
rimane il problema di memorizzare un numero digitato come positivo
nella maschera , come valore negativo es: mtto 5 nella maschera e lo
slva nella tabella come : -5
Grazie per la risposta (almeno 1 problema l'ho risolto :) )
GoG


title: inserimento valore negativo

text:
gog...@gmail.com
 wrote:
> rimane il problema di memorizzare un numero digitato come positivo
> nella maschera , come valore negativo es: mtto 5 nella maschera e lo
> slva nella tabella come : -5
Mah... il primo modo che mi viene in mente è che puoi semplicemente gestire l'evento beforeupdate del campo
if me.NomeTuoCampo > 0 then
    me.nometuocampo = me.nometuocampo * -1
end if
> Grazie per la risposta (almeno 1 problema l'ho risolto :) )
Speriamo tu abbia risolto anche la seconda.
>
> GoG
Ciao,
Max


title: Macro VBA Access XP verso SQL Server 2k

author: Denis Carraro

text:
è possibile portare 1 macro in VBA che utlizzo all'interno di un DB
Access Xp in un DB SQL Server 2k dove dovrei portare il mio DB
originario?


title: da 97 a 2000

author: RF

text:
Ciao a tutti.
Domanda forse un po' superata, ma secondo voi conviene passare da 97 a 2000
nel caso si costruiscano nuove applicazioni?
Grazie


title: da 97 a 2000

author: warp

text:
"RF" <

Forse direttamente alla versione XP...
Ciao.


title: Richiamare maschera dopo chiusura report.

text:
Buona serata a tutti,
ho letto ieri il 3D sul passaggio del nome della form chiamante attraverso
la proprietà OpenArgs. Dal momento che per i Report non esiste, come si
può ovviare per richiamare la Maschera chiamante?
Grazie e buon fine settimana,
NEMO2K
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Sergio MAZZA

text:
NEMO2K wrote:
> Buona serata a tutti,
>
> ho letto ieri il 3D sul passaggio del nome della form chiamante
> attraverso la proprietà OpenArgs. Dal momento che per i Report non
> esiste, come si può ovviare per richiamare la Maschera chiamante?
> Grazie e buon fine settimana,
>
> NEMO2K
Nell'evento "su apertura" del report inserisci:
me!mascheraChiamante =
Screen.ActiveForm.Name
Mi permetto di suggerirti un altra modalità di lavoro, ossia la maschera non
chiuderla ma nascondila (Me.Visible = False) e la rivisualizzi alla chiusura
del report:
Forms(Me!mascheraChiamante).Visible = true
Ovviamente la casella di testo (non visubile sul report) "mascheraChiamante"
contiene il nome della form (
Screen.ActiveForm.Name
)...
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:




> Ciao.
Ciao Sergio,
comincio dalla fine e cioè da uno strano fenomeno che mi cambia sempre in
minuscola la "N" della proprietà ".Name"; in un database vuoto di prova
ciò non succede.
In secondo luogo, effettivamente anch'io volevo mantenere la form
chiamante aperta, per evitare di ricaricare tutto alla chiusura del
report; volevo tentare con DoCmd.Minimize ma credo che anche il .Visible
True and False vada bene (insomma basta che non abbia la finestra sopra al
resto).
Per finire, purtroppo, non riesco ad assegnare il valore
Screen.ActiveForm.Name
 al campo che ho creato nel report: la risposta è
sempre "Errore di run-time 2448: impossibile assegnare un valore
all'oggetto".
Grazie,



author: yronium

text:

Puoi memorizzare il nome della maschera in una variabile stringa durante il
Load del report. La variabile la dichiari a livello di modulo del report.
Alla chiusura del report riapri la maschera usando la stringa come parametro
del nome.
Ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:

Mi è capitato anche a me, poi ho scoperto di aver dichiarato una variabile con lo stesso nome della proprietà...
Ciao.
--
Sergio MAZZA


text:
yronium ha scritto:
> Il 01 Ott 2004, 17:35,
naut...@ventimilaleghe.com
 (NEMO2K) ha scritto:
> > Buona serata a tutti,
> >
> > ho letto ieri il 3D sul passaggio del nome della form chiamante attraverso
> > la proprietą OpenArgs. Dal momento che per i Report non esiste, come si
> > puņ ovviare per richiamare la Maschera chiamante?
> > Grazie e buon fine settimana,
> >
> > NEMO2K
> >
> >
> > --
> >
> > questo articolo e` stato inviato via web dal servizio gratuito
> >
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
> >
> Puoi memorizzare il nome della maschera in una variabile stringa durante il
> Load del report. La variabile la dichiari a livello di modulo del report.
> Alla chiusura del report riapri la maschera usando la stringa come parametro
> del nome.
> Ciao
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
In effetti ho provato a passare ad un controllo nascosto nel report il
valore della form chiamante con ScreenActiveForm.Nome ma il programma si
rifiuta di accettarla. Tu come pensavi di passare il nome della maschera
al report?
grazie,
NEMO2K.



title: Access 2007 - barra degli strumenti personalizzata

author: Tashunka

text:
Ciao a tutti,
come si fa in Access 2007 a creare una barra degli strumenti personalizzata
e a fare in modo che compaia nel file accde (mde)?
Grazie mille
Tk


author: MA

text:

www.riolab.org
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


author: Cinzia

text:
MA wrote:
> Tashunka wrote:
>> Ciao a tutti,
>>
>> come si fa in Access 2007 a creare una barra degli strumenti
>> personalizzata e a fare in modo che compaia nel file accde (mde)?
>>
>> Grazie mille
>> Tk
>
www.riolab.org
> --
Acci MA,
una volta che dovevi indicare
www.Accessgroup.it
 indichi Riolab, non
ho ancora nulla sull'argomento su Riolab... ! -:)
http://www.accessgroup.it/index2.asp?ID=226&ID_Coll_Menu=226&Titolo=Le%20Novità%20di%20A2007
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
----------------------------------------


title: oggetto OLE

author: Angelo

text:
Il problema e' il seguente; ho creato una maschera per inserire i dati
aziendali + logo.
Tale maschera si apre automaticamnte se alla partenza del programma non
esiste nessuna azienda configurata; possiede un menu' personalizzato con
opzione Inserisci per importare immagine Ole desiderata.
Il problema e' che se la ditta non esiste e non esiste il logo e' come se
l'ozione del menu' non esistesse.
Basta inserire nella tabella un immagine e tutto va aposto.
suggerimenti ???????????
grazie.


title: oggetto OLE

author: stwe

text:
"Angelo" <
ang...@aerofiltri.it
> ha scritto nel messaggio
news:hG1Q8.121881$g04....@tornado.fastwebnet.it...

io ho messo il mio logo scrivendo che bisogna cambiarlo per personalizzarlo,
pero' leggendo meglio il post, mi sono reso conto che non ti frega nulla,
allora puoi inserire i tuoi dati comunque e verificare tramite l'istruzione
if... ...then... else che se ci sono i tuoi allora apri la maschera per
inserire quelli del cliente, altrimenti lasci perdere...
dovrebbe funzionare
by
stwe


title: problema con countdown salta i secondi

author: mario rossi

text:
ho messo nella proprietà timerinterval della form il valore 1000

richiamo poi nell'evento timer della form il codice che segue ma ho osservato attentamente il processo di countdown di 2 minuti e in alcuni casi salta i secondi

=== start code ====

Private Sub Form_Timer()
Static StartTime As Date

Dim SecondsToCount As Integer

SecondsToCount = 2 * 60  'Set this variable to the total number of seconds to count down

If Loops = 0 Then StartTime = Time

 Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
 Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
 Forms![partita]![aaaa].Caption = "Form will close in " & Min & ":" & Format(Sec, "00")
 Loops = Loops + 1

 If Forms![partita]![aaaa].Caption = "Form will close in 0:00" Then
   MsgBox "inizia la nuova partita"
 End If
End Sub

=== end code ===

qualcuno sa dirmi quale sia l'errore?


title: problema con countdown salta i secondi

text:
Avevo dato una risposta frettolosa... ma ci sono diverse cose che sono da sistemare nel tuo codice...!

Prima cosa mi sa che non dichiari le VARIABILI in modo Esplicito... tant'è che Min e Sec non sono definite da nessuna parte...

Altra cosa, non capisco perchè Calcoli ogni TIMER [SecondsToCount]... questo dipende dal Valore di Secondi(o minuti) del countDown e dal TimerInterval che imposti... quindi non lo devi ricalcolare ogni volta.
Altra cosa non AZZERI la variabile Loops
Altra cosa non ti serve fare un DateDiff con il TIME siccome sai quanto vale LOOPS e sai il peso di ogni incremento...!

In sostanza questo sotto è il tuo codice sistemato in modo da essere INDIPENDENTE dal Valore di TIMERINTERVAL, ti basta definire [MinCountDown] come costante o Variabile se credi...!

Option Compare Database
Option Explicit

Dim IntToCount As Integer
Const MinCountDown As Integer = 2

Private Sub Form_Load()
    Me.TimerInterval = 200
    IntToCount = MinCountDown * 60 * (1000 / Me.TimerInterval)
End Sub

Private Sub Form_Timer()
    Static StartTime As Date
    Static Loops As Single
    Dim Min As Integer
    Dim Sec As Integer
    Dim ElapsedTime As Integer

    If Loops = 0 Then StartTime = Time

    If Loops < IntToCount Then
        ElapsedTime = (IntToCount - Loops) * (Me.TimerInterval / 1000)
        Min = ElapsedTime \ 60
        Sec = ElapsedTime Mod 60
        Loops = Loops + 1
        Me![AAA].Caption = "Form will close in " & Min & ":" & Format(Sec, "00")
    Else
        If Me![AAA].Caption = "Form will close in 0:00" Then
            Loops = 0
            Me.TimerInterval = 0
            MsgBox "inizia la nuova partita"
        End If
    End If
End Sub

Tuttavia il problema non è che SALTA i numeri, ma il processo di TIMER_EVENTS non è ASINCRONO, ma SINCRONO al sistema... quindi non sempre le cadenze sono perfette... quindi potrai vedere momenti in cui i numeri ACCELERANO, altri in cui SALTANO, altri in cui RALLENTANO...
Access non è MultiThread... ci si accontenta...

@Alex


title: problema con countdown salta i secondi

text:

ho completamente cambiato codice e questo pare funzionare, si accettano consigli
Mp è il valore di minuti partita

su apertura della form eseguo
    Mp = 1
    secondi = 0
    Me.aaaa.Caption = Format(Mp, "00") & ":" & Format(secondi, "00")
    Mp = Mp - 1
    secondi = 60

poi su timer che ha un interval timer di 1000 eseguo quanto segue:
    If secondi > 0 Then
        secondi = secondi - 1
        Me.aaaa.Caption = Format(Mp, "00") & ":" & Format(secondi, "00")
    Else
        Mp = Mp - 1
        secondi = 59
        Me.aaaa.Caption = Format(Mp, "00") & ":" & Format(secondi, "00")
    End If
    If (Mp = 0) And (secondi = 0) Then
        Me.bbbb.Caption = "partita terminata"
        Me.TimerInterval = 0
    End If

a me funziona se qualcuno intravede qualche bug si accettano segnalazioni e consigli grazie.


title: problema con countdown salta i secondi

text:
Sei sicuro di voler suggerimenti... perché quello che ti ho detto prima non mi pare tu lo abbia colto...
In ogni caso il codice che ti ho suggerito in variazione al tuo è tecnicamente meglio se riesci a rendertene conto... ed il difetto si elimina riducendo il timerinterval.

@Alex


title: problema con countdown salta i secondi

text:

Certo che voglio consigli, ma ho preferito semplificare il codice come ho postato nell'ultimo post e pare che non salti più nemmeno i numeri adesso, magari mi sbaglio


title: problema con countdown salta i secondi

text:

quello che mi domandavo è: se io nascondo i secondi, in questo modo visivamente non si nota il difetto del salto secondi, ma alla fine del conteggio se mettoad esempio durata 3 minuti, saranno 3 minuti esatti oppure non è solo un difetto visivo e il tempo sarà ad esempio 3 minuti e 3 secondi o o 2 minuti e 58?

grazie.


title: Report vuoto

author: Milo

text:
Ciao a tutti,
ho un report collegato ad una query.
Vorrei fare in modo quando si apre il report e non vi sono dati
comparisse
un messaggio e
chiudendo il box del msg non si aprisse il report.
Ho provato a lavorare sull'evento report vuoto, ma non ottenuto grandi
risultato.
Ringrazio in anticipo
Milo


title: Report vuoto

text:
"Milo" <
miles...@iol.it
> ha scritto nel messaggio news:1132855462.2...@g44g2000cwa.googlegroups.com...

Fai prima a contare i record restituiti dalla query con la funzione DCount (vedi help).
Es.
if Dcount("*","nomeQuery") > 0 then
   ... apri il report
else
    msgbox "Non c'è nulla da stampare"
end if
Ciao.
--
Sergio MAZZA


title: Report vuoto

author: Karl Donaubauer

text:
Milo wrote:
> ho un report collegato ad una query.
>
> Vorrei fare in modo quando si apre il report e non vi sono dati
> comparisse
> un messaggio e
> chiudendo il box del msg non si aprisse il report.
>
> Ho provato a lavorare sull'evento report vuoto, ma non ottenuto grandi
> risultato.
www.donkarl.com/it
 FAQ 5.8 Evitare la stampa in assenza di dati
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Report vuoto

author: Morgan

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dm51si$vsp$1...@area.cu.mi.it...

Premesso che sono daccordo con Sergio prova questo.
Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ErrHandle
MsgBox "Non ci sono dati da stampare.", vbOKOnly + vbInformation
Cancel = True
ErrHandle:
If Err.Number = 2501 Then Exit Sub
End Sub
Morgan


title: convalida dei dati

author: singer

text:
In una sottomaschera- modalità foglio dati- vorrei impostare dei valori di
convalida degli errori:
ho due campi data che definiscono il periodo di valutazione dei miei
dipendenti
PeriodoDal - PeriodoAl
Ho fatto in modo che la data PeriodoAl sia sempre maggiore di quella
PeriodoDal. E' semplice per me
Ora vorrei che la data PeriodoDal, sia sempre maggiore della data PeriodoAl
del record precedente.
Grazie infinite
Siete sempre mitici


title: convalida dei dati

author: sv

text:
singer ha scritto:




Vedi sull'Help l'utilizzo della funzione Dmax.
--
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: convalida dei dati

text:
"sv" <
sal...@nosp.accessgroup.it
> ha scritto nel messaggio
news:d6qpnt$a9h$1...@news.newsland.it...

Sei sicuro!!!
Mi serve il valore dell'ultimo record, ovvero del penultimo, non il valore
massimo o minimo del set di record


title: convalida dei dati

text:
singer ha scritto:


Se il controllo lo effettui sull'evento "Prima di aggiornare" di
PeriodoDal,
il valore massimo del set di record si riferisce appunto al tuo penultimo
record.
Creati un controllo non associato e nell'Origine controllo scrivi:
=Dmax("PeriodoAl";"MiaTabella") e vedi cosa succede.



title: convalida dei dati

text:
"sv" <
sal...@nospaccessgroup.it
> ha scritto nel messaggio
news:d6s0m8$3kv$1...@news.newsland.it...

Non mi riesce cosi semplice e non credo di aver capito
se metto quella formula nel controllo non associato, mi restituisce la data
più alta di tutti il campo
e credo che cosi funzioni Dmax
Magari avrei bisogno di un altro aiutino


title: convalida dei dati

text:
"singer" <
fuscoa...@tin.it
> ha scritto nel messaggio news:5b4ke.1423537$35.53...@news4.tin.it...

Mhmm.. se hai inserito un campo contatore univoco potresti fare:
if PeriodoDal < CDate(DLookup("PeriodoAl","nomeTabella","id=" & me!id-1)) then
    Msgbox "Occio!!"
end if
Ciao.
--
Sergio MAZZA


title: convalida dei dati

text:
singer ha scritto:


Se a nuovo record, come hai potuto constatare la funzione DMax ti
restituisce la data più alta, puoi utilizzare l'evento "Prima di
aggiornare" del controllo PeriodoAl per impostare il tuo criterio.
Una cosa di questo genere:
Private Sub PeriodoAl_BeforeUpdate(Cancel As Integer)
If Me.PeriodoAl < DMax("PeriodoAl", "MiaTabella") Then
MsgBox "ERRORE"
Cancel=true
End If
End Sub



title: convalida dei dati

text:
"sv" <
sal...@nospaccessgroup.it
> ha scritto nel messaggio
news:d6umh1$68b$1...@news.newsland.it...

Va bene, ma c'è un piccolo problema. Cosi viene considerata la data più alta
di tutti i record che io ho nella tabella.
Necessariamente invece devo considerare la data più alta dei recordo che
fanno riferimento all'impiegato che in quel momento ho selezionato


title: convalida dei dati

text:
"singer" <
fuscoa...@tin.it
> ha scritto nel messaggio
news:vo6le.1441840$35.53...@news4.tin.it...

apposto, ho risolto. Ho aggiunto un ulteriore criterio al Dmax relativo
all'ID del personale


title: convalida dei dati

author: Napoleone

text:
"singer" <
fuscoa...@tin.it
> ha scritto nel messaggio
news:WA6le.1441987$35.53...@news4.tin.it...

... e fallo sapere a tutti !?!?!
ciao
Napoleone


title: AIUTO: backup nuovi dati

author: Jack

text:
Salve a Tutti,
premetto che posto per un amico che non possiede Internet
causa mancanza linea telefonica in altura.
Egli mi prega di chiederVi come poter eseguire un backup dei dati,
appena aggiunti od aggiornati, al termine di ogni sessione di lavoro.
Ringraziamo per ogni gradita risposta di soccorso.


title: AIUTO: backup nuovi dati

author: Fabrizio Quercia

text:
"Jack" <
cdp...@tin.it
> ha scritto nel messaggio
news:EixF9.7526$qF1.3...@news2.tin.it...
> Egli mi prega di chiederVi come poter eseguire un backup dei dati,
> appena aggiunti od aggiornati, al termine di ogni sessione di lavoro.
Per i dati appena inseriti è un po' complesso...dovresti creare una
data_movimento...
e un evento codice basato sulla data
cmq...
(facciamo la copia di tutto il db)
supponiamo di avere il database diviso in due parti (backend e frontend) -
Strumenti\Utilita' database\Dividi database...
-backend (tabelle) dal nome c:\cartella\nomebe.mdb
-frontend (maschere, query, report...) c:\cartella\nomefe.mdb
sul frontend fai un pulsante in una maschera e su clic gli generi il
seguente codice:
(ovviamente di esempio)
----------------------------------------------------------------------------
-----
Private Sub Button_Click()
If Dir("C:\cartella\nomebe_copia.mdb") <> "" Then
    'Se già c'e' lo secca...lo stronca
    Kill "C:\nomecartella\nomebe_copia.mdb"
    'Copia il file
    FileCopy "C:\cartella\nomebe.mdb", "C:\cartella\nomebe_copia.mdb"
Else
    'Copia il file
    FileCopy "C:\cartella\nomebe.mdb", "C:\cartella\nomebe_copia.mdb"
End Sub
----------------------------------------------------------------------------
-----
Cosi facendo ti crei fisicamente una copia del file nomebe.mdb chiamato
nomebe_copia.mdb (contenente magari le tabelle appunto).
Devi prima pero' chiudere tutte le maschere associate a tabelle, e lasciare
aperta magari solo quella col pulsante in questione, altrimenti ti da errore
e non copia nulla.
La soluzione è solo di esempio, quindi bisognerebbe fare un po' di gestione
errori...al limite riposta se nn riesci.
Ciao :)
(ps: spero di aver capito il tuo problema e di esserti stato di aiuto)
Fabrizio


title: AIUTO: backup nuovi dati

author: Beat

text:
> Per i dati appena inseriti č un po' complesso...dovresti creare una
> data_movimento...
> e un evento codice basato sulla data
>
> cmq...
>
> (facciamo la copia di tutto il db)
>
> supponiamo di avere il database diviso in due parti (backend e frontend) -
> Strumenti\Utilita' database\Dividi database...
>
> -backend (tabelle) dal nome c:\cartella\nomebe.mdb
> -frontend (maschere, query, report...) c:\cartella\nomefe.mdb
>
> sul frontend fai un pulsante in una maschera e su clic gli generi il
> seguente codice:
> (ovviamente di esempio)
> --------------------------------------------------------------------------
--
> -----
> Private Sub Button_Click()
>
> If Dir("C:\cartella\nomebe_copia.mdb") <> "" Then
>
>     'Se giŕ c'e' lo secca...lo stronca
>     Kill "C:\nomecartella\nomebe_copia.mdb"
>     'Copia il file
>     FileCopy "C:\cartella\nomebe.mdb", "C:\cartella\nomebe_copia.mdb"
>
> Else
>
>     'Copia il file
>     FileCopy "C:\cartella\nomebe.mdb", "C:\cartella\nomebe_copia.mdb"
>
> End Sub
> --------------------------------------------------------------------------
--
> -----
>
> Cosi facendo ti crei fisicamente una copia del file nomebe.mdb chiamato
> nomebe_copia.mdb (contenente magari le tabelle appunto).
>
> Devi prima pero' chiudere tutte le maschere associate a tabelle, e
lasciare
> aperta magari solo quella col pulsante in questione, altrimenti ti da
errore
> e non copia nulla.
>
> La soluzione č solo di esempio, quindi bisognerebbe fare un po' di
gestione
> errori...al limite riposta se nn riesci.
>
> Ciao :)
> (ps: spero di aver capito il tuo problema e di esserti stato di aiuto)
>
> Fabrizio
>
>
Ciao Fabrizio,
dicendo che sei stato gentilissimo č certamente poco!
Io non ho capito alcunchč perchč, pur interessandomi, non mi sono
ancora applicato con Access, ma spero che il mio amico possa
trarre beneficio e, magari, circostanziare meglio il quesito.
Se cosě sarŕ riposterň e lo illuminerai meglio.
Grazie ancora.
Jack


title: AIUTO: backup nuovi dati

text:
"Beat" <
cdp...@tin.it
> ha scritto nel messaggio
news:N8BF9.7864$qF1.3...@news2.tin.it...
> Ciao Fabrizio,
> dicendo che sei stato gentilissimo è certamente poco!
> Io non ho capito alcunchè perchè, pur interessandomi, non mi sono
> ancora applicato con Access, ma spero che il mio amico possa
> trarre beneficio e, magari, circostanziare meglio il quesito.
> Se così sarà riposterò e lo illuminerai meglio.
certo :) se non ci raccapezza nulla cerco di aiutarti diversamente ok? basta
che riscrivi qui.
Ciao :)


title: visualizzazione e stampa piè di pagina gruppo solo se diverso da 0 o null

author: Giuseppe

text:
Buonasera a tutti.
E' possibile in un report visualizzare e stampare i controlli del piè di pagina di un raggruppamento solo se il totale del controllo è maggiore di 0 o diverso da Null?
Grazie.
Giuseppe.


text:
Giuseppe wrote:
> E' possibile in un report visualizzare e stampare i controlli del pi�
> di pagina di un raggruppamento solo se il totale del controllo �
> maggiore di 0 o diverso da Null?

S�. Nell'evento "Su formattazione" della sezione pi� di pagina di un
raggruppamento puoi controllare il valore e gestire la sua visibilit�
o anche la visibilit� dell'intera sezione.

Se non riesci mostra cosa hai provato.

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


title: help codice troppo lungo

author: guggenheim

text:
ho sto cacchio di codice:
SELECT porz_dimp_sezionata_dettagliata.caratt2,
[a-anagr-caratt2].[descrizione-caratt2] FROM
(porz_dimp_sezionata_dettagliata INNER JOIN attivitàanalitica ON
porz_dimp_sezionata_dettagliata.porzdimp=attivitàanalitica.porzionedimpianto
) LEFT JOIN [a-anagr-caratt2] ON
porz_dimp_sezionata_dettagliata.caratt2=[a-anagr-caratt2].[cod-caratt2]
GROUP BY porz_dimp_sezionata_dettagliata.caratt2,
[a-anagr-caratt2].[descrizione-caratt2], attivitàanalitica.attivita,
attivitàanalitica.porzionedimpianto,
porz_dimp_sezionata_dettagliata.sezdimp,
porz_dimp_sezionata_dettagliata.caratt1 HAVING
(((attivitàanalitica.attivita)=Forms![progetto-t]![progetto-d].Form!attività
) And
((attivitàanalitica.porzionedimpianto)=Forms![progetto-t]![progetto-d].Form!
[porzione-impianto]) And
((porz_dimp_sezionata_dettagliata.sezdimp)=Forms![progetto-t]![progetto-d].F
orm![progetto-d2].Form!sezionedimpianto) And
((porz_dimp_sezionata_dettagliata.caratt1)=Forms![progetto-t]![progetto-d].F
orm![progetto-d2].Form!caratt1)) ORDER BY
[a-anagr-caratt2].[descrizione-caratt2];
tutto su una riga non ci sta come faccio ad andare a capo mentre scrivo il
codice?
Grazie........


title: help codice troppo lungo

text:
"guggenheim" <
gugge...@iol.it
> ha scritto nel messaggio
news:cau87d$9he$1...@balena.cs.interbusiness.it...

"SELECT porz_dimp_sezionata_dettagliata.caratt2," & _
"[a-anagr-caratt2].[descrizione-caratt2] FROM " & _
"(porz_dimp_sezionata_dettagliata INNER JOIN attivitàanalitica ON" etc......
Caio e fammi sapere


title: help codice troppo lungo

text:
"Giovanni_A" <
artig...@deejaymail.it
> ha scritto nel messaggio
news:AGxAc.43461$G%.40721@tornado.fastwebnet.it...

________________________________________
Funziona
Mille grazie ;-)


title: da query a vba

text:
ciao.
Ho creato una query che per essere eseguita chiede all'utente di
inserire due nomi...il tutto voglio metterla in una maschera.alla query
ho già detto i campi della maschera che dovrà considerare....ma come
faccio a farla funzionare?cosa devo scrivere in vba?
il secondo problema è quello che i rusultati vengono visualizzati in
una casella di riepilogo:c'è un modo per far si che cliccando sopra
alle varie righe della casella,per esempio venga lanciata
un'applicazione come la stampa?però solo della riga che seleziono...
grazie


title: da query a vba

author: Paolo Dal Bosco

text:
    DoCmd.OpenQuery "NomeQuery", acNormal, acEdit
Ciao
Paolo
<
cri...@vodafone.it
> ha scritto nel messaggio
news:1156098144.9...@b28g2000cwb.googlegroups.com...



title: da query a vba

author: Roberto dal portatile

text:
<
cri...@vodafone.it
> ha scritto nel messaggio
news:1156098144.9...@b28g2000cwb.googlegroups.com...

Per visualizzare i risultati della tua query in una casella di riepilogo è
sufficiente indicare il nome della query come origine riga della casella di
riepilogo: naturalmente la maschera che contiene i parametri di selezione
della query deve risultare aperta.
Per l'altro problema genera a fronte dell'evento "Su clic" della casella di
riepilogo alcune righe di codice VBA attraverso le quali richiedi
l'esecuzione del report che ti interessa usando il metodo OpenReport (vedi
help): naturalmente filtrerai i dati da visualizzare nel report tramite
l'argomento condizioneWHERE (vedi help) del metodo OpenReport usando i
parametri contenuti nella riga della casella di riepilogo selezionata con il
mouse.
>grazie
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: da query a vba

text:
ho provato con
    DoCmd.OpenQuery "NomeQuery", acNormal, acEdit
associato al clic del pulsante ma non funziona...
Ho provato anche solo mettere come origine riga alla casella di
riepilogo il nome della query...nulla anche quello.Ovviamente la
maschera è composta dai due campi,dal pulsante che lancia la ricerca e
dalla casella di riepilogo


title: finestra database access

author: Gian

text:
ciao a tutti,
è possibile aprire una maschera a tutto schermo senza visualizzare la barra
del titolo di Access?
Grazie
Gian


title: finestra database access

author: Carlo Costarella

text:
"Gian" <gia...@NONPIUlibero.it> ha scritto nel messaggio
news:Fkurh.9191$bH4....@tornado.fastwebnet.it...
> ciao a tutti,
> č possibile aprire una maschera a tutto schermo senza visualizzare la
> barra del titolo di Access?
> Grazie
> Gian
>
>
Docmd.Maximize su apertura della maschera.
Questo argomento č stato trattato moltissime volte e ci possono essere
approcci diversi.
Sul sito di Alex trovi anche degli esempi utilizzando le API.
Ciao, Carlo


title: finestra database access

author: PBsoft

text:
> è possibile aprire una maschera a tutto schermo senza visualizzare la
> barra del titolo di Access?
http://groups.google.com/group/it.comp.appl.access/msg/382eb9a01052d409
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: aiuto

author: io

text:
Gentilissimi Signori,
chiedo la vostra cortese attenzione per risolvere un problema.
Lavoravo con A2000 e ora sono passato a XP, ma con sommo dispiacere il d.b.
creato in A 2000 da delle problematiche.
La piu' noiosa e' la seguente:
Maschera ordini con sottomaschera per selezionare prodotti in magazzino.
Inserisco tramite una casella combinata prima il cliente e poi il venditore
e fin qui tutto ok. A questo punto passo alla sottomaschera per selezionare
il prodotto venduto ma si blocca il d.B mi fa il backup automatico e si
spegne.
Riapro il D.B e a questo punto rientro nell'ordine compilato a metą e mi
permette di selezionare il prodotto.
Cosa sarą???
Grazie per l'attenzione
Roberto


title: aiuto

author: Antonio Biso

text:
"io" <
marina.c...@tin.it
> ha scritto nel messaggio
news:7Rbv8.29421$vF6.9...@news2.tin.it...
Ottimo subject, molto pregno!!!
Antonio


title: aiuto

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:svdv8.47851$SR5.1...@twister1.libero.it...

> dai dammi una mano


title: aiuto

text:
"io" <
marina.c...@tin.it
> ha scritto nel messaggio
news:shgv8.30834$vF6.9...@news2.tin.it...

Non ho neanche letto il tuo messaggio: prova a ripostarlo con un subject più
significativo!
Antonio


title: espandere in altezza una casella di testo memo di una maschera, in relazione al testo digitato allinterno

author: Bruno - S95

text:
Access 2002/2003
Ciao, ecco un'altro ?
Qualcuno conosce ho ha un'idea su come far espandere in altezza una casella
di testo memo inserita in una form, in funzione del testo digitato
all'interno.
Considerate che la casella fa parte di un record con altri due campi, uno
dei quali e un campo data/Orario. Per meglio chiarire, nell'inserire i
record, che possono essere 2 come 5 o piů, il contenuto scritto deve restare
a vista. se si tratasse di un unico record la soluzione sarebbe stata
inserire una casella grande quanto necessario, purtroppo non č cosě.
Grazie
Bruno


title: query di aggiornamento aggiornar eil campo stesso

author: Arold

text:
Ho una query di aggiornamento con un solo campo PREZZO di tipo valuta euro
eseguendo la query vorrei aggiornare il campo stesso al suo valore + 20% Iva
es il campo originario contiene
10   Euro dopo la query si aggiorna a 12
100 Euro dopo la query si aggiorna a 120
O messo in criteri (prezzo*0.2)+prezzo ma me lo mette con gli apici come
fosse una stringa
anzichč considerarlo come il campo stesso.
mi sapete aiutare?
Grazie.


author: omnitow

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bathd1$177$1...@lacerta.tiscalinet.it...

Da quello che scrivi, e se ho capito bene, sembrerebbe che il campo "prezzo" non sia un
campo appartenente ad una tabella origine della select.
Se hai ancora problemi posta la struttura della tabella interessata e la query che hai
scritto...


author: MA

text:
Il 26 Mag 2003, 19:40, "omnitow" <
omn...@tin.it
> ha scritto:
>
> "Arold" <
simb...@libero.it
> ha scritto nel messaggio
> news:bathd1$177$1...@lacerta.tiscalinet.it...
> > Ho una query di aggiornamento con un solo campo PREZZO di tipo valuta
euro
> >
> > eseguendo la query vorrei aggiornare il campo stesso al suo valore + 20%
Iva
> >
> > es il campo originario contiene
> >
> > 10 Euro dopo la query si aggiorna a 12
> > 100 Euro dopo la query si aggiorna a 120
> >
> > O messo in criteri (prezzo*0.2)+prezzo ma me lo mette con gli apici come
> > fosse una stringa
> > anzichč considerarlo come il campo stesso.
Se ai messo (prezzo*0,2), ai sbagliato, hal limite e 1.2, č comunque devi
hinserire [prezzo]*1.2
Ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


text:
>
> Da quello che scrivi, e se ho capito bene, sembrerebbe che il campo
"prezzo" non sia un
> campo appartenente ad una tabella origine della select.
> Se hai ancora problemi posta la struttura della tabella interessata e la
query che hai
> scritto...
>
ecco il codice SQl
UPDATE ListinoGiochi SET ListinoGiochi.PREZZO = [ListinoGiochi.PREZZO]*1.2
WHERE (((ListinoGiochi.PREZZO)<>""));
prezzo è un campo della tabella origine
cosa sbaglio?


author: George

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bathd1$177$1...@lacerta.tiscalinet.it...

Forse perchč non devi metterlo in *Criteri* ma in *Aggiorna a*?
fai cosě:
crea la query in visualizzazione struttura
includi la tabella che vuoi aggiornare
vai sul menů query e imposta *Query di aggiornamento*
seleziona in griglia il campo che vuoi aggiornare
in *aggiorna a* inserisci la formula
Ciao


text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:batlci$44e$1...@lacerta.tiscalinet.it...
> >
> > Da quello che scrivi, e se ho capito bene, sembrerebbe che il campo
> "prezzo" non sia un
> > campo appartenente ad una tabella origine della select.
> > Se hai ancora problemi posta la struttura della tabella interessata e la
> query che hai
> > scritto...
> >
>
> ecco il codice SQl
>
> UPDATE ListinoGiochi SET ListinoGiochi.PREZZO = [ListinoGiochi.PREZZO]*1.2
non [ListinoGiochi.PREZZO] ma [ListinoGiochi].[PREZZO] o semplicemente
ListinoGiochi.PREZZO
> WHERE (((ListinoGiochi.PREZZO)<>""));
e anche qui:
WHERE (((ListinoGiochi.PREZZO)<>""));
>
>
> prezzo è un campo della tabella origine
> cosa sbaglio?
>
>
Bye


title: Conflitto tra COMCTL e MSCOMCTL in ACCESS '97

author: Alessandro Markic

text:
Quando vi sono questi controlli nello stesso .MDA non riesco a creare il
file .MDE.
ringrazio per l'aiuto.
Alessandro


title: Etichetta = uno specifico record

author: Claudio

text:
Salve a tutti
Forse la mia richiesta rasenta la follia.....cmq io ci provo
vorrei provare a mettere come etichetta di un pulsante il contenuto di un
campo
esempio
Pulsante1= Campo1
Pulsante2= Campo1(secondo record)
Pulsante3= Campo1(terzo recor)
ecc.
Se non posso scrivere cos' l'etichetta di un campo, come posso far puntare
un record specifico eventualmente su una casella di testo??
spero sia stato chiaro
Grazie
Claudio


title: Etichetta = uno specifico record

author: ALESSANDRO Baraldi

text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:ktBCb.87360$AX1.3...@news1.tin.it...
>
> "Claudio" <
cre...@tiscali.it
> ha scritto nel messaggio
> news:5tACb.202983$hV.77...@news2.tin.it...

> devi fare una funzione all'apertura della maschera che legge la tabella
> string (ad esempio)
> e poi associ la stringa che vuopi alla propietą caption del bottone.
> ti posto un esempio
> la tabella string č composta da codice e messaggio .
> Nel seguente esempio do anche la propietą controll tiptex per spiegare la
> funzione dei bottoni.
>
>
> Dim dbmiodb As Database, rsStringRS As Recordset, longstr As Long, a As
> Long, tptxValut As String
> Dim Lez As String, compmal As String, esp As String, grap As String, cons
As
> String, Valut As String
> Dim selcon As String, txtLez As String, txtcompmal As String, txtesp As
> String, txtgrap As String, txtCons As String
> Dim txtselcon As String, txtjunior As String, txtsenior As String, Esam As
> String, tptxEsam As String
> Dim titolo As String, ErrDrv As String, tptxClose As String, ImLez As
> String, ImLezTpTx As String
> Dim junior As String, senior As String
> Set dbmiodb = CurrentDb
> Set rsStringRS = dbmiodb.OpenRecordset("STRING")
> rsStringRS.MoveLast
> longstr = rsStringRS.RecordCount
> rsStringRS.MoveFirst
> For a = 1 To longstr
> Select Case rsStringRS![number]
>     Case 18
>          Esam = rsStringRS![messag]
>     Case 77
>          Valut = rsStringRS![messag]
>     Case 192
>          tptxEsam = rsStringRS![messag]
>     Case 211
>          tptxValut = rsStringRS![messag]
>     Case 233
>          tptxClose = rsStringRS![messag]
>     Case 239
>          titolo = rsStringRS![messag]
>     Case 329
>          junior = rsStringRS![messag]
>     Case 330
>          senior = rsStringRS![messag]
>     Case 413
>          Lez = rsStringRS![messag]
>     Case 414
>          compmal = rsStringRS![messag]
>     Case 415
>          esp = rsStringRS![messag]
>     Case 416
>          grap = rsStringRS![messag]
>     Case 417
>          cons = rsStringRS![messag]
>     Case 418
>          selcon = rsStringRS![messag]
>     Case 409
>          txtLez = rsStringRS![messag]
>     Case 428
>          txtcompmal = rsStringRS![messag]
>     Case 427
>          txtesp = rsStringRS![messag]
>     Case 429
>          txtgrap = rsStringRS![messag]
>     Case 426
>          txtCons = rsStringRS![messag]
>     Case 430
>          txtselcon = rsStringRS![messag]
>     Case 431
>          txtjunior = rsStringRS![messag]
>     Case 432
>          txtsenior = rsStringRS![messag]
>     Case 448
>          ErrDrv = rsStringRS![messag]
>     Case 451
>          ImLez = rsStringRS![messag]
>     Case 452
>          ImLezTpTx = rsStringRS![messag]
> End Select
> rsStringRS.MoveNext
> Next a
>
> Me.Caption = titolo
> Me!Comando0.Caption = Lez
> Me!Comando1.Caption = compmal
> Me!Comando7.Caption = esp
> Me!Command6.ControlTipText = tptxClose
> Me!Comando2.Caption = grap
> Me!Comando8.Caption = cons
> Me!Comando9.Caption = selcon
> Me!Comando27.Caption = Esam
> Me!Command30.Caption = Valut
> Me!Comando0.ControlTipText = txtLez
> Me!Comando1.ControlTipText = txtcompmal
> Me!Comando7.ControlTipText = txtesp
> Me!Comando2.ControlTipText = txtgrap
> Me!Comando8.ControlTipText = txtCons
> Me!Comando9.ControlTipText = txtselcon
> Me!Comando27.ControlTipText = tptxEsam
> Me!Command30.ControlTipText = tptxValut
> Me!Etichetta14.ControlTipText = txtjunior
> Me!Opzione13.ControlTipText = txtjunior
> Me!Opzione15.ControlTipText = txtsenior
> Me!Etichetta16.ControlTipText = txtsenior
>
> Me!Etichetta14.Caption = junior
> Me!Etichetta16.Caption = senior
> Me!LezImage.Caption = ImLez
> Me!LezImage.ControlTipText = ImLezTpTx
>
> Stefano (kabisa)
Stefano caro hai mai pensato di ottimizzare questi, pur sempre funzionanti,
macigni di codice con dei bellissimi cicli di 2 righe sulla collection
Controls
approfittando della proprietą TAG dei controlli......!!!
;-)
E' Natale devo essere + buono ma non ci riesco, sono incazzato
perchč sono sempre al lavoro.....!!
Ciao.
@Alex.


title: Etichetta = uno specifico record

author: cidi

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:brf581$o66$1...@lacerta.tiscalinet.it...
>
> "stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
> news:ktBCb.87360$AX1.3...@news1.tin.it...
> >
> Stefano caro hai mai pensato di ottimizzare questi, pur sempre
funzionanti,
> macigni di codice con dei bellissimi cicli di 2 righe sulla collection
> Controls
> approfittando della proprietà TAG dei controlli......!!!
>
> ;-)
>
> E' Natale devo essere + buono ma non ci riesco, sono incazzato
> perchè sono sempre al lavoro.....!!
...e ti pare una buona scusa per non essere più buono a Natale?
Puoi riuscirci, non sei nella lista dei CATTIVI, basta ancora un pochino di
buona volontà. Magari pensando a chi è veramente incazzato perchè non ha
lavoro, oppure a certi pensionati, che postano in questo NG, perchè non
hanno altro da fare, che cercare di tirar su il morale a certi giovanotti
:-)
> Ciao.
> @Alex.
>
Pace e bene
Daniele


title: Etichetta = uno specifico record

text:
"cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio
news:oQFCb.204725$hV.78...@news2.tin.it...
[CUT]
> > E' Natale devo essere + buono ma non ci riesco, sono incazzato
> > perchè sono sempre al lavoro.....!!
>
> ...e ti pare una buona scusa per non essere più buono a Natale?
> Puoi riuscirci, non sei nella lista dei CATTIVI, basta ancora un pochino
di
> buona volontà. Magari pensando a chi è veramente incazzato perchè non ha
> lavoro, oppure a certi pensionati, che postano in questo NG, perchè non
> hanno altro da fare, che cercare di tirar su il morale a certi giovanotti
> :-)
> Pace e bene
> Daniele
He..He......!
Bella l'allusione.....!
Tutto vero quello che dici, la mia era solo una battuta per alleggerire
la tirata d'orecchie....!
P.S. Sono stato inserito nel Registro dei CATTIVI già da molto, si parla
dell'anno passato, e non vorrai farmi perdere posizioni.....!!!!!!
Ciao.
@Alex.


title: Etichetta = uno specifico record

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:brfh5q$4oh$1...@lacerta.tiscalinet.it...

Si ...ricordo eri il primo nella lista fatta da A. Cara, a proposito è un
pezzo che non posta, spero che stia bene e si faccia risentire presto.
Per quanto riguarda la classifica dei cattivi ...visto che siamo a Natale,
considerati i tuoi buoni propositi non sarà facile mantenere inalterata la
classifica :))
> Ciao.
> @Alex.
>
>
Ciao Daniele


title: Etichetta = uno specifico record

author: stefano (kabisa)

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:brf581$o66$1...@lacerta.tiscalinet.it...
>
> "stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
> news:ktBCb.87360$AX1.3...@news1.tin.it...
> >
> > "Claudio" <
cre...@tiscali.it
> ha scritto nel messaggio
> > news:5tACb.202983$hV.77...@news2.tin.it...
> > > Salve a tutti
> > > Forse la mia richiesta rasenta la follia.....cmq io ci provo
> > > vorrei provare a mettere come etichetta di un pulsante il contenuto di
> un
> > > campo
> > > esempio
> > >
> > > Pulsante1= Campo1
> > > Pulsante2= Campo1(secondo record)
> > > Pulsante3= Campo1(terzo recor)
> > > ecc.
> > >
> > > Se non posso scrivere cos' l'etichetta di un campo, come posso far
> puntare
> > > un record specifico eventualmente su una casella di testo??
> > > spero sia stato chiaro
> > >
> > > Grazie
> > > Claudio
> > >
> > >
> >
> > devi fare una funzione all'apertura della maschera che legge la tabella
> > string (ad esempio)
> > e poi associ la stringa che vuopi alla propietà caption del bottone.
> > ti posto un esempio
> > la tabella string è composta da codice e messaggio .
> > Nel seguente esempio do anche la propietà controll tiptex per spiegare

> approfittando della proprietà TAG dei controlli......!!!
>
> ;-)
>
> E' Natale devo essere + buono ma non ci riesco, sono incazzato
> perchè sono sempre al lavoro.....!!
>
> Ciao.
> @Alex.
>
Si lo avevo anche fatto, ma dal momento che spesso devo controllare il codi
ce di inserimento stringa (il numerino) per impostare dei parametri tipo
dimensione carattere, tipo di lettura (destra--> sinistra) o sinistra-->
destra) tipo di ordinamento (occidentale, Thai, cinese)
sono tornato al vecchio metodo,  grande Macigno, ma facile da scalare.
Grazie per il consiglio
Stefano (kabisa)


title: analisi proprietà dei campi di un database

author: Sandrobi

text:
Come posso fare per visualizzare e stampare tutte le proprietą di ogni
songolo campo di una Tabella. Con l'oggetto Field di Tabledef riesco a
vederne solo alcune. E' lo stesso che riesco a fare con varie funzioni che
ho visto su Sitocomune.
In pratica non riesco  a leggere via codice (ma solo in modalitą struttura)
queste proprietą:
Format
DecimalPlaces
InputMask
Caption
Validation Rule
ValidationText
e gli altri che č possibile impostare in modalitą struttura o via codice.
Che cos'č il codice Attributo?
Grazie. Sandro


title: La stampante predefinita non si attiva

text:
Devo salvare un report con PdfCreator impostando da VBA PdfCreator come
stampante predefinita.
In genere funziona, ma su qualche computer (Win2000 o WinXP) non vuole
saperne sia usando le API sia con WScript.
Ho testato a fondo il codice: metto un msgbox dopo aver impostato la nuova
stampante predefinita; apro Stampanti e Fax e PdfCreator risulta
predefinita; vado avanti, esegue il DoCmd Openreport ma stampa sulla vecchia
stampante predefinita.
Sembra che il DoCmd.OpenReport non riconosca la nuova stampante predefinita.
Prima del DoCmd ho aggiunto anche un DoEvents e uno Sleep(3000) ma nulla.
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam


title: La stampante predefinita non si attiva

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:44d24a61$0$30245$4faf...@reader1.news.tin.it...
> Devo salvare un report con PdfCreator impostando da VBA PdfCreator come
> stampante predefinita.
> In genere funziona, ma su qualche computer (Win2000 o WinXP) non vuole
> saperne sia usando le API sia con WScript.
> Ho testato a fondo il codice: metto un msgbox dopo aver impostato la nuova
> stampante predefinita; apro Stampanti e Fax e PdfCreator risulta
> predefinita; vado avanti, esegue il DoCmd Openreport ma stampa sulla
> vecchia
> stampante predefinita.
> Sembra che il DoCmd.OpenReport non riconosca la nuova stampante
> predefinita.
> Prima del DoCmd ho aggiunto anche un DoEvents e uno Sleep(3000) ma nulla.
>
> --
> Ciao, Sandrobi
> ------------------
 Accertati che il report abbia impostato la stampante predefinita e non
"Stampante specifica".
Quale codice usi per impostare la predefinita?
Ciao, Carlo


title: La stampante predefinita non si attiva

text:
> > Devo salvare un report con PdfCreator impostando da VBA PdfCreator come
> > stampante predefinita.
> > In genere funziona, ma su qualche computer (Win2000 o WinXP) non vuole
> > saperne sia usando le API sia con WScript.
> > Ho testato a fondo il codice: metto un msgbox dopo aver impostato la
nuova
> > stampante predefinita; apro Stampanti e Fax e PdfCreator risulta
> > predefinita; vado avanti, esegue il DoCmd Openreport ma stampa sulla
> > vecchia
> > stampante predefinita.
> > Sembra che il DoCmd.OpenReport non riconosca la nuova stampante
> > predefinita.
> > Prima del DoCmd ho aggiunto anche un DoEvents e uno Sleep(3000) ma
nulla.
> >
>
>  Accertati che il report abbia impostato la stampante predefinita e non
> "Stampante specifica".
> Quale codice usi per impostare la predefinita?
    SetDefaultPrinter ("PDFCreator,winspool,Ne01:")
Oppure:
    Dim StampaSu As String
    Dim objWSHNet, objStampante, ciclo As Integer
    Set objWSHNet = CreateObject("WScript.Network")
    Set objStampante = objWSHNet.EnumPrinterConnections
    If objStampante.Count > 0 Then
     For ciclo = 0 To objStampante.Count - 1
      If InStr(objStampante.Item(ciclo + 1), "pdfcreator") Then StampaSu =
objStampante.Item(ciclo + 1)
      ciclo = ciclo + 1
     Next
    End If
    objWSHNet.SetDefaultPrinter StampaSu
    'stampo il report
     DoCmd.OpenReport Rep, acViewNormal
Ciao, Sandrobi


title: La stampante predefinita non si attiva

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:44d34038$0$47958$4faf...@reader3.news.tin.it...
cut
>> Quale codice usi per impostare la predefinita?
>
>    SetDefaultPrinter ("PDFCreator,winspool,Ne01:")
>
> Oppure:
>    Dim StampaSu As String
>    Dim objWSHNet, objStampante, ciclo As Integer
>    Set objWSHNet = CreateObject("WScript.Network")
>    Set objStampante = objWSHNet.EnumPrinterConnections
>
>    If objStampante.Count > 0 Then
>     For ciclo = 0 To objStampante.Count - 1
>      If InStr(objStampante.Item(ciclo + 1), "pdfcreator") Then StampaSu =
> objStampante.Item(ciclo + 1)
>      ciclo = ciclo + 1
>     Next
>    End If
>    objWSHNet.SetDefaultPrinter StampaSu
>
>    'stampo il report
>     DoCmd.OpenReport Rep, acViewNormal
>
> Ciao, Sandrobi
>
Il report ha impostato la stampante predefinita e non
"Stampante specifica"?
Ciao, Carlo


title: La stampante predefinita non si attiva

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:eavg0v$deh$1...@area.cu.mi.it...

Si, certo.
Non potrebbe essere altrimenti per poter stampare su qualsiasi pc e
qualsiasi stampante.
Sandrobi


title: La stampante predefinita non si attiva

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:44d3aa88$0$35070$4faf...@reader4.news.tin.it...
cut
>> Il report ha impostato la stampante predefinita e non
>> "Stampante specifica"?
>
> Si, certo.
> Non potrebbe essere altrimenti per poter stampare su qualsiasi pc e
> qualsiasi stampante.
>
> Sandrobi
>
>
Non è che nelle stampanti virtuali devi omettere i due punti?
SetDefaultPrinter ("PDFCreator,winspool,Ne01")
Ciao, Carlo


title: campi uniti in tabella

text:
In una tabella che ha i campi Nome Cognome NomeCognome si può fare in modo
che immettendo i dati nei primi due campi il secondo automaticamente li
unisca? Come in una query Cognome&" "&Nome?
grazie


title: campi uniti in tabella

text:
"lory22" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:48e87e9a$0$11374$5fc...@news.tiscali.it...
> In una tabella che ha i campi Nome Cognome NomeCognome si puň fare in modo
> che immettendo i dati nei primi due campi il secondo automaticamente li
> unisca? Come in una query Cognome&" "&Nome?
> grazie
>
Usando (aprendo) una tabella non puoi. Usando un query, che nella
visualizzazione non differisce da una tabella, sě...esattamente come hai
detto:
un campo impostato a [CampoCognome] &" "& [CampoNome]
Ciao, Carlo


title: Calcolare una semplice formula

author: RobertoAcc

text:
Salve riformulo il quesito di ieri:
Ho creato in una maschera 3 caselle di testo:
-Base
-Altezza
-Area
poi ho creato un pulsante chiamato
-Calcola
poi nella maschera ho inserito il codice:
*********************************************************************************************
Private Function calcolaArea() 'Funzione che calcola l'area di un
rettangolo
Dim base As Integer
Dim Altezza As Integer
calcolaArea = base * Altezza
End Function
**********************************************************************************************
Private Sub Calcola_Click()	'Pulsante che richiama, calcola e visualizza
il risultato
Me.Area = calcolaArea()
End Sub
*********************************************************************************************
Il problema è quando inserisco due numeri in [base e [altezza] e premo sul
pulsante come risultato mi da
ZERO.
Qualcuno mi sa dire dove sbaglio io non so.
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Calcolare una semplice formula

author: fidirico (lavoro)

text:
"RobertoAcc" <
salzi...@yahoo.it
> ha scritto nel messaggio
news:c6594a$6dr$1...@news.newsland.it...
> Salve riformulo il quesito di ieri:
>
> Ho creato in una maschera 3 caselle di testo:
>
> -Base
> -Altezza
> -Area
>
> poi ho creato un pulsante chiamato
>
> -Calcola
>
> poi nella maschera ho inserito il codice:
>
>
****************************************************************************
*****************
> Private Function calcolaArea() 'Funzione che calcola l'area di un
> rettangolo
> Dim base As Integer
> Dim Altezza As Integer
> calcolaArea = base * Altezza
> End Function
>
****************************************************************************
******************
> Private Sub Calcola_Click() 'Pulsante che richiama, calcola e visualizza
> il risultato
> Me.Area = calcolaArea()
> End Sub
>
****************************************************************************
*****************
>
> Il problema č quando inserisco due numeri in [base e [altezza] e premo sul
> pulsante come risultato mi da
>
> ZERO.
>
> Qualcuno mi sa dire dove sbaglio io non so.
>
> Ciao
Nella funzione CalcolaArea dichiari e moltiplichi fra loro due variabili che
non hanno nulla a che fare con i controlli che contengono i valori; prova
cosě:
Private Function calcolaArea()
     calcolaArea = Me.base * Me.Altezza
 End Function
Oppure, se vuoi comunque usare le variabili:
Private Function calcolaArea()
    Dim Miabase As Integer
    Dim MiaAltezza As Integer
    MiaBase = Me.Base
    MiaAltezza = Me.Altezza
    calcolaArea = Miabase * MiaAltezza
End Function
Ciao
Galliano.


title: Calcolare una semplice formula

author: Sergio MAZZA

text:
"RobertoAcc" <
salzi...@yahoo.it
> ha scritto nel messaggio
news:c6594a$6dr$1...@news.newsland.it...

E mi meravigliavo del contrario, non gli passi nessun valore alla funzione;
hai letto l'help in linea alla voce: Scrittura di una routine Function?
Non hai letto tutto il mio suggerimento?
Perché la funzione l'hai dichiarata Private?
Ciao.
--
Sergio MAZZA


title: Calcolare una semplice formula

text:
fidirico (lavoro) ha scritto:





> Ciao
> Galliano.
Si č ok funziona !
un ultima cosa ho provato ad inserire un msgbox nel caso i campi [base] e
[altezza] siano vuoti:
*************************************************************************
Private Sub Calcola_Click() 'Pulsante che richiama, calcola e visualizz il
risultato
if isnull Miabase or Miabase="" then
  msgbox "il campo base non puň essere vuoto"
me.base.setfocus
  end if
if isnull MiaAltezza or MiaAltezza="" then
  msgbox "il campo Altezza non puň essere vuoto"
me.altezza.setfocus
  end if
Me.Area = calcolaArea()
End Sub
******************************************************************
Ma non funziona bene dove erro ? forse sbaglio dove inserisco gli if cioč
non deve stare in :
Private Sub Calcola_Click()



title: Calcolare una semplice formula

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c65c8p$b7o$1...@canarie.caspur.it...
> "RobertoAcc" <
salzi...@yahoo.it
> ha scritto nel messaggio
> news:c6594a$6dr$1...@news.newsland.it...
> > Salve riformulo il quesito di ieri:
[CUT]
> E mi meravigliavo del contrario, non gli passi nessun valore alla
funzione;
> hai letto l'help in linea alla voce: Scrittura di una routine Function?
> Non hai letto tutto il mio suggerimento?
> Perché la funzione l'hai dichiarata Private?
>
> Ciao.
>
> --
> Sergio MAZZA
Sergio, ti chiedo scusa ma il thread precedente mi era sfuggito. Se lo
avessi visto mi sarei ben guardato dall'intervenire, visto che avevi già
risposto in maniera più che esauriente (come al solito). Se c'è una cosa che
non sopporto è chi cerca la pappa pronta, lasciando agli altri lo studio e
il lavoro.
Ciao
Galliano.


title: Calcolare una semplice formula

text:
"fidirico (lavoro)" <
oma-togl...@libero.it
> ha scritto nel messaggio
news:rruhc.14930$Qc.5...@twister1.libero.it...

Ma figurati! Non era nelle mie intezioni e me ne guarderei bene dal
redarguire chi sta aiutando qualcuno; non ne ho l'autorità e non mi
interessa averla.
Volevo solo far notare a RobertoAcc che non è nella "netiqhette" reinviare
il messaggio quando qualcuno ha già risposto al suo precedente.
Quindi tu non centri nulla...
Ciao e buon lavoro.
--
Sergio MAZZA


title: Visualizzazione di un campo calcolato

author: Bobbygol

text:
E' un po' che non ricorro ai vostri suggerimenti (qualcosa ho pure imparato)
ma questa volta ho nuovamente bisogno di voi.
Ho creato una form con una subform; nella sottomaschera ho messo un campo
che viene calcolato come differenza del valore di altri due campi; inoltre,
mentre i primi due campi riportano valori registrati nel record, questo
terzo campo non ha una corrispondenza in tabella, ma dovrebbe essere
calcolato e visualizzato sul momento.
Per fare questo ho inserito la formula di valorizzazione negli eventi dopo
aggiornamento e su uscita dei due campi di partenza.
La sottomaschera ha un layout di tipo tabulare.
Ora, il problema č questo: nel momento in cui inserisco un  record il campo
in questione mi viene calcolato correttamente, ma poi quando visualizzo la
form con piů record, nel primo record il campo calcolato č corretto, mentre
per gli altri mi viene riporato sempre il valore del primo record.
Tanto per farmi capire: se il campo in questione č C, che deve essere A-B,
quando visualizzo la form con tutti i record vedo qualcosa del genere:
        A            B            C
    100            60            40
    50                5            40  (anziche 45)
    200            10            40  (anziche 190)
Come posso fare?
Potete aiutarmi?
Grazie
***mauro


title: Visualizzazione di un campo calcolato

author: Roberto da casa

text:
"Bobbygol" <
mauro.cinacch...@virgilio.it
> ha scritto nel
messaggio news:NE2Bc.497800$rM4.20...@news4.tin.it...

Visto che stai operando con una maschera con visualizzazione a maschere
continue quello che ti succede č normale: non puoi calcolarti con codice VBA
il valore di una casella di testo non associata di una maschera che abbia
tale tipo di visualizzazione.
Cancella tutto il codice VBA che hai generato a fronte degli eventi "Su
uscita" e "Dopo aggiornamento" dei controlli A e B; fatto questo
nell'origine controllo della casella di testo non associata C scrivi:
= [A] - [B]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Visualizzazione di un campo calcolato

author: GusBa

text:
"Bobbygol" <
mauro.cinacch...@virgilio.it
> ha scritto nel
messaggio news:NE2Bc.497800$rM4.20...@news4.tin.it...
> E' un po' che non ricorro ai vostri suggerimenti (qualcosa ho pure
imparato)
> ma questa volta ho nuovamente bisogno di voi.
> Ho creato una form con una subform; nella sottomaschera ho messo un campo
> che viene calcolato come differenza del valore di altri due campi;
inoltre,
> mentre i primi due campi riportano valori registrati nel record, questo
L'evento da usare è [su Corrente]
saluti
GB


title: Visualizzazione di un campo calcolato

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jqxBc.8933$GQ3.2...@twister2.libero.it...
>
> Visto che stai operando con una maschera con visualizzazione a maschere
> continue quello che ti succede č normale: non puoi calcolarti con codice
VBA
> il valore di una casella di testo non associata di una maschera che abbia
> tale tipo di visualizzazione.
> Cancella tutto il codice VBA che hai generato a fronte degli eventi "Su
> uscita" e "Dopo aggiornamento" dei controlli A e B; fatto questo
> nell'origine controllo della casella di testo non associata C scrivi:
>
> = [A] - [B]
>
Grazie mille
***mauro


title: Somma in report

text:
Ciao a tutti.
Dovrei eseguire un totale a piè di pagina in un report ad una condizione. Il
campo da sommare è denominato ImpFat, la somma di ImpFat non deve tenere in
considerazione tutti quegli importi dove nel campo denominato Note sia
presente la dicitura ABBUONI.
Come posso fare per ottenere questa somma tenendo presente la condizione?
Grazie
Roberto


title: Somma in report

author: Karl Donaubauer

text:

Origine Controllo di una casella di testo:
=Somma(IIf([Note]<>"ABBUONI";[ImpFat]))
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Somma in report

author: RobertOne

text:
"Karl Donaubauer"  ha scritto nel messaggio ...
>
> Origine Controllo di una casella di testo:
>
> =Somma(IIf([Note]<>"ABBUONI";[ImpFat]))
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Ciao Karl grazie per la dritta ma ancora qualcosa non funziona. Premetto che
avevo provato varie soluzioni, forse anche quella che mi proponi. Dico forse
perchè avendone provate parecchie non ricordo.
Nel precedente post, non ho detto che le note hanno due condizioni; o
ABBUONI, oppure non c'è nulla. Ho provato ad aggiungere la funzione And
oppure Or credendo di risolvere il problema ma nulla di fatto. Ho tentato in
questo modo:
=Somma(IIf([Note]<>"ABBUONI"Or = Null;[ImpFat]))
Ma non funziona.
In sintesi, dovrei ottenere  la somma di tutti quegli importi dove nelle
note appara la dicitura Abbuoni oppure non c'è nessuna nota.
Grazie.
Roberto


title: Somma in report

text:
RobertOne wrote:
> "Karl Donaubauer"  ha scritto nel messaggio ...
>>
>> Origine Controllo di una casella di testo:
>>
>> =Somma(IIf([Note]<>"ABBUONI";[ImpFat]))
>
> Ciao Karl grazie per la dritta ma ancora qualcosa non funziona.
> Premetto che avevo provato varie soluzioni, forse anche quella che mi
> proponi. Dico forse perchè avendone provate parecchie non ricordo.
>
> Nel precedente post, non ho detto che le note hanno due condizioni; o
> ABBUONI, oppure non c'è nulla. Ho provato ad aggiungere la funzione
> And oppure Or credendo di risolvere il problema ma nulla di fatto. Ho
> tentato in questo modo:
>
> =Somma(IIf([Note]<>"ABBUONI"Or = Null;[ImpFat]))
>
> Ma non funziona.
>
> In sintesi, dovrei ottenere  la somma di tutti quegli importi dove
> nelle note appara la dicitura Abbuoni oppure non c'è nessuna nota.
Hmm, secondo me nel primo post hai voluto il contrario:
"non deve tenere in considerazione ... ABBUONI"
Anche non capisco se ora vuoi escludere o includere i Null.
Forse è il mio male italiano e un connazionale ti serve meglio.
--
cu



title: Somma in report

author: Paolo Dal Bosco

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4l4711...@individual.net...

c'è un errore in =Somma(IIf([Note]<>"ABBUONI"Or = Null;[ImpFat]))
prova così:
=Somma(IIf([Note]<>"ABBUONI"and  ([Note]<>"";[ImpFat];0))
e vedrai che funziona.
Ciao
Paolo
(PS per Karl: ho risolto il problema con SysCmd 603, se può interessarti
posso inviarti l'esempio)


title: Somma in report

text:
"Karl Donaubauer"  ha scritto nel messaggio
news:4l4711...@individual.net...
> Hmm, secondo me nel primo post hai voluto il contrario:
> "non deve tenere in considerazione ... ABBUONI"
> Anche non capisco se ora vuoi escludere o includere i Null.
> Forse è il mio male italiano e un connazionale ti serve meglio.
>
> --
> cu
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Il tuo italiano mi pare ottimo! La somma di ImpFat non deve tenere in
considerazione tutti quegli importi dove nel campo denominato Note sia
presente la dicitura ABBUONI e sommare quando nel campo denominato Note non
c'è nessuna dicitura.
=Somma(IIf([Note]<>"ABBUONI";[ImpFat])) pensavo andasse bene in quanto se
neò campo Note non c'è nulla credevo lo considerasse come <>"ABBUONI" visto
che in effetti è diverso.
Grazie.
Roberto


title: Somma in report

text:
"Paolo Dal Bosco"  ha scritto nel messaggio ...
> c'è un errore in =Somma(IIf([Note]<>"ABBUONI"Or = Null;[ImpFat]))
> prova così:
> =Somma(IIf([Note]<>"ABBUONI"and  ([Note]<>"";[ImpFat];0))
> e vedrai che funziona.
>
> Ciao
> Paolo
> (PS per Karl: ho risolto il problema con SysCmd 603, se può interessarti
> posso inviarti l'esempio)
Grazie per il secondo esempio, ho risolto in questo modo:
=Somma(IIf([Note]="ABBUONI";0;[ImpFat]))
Grazie anche a Karl per la disponibilità.
Roberto


title: inviare email

author: Miss Sixty

text:
 nella form ho un campo email
Nell'etichetta del campo vorrei attivare il collegamento ipertestuale al
software di base per mandare le email che in questo caso è outlook express
ma se avesse mozilla mi avvia comunque prende quello predefinito dal
sistema.
Ora cliccando sull'etichetta del campo vorrei che mi prendesse l'indirizzo
di email sul campo Email e all'apertura del sh di mail mi trovo sul campo A:
l'indirizzo di email appena cliccato
è possissibile fare tutto cio? se si come?

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


title: inviare email

text:
> Ora cliccando sull'etichetta del campo vorrei che mi prendesse l'indirizzo
> di email sul campo Email e all'apertura del sh di mail mi trovo sul campo
A:
> l'indirizzo di email appena cliccato
> è possissibile fare tutto cio? se si come?
>
si sono quasi certo che usa il programma di email presente su quel pc,
mentre per inviare una email cliccando sul collegamento ipertestuale io uso
un piccolo trucchetto ovvero
il tuo campo email è di tipo collegamento ipertestuale
nella testxbox dove inserisci la email su disattivato metti il seguente
codice
    Email = ReplaceString(Email, "http://", "mailto:")
in questo modo quando esci dal controllo access sostituirà la parola http://
con mailto: in modo che il tuo link faccia partire un email e non apra un
URL
lo provato e funziona
infine definisci la funzione qui sotto inserendola in un modulo
Public Function ReplaceString$(ByVal Stringa As Variant, StringToReplace$,
ReplmntString$)
'Rimpiazza una stringa con un'altra dentro una stringa
    If IsNull(Stringa) Or Stringa = "" Then
        ReplaceString = ""
        Exit Function
    End If
    While InStr(Stringa, StringToReplace) > 0
        'prima aggiunge la stringa di rimpiazzo a quella destinata ad uscire
        ReplaceString = ReplaceString & Left(Stringa, InStr(Stringa,
StringToReplace) - 1) & ReplmntString
        'poi la toglie dalla stringa di ingresso e...
        Stringa = Right(Stringa, Len(Stringa) - (InStr(Stringa,
StringToReplace) + (Len(StringToReplace) - 1)))
    Wend
    '...aggiunge cio' che resta dopo l'ultimo passaggio del loop
    ReplaceString = ReplaceString & Stringa
End Function
Ciao....


title: inviare email

text:

 Non funzia....



title: inviare email

text:
"Miss Sixty" <
si...@libero.it
> ha scritto nel messaggio
news:80Z18Z72Z164Y1...@usenet.libero.it...

Io uso un campo Testo(in tabella) per memorizzare la Mail
e nella Form condiziono la Label in questione non rendendo visibile
il controllo di tipo TxtBox associato al campo MAil
Quindi su evento Current di Form scrivo:
Me.tuaLabelLinkMail.Hyperlink.Address = "mailto:" & Me.tuaTxtE_mail
Ciao.
@Alex.


title: SQL=>tabella

text:
Buona domenica,
come posso importare un file sql in access in modo da farlo diventare una
tabella?


title: SQL=>tabella

author: Cinzia

text:
"serpe76" <
serpe76_...@hotmail.com
> ha scritto nel messaggio
news:dtab5n$krs$1...@nnrp.ngi.it...
> Buona domenica,
> come posso importare un file sql in access in modo da farlo diventare una
> tabella?
>
Ciao serpe76,
cosa intendi per file sql?
Forse intendi un file con estensione .sql contenente una serie di istruzioni
SQL? del tipo
CREATE TABLE PIPPO
    .....
INSERT INTO PIPPO
    VALUES(1, 2, 3, 4)
......
o cos'altro?
ciao
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
--------------------------------------->


title: SQL=>tabella

text:
si cinzia una del genere
# --------------------------------------------------------
#
# Table structure for table 'nuke_bannerclient'
#
CREATE TABLE nuke_bannerclient (
   cid int(11) NOT NULL auto_increment,
   name varchar(60) NOT NULL,
   contact varchar(60) NOT NULL,
   email varchar(60) NOT NULL,
   login varchar(10) NOT NULL,
   passwd varchar(10) NOT NULL,
   extrainfo text NOT NULL,
   PRIMARY KEY (cid),
   KEY cid (cid)
);
#
# Dumping data for table 'nuke_bannerclient'
#


title: inputBox

author: hAPpy

text:
Carissimi,
sull'apertura di una maschera metto questa semplice riga per un piccolo
deterrente ai curiosi:
If InputBox("Per favore, digita la password") <> "patata" Then Quit
Se non digiti patata, l'applicativo si chiude.
Il problema č, senza andare in altre soluzioni valide ma poco piů
impegnative, se si puň nell'InputBox "istituzionale" rendere la digitazione
non visibile, magari con gli asterischi.
Ciao e grazie,
Anto


title: inputBox

text:

Se non speri sia una cosetta che risolvi con una riga di codice quě trovi
l'esempio:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=276
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: inputBox

text:
Grazie, č quello che mi serve..... ma non so come si fa ad usarlo ;O))
(mi vergogno un po' ma pian piano grazie a voi sto imparando qualcosa.)
dimenticavo, ho access 2003
Anto


title: ADO-Pass_Through-Db2

author: Maurizio

text:
Ciao a tutti.
Ho il seguente problema:
fino a ieri per reperire i dati dal nostro DB2, creavo la mia query
Pass-through in access, e con vba le eseguivo via codice da Excel,
cambiando le proprieta ODBC connet string  con DAO . Ora usando Ado, non
so come poter impostare la User e la Password alla mia pass-through per
poter andare sul db2 da codice. Sono costretto a modificare la password
da ODBC connet string a mano nella query properties di quest'ultima.
Qualche persona mi puo' aiutare?
Grazie a tutti.
Maurizio


title: Aggiornare Database

author: Stefano

text:
Esiste una procedura che aggiorna il database creato e distribuito in una
intranet aziendale lascaindo inalterate le tabele fin qui create e
aggiornare solo i report, maschere variati??
Stefano


title: Aggiornare Database

author: OndaMax

text:
"Stefano" ha scritto nel messaggio ...
> Esiste una procedura che aggiorna il database creato e distribuito in una
> intranet aziendale lascaindo inalterate le tabele fin qui create e
> aggiornare solo i report, maschere variati??
Devi dividerlo in 2 DB separati (Front End: Report, Maschere, Query, Codice
+ Back End: Tabelle) e allegare le tabelle del BE al FE. Quindi ad ogni
nuova release aggiornerai solo il Front End.
Marco


title: Banale. Metodo Execute di ADODB.Command non restituisce il conteggio

author: OneEDP

text:
Il comando
cmdComando.Execute lngRecordEsaminati, , _
     adCmdText + adExecuteNoRecords
restituisce sempre lngRecordEsaminati
mentre
cmdComando.Execute lngRecordEsaminati, , _
    adCmdText + adExecuteNoRecords + adAsyncExecute
restituisce sempre -1
Che posso fare? E' un valore indispensabile per verificare il lavoro in
corso d'opera.
Grazie
Daniele


author: Alessandro Cara

text:
OneEDP ha scritto:

Io uso poco ADO (*poco* e' superlativo). Da quello che scrivi non si
comprende dove fai il controllo come e quando. Il comando cosi' come e'
messo potrebbe dare risposta anche mezz'ora dopo.
Tra l'altro se il lngRecordEsaminati e' il records affected then:
http://www.codeguru.com/forum/showthread.php?p=938072
le prime due risposte di cimperiali, caveat sulla seconda.
--
ac


text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:M0Rpl.47056$8Z.2...@tornado.fastwebnet.it...

Giustamente gli eventi intercettano correttamente, ma volevo fare una cosa
al volo...
Grazie


title: per Alex

author: marceme

text:
Ciao grazie per la risposta , sono stato poco chiaro comunque volevo
l'ultimo record inserito in ordine di tempo, quindi basta utilizzare il
campo ID, poiché viene aggiornato di uno per ogni inserimento basta fare
come indicato da "principiante" dopo la tua risposta oppure nella querri si
mette ordine decrescente sull 'ID poi si regola il numero dei record che
vuoi come risposta alla querry stessa come uno invece di tutti (si trova
sulla barra degli strumenti "struttura querri" cosi avrai come risultato
solo l'ultimo record immesso.
Adesso invece volevo chiederti un altra cosa ,a te o a chiunque legga il
messaggio :
sono in grado di postare nuovi messaggi, ma non riesco a rispondere a
discussioni  già iniziate,
non basta selezionare il messaggio e cliccare sul tasto rispondi?
(utilizzo outlook express da casa )?
grazie è veramente importante, mi piacerebbe potrei dare il mio contributo
aiutando gli altri quando posso


title: per Alex

author: Alex

text:
"marceme" <m...@ini.iy> wrote in message
news:a06u4g$mcn$1...@newsreader.mailgate.org...

Riguardo al 1°problema io eviterei la QRY con Tutti i Record, ma metterei nei
criteri del CAMPO ID (MAX) in questo modo restringi ad un solo RECORD...!
Per il 2° problema non saprei come aiutarti, nel senso che se riesci a
postare Messaggi nuovi dovresti postare anche le risposte, almeno per me
è così.
Non vorrei fosse colpa della migrazione dei Pop delle News ai nuovi domini...!
esempio libero ha migrato su
powernews.libero.it
, e all'inizio ho avuto
qualche difficoltà anch'io di sincronizzazione....!!
@Alex
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: per Alex

author: Paolino Paperino

text:
"marceme" <m...@ini.iy> ha scritto nel messaggio
news:a06u4g$mcn$1...@newsreader.mailgate.org...

Se clicchi sul messaggio e rispondi controlla nella caseaal a è probabile ci
sia l'indirizzo del mittente e non quello del ng. se è cosi puoi provare a
cliccare col destro sul msg a cui vuoi rispondere e selezionare rispondi al
ng.
ciao Alessandro


title: per Alex

text:
"marceme" <m...@ini.iy> ha scritto nel messaggio
news:a06u4g$mcn$1...@newsreader.mailgate.org...
[CUT]
> Adesso invece volevo chiederti un altra cosa ,a te o a chiunque legga il
> messaggio :
> sono in grado di postare nuovi messaggi, ma non riesco a rispondere a
> discussioni  già iniziate,
> non basta selezionare il messaggio e cliccare sul tasto rispondi?
> (utilizzo outlook express da casa )?
> grazie è veramente importante, mi piacerebbe potrei dare il mio contributo
> aiutando gli altri quando posso
Vai a Strumenti/Account.../News/Proprietà e verifica che nella scheda
Generale sia indicato qualcosa come Indirizzo per risposte: se la casella è
vuota, scrivici il tuo indirizzo e-mail.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: riferimenti excel e early/late binding

author: Nicoletta

text:
Ciao a tutti,
non riesco ad uscire da questo problema.

In azienda abbiamo pc xp con office 2003 e altri con windows 7 ed office
2010.
Il mio pc di sviluppo è w7 con access 2003 e office 2010.

Ho creato una procedura (mde) che legge da un db oracle e scrive per
ciascun utente dei fogli excel personalizzati quando lo desiderano.
Utilizzando il late binding tutto funziona regolarmente ma le
prestazioni della parte che genera i fogli excel non sono il massimo.
Ho provato (visto un suggerimento in rete) ad utilizzare l'early binding
e le tempistiche si sono ridotte in maniera impressionante.
Tutta felice e gongolante inizio a distribuire la nuova versione ai
colleghi e qui inizia il problema. Il riferimento ad excel sul mio pc è
la libreria di excel che risiede nella cartella office14 (2010), mentre
su alcuni dovrebbe essere quella che risiede in office11 (2003), quindi
va in errore per riferimento mancante.
La soluzione  è quella di ricreare l'mde sul pc del collega (scomoda se
i colleghi con xp sono tanti), oppure creare due programmi diversi su
due pc di sviluppo diversi (scomodo per la manutenzione).
Esiste (tenendo conto di distribuire degli mde) un metodo per
ripristinare la libreria corretta (riferimento ad excel in questo caso),
magari anche pescando il path da un file di configurazione o da una
tabella o altro?

grazie in anticipo
Nicoletta


title: riferimenti excel e early/late binding

author: Riccardo Baldinotti

text:
Nicoletta ha scritto:

Avevo anch'io lo stesso problema. Siccome usiamo file .accdb anziché .mde
la soluzione era nella modifica dei riferimenti sul pc vecchio (scomodo).
Ultimamente, però, il problema non si presentava: all'avvio le librerie si
aggiornavano, però era da office14 a office12, non so office11.
Purtroppo non so come aiutarti.
RB

--

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


title: riferimenti excel e early/late binding

text:
Ciao Nicoletta credo ci siamo già incrociati...

Function AddFromFile(FileName As String) As Reference
    Membro di Access.References

Esempio:

References.AddFromFile ("C:\Program Files\Microsoft
Office\OFFICE11\EXCEL.EXE")

La realtà è che devi ricavare dal SISTEMA il PATH del SERVER di
AUTOMAZIONE... e credo si possa fare in 2 modi:
Registry:----->
http://support.microsoft.com/kb/240794

Oppure con la chiamata API FindExecutable, passando alla chiamata API
il riferimento al File Excel in modo da ricavare l'EXE associato
all'estenzione XLS...

Private Declare Function FindExecutable Lib "shell32.dll" Alias
"FindExecutableA" (ByVal lpFile As String, ByVallpDirectory As String,
ByVal lpResult As String) As Long
Function apicFindExecutable(strDataFile As String, strDir As String)
As String
  'Resturns exectuable for passed data file.
  Dim lgnApp As Long
  Dim strApp As String
  strApp = Space(260)
  lngApp = FindExecutable(strDataFile, strDir, strApp)
  If lngApp > 32 Then
    apicFindExecutable = strApp
  Else
    apicFindExecutable = "No matching application."
  End If
End Function

a quel punto si passa il PATH al metodo AddFromFile...

Saluti

Ciao
@Alex


title: riferimenti excel e early/late binding

text:
Nicoletta wrote:
> ...
> In azienda abbiamo pc xp con office 2003 e altri con windows 7
> ed office 2010.
> Il mio pc di sviluppo è w7 con access 2003 e office 2010.
> ... Il riferimento ad excel sul mio pc
> è la libreria di excel che risiede nella cartella office14 (2010),
> mentre su alcuni dovrebbe essere quella che risiede in office11
> (2003), quindi va in errore per riferimento mancante.
> La soluzione  è quella di ricreare l'mde sul pc del collega (scomoda
> se i colleghi con xp sono tanti), ...

Hai già provato di creare l'mde sempre e solo sul pc con O03,
cioè distribuire questa versione anche sui pc con O10?
È più probabile che funziona un upgrade che un downgrade.

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


title: openform con condizione WHERE

author: LuKe

text:
HO bisogno di aprire una form filtrata mediante la condizione WHERE.
Se utilizzo un controllo della form di partenza oppure un valore
definito la maschera si apre correttamente sul record desiderato.
Ho bisogno però di utilizzare una variabile public; in questo caso
il filtro non funziona ed al momento dell'esecuzione Access mi mostra
una finestra di "Immissione valore parametro" con il nome della variabile.
Come posso inserire la condizione where dipendente da una variabile??
Di seguito vi riporto l'istruzione utilizzata:
DoCmd.OpenForm "Fattura", , , "NR_Documento = Cod_Cli"
Dove NR_Documento è un controllo della form Fattura e Cod_Cli la variabile.
Thanks
LuKe


title: openform con condizione WHERE

author: Gianluca Rossato

text:
>
CUT
> il filtro non funziona ed al momento dell'esecuzione Access mi mostra
> una finestra di "Immissione valore parametro" con il nome della variabile.
>
> Come posso inserire la condizione where dipendente da una variabile??
>
> Di seguito vi riporto l'istruzione utilizzata:
>
> DoCmd.OpenForm "Fattura", , , "NR_Documento = Cod_Cli"
Sarà mica DoCmd.OpenForm "Fattura", , , "[NR_Documento] ="&  Cod_Cli
????



title: Apertura involontaria finestra di progettazione

text:
Grazie innanzitutto Nick! Il motivo per il quale si riapriva era un
collegamento ipertestuale nel controllo che puntava alla funzione
scritta in un modulo bas, questo perche' volevo nel form il puntatore
del mouse con la manina.
Tolto il collegamento ho visto che l'elaborazione funzionava, ma il
puntatore restava la freccia(screen.mousepointer = 0).
Per "ripristinare la manina" ho trovato questo codice di Carlo
Costarella che ha risolto l'inghippo.
In un modulo pubblico
Option Compare Database
Option Explicit
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
  Dim lngRet As Long
  lngRet = LoadCursorBynum(0&, CursorType)
  lngRet = SetCursor(lngRet)
End Function
Poi su Mouse Spostato di un controllo:
Private Sub Testo0_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim ret
ret = MouseCursor(IDC_HAND)
End Sub
Ecco in questo modo alla fine dell'elaborazione la finestra debug non
si apre.
Grazie ancora
Michele


title: Dove sbaglio?

author: Eirinn

text:
Il debug del seguente script mi da come errore "Loop senza Do", non
riesco a capire dov'è che si interrompe il ciclo...
Qualcuno mi può aiutare?
Function pianifica()
'clicca qui e premi play
Dim linea_1 As Recordset
Dim linea_2 As Recordset
Dim linea_3 As Recordset
Dim query_ordini As Recordset
Dim Max1, Max2, Max3 As Date
Dim Start As Date
Set linea_1 = CurrentDb.OpenRecordset("Q_Linea1")
Set linea_2 = CurrentDb.OpenRecordset("Q_Linea2")
Set linea_3 = CurrentDb.OpenRecordset("Q_Linea3")
Set query_ordini = CurrentDb.OpenRecordset("Q_Ordini")
Start = Nz(DMax("StartDate", "Tb_StartDate"))
query_ordini.MoveLast
query_ordini.MoveFirst
     Do Until query_ordini.EOF
         Max1 = Nz(DMax("Data_Stoccaggio", "Ordini", "[Linea]= 1"))
         Max2 = Nz(DMax("Data_Stoccaggio", "Ordini", "[Linea]= 2"))
         Max3 = Nz(DMax("Data_Stoccaggio", "Ordini", "[Linea]= 3"))
         If Max1 = 0 And Max2 = 0 And Max3 = 0 Then
             query_ordini.Edit
             query_ordini![Linea] = 1
             query_ordini![Data_Stocaggio] = Start
         Else
         If Max1 > 0 And Max2 = 0 And Max3 = 0 Then
             query_ordini.Edit
             query_ordini![Linea] = 2
             query_ordini![Data_Stoccaggio] = Start
         Else
         If Max1 > 0 And Max2 > 0 And Max3 = 0 Then
             query_ordini.Edit
             query_ordini![Linea] = 3
             query_ordini![Data_Stoccaggio] = Start
         End If
         If Max1 <= Max2 And Max1 <= Max2 Then
             query_ordini.Edit
             query_ordini![Linea] = 1
             query_ordini![Data_Montaggio] = Max1 + 1
         Else
         If Max2 <= Max1 And Max2 <= Max3 Then
             query_ordini.Edit
             query_ordini![Linea] = 2
             query_ordini![Data_Montaggio] = Max2 + 1
         Else
         If Max3 <= Max1 And Max3 <= Max2 Then
             query_ordini.Edit
             query_ordini![Linea] = 3
             query_ordini![Data_Montaggio] = Max3 + 1
         End If
         Max1 = 0
         Max2 = 0
         Max3 = 0
         query_ordini.Update
         query_ordini.MoveNext
     Loop
End Function
--
Sláinte, Eirinn
icq# 3346238 -
http://eirinn.altervista.org/
"Per aspera ad astra"


title: Dove sbaglio?

author: ciroteo

text:
"Eirinn" <eirinn*pog_mo_thon*@
libero.it
> ha scritto nel messaggio
news:dqnj8l$nrf$1...@area.cu.mi.it...

a postare un messaggio con un oggetto poco significativo.


title: Dove sbaglio?

text:
ciroteo ha scritto:
 > a postare un messaggio con un oggetto poco significativo.
Sorry, ora è un po' più specifico...



title: Dove sbaglio?

author: Beppe

text:
[CUT]
Controlla la chiusura degli degli "IF", mi pare siano tutti
sbagliati...
Bye


title: Dove sbaglio?

author: MA

text:

qui apri un if e non lo chiudi più.
il problema è che la chiusura dell'if può essere ritardata se usi
If  .... then
elsif
end if
se invece fai come dici tu
If then
else
if  then
end if
quell'end if vale per il secondo if ma non per il primo.
Perchè non usi
Select case è più ordinato e performante

--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Dove sbaglio?

text:
"Eirinn" <eirinn*pog_mo_thon*@
libero.it
> ha scritto nel messaggio
news:dqnkdj$prg$1...@area.cu.mi.it...
> ciroteo ha scritto:
> > a postare un messaggio con un oggetto poco significativo.
>
> Sorry, ora è un po' più specifico...
senza offesa eh! era solo un suggerimento ... a cui per dovere di cronaca va
aggiunto quello relativo al quoting.
che deve avvenire alla fine del messaggio precedente in modo da consentire
una migliore lettura.
Per quanto riguarda il suggerimento specifico ...quello che ti è stato detto
mi sembra più che azzeccato.



title: Dove sbaglio?

author: sv

text:
Eirinn ha scritto:



A parte quello che già Massimiliano ti ha segnalato nella superiore riga
penso ci sia un errore.
Dovrebbe essere forse secondo la logica dei succesivi If
If Max1 <= Max2 And Max1 <= Max3
> >>             query_ordini.Edit
> >>             query_ordini![Linea] = 1
> >>             query_ordini![Data_Montaggio] = Max1 + 1
> >>         Else
> >>         If Max2 <= Max1 And Max2 <= Max3 Then
> >>             query_ordini.Edit
> >>             query_ordini![Linea] = 2
> >>             query_ordini![Data_Montaggio] = Max2 + 1
> >>         Else
> >>         If Max3 <= Max1 And Max3 <= Max2 Then
> >>             query_ordini.Edit
> >>             query_ordini![Linea] = 3
> >>             query_ordini![Data_Montaggio] = Max3 + 1
> >>         End If
> >>         Max1 = 0
> >>         Max2 = 0
> >>         Max3 = 0
> >>         query_ordini.Update
> >>         query_ordini.MoveNext
> >>     Loop
> >> End Function
--
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: Dove sbaglio?

text:
MA ha scritto:
> Perchè non usi
> Select case è più ordinato e performante
Ma in che modo?
Il select case posso farlo su una sola variabile, se non sbaglio, mentre
qui ne devo confrontare 3.

--



title: Dove sbaglio?

text:
Eirinn ha scritto:
> MA ha scritto:
> > Perchč non usi
> > Select case č piů ordinato e performante
> Ma in che modo?
> Il select case posso farlo su una sola variabile, se non sbaglio, mentre
> qui ne devo confrontare 3.
Prova cosě:
**********
Dim blA As Boolean
Dim blB As Boolean
Dim blC As Boolean
 If (Testo0 > 0 And Testo2 > 0 And Testo4 > 0) Then blA = True
 If (Testo0 < 0 And Testo2 < 0 And Testo4 < 0) Then blB = True
 If (Testo0 > 0 And Testo2 < 0 And Testo4 < 0) Then blC = True
Select Case blA Or blB Or blC
Case blA
MsgBox "Tutti >0"
Case blB
MsgBox "Tutti < 0"
Case blC
MsgBox "Uno solo >0"
********

--



title: Dove sbaglio?

text:
sv wrote:
> Eirinn ha scritto:
>
>> MA ha scritto:
>>> Perchč non usi
>>> Select case č piů ordinato e performante
>
>
>> Ma in che modo?
>> Il select case posso farlo su una sola variabile, se non sbaglio,
>> mentre qui ne devo confrontare 3.
>
> Prova cosě:
>
> **********
> Dim blA As Boolean
> Dim blB As Boolean
> Dim blC As Boolean
>
>  If (Testo0 > 0 And Testo2 > 0 And Testo4 > 0) Then blA = True
>  If (Testo0 < 0 And Testo2 < 0 And Testo4 < 0) Then blB = True
>  If (Testo0 > 0 And Testo2 < 0 And Testo4 < 0) Then blC = True
>
> Select Case blA Or blB Or blC
> Case blA
> MsgBox "Tutti >0"
>
> Case blB
> MsgBox "Tutti < 0"
>
> Case blC
> MsgBox "Uno solo >0"
> ********
Arichhite...
End select

--



title: Dove sbaglio?

text:
MA ha scritto:

> Arichhite...
> End select
Ed infatti... DEBUG
"Errore di compilazione"
"Select Case senza End Select"
:-)))

--
questo articolo e` stato inviato via web dal servizio gratuito



title: Dove sbaglio?

text:
sv ha scritto:
> Eirinn ha scritto:
> > MA ha scritto:
> > > Perchč non usi
> > > Select case č piů ordinato e performante
> > Ma in che modo?
> > Il select case posso farlo su una sola variabile, se non sbaglio, mentre
> > qui ne devo confrontare 3.
> Prova cosě:
> **********
> Dim blA As Boolean
> Dim blB As Boolean
> Dim blC As Boolean
>  If (Testo0 > 0 And Testo2 > 0 And Testo4 > 0) Then blA = True
>  If (Testo0 < 0 And Testo2 < 0 And Testo4 < 0) Then blB = True
>  If (Testo0 > 0 And Testo2 < 0 And Testo4 < 0) Then blC = True
> Select Case blA Or blB Or blC
> Case blA
> MsgBox "Tutti >0"
> Case blB
> MsgBox "Tutti < 0"
> Case blC
> MsgBox "Uno solo >0"
> ********
Ancora meglio:
Dim intA As Integer
If (Testo0 > 0 And Testo2 > 0 And Testo4 > 0) Then intA = 1
If (Testo0 < 0 And Testo2 < 0 And Testo4 < 0) Then intA = 2
If (Testo0 > 0 And Testo2 < 0 And Testo4 < 0) Then intA = 3
Select Case intA
Case 1
MsgBox "Tutti >0"
Case 2
MsgBox "Tutti < 0"
Case 3
MsgBox "Uno solo >0"
End Select



title: [OT]Che fine ha fatto il mitico...

author: Carlo Costarella

text:
...Maurizio Borrelli?
Non ho sue notizie da anni...ne sapete nulla?
Ciao, Carlo


title: [OT]Che fine ha fatto il mitico...

author: ciroteo ®

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:eninau$mkv$1...@tdi.cu.mi.it...
> ...Maurizio Borrelli?
> Non ho sue notizie da anni...ne sapete nulla?
>
> Ciao, Carlo
>
>
>
mi sembra stia bene, ha appena risposto al post che Giorgio Rancati ha
pubblicato sul ng di microsoft in cui annunciava che la nostra Cinzia č una
nuova MVP ...
strano che non l'abbia messo pure qui ... occorre provvedere a
complimentarsi con lei!


title: [OT]Che fine ha fatto il mitico...

text:

L'ho sentito io in Chat su msn prima di Natale e gli ho chiesto se voleva
partecipare al Cisa come relatore.. speriamo
p.s. ciao Carlo, un abbraccio
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: [OT]Che fine ha fatto il mitico...

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:entlj5$ljm$1...@tdi.cu.mi.it...
> Carlo Costarella wrote:
>> ...Maurizio Borrelli?
>> Non ho sue notizie da anni...ne sapete nulla?
>>
>> Ciao, Carlo
>
> L'ho sentito io in Chat su msn prima di Natale e gli ho chiesto se voleva
> partecipare al Cisa come relatore.. speriamo
>
> p.s. ciao Carlo, un abbraccio
> --
Grazie MA.
Chissà perché non frequenta più questo NG.
Ciao, Carlo


title: [OT]Che fine ha fatto il mitico...

text:
"ciroteo ®" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:459ce618$0$22384$4faf...@reader2.news.tin.it...
>
> "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
> news:eninau$mkv$1...@tdi.cu.mi.it...
>> ...Maurizio Borrelli?
>> Non ho sue notizie da anni...ne sapete nulla?
>>
>> Ciao, Carlo
>>
>>
>>
>
> mi sembra stia bene, ha appena risposto al post che Giorgio Rancati ha
> pubblicato sul ng di microsoft in cui annunciava che la nostra Cinzia è
> una
> nuova MVP ...
> strano che non l'abbia messo pure qui ... occorre provvedere a
> complimentarsi con lei!
>
Sì ho letto proprio ora il post....il fatto è che non frequento quel ng...
ci siete proprio tutti!
Grazie, Carlo


title: [OT]Che fine ha fatto il mitico...

text:

Dice che impegnato a fare la trottola tra tutti i suoi clienti (Veneto).



title: Non funge l'autocomposizione

author: angelo manfredini

text:
Mi e' capitato su un paio di computer al lavoro che non funzionasse
l'autocomposizione (si schiaccia e non parte niente, avendola ovviamente
gia' settata).
Ma non solo; se non si opta per l'autocomposizione e si procede manualmente
non si trova nemmeno l'elenco dei campi!!
Ho provato a reinstallarlo ma non sono riuscito a venirne a capo.
Qualche suggerimento?
Angelo


title: Tipo non corrispondente in apertura Recordset

author: Arilolo

text:
Aiuto!!!
Ho creato un nuovo database con un unica tabella "Acctab" dove ho un id
contatore e un campo data.
In una maschera praticamente vuota ho assegnato all'evento apertura questa
routine:
private sub Form_open (cancel as integer)
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("acctab")
rst.addnew
rst.fields(1)=now
rst.close
set rst=nothing
end sub
ma quando viene eseguita alla riga set rst=currentdb.openrecordset... mi da
errore di runtime '13':     tipo non corrispondente. e non riesco proprio a
capire il perché.
Cosa ho sbagliato?
Grazie in anticipo a chi mi risponderà.


author: alepetomane

text:
"Arilolo" <
ari...@inwind.it
> ha scritto nel messaggio
news:RJOa8.17733$tv6.4...@twister1.libero.it...

prova cosi'
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("acctab", dbOpenDynaset)
ciao


author: OndaMax

text:
Il 14 Feb 2002, 16:16, "alepetomane" ha scritto:
>prova cosi'
>Set dbs
= CurrentDb()
>Set rst = dbs.OpenRecordset("acctab", dbOpenDynaset)
.
Oppure controlla sui Riferimenti che sia stata regolarmente caricata la
Microsoft DAO 3.6 ...
Ciao
OndaMax
--------------------------------
Inviato via
http://usenet.iol.it


text:
"OndaMax" <
ond...@liberox.it
> ha scritto nel messaggio
news:195Z120Z177Z2Y...@usenet.iol.it...

Ho provato, ma dbopendynaset non viene riconsociuto. I riferimenti... dove
sono?
Comunque, prima di arrendermi, ho provato a fare la stessa cosa in un altro
file mdb e funziona perfettamente. Se invece creo un nuovo file vuoto mi
tira questa menata.
Stessa tabella, stessa maschera, importate in un mdb vecchio funzionano!


text:
Arilolo wrote in message ...
> > Oppure controlla sui Riferimenti che sia stata regolarmente caricata la
> > Microsoft DAO 3.6 ...
> Ho provato, ma dbopendynaset non viene riconsociuto. I riferimenti... dove
> sono?
> Comunque, prima di arrendermi, ho provato a fare la stessa cosa in un
altro
> file mdb e funziona perfettamente. Se invece creo un nuovo file vuoto mi
> tira questa menata.
> Stessa tabella, stessa maschera, importate in un mdb vecchio funzionano!
Mentre sei nel modulo di maschera (laddove hai compilato il codice), dai
un'occhiata al Menu/Strumenti e ci trovi la voce Riferimenti ... Ci clicchi
sopra e leggi le librerie caricate ... Vedrai che manca la MIcrosoft Dao 3.6
... Allora la vai a cercare e la spunti. Poi confermi, torni al codice e ...
tutto funziona.
Prova ad prire i Riferimenti dell'MDB che hai detto che funziona. Vedrai che
li le DAO ci sono ...
OndaMax


text:
"OndaMax" <
ond...@liberox.it
> ha scritto nel messaggio
news:q5Wa8.20813$tv6.5...@twister1.libero.it...

Funziona! Bisognava anche dargli più priorità.
Ciao e grazie!


title: #aprire modulo di maschera da codice

author: LoZioPino

text:
da VBA devo aprire un modulo di maschera di UN'ALTRO db.
ho creato una variabile oggetto con GetObject, poi apro il primo dei 2
moduli con
   objAppl.Application.DoCmd.OpenForm (MODULO(h))
 (MODULO(h) è una stringa con il nome del form)
ed ottengo il modulo con
   Set mdl = objAppl.Application.Forms(MODULO(h)).Module
 (.application fore è ridondante, ma preferisco così)
ci lavoro sopra, chiudo il form salvandolo, apro il secondo form con le
stesse istruzioni ma al momento di settare la variabile modulo (ne frattempo
resettata con Nothing) ottengo l'errore di run-time 40036 "metodo item
dell'oggetto forms non riuscito"
Ho fatto numerose prove ma non capisco perchè non funziona. Probabilmante
manca (a me) una qualche nozione sul modello ad oggetti di Access, ma non so
dove cercare e nemmeno l'help, stavolta, mi è d'aiuto.
Mi date una dritta? Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: creare nuovo messaggio Outlook

author: Mik

text:
come devo definire il campo affinchè
si crei con il click la finesta di nuovo messaggio..
devo inserire mailto: al collegamento ipertuestuale...


title: Comuni

author: Francesco

text:
Ho preso il file del calcolo del codice  fiscale dal sito e ho visto che
digitando nella casella di testo relativa al comune la stessa casella
inizia il completamento e poi automaticamente attribuisce i valori
corrispondenti ai campi provincia e codice comune. Io ho capito come si fa
con la casella combinata associare altre caselle. Ma non capisco come fare
con le caselle normali associarle alle tabelle ed altre caselle.Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Comuni

author: massimo

text:
On 12 apr 2003,
ces...@tiscalinet.it
 (Francesco) wrote in
news:b78j7l$61f$
1...@news.newsland.it

> Ho preso il file del calcolo del codice  fiscale dal sito e ho
> visto che digitando nella casella di testo relativa al comune la
> stessa casella inizia il completamento e poi automaticamente
> attribuisce i valori corrispondenti ai campi provincia e codice
> comune. Io ho capito come si fa con la casella combinata
> associare altre caselle. Ma non capisco come fare con le caselle
> normali associarle alle tabelle ed altre caselle.Grazie

Non so se ho capito bene. Prova a cercare nella guida le parole
"controllo calcolato" e "funzione di aggregazione". Da un'occhiata a
"Dlookup".
Ad esempio, se hai una query che richiama una tabella comuni con i
campi:
id_comune
comune
codice erariale
...una volta selezionato il comune tramite una casella combinata
potrai far comparire il codice erariale mediante un controllo
calcolato (origine controllo).
Nel caso "codice erariale" sia selezionabile come origine controllo
puoi usare l'espressione... =[codice erariale]
Altrimenti, nel caso non sia selezionabile come origine controllo...
=Dlookup("[codice erariale]";"comuni";"[id_comune]=" & [id_comune])
NB: la sintassi delle funzioni cambia tra "espressioni" e "vba"


title: creazione dinamica query

text:
salve a tutti
sto cercando qualche esempio che mi aiuti a creare dinamicamente ed
eseguire una query (di accodamento su DB collegato via ODBC)
prelevando i valori delle colonne dai campi di una maschera
scusate la banalità della domanda ma non ho esperienza su ms access
TIA
---
cacciamali


title: creazione dinamica query

text:
andabe@gmail,com ha scritto:
>salve a tutti
>
>sto cercando qualche esempio che mi aiuti a creare dinamicamente ed
>eseguire una query (di accodamento su DB collegato via ODBC)
>prelevando i valori delle colonne dai campi di una maschera
>
>scusate la banalit=E0 della domanda ma non ho esperienza su ms access
>
>TIA
>
>---
>cacciamali
Cerca nell'help l'oggetto CreateQueryDef
Ma se invece devi utilizzare una Qry di comando puoi sia memorizzarla nel QBE e passargli dei parametri che farla dinamicamente da VBA
dim Dbs as database
Dim StrSql as string
Set Dbs =  currentdb
StrSql= "INSERT INTO......"
Dbs.execute StrSql
ed hai fatto
Set
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it