mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Problemi con Date nelle query Access 2007

Salve,
non so se vi � mai capitato, in una tabella ho dei campi data con formato 
generale ma ho provato anche a cambiarlo con data in cifre (dd/mm/yyyy)
Se faccio una query del tipo :
Select * from dati where Data < #31/12/2009#     funziona mentre se metto
Select * from dati where Data < =#31/12/2009#    non mi prende le date del 
31/12/2009 cosi anche con Data = #31/12/2009#
Avete qualche idea , utilizzo Access 2007 SP1, ora provo con il SP2, ma se 
fosse quello � molto grave...
Saluti

 Saluti
Quando usi il minore-uguale <= non metterci spazi.
Probabilmente nella tua tabella le date hanno anche l'ora.
Per 31/12/2009 si intende 31/12/2009 ore 00:00:00
Se tu in tabella hai una data tipo 31/12/2009 08:30:00 il criterio
=#31/12/2009# non la prende.
Prova con il criterio Int(Data)=#31/12/2009# e vedi subito se il problema
� quello.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Stavo proprio rivenendo qui a postare il problema.....
Il problema allora � nella modalit� che Access 'sembra' gestire le query a 
differenza dei dati immessi nel record, mi spiego.
Nel campo data abbiamo la forma della tipica data all'italiana ovvero 
gg/mm/aaaa mentre le query prendono le date nel formato mm/gg/aaaa.
Ora non so se da qualche parte c'� la possibilit� di dirgli di trattarle 
tutte in un unico modo altrimenti devo gestirmi le query in questa 
maniera....
Grazie lo stesso.. 

 gg/mm/aaaa mentre le query prendono le date nel formato mm/gg/aaaa.
Nel caso del 31/12/2009 non � un problema perch� pu� essere interpretata
in un modo solo e funziona sempre. Quel problema lo puoi avere con date
tipo 10/09/2009.
Se vuoi essere sicuro inseriscile in formato anno-mese-giorno: #2009-09-10#


 Se faccio una query del tipo :
[...]
Se fai una query da dove? dalla griglia QBE o da VBA?
Il comportamento � ben diverso:
- dalla griglia QBE immetti la data nel formato della
   tua localizzazione (italiano)
- da VBA la data va inserita sempre nel formato mm/dd/yyyy
Nella fattispecie, se tu inserisci nella griglia QBE
Data<=31/12, Access converte nella sintassi SQL:
WHERE (Data<=#12/31/2009#);
E il tutto funziona!
Bruno
PS
Ma tu stai scrivendo le query a mano nella griglia QBE? 

 Ma tu stai scrivendo le query a mano nella griglia QBE?
In alcuni casi l'ho scritta a mano, poi facendo un p� di prove avevo gi� 
capito che Access la vuole nel formato che mi avete spiegato mm/dd/yyyy 
quindi adesso � tutto ok, l'unico inconveniente allora � che se prendo le 
date
da textbox anche con il datepicker, devo cambiare il formato nella clausola 
WHERE, altrimenti me la scrive nel formato dell'impostazione di Windows cio� 
dd/mm/yyyy
Grazie a tutti.

Newsgroup: it.comp.appl.access
Titolo: Percorso Oggetti OLE

Dove lo trovo (via codice) e come posso modificare il percorso ad un oggetto
OLE in un controllo di una maschera (ovviamente ergistrato in un record)?
Grazie
--
Ivan MO

...

Newsgroup: it.comp.appl.access
Titolo: HELP ! x HELP!

Cerco di spiegarmi il meglio :
In una sottomaschera ordini ho i segurni dati :
Prodotto prezzo quantita
Vorrei (se è possibile) unire in unico campo che mettero nella maschera
principale i tre campi della sottomaschera.
Es
Prodotto      quantità             prezzo
birra                    2                 15,00
arancia               3                 14,00
vino                     4                  7,50
il campo finale vorrei fosse cosi  :
birra 2 15,00 ;aranciata 3 14,00 ;vino 4 7,50
grazie


bye
ringo

 Cerco di spiegarmi il meglio :
Scusa, meglio in che senso?
mica spiega qualcosa il subj che hai usato.
Sib

Newsgroup: it.comp.appl.access
Titolo: Trasferimento DB MySQL tra  locale e remoto

Salve a tutti:
ho un problema non da poco sulla velocità di elaborazione con A97 ed un DB 
MySql su Web.
La scelta di remotizzare su Web è stata fatta per l'esigenza di spostamento 
continuo, sia dei PC che dei luoghi di lavoro dai quali si deve accedere.
Purtroppo, noto un abbattimento delle prestazioni, soprattutto in certi 
momenti della giornata (a più intenso traffico), e sto quindi cercando di 
trovare una soluzione pratica per velocizzare il lavoro, soprattutto in 
certi momenti del mese (ovvero nel periodo di fatturazione).
Ho pensato di fare così:
- ad una certa data del mese (quando devono pertire le fatturazioni), 
trasferisco il DB sul server della sede centrale.
- L'accesso al DB remoto viene bloccato (per evitare sovrapposizioni di dati 
successivi)
- Al termine della fatturazione ri-rasferisco il DB in remoto
Il tutto con i comandi MySQL che lo permettono, ed in modo piuttosto 
automatico.
Secondo la vs. opinione, o se qualcuno avesse già avuto quest'esigenza in 
passato, pensate possa essere una soluzione valida?
D'altronde, se non mi sbaglio, è proprio ciò che facevano fino a non molto 
tempo fà, alcune società con sedi dslocate (ad es. Istituti Bancari), quando 
le linee telefoniche non erano così potenti (e purtroppo proprio come quella 
del mio cliente)
Saluti e Grazie infinite
Marco

 ha scritto nel messaggio 
news:vmDmj.757$Xg7...@tornado.fastwebnet.it...

Se come dici, la variabilità della posizione dei pc è giornaliera: "...di 
spostamento continuo, sia dei PC che dei luoghi di lavoro dai quali si deve 
accedere."; direi che la scelta è forzata e una volta al mese non incide 
sullo svolgimento del lavoro...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:fnhi74$pb9$1...@tdi.cu.mi.it...

Infatti, proprio così: immaginavo che fosse l'unica soluzione
Grazie 1000 Sergio
Saluti
Marco
Newsgroup: it.comp.appl.access
Titolo: Numerare progressivamente le righe di una Query

Ogni volta che lancio una query questa mi dovrebbe numerare un campo, con un
numero progressivo per ogni riga generata.
(In poche parole dovrebbe crearmi un campo contatore per ogni ricerca
effettuata)
E' possibile? Ovviamente, se sě, come fare?


