mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: problemi tra maschere

Volevo chiedere un aiuto.
Ho una tabella che contiene diversi campi nome; via; ecc; e un contatore ID
.
Questa tabella  fornisce i dati a due query (stampati) e (non stanpati )
La query "non stampati" è collegata ad una maschera che inserisce il nuovo
record e lo mette in attesa fino a quando non lo richiamo e lo stampo, a
questo punto dopo che lo ho stampato , questo record, a mezzo di un
controllo si/no, non viene più visualizzato grazie al criterio della query.
la seconda maschera collegata alla query "stampati" ovviamente con la
condizione inversa della prima e mostra tutti quelli stampati.
il mio problema è quello che dalla maschera stampati, a volte debbo far
ritornare un record specifico nella maschera non stampati e con un controllo
debbo aprire la maschera ed andare rirettamente su quel record .
Ora riesco ad aprire la maschera ma essendoci tantissimi altri record, tutte
le volte debbo andarlo a ricercare manualmente sfogliando tutti i record che
non sono stampati.
ho provato così, mi andrebbe benissimo che filtrasse solo quel record ma mi
dà sempre errore
DoCmd.OpenForm "non stampati", acNormal, "", "[id]=" & Chr(34) &
[forms]![stampati].[id] & Chr(34), , acNormal
dove sbaglio ?
Spero di essermi fatto capire .
Grazie Max

 [forms]![stampati].[id] & "'", , acNormal


Questa quì sopra è stata la soluzione vinvente... mi sembrava  di averla
provata ma ... sicuramente non la avevo scritta a dovere.
Come sempre 1000 grazie - Max


Newsgroup: it.comp.appl.access
Titolo: macro autoopen di word non eseguita su apertura da access

crosspost
ho dei documenti word che se vengono lanciati da word attivano la loro macro
autoopen tranquillamente se li lancio da access mediante
....
Dim objWord As Word.Document
    Set objWord = GetObject(CurrentProject.path & file1, "Word.Document")
 objWord.Application.Visible = True
...
la macro autoopen non si attiva, come posso risolvere
ciao e grazie
max

 crosspost
No, purtroppo hai fatto un multipost invece di un crosspost.

Puoi provare le due metodi desritti qui:
http://groups.google.com/group/microsoft.public.word.vba.general/browse_frm/thread/9c51a504cbef64b0
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:7ctomeF...@mid.individual.net...

dovevo aggiungere come dal post indicato
[Document_Ref].RunAutoMacro wdAutoOpen
grazie e ciao
Max 

 ho dei documenti word
word?
Mazza, mazzola!

 ha scritto nel messaggio 
news:t6fuwrn0mddn.g...@40tude.net...

E poi sono io il cretino... Povero giuggiolone...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
-- 
Ciao
Geppo 



Non distrarti, che qui ti riempiono l'ng di offtopic, vai, mazzola

 Non distrarti, che qui ti riempiono l'ng di offtopic, vai, mazzola
Come immaggini da buon mazzolatore sono sempre sul chi va la'; e poi posso 
contare su un fido sancio panza come te che me li segnala... Vai!
Ciao.
-- 
Sergio MAZZA 

 Geppo
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Valore costante in piu' query

Un saluto a tutti. Ho all'interno di un mdb varie query che hanno in
corrispondenza di un campo "anno di riferimento" o simile nella riga criteri
il valore "2002". L'anno prossimo ( non necessariamente il 1
gennaio ),dovro' modificare tutti questi criteri  trasformandoli in
"2003".Qual'e' il modo migliore per
fare in modo che tutti i criteri puntino ad unico valore che sara' l'unico
che dovro' cambiare al giro d'anno. P.S. Le query devono essere tutte
aggiornabili. Grazie a tutti

 ha scritto nel messaggio
news:%Ggv9.89633$%M1.22...@twister2.libero.it...

Ritengo non sia possibile inserire una variabile direttamente nel criterio di
una query. Però nulla ti vieta di definirti una funzione che restituisca il
valore da te desiderato. Così, se per esempio ti fai una funzione del tipo:
Public Function LaMiaData()
    LaMiaData = 1965
End Function
poi avrai la possibilità di mettere =LaMiaData() dovunque voglia nei tuoi
criteri.
Ciao. Claudio.

Newsgroup: it.comp.appl.access
Titolo: escludere campo da AllowEdits=False

Ciao. Una domanda: nel mio programma in access 2007 ho una maschera in
visualizzazione Maschere continue con due bottoni Modifica e Salva che
impostano la proprietà AllowEdits della maschera rispettivamente a
True e False. Però vorrei che un singolo campo textbox fosse sempre
modificabile anche una volta premuto su Salva. Ho provato con
Campo.Enabled=True e anche con Campo.Loked=False, ma è sempre bloccato
finchè non premo Modifica. come posso fare? grazie!!!

Paola ha scritto:

La proprietà AllowEdits blocca tutti i controlli associati e, che mi
risulti, anche quelli non associati.
Se vuoi bloccare soli i controlli associati puoi usare la proprietà "Tipo
recordset", vedi help.
Se vuoi bloccare tutto tranne una sola casella non puoi usare AllowEdits
ma devi usare le proprietà Abilitato e/o Bloccato (Enabled e Locked) dei
singoli controlli, le puoi impostare con un ciclo:
 
dim ctl as control
for each ctl in me.controls
  ctl.locked=(
ctl.name
<>"Sblocca")
next
 
Sostituisci "Sblocca" con il nome del controllo che deve essere abilitato.
Ciao.
-Marco-
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

Paola ha scritto:



On 18 Gen, 11:36, 
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:

Grazie mille!
Utilizzerò il ciclo per bloccare tutti i controlli perchè preferisco
non modificare il tipo di recordset.
L'unica accortezza è quella di verificare, prima di bloccare il
controllo, che non sia di tipo Label (se si può..io non sono riuscita,
ma non ci ho perso tanto tempo) sennò dà errore...oppure inserire
prima del ciclo il classico On error resume next.
ciao

 ciao
 
Lascia stare l'On Error..., usalo solo quando non ci sono alternative.
In questo caso vedi l'help, Proprietà ControlType.
Escludi anche eventuali linee, immagini, ecc...
Ciao.
-Marco-
 
 
-- 

