mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: tabella che non si apre più

Salve a tutti, ho un database dove una tabella improvvisamente non  si apre
piů, e mi da questo messaggio: "formato di database (nome file) non
riconosciuto".
Ho provato ad esportarla in tutti i formati, ma da sempre il solito errore,
non riesco piů ad accedervi... qualcuno ha un'idea di cosa possa essere
successo e come possa fare per riuscire a riprendermi i dati della tabella?
grazie
Massimo


wrote:

prova a fare compatta database 
oppure a reimportarla in un'altro database
Saluti.
Emanuele.

 ha scritto nel messaggio
news:diqvhu8q9b3b33psg...@4ax.com...


Newsgroup: it.comp.appl.access
Titolo: comando shell e runtime xp

Ho un applicativo che crea un report e lo salva come file rtf poi  tramite
il comando shell lo apre con openoffice.
funziona sul mio computer e sul mio portatile con office xp devel in inglese
e  Xp in italiano
dal cliente col runtime non funziona
qualcuno ha mai provato ad aprire un file con openoffice da access?
Stefano Kabisa

 Stefano Kabisa
Ciao,
Massimo
-- 
web: 
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi

 ha scritto nel messaggio
news:cal5kf$1j2$1...@atlantis.cu.mi.it...

posto il codice
Dim stDocName As String
Dim percorso As String
Dim percorso2 As String
Dim percorso3 As String
percorso = "C:\lettereoculistica\" & "test1.rtf"
percorso2 = "C:\lettereoculistica\" & "test2.rtf"
percorso3 = "C:\lettereoculistica\" & "test3.rtf"
 Dim stAppName As String
Select Case Me!TipoLettera
    Case 1
        stDocName = "REP_1"
        DoCmd.OutputTo acReport, stDocName, acFormatRTF, percorso
        stAppName = "C:\Programmi\OpenOffice.org1.0.2\program\soffice.exe "
& percorso
    Case 2
        stDocName = "REP_2"
        DoCmd.OutputTo acReport, stDocName, acFormatRTF, percorso2
        stAppName = "C:\Programmi\OpenOffice.org1.0.2\program\soffice.exe "
& percorso2
    Case 3
        stDocName = "REP_3"
        DoCmd.OutputTo acReport, stDocName, acFormatRTF, percorso3
        stAppName = "C:\Programmi\OpenOffice.org1.0.2\program\soffice.exe "
& percorso3
End Select
     Call Shell(stAppName, 1)
se puoi provare col runtime
grazie
Stefano kabisa
Newsgroup: it.comp.appl.access
Titolo: seconda forma normale un dubbio...

salve
sto ripassando le fasi di normalizzazione di un database relazionale.
ho letto questo in un sito ma non riesco a capire che tipo di ragionamento
sta facendo:
"Nell'entità dati originali, uno stesso corso risulta associato a più valori
della chiave primaria. Non è quindi rispettata la seconda forma normale."
secondo da quanto dice significa un corso o gli attributi che compongono il
corso(ho solo una tabella) dipendono
dalla chiave primaria.
Ma perchè dice che non è conforme alla se forma normale ? nello stesso sito
dice che :
"Un'entità risponde alla seconda forma normale quando tutti i suoi attributi
dipendono dalla chiave primaria dell'entità."
forse sto sbagliando ma a me sembra un contraddizione
mi date delucidazioni ?
p.s
riporto il link
http://lettere.unive.it/Autoapprendimento/Access/Normalizz/pag_014.htm
grazie ciao

 ha scritto nel messaggio 
news:HJUwd.307253$b5.14...@news3.tin.it...

Hai ragione: la traduzione non è stata ottimale.
Prova a dare un'occhiata qui:
http://web.tiscali.it/visualdb/Progett.htm
http://msdn.microsoft.com/library/ita/default.asp?url=/library/ITA/vsent7/html/vxcondatanormalization.asp
e anche l'ottimo:
http://www.itportal.it/office/access/schemi_access/default.asp
Ciao, Carlo 

 ha scritto nel
messaggio news:FLWwd.307783> >

Grazie letti entrambi
meno male  una cosa in meno che devo "ricapire" .-)
Newsgroup: it.comp.appl.access
Titolo: aprire un file di excel ed eseguire alcune operazioni

avrei necessit� di aprire un file di excel ed eseguire poi i seguenti 
controlli
rinominare il primo foglio dal nome attuale in "F1"
verificare il nome delle prime 7 colonne e in caso rinominarle
se non � presente come prima colonna la colonna "Codice" creare tale colonna 
e nominarla "Codice"
qualcuno a qualche idea di come potrei fare? qualche esempio da cui partire?
grazie. 

Altra stranezza aprendo il file di excel, sulle celle con le freccette verdi 
mi dice questo campo � formattato come testo ed ha un apice all'inizio del 
campo, in effetti mettendo un apice anche agli altri appare poi la freccetta 
verde ma come aggiornare automaticamente questo campo? cio� dovrei riuscire 
a fare una query di aggiornamento in cui dove CAP non inizia con apice 
allora CAP = ' + CAP
???????? sto dando i numeri vista l'ora?
 

 ha scritto nel messaggio 
news:4b54f78c$0$1108$4faf...@reader4.news.tin.it...

www.donkarl.com/it
sezione cisa, c'� un articolo di Sergio Mazza
Newsgroup: it.comp.appl.access
Titolo: congiunzione di due nomi in un valore predefinito

Salve,
ho una maschera "inserimento_fattura" con 3 campi (abi, cab,
estremi_pagamento). I primi due hanno origine da tabella1 (campi: abi,
cab), mentre il terzo ha origine sempre dalla stessa tabella col campo
omonimo.
Vorrei che il terzo campo "estremi_pagamento" della maschera, che
cambia per ogni record della fattura,  abbia come valore predefinito
una stringa con la congiunzione dei due valori precedenti, cioè “abi
cab” del record.
esempio tabella1:
ABI     CAB   ValorePred ESTREMIPAG
111     100    111 100
222     200    222 200
Se nel campo estremi_pagamento della maschera in “valore predefinito”
inserisco =Maschere!tabella1![abi] & [cab] non mi dà nessun valore.
Nella maschera ho provato a creare una "casella di testo" di supporto
dove in “Origine controllo” ho inserito =Maschere!tabella1![abi] &
[cab], funziona, ma naturalmente non è modificabile.
Infine qualcuno ha la spiegazione degli ”eventi” di una maschera , su
corrente, prima di inserire, dopo inserimento ecc?
Grazie


