mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Impedire lo scorrere i record con rotellina mouse

Ciao a tutti, sono Giro e vi chiedo ancora aiuto.
Come posso inibire lo scorrere dei record quando muovo la rotellina del 
mouse?
Un grosso grazie.
Inviato da 
www.mynewsgate.net

"giro" <46...@mynewsgate.ned.invalid> wrote in message
news:200402191...@mynewsgate.net

Se hai Access2000 o XP trovi un esempio quì:
http://www.mantuanet.it/alessandro.baraldi/
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:9bb4971d297649a06f...@mygate.mailgate.org...


 > Se hai Access2000 o XP trovi un esempio quě:


 
Ti passo questa sera la revisione per A97...!


 @Alex.
Trovi quì la versione A97
http://web.tiscali.it/giorgiorancati/msaccess.htm
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Server OLE

Molto probabilmente il messaggio è già stato postato, ma non riesco a
troverne traccia. Nel tentativo di inserire un grafico, mi dà questo
messaggio: "Server OLE non registrato.Per registrarlo, rieseguire
l'operazione" già effettuata ma senza risultato, qualcuno sa come risolvere
il problema??. Dipende dal fatto che ci sono installate diverse versioni??
Grazie a tutti
Maurizio
--
     Di solito gli uomini
disprezzano le cose
    che non capiscono
                  Johann Wolfgang von Goethe

Maurizio
vedi se sui riferimenti hai inserito il microsoft graph e se è
installato sul computer
Saluti.
Emanuele.

 ha scritto nel messaggio
news:iF008.17215$cU4.5...@twister1.libero.it...


Newsgroup: it.comp.appl.access
Titolo: operazioni su stringhe

Allora io ho un campo [campo1] composta da un codice alfanumerico di 14
caratteri. come posso far creare in automatico 14 campi nella stessa tabella
rispettivamente [cifra1] [cifra2] eccc. contenenti le rispettive cifre del
codice. Ossia il campo [cifra1] deve contenere il primo carattere del
codice, il campo [cifra2] il secondo ecc.
grazie
---------------------------------------------
Tecnoship s.n.c.
Impianti Navali e Industriali
Mestre - Venezia
tel./FAX +39 (0)41 5312883
e-mail: 
tecn...@tin.it
---------------------------------------------

Funzioni right,mid e left
Newsgroup: it.comp.appl.access
Titolo: Evitare "#Errore" su Report o evitare report vuoto

Salve a tutti,
in una form ho un bottone che apre un report il quale prende i dati da una
query che deve fare un calcolo di differenza mesi tra la data corrente e
quella del record. Il mio problema è che fin quando nella tabella c'è un
record che hai come data sei mesi di differenza con quella odierna va tutto
bene ma se invece non dovesse esserci quando mi apro il report mi esce vuoto
invece io vorrei che desse un msg che non ci sono dati. Posto il codice
forse mi capite meglio:
Query:
SELECT * FROM tblAblazioni WHERE
datediff("m",tblablazioni.data_ablazione,Now())=6;
Codice del pulsante di stampa:
Private Sub cmdStampa_Click()
On Error GoTo Err_cmdStampa_Click
    Dim stDocName As String
    stDocName = "rptAblazioni"
    DoCmd.OpenReport stDocName, acPreview
Exit_cmdStampa_Click:
    Exit Sub
Err_cmdStampa_Click:
    Dim Messaggio
    Messaggio = MsgBox("Non ci sono Dati da Stampare!!", vbOKOnly +
vbCritical, "Gestione Ablazioni")
    Resume Exit_cmdStampa_Click
End Sub
Poi nel reporto ho una casella di testo che ha come origine di controllo:
=(Format([data_ablazione];"mmmm")) che quindi nel caso non dovessero esserci
recod da stampare mi compare #Errore
Grazie
CiPiStO

 ha scritto nel messaggio
news:QJE0d.236305$OR2.10...@news3.tin.it...

Scusate ho ragionato poco ..... ho risolto in questo modo:
Private Sub Report_NoData(Cancel As Integer)
    Dim Messaggio
    Messaggio = MsgBox("Non ci sono Dati da Stampare!!", vbOKOnly +
vbCritical, "Gestione Ablazioni")
    Cancel = True
End Sub
CiPiStO

Newsgroup: it.comp.appl.access
Titolo: Spostare immagine in primo piano con codice VBA

Ciao a tutti,
chi sa come spostare in primo piano una immagine in un report tramite
codice VBA?
grazie

 ha scritto nel messaggio 
news:1169789455.1...@p10g2000cwp.googlegroups.com...

Non credo che per i report si possa fare....
il comando, è acCmdBringToFront.
Se il controllo che sta davanti l'immagine non ti serve puoi sempre renderlo 
invisibile e avrai la sensazione che l'immagine si trovi in primo piano:
Me.Controllo.Visible = False
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Dove trovare cosa