Newsgroup: it.comp.appl.access
Titolo: forse domanda già fatta ma non riesco....

come si crea un HLP di guida per un nostro dbase in access?
e come lo si richiama dall'interno di access?
io possiedo la versione completa di office XP developer.
grazie a tutti.

 e come lo si richiama dall'interno di access?
Con un apposito tool di creazione help.
Poi devi metterlo nella stessa directory del database.
Antonio

 Antonio
Ti ringrazio, come si chiama il tool? è presente in versione developer o lo
trovo dove? tu puoi inviarmelo?
grazie.

 ha scritto nel messaggio
news:SLdo9.60052$e31.1...@twister2.libero.it...

Esistono versioni free su internet, chiaramente senza tanti effetti
speciali.
Oppure a pagamento.
Qu un thread dell'altra settimana qualcuno pubblicò un nome
Antonio
Newsgroup: it.comp.appl.access
Titolo: Distribuzione Prodotti Access

Buongiorno
avrei la necessitą di aiuto al fine di poter distribuire un prodotto
sviluppato in access.
La mie necessitą sarebbero le seguenti:
- Fare in modo di porre una password che sia diversa ad ogni utente.
- Avere un software che auto installi le librerie necessarie e il runtime
necessario
Qualcuno č in grado di darmi informazioni precise su come procedere sia con
la versione di Access97 che 2003 ?
So che sono domandeu n po confuse....ma sinceramente č questa la mia
situazione attuale...molta confusione su come procedere.
Grazie a tutti per l'attenzione
Lgi

 la versione di Access97 che 2003 ?
Dovresti acquistare i Developers Tools per Office System
Li uso e sono molto soddisfatto.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Come aggiornare una textbox con somma di 2campi

In una Form ho 2 textbox:
1 collegata a un campo numerico [TotSollMese]   nome TextBox="TotSollecito"
1 non collegata che al suo interno genera il segunte risultato   nome
TextBox="TotSollMese"
TotSollMese.SetFocus
TotSollMese.Text = DSum("[TotSollecito]", "[Registrazioni]",
"[TotSollecito]>0")
Come posso far si che ogni qual volta vario un valore del campo
[TotSollecito] il risultato di TotSollMese mi venga automaticamente
aggiornato in tempo reale?
Altra domanda: Nell'istruzione DSum posso specificare piů criteri? Come si
fa?
Ultima domanda: Mi serve un criterio che tenga conto di tutti i giorni del
mese e dell'anno correnti. Puň andare bene cosě?
NB:il campo [DataSollecito] č un campo data
    "[DataSollecito] = ?? + "/" + month(date) + "/" + year(date)
Credo che il criterio contenga degli errori
Grazie!


Me.TotSollMese.Requery quando vuoi tu se hai messo come origine controllo di
[TotSolMese]
 = DSum("[TotSollecito]", "[Registrazioni]", "[TotSollecito]>0").