Metti come valore predefinito del controllo dela maschera
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 inserisco =Maschere!tabella1![abi] & [cab] non mi dà nessun valore.
Questo perché al momento della inizializzazione del nuovo record i due
campi ABI e CAB non sono ancora valorizzati e quindi il valore
predefinito del terzo campo sarà la concatenazione di due Null.
Ti suggerisco di mettere il controllo associato al campo ESTREMIPAG
visibile ma non abilitato e creare un controllo non associato dove
inserisci gli estremi del pagamento allineato con ABI e CAB.
Crei una sub che concatena ABI CAB E ESTREMIPAG e inserisce il
risultato nel controllo nascosto associato al campo. Negli eventi
DopoAggiornamento dei tre controlli lanci la sub.
Ti troverai sempre il campo ESTREMIPAG valorizzato come tu vuoi ABI &
CAB & ESTREMIPAG qualunque cosa tu inserisca nei tre controlli.
Nel controllo ESTREMIPAG che è visibile e non abilitato e quindi non
modificabile direttamente vedrai il contenuto del campo.
AleC


Newsgroup: it.comp.appl.access
Titolo: Forse è un virus??

Saluti a tutti,
non capisco cosa sta succedendo al mio file di Access ex 97 ora trasformato
in Accesa 2000, vado al sodo, accade che mentre lavoro ad una maschera o ad
un report, in struttura o in apertura, non c'è un momento particolare in cui
si verifica, esce fuori un msg che più o meno fa così "l'azione
reinizializzera il codice correttamente in esecuzione in modalità
interruzione " è sotto mi da 2 possibilità.....o interrompere o un altra
cosa che non ricordo, ma qualsiasi cosa faccio ormai sono fregato.... perché
si blocca tutto è devo ctrl+alt+canc.....
Ho fatto un nuovo file ed ho importato in dati del vecchio file con delle
query ma il problema si ripresentato.
C'è qualcuno che mi sa spiegare qualcosa??
grazie

 wrote in message
4VFZ8.2934$s74....@twister1.libero.it...

Newsgroup: it.comp.appl.access
Titolo: Collegamento ipertestuale

Buon giorno a tutti.
 
Nel mio db di anagrafica ho inserito un campo per l'inserimento 
dell'indirizzo di posta elettronica. Premetto che ero fermo a qualche 
versione fa di Access e pensavo che avessero ovviato al problema, quello di 
fare aprire il programma di posta elettronica cliccando sul collegamento 
stesso posto sulla maschera e trovarselo già inserito in detto programma.
 
Sbaglio o non è ancora possibile? Chiedo venia se l'ho sparata grossa...
 
Roberto 
 
 

 ha scritto nel messaggio 
news:kqno2j$60c$1...@virtdiesel.cu.mi.it...


Newsgroup: it.comp.appl.access
Titolo: password database