se usi un report per visualizzare il risultato crei un controllo non
associato nel corpo e lo imposti =1 e sulla proprietà somma parziale imposta
su tutto
ciao, AEOM

 E' possibile? Ovviamente, se sì, come fare?
Vai sul Sito Comune (link qui sotto) e nella Sezione Queries leggi la FAQ di
Stefano Bettini intitolata "Come posso inserire nella mia query un campo
progressivo?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 E' possibile? Ovviamente, se sì, come fare?
http://groups.google.com/groups?&selm=a2401o$uipd0$1...@ID-46617.news.dfncis.de
o tutto il thread per più spiegazione.
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: chiave primaria

Ho un db che gestisce dati anagrafici.
No voglio che nel mio db venga inserito una persona due volte.
Per far questo vorrei impedire che nome+cognome+data_di_nascita siano uguali
ad record già inseriti.
In un post precedente sanzio55 diceva:
<Nella tabella anagrafica ho messo come chiave l'insieme
<dei tre campi: nome+cognome+data_nascita per evitare di inserire lo stesso
<paziente più volte.
Qualcuno potrebbe spiegarmi come si fa?
Grazie
Marco

 ha scritto nel messaggio
news:8eng0l$vo9$1...@lacerta.tiscalinet.it...

Nella struttura della tabella selezioni i campi che ti interessano e premi
il bottone di "chiave primaria"...
Ciao.


Visto che mi chiami in causa posso dirti come è andata a finire.
Mi hanno suggerito che non è sufficiente mettere la chiave su
nome+cognome+data_nascita in quanto si possono fare errori di battitura e
per il computer quel tizio lì è un'altra persona. Esempio: Marco Ferri
15/3/65 è un record, successivamente se tenti di inserire lo stesso
nominativo giustamente ti dice che già esiste, ma se per errore digiti Marco
Feri 15/3/65 Access lo registra come nuovo record senza segnalarti l'errore.
Allora la soluzione è quella che ho adottato grazie ai suggerimenti degli
amici del NG...
Crea una nuova maschera composta da una casella di riepilogo che sarà
alimentata da  SELECT DISTINCTROW anagrafica.IDpaz, anagrafica.cogn,
anagrafica.nome, anagrafica.ntil FROM anagrafica ORDER BY anagrafica.cogn,
anagrafica.nome, anagrafica.ntil;  imposta su 4 colonne dove la prima che
contiene l'ID è nascosta.
Poi inserisci nella maschera due pulsanti: uno da premere se il nominativo è
in elenco, l'altro da premere se invece non lo è. Ora nell'evento SuClic del
pulsante "ESISTE" inserisci il codice:
Private Sub esiste_Click()
  DoCmd.OpenForm "anagrafica", , , "IDpaz=" & Me.Elenco0
End Sub
che andrà ad aprire il record del soggetto cercato. Nell'evento SuClic del
pulsante "NOESISTE" invece crea una macro che prima ti apre la maschera
anagrafica e poi imposti il VaiARecord su Nuovo.
Spero sia stato chiaro, sono a tua disposizione.
--
Cordiali saluti
Nunzio Santini

> Visto che mi chiami in causa posso dirti come è andata a finire....
grazie
Marco
Newsgroup: it.comp.appl.access
Titolo: Stampare lettera prendendo i dati dalla maschera

Avrei bisogno di un vostro aiuto: ho una maschera in cui vengono inseriti i
dati dei clienti, vorrei direttamente dalla maschera aprire un report in cui
ci sarà una lettera con alcuni parametri presi dal record attivo.
Fino ad ora ho usato una query che mi chiede il numero ID del cliente da
stampare, però sarebbe decisamente più comodo evitare questo passaggio.
Grazie
Fabio

 ha scritto nel messaggio
news:vq98o2-...@x-privat.org...

Modifica i criteri della query in modo che essi facciano direttamente
riferimento al controllo della maschera che contiene l'ID del cliente; se
ora nei criteri hai scritto qualcosa del tipo:
[Digita l'ID del cliente da stampare:]
scrivici ora:
[Forms]![NomeMaschera]![IDCliente]
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ora nei criteri hai scritto qualcosa del tipo:
Ottimo, ti ringrazio.
Ciao
Fabio

Newsgroup: it.comp.appl.access
Titolo: Aggiornare la tabella associata ad una combo...

buongiorno a tutti
come da oggetto sto cercando di ottenere questo risultato: avete presente
una combo associata ad una tabella... mi capita che i valori di detta
tabella possono essere aggiornati aggiungendone di nuovi in fase di
dataentry; mi si chiede se sia possibile digitando nella combo il nuovo
valore l'aggiornamento della tabella associata. Mi saro' spigato?...
un esempio:
valori nella tabella T associta alla combo: a,b,c
nuovo valore: d
digitando d nella combo aggiornare la tabella T associata cosi' che i valori
presenti diventino: a, b, c, d.
suggerimenti?
grazie
Rob
--------------------------------
Inviato via 
http://usenet.libero.it

credo d'aver trovato! bastava spulciare meglio sitocomune... ;D
ciao

Newsgroup: it.comp.appl.access
Titolo: RT A2000 : Probl. con Reports e Combo

Ciao Ragazzi...
come in oggetto, mi trovo per la prima volta ad aver a che fare con la
RunTime del 2000 (questo mi passa il governo... anzi, MA), e subito
malfunzionamenti che non mi spiego... (SE PER VOI SONO STUPIDATE CHIEDO
VENIA, MA NON SONO MAI STATO UN RUNTIMEISTA ;-) )
Stranezza n°1 : REPORTS
parlo di Reports base (giusto per prova), con Access funzionano
regolarmente sia in anteprima che in stampa, con la RT per niente ne
nell'uno che nell'altro modo... mi danno segnalazione di errore da
inviare...
Stranezza n°2 : COMBO
su dopo aggiornamento di un campo ho bisogno che una combo rispetto a dei
valori del campo stesso, cambi sia il "Tipo origine riga" che l'"origine
riga"... pensando che la RT è in inglese questo il codice che con Access
regolarmente funziona... con la RT 2000 no (con la RT 2002 invece
funziona):
On Error GoTo err:
Dim aaa As Integer
    If Me.MioCampo = 0 Then
        aaa = 1
        Me.MiaCombo.RowSourceType = "Table/Query"
        Me.MiaCombo.RowSource = "SELECT '1' AS ID,'2' AS IDCollCli, '3' AS