Se invece usi il codice è sufficiente richiamare (call) la sub.
Un esempio (ne puoi trovare anche sulla guida) con più criteri:
DSum("[TotSollecito]", "[Registrazioni]", "[TotSollecito] > 0 And
[TotSollecito] < 1234")
Per quel tipo di criterio ti consiglio di creare una query raggruppata con
un campo del tipo:
MiaData=Format([DataSollecito];"aaaa") e che abbia come criterio
Format(Date();"aaaa")
Aggiungerai pure il campo da impostare a "Conteggio".
Poi da codice sarà sufficinete leggere il campo impostato a conteggio con un
bel DlookUp.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: avviare sb da altro db ma ridotto a icona e senza perdere il focus

buongiorno a tutti, chiedo se qualcuno sa come si possa avviare un database da un altro database ma 
 
1. quello aperto ridotto a icona 
2. senza che il database chiamante perda il focus
 
Grazie a tutti (anche ad Alex per dire)


Definire 'database'
Prima cosa per 'database' intendi un progetto Access (dati+codice) o
un'istanza Sql Server o altro db server simile?
 
Definire 'avviare database'
Intendi forse caricare in memoria ed avviare un secondo progetto Access?
Intendi forse leggere i dati dal secondo progetto Access?
Intendi forse avviare in esecuzioni sub/function del codice dentro il 
secondo progetto Access?


Caro il mio "Paolo Rossi"...  diceva il direttore mentre giocava a biliardo con il ragioniere...
 
Grazie grazie grazie, altrimenti sai che per rispetto reverenziale, mi sarei trattenuto. 
 
Ci sarebbe da capire cosa devi fare con l'altro applicativo che devi aprire... devi recuperane i riferimenti di automazione per interagire o no...?
Ci sono vari modi per farlo ma molto condizionati dallo scopo, poi per ripristinare il Focus sul MAIN basta l'API SetFocus sull'Handle del MAIN.
 
@Alex


un file accdb deve aprire un secondo file accdb che ha l'unico onere di controllare ogni tot secondi se accade qualcosa nelle tabelle e cosi non porta via prestazioni al primo accdb
il primo accdb deve quindi aprire il secondo accdb ridotto a icona e però avviandolo il primo accdb non deve perdere il focus

 il primo accdb deve quindi aprire il secondo accdb ridotto a icona e però avviandolo il primo accdb non deve perdere il focus
 
Prova con Shell in modalità vbHide, dovrebbe non spostare il focus.
 
dim retVal As Variant
retVal=Shell(SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE",vbHide)
 
@Alex


Ho perso un pezzo per strada... devi concatenare il Nome del File
 
dim retVal As Variant 
retVal=Shell(SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE" & " " & "C\:NomeFile.Accdb",vbHide) 
 
@Alex

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

Mi consigliate un progetto da fare in access (mi serve per un esame) che non
sia la solita biblioteca o conto corrente o campionato


Gestione magazzino?
Negozio di dischi?
Albero genealogico?
Rilevazione crediti?
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: [OT?] Elenco stampanti installate.

Mi sono trovato a risolvere il ciclico problema di presentare un elenco
delle stampanti installate nel pc; non mi sembra sia stata pubblicata sul
sito comune (forse è ancora ferma alla dogana) e neanche inviata nell'NG.
Quindi mi faccio avanti e ve la propongo:
'------------------
Dim WshNet, oPrinters, counter As Integer
Set WshNet = CreateObject("Wscript.Network")
Set oPrinters = WshNet.EnumPrinterConnections
'legge le stampanti installate
For counter = 0 To oPrinters.Count - 1 Step 2
    Debug.Print "Porta: " & oPrinters.Item(counter) & " = Stampante: " &
oPrinters.Item(counter + 1)
Next
Set oPrinters = Nothing
Set WshNet = Nothing
'------------------
Il tutto è rintracciabile nella documentazione in italiano scaricabile dal
sito MS (
http://www.microsoft.com/italy/scripting/).
..
Ciao.
--
Sergio MAZZA



Ciao Sergio,
aggiungo che e' anche possibile impostare la stampante di default:
Sub sPrint(sPrinter As String)
    'sPrinter: nome della stampante
    Dim WshNet As Object
    Set WshNet = CreateObject("Wscript.Network")
    WshNet.SetDefaultPrinter sPrinter
    Set WshNet = Nothing
End Sub
al contrario, sembra non sia possibile sapere quale stampante e'
installata, qualcosa del tipo GetDefaultPrinter!! (naturalmente
attraverso Wscript)
Tu hai notizie?
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


Macché; sembra che manchi proprio quello di metodo... Sto' provando se è
proponibile la lettura del file di registro o accedere direttamente (se
possibile) al file .cpl...
Ciao.
--
Sergio MAZZA

 possibile) al file .cpl...
... ma se devi usare il registro, allora tanto vale usare questa ;-)
Private Declare Function GetProfileString Lib "kernel32" _
   Alias "GetProfileStringA" _
  (ByVal lpAppName As String, _
   ByVal lpKeyName As String, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long) As Long
Function GetDefaultPrinter() As String
    Dim strDefault As String
    Dim lngbuf As Long
    strDefault = String(255, Chr(0))
    lngbuf = GetProfileString("Windows", "Device", "", strDefault,
Len(strDefault))
    If lngbuf > 0 Then
       GetDefaultPrinter = tbExtractStr(strDefault, 1, ",")
    Else
       GetDefaultPrinter = ""
    End If
End Function



Se è "multipiattaforma" ed è l'unica soluzione disponibile...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: [Access 2000] Problemi apertura DB

Ciao a tutti.
ho un DB Access 2000 con una Maschera Master Detail.
Nei Dettagli ho un campo che riporta la path di immagini sul disco.
Io associo al record Master l'immagine Detail selezionata all'evento 'su
corrente'.
Il problema è il seguente : quando chiudo il DB e lo riapro subito dopo, non
viene aperto !!
Nell'elenco dei Task di Windows 98 c'è MSAccess, si vede il file ldb del
Database, ma non lo apre !!!
Devo PRIMA terminare il task POI aprirlo !!!
In questo caso me lo apre....
Qualcuno ha qualche idea ?
Grazie
--
                  \/
                 -   -
                 (.) (.)
----o0O0o--(_)--o0O0o----
<<Oh Grande Spirito,
Concedimi la serenità
Di accettare le cose
Che non posso cambiare,
Il coraggio di cambiare le cose
Che posso cambiare,
E la Saggezza di capirne la differenza.>>
               (Preghiera Cherokee)
Ciao
Franco

 ha scritto nel messaggio
news:a9e7op$2d4d3$1...@ID-104779.news.dfncis.de...


Newsgroup: it.comp.appl.access
Titolo: Problema con sottoreport non espandibile

Ho un report con una immagine di un modulo sullo sfondo; all'interno del
corpo del report ho
due sottoreport, che non possono essere espandibili, perché devono
rispettare i margini del modulo.
I dati che non rientrano nelle dimensioni stabilite del sottoreport non
vengono visualizzati né stampati.
Come è possibile risolvere questo problema?



scrivi più in piccolo o scrivi di meno
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: come avere una percentuale esatta?

Nel mio file c'è una colonna di importo storico sulla quale devo calcolare
una percentuale del 5%.
Ho visto che il risultato di access è sempre diverso dal totale che in
realtà dovrebbe apparire (se faccio il calcolo in excel viene giusto).
Quindi volevo sapere se esiste un modo per avere gli importi esatti in
access.
grazie
Cecilia

 wrote in message
_54xa.104151$3M4.2...@news1.tin.it...

cosa vuol dire che l'importo non è esatto?
Ciao Max

> cosa vuol dire che l'importo non è esatto?
sine_die_5%: Somma(Int(([importo_euro]*(5/100))))
questa è la formula che ho scritto nella query
ES: importo ? 3.162,95 - il 5% che devo addebitare è ? 158,15
ma in access il risultato è ? 155,00
E' sbagliata la formula?
Ceci

 wrote in message
On5xa.104640$3M4.2...@news1.tin.it...

scusa ma perchè metti int? cosi facendo fai la somma dei soli interi dei
vari importi ed ottieni degli errori.
 Max

il punto interrogativo l'ha trasformato l'email in invio x' sarebbe EURO ma
stai tranquillo che non ci sono simboli nella formula.
Pura e schietta la formula che ti ho scritto
ceci

 wrote in message
SS5xa.104816$3M4.2...@news1.tin.it...

nella formula hai scritto:
sine_die_5%: Somma(Int(([importo_euro]*(5/100))))
questo vuol dire che fai la somma degli interi del 5% degli importi
cioč se tu ha un valore 53 il risultato di questa formula č 2 e non 2,65
come č esatto
se togli quell'int ti troverai con degli importi calcolati corretti.
Ciao Max


GRAZIE 1000
BACIONI
KISS
BESOS
CECI
Newsgroup: it.comp.appl.access
Titolo: cancella file da HD

Scusatemi, sono ancora io che rompo.
Ho un nuovo problema.
All'apertura della mia Applicazione, ho la possibilita' di switchare su
diversi Back_end, ed in questa fase ho la possibilità di creare un nuovo
archivio di lavoro, copiandolo da uno vecchio già esistente.
Questo Archivio, è composto, a parte il BAck_End, anche di una cartella che
contiene una serie di immagini scannerizzate, indi quando faccio la
duplicazione del back, devo duplicare anche la cartella con i relativi file
scannerizzati.
Fin qui' tutto OK, ho preparato la procedura che funziona molto bene.
Ora il mio problema è, quando associo un nome al nuovo Archivio, in realtà,
potrei associare un nome di Archivio già esistente, e quindi vorrei
controllare questa possibilità, dando la possibilità di poter decidere se
cancellare il vecchio archivio.
La procedura funziona per il back_end, ma nel momento che creo la nuova
directory con
MkDir Path_DBLavoro & "images\" & NomeFile & "_BE.MDB"
la procedura mi va' in errore perche' la directory già esiste, allora prima
di crearla, controllo se già esiste
myfolder = Dir(Path_DBLavoro & "images\" & NomeCartella, vbDirectory)
If myfolder <> "" Then
     If MsgBox("Già esiste una cartella con questo nome, vuoi Eliminare con
essa anche i vecchi file??") = vbOK Then
IL MIO PROBLEMA è QUI', COME ELIMINARE LA CARTELLA CON IL SUO CONTENUTO?????
     Else
        Exit Sub
     End If
     MkDir Path_DBLavoro & "images\" & NomeCartella
End If
Scusatemi ancora per le troppe richieste e Grazie
Raffaele


        Kill Path_DBLavoro & "images\" & NomeCartella\" & "*.tif"
        RmDir Path_DBLavoro & "images\" & nomeCartella
Ho trovato da solo la soluzione, Grazie ancora

Newsgroup: it.comp.appl.access
Titolo: Problema Password

Ho creato dei gruppi di lavoro con le relative password, tramite
l'impostazione guidata di access, il problema avviene quando condivido il
database in rete, infatti succede che la password la chiede solo nel
computer dove č sito il programma, mentre su gl'altri computer il database
va in esecuzione senza chiedere la password.
Altro problema..nel pc in cui c'č il programma protetto, vengono protetti
anche tutti gl'altri programmi fatti in access con gli stessi
criteri.....Perchč?
Cordiali Saluti

 wrote in message
news:a6tr2b$6k3$1...@pegasus.tiscalinet.it...

1)Per la gestione UTENTE-->PASSWORD devi allegare anche il file.MDW
o perlomeno inserirlo nell'esecusione, a tal scopo puoi modificare
la stringa di comando dell'ICONA aggiungendo "/PathFile.MDW"
Credo in ogni caso sia sconsigliabile fare cosě, ritengo piů giusto
il funzionamento attuale.
Anche se gli altri UTENTI non inseriscono la PASSWORD se hai configurato
bene la gestione UTENTI non hanno accesso a determinate parti di
programa.
Cosa giustissima.
Poi se vuoi gestire gli utenti e le Permission conviene farlo
a livello di Codice.
2)Devi ripristinare il System.MDW
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: importazione dati

Cosa succede se importo dei dati all'interno di un programma scritto in VB ,
rispettando il tracciato record , ma tali dati non sono presenti in alcune
tabelle del sottostante database di access 2000 ?
Ad esempio se importo dei dati contabili ( causale, cliente, numero fattura
, importo , CODICE IVA , etc...) e ad es. il codice iva importato non è
presente nella corrispondente tabella dei codici iva di access ?
saluti!

 ha scritto nel messaggio 
news:LsXEd.394319$b5.19...@news3.tin.it...

Direi nulla; se ogni dato ha il suo campo nella tabella ricevente ad access 
non gli interessa se in un'altra tabella non c'è il codice iva che importi. 
Il problema è per la tua applicazione che forse dovrà gestire quella 
tabella...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Creare codici documento sequenziali

Ciao!
Nella creazione di un programmino personalizzato in access che gestisca
preventivi e fatture ho sbattuto pesantemente il cranio su questo
ostacolo..
I codici sequenziali dei preventivi o delle fatture al momento vengono
fatti a mano, e sono tipo, che so: P101/05, P102/05 per i preventivi
oppure F706/05 F707/05 per le fatture.
Dovendoli creare in automatico, inizialmente avevo pensato
all'autonumber di access. Ma come sicuramente saprete, e' un tipo di
campo che una volta incrementato il valore non da' la possibilita' di
tornare indietro: se si cancella una fattura ad esempio, tra la
numerazione precedente e quella successiva rimane un "buco" che non si
puo' piu' colmare. Per i preventivi non c'e' problema, ma per le
fatture e' un bel casino perche' devono essere necessariamente
progressive.
Come si puo' fare quindi a creare un campo nella maschera che combina 3
valori alfanumerici di cui uno venga incrementato ogni volta? Vi siete
gia' ritrovati con questo problema?

 ha scritto nel messaggio
news:1133458269.5...@g43g2000cwa.googlegroups.com...

ciao Burzuma,
vai sul SitoComune 
www.sitocomune.com
 e nella sezione Queries apri il link:
2.1. Come posso inserire nella mia query un campo progressivo?
em.an
Newsgroup: it.comp.appl.access
Titolo: Automatizzare un'importazione completa

Salve a tutti.
E' possibile creare un MDB (o un MDE, non fa differenza) per:
- creare un DB vuoto
- importare dentro questo DB tutto il contenuto di un altro DB?
Esempio, creare builder.mdb con un maschera ed un solo bottone, che:
- crea vuoto.mdb
- importa dentro vuot.mdb tutto il contenuto di pieno.mdb
1000 grazie,
Luca

 ha scritto nel messaggio
news:s03xO1V66xkvzu...@4ax.com...

Non è più semplice copiare pieno.mdb in vuoto.mdb (copia file) ?

Non č piů semplice copiare pieno.mdb in vuoto.mdb (copia file) ?
Certo :]
Pero' non e' quello che mi serve.
Era un modo per far generare e compilare un db su un altro pc.
Ti spiego: devo mandare un mdb a un tizio, pero' da me va e da lui no.
Se vado da lui, creo un db vuoto, importo tutto il mio, allora va.
Pero' volevo evitare di tornare da lui ad ogni modifica.
Luca


E' probabile, allora, che tu sul tuo db hai dei riferimenti che lui  non ha.
Verifica i tuoi e controlla che siano tutti veramente necessari e dagli il
db messo a posto.


In effetti e' proprio cosi' ... e per evitare di pasticciare con i
riferimenti volevo sgattaiolare dal problema con il mio sistema poco
ortodosso.
In effetti mi da i classici problemi su robe assurde tipo la funzione
"left" ecc.
Guardero'  i riferimenti. Forse faccio prima. ;)
Luca

Newsgroup: it.comp.appl.access
Titolo: msgbox in un ciclo for...next

 Dim a(53) As Integer, k
    For k = 1 To UBound(a)
        a(k) = DCount("n_sett", "Conta_settimana", "n_sett = '" & k & "'
and incaricata=" & Me.Cod)
 
        If a(k) = 0 Then
            Me.Controls("cksettimana" & k).Value = 0
 
        Else
            Me.Controls("cksettimana" & k).Value = 1
            Me.Controls("TOTSETTIMANA" & k).Value = a(k)
        End If
    Next k
In questo ciclo avrei necessità di un solo msgbox se non ci sono da
visualizzare, inserendolo dopo
  If a(k) = 0 Then
ne ricevo logicamente 53
Come fare?
1000 Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 1000 Grazie
Usi una variabile boolean: Dim Avvisa as boolean.
All'inizio fuori dal ciclo la imposti: Avvisa=false
Nel ciclo la cambi se serve: If a(k) = 0 Then Avvisa=true
Alla fine fuori dal ciclo visualizzi il messaggio:
  if Avvisa then msgbox ......
Ciao.
-Marco-

Newsgroup: it.comp.appl.access
Titolo: Esercizi con access??

Sapete dirmi dove posso reperire alcuni esercizi per allenarmi con access???
(In quanto non ho molta vena creativa per crearmeli da solo)
Ryo

"Ryosaeba0979" <lLEVAME...@SPAMfastwebnet.it> ha scritto nel messaggio 
news:kTJzf.39113$av6....@tornado.fastwebnet.it...

Poniti dei problemi che potresti riscontrare in vari settori lavorativi e 
cerca di risolverli.
Leggiti la guida in linea
ciao. 


Esercizio n. 1
Mazza è il presidente (prestanome!!!!) di una piccola azienda (molto
piccola!!!)
Lui commercializza tergicristalli per occhiali da sole a Londra (sai gli
inglesi ci tengono agli accessori
ma il sole non lo vedono mai)
Bene mi presenti una scheda articolo (con relativa giacenza - non il valore
di magazzino),
una scheda acquisti, vendita e una scheda clienti fornitori
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Ryo
Non devi inventarti nulla, sei in grado di sviluppare
un gestionale come NorthWind.mdb ...?
Viene fornito come Demo con Access.
Se sei in grado di farlo in autonomia allora sei a buon punto
se quello già lo ritieni complesso, studialo ed imparalo
bene è un fantastico Tutorial che molti snobbano, ma ti assicuro
che insegerebbe a molti.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: stampa speculare

è possibile in qualche modo ottenere una stampa speculare
mi spiego maglio: ho delle buste che hanno ilo logo prestampato in
basso a sinistra
ora, il mio report prima stampava partendo in alo a sinistra e fine
con l'indirizzo in basso a destra
adesso dovrei fare il contrario, stampare l'indirizzo in alto a sx e
il rsto di conseguenza, il tutto speculare
qualcuno ha qualche idea?
uso access 2000/2003
p.s.: non posso inserire la busta nell'altro senso perchè ha il lembo
autoincollante e quindi mi provocherebbe problemi con il fonditore
della stampante

 ha scritto nel messaggio 
news:30f2c005-2651-47e9...@56g2000hsm.googlegroups.com...




qualcuno ha qualche idea?
uso access 2000/2003

----------------------------------------
Nella mia stampante (una Canon IP4300), tra le opzioni di stampa, c'è la 
possibilità di ruotare la stampa di 180 gradi...mi domando se potrebbe 
funzionare.
Nel tuo caso sarebbe una stampa con orientamento orizzontale ruotata di 180 
gradi.
Comunque non sono sicuro di aver capito...
Ciao, Carlo

 ha scritto nel messaggionews:30f2c005-2651-47e9...@56g2000hsm.googlegroups.com...

si anche le mie stampanti hp hanno questa funzione, provo ad
utilizzarla, anche se dovrò poi riuscire a settargli da codice questa
opzione, e la vedo dura....
Newsgroup: it.comp.appl.access
Titolo: Chiamare Function da Macro

Ho creato una Function in un modulo VBA di Access 97.
Quando la chiamo da macro, uso il comando EseguiCodice, ottengo il
seguente messaggio:
"Impossibile trovare il nome di funzione immesso nell'espressione"
Qualcuno sa aiutarmi? oppure indicarmi qualche file di esempio?
Grazie anticipate e saluti
Enrico

"Impossibile trovare il nome di funzione immesso nell'espressione"
L'hai dichiarata pubblica?
--
Lorenzo Coronati
--
<<il mondo si divide in due: gli gnucconi 
e LE TESTE DI SCROTO, non credo proprio 
di appartenere alla prima>>
(Riccardo Belzani, 22/2/2000)
--

Qualcuno sa aiutarmi? oppure indicarmi qualche file di esempio?
Evidentemente nella macro hai scritto male il nome della funzione o non gli
passi tutti i parametri (ove fossero necessari).
Ah, mi pare che sia schizzinoso in fatto di parentesi, controlla di aver
scritto miafunzione() quando la chiami.
Saluti.
Luciano

 


 >"Impossibile trovare il nome di funzione immesso nell'espressione"


parametri non ce n'č...
Potresti scrivere dopo il quoting?
Comunque dentro la macro dovresti avere
=nomefun()
E' cosě?
Antonio

 E' cosě?
E' esatto...
Tra l'altro forse ho risolto il problema... il modulo deve avere un nome
diverso dalla function?
Mettendo come nome di funzione pippo() adesso riesco a richiamarla,
sembra...

...

CERTO!!!!
E' proprio cosě, č un problema risaputo!
Se il modulo si chiama come la funzione, visto che lui considera prima i
nomi dei moduli e poi le funzioni, trovato il nome tra i moduli stoppa la
ricerca e ti spernacchia!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: Impostazione pagina in report

Il mio programma funziona perfetttamente, distribuito il rete perň mi
vengono i colleghi quando stampano alcuni tipi di report perchč non entrano
in un foglio cosě come quando li hocreati.
Dalle impostazioni pagina dei report incriminati scopro che access li ha
riportati tutti nei valori di default ovvero 24,99 mm
che cosa succede???
Ciao
Stefano

 che cosa succede???
Se hai A00 leggi "Report e margini" 19.5. in questo teatro - o uno dei
6453 discussioni su questo tema in ognuno Access NG nel mondo.
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

Newsgroup: it.comp.appl.access
Titolo: Verifica Codice Fiscale

Vorrei sapere se esiste una macro che mi consenta di verificare il CF
in base a nome, cognome, data e luogo nascita, sesso
Grazie
Ciao

 in base a nome, cognome, data e luogo nascita, sesso
Esiste anche una routine che te lo calcola il CF.
Vedi sul sito comune.
Sib

Newsgroup: it.comp.appl.access
Titolo: rimuovere NOT NULL da un campo MSACCESS

Ciao a tutti,
scusate la domanda sicuramente è stupida, e forse è per questo che
non
trovato ancora la risposta :-(
Ho una banale tabella creata via ADODB con MsJet 4 etc via sql
"CREATE TABLE PIPPO (CAMPOPROVA TEXT(10) NOT NULL)";
Ora, con OpenSchema mi accorgo che il NOT NULL non mi va bene.
Come faccio a toglierlo sempre via Sql?
"ALTER TABLE PIPPO ALTER CAMPOPROVA TEXT(10)" ovviamente non lo toglie
;-
)
anche
"ALTER TABLE PIPPO ALTER CAMPOPROVA TEXT(10) NULL " non lo toglie.
Qualche anima illuminata sa come si fa?
Ringrazio anticipatamente
BBoom

 wrote in message 
news:1132225672.1...@g47g2000cwa.googlegroups.com...




Nè Microsoft Jet SQL Language, né connessione ADO
sono in grado di modificare convenientemente la proprietà
Required di un campo in un database esterno.
Più esattamente: a me non è riuscito di farlo.
Però così (DAO) funziona:
=======================
Private Sub Command4_Click()
Dim ExternalDb As DAO.Database
Set ExternalDb = 
OpenDatabase("C:\Access\CalcoloCombinatorio\CalcoloCombinatorio.mdb")
ExternalDb.TableDefs("T2").Fields("Data").Required = True
ExternalDb.TableDefs.Refresh
End Sub
=======================
Ciao
Bruno
Newsgroup: it.comp.appl.access
Titolo: selezione

ho un db ordini, le tabelle create sono: ordini; dettaglio ordini; prodotti;
fornitori.
Ho creato una maschera di immissione con relativa sottomaschera per il
dettaglio ordini, ora in questa sottomaschera vorrei legare il campo
prodotti al campo fornitore onde evitare che il riepilogo a tendina mi
mostri tutti i prodotti esistenti nella tabella prodotti.
Come devo procedere?
Ho tentato di creare una query, ma non sono riuscito a legarla alla maschera
e quindi al campo fornitore.
--
Massimo da casa
__________________

 ha scritto nel messaggio
news:97p72e$g9q$1...@dante.italia.com...

Il controllo fornitore dove si trova? Nella maschera principale?
Quale è la struttura della tabella prodotti?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Quale č la struttura della tabella prodotti?



[CUT]
E' uso in questo NG che si risponde a seguire il testo dei messaggi
precedenti e non prima.
Se la tabella prodotti si chiama tblProdotti, la maschera principale si
chiama MaskOrdini, il controllo sottomaschera contenuto in MaskOrdini si
chiama [Sottomaschera Dettagli] e la casella combinata contenuta nella
sottomaschera si chiama IdProdotto, prova a fare cosě.
La casella combinata IdProdotto deve essere a due colonne (di cui visibile
solo la seconda) e deve avere come origine riga una query avente il seguente
codice SQL:
SELECT DISTINCTROW tblProdotti.idprodotto, tblProdotti.nomeprodotto
FROM tblProdotti
WHERE (((tblProdotti.fornitore)=[Forms]![MaskOrdini]![fornitore]));
A fronte dell'evento "Dopo aggiornamento" del controllo chiamato Fornitore
di MaskOrdini genera il seguente codice VBA:
Private Sub Fornitore_AfterUpdate()
Me![Sottomaschera Dettagli]![IdProdotto].Requery
End Sub


 .
Funziona,
ti ringrazio infinitamente
Massimo

Newsgroup: it.comp.appl.access
Titolo: Query e tabelle di appoggio temporanee

Come faiio a mettere il contenuto di una query in una tabella temporanea di appoggio?
Premesso che ho dichiarato i campi della tabella del tipo del dato che conterra', ma come faccio a mettere i valori che mi ritorna la query? So che questa cosa puo' sembrare senza senso, ma e' solo un rimedio temporaneo e veloce ad un altro problema piu' complesso che non riesco a risolvere!
Grazie
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 wrote in message 995652170128...@inwind.it...

fai una query:
di accodamento (ricordati di svuotarla)
o
di creazione tabella

...

Fai una query di inserimento alla tabella temporanea.
saluti
GB

 Premesso che ho dichiarato i campi della tabella del tipo del dato che
conterra', ma come faccio a mettere i valori che mi ritorna la query? So che
questa cosa puo' sembrare senza senso, ma e' solo un rimedio temporaneo e
veloce ad un altro problema piu' complesso che non riesco a risolvere!
Perchč non spieghi il tuo problema invece di chiedere lumi su una soluzione
che hai scelto e che non č detto sia l'ottimale?
Antonio
Newsgroup: it.comp.appl.access
Titolo: come si può cambiare il carattere di un Controltiptext

Grazie a tutti per l'aiuto
Avrei la necessità di cambiare il tipo di carattere al controltiptext
devo passare (a seconda della scelta dell'utente ) da un carattere europeo
come Arial ad uno asiatico alice_5
pultroppo non riesco a trovare nessuna propietà che lo fa
e non so eventualmente quale api usare
Stefano

 ha scritto nel messaggio
news:kl80a.186469$AA2.7...@news2.tin.it...

Troppo complesso da fare con una API. Impossibile con Access.
Sarà meglio disabilitare il controltiptext e sostituirlo con un controllo
che rendi o meno invisibile.
In questo caso una procedura del genere ti permette di fare quello che vuoi.
Per esempio:
Private Sub Form_Current()
Dim frm As Form, ctl As Control
Set frm = Me
Set ctl = frm.Controls("Testo0")
With ctl
    .FontWeight = 700
    .FontSize = 12
    .FontName = "Arial"
End With
End Sub
Ciao, Carlo

 ha scritto nel
messaggio news:HK80a.135773$0v.38...@news1.tin.it...

Grazie
proverò cosi impostando anche dove voglio che appaia e dopo quanto tempo e
per quanto tempo come se fosse un controliptext
Stefano

Newsgroup: it.comp.appl.access
Titolo: controlli in altre forms

Come faccio da un modulo a controllare il valore di una combobox che sta
in un'altra form?
Esiste una cosa simile a :
Forms("Form1").ComboBox("Combo1").Value ???
Grazie Manuela

 ha scritto nel messaggio
news:3B1F9474...@sodalia.it...

Ritengo puoi farlo con
If [Forms]![Form1]![Combo1] = .....
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Creare Icona su Descktop

Con l'installazione RunTime di Access XP come e possibile creare
l'icona sul Descktop?
Rino F.


Dopo i menù a tendina al posto delle caselle combinate ora arriva il
Descktop al posto del Desktop.
Antonio.

 Antonio.
io sapevo caselle a discesa :))
e poi ho visto scritto spessissimo MAIcrosoft :)))