Quando si imposta la password database dove viene memorizzata ?
E' possibile impostare la password database attraverso un routine VB?
Il mio problema e'fare in modo che all'apertura dell'applicazione 
(quindi in modalita'di esecuzione) non venga chiesta la password, mentre
se qualcuno vuole entrare in struttura o esportare dati dal mio db
gli venga chiesta.
Per problemi dell'applicazione non posso creare l'MDE.
 
Chi puņ aiutarmi ?
--
Posted from 151.28.254.189 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Per problemi dell'applicazione non posso creare l'MDE.
Che problemi?
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

mi=20?=0A=0A=
Ma e' colpa di mailgate?
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

 Lorenzo Coronati
Ciao Lore
RoDAgo

essere un problemino del tuo freeagent??
Boh, po' esse...
Lbo, tucchecciai friegent, come la vedi?


Newsgroup: it.comp.appl.access
Titolo: Esegui Codice & Casella Combinata

Salve, il mio problema è il seguente:
- ho una casella combinata all'interno di una maschera "anagrafica" che
ricerca valori all'interno di un'apposita tabella (trattasi dei codici
ISTAT) e restituisce valori a alcuni campi della maschera "anagrafica".
- vorrei fare in modo che a un determinato valore della casella
combinata (il valore è fisso e unico) mi si apra un'altra casella
combinata di ricerca. Mi spiego meglio: se il valore della casella
combinata è "ROMA" allora mi dovrebbe aprire un'altra casella combinata.
Se il valore è diverso da "ROMA" le cose devono rimanere come stanno.
Qualcuno ha idee?
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:77515dd016487f0d6f4...@mygate.mailgate.org...

puoi creare una casela combinata dove metti la queriy con i dati che ti
interessa cercare,
e sulla propietà dopo argionamento della casella principale setti a true o
false il valore visible della casella di ricerca
if ......="roma" then
me!miacasella.visible=true
else
me!miacasella.visible=false
end if
stefano
Newsgroup: it.comp.appl.access
Titolo: Chi sa dirmi come funziona il run time per access 97

Chi sa dirmi come funziona il run time per access 97

> Chi sa dirmi come funziona il run time per access 97
A me funziona bene.
Ale


In che senso?
Se non sai a cosa serve o come funziona, vai a vedere sul Sito Comune il
Faqquone.
Se hai provato ad utilizzarlo e trovi difficoltà, spiegaci meglio cosa non è
chiaro.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


In che senso?


Newsgroup: it.comp.appl.access
Titolo: Freeware

ho scritto un piccolo programma per la modulistica in Word. Dato che
intendo renderlo free, vorrei pubblicarlo su qualche sito italiano per
programmi free. Quale mi consigliate.
Saluti 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ha a che vedere con Access..?
Puoi proporlo al SitoComune.
Altrimenti prova a chiedere nell'area Word.
@Alex

Newsgroup: it.comp.appl.access
Titolo: Numereazione dei record in un report

Salve a tutti,
devo creare un report tabulare nel quale i record abbiano la numerazione 
progressiva che parte da 1.
E' da un pò di giorni che ci provo ma non riesco a trovare la soluzione. 
Sono nuovo in Access. Mi potete aiutare?
Grazie
nobalc 

 ha scritto nel messaggio 
news:Xsnhe.896064$b5.39...@news3.tin.it...

Ciao nobalc
inserisci nel corpo del report una casella di testo non associata
nell'origine controllo scrivi: =CurrentRecord
---
Daniele 

 Daniele
Grazie mille.
Potevo pensarci prima ... a scrivere al NG.
Ciao
nobalc

Newsgroup: it.comp.appl.access
Titolo: maschera dei colori

E' possibile con un tasto richiamare la classica casella dei colori di
Access e restituire
il corrente valore (quello del colore) in una casella di testo?
Mi servirebbe per creare una funzione da inserire nelle maschere per far
cambiare i colori
agli utenti.
grazie Riccardo

Io ho trovato qualcosa, se ti interessa dimmelo che te lo posto.
Massimo

Massimo
Pensa se tutti rispondessero cosi'...
:-(
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in 
internet che sia in grado di recuperare le 
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--

 Pensa se tutti rispondessero cosi'...
Visto che non posso postare un file sul NG, lo stesso file l'ho inviato sia
a chi me lo ha chiesto e contemporaneamente al sito comune perchè venga
valutato e magari messo a disposizione di tutti ( sicuramente il webmaster
potrà confermare il ricevimento della mia posta ).
Massimo

potrà confermare il ricevimento della mia posta ).
Pensa se tutti facessero cosi'...
:-(((((((
Ti invito a leggere il post intitolato [INFO] che Federico
posta periodicamente.

Newsgroup: it.comp.appl.access
Titolo: Azione InviaTasti in macro:  se Enter corrisponde a Invio, un doppio click a cosa corrisponde??

Buondģ.
Avrei bisogno di un aiutino...ho una macro autokeys che mi fa fare un paio
di cose una volta associato una macro ad una combinazione di tasti(p.e.:^p
mi va su un controllo e fa una cosa).
Ora se tab e enter li ho individuati, nella macro in Sequenza tasti cosa
devo scrivere per ottenere un doppio click?
Perdonate se vi chiedo una cosa che magari c'č nell'help, č che in questo
momento proprio...non lo trovo e avrei bisogno di saperlo,visto che nel
programmino che uso doppio click lo uso spesso.
Certo della Vs comprensione vi saluto e vi ringrazio!!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 cosa devo scrivere per ottenere un doppio click?
[...]
Ciao,
ma in realtà il doppio click non e' proprio un tasto
da tastiera......
Il click, doppio click, generano un evento che e' intercettabile
dalle proprietà del controllo.
Se adesso vuoi richiamare dalla maschera, in determinate
condizioni, questo evento ti basta richiamare la sub che
lo gestisce.
Puoi farlo anche da un altra maschera se rendi pubblica
la sub e indichi il percorso completo.
Non ti serve l'azione invia tasti, che il piu' delle volte
genera effetti indesiderati.
--
lorenzo


Credo non si possa fare perchè l'evento è scatenato dal mouse e non dalla 
tastiera.
Puoi comunque gestire il doppio clic di un controllo per far partire una 
macro o una combinazione di tasti.
Ciao, Carlo 


Vi ringrazio dei suggerimenti. In effetti non trovando niente sull'help mi č
venuto il dubbio che doppioclic non viene propriamente dalla tastiera...Per
quanto riguarda l'evento p.e.sulla casella di testo sudoppioclick giŕ la
sfrutto, e che volevo che senza staccare le mani dalla tastiera con una
combinazione di tasti si eseguisse appunto un doppioclick per scatenare
l'evento senza ... fare doppio click con il mouse...Se non stato
chiaro...sono qui! :-) Grazie.


 click con il mouse...Se non stato chiaro...sono qui! :-) Grazie.
Ciao,
Prova a vedere fra le proprieta' della maschera per AnteprimaTasti
e quindi utilizza l'evento SuTastoGiu'.
Di fatto intercetti il tasto all'interno della maschera e quindi
fai partire la SubRoutine relativa all'evento OnClick della casella
di testo.
--
Lorenzo

 ha
scritto:

Il suggerimento - per il quale ti ringrazio -lo provo di sicuro...Nel
frattempo pensavo...se si puņ via codice eseguire l'evento presente su
"ondblclick"...Ovvero costrure una funzione che stando sul controllo con il
focus, "veda" cosa deve fare sul doppio click e..lo faccia!
Grazie!



--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.appl.access
Titolo: selezione su query

ciao a tutti,
vorrei chiedervi dove sbaglio.... o meglio vorrei chiarimenti
ho creato una query. con i seguenti campi: cognome, descrizione
attrezzatura , tipo, ecc
vorrei utilizzare questa query in una maschera dove vorrei applicare il
filtro in base a selezione, e nn mi riesce. nn so dove sbaglio. mi
potete dire come posso fare la selezione tramite una casella di testo
dove inserisco il cognome e una tasto per eseguirla?
se nn sono stato chiaro (molto porbabile) vi chiariro meglio... aspetto
risp grazie in anticipo.

 ha scritto nel messaggio 
news:1157966227.7...@b28g2000cwb.googlegroups.com...

Nell'evento "su clic" del bottone a fianco alla casella di testo 
"txtPerRicerca" scrivi:
'---
select case isnull(me!txtPerRicerca) then
    case -1
        me.filteron = false
        me.filter = ""
    case 0
        me.filter = "cognome=" & chr$(34) & me!txtPerRicerca & chr$(34)
        me.filteron = true
    case else
end select
'---
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: riposizionarmi su un certo record all'uscita di un altra form

in una form conosci l'id del record che nella form sotto è il
visualizzazione record continui vorrei alla chiusura di questa form
riposizionarmi in atuomatico sul record avente id che c'era nel form appena
chiusa
sapete come posso fare?
Grazie.

 ha scritto nel messaggio news:chb1a1$7ls$1...@lacerta.tiscalinet.it...

hai già provato il Metodo GoToRecord (vedi help)?
Ciao.
-- 
Sergio MAZZA


ho provato io dovrei ritornare sul record avente id che c'era nella form
appena chiusa
ho provato cosi ma mi da errore, mi sai aiutare?
        DoCmd.GoToRecord , "componentelistato", acGoTo, id


"componentelistato" è il nome della form aperta che deve "navigare"?
Prova specificando che tipo di oggetto utilizzi:
DoCmd.GoToRecord acDataForm, "componentelistato", acGoTo, id
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Somma orari

Buon giorno a tutti.
Ho un problema con access che sembra essere abbastanza diffuso anche se 
non ho ancora trovato la soluzione ottimale!
La somma di orari che superano le 24 ore! (Es. 20.30 + 10.30 = 07.00)
Possibile che non ci sia un modo più efficiente di fare la somma di 
questi benedetti orari?
I trucchi che ho trovato sono stati quelli di dividere l'ora per 24 o 
utilizzare istruzioni visual basic (o qualcosa di simile)
Purtroppo è da poche settimane che uso access e non ne capisco ancora molto!
Potreste aiutarmi? Grazie mille!!!
P.S. (Utilizzo Access 2007)

Io li converto in formato decimale e non mi danno + fastidi.


Puoi usare una funzione personalizzata per scomporre e ricomporre le ore:
nell'esempio le due ore da sommare sono in due caselle di testo, txtOra1 e
txtOra2, mentre il risultato è visualizzato in una terza casella di testo,
txtTotale; il tutto parte con l'evento click del pulsante cmdOK.
Naturalmente la casella di testo txtTotale non deve avere nessun formato di
tipo orario.
Private Sub cmdOK_Click()
    Dim Ore As Integer
    Dim Minuti As Byte
    Ore = Hour(Me.txtOra1) + Hour(Me.txtOra2)
    Minuti = Minute(Me.txtOra1) + Minute(Me.txtOra2)
    If Minuti - 60 >= 0 Then
        Ore = Ore + 1
        Minuti = Minuti - 60
    End If
    Me.txtTotale = Ore & ":" & Minuti
End Sub
Saluti
Franco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.appl.access
Titolo: Access Vs Word

Salve, è la prima volta che scrivo su questo NG, e vi prego di perdonarmi se 
farò domande sciocche ma è da poco che gioco con il VBA di Access.
Intanto vi ringrazio anticipatamente se vorrete aiutarmi.
Vi espongo il mio problema:
Creo un doc a partire da un modello di Word e devo inserire dei dati 
all'interno.
Riesco ad inserire i paragrafi ma non riesco ad inserire le singole parole 
all'interno di un paragrafo già scritto nel modello.
Inoltre visto che devo scrivere dei valori in Euro ho provato ad usare 
format ma proprio non ne vuol sapere di tirare fuori i separatori delle 
migliaia.
Come posso farre?
Buona Giornata
Luca


Se devi scrivere in determinati punti del documento, inserisci dei segnalibri e con VBA li cerchi e li sostituisci al tuo testo.
Un esempio lo trovi qui:
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&th=a525068540479c82&rnum=3
(altre info)
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&q=bookmark+word&btnG=Cerca&meta=group%3Dit.comp.appl.access
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio 
news:cj8v9f$s7f$1...@canarie.caspur.it...

Puoi trovare un esempio con i Bookmarks nella sezione General esempio 6.137 
su 
www.sitocomune.com
Roberto
Newsgroup: it.comp.appl.access
Titolo: METODO MATEMATICO PER VINCERE AL LOTTO

 " TRE  AMBATE  SU  TORINO "
Sarò egoista... ma se conoscessi un metodo del genere non lo direi a
nessuno... non prima di essere diventato miliardario almeno :-)))))))))))))