Codice, '4' AS Indirizzo, '5' AS Comune, '6' AS Prov, '7' AS Cap"
 
    End If
    If Me.MioCampo = 1 Then
        aaa = 2
        Me.MiaCombo.RowSourceType = "Value List"
        Me.MiaCombo.RowSource = "SELECT '1' AS ID,'2' AS IDCollCli, '3' AS
Codice, '4' AS Indirizzo, '5' AS Comune, '6' AS Prov, '7' AS Cap;"
    End If
    DoEvents
    Me.MiaCombo.Requery
    GoTo fine:
 
err:
If aaa = 1 Then MsgBox "Impossibile RowSourceType Tabella/Query"
If aaa = 2 Then MsgBox "Impossibile RowSourceType Elenco valori"
fine:
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
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.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 inviare...
CASO COMBO Risolto!... (era l'azione dell'apertura reports che la
bloccava)... ma i reports persistono a non funzionare.

Newsgroup: it.comp.appl.access
Titolo: Rotellina del mouse

 voglio evitare che un utente usando la rotellina del mouse possa in una
maschera vedere le registrazioni precedentemente fatte.
Come posso disattivare questa funzionalità?
L'evento  mousewheel se ridefinito non cambia il comportamento originale ma
aggiunge nuove funzionalità
ciao e grazie

 wrote in message
news:AW4Gd.4920$
GU.1...@twister1.libero.it

Potresti usare la visualizzazione Immissione dati per
evitare che l'utente scorrazzi per i Record, ma abbia
solo la possibilità di Inserire un Nuovo Record.
La soluzione più efficace però è quella di disabilitare 
l'effetto della Rotella.
Se non hai SubForm o ListBox da interbloccare allora
nel mio sito trovi alla sezione API un demo che realizza
questa cosa.
http://www.mantuanet.it/alessandro.baraldi/
Se la tua situazione è un pò più articolata, devi scaricare
una DLL dal sito di Lebans che funziona su tutti gli oggetti.
Non và registrata in quanto è una Win Dll, ma deve risiedere
nella stessa posizione del tuo MDB.
http://www.lebans.com/mousewheelonoff.htm
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:727e0dc17ebdf8472c...@mygate.mailgate.org...


 
http://www.lebans.com/mousewheelonoff.htm
Vedi anche la FAQ 4.29 "La rotellina del mouse scorre i record"
sul sito indicato sotto... dove si trova anche il link al tuo sito,
@Alex, come abbiamo deciso che sei d'accordo. ;-)
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)

 @Alex, come abbiamo deciso che sei d'accordo. ;-)
Grazie Karl per la citazione.
Ottimo.

Newsgroup: it.comp.appl.access
Titolo: Uso di DLookUp