Io speravo nella DeskTOPA......!
Certo che avete del tempo da perdere, ma che sottigliezze......!!! ;-)
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Application.Printer

salve,
devo stampare su una stampante chiamata XXXYYY, rinominata in questo modo 
sul pannello di controllo->stampanti di windows XP
uso l'istruzione prima del comando di stampa
Application.Printer = Application.Printers("XXXYYY")
mi restituisce
Chiamata di routine o argomento non validi
Cosa sbaglio? grazie dell'attenzione
BFS

 ...
Il codice funziona con il nome di una stama stampante diversa o no?
Puoi anche provare se il nome si trova nella lista delle stampanti p.e. con
Dim prtloop As Printer
For Each prtloop In Application.Printers
    Debug.Print prtloop.DeviceName
Next prtloop
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

 ...una stama stampante...
--> Non scrivere stanco nel treno dal aeroporto.
:-)

 ha scritto nel messaggio 
news:6o3mceF...@mid.individual.net...

risolto...il nome della stampante è case sensitive
non pensavo
ciao,
bfs

Newsgroup: it.comp.appl.access
Titolo: Fax senza Outlook

Non riesco a inviare fax in automatico da Access.
Ho settato il mio report per essere stampato sulla stampante Microsoft Fax.
La riga di codice seguente dovrebbe inviare il report via fax:
DoCmd.SendObject acReport, "MioReportProvaFax", acFormatSNP, _
"[fax:0123456789]", , , , , False
Il problema invece è sempre lo stesso:
Errore 2295 - Uno o più destinatari sconosciuti. Messaggio non inviato.
Credo che il problema stia nel fatto che io uso Outlook Express e non
Outlook come programma predefinito di posta elettronica.
L'utente che vuole inviare fax dalla mia applicazione deve *per forza*
passare a Outlook (non Express) o c'è qualche altro modo?
Ho sbagliato qualche passaggio?
Grazie
Ciao
Silvio

 ha scritto nel messaggio
news:avpr46$i98ok$1...@ID-171909.news.dfncis.de...

Prova a vedere se fa al caso tuo la FAQ di Giorgio Valsangiacomo intitolata
"Inviare Fax da MSAccess" che trovi nella Sezione General del Sito Comune
(link qui sotto).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 del Sito Comune (link qui sotto).
Sě, ho guardato quella FAQ ma non mi aiuta.
Grazie per aver risposto.
Silvio
Newsgroup: it.comp.appl.access
Titolo: Collegamento LDAP

Ciao a tutti,
ho un mega quesito per voi:
E' possibile collegare o importare in un MDB gli utenti di Active Directory
o tramite LDAP?
Grazie infinite
Francesco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 typed:

Ciao,
Si e' possibile, devi avere privilegi da Amministratore
per alcune operazioni.
Ti metto questo rimando ad un thread di tempo
fa dove dovresti riuscire a ricavare quello che cerchi:
http://groups.google.it/group/microsoft.public.it.office.access/browse_frm/thread/3fbaf99b6d83cdbc/2d5e806eb4cc3e04?lnk=st&q=lorenzo(pyx)+active+directory&rnum=1&hl=it#2d5e806eb4cc3e04
--
Lorenzo

Newsgroup: it.comp.appl.access
Titolo: campo data gg/mm/aaaa ....come testare se è vuoto?

ciao a tutti
ho un form con un campo testo formato data associato ad un campo
tabella data.
in un pulsante che lancia delle query a catena ho inserito del codice
per controllare che il campo data sia stato riempito.
come fare a testare se è rimasto vuoto??
if (miocampodata) is null then
   mgbox ("campo data vuoto)
   miocampodata.setfocus
else
   docmd.openquery........
   docmd.openquery.......
endif
non mi visualizza il msg box ma altri messaggi di sistema
Ho provato Datepart(miocampodata) e year(miocampodata)...niente.
Idee.. suggerimenti??

 if (miocampodata) is null then
if isnull(miocampodata)
Antonio
Newsgroup: it.comp.appl.access
Titolo: Report dinamico

Ciao a tutti,
ho creato un report, contenente all'interno 7 sottoreport, così sistemati
nel corpo del report:
sottoreport1
sottoreport2
sottoreport3
sottoreport4
sottoreport5
sottoreport6
sottoreport7
vorrei rendere questo report dinamico per poter mantenere n sottoreport in 
una pagina senza che, data la lunghezza non conosciuta del sottoreport, il 
sottoreport venisse spezzato, ma se raggiungesse la fine della pagina 
spostasse il tutto alla nuova pagina e così via.
Attualmente ho risolto impostando una interruzione di pagina tra il 5° e il 
6° sottoreport, ma è sempre una soluzione non precisa, in quanto se i primi 
4 sottoreport avrebbero una lunghezza di righe tali da superare la capienza 
della pagina, il risultato sarebbe veramente scadente, in quanto mi sposta 
su unìaltra pagina il seguito dell'ultimo sottoreport, e arrivato 
all'interruzione di pagina mi cambia nuovamente pagina, che schifo.... .
Sperando di essere stato chiaro, qualcuno può darmi una mano?
Ciao tommy
 

 ha scritto nel messaggio 
news:i5VJd.903$QG6....@twister2.libero.it...

_______________________________
Hai provato impostando "Stampa Sezione Unita" a SI ?
ciao
Riccardo 

 ha scritto nel messaggio 
news:cta61k$1an$1...@news.panservice.it...

si Riccardo ho provato con "Stampa Sezione Unita" a SI , ma dato che il 
corpo del report è formato da n sottoreport la soluzione di cui sopra non 
funziona.
Qualche altra idea
Ciao Tommy

Newsgroup: it.comp.appl.access
Titolo: Undo per una sottomaschera

Salve, la situazione è quella di maschera e sottomaschera tipica di access.
Intervengo in modifica dei valori della sottomaschera e vorrei poter
annullare le modifiche ma qualcosa non mi torna. In una maschera singola
utilizzo:
If Me.Dirty = False Then
DoCmd.close
Else
   DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.close
End If
che mi permette di chiudere o annullare e chiudere a seconda se ho toccato
o meno i campi, ma nel caso di sottomaschera non va.
Consigli?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Io continuo a consigliare di fare le modifiche sulle maschere non associate........tutti questi problemi non si pongono nemmeno....Cmq, da dove chiami il DoCmd? dalla form principale o dalla sottomaschera? Secondo me è li l'inghippo....
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

Fair8 ha scritto:

Chiamandolo dalla form principale ho il problema, dalla SM no!
Ora devo provare ad usare una property, speriamo bene.


 Ora devo provare ad usare una property, speriamo bene.
Anche con la property nulla, mi sa che per il momento lascio il bottone
nella subform, poi si vedrà


 grazie
Trovata la soluzione sul sito di mamma microsoft
Pagina 
http://support.microsoft.com/kb/131535/it
Link esempio
http://download.microsoft.com/download/access97/sample/2/win98/en-us/frmsmp97.exe

Newsgroup: it.comp.appl.access
Titolo: stampare da anteprima

Ho notato che con il mio gestionale di contabilità (nativo win 32 bit e
scritto in VB6 con archivi in access 97  ) quando si aprono le anteprime di
stampa , posso stampare
opure cliccare sul pulsante "imposta stampante", doce si apre una form dove
imposta la stampante , il formato carta e l'alimentazione carta.
Ebbene , l'informazione relativa all'alimentazione carta non corrisponde a
quanto indicato nel driver della stampante !
Se io modifico l'alimentaz. in modo che coincida con quanto impostato nel
driver, alla successiva riapertura dell'anteprima di stampa l'ipzione
ritorna sballata , indicando sempre il vassoio1 , che essendo privo di carta
, genera il msg di carta esaurita.
Quindi non viene tenuta in memoria l'impostazione all'interno della forma di
impostazione stampante " del mio programma.
Come posso risolvere ??
Ho una HPlj2100 pcl6 , anche reinstallando il driver non è cambiato nulla.
Ho Win98 SE .
ciaoe grazie.

"Michael"

Sei OT:  i tuoi problemi riguardano Crytsal Reports _o Data Report_ non
Access '97!
Hai provato su it.comp.lang.visual-basic?
Bye

 ha scritto nel messaggio
news:bnds2g$96c$1...@usenet.itgate.net...

Scusa ma stampi attraverso i report di Access o con VB6.
Se sei nel secondo caso in questo NG sei OT; devi porre il quesito in un NG
che tratta di VB6 e non di Access.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Recuperare in una query il nome di tutte le tabelle

E' possibile?
Ciao
AleX
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' possibile?
Con una query non ha senso, dovresti dire l'uso che ne devi fare dopo.
Comunque si fa via codice, ciclando l'insieme tabledefs di currentdb
Antonio

 wrote in message
news:tL2F9.29125$
2B1.7...@twister2.libero.it

I realtà volevo recuperare i nomi dei form (e non delle tabelle)
 in una combo box



La query che ti restituisce il nome delle tue tabelle del tuo database ha il
seguente codice SQL:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND
(Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY
MSysObjects.Name;
Se invece, come sembra dal tuo secondo messaggio, vuoi una query che ti
restituisca l'elenco delle maschera contenite nel tuo database, essa avrà il
seguente codice SQL:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND
(MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;
Se poi, come sembra, l'elenco delle maschere ti interessa averlo come
origine riga di una casella combinata, vai sul Sito Comune (link qui sotto)
e nella Sezione General leggiti la FAQ di Alessandro Baraldi intitolata
"Tecniche per ottenere l'elenco degli oggetti del database". Naturalmete
scaricati il database di esempio allegato a tale FAQ.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

....
Grazie Mille
Ciao
AleX
p.s. non avevo notato la faq su sitocomune (chino il capo e me lo
cospargo di cenere)
:-))


 :-))
C'è ancora tempo per la Quaresima; prima deve venire il Carnevale! :-)


 AleX
Volevo inserire i nomi nella rowsource di una combo
e ho trovato questa soluzione che funziona anche sugli ADP
Setto la combo con rowsourcetype elenco valori
e su attivato imposto metto questo codice
Private Sub NomeCbo_GotFocus()
Dim RowSource As String
For i = 0 To CurrentProject.Alltables.Count - 1
    RowSource = RowSource & CurrentProject.Alltables.Item(i).Name & ";"
Next
NomeCbo.RowSource = RowSource
End Sub
Se serve!?


Newsgroup: it.comp.appl.access
Titolo: formato data

access 97
ho tutte le date in formato gg/mm/aaaa
vorrei trasformarle in numero ndella settimana
la guida dice che esiste il formato personalizzato ww, ma ho provato sia
nelle tabelle che query che maschere e non capisco come fare.
è possibile?
Riccardo


DatePart + F1