Hmmm....
Interessante...
Eh eh eh
Antonio


Ti posso dare massimo quattro mila, ...se vinco.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------

Faccio una proposta:
ci dai tre ambate su Torino x 3 settimane, verifichiamo direttamente il tuo
metodo (senza trucchi..) e poi ne riparliamo. OK??
Se accetti so già come andrà a finire.....  (sicuramente non accetterai..)
I numeri non hanno memoria!!!
Meditate gente, meditate!!!
-- 
Posted from 
c-tecnopolis.wind.it
 [212.245.210.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:1BnM7.177021$sq5.8...@news.infostrada.it...

Stai attento Antonio... il seguito diceva
"Casi  analizzati :  .......60"
         ^^^^^^^^
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
Mi sa che caschi male, in un ambiente "deterministico" come quello
informatico le cazzate non prendono terra.
Sib
Newsgroup: it.comp.appl.access
Titolo: Problemini

Ciao a tutti.
Innanzi tutto Buone Feste, poi tre piccoli problemini (per un neofita come
me), con infiniti ringraziamenti anticipati a chi risponderà.
1°)  ho inserito in una maschera un pulsante che chiama il controllo
calendario, come faccio per aprire il calendario sul giorno attuale? ora mi
si apre sull'ultimo salvato...
2°) Ho due maschere, una singola e una tabellare, che lavorano sulla stessa
tabella (due diverse visualizzazioni degli stessi dati), come posso passare
da una all'atra puntando sul record attualmente attivo?  Ad esempio: sulla
maschera tabellare seleziono un record premendo un pulsante dovrei aprire la
maschera singola (tutti i record) e puntare su quello selezionato.
3°) Come posso inserire un pulsante in una maschera che mi apre una finestra
(collegata al record) in cui inserire una immagine prelevata dallo scanner?
Giulio

 ha scritto nel messaggio
news:gfFW7.34981$OP2.1...@news2.tin.it...