Ho elaborato un accrocchio del genere:
stri = DLookup("[comandoMenu]", "tMenu", "[lettera]='" & Chr(KeyCode) & "'
AND idMenu=" & Forms!menu!sottoMenu.Column(0))
che serve a trovare una riga di comando corrispondente a una voce, scelta
premendo il tasto corrispondente, di un menu aperto in quel momento.
Se però si preme un tasto non previsto ottengo errore "utilizzo non valido
di null" (ovviamente).
 
Potrei fare:
If not isnull(DLookup... then
stri = DLookup...
ma mi ripugna far eseguire due volte lo stesso calcolo.
Certo, tutti i tempi macchina persi in questo modo non arriveranno al
tempo speso per scrivere questo messaggio, ma l'istinto mi dice che debba
esserci un metodo migliore.
Qualcuno può suggerirmelo?
Grazie
Riccardo Baldinotti
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 Riccardo Baldinotti
 
On error Resume Next
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 

 On error Resume Next
 
 
Eh già. E io che mi immaginavo chissà che.
Sempiterna gratitudine.


 ...
 
stri = nz( DLookup(...) )
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 Qualcuno può suggerirmelo?
 
Non usare le Domain Function, salvo tu abbia una pistola puntata alla 
tempia.
 
Bruno
 
 

Bruno Campanini ha scritto:

Fortunatamente lavoro in un luogo pacifico. :-)
Mi suggerisci di trovare la stringa in un altro modo, dunque. Purtroppo
non mi viene in mente nulla. Il dato sarebbe anche in una colonna della
ListBox che uso come menu, ma come l'acchiappo?
Grazie.


Newsgroup: it.comp.appl.access
Titolo: Link web approfondimento su files MDE prima della consegna al cliente.

Buonasera a tutti.
Tempo indietro ho letto un approfondimento che parlava dei files MDE e su 
tutte le metodologie da applicare a proposito di:
-inibire l'accesso con Shift alla finestra del database
-proteggere il software da copie illegali
-gestire licenze
-ecc ecc...
Mi sembra che a questa pagina ci si arrivi da uno dei siti di access 
(Sitocomune, Alessandrobaraldi.it, 
accessgroup.it
, 
donkarl.com
 ecc) ma non 
ricordo quale. Siccome è da due giorni che cerco invano, qualcuno ha capito 
a cosa mi riferisco e potrebbe gentilmente comunicarmi il link?
Grazie
Michele
joyl...@alice.it

Trovato!
      6.155 Rendere davvero non copiabile una applicazione Access   di 
Daniele Bertocci
      Si, forse le parole chiavi da me citate proprio non permettavano di 
arrivare a sto articolo....

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

Salve  a tutti volevo sapere se e possibile formattare una tabelle con un
record di colore bianco e uno di colore giallo, e formattare 2 campi con il
formato iniziale maiuscolo Grazie.


Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: accedere ad una proprietà in un ciclo for

ho in una maschera una ventina di pulsanti di comando. sono nominati L402
L403 ...L422
voglio modificare la stessa proprietà es. L-iesimo .visible=true in tutti i
pulsanti.
grazie mille

 wrote in message
atJZ7.32037$s04.1...@news.infostrada.it...

Cicli sull'insieme controls della form. Se devi fare questo per TUTTI i
pulsanti, ti basta testare la proprietà controltype del controllo per vedere
se è un pulsante, altrimenti devi testare il nome. Nel primo caso
for each Ctl in me.controls
  if ctl.controltype = acCommandButton then
    ctl.visible = true
  end if
next
Antonio

 ha scritto nel messaggio
news:%5LZ7.15860$%B.55...@twister2.libero.it...

Quello che ti scrive ANTONIO è giusto, ma se hai altri CommndButton nella
tua FORM
in questo modo viene applicato a tutti.
Solitamente per rendere il Codice più flessibile, si utilizzano
trucchetti....!
Nel senso che se nella tua form hai dei pulsanti che al momento sono
Visibili=no, in questo
sistema dovrai ricordarti di modificare la Routine ed escludere quelli non
interessati....!!!
Io ti consiglio di inserire nella proprietà TAG=1, quidi utilizzando la
Routine di ANTONIO:
Dim ctl as control
for each Ctl in me.controls
   if ctl.controltype = acCommandButton  and ctl.tag=1 then
     ctl.visible = true
   end if
 next
Ciao.
@Alex
--
@Alex
*--------------------------------------------------------------------------*
Alessandro B.
Sito Comune      :   
http://www.sitocomune.com
Sito Personale   :   
http://digilander.iol.it/ik2zok/
*--------------------------------------------------------------------------*

 wrote in message
mu_Z7.17571$SE3.6...@twister1.libero.it...

Al tag non avevo mai pensato. Normalmente, quando devo settare alcuni
controlli di un certo tipo, ma non altri dello stesso tipo, uso il nome.
Chiamo i controlli per esempio anteponendo alcuni caratteri che uso solo per
quei controlli (es. CL_nome, CL_Città ecc.) e poi, ciclando, testo i primi 3
caratteri del nome: se sono uguali a CL_ allora ci lavoro sopra, altrimenti
no...
ma ce ne sono di trucchetti sempre validi...
Antonio

 Antonio
Si come dici è giustissimo, ma con la proprietà TAG eviti operazioni 
su stringhe che rallentano, poi, molto comoda per inserire altri riferimenti.
Pochi la usano, come la priprietà OPENARGS.....!
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
a715534bf458c02a79...@mygate.mailgate.org...

Openargs la uso abbastanza, la tag in effetti la trascuro molto...
Antonio

 ha scritto nel messaggio
news:nDc_7.19420$%B.67...@twister2.libero.it...


 nullo o meno
Scrivi dopo il quoting!!!
Sei complicato eh?
Stai parlando di un campo di una tabella o di un controllo della maschera?
in ogni caso si inverte la situazione:
cicli sui campi della tabella o i controlli testo della maschera
Per ognuno di essi testi se è nullo o no, se non è nullo, sapendo che il suo
nome è nella variabile app farai
me.controls("L" & app).visible = true
Antonio
Newsgroup: it.comp.appl.access
Titolo: aiuto con casellecombinate

Ho creato una maschera di inserimento ed all'interno della stessa ho creato
delle caselle combinate da dove io selezionando la prima e mi scrive
automaticamente le altre 4. tutto questo grazie al seguente codice
Private Sub CasellaCombinata82_AfterUpdate()
Me.CasellaCombinata82 = Me.CasellaCombinata82.Column(1)
Me.CasellaCombinata94 = Me.CasellaCombinata82.Column(2)
Me.CasellaCombinata96 = Me.CasellaCombinata82.Column(3)
Me.CasellaCombinata98 = Me.CasellaCombinata82.Column(4)
Me.CasellaCombinata100 = Me.CasellaCombinata82.Column(5)
Me.CasellaCombinata102 = Me.CasellaCombinata82.Column(6)
Me.Data.SetFocus
End Sub
Queste caselle prendono i loro dati da una tabella creata appositamente.
ora il mio problema è che anche se aggiorno questa tabella con altri
inserimenti la casella combinata vede si l'aggiornamento, ma non le
seleziona per aggiornamento della tabella di inserimento.
grazie a tutti quelli che mi risponderanno e spero di essere stato chiaro.
Lelexx


Prova a inserire  Me.Refresh
Ciao Daniele

 ha scritto nel messaggio
news:EfGCb.204856$hV.78...@news2.tin.it...



Scrivi il tuo messaggio dopo il testo di quello precedente, come faccio io;
grazie.
Dopo che hai inserito i dati devi effettuare un requery della casella
combinata, magari la inserisci nell'evento "su chiusura" della form...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: spezzare percorso file

Salve!
Vorrei spezzare questo percorso da vba:
"c:\windows\notepad.exe" "c:\cartella note\nota1"
cioè:
1-"c:\windows\notepad.exe"
2-"c:\cartella note\nota1"
grazie
 
 


Usa le funzioni stringa come Mid$(...) individuando la posizione del carattere [Spazio] che userai nella funzione Mid$ per specificare nel primo caso dove troncare, nel secondo da dove iniziare...
 
@Alex


non ho capito se quella stringa ti arriva in vba con gli apici oppure no
ad ogni modo se vuoi separare il nome del exe da quel che viene dopo, 
dove l'exe potrebbe non essere sempre notepad potresti splitare la 
stringa cosi
 
 
Dim p() As String
p= Split("c:\windows\notepad.exe c:\cartella note\nota1", ".exe ")
Debug.Print "1-" & p(0) & ".exe"
Debug.Print "2-" & p(1)
 
 
BFS


però se il nome dell'eseguibile è variabile con mid potresti non beccare 
il primo spazio
esempio
 
"C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\acrord32.exe 
c:\cartella note\nota1 "
 
BFS


grazie


grazie

 
 
piů precisamente deve cercare virgolette spazio virgolette... tra 
virgolette :) in modo da escludere eventuali spazi all'interno delle due 
parti
 
temo che debba ricorrere a qualcosa tipo chr(34)+chr(32)+chr(34) come 
parametro di ricerca
 
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


si in effetti ho questo riusultato
" "C:\ecc. ecc.
se poi faccio con replace ho:
""C:\ecc. ecc.


ho poi messo
Mid(p(1), 3)

Il giorno giovedì 20 gennaio 2022 alle 15:53:05 UTC+1 @Alex ha scritto:

ciao Alex 
ho provando con  Mid, però rimane un carattere a destra da togliere
a = "c:\windows\notepad.exe" "c:\cartella note\nota1"
Debug.Print Mid$(a, InStr(a, "EXE") + 6)


Temo che sia impossibile che la variabile [a] possa essere valorizzata da quella stringa, gli apici interni sono in conflitto.
Quel percorso, è costruito non come lo leggi o lo mostri ma sicuramente usando i CHR(34) o il raddoppio degli apici... quindi sarebbe necessario prima capire come è realmente.
 
Per capirci:
a = Chr(34) & "c:\windows\notepad.exe" & Chr(34) & " " & Chr(34) & "c:\cartella note\nota1" & Chr(34)
 