Buongiorno a tutti,
sto cercando di creare una sorta di Diario Giornaliero in Access ma
incontro notevoli difficolta` vista la mia scarsa dimestichezza con
Access. Qualcuno di Voi sa dove posso trovare qualcosa ??
Grazie a tutti, vi auguro una buona giornata.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Access. Qualcuno di Voi sa dove posso trovare qualcosa ??
        File > Nuovo...
        Modelli
        Database
    C'e' niente che faccia al caso tuo fra le autocomposizioni di questa
finestra? Magari non esattamente uguale ma quasi... Per iniziare potrebbe
andar bene lo stesso. Visita anche:
 
http://office.microsoft.com/italy/TemplateGallery/default.aspx
-- 
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

Ciao Maurizio,
grazie per la tua risposta, pero' non sono riuscito a reperire nessuna
informazione da quel link. Hai altre fonti in merito ??
Grazie Ciccio.


 informazione da quel link. Hai altre fonti in merito ??
    Hai visitato anche il link al sito USA?
-- 

Newsgroup: it.comp.appl.access
Titolo: Errore in un campo calcolato

 Il problema è questo ho una query che da una tabella in cui ho due campi di
tipo datatime (APERTURA e CHIUSURA) me li sottrae --> ottengo un
campo con la DURATA in  hh:mm:ss ora vorrei sommare tutte le durate in una
casella di testo a piè di pagina reaport =somma(durata) ma continuo
a visualizzarmi errore?!!!
Il messaggio preciso di errore è questo:
"Data type of the child for Sum, Average,or Standard Deviation aggregate
column (__agg0) must be numeric."
Qualcuno sa che cosa significa?!!
ciao grazie a tutti 

 ciao grazie a tutti
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 ha scritto nel messaggio 
news:DUksf.19110$eD5.3...@twister2.libero.it...

Ho creato un report basato sulla query in cui vengono elencate APERTURA 
CHIUSURA e DURATA
a piè di pagina reaport  ho inserito una casella di testo non associata 
nell'Origine controllo =Somma([DURATA])
quando lancio il report compare il messaggio sopra riportato.
Ciao e a disposizione per ulteriori chiarimenti
Grazie! 

 Grazie!
Prego.


 ha scritto nel messaggio 
news:RVOsf.20665$eD5.3...@twister2.libero.it...

La tabella su cui eseguo la query è una tabella esterna denominata 
Templa1___TEMLAV
Il codice della query è:
SELECT *, DATCH-DATAP AS DURATA
FROM Templa1...TEMLAV TEMLAV_1
ciao sabrina 

 ciao sabrina


 ha scritto nel messaggio 
news:Vyftf.105498$65.30...@twister1.libero.it...

La tabella è fisicamente in un altro database e siccome
io sto lavorando su un progetto ADP la tabella non la vedo come tabella ma 
come query.
Forse è questo il problema??!!
Perchè io continuo ad avere l'errore sopra citato.
Ciao Sabrina 

 Ciao Sabrina
Ciao e Buon Anno.


 Ma l' "altro database" è Access?
e l'altro database è access97


 Ciao Sabrina
Ciao


 ha scritto nel messaggio 
news:fyruf.26563$eD5.4...@twister2.libero.it...

Dopo svariate prove sono arrivata alla conclusione che
il problema è nel collagamento della tabella.
Infatti se la tabella che uso la collego ad un db access normale (.mdb) 
riesco a fare quello che voglio; mentre
quando il collegamento lo facio con il mio progetto (.adp)
compare l'errore sopra citato.
Comunque grazie per l'aiuto ora vedo se qualcuno sa come mai succede quello 
che ti ho descritto; per ora ho
aggirato il problema utilizzando un db mdb.
ciao e alla prossima
Newsgroup: it.comp.appl.access
Titolo: visualbasic

Sto leggendo un manuale per imparare qualche cosa
 ol manuale mi fa creare una form creare due caselle di testo che le nomina 
com txtprima e txtseconda
mi fa inserire questo codice sul gotfocus della txtseconda
Private Sub TXTSECONDA_GotFocus()
If IsNull(Me.TXTPRIMA) Then
MsgBox "ATTENZIONE, è NECESSARIO IMMETTERE UN VALORE " & "NELLA PRIMA 
CASELLA"
Me.TXTPRIMA.SetFocus
Exit Sub
End If
End Sub
e funziona
allora per curiosità provo ad aprire visualbasic 6 e faccio la medesiima 
cosa ma non funziona.
Esiste una differenza???

 Esiste una differenza???
Certo. La vedi per mezzo del visualizzatore Oggetti (Tasto F2).
Access:
Property Value As Variant
    Membro predefinito di Access.TextBox
Visual Basic (Classic):
Property _Default As String
    Membro predefinito di VB.TextBox
-ovvero-
Property Text As String
    Membro di VB.TextBox
    Restituisce o imposta il testo contenuto nel controllo.
Noti il differente tipo (AC:Variant, VB:String) della proprieta`? 
Pertanto con VB(Classic) dovrai scrivere:
Private Sub txtSeconda_GotFocus()
    If Len(Me.txtPrima.Text) = 0 Then
      MsgBox "ATTENZIONE, è NECESSARIO IMMETTERE UN VALORE " _
           & "NELLA PRIMA CASELLA"
	Me.txtPrima.SetFocus
      Exit Sub
    End If
End Sub
ma io prenderei in considerazione l`uso di:
Event Validate(ByRef Cancel As Boolean)
    Membro di VB.TextBox
    Viene generato quando un controllo perde lo stato attivo a favore di 
un controllo che provoca la convalida.
Volendo scrivere codice che possa essere eseguito indifferentemente nei 
due ambienti (perche' mai?!? ma ammettiamo pure) dovresti scrivere:
Private Sub txtSeconda_GotFocus()
    If Len("" & Me.txtPrima) = 0 Then
      MsgBox "ATTENZIONE, è NECESSARIO IMMETTERE UN VALORE " _
           & "NELLA PRIMA CASELLA"
	Me.txtPrima.SetFocus
      Exit Sub
    End If
End Sub
--
Ciao!
Maurizio Borrelli [Microsoft MVP Office System]
http://www.riolab.org/

 ha scritto nel messaggio 
news:g6hmvg$n16$1...@tdi.cu.mi.it...

sei un mago
Il manuale è ACCESS 2002 USO AVANZATO MARCO DE MAGGIO

Newsgroup: it.comp.appl.access
Titolo: Sito su ACCESS

Salve a tutti,
vi segnalo questo sito che tratta l'argomento dei DataBase e in particolare
su Access.
Il sito è ben fatto (anche vista l'affluenza dei visitatori) e tratta per
sezioni,
tutti i vari argomenti (Tabelle, Maschere, Report, Query, Macro e Moduli) di
Access.
Inoltre vengono trattati anche gli argomenti su SQL e Visual Basic for
Applications.
Il sito è esente da pubblicità, quindi si può navigare molto velocemente.
Sono presenti anche delle sezioni riguardanti le FAQ ed è presente anche una
pagina in cui,
è possibile chiedere aiuto e informazioni su i DataBase.
Inoltre il sito è stato recensito dalla rivista informatica PC WORLD ITALIA.
Se non altro vi consiglio di visitarlo.
L'indirizzo è 
http://web.tiscalinet.it/programmazione/
Grazie per aver letto.
Cordiali saluti.

 wrote in message
Ag2t7.884$C15....@news.infostrada.it...

Newsgroup: it.comp.appl.access
Titolo: Problema con import dati da AS400

Salve a tutti, sto provando ad importarmi un file residente su AS400 (SO
V4R3M0) ad excel (lo stesso problema mi si presenta se tento il collegamento
con access, mentre se importo funziona benissimo), ma al momento di
restituirmi i dati mi appare il seguente
errore: SQL0104 TOKEN * WAS NOT VALID. Le ho provate un po tutte lascio solo
campi alfanumerici che contengono almeno un carattere, niente sempre lo
stesso errore. La versione che utilizzo de ODBC č CLIENT ACCESS ODBC
Driver(32-Bit) 5.00.00.00 5/5/98 la versione del SO del PC č W98SE mentre
quella del client access č 3.2.0. Qualcuno ha avuto lo stesso problema??? Sa
darmi un dritta per risolverlo???

Graziano wrote:

Non so darti informazioni sull'errore pero' potresti vedere 2 cose:
1) i file AS spesso contengono campi compressi prova a controllare se
il tuo file e' uno di questi.
2) in una cartella dell'AS ci dovrebbe essere la versione di Client
Access 4.3.0 con le versioni aggiornate del driver ODBC
per saperne di piu' sul lato AS prova a postare su it.comp.as400 la ci
sono i guru che ti sapranno dire di piu' e anche la cartella corretta.
Ci sino delle FAQ su 
http://www.faq400.com/
-- 
Ciao
Andrea Malfatti


Ho usato regolarmente ODBC su AS400 e non ho avuto grossi problemi ad
acquisire i dati da AS400. Ho effettuato la connessione ODBC ed una volta
ottenuto il link dell'archivio tramite query mi sono gestito il tutto. Sia
creando un nuovo archivio in access che creando uno esterno in EXCEL. Il
problema è riesci a vedere e a leggere la tabella importata da AS400 su
access ? Secondo me se non riesci su questo primo punto devi concentrare la
tua attenzione sulla connessione ODBC. Problemi ne ho invece riscontrati con
il flusso opposto (da PC as AS400). La tecnica è più complessa perchè
bisogna costruire prima il tracciato su AS400 e poi scaricare i dati
successivamente con una semplice query. Sulle versioni non posso darti
indicazioni perchè è molto che non ci lavoro più.

Newsgroup: it.comp.appl.access
Titolo: Dateserial, formula errata.

Ciao, non capisco cosa c'è di errato, sono arrugginito ma l'ho sempre
usata;
scritta così mi da errore (l'ho fatto x provare):
Espr1: DateSerial(2005;12;10)
e anche così:
DateSerial(Year(data.tabella); Month(data.tabella)+1;1)-1 (cerco
l'ultimo gg del mese).
i punto e virgola sono corretti, ho usato l'autocomposizione x la
formula.
Grazie

 Grazie
Vedi se risolvi con
http://www.donkarl.com/it/
7.1 - Riferimenti.
Ciao.
-Marco-
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao, rispondo con ritardo.....non riuscendo in altro modo ho provato
a creare un altro DB ed importare tutto nel DB nuovo.
Non va, però la cosa è strana, la stessa formula in un altro DB
funziona, avete idee?
Grazie.
Newsgroup: it.comp.appl.access
Titolo: includere la calcolatrice nei propri db

siccome non so se il db andrà su win98 o xp ecc.... il file calc.exe non
sempre ha la stessa posizione
secondo voi posso inlcuderlo in una mia cartella e poi richiamarlo ed essere
in regola? visto che c'è in tutte le versioni di windows io non faccio altro
che richiamarla da un altro posto.
secondo voi?


Bah... usa:
shell "calc.exe", vbNormalFocus
che funziona sempre...
Poi vedi tu se ti conviene impazzire a fare altre cose astruse.

 wrote in
news:c6tlae$sla$
1...@lacerta.tiscalinet.it
: 

per la licenza, non so dirti...
se però l'applicativo girerà anche su macchine 9x, fai qualche prova per 
decidere se inserire la calcolatrice di win2k/xp oppure quella di win9x, 
dato che la prima, potrebbe non funzionare sui sistemi 9x.
a me era capitato un problema simile con paint: il problema era una dll, 
che la versione di paint per nt richiede e che ovviamente su win9x non 
c'è...
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
| (fake address in reply-to field!)
+-------

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

Ciao a tutti
Ho una tabella con diversi campi in valuta devo convertirli in euro come
posso fare?
grazie e ciao.

be....la maniera piů semplice č una query di aggiornamento...
costruisciti un semplice query di selezione, con l'autocomposizione guidata,
scegliendo la tabella ove andrai a modificare i valori che ti interessano...
nella struttura della query fai un click col tasto destro del mouse nella
"parte grigia dove stanno le tabelle utilizzate per la query" e scegli
tipoquery: di aggiornamento...
mettiti sul campo che devi aggiornare e in corrispondenza di "aggiorna a"
scrivi una semplice formula del genere:
([nomedelcampochedeviaggiornare]/1936,27)
e lancia la query
ciaoooooooooo
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


...e alla fine di tutto ciň aggiorna la data del tuo computer..........
Alfio

 Alfio
Grazie ragazzi per la vostra disponibilità ciao

Newsgroup: it.comp.appl.access
Titolo: attivazione evento

buongiorno a tutti.
Scrivo per il seguente quesito.
Ho un PC con un applicativo di ricezione dati sempre attivo (24H su
24).   Questo applicativo salva i dati in un database access.
Vorrei ora realizzare, sempre in access, un database che possa far
partire una serie di eventi all'arrivo di una nuova trasmissione
(aprire maschera - allarme audio).
Io lascerei sempre aperto il database access; ho la tabella che si
arricchisce di una riga all'arrivo della trasmissione; CHE COMANDO
POSSO UTILIZZARE PER RICONOSCERE IN AUTOMATICO QUESTO EVENTO?
Spero di essere riuscito a spiegare correttamente il problema; grazie
per l'aiuto.
PAOLO CARRARA

 ha scritto nel messaggio news:1156036601.3...@i3g2000cwc.googlegroups.com...

Se nč parlato pochi giorni fa su microsoft.public.it.office.access (server: 
news.microsoft.com
); l'oggetto č: Protocollo seriale-2 
del: 10/08/2006 inviato da lucio...
Ciao.
-- 
Sergio MAZZA 

grazie, adesso ci provo.
  PAOLO
Newsgroup: it.comp.appl.access
Titolo: curiosità personale...

Salve a tutti,
tabella:
prodotto A    prodottoB    prodottoC
125                    254            2254
voi che tecnica usereste per trasformare la tabella cosě:
prodotto    valore
prodottoA    125
prodottoA    254
prodottoA    2254
grazie!
ringo

 ha scritto nel messaggio
news:b3fucl$fl4$1...@newsread.albacom.net...

Scusa non ho capito, tu vuoi che tutti diventino prodotto A
ho ai sbagliato a scrivere?
stefano

 >

 ha scritto nel messaggio
news:b3fucl$fl4$1...@newsread.albacom.net...

Io userei una query unione.
Se la tabella si chiama Tabella1 la query unione dovrebbe avere un codice
SQL simile a questo:
SELECT "prodottoA" As Prodotto, [prodotto A] As Valore
FROM Tabella1
UNION SELECT "prodottoB" As Prodotto, [prodotto B] As Valore
FROM Tabella1
UNION SELECT "prodottoC" As Prodotto, [prodotto C] As Valore;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Importare dati

Salve a tutto il NG
ho la necessità di importare dati da un database access in un altro.
I due DB hanno però struttura diversa. C'è un modo per farlo comunque??
Grazie mille in anticipo
Michele 


certo che puoi devi però fare delle query che adattino la struttura di
partenza a quella di invio
Il tutto è però fattibilissimo lavorandoci su
NOn si può dare una risposta risolutiva, cmq
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: una matrice in una tabella

domanda facile facile (per voi)
tramite una sub ho creato una matrice i cui dati dovrebbero essere riversati
in una tabella: come fare?
Grazie
Diego

 ha scritto nel messaggio
news:bqi3ma$nm0$1...@news.unina.it...

Apri un recordset sulla tua tabella e con un ciclo scorri la tua matrice e
per ogni elemento della matrice registra un record nella tua tabella.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
--------------------------------------------- 


Anzitutto, grazie per la risposta.
Potresti essere un pò più dettagliato:
la mia matrice è numerica ed è 5 x 20
Grazie ancora
Diego

 Diego
Se nella tabella devi registrare un record per ogni riga della matrice.
Se la dichiarazione della matrice č la seguente:
Dim MiaMatrice (4, 19) As Long
Creati una tabella chiamata Tabella1 e che ha la seguente struttura:
Riga              Numerico e chiave primaria
Campo0       Numerico
Campo1       Numerico
Campo2       Numerico
Campo3       Numerico
Campo4       Numerico
Campo5       Numerico
Campo6       Numerico
Campo7       Numerico
Campo8       Numerico
Campo9       Numerico
Campo10     Numerico
Campo11     Numerico
Campo12     Numerico
Campo13     Numerico
Campo14     Numerico
Campo15     Numerico
Campo16     Numerico
Campo17     Numerico
Campo18     Numerico
Campo19     Numerico
Per scaricare nella Tabella1 la matrice MiaMatrice (un record di tabella per
ogni riga di matrice), esegui il seguente codice VBA:
Dim rs As DAO.Recordset
Dim ContaR As Integer
Dim ContaC As Integer
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Tabella1;"
Set rs = CurrentDb().OpenRecordset("Tabella1")
DoCmd.SetWarnings True
For ContaR = 0 To 4
rs.AddNew
rs!Riga = ContaR
For ContaC = 0 To 19
rs("Campo" & Trim(ContaC)) = MiaMatrice(ContaR, ContaC)
Next ContaC
rs.Update
Next ContaR
Set rs = Nothing
La routine VBA di cui sopra fa riferimento alla libreria Microsoft DAO
quindi, se usi una versione di Access successiva ad Access 97, aggiungi tale
libreria ai riferimenti del tuo database.


 Se la dichiarazione della matrice è la seguente:

Grazie, è perfetto!
Diego :o)
Newsgroup: it.comp.appl.access
Titolo: codice per numerazione progressiva decrescente.

Buongiorno
(la faccio in breve )
 ho una tabella anagrafica con campo nome e cognome e numeroP §(progressivo) 
e numeroI (inverso)
 
tramite questo codice, popolo il progressivo quando l'anagrafica è sempre 
uguale, azzzerando il contatore al cambio anagrafica :
 
 
   Do Until ana.EOF
 
                    If ana.nome <> strPrecedente Then Y = 0
                    ana.Edit
                    Y = Y + 1
                    ana.NumP = Y
                    ana.Update
                    strPrecedente = ana.nome
                    ana.MoveNext
      Loop
 
Adesso nella tabella ho aggiunto un altro campo, numP che dovrei popolare 
con una numerazione descrescente,
 
riesco a prendere il totale dei record per la singola anagrafica :
 
 
X = Dcount("[nome]", "[Ana]",  "[Ana]=" & ana.nome
 
ma come lo decremento al record successivo ?
 
Grazie
 
 
 

 Grazie
 
 Prova così... dovrebbe andare bene
Newsgroup: it.comp.appl.access
Titolo: Funzione DIR che non obbedissie ai Jolly

Dalla directory con le mie fatture, e filemetadati, e file firmati, 
vorrei filtrare e leggere solo le fatture, quelli con estensione xml e 
prima dell'estensione finale un underscore e cinque caratteri qualsiasi
 
IT01234567890A_00001.XML
IT01234567890A_00001_MT_001.XML
IT01234567890ABCDEF_00051.XML
IT01234567890ABCDEF_00051_MT_001.XML
IT01234567890ABCDEF_00051.XML.P7M
 
il primo ed il terzo files sono fatture, il secondo e quarto sono i 
files metadati
Per leggere solo i files fatture eseguo del codice di questo tipo:
 
-----------------------------------------------
file_corrente=DIR(dir_coi_file_fattura & "\*_?????.XML", vbNormal)
 
Do while file_corrente<>""
	debug.print file_corrente
	file_corrente=DIR
	loop	
----------------------------------------------
 
Ma li mostra sempre tutti i primi quattro
Non come mi attenderei solo il primo ed il terzo
Allora che sappia io, il carattere * indica la presenza di 0 o piu' 
caratteri qualsiasi, poi' c'e' l'undescore, poi ci sono cinque caratteri 
qualsiasi e poi  .XML
Sto riguardando questa istruzione da migliaia di secondi, ma non riesco 
a trovarci niente di anomalo rispetto a quanto desidero ottenere
Induvele' che sballio ?
 
 
 
 


Infatti devi mettere nel Ciclo:
 
    IF file_corrente LIKE "*[_?????].XML" Then
 
    End if
 
Verifica meglio il PATTERN non ho cercato ma è componibile...
 
@Alex


No, quello che volevo fare e' partire da un set gia' filtrato
Non selezionare dentro al ciclo
E' la DIR iniziale che vorrei 'piegare ai miei voleri'
Nel ciclo scorreranno i file listati dalla dir iniziale
Quindi quello che vorrei capire e' se sia possibile eseguire una DIR che 
visualizzi solamente i file:
- che abbiano estensione .xml
- dove il deci-ultimo carattere sia _
- dove i 5 caratteri seguenti il deci-ultimo siano 5 caratteri qualsiasi
Ho provato anche a fare una dir via finestra dos, che immagino 
restituisca gli stessi file della dir via vba
Niente, nun se piega
 
 

Puoi provare a spingere per piegarlo... ho pero paura delle conseguenze... perchè pare... dico "pare"... non sia flessibile.
 
Se troverai una soluzione sarà interesante conoscerla...
 
@Alex

Valuta questa soluzione, che poi era quello che dicevo...
 
https://stackoverflow.com/questions/17176904/vba-dir-function-filtering-to-avoid-files
 
 
@Alex


Ringrazio per l'aiuto
Ma il problema contingente e' gia' stato risolto usando il ciclo e la 
funzione Like come hai consigliato tu
Resta la curiosita' di capire come mai la DIR non funzioni
Newsgroup: it.comp.appl.access
Titolo: Problemi di importazione file txt con ISAM + SCHEMA.ini

Vi segnalo questi 2 problemi che purtroppo non riesco a risolvere:
1) Devo importare un file di testo (delimitato dal Tab) in una nuova tabella
ACCESS.
Se eseguo l'importazione guidata manuale va tutto bene.
Se automatizzo il tutto inserendo un file SCHEMA.INI nella stessa directory
del file .txt mi importa tutti i record ma per alcuni record
vedendo nella tabella di access tutti i campi contengono la scritta
#Eliminato.
Guarda a caso questi record nella colonna 3 contengono delle virgolette "
che se vado eliminare (manualmente) nel file txt mi risolvono il problema.
Non potendo eliminarle automaticamente (importazione da Oracle) vi chiedo
cosa devo correggere nel seguente file .INI per ovviare il problema:
[codice.txt]
format = tabdelimited
character set = ansi
column1 = Data_ricezione
column2 = Codice
column3 = SUBSTR(ANNOTAZIONI,1,200)
Conoscete delle risorse in rete che spiegano come scrivere schema ISAM (se
non bestemmio ...) come quello usato da me sopra?
2)Se volessi accodare (in maniera automatica, cioè con un click dell'utente)
ad una tabella access già presente come dovrei variare il mio codice (su
Access 97).
Vi elenco il codice che uso per creare una tabella
Private Sub Comando0_Click()
Dim dbs As Database
Dim tdf As TableDef
Dim a As Integer
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef("prova")
tdf.Connect = "TEXT;DATABASE=D:\CODICE\"
tdf.SourceTableName = "codice.txt"
dbs.TableDefs.Append tdf
Set dbs = Nothing
End Sub
IO pensavo di aprire la tabella come recordset e poi fare lo stesso ma non
funziona:
sapete illuminarmi?
Grazie mille
Stefano Gatti
mailto:
sfg...@libero.it


Hai provato a salvare tutta l'operazione che esegui manualmente e
richiamarla poi in vba?
Es.
'-------------
DoCmd.TransferText acImportDelim, "nome specifica di importazione",
"nomeTabella", "d:\varie\sergio\ng\nomeFile.txt", True
'-------------
Questo per importare il file; se devi crearti solo il collegamento cambi la
costante "acImportDelim" in "acLinkDelim"...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: somma di durata

salve a tutti
vorrei calcolare il totale delle durate in una query con i seguenti
campi:
Ora_Inizio: campo data/ora
Ora_Fine: campo data/ora
Durata: Format$(IIf([Ora fine]-[Ora inizio]>0;[Ora fine]-[Ora
inizio];1+[Ora fine]-[Ora inizio]);"hh:nn:ss")
non riesco a sommare il campo durata. Come faccio??  Qualcuno mi può
dare una dritta??

 dare una dritta??
SELECT
  tbl01.ID,
  tbl01.OraInizio,
  tbl01.OraFine,
  IIf([OraInizio]>[OraFine],FormatDateTime(1+[OraFine]-[OraInizio],3),FormatDateTime([OraFine]-[OraInizio],3)) 
AS Differenza
FROM tbl01;
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
Newsgroup: it.comp.appl.access
Titolo: R:Dsum

 Chr(34) &[Articoli]![Codice] & Chr(34))
Mi spieghi prima di continuare perchè parli di query e poi mi scrivi Dsum?
Antonio

Non capisco che significhi scrivi dopo il quoting e comunque per qualsiasi
cosa se ti ha offeso mi dispiace.
In secondo luogo non capisco la domanda sulla query e dsum: non lo so ma č
forse vietato usare dsum in una query ?

 forse vietato usare dsum in una query ?
La Dsum č una funzione di aggregazione sui domini e normalmente si usa nel
codice o nelle espressioni dentro maschere o report. Gią di per la dsum
esegue un'operazione di query, senzxa fare una query vera e propria. Non ha
senso pertanto usarla dentro la query. A quel punto si esegue una query di
raggruppamento e si usa la funzione somma.
Forse dovresti spiegare meglio il contesto in cui ti trovi, cosa vuoi fare
senza dare la tua soluzione...
Antonio

Newsgroup: it.comp.appl.access
Titolo: Barra degli strumenti

E' possibile far sparire la barra degli strumenti 'Visualizzazione maschera'
di una sola maschera?
Grazie
Un saluto
Francesco

 wrote in message 6ap46.4539$FF1.3...@twister1.tin.it...


 Andrea Asioli
Grazie, ma questo vale per tutte le maschere dell'applicazione in corso. A
me servirebbe eliminare la barra solo per un maschera.
Un saluto
Francesco

 wrote in message
92vna4$j8n$1...@lacerta.tiscalinet.it...


 > Francesco
Ho riprovato più volte con una maschera aperta ed anche in struttura
seguendo le voci di menu che mi hai indicato ma il risultato è sempre lo
stesso: la barra di 'Visualizzazione Maschera' mi sparisce anche per le
altre maschere dell'applicazione in corso.
Ciao
Francesco

 wrote in message Fo456.8029$jT6.3...@twister2.tin.it...



Vai sul Sito Comune (indirizzo + sotto) e tra le Tips & Tricks troverai
anche "Routine per togliere e rimettere la barra dei menu in Access 97" di
Giorgio Valsangiacomo
( 
http://members.xoom.it/_XOOM/it_db_access/tips20.htm
 )
Dovrebbe fare al caso tuo.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access
Newsgroup: it.comp.appl.access
Titolo: Chiusura automatica maschera o tempo di inattività

E' possibile chiudere automaticamente una maschera dopo tot secondi che non
si verifica alcun evento  (Keyboard o mouse) ?
E' possibile abbinare un evento sulla pressione del tasto 1 o 2 della
tastiera (non F1 o F2) ?
Grazie in anticipo

 ha scritto nel messaggio
news:b0hc8t$osg$1...@lacerta.tiscalinet.it...

tecnicamente è tutto possibile ....
per il secondo quesito basta che sull'evento kypress controlli il tasto
premuto e se 1 o 2 fai quello che vuoi
stefano

 ha scritto nel messaggio
news:b0hc8t$osg$1...@lacerta.tiscalinet.it...

1)
Sfrutta l'Evento OnTimer di Form, inserisci una Variabile di totalizzazione
as Integer
e ad ogni evento OnTimer sommi 1 alla Variabile.
Se dimensioni il Time=1000(1 Sec.) e aggiungi un controllo sempre
nell'Evento OnTimer
prima di eseguire l'incremento generi quello che chiedi.
Private Sub TuaForm_OnTimer()
If TuaVariabile=300 Then Docmd.Close Me.Name 'In questo caso sono 5minuti
TuaVariabile=TuaVariabile+1
End Sub
2)Se vuoi che il controllo dei tasti sia esteso a tutte le finestre del DB
puoi usare la Macro AUTOKEYS
se invece è dedicato alla Form utilizzata inserisci il codice di controllo
su Evento KeyDown........!!!
@Alex.

 Grazie in anticipo
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: [OT] Saluti e aggiornamenti ...

Ciao a tutti, come state?
Sono stato latitante per diversi mesi ... ma vi tengo sempre nel
cuore!
Giusto per stare sul leggero ... volevo dire una cosa: una mia amica
ha chiamato il cane ADO ... boh ... in tempi in cui è tornato di moda
il DAO....
Spero che il caldo non vi sciolga le tastiere, buon lavoro a tutti.
Mat

 Mat
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 ha scritto nel messaggio 
news:49cc5629-eb07-4f8d...@c9g2000yqm.googlegroups.com...
Ciao a tutti, come state?
Sono stato latitante per diversi mesi ... ma vi tengo sempre nel
cuore!
Giusto per stare sul leggero ... volevo dire una cosa: una mia amica
ha chiamato il cane ADO ... boh ... in tempi in cui � tornato di moda
il DAO....
[risposta]
Perch� ha visto che con ADO non ha problemi di riferimenti...
Risponde subito alla prima chiamata...
Spero che il caldo non vi sciolga le tastiere, buon lavoro a tutti.
[risposta]
Ma sentite tutto 'sto caldo? E ad Agosto che fate? Vi rintanate nel 
frigorifero?
Mat
[risposta]
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Gestire un interruttore in una maschera con campi associati

Ho la necessita' di inserire degli interrutttori in una maschera della
mia applicazione che ha i campi associati a una query.
Il fatto e' che se inserisco un interruttore nella maschera questo si
comporta come un pulsante. Come posso fare in modo che l'interruttore
si comporti come tale...in una maschera associata a campi?
Grazie.


Cosa intendi con "come un pulsante"?
Secondo me un interruttore si comporta sempre come un
interruttore, p.e. in contrario al pulsante resta incassato se
ha lo stato Vero.
Certo un controllo non associato ha lo stesso stato per tutti record.
Puoi descrivere meglio cosa vuoi ottenere?
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha lo stato Vero.
Ecco appunto. Nella mia maschera l'interruttore NON resta incassato
quando lo si preme. Cio' e' dovuto al fatto che l'interruttore sta in
una maschera associata. Visivamente crea confusione perche' l'utente
non riesce a capire bene in che stato ci si trova...
Esiste un modo per rendere "visibile" gli stati dell'interruttore (a
meno di non ricorrere a label...)

 meno di non ricorrere a label...)
Aggiungo che non e' solo un problema di layout. Anche da codice gli
stati dell'interruttore non funzionano.

 stati dell'interruttore non funzionano.
non dici se l'interruttore è associato.
Una causa può essere che l'interruttore sia associato ad un campo di query 
non aggiornabile.
-- 
Ciao
Geppo
-- 
Ciao
Geppo 

 non dici se l'interruttore è associato.
No l'interruttore non e' associato.

 No l'interruttore non e' associato.
Allora la maschera è in modalità sola lettura.
-- 
Ciao
Geppo

Newsgroup: it.comp.appl.access
Titolo: AIUTOOOO problema su somma in report

come posso impostare direttamente sul report la somma del totale fatture di
ogni singola persona?
grazie 1000
Cecilia



supponendo che tu abbia il totale scritto in un campo raggruppi per
persona e  sommi il campo totalefattura...
Saluti.
Emanuele.

 Emanuele.
Si ho un campo con il totale ma il problema è che sono fatture diverse e nel
report devono rimanere dettagliate e NON raggruppate. Quindi creare una
casella totale fatture per quella persona.......
grazie
Cecilia

 ha scritto nel messaggio
news:Pkl5a.284820$AA2.10...@news2.tin.it...




allora va bene la risposta di giorgio
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento dati in tabella.

Ciao a tutti,
ringrazio, innanzitutto, Gaspare e Alessandro Baraldi che mi hanno aiutato a 
risolvere il mio problema relativo all'esportazione di dati da una tabella 
di access in un file ASCII opportunamente spaziati grazie alle specifiche di 
formattazione caratteri e spaziatura, ma ora ho un altro problema:
ho una tabella con questi campi: COGNOME, NOME, DATA INIZIO ATTIVITA', FINE 
ATTIVITA', ANZIANITA' TOTALE.
Ho necessità di aggiornare i valori numerici con virgola contenuti nel campo 
ANZIANITA' TOTALE, ottenuti dalla differenza fra i valori (date) dei campi 
"data inizio attività" e "fine attività", arrotondati per difetto. Faccio un 
esempio:
- 30,50 dev'essere ridotto a 30; 40,99 dev'essere ridotto 40 e così via per 
tutti i valori contenuti in quel campo per ogni riga di record. Io ho 
pensato ad una query di aggiornamento costruita sulla tabella di cui sopra, 
ma non so come impostare i criteri, che cosa devo scrivere per aggiornare 
quel determinato campo, non ho ancora fatto niente. Forse si può fare con 
una funzione o una routine scritta in VBA. Grazie a tutti anticipatamente 
per l'aiuto. Giuseppe. 


update tabella set campo = campo\1
--
a.cara

 ha scritto nel messaggio 
news:jeAqe.1250$bc....@tornado.fastwebnet.it...

Ciao,
scusa potresti essere più preciso ? Non  mi intendo molto di programmazione 
e non ho capito quello che mi hai scritto.
Il valore numerico con virgola, di cui sopra, viene generato con una 
espressione inserita nelle proprietà maschera di quel campo in questo modo: 
[data_inizio_attività]-[fine_attivita]. A volte questo valore, non capisco 
perchè succede, una volta generato con l'invio da tastiera, è visibile nella 
maschera di inserimento dati, ma se guardo nella tabella sottostante in 
modalità foglio dati, quel valore numerico non c'è, nel senso che il campo 
non contiene nessun valore. Perchè succede questo ? E' possibile scrivere 
una Routine evento, che mi aggiorna il campo togliendo i decimali, 
attivabile subito dopo l'aggiornamento di quel campo con l'invio da tastiera 
e fare in modo che il valore intero venga memorizzato nel campo 
Anzianità_totale. Questo per evitare di dover aggiornare quel valore, 
attraverso un'altra maschera di modifica dati basata però su una query che 
mi seleziona tutti i dati della tabella sopra descritta. In questo modo il 
valore viene effettivamente memorizzato nel suo campo, ma comporta una 
perdita di tempo.
Ciao e grazie. Giuseppe. 

 
per far si che sulla tabella non ci siano virgole e sufficiente definire 
il campo di tipo numerico intero o lungo fermo restando che un campo 
calcolato', qualche volta puo' anche servire, ma non e' "normale" 
metterlo sulla base dati . Perche' succedano le altre cose (campo non 
visibile sulla base dati) non ne posso prevedere il motivo.
E' comunque un problema diverso da quello inizialmente postato. Potresti 
farne oggetto di altro 3d.
--
a.cara
Newsgroup: it.comp.appl.access
Titolo: Password da Applicazione.MDB a Dati.MDB...

Sto lavorando ad un progetto che richiede applicazione e dati separati in
Access.
Ordunque... Il database 'Applicazione' (privo di password) gestisce le
tabelle del database 'Dati' nonostante la password che protegge il database
'Dati'. Ma se cerco di modificare la Password che ho immesso nel database
'Dati' dal database 'Applicazione' ho dei problemi per farmi riconoscere la
Password.
Premetto che si tratta di Password generica e non di Password legata a
diritti di Amministratore o altri tipi di Autorizzazioni. Il problema si
presenta sul metodo OpenDatabase() e genera un errore di Password Non
Valida.
Ringrazio anticipatamente chiunque voglia cimentarsi nel dare una soluzione
a questo problema.
PS: sarą mica che la Password č crittografata e il metodo OpenDatabase() lo
ignora?

 Valida.
Il codice per farlo e' il seguente:
Dim dbs As Database
Set dbs = OpenDatabase("mioDB.mdb", True, False, ";pwd=pippo")
dbs.NewPassword "pippo", "paperino"
Set dbs = Nothing
mioDB.mdb deve essere aperto in modalita' esclusiva, non sono sicuro che
funzioni nel tuo caso.
-- 
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
--------------------------------------



Newsgroup: it.comp.appl.access
Titolo: ottenere un collegamento ipertestuale

ho una maschera che in base a dei valori immessi si costruisce 
(nell'apposito campo) il percorso in cui salvare le immagini di cui verrŕ 
visualizzata succesivamente l'anteprima nell'apposito campo immagine...
vorrei far si che o tramite pulsante o facendo semplicemente doppo click 
sull'anteprima, mi venga aperta l'immagine con il programma predefinito di 
windows ed ho pensato di farlo tramite un collegamento ipertestuale ma non 
ci riesco...
sapreste dirmi come fare e soprattutto se ci sono altri metodi per ottenere 
quello che voglio (oltre i collegamenti ipertestuali)???
La versione di access č la 2003
Grazie in anticipo
Nicola 

 Nicola
Su Click o DoppioClick chiama la seguente funzione(da mettere in un
modulo)
Public Sub ExecuteFile(FilePath As String)
    'Esegue file
    On Error GoTo error
    Dim ret As Integer
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " &
(FilePath))
    Exit Sub
error:
    MsgBox Err.Description, vbExclamation, "Error"
End Sub
@Alex

 ha scritto nel messaggio 
news:1175768118....@q75g2000hsh.googlegroups.com...



@Alex
---------------------
grazie mille alex, funziona alla grande :-D
Nicola

Newsgroup: it.comp.appl.access
Titolo: Distribuzione dei dati dalla casello di testo ai controlli appropriati.

Buongiorno e buona domenica a tutti,
 
vorrei realizzare una maschera dove copiando dei dati in una casella di testo questi, dopo apposito click su un comando, vengono distribuiti  nei vari controlli presenti nella maschera.
Il contenuto della casella di testo sarebbe sempre in questo formato:
 
Nome Cognome ------------> Controllo Destinatario
via xxxxxxx nr ----------> Controllo Indirizzo
città pv 99999 ----------> Controllo Città, controllo Provincia, controllo CAP
Italia ------------------> Saltare
telefono ----------------> Controllo TelCell
(riga vuota) ------------> Saltare
em...@xxxxx.xx ----------> Controllo email
 
Sperando di essere stato chiaro ringrazio sin d'ora chiunque potrà indicarmi la strada da percorrere.
 
Grazie
 
Alfio


Nessuno?
....mi serve solo un'indicazione...

 
 
Ho individuato la maniera:
- esporto i dati in un file di testo;
- riga dopo riga leggo i dati e li memorizzo nei controlli.
 
Adesso, sperando in un aiuto vi chiedo come fare per la riga nr 3 (città prov e cap) per leggere un dato alla volta ed inserirlo nei controlli città, prov e cap.
 
Grazie
 
Alfio


...ho capito, mi state boicottando... :D

> ...ho capito, mi state boicottando... :D
 
Risolta anche questa.
 
Alfio
Newsgroup: it.comp.appl.access
Titolo: implementazione archivio immagini

Tratto da sito comune:
"Come implementare correttamente un archivio di immagini.
  Stefano Bettini
.....
.......
........
Esistono almeno due diverse tecniche per ovviare a tale inconveniente:
1) Utilizzare il database solo come "indice", lasciando le immagini esterne
allo stesso.
E' certamente la soluzione più semplice e quella ottimale nel 99% dei casi;
è sufficiente memorizzare all' interno del database il solo path del file
immagine, path che poi potrà essere utilizzato unitamente al controllo
"Immagine" (standard in Access97) per la visualizzazione sia sulle forms che
sui reports.
Supponendo di aver memorizzato il path del file immagine nel campo
Path_Immagine sarà sufficiente inserire un controllo Immagine nella form o
nel report basati sulla tabella ed un controllo nascosto collegato al campo
in questione.
A questo punto, sull' evento Corrente (per le forms) o SuFormattazione (per
i reports) sarà sufficiente aggiungere la semplice riga di codice seguente
per visualizzare l' immagine:
Me.MioControlloImmagine.Picture = Me.Path_Immagine"
Scusate la mia ignoranza da inesperto.... cos'è "controllo Immagine nella
form o nel report basati sulla tabella ed un controllo nascosto collegato al
campo in questione"???
Grazie e davvero scusa per la mia poca professionalità. Ho provato a
cercare, prima di stressarvi,ma non ho trovato.
Grazie e ciao a tutti.

 ha scritto nel messaggio 
news:4238b007$0$32344$5fc...@news.tiscali.it...

Path_Immagine è il nome del controllo nascosto collegato al campo Path della 
tabella.
E' nascosto per comodità, cioè se non vuoi che si veda il percorso del file 
immagine. Puoi renderlo visibili semplicemente impostanto la sua proprietà 
"visibile" = a sì.
Il controllo immagine leggerà il path (percorso) del file valorizzato nel 
controllo nascosto (se vuoi...) e attribuisce questo alla proprietà 
"Picture":
Me.MioControlloImmagine.Picture = Me.Path_Immagine
Ciao, Carlo

 ha scritto nel 
messaggio news:ieb_d.1073708$35.39...@news4.tin.it...

Grazie Carlo....ma anche facendo 200 prove non mi funziona!
Forse sbaglio qualcosina. Posso trovare un esempio fatto da qualche parte?
Oppure avresti voglia di mandarmi un file access semplicissimo con una 
tanella con codice e il campo per il percorso dell'immagine e una maschera 
per visualizzarla??
So che ti farei perdere del tempo, ma mi aiuteresti tantissimo. Alla prima 
occasione ti paghero' una birra da un litro!
Se ne avessi un po' di voglia.......  
bu...@allegracompagnia.com
Grazie davvero. Cristian


Non ho ben capito se ti chiami Carlo, Cristian o Butta.
Comunque in privato ti ho mandato un db di esempio.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Errore di sintassi?!?! Form e SubForm...

Saluto cordialmente il NG,
questa volta il problema sembra banale, ma pur essendo tale non riesco a
venirne fuori.
Il mio prg gestisce la realizzazione dei badge degli impiegati di un'
azienda.
Ho creato una Form, basata su una query, ottenuta mediante join tra due
tabelle (1:n).
Tale Form contiene una sottomaschera con i dati relativi al Badge emesso
(scadenza, tipo badge).
Ora, nel momento in cui cerco di salvare il record dimenticando dei dati che
sono oggetto del controllo del tasto 'Salva Record', succede che non riesce
a trovarmi la Sottomaschera.
Il messaggio dice 'Impossibile trovare la maschera 'SubFormUtente' a cui si
fa riferimento in un'espressione macro o nel codice Visual Basic'.
Dove sbaglio? Forse i riferimenti alla Subform sono sbagliati?
Il codice VBA associato all'evento click del tasto 'Salva record' è il
seguente:
Private Sub Comando44_Click()
If Not IsNull(Cognome) And IsNull(IdBadge) Then
    DoCmd.GoToControl ("txtIdBadge")
    MsgBox ("ATTENZIONE !! Manca il numero di Badge !!!")
   Else
If Not IsNull(Cognome) And IsNull([Forms]![SubFormUtenti]![TipoBadge]) Then
    DoCmd.GoToControl ([Forms]![SubFormUtenti]![TipoBadge])
    MsgBox ("ATTENZIONE !! Manca il tipo di Badge !!!")
Else
If Not IsNull([Forms]![SubFormUtenti]![Scadenza]) And
([Forms]![SubFormUtenti]![TipoBadge]) = 2 Then
    DoCmd.GoToControl [SubFormUtenti]![Scadenza]
    MsgBox ("Attenzione il Badge è permanente!! Cancella la scadenza!!!")
Else
If IsNull([Forms]![SubFormUtenti]![Scadenza]) And
([Forms]![SubFormUtenti]![TipoBadge]) = 1 Then
    DoCmd.GoToControl ([Forms]![SubFormUtenti]![Scadenza])
    MsgBox ("ATTENZIONE !! Immettere la scadenza !!!!")
Else
    DoCmd.GoToRecord , , acNewRec
End If
End If
End If
End If
La prima If va bene, il controllo viene fatto su due campi appartenenti alla
Form principale.
Il tutto si blocca quando effettua il controllo della seconda If in quanto
non riesce a trovare la SubFormUtenti.
Vi ringrazio per l'aiuto.
Ciao Rita

 If Not IsNull(Me.Cognome) And IsNull (Me.SubFormUtenti!TipoBadge) Then
oppure
NomeForsPrincipale!NomeSUBForm!nomeControllo


Grazie mille ora ho risolto !!!
Ciao Rita

Newsgroup: it.comp.appl.access
Titolo: [OT] Buon Anno

Buon anno ragą...
fate i bravi se potete.
Morgan 

 Morgan
Buon anno anche te..!
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


MA QUALE BUONO....
OTTIMO ANNO A TUTTI !!!! 

 Morgan
Roberto

 From - Sun
Ok io forse sono il primo dell'anno
UN FELICISSIMO 2006
a tutta la comunità
Newsgroup: it.comp.appl.access
Titolo: sto impazzendo con il workspace

scusate, sto tentando di fare una cosa nuova, penso che bersaglierò il
ng di messaggi oggi...
comunque:
access 97, protezione a livello utente,
se faccio una cosa del genere:
For Each wrk In Workspaces
    MsgBox wrk.Name
    MsgBox wrk.UserName
Next wrk
perchè nell'unico #default workspace# mi mette sempre "admin" come
username nonostante entri con l'utente specifico (fa così con tutti gli
utenti creati)? non dovrebbe mostrarmi il nome dell'utente che ha fatto
il login?
grazie


...e chiaramente se da questo db faccio
Set dbs = OpenDatabase("c:\database\db2.mdb")
che usa le stesse autorizzazzioni e lo stesso gruppo di lavoro, mia dà
accesso negato perchè tenta di accedere con l'utente admin che è
disabilitato. perchèèèè?
grazie


per ottenere l'elenco degli utenti devi ciclare l'insieme degli users nel
workspace corrente
Set wrk = DBEngine.Workspaces(0)
wrk.Users.Refresh
For Each usr In wrk.Users
 Debug.print usr.Name
Next usr
inoltre per aprire un altro db nello stesso workspace
Set wrk = DBEngine.Workspaces(0)
Set dbs = wrk.OpenDatabase("c:\database\db2.mdb")
-- 
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
--------------------------------------