Vediamo se posso esserti di aiuto per i primi 2 quesiti:
per il primo quesito in una mia applicazione sulla maschera ho inserito un
interruttore che su clic attiva il seguente evento:
Private Sub Apricalendario_Click()
    Me!Calendario.Visible = Me!Apricalendario
    Me!Calendario.Year = Year(Date)
    Me!Calendario.Month = Month(Date)
    Me!Calendario.Value = Date
End Sub
se non ho mancato nulla questo dovrebbe consentire di aprire il calendario
sulla data corrente.
per il secondo quesito ti suggerirei nella tabella di inserire un campo
contatore in modo che ogni record sia perfettamente identificabile.
sempre utilizzando l'evento su clic potresti far leggere il valore del campo
contatore e porre come condizione nel comando di apertura della maschera
singola il valore del campo contatore.
Ciao, max.

Newsgroup: it.comp.appl.access
Titolo: Impossibile visualizzare struttura report

Buona giornata a tutti,
in un report  ho apportato delle modifiche aggiungendo una casella di testo 
per ottenere dei totali.
Nel fare la modifica si è aperta una finestra segnalandomi che si è 
verificato un errore in Access e invitandomi ad inviare segnalazione alla 
casa.
Ora non posso più vsualizzare il report in modalità struttura per 
rimodificarlo.
Cosa posso fare?
Grazie
Giuseppe. 

 ha scritto nel 
messaggio news:xh6Ej.25140$q53....@tornado.fastwebnet.it...

ciao Giuseppe
prova a importare tutto in un nuovo db.
auguri
Daniele 

 ha scritto nel messaggio 
news:47e12f23$0$10617$4faf...@reader2.news.tin.it...

Grazie, ho fatto come mi hai detto e funziona correttamente.
Tanti auguri
Giuseppe
Newsgroup: it.comp.appl.access
Titolo: [OT]spiegato il mistero della cocaina sul po

http://www.ansa.it/main/notizie/fdg/200510101450216198/200510101450216198.html
AEOM 

 AEOM
Com'era? "...Io mi faccio... Punto!"
Ciao.
-- 
Sergio MAZZA 

[CUT]
In effetti è bellina -> a gaurdarsi...chissà che sorprese riververà! Una 
delle cose che di certo non fà onore alle passate edizioni della punto è la 
tenuta strada... 

 ha scritto nel messaggio 
news:didsus$sul$1...@area.cu.mi.it...

Cacchio, ragazzi... da ora Martina Stella č libera! :-D ...scherzi e 
battutacce a parte, quando non si ha un cavolo da fare, la vita diventa 
triste. 

 triste.
Già; se passasse un po' di tempo a rispondere in questo NG gli passerebbe la voglia di... Neve...
Ciao.
-- 
Sergio MAZZA 

[CUT]
Ciao Maurizio,
hai visto? Non c'è verso di "comunicare" con Sergio...riesce perfino a 
eludere le più diffuse tecniche di comunicazioni...cosa mi consigli? ;-) 

 ha scritto nel messaggio 
news:diduad$vba$1...@area.cu.mi.it...

...evitando così spiacevoli ... fuori pista ....
--
MC 

 edizioni della punto è la tenuta strada...
Nel senso che la lasci parcheggiata e non la sposti...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:434a7d1f$0$24639$4faf...@reader3.news.tin.it...

E' con te che ce l'ha!... Io ci ho sempre parlato tranquillamente... Sembra 
proprio ti abbia messo il muso... Chissà cosa gli avrai mai fatto tra quel 
di CISA! ;-)
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

[CUT]
Penso che a breve si parcheggeranno da sole...m'immagino vederle! 


veramente devo ancora partecipare ad un "CISA"...io non gli ho fatto nulla 
di particolare (spero di non ricordare male...)...evidentemente è una 
questione di "pelle" ;-) 

[CUT]
Si scherza...con Sergio lo facciamo frequentemente! ;-) 

[CUT]
Della serie -> "ci vuole un tiro" -> 
http://www.hokutoaudioteca.it/index.html?http://www.hokutoaudioteca.it/film_drago_al/johnny%20stecchino.shtml
 
;-) 

[CUT]
"Traffico" -> 
http://www.hokutoaudioteca.it/index.html?http://www.hokutoaudioteca.it/film_drago_al/johnny%20stecchino.shtml
 
;-)
Newsgroup: it.comp.appl.access
Titolo: Sincronizzazione dati

Salve a tutti, sapete dirmi come vengono agiornati i dati in un db con 2 
repliche oltre a quella master se io inserisco per esempio "A" nel campo_1 
tabella_1 della replica1 e "B" nel campo_1 tabella_1della replica 2 ? Non ho 
ben chiaro quale sia l'aggiornamento che ha la priorità sugli altri quando 
faccio la sincronizzazione!
Grazie mille
Gianni 

 ha scritto nel messaggio 
news:47360a16$0$17946$4faf...@reader1.news.tin.it...

Nessuno sa dirmi niente??
Saluti
Gianni 

 ha scritto nel messaggio 
news:47376143$0$4791$4faf...@reader4.news.tin.it...

Ciao Gianni
prova a cercare su 
accessgroup.it
 : repliche
ci trovi alcuni articoli di Salvino, se riesci ...bene ...
altrimenti domani sicuramente avrai altre spiegazioni. :-))
Daniele
Newsgroup: it.comp.appl.access
Titolo: errore di sintassi con IIf nella query

Salve
strSql = "Select .... " _
  & " where Id & IIf(miodep =0,'=', '<>')10) Or ecc.
 
grazie


Così hai provato:
WHERE IIF(miodep=0,ID=0,ID<>0) OR...
 
@Alex


perfetto Alex
grazie

 > > Salve 
cut
in questa mi da l'errore: 449 argomento non facoltativo sull'IIf
" AND (IdCli =" & varCli() & " AND " & IIf("miodep = 0", "IdFo =" & varFo() & ", IdFo <>" & varFo()) & _

Sei certo sia scritta bene questa parte:
& " AND " & IIf("miodep = 0", "IdFo =" & varFo() & ", IdFo <>" & varFo()) & _
 
Non so bene ma a mio parere c'è un mix di cose che non tornano, ma perché non fainun debug print del predicato SQL prima di eseguirlo, così vedi il risultato risolto in modo esplicito...?
 
@Alex
 
 


Ok
grazie
Newsgroup: it.comp.appl.access
Titolo: Virgolette...

Devo inserire in un controllo di una maschera questo comando:
=DSum(" [ConteggioDiactivity_num] ";"ss_tempi delle chiuse";"(
[severity_id] =1 and   [tempo] >2 and [sla_id]="HD") or
(([severity_id]=2 or [severity_id]=3
)and [tempo]>3 and [sla_id]="HD")")
Ma ho il problema delle virgolette: come faccio a passare il valore "HD"
di criterio senza che Access s'incacchi?
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:07c68d697674a61d31b...@mygate.mailgate.org...

Prova ad inserire al posto delle virgolette le apicette:    'HD'
CIAO

Newsgroup: it.comp.appl.access
Titolo: x LBO e per tuttti: cosa vi ho fatti di male ?

Ciao LBO e ciao a tutti
Non capisco perchč le mie domande sul NG non hanno risposta: cosa ho
fatto di male ?
Ve lo chiedo perchč se ho fatto qualcosa di sbagliato non me ne sono
reso conto....
Lo so di non contribuire al NG, se non per leggere i thread e postare
domande, ma non sono un programmatore e non saprei rispondere ai quesiti
presenti, se non con boiate tremende.
Illuminatemi sui miei errori e, per cortesia, cagatemi un po di piů ....
anche se non mi ciamo Alessia ....
Marcello
 tel.  : 0347 7699271
 e-mail: 
m.gab...@enginsoft.it
--
Posted from 
mta10-acc.tin.it
 [212.216.176.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

fatto di male ?
Per favore, cambia tono, che le vittime non ispirano simpatia.
I casi sono tre:
1) ci fai
2) ci sei
3) il tuo news server fa cagare e non scarica i messaggi
Mi sono andato a spulciare tutti i tuoi messaggi degli ultimi giorni,
ed hai quasi sempre ricevuto una risposta, alla quale pero' non ti sei
mai degnato di dare un follow-up o almeno un cenno di ringraziamento.
Il messaggio al quale non hai ricevuto risposta e' quello intitolato
"X Lbo...". Lbo potrebbe essere occupato in alttre faccende piu'
interessanti che non aiutare te, oppure non sapere una beneamata sega
di come fare a risolvere il tuo problema. Per quanto riguarda gli
altri, mi sembra tu li abbia esclusi di fatto dall'interessarsi al tuo
messaggio, dato il titolo...
:-) 
(Il sorrisetto ce lo metto perche' non sono incazzato, e vorrei che
non ti incazzassi nemmeno tu, nonostante il tono del mio messaggio)
Ciao,
Giovanni
---
Inferno e paradiso mi sembrano sproporzionati. Le azioni degli 
uomini non meritano tanto - JLBorges

 ...omissis...
Caro Marcello,
non credo che tu abbia fatto nulla di male a nessuno,
ma non č neppur vero che non vieni per nulla "cagato";
ti ho mandato "personalmente" una intera libreria di
funzioni e come se ciň non bastasse...
mi hai mandato un DB di prova su cui ti ho sistemato
un maschera con tanto di codice ecc. ecc.
e non ho ancora nemmeno saputo se ti č arrivato.
Puň anche essere che non ti piaccia come gli altri
ti suggeriscano di risolvere i TUOI problemi ... ma mi
sembra che in genere siano mediamente piů "disponibili"
di quanto tu sia "educato"...
Comunque a disposizione
Saluti
Dario
Newsgroup: it.comp.appl.access
Titolo: ricerca su data

Salve a tutti.
Ho un database che contiene degli articoli.
Questi articoli hanno un prezzo.
Questo prezzo può variare in base ai listini.
In base agli articoli creo degli ordini.
Gli ordini già inseriti vengono inseriti con il prezzo di acquisto di ogni
componente.
Quando vario il prezzo di acquisto del componente aggiungo un nuovo record
nella tabella dei componenti con un campo data di validità.
La data di validità non è altro che la data in cui faccio la variazione sul
prezzo di acquisto.
Potrei avere:
|Descrizione|Prezzo di acquisto|Data di validità|
  Articolo1             2500               01/10/99
  Articolo1             2600               10/10/99
  Articolo1             2650               18/10/99
Se io volessi creare una query che cerchi il prezzo di un'articolo inserito
in un'ordine del 11/10/99 come posso fare.
Come faccio ad estrarre l'articolo, e quindi il relativo prezzo, in base
alla data di validità riferita alla data dell'ordine?

 wrote in message
news:8m8sdv$3m0$1...@nslave1.tin.it...


 wrote in message
news:8m8ts8$fn$1...@news.cineca.it...



Mi sembra illogico incrementare la tabella articoli con lo stesso articolo e
prezzi diversi perché se gestisci 5/6000 articoli dopo un paio di anni con
una revisione trimestrale generale dei prezzi ti trovi a gestire 40/50.000
articoli.
Secondo me ti conviene salvare sulla tabella degli ordini oltre alla
descrizione dell'articolo il relativo prezzo corrente e modificare
nell'anagrafica articoli il prezzo ad ogni revisione del listino.
A questo punto il tuo ordine ti presenta già il prezzo che era in vigore
alla data di riferimento.
Ciao,  Davide

Newsgroup: it.comp.appl.access
Titolo: recuper RecordNumber

Salva a tutti,
selezionando un record da una tabella, come posso far visualizzare quel
record in una maschera per la modifca dai dati.
Centrano qualcosa RecordCount e RecordNumber?
Grazie a tutti.
Francesco
-- 
Posted from [62.110.173.115] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000701c0e53b$e15b1d90$af02...@fabaris.it...

La domanda č poco chiara o confusa.
Usi Access 97 o 2000?
Non č possibile dalla tabella.
Utilizza una maschera alimentata dalla tabella in questione e poi gestisci
l'evento (p.e. su doppio click) per aprire la maschera con solo i dati da
modificare.
Per esempio:
Private Sub IDForn_DblClick(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MFornitori"
    stLinkCriteria = "[IDFOR]=" & Me![IDForn]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: maschera accesso ai dati

Vorrei realizzare una maschera con un pulsante che mi abiliti alla
scrittura.
Ho provato a fare una copia della maschera bloccando i campi della prima e
sbloccando i campi dell'altra e applicando un pulsante che me le  faccia
aprire e chiudere entrambe.
Questa è una soluzione accroccata....... mi potreste suggerire il modo +
corretto evitando inutili duplicazioni?
Grazie


metti un tasto e poi su click usi la proprietň enabled dei controlli
me.controllo.enabled=false
me.controllo2.enabled=false
etc....
oppure con un for each controllo in controlli etc.... ma richiede piů
controlli e conoscenze..
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Aiutiamo un anziano matematico...

... a raggiungere i Campi Elisi in grande soddisfazione
 
A   Desperate appeal!!   by Richard K. Guy
  At the time of my 80th birthday, when John Conway and I were
  writing The Book of Numbers, John bet that there would be no
  further complete factorizations of Fermat numbers in the next 20
  years. I bet him $20.00 that there would be. Now that my 100th
  birthday is only 3 years away, I'm beginning to get a bit worried!
  I'll even go so far as to split the $20.00 with anyone who
  completely factors F12 or F13 or any larger Fermat number!!
 
           (Note: The actual deadline is September 30, 2016;
              please compare UPINT, 3rd edition, page 16.)
 
http://www.prothsearch.net/fermat.html
 
 
-- 
 
ac (x=y-1) e non uso il KillFile.
La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)


Azz! Ho risbagliato NG


Ma noi ti capiamo e ti perdoniamo... nostro baffuto anziano....
:-)
 
Ciao ragazzo.
@Alex


Ora siamo alla versione 2.0, anche barbuto
Ciao Alex


 Azz! Ho risbagliato NG
 
l'anzianita' si vede anche in queste piccole cose :D
 
che poi ".... a raggiungere i Campi Elisi in grande soddisfazione"... con
tutti quei numeri?... sono loro che ti mandano nei campi elisi se non la
smetti di guardarli!!!! :D ma voglio dire no, un bel Corriere dello Sport
in mano sulla panchina del parco o al massimo "BOCCE" con gli amici no e'?
sempre sti fatti complicatissimi? :D
 
PS Ben trovato Ale...
 
 
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
Newsgroup: it.comp.appl.access
Titolo: Toolbar con funzioni di ricerca

Vorrei inserire in una toolbar delle funzioni di ricerca (tipo quella 
dell'help) ma da me controllate, non riesco a partire, che devo cercare?
Mi sono letto tutti i messaggi con toolbar, ma niente.
Grazie dell'aiuto
Claudio

 wrote in message
news:dei20o$jps$
1...@fata.cs.interbusiness.it

Potresti inserire nella toolbar delle macro che a loro volta richiamano
le funzioni da te progettate.
Ciao
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: Dati hardware pc

Ciao a tutti.
Grazie a voi ho potuto risolvere con successo una serie di piccoli problemi 
che ho avuto nello sviluppo di applicazioni Access.
Sono ancora qui a chiedervi una mano per sapere come poter intercettare le 
caratteristiche hardware del pc sul quale lavoro per poterle inserire 
singolarmente come dati in una serie di caselle di testo di una form ed 
inoltre mi interesserebbe l'informazione relativa allo username del 
collegamento in rete.
Ancora un grazie....
     Lino 
--
Posted from 
sirio.tno.it
 [138.66.200.5] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Copia e incolla in un modulo ( ti ritornano Nome Utente e Nome Computer );
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Declare Function wu_GetComputerName Lib "kernel32" Alias "GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
_______________________________________
Function ap_GetComputerName() As Variant
   Dim strComputerName As String
   Dim lngLength As Long
   Dim lngResult As Long
   '-- Set up buffer.
   strComputerName = String$(255, 0)
   lngLength = 255
   '-- Make the call.
   lngResult = wu_GetComputerName(strComputerName, lngLength)
   '-- Clean up and assign the value.
   ap_GetComputerName = Left(strComputerName, InStr(1, strComputerName,
Chr(0)) - 1)
End Function
_______________________________________
Function ap_GetUserName() As Variant
   Dim strUserName As String
   Dim lngLength As Long
   Dim lngResult As Long
   '-- Set up the buffer
   strUserName = String$(255, 0)
   lngLength = 255
   '-- Make the call
   lngResult = wu_GetUserName(strUserName, lngLength)
   '-- Assign the value
   ap_GetUserName = strUserName
   UseridGlobal = Left(ap_GetUserName, 4)
   ' Debug.Print UseridGlobal
   '
End Function
_______________________________________________
Ciao Marco
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Newsgroup: it.comp.appl.access
Titolo: Ricerca parola chiave

Salve a tutti,
come posso effettuare una ricerca di una <parola chiave> all'interno di un 
database comprendendo anche etichette delle maschere e dei report?
Grazie
Giovanni Artiglio 

 database comprendendo anche etichette delle maschere e dei report?
Tool per trova e analisi
www.donkarl.com/it?FAQ1.24
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Creazione di un report

Salve avrei l'esigenza di realizzare un report in cui forzare la creazione 
di una nuova pagina qualora
i dati del record non riescano ad entrare nella pagina.
Mi spiego se devo visualizzare la media dei voti per ciascun studente
ad esempio:
Nome stud: Studente 1
Fisica 10
Matematica 10
Geometria : 10
Storia :10
Italiano: 10
------------
S i dati del secondo studente entrano nel foglio allora visualizzali 
altrimenti Access mi deve inclollare i dati sul foglio successivo.

 ha scritto nel messaggio
news:tiDqe.7510$75.4...@news4.tin.it...

Poiché ritengo che il tuo report sia raggruppato per studente, per la
sezione di gruppo imposta a Si la proprietą StampaSezioneUnita (vedi help
per questa proprietą e per relativi esempi).
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: casella di riep. che si aggiorna durante la digitazione

Ciao a tutti. In access XP.
Ho una maschera nella quale sono presenti questi controlli:
Provincia
Comune
Frazione
....
E' presente poi una casella di riepilogo che si chiama LISTA, che mostra 
l'elenco delle province, comuni, cap, frazioni, ecc.
Durante la digitazione all'interno di uno dei controlli della maschera, la 
lista si aggiorna "filtrando" i dati che corrispondono alla digitazione da 
parte dell'utente.
Per ottenere questo ho scritto sull'evento:
comune_Change()
Dim ComuneDigitato As String
   ComuneDigitato = Nz(Me!comune.Text, "")
    Me!lista.RowSource = "SELECT PROVINCIA, COMUNE , ....... FROM CAP where 
COMUNE LIKE '" & ComuneDigitato & "*' ORDER BY ......;"
Vorrei che venisse applicato il filtro durante la digitazione in uno dei 
controlli, anche se altri controlli sono gią parzialmente compilati. Quindi 
se il controllo Provincia riporta gią "PG", digitando la lettera "A" nel 
controllo Comune dovrebbe venir fuori "ASSISI", mentre attualmente il 
"filtro si azzera" mostrando "AGRIGENTO".
Potete darmi qualche suggerimento?
Grazie a tutti.
Giancarlo 

 Quindi se il controllo Provincia riporta già "PG", digitando la lettera 


 ha scritto nel messaggio 
news:ek4bse$jpa$1...@aioe.server.aioe.org...

Prova con:
'---
dim strSQL as string, strWhere as string
strSQL = "SELECT PROVINCIA, COMUNE , ....... FROM CAP "
Dim ComuneDigitato As String
ComuneDigitato = Nz(Me!comune.Text, "")
strWhere = ""
if not isnull(me!provincia) then
    strWhere = "provincia = '" & me!provincia & "'"
end if
strWhere = strWhere & " And COMUNE LIKE '" & ComuneDigitato & "*'"
if strWhere <> "" then
    strWhere = " Where " & strWhere
end if
Me!lista.RowSource = strSQL & strWhere & " ORDER BY ......;"
'---
Ciao.
-- 
Sergio MAZZA 

 e And
Era una traccia; o non si era capito?
...
strWhere = ""
if not isnull(me!provincia) then
    strWhere = "provincia = '" & me!provincia & "'"
end if
if strWhere <> "" then
    strWhere = strWhere & " And COMUNE LIKE '" & ComuneDigitato & "*'"
else
    strWhere = " COMUNE LIKE '" & ComuneDigitato & "*'"
end if
...
Prosegui tu...
Ciao.
-- 
Sergio MAZZA 

 Era una traccia; o non si era capito?
Si, certo l'avevo capito.
Avevo solo riscontrato un problema.
Grazie per il prezioso suggerimento.

Newsgroup: it.comp.appl.access
Titolo: Mouse Wheel disabilitato in A97/2000 risolto

Considerando la continua richiesta (anche in privato) per disabilitare la
rotellina del mouse,
ho deciso di rendere disponibile la procedura.
Vorrei dire che tutto ciò si sarebbe potuto evitare se il SitoComune fosse
aggiornato.
Colgo l'occasione per offrire una collaborazione all'aggiornamento del sito.
Seguendo le istruzioni di mamma Microsoft, ho realizzato la seguente dll
liberamente scaricabile qui:
http://www.frantoiogestione.com/MouseWheel.dll
La dll va copiata in c:\windows\system o system32 a seconda del sistema
operativo.
Quindi va registrata da: Start, Esegui, RegSvr32
c:\windows\System32\MouseWheel.dll
oppure
RegSvr32 c:\windows\System\MouseWheel.dll
Aprire Access e il db da usare. Aprire in struttura la maschera in cui si
intende disabilitare
la rotellina del mouse e aprire il modulo associato.
Incollare le seguenti istruzioni:
Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
Private Sub Form_Close()
   clsMouseWheel.SubClassUnHookForm
   Set clsMouseWheel.Form = Nothing
   Set clsMouseWheel = Nothing
End Sub
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    MsgBox "Non puoi usare la rotellina per cambiare record."
    Cancel = True
End Sub
Se già esistono degli eventi Form_Load() e Form_Close(), adattare
opportunamente il codice.
Salvare la maschera e chiuderla.
AVVERTENZA: Se dopo aver riaperto la maschera si intende passare alla
modalità struttura,
chiudere prima la maschera e poi aprirla in struttura.
Infatti la dll compie un subclassing di Windows che potrebbe mandare in
crash il sistema
se non lo si disabilita con l'istruzione contenuta in Form_Close().
Per questo motivo è bene fare una copia del db PRIMA di lavorarci.
Non mi assumo responsabilità per eventuali danni.
Il messaggio "Non puoi usare la rotellina per cambiare record." può essere
tolto
se non interessa.
Ciao, Carlo

 ha scritto nel
messaggio news:lnYBa.20570$pR3.3...@news1.tin.it...

Cia Carlo sono antonio
qualche tempo fà in forma privata mihai mandato qualcosa di simile, infatti
invece della Dll c'erano 2 moduli
La cosa funzionava solo che alcuneazioni tipo Salva record a volte andavano
e altre No(err RunTime azione salva record non disponibile)
Ho provato con la dll da te sopradescritta, ma la maschera neanche si apre,
non sò se ho sbagliato in qualcosa.
Se Hai Novità fammi sapere


Nella stessa maschera non possono coesistere le due funzioni.
Sarebbe come subclassare due volte.
Devi scegliere quale dei due sistemi usare.
Per l'azione Salva Record se richiami da codice la voce di menù potrebbe non
funzionare.
Come ti è stato suggerito usa: DoCmd.RunCommand acCmdSaveRecord
Per le funzioni e la dll usate nell'esempio posso solo dirti di averle
provate personalmente su A97 e A2000/XP e qui funzionano perfettamente.
Unica avvertenza è quella di chiudere la maschera prima di aprirla in
struttura.
Ciao, Carlo