Quindi potrebbe essere replicabile in questo modo con i CHR(34):
Function Test()
 Dim a as String
 a = Chr(34) & "c:\windows\notepad.exe" & Chr(34) & " " & Chr(34) & "c:\cartella note\nota1" & Chr(34)
 Debug.Print a, Mid(a, 1, InStr(a, " ") - 1), Mid(a, InStr(a, " ") + 1, 255)
End Function
 
oppure con la duplicazione dei doppi Apici:
Function Test()
 Dim a as String
 a = Chr(34) & "c:\windows\notepad.exe""" & " " & """c:\cartella note\nota1" & Chr(34)
 Debug.Print a, Mid(a, 1, InStr(a, " ") - 1), Mid(a, InStr(a, " ") + 1, 255)
End Function
 
@Alex


Grazie Alex
Newsgroup: it.comp.appl.access
Titolo: Password per Valoriz_Scorte.mdb

Salve,
scusate se la domanda è poco ortodossa (se lo fosse chiedo 
anticipatamente scusa a tutto il ng): ho scaricato dal sito MS il file 
di esempio che ho scritto nell'oggetto del messaggio.
Volevo studiare il codice VB che è contenuto in questo file, ma è 
protetto da password.
Qualcuno sa quale è la password?
Ripeto, se la domanda fosse offensiva o andasse contro il regolamento 
del ng, chiedo anticipatamente scusa a tutti.
Saluti.
Marco


Ciao Marco
prima di rispondere vorrei scaricare il db in questione.
Puoi postare il link?
Ciao, Carlo 

 
Ciao, il link è questo:
http://www.microsoft.com/italy/pmi/comefare/finanza/valorizzazionescorte/article/article1.mspx
Devi avere un profilo passport per poterlo scaricare.
Ciao

 ha scritto nel messaggio 
news:eIfyd.554904$35.23...@news4.tin.it...

Ciao
ho provato a scaricare il file indicato e risulta composto da due file.
Il codice VBA è protetto da password e, per le mie conoscenze, non conosco 
il sistema per conoscere tale password.
Forse con una richiesta a Microsoft o agli autori del programma potresti 
riuscire ad averla.
Il modulo contiene tre funzioni: Calcolo_CMP, LIFO e Verifica_Movimenti.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: togliere le prime tre lettere da una stringa

Salve!
vorrei togliere le prime tre lettere da una stringa
p.e. CboCliente -> Cliente
 
Grazie


Mid$(MyCbo.Name, 4)

 ha scritto:

per togliere le prime tre a sinistra, devi sapere quanto e' lunga la
stringa, togli tre e prendi quello che avanza a destra 
 
pseudocodice:  right$(MyCbo.name, Length$(MyCbo.name)-3)
 
 
 
-- 
"Le Mondine" Fan Club
 
 

 
 
Sicuro di non esserti inventato qualche cosa... ?
Non esiste Lenght$ esiste LEN(...)
 
@Alex

 
 
č abbastanza frequente quando si programma in piů linguaggi scambiare un 
comando con un altro, p.e. VBA & SQL & SAP & etc
 
ci si accorge subito quando c'č il controllo della sintassi, cosa che p.e. 
nel mio xnews manco me la posso sognare, ma notepad++ lo fa
 
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

 Sicuro di non esserti inventato qualche cosa... ?
 
Ma l'avevo anche scritto che e' "pseudocodice", ossia indicavo il
procedimento generico. Poi la sintassi cambia da linguggio a linguaggio.
 
https://it.wikipedia.org/wiki/Pseudocodice
 
 
ciao


Questo è un NG di VBA... in cui chi scrive non è sicuramente esperto... quindi lo pseudocodice serve a fare pseudoconfusione...
 
Saluti
@Alex
Newsgroup: it.comp.appl.access
Titolo: Tendenza

Data una tabella con i campi articolo, data e quantità,
vorrei estrarre una tabella con i campi:
articolo, tendenza_mensile
Tendenza_mensile è calcolato sommando le quantità per articolo e per
mese e, usando quella serie di valori facendo quello che excel fa con
la funzione previsione o tendenza.
Grazie

In questo periodo le ciabatte da mare credo :)
Ho visto la formula ma non ho capito molto.
tendenza cosa tira fuori alla fine? i 10 prodotti più gettonati al
mese ?
Qualche esempio con pochi dati ?
Ciao
Alex

 Qualche esempio con pochi dati ?
Semplificando, supponiamo di avere un solo articolo e due soli mesi.
Supponiamo questi record data, quantità
01/01   2
05/01   8
12/02   20
Quindi in gennaio 10 pezzi e in febbraio 20.
La tendenza per il mese successivo è 30.
L'output che cerco è la tabella con i campi articolo, tendenza:
A   30
...
...

Io ti consiglio di attivare i riferimenti microsoft excel così potrai
richiamare le sue formule native
direttamente in access:
http://support.microsoft.com/default.aspx?scid=kb;en-us;198571
Altimenti ci sono nel web alcuni esempi cercando la parola chiave
"trend function" o roba simile
tipo questo
http://bytes.com/topic/access/answers/701643-calculating-weighted-average-access
Ciao
Alex

Newsgroup: it.comp.appl.access
Titolo: controllo sequenza numeri

ho creato un db per il protocollo dei documenti, inserisco manualmente il
numero attribuito ad ogni documento ( ho evitato di considerare un campo
contatore), ho previsto un controllo per evitare la duplicazione dei numeri
( non è possibile inserire documenti con lo stesso numero) attraverso
l'applicazione di un indice, mi chiedevo se fosse possibile anche un
controllo per evitare che non ci siano numeri mancanti  ossia buchi nella
sequenza perchè ho saltato un numero.
ciao e grazie

[omissis]
La risposta in questo post di Alex: 
http://groups.google.com/group/it.comp.lang.visual-basic/msg/ced9f8730cf56717?hl=en&
p.s.: ma fa proprio cosě schifo Google?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

> p.s.: ma fa proprio cosě schifo Google?
hai ragione potevo "googlare" con piu' impegno, chiedo venia...
intanto provo con il consiglio del post.
ciao e grazie

Newsgroup: it.comp.appl.access
Titolo: Rendere non accessibile una cartella da Windows tramite A97

 ren nomecartella  ALT+194 nomecartella).
Esiste forse una soluzione diversa al mio problema ?
Grazie.
Massimo

 ha scritto nel messaggio
news:P_e38.31118$tl3.9...@twister2.libero.it...

Prova a Vedere l'istruzione Name nell'Help



per inviare comando dos usa shell
Saluti.
Emanuele.

 ha scritto nel messaggio
news:gbet4u0npagqj73rm...@4ax.com...

Potresti aiutarmi a formulare l'istruzione DOS Ren Nomedocumento
ALT+194NomeDocumento,  con il comando shell ?
Come faccio ad impostare il carattere che si ottiene sotto DOS con ALT+194 ?
Se questo metodo non é fattibile esiste un altro modo per rendere invisibile
una cartella tramite un comando A97 ?
Grazie.
Massimo


l'istruzione è la seguente.... sei sicuro del numero 194....
Name "C:\prova1" As "C:\prova1" & Chr(tuonumero) & "ciao"
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: maschera di input

Ciao
che maschera di input devo usare per fare in modo che in un campo di
testo ogni parola inizi con lettera maiuscola? Non riesco a trovarla,
usando >L<??????? ho solo la prima lettera, ma in caso di doppio
cognome come devo fare per non usare il maiusc?

 ha scritto nel messaggio
news:fjto70t3b5k0m56se...@4ax.com...

Non ci riesci a causa di un boto bug che Avccess ha dalla versione Access
2000 in avanti e che sembrerebbe che Microsoft non abbia proprio intenzione
di eliminare.
Per le versioni suddette in Access il carattere > in una maschera di input
non ha effetto: devi arrangiarti normalizando i dati digitati usando le
funzioni StrConv o UCase (vedi help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:Pu6fc.124707$Kc3.4...@twister2.libero.it...

Grazie, ma mi spieghi dove devo digitare queste funzioni?
grazie

 grazie
Devi richiamare le suddette funzioni a fronte dell'evento "Dopo
aggiornamento" o a fronte dell'evento "Su disattivato" della casella di
testo in cui digiti il dato.

Newsgroup: it.comp.appl.access
Titolo: Riferimento a controlli su report

Ciao a tutti.
A00/W98
Sulla stampa del report Intestazione_DDT, sull'evento attivato, vorrei
aggiungere una routine evento che mi compili il controllo ConsegnareA
(Testo228) secondo alcune regole. Tutti i campi interessati si trovano nella
query sottostante il report.
Non riesco a fare riferimento a questi controlli !
Ho provato anche a porre sul report questi controlli (definendoli non
visibili) ... niente da fare, non riconosce il controllo/campo.Indico di
seguito l'ultimo tentativo fatto.
'Dim Comodo As String
'Dim Comodo1 As String
'Comodo1 = [LuogoDestinazioneDiv]
'Comodo = [Report]![intestazione_DDT]![LuogoDestinazioneDiv]
If Report![intestazione_DDT]![LuogoDestinazioneDiv] Is Not Null Then
    Testo228 = LuogoDestinazioneDiv
    GoTo Esci
End If
If ....
......
End If
......
'Esci:
So che sono conoscenze di base ma ... sto imparando anche grazie al NG.
Grazie ancora.
Maurizio

 Maurizio
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: elenco record in un solo controllo

Vorrei inserire l'elenco completo di un campo di una query (su vari record)
in un solo controllo di una maschera.
Come posso fare?
Grazie Mille
Max
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


usa una casella di riepilogo
-- 
----------------
saluti
Giuseppe


Ho capito bene: tu vorresti che
Pippo
Pluto
Paperino
divetasse
Pippo Pluto Paperino
O no?
MAssimiliano


Esattamente, questo controllo dove andrei a scrivere è collegato ad un campo
di una tabella per cui la soluzione di Giuseppe non fa al mio caso
Grazie Max


 ha scritto nel messaggio
news:81Z73Z225Z31Y1...@usenet.libero.it...

allora devi ciclare sul risultato della query e "costruire" concatenando, il
valore da mettere in casella di testo.


 Grazie Max
Se vai al 3D del 31.03.04 "Record in orizzontale in una maschera" aperto
da Andytre, penso che troverai la soluzione al tuo problema.
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: come si fa' in VBA a sapere quanti campi ha una tabella e i nome dei campi ?

come si fa' in VBA a sapere quanti campi ha una tabella e i nome dei campi ?
grazie Andrea

 come si fa' in VBA a sapere quanti campi ha una tabella e i nome dei campi
?
Insieme fields dell'oggetto tabledef
Antonio

Newsgroup: it.comp.appl.access
Titolo: [Maschere]Domandina forse banale..

Salve,
sto spippolando con A2k da un po' di tempo e più volte mi sono scontrato con
la proprietà Immissione dati relativa alle maschere, mi chiedevo: esiste un
modo all'apertura del db per far visualizzare i campi vuoti senza ricorrere
al settaggio di Immissione dati = si ?
Grazie in anticipo
Il BanditoRe

 al settaggio di Immissione dati = si ?
Se può bastarti andare su un nuovo record:
docmd.GoToRecord ,,acNewRec
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 Silvio
Grazie ma non volevo che fosse visualizzato l'inserimento di un nuovo
record, bensì un record vuoto.
Sono riusto in parte facendo la considerazione che access richiama sempre il
record n°1 .
Ho inserito in quei campi delle scritte "di benvenuto" e le ho rese
immodificabili.
Non è la migliore soluzione ma è abbastanza "agile" e mi permette di
"personalizzare" la prima videata...
Chiunque abbia ulteriori idee su come poter risolvere....
Ciao,
Il BanditoRe

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

Salve,
il mio problema è questo:
ho una ComboBox che contiene due colonne Codice Articolo - Descrizione, la
colonna associata è la numero 1, però ho la necessità di andare a fare delle
ricerche sulla colonna Descrizione Articolo in modo da trovare il record da
selezionare.
E' possibile fare questo?
Grazie anticipatamente a chi vorrà rispondermi.
Saluti Andrea


Vedi nell'help la proprieta Column del ComboBox


Se puoi cambiare l'ordine delle colonne, invertile e indica la nuova colonna
associata (da 1 a 2)...
Ciao.

 ha scritto nel messaggio


 > >
[CUT]
Il nome associato alla seconda colonna di una combo è
    Me![NomeCombo].Column(1)
mentre quello associato alla prima colonna è
    Me![NomeCombo].Column(0)
A questo punto facci quello che ti pare. :-))
Roberto
Newsgroup: it.comp.appl.access
Titolo: 5.4 Aprire un report con un fattore di zoom

Dal sito di Karl, ho immesso questo codice:
    DoCmd.OpenReport "preventivi_madre_tmp", acViewPreview
    Reports!preventivi_madre_tmp.ZoomControl = 80
ed effettivamente il report si apre nella grandezza da me richiesta, il 
problema è che la finestra del report rimane piccola, come faccio per farla 
aprire della grandezza del report?
Ringrazio anticipatamente.
---------------------
Saluti Andrea
---------------------

 ha scritto nel messaggio 
news:443e8741$0$29725$4faf...@reader2.news.tin.it...

Forse su apertura:
docmd.naximize
prima dello zoom
Ciao, Carlo 

 farla aprire della grandezza del report?
<F1> MoveSize
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 <F1> MoveSize
Ottimo, ho usato questo sistema:
    DoCmd.OpenReport "preventivi_madre_tmp", acViewPreview
    Reports!preventivi_madre_tmp.ZoomControl = 80
    DoCmd.MoveSize 0, 0, 10000, 10000
e la pagina viene visionata perfettamente.
Saluti Andrea 

 prima dello zoom
Ho preferito usare il consiglio di Karl, tanto quel report viene aperte 
esclusivamente da un pulsante, grazie comunque.
Saluti Andrea 

 ha scritto nel messaggio 
news:443f9b0f$0$36923$4faf...@reader3.news.tin.it...

Non è la soluzione ideale perchè chi ha una risoluzione più elevata non 
visualizza il report correttamente.
Docmd.Maximize porta le dimensioni del report al massimo dello schermo in 
uso, poi il fattore di zoom fà il resto.
Ciao, Carlo 

 schermo in uso, poi il fattore di zoom fà il resto.
O invece nel MoveSize includi un fattore per la risoluzione. Vedi
www.donkarl.com/it
 FAQ 4.20 Determinare la risoluzione dello schermo


 uso, poi il fattore di zoom fà il resto.
Si, Carlo il comando docmd.maximizze lo uso già per delle maschere nello 
stesso progetto, pensavo però fosse più "delicato" dimensionare i report ad 
una grandezza più vicina all'originale, però mi rendo conto che non avevo 
fatto i conti bene, con le varie risoluzioni che possono avere i monitor, 
vedrò di pensarci.
Saluti Andrea
Newsgroup: it.comp.appl.access
Titolo: Condivisione tabelle su internet/intranet

Cari colleghi,
ho creato e perfezionato nel corso di questi ultimi anni un programma in 
access per la gestione contabile di tutto il mio ufficio.
Il programma funziona così bene che altri uffici della mia regione 
vorrebbero utilizzarlo.
Il problema è fare in modo che ogni ufficio utilizzi il  f.e. [che ho 
realizzato io] condividendo tutti insieme un unico b.e. [che deve 
fisicamente stare da qualche parte su un server a cui i vari f.e. possono 
accedere in sicurezza].
Gli uffici sono dislocati nei capoluoghi di provincia e non esiste una 
intranet aziendale.
Come posso fare?
Ho pensato alle Vpn (virtual private network) ma forse occorre un software 
specifico per i router che si collegano alla vpn.
Qualcuno ha già affrontato il problema? Ha suggerimenti, consigli, 
soluzioni?
Grazie 

Sembra che Franco abbia detto :

penso che la soluzione più corretta sia migrare il BE ad un database 
server come sql server express, è indolore, e ti permette di accedere 
da remoto semplicemente configurando in maniera opportuna i routers.
ciao.
-- 
IgnazioC

 ha scritto nel messaggio 
news:mn.bd9e7d713...@gmail.com.com...



mi viene difficile suggerirti qualcosa,non so neanche se hai mai 
installato sql.
comunque considere che sql express è grautito e lo puoi scaricare da 
microsoft.
http://www.microsoft.com/downloads/details.aspx?FamilyID=220549b5-0b07-4448-8848-dcc397514b41&displaylang=it
a questo punto puoi ricreare il BE direttamente in sqlExpress oppure 
seguire uno dei tanti metodi di conversione che trovi in rete.
ad esempio
http://blogs.ugidotnet.org/lanny/archive/2006/04/21/MigraAccess2SQLServer.aspx
a questo punto, quando il tuo db è su un sql prendi il tuo FE e tramite 
l'utilità "gestione tabelle collegate" quelle che prima erano collegate 
al BE access le colleghi al BE sql.
se sei in rete locale hai finito. se invece uffici remoti devono 
accedere al tuo DB, se hai un router/firewall lo devi configurare in 
maniera appropriata.
spero di esserti stato d'aiuto.
ciao.
-- 
IgnazioC
Newsgroup: it.comp.appl.access
Titolo: Ciclo If non funzionante

Ciao a tutti ho questo quesito da sottoporvi.In questo campo ho
inserito 2 cicli If..
Dim lngRosso As Long, lngFucsia As Long
    lngRosso = RGB(255, 0, 0)
    lngFucsia = RGB(255, 0, 255)
    lngNero = RGB(0, 0, 0)
  If Sesso = "M" And Glob_R_RBC >= 4.5 And Glob_R_RBC <= 5.5 Then
  Me.Glob_R_RBC.ForeColor = lngNero
  Else
  Me.Glob_R_RBC.ForeColor = lngRosso
  End If
  If Sesso = "F" And Glob_R_RBC >= 4 And Glob_R_RBC <= 5.2 Then
  Me.Glob_R_RBC.ForeColor = lngNero
  Else
  Me.Glob_R_RBC.ForeColor = lngFucsia
  End If
CON TALE CONDIZIONE "IN TEORIA" A SECONDA DEL SESSO E DEL VALORE
INSERITO IL CARATTERE DOVREBBE ASSUMERE UN DETERMINATO COLORE.
INVECE FUNZIONA SOLO IL CICLO DELLE FEMMINUCCE,MENTRE QUELLO DEI
MASCHIETTI NON FUNZIONA(O MEGLIO INDIPENDENTEMENTE DAL VALORE CHE
INSERISCO HO SEMPRE IL COLORE FUCSIA)
COME MAI????
Grazie in anticipo
Dino

 Dino
-- 
Ciao
Geppo 

 COME MAI????
dovresti annidare il confronto sui dati numerici all'interno della if 
sul sesso altrimenti fa sempre la "else" dell'if non verificato.
Parlare di "clicli di if" mi sembra eccessivo.
--
ac

 ha scritto nel messaggio 
news:b787889d-f858-4754...@y21g2000hsf.googlegroups.com...



Ciao Geppo sono Dino.
Come sempre molto preciso.Tutto OK.
Il mio errore e' stato di non scorporare bene il ciclo If (ho perso
per strada un ELSE)
Ciao e grazie ancora

 - Mostra testo citato -
Ale sono Dino.Grazie per il consiglio

 - Mostra testo citato -
Merega sono Dino.Grazie per il consiglio
Newsgroup: it.comp.appl.access
Titolo: disabilirare diversi campi in base alla selezione

Salve a tutti, ho un quesito, sto realizzando un gestionalino, e vorrei
poter far si che modificando un valore dentro una combobox renda accessibili
o meno determinati altri dati.... potrei immaginare che sia:
if valore = x then casella1 disable = true
else casella3 disable = false
Grazie per l'aiuto......


Gestisci l'evento della combobox "dopo aggiornamento"; ci inserisci le
istruzioni che abilitano/disabilitano i controlli...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:Zti5d.4803$O9.4...@news4.tin.it...

Scusami ma posso fare?
così per esempio?
If nomecombobox = "X" then
Me.campo1.Enabled=false
End If
però perchè mi dice funzione non supportata?

 però perchè mi dice funzione non supportata?
Cos'è il controllo "campo1"? Casella di testo? Etichetta?
Ciao.
-- 
Sergio MAZZA

 ti spiego:
io e fradage (quello che ha aperto il post) siamo colleghi e lavoriamo allo
stesso gestionale:
La maschera ha una combobox con nome "tipologia_assistenza" con valori
ONCENTER e ONSITE.
il nostro obbiettivo è : se seleziono dalla combobox il valore "ONSITE"
automaticamente le combobox "materiale" e "tecnico" si devono disabilitare.
Una persona nel news group mi ha suggerito di  :
A fronte dell'evento "Dopo aggiornamento" della casella di testo associata
al campo tipologia_assistenza ed a fronte dell'evento "Su corrente" della
mashera,
genera il seguente codice VBA:
If Me!tipologia_assistenza = "ONSITE" Then
    Me!mateiale.Enabled = False
    Me!tecnico.Enabled = False
Else
    Me!mateiale.Enabled = True
    Me!tecnico.Enabled = True
End If
Il problema è che la maschera mi restituisce questo errore:
ERRORE DI RUN-TIME 438
Proprietà o Metodo non supportati dall'oggetto
Faccio il debug e mi indica questa riga:
Me!materiale.Enabled = False
Dove sta il problema????????
GRAZIE


Ripeto; il controllo chiamato "materiale" cosa è? Casella di testo? Etichetta?
L'errore presentato indica che il controllo "materiale" non ha la proprietà Enabled...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: 40036  Errore Definito dalla applicazione o dall'oggetto

Questa istruzione è sempre andata bene:
Forms!MsgMG3!MsgMG3SchedaPastoSottomaschera.Form!NrPasti.Enabled = False
Ora devo aver fatto qualcosa che mi causa l'errore :
"40036  Errore Definito dalla applicazione o dall'oggetto"
Un aiuto grazie e buona giornata al NG.
Nicola
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Nicola
Provato a ricompattare l'mdb?
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Id contatore NON in automatico

Buonasera a tutti, complimenti per il sito, č un ottimo aiuto. Solo che non 
sono riuscito a trovare informazioni per il mio problema che vi espongo:
Access 2003 /windows xp pro
Ho una "tabella" con "Id contatore", "Nome","Cognome" ecc... che modifico 
tramite "maschera". Ora succede che, come sappiamo tutti, nel momento in cui 
inserisco un "Nome" automaticamente mi associa un "Id contantore". Ecco io 
vorrei che, prima inserisco tutti i dati necessari Nome cognome ecc.. e dopo 
tramite un tasto "Salva" scriverli realmente nella tabella associando un 
numero "Id contatore". Penso si possa fare, grazie anticipatamente.
Emanuele 

 Buonasera a tutti, complimenti per il sito, è un ottimo aiuto. Solo che 

E' una procedura che access fa in automatico diversamente da SQL appena 
inizi a digitare il campo associa al record un ID che viene alla fine 
confermato se SALVI...altrimenti si perde e continua la numerazione 
progressiva.
In ogni caso per il tuo problema basta che ti scrivi una routine che se non 
viene cliccato il tasto salva cancella o annulla l'inserimento (vedi 
acCmdUndo o acCmdDeleteRecord).
Ciao
-- 
Roberto da Parma

 numero "Id contatore". Penso si possa fare, grazie anticipatamente.
Per ottenere questo comportamento devi rinunciare ad un tipo di dato "contatore", 
per utilizzare invece un campo di tipo "intero lungo".
A quel punto, per valorizzare tale campo, utilizzerai una routine personalizzata, 
sulla falsa riga di quanto ti ha suggerito Roberto.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


Perfetto fin qui ci sono arrivato, cioč ho cambiato il campo "Id protocollo" 
da "contatore" a "numerico"
e questo campo lo incremento con una formula del tipo 
DMax("[NomeCampo]";"NomeTabella") +1.
Il problema č che non so praticamente niente di codice Vba per risolvere il 
problema di salvare il record solo dopo aver inserito tutti i dati.
Se c'č qualcuno che possa darmi un codice da adattare...........
Grazie. 

 tutti i dati.
Devi sfruttare l'evento Form_BeforeUpdate, dove devi controllare prima di 
tutto se hai già assegnato un valore a quel campo e, in caso contrario, valorizzarlo 
correttamente.
Per cercare il valore corretto, puoi utilizzare la formula che hai scritto 
tu. Il codice alla fine sarà qualcosa di simile a quanto segue:
Public Sub Form_BeforeUpdate()
  If Nz(Me.controlloconilnumero, 0) = 0 Then
    Me.controlloconilnumero = DMax("[NomeCampo]", "NomeTabella") + 1
  End If
End Sub

Newsgroup: it.comp.appl.access
Titolo: Nascondere interfaccia - Problema

Vorrei nascondere l'interfaccia grafica di Access per lasciare
visibili solo le maschere del mio database.
Sto provando la funzione che ramblers ) mi ha indicato su Sitocomune.com 
"Show_Hide_Access_W".
Questa però nasconde, oltre all'interfaccia, anche la stessa
maschera del database.
Ho provato ad estendere la funzione intercettando l'handle hwdn
della maschera che voglio visualizzare:
dwReturn = ShowWindow(Screen.ActiveForm.hwnd, 1)
ma non succede nulla!
Qualcuno puo' aiutarmi??
Thanks
LuKe

 ha scritto nel messaggio
news:3CC40288...@gmx.de...


 wrote in message
aa19au$73k$1...@fe1.cs.interbusiness.it...
