mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: collegamento tabelle in access 97

salve 
utilizzo due data base access 97 : in uno tengo le tabelle con i dati,
nell'altro la strutturadel database e vi collego le tabelle dei dati.
mi capita poi spesso di cambiare computer per vari motivi ed ogni
volta mi tocca ricreare il collegamento. 
Esiste un sistema per dare un collegamento  relativo del tipo che se
metto i due file sempre nella stessa cartella (ma con configurazioni
diverse, per esempio C:\documenti una volta e d:\database\arturo
l'altra) il collegamento rimanga funzionante?
grazie
ciao arturo

Ciao
Grazie 

 ha scritto nel messaggio
news:qunnl0d1pph2qrha4...@4ax.com...

io ti consiglio questo metodo (consigliatomi a suo tempo da un amico di
questo ng)
fai puntare le tabelle collegate ad un percorso fittizio del tipo o:
(senz'altro non avrai un disco di nome o)
prima di aprire access lancia un breve programma batch con l'istruzione
subst o: c:\documenti
nell'altro computer l'istruzione sarà
subst o: d:\database\arturo
vedrai che il sistema funziona ed è facilmente trasportabile
ciao sergio

Newsgroup: it.comp.appl.access
Titolo: Qry con criterio da combo + itemdata(0)

Ciao ng, prima di tutto, auguri e grazie per l'auito che date a noi
inesperti programmatori.
Sto diventando matto con questa cosa.
Ho una query che pesca dalla tabella "T_anagrafica", dovrei applicare un
criterio = all'unico valore che ho nella mia combobox nella mia form, la
combo č un controllo nascosto .
Il mio problema č che non riesco a dire alla mia query di usare il 1° dato
che c'č nella lista della combo, in parole povere l' itemdata(0).
come devo fare?
grazie ed ancora auguroni a tutti
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 come devo fare?
Nella query come criterio usa:
Eval("[Forms]![NomeMaschera]![NomeCombo].Itemdata(0)")
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)
Newsgroup: it.comp.appl.access
Titolo: Interfaccia per importare un file

Dunque il problema che mi tormenta è il seguente:
devo importare una tabella in access da un'altro mdb o da un file xls.
Come faccio ad aprire l'importa file da una form magari aprendo anche
uno pseudogestione risorse per selezionare il file?
p.s. Ho provato a scrivere una macro con l'invia testo ma non funziona
(il db va in loop) e oltretutto confido nel fatto che mi suggerirete una
sol molto piu' elegante.
Grazie a tutti,
effesse
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


sul sitocomune c'è scritto come usare i common dialog per richiamare le
finestre standard di windows per la selezione dei files.



vedi qualche thread sopra che ho postato il codice per farlo
Saluti.
Emanuele.

 Emanuele.
what's thread ?
Potresti essere più esplicito? 
Grazie anticipatamente, 
un Neofita


Potresti essere più esplicito? 
usa questo in un modulo, devi adattarlo
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
Public Function cmdlg_file()
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
 
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Immagini (*.wmf,*.bmp,*.jpg,*.tif)" & Chr(0) &
"*.wmf;*.bmp;*.jpg;*.tif" & Chr(0)
   OpenFile.hwndOwner = Application.hWndAccessApp
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
 
   If lReturn = 0 Then
      cmdlg_file = ""
 
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      Forms![tbl_Marca]![tbl_DESCRIZIONE Sottomaschera]!Immagine =
cmdlg_file
   End If
End Function
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Re: Somma logica di caselle di controllo

- Falso se non tutto sono Falsi.
ovvero:
Vero se tutti i record sono Veri
Falso in tutti gli altri casi
metti nell'origine controllo della casella di controllo posta a piè pagina 
di pagina
----
=(Somma(Abs([NomeCampo]))=Conteggio(*))
----
Ciao
Giorgio 

 ha scritto nel messaggionews:625842b4-19f6-4798...@v38g2000yqb.googlegroups.com...

Ero convinto che esistesse una soluzione più elegante di quella che mi
sono inventato.
 E' tu, Grande Giorgio, sei la prova vivente che la mia convinzione
era fondata :-)))
Grazie Giorgiooooo

Newsgroup: it.comp.appl.access
Titolo: simbolo euro e simboli di spunta: non stampa!

Non mi stampa alcun campo che contenga il simbolo dell'euro, e ho lo stesso
problema con le "spunte" :
se creo un campo boolean, (si/no) , non mi stampa la casellina, che sia
spuntata o meno.
ho un programma per la gestione del conto corrente, nell'anteprima di stampa
vedo tutto corretto, poi nella stampa dare, avere e saldo non vengono mai
stampati.
Neppure il campo che contiene i dati! (ovvero: se ci metto lo sfondo, non mi
stampa neanche lo sfondo)
Ho provato anche a creare un db vuoto, solo per vedere se avevo erroneamente
impostato qualcosa: non va !!
Per favore qualcuno mi aiuti...
Grazie

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

 ha scritto nel messaggio
news:Bvi_9.107224$0v.30...@news1.tin.it...

A naso sembrerebbe che non sia installato sul tuo PC il driver giusto per la
tua stampante.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ciao
Anche io uso Office 97 ed il problema non ce l'ho.


 tua stampante.
Ci avevo pensato anch'io, dunque ho scaricato e installato i drivers
nuovi... ma non funziona lo stesso!
La cosa strana è che solamente con access non funziona!
Dalle altre applicazioni office (uso office xp pro) funziona perfettamente.
Non sapete per caso se c'è qualche impostazione particolare per l'euro in
access?
Grazie a tutti

 Grazie a tutti


ho risolto il problema: stento ancora a crederci, ma con la mia  HP
photosmart 1315 il simbolo dell'euro, in MSAccess , viene stampato soltanto
a qualità "normale" e non a qualità "bozza".
Grazie comunque a tutti!
Newsgroup: it.comp.appl.access
Titolo: istruzione sql complessa

1) Se in una tabella ho 2 date (data iniziale e data finale), č possibile
visualizzare il numero di giorni fra le 2 date?
(Es:
data iniz. data fin.   giorni
1/1/2004  10/1/2004  10
12/1/2004 15/1/2004  4
..)
2) Se in una tabella ho 2 date (data iniziale e data finale), č possibile
visualizzare il numero di giorni fra le 2 date, perň nel corso di anno,
cioč se ho date a cavallo fra 2 anni mettere i giorni in entrambi gli
anni? 
(Es:
data iniz. data fin.   Anno in.     Anno fin.
21/12/2003  3/1/2004    11                3   
30/12/2003 3/1/2004      2                 3
5/1/2004     7/1/2004      3                 0
..)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Usa una query nella quale inserirai questi due campi
Anno1:
IIf(Year([datainizio])=Year([datafine]);[datafine]-[datainizio];CVDate("31/1
2/" & Year([datainizio]))-[datainizio])
Anno2: IIf(Year([datainizio])=Year([datafine]);0;[datafine]-CVDate("01/01/"
& Year([datafine])))
Anche qui devi aggiungere 1 se vuoi considerare il giorno di partenza.
Ciao
Salvatore

grazie

Newsgroup: it.comp.appl.access
Titolo: Aiuto Esatto 2000 via ODBC

Salve a tutto il ng,
spero ci sia qualcuno che mi possa aiutare ...??
Non riesco a configurare il driver ODBC della Pearvasive Software
per accedere ai dati di Esatto 2000.
Il fatto è che riesco a collegare e vedere,
con Access 97, solo  le tabelle del file file.ddf , che sono relative ad
una azienda demo di Esatto.
Quando tento di impostare i nuovi DB il driver crea un nuovo file
file file.dff  ... che però non contiene nessun percorso delle nuove Tabelle
...
Bug del driver ODBC o mi sfugge qualcosa ?
Qualcuno ha gia provato a collegare tabelle di Esatto 2000
Grazie Mille
Hp

...
Se non ricordo male, in Esatto devi prima fare una operazione
di "creazione degli indici".
Devi lanciare a mano il programma INITDDF.EXE
che si trova in c:\esatto\exe e seguire le istruzioni.
Ciao. ElioP.

Grazie Mille,
adesso provo a creare i nuovi indici ..
Ciao
Hp
ElioP <el...@logical.itTOGLIMI> wrote in message
392b784e....@news.uli.it...


Adesso Funziona !!!!
Grazie Mille


Newsgroup: it.comp.appl.access
Titolo: Backup SQLServer e programmazione ADP

Backup SQLServer e programmazione ADP
Per esportare il database mi sembra di aver capito che occorre fare un
Backup.
Ma in questo Backup ci sono relazioni, ruoli, utenti e relative
associazioni ai ruoli ?
Si puo' fare un Backup da SQL Server e un Restore da MSDE ?
Naturalmente se a livello di programmazione ADP genero delle nuove
stored o nuove tabelle vorrei poi 'inviarle' al mio cliente.
Forse (ditemi se conoscete una strada migliore) devo creare un file
magari ASCII che contenga tutte le istruzioni SQL per farlo.
Esiste un qualche modo per far si' che partendo dalla definizione gia'
fatta in modo 'visuale' di tabelle e stored procedure via ADP, si
possa risalire al codice corrispondente ?
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx with gruppotekup

 ----------------------------------------------------------
Luca Dall'Olio

database, pulsante destro, All Tasks, generate SQL scripts.
Ti ringrazio moltissimo, faro' buon uso dei tuoi preziosi consigli, a
buon rendere.
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Database esterno con query

Ciao a tutto il NG!!
ho una domanda un po particolare....
Vorrei tramite una query esportare i risultati in un database esterno, o
meglio:
Tramite una query creo l'output
Tramite un tasto si dovrebbe creare automaticamente un database DB0001
contenente la tabella con i dati della query.
Se si ripete l'operazione il database si dovrà chiamare DB0002 e cosi via.
Sono riuscito a creare la tabella ma nello stesso file e non in un db
esterno.
Grazie a tutti!
Enzo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 esterno.
Dim RemoteDB As Database, RS As Recordset
Set RemoteDB = OpenDatabase("C:\MyDir\MyDatabase.mdb")
Set RS = RemoteDB.OpenRecordset("MyTableInExternalDB", dbOpenDynaset)
etc.
Bruno

Newsgroup: it.comp.appl.access
Titolo: Formattazione XLS da Access

Ciao,
ho una funziona che da Access mi esporta un foglio excel.
Ora sto formattando il foglio excel ma non riesco a dirgli di 
formattare solo i bordi di una colonna e non tutte le celle del
range selezionato...
Ora faccio cosě :
With .Worksheets(wrk_sheet).Range("A1:A" & righeTotali) 
       .Borders.LineStyle = 1
       .Borders.Weight = 3
End With
Perň mi crea il contorno a tutte le celle...
grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie.
Prova così
With .Worksheets(wrk_sheet).Range("A1:A" & righeTotali).Select
    With Selection.Borders(xlEdgeLeft) '<-- per bordo sinistro
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Contatore.... particolare

ciao a tutti,
ho un problemino che mi sta facendo scervellare da un pò. mi spiego meglio:
ogni tanto facciamo dei turni + lunghi del solito che ci vengono pagati con
un indennità 100. questi turni vengono liquidati e pagati mensilmente ma,
per motivi vari, quando l'operaio supera 10 turni nel mese l'indennità per i
successivi viene ridotta a 60.
I turni sono "storati" in un db, naturalmente con una query ho isolato
quelli che danno diritto a questa indennità nel mese.
ora il prb è: come faccio a calcolare un progressivo per ogni operaio in
modo che quando diventa 11 l'indennità sia ridotta a 60?
Devo farlo nella maschera, (devo poter vedere l'importo a video) e nei
report sia per l'azienda che per l'interessato (un report mensile analitico
totale va in amministrazione ed un report sintetico va all'operaio insieme
alla busta paga).
Qualcuno mi aiuta a uscire dal pantano?
Grazie
Nix

 ha scritto nel messaggio
news:6qe37.5101$kf3.1...@news.infostrada.it...

ragruppi la query che ti da i dati, conta un campo qualunque, e sfrutta quel
valore, lo controlli e se è >10 cambil il campo che ti serve
IIF(CampoContato>10;60;100)
ciao, max
Newsgroup: it.comp.appl.access
Titolo: [BUG?] colore stampa

Ciao a tutti,
non so se sia un bug o ci sia una spiegazione logica
Se volete riprodurlo ecco come:
Con AXP cotruite un report con colori diversi.
Impostate che venga stampato con una stampante specifica e in modalità 
bianco e nero.
Salvate tutto.
Ora riaprite il report in modalità struttura e settate che venga stampato 
sulla stampante predefinita.
Ora pur essendo da windows la stampante predefinita impostata per la stampa 
a colori il report mi viene sempre stampato in bianco e nero.
E' normale? non dovrebbe prendere le impostazioni di windows?
Ciao, AEOM

 ha scritto nel messaggio 
news:_nUtd.271449$b5.13...@news3.tin.it...

Si deve essere un residuo delle precedenti impostazioni.
Infatti se riapri il report, scegli stampante specifica, reimposti il 
colore, salvi e poi riapri e scegli stampante predefinita, risalvi, tutto 
torna normale.
Ciao, Carlo 

 ha scritto nel messaggio
news:_nUtd.271449$b5.13...@news3.tin.it...

Ciao AEOM
per me è un bug, l'impostazione del colore dovrebbe seguire le impostazioni
della stampante predefinita proprio come il formato pagina.
E' vero che puoi reimpostare il colore come da suggerimento di Carlo ma se
vuoi ripassare al bianco e nero bisogna tutte le volte modificare il report.
Peggio ancora se distribuisci un MDE e il cliente desidera stampare in
bianco e nero perchè la cartuccia colore costa :-)
A suo tempo ho risolto in questo modo
-----------------
Public Sub Rpt_ResetImpostazioni(NomeRpt As String)
    Dim strDevMode As String
    DoCmd.OpenReport NomeRpt, acDesign
    Reports(NomeRpt).UseDefaultPrinter = False
    Reports(NomeRpt).PrtDevMode = strDevMode
    DoCmd.Close acReport, NomeRpt, acSaveYes
End Sub
------------------
Se esegui esegui la sub passando il nome del report interessato l'attributo
del colore/bianco e nero seguirà le impostazioni della stampante
predefinita. La sub è da eseguire ogni volta che apporti delle modifiche al
report.
Tutto questo succede con la mia versione di Access Xp Sp2,  con altre
versioni non so.
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: Help database danneggiato...

In un attimo di follia del mio portatile, o forse di office
il mio database si è corrotto, adesso mi trovo con il file
originale che ha come dimensione 4/5 mega che in effetti è
quella giusta, però al suo interno non c'è nulla??? :-(
... ma per fortuna hanno inventato il "recupero del file"
che mi ha creato una copia che però al suo interno manca di
tutte le tabelle e le query!!! :-( Il resto c'è...
Se eseguo un compatta e ripristina database il messaggio è
il seguente: "Tabella'TempMsysAccessObjects' gia esistente"
Se eseguo invece il comando sul file che mi ha creato di backup
il messaggio è questo: "Il modulo di gestione di database Microsoft Jet non
è riuscito a trovare l'oggetto 'MsysCompactError'. Assicurarsi che
l'oggetto esista e che il nome e il percorso siano digitati correttamente.
Se provo ad importare tutto in un nuovo db: "Impossibile aggiungere la
quantità di dati desiderata inserire od incollare meno dati"
Qualche idea? ...a parte dirmi che bisogna fare sempre le copie di backup!!!
Grazie AnnA!
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:80Z180Z91Z194Y1...@usenet.libero.it...

Crea un nuovo db e prova ad importare tutti gli oggetti dal db corrotto e
non dalla copia.
Tempo fa (mese di giugno o luglio) un'altra persona ha avuto lo stesso
problema, anzi più grave ed è
dovuto ricorrere ad un centro tedesco di recupero dati. Non pagò nemmeno
tanto ma per lui quei dati erano vitali.
In Google groups potrai fare una ricerca sui messaggi di questo NG.
Ciao, Carlo

 ha scritto nel messaggio
news:80Z180Z91Z194Y1...@usenet.libero.it...

Dai anche un'occhiata qui:
http://support.microsoft.com/default.aspx?scid=kb;en-us;209874
e qui:
http://riparafiles.it/recfiles.htm
Ciao, Carlo

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

 ha scritto nel messaggio
news:c12rab$r87$1...@grillo.cs.interbusiness.it...
E non diciamo di cosa sei test...
ci sono newsgroup ad hoc per i test.
E' come se io vengo a casa tua, apro la porta, mi siedo sul tuo divano e
verifica se mi fanno male le emorroidi.
MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: numerazione progressiva con numero massimo di record

salve, come già chiesto con altri post stò cercando di realizzare un db in
A97 da utilizzare per inventariare dei documenti contenuti in dei
raccoglitori. Avrei la necessità di numerare progressivamente partendo da 1
fino a 50 i record della sottomaschera [documenti] per fare in modo che in
ogni raccoglitore vengano riposti non più di 50 documenti.
grazie per l'aiuto
michele
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio 
news:82Z51Z89Z137Y1...@usenet.libero.it...

TAB_DOCUMENTI
ID                                        contatore (PK)
ID_RACCOGLITORE        numerico (chiave esterna)
NUM_DOC                        numerico (da 1 a 50 ogni volta che vuoi).
Ciao.
eSQueL
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento Maschera

Ho una maschera CLIENTI con SOTTOMASCHERA-CLIENTI che si appoggia su una
Query (QSOTTOMASCHERA-CLIENTI ).
Quando cambio il campo DATA-FINE (presente sulla maschera CLIENTI
dovrebbero cambiare i records presenti sulla SOTTOMASCHERA-CLIENTI proprio
perchè la query QSOTTOMASCHERA-CLIENTI è condizionata dal campo DATA-FINE.
Questo avviene solo se esco e chiudo dalla maschera CLIENTI.
Grazie per l'aiuto
Nicola
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Questo avviene solo se esco e chiudo dalla maschera CLIENTI.
La DATA-FINE e' condizionata ma certamente non e' una informazione di link.
A occhio devi fare il "requery" o il "refresh" del Recordsource della 
sottomaschera.
--
ac

Alessandro Cara ha scritto:

Ad orecchio(per usare una parte anatomica equivalente) opterei solo per
il Requery in quanto il refresh non avrebbe alcun effetto in questo
caso, in quanto agisce solo sul Recordset attuale:
Il metodo Refresh non esclude nemmeno i record che non soddisfano più
i criteri della query o del filtro. Per rieseguire una query sul
database, utilizzare il metodo Requery. Quando si riesegue una query
sull'origine record di una maschera, il set corrente di record
rifletterà accuratamente tutti i dati contenuti nell'origine record.
@Alex

 caso, in quanto agisce solo sul Recordset attuale:
Intendevo l' "aggiornamento" della stringa nella proprieta' Recordsource.
Non so come ha fatto la query (probabilmente con Forms!....etc) ed in 
questo caso e' sufficiente la requery ma se la situazione e' diversa 
"nin so"
--
ac

 ac
Si certo ho inteso l'uso del Metodo Refresh legato all'oggetto ME...!
@Alex

Ok grazie a tutti ho risolto.
Buona giornata


ciao nicola, io sono nicola ed ho ora il tuo problema, praticamente mi puoi
dire come lo hai risolto?
ciao

 ciao
Ma perchè rileggendo il tutto non hai capito...????
@Alex

no
Sono una schiappa
Ciao Nicola

no!
Sono alle prime armi!
Ciao Nicola

Newsgroup: it.comp.appl.access
Titolo: Come creare report designer dentro applicazione Access mde ?

Per dare la possibilita' all'utente finale di modificarsi/crearsi dei report 
sarebbe utilissimo poter realizzare un sistema, simile a quello che gia' e' 
presente nell'ambiente Access stesso
Pensate sia realizzabile, da dentro un'applicazione Access in formato mde, 
poter modificare/creare dei report dentro un secondo file in formato mdb e 
dedicato esclusivamente alle stampe ?
Il motivo della mia richiesta sta nel fatto che non posso fornire Access 
stesso perche' la procedura finale avra' un prezzo di vendita tanto basso da 
impedire la fornitura del programma + ambiente sviluppo
Vorrei pero' fornire la possibilita' di modifica struttura delle stampe
Ciao e grazie
RobertoA
 

 ha scritto nel messaggio 
news:4793226d$1...@newsgate.x-privat.org...

Ciao RobertoA,
guarda questo demo di Alex 
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=197
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
---------------------------------------->
Newsgroup: it.comp.appl.access
Titolo: passare un file di testo ad una sub

Salve a tutti,
non riesco a passare un file di testo ad una sub, questo è il codice:
Dim fso, f, Msg
Dim key_array() As String
Const ForReading = 1, ForWriting = 2, ForAppending = 8
percorso = path
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Utenti\Comune\Damiano
\filecorrispettivi.txt", ForWriting, True)
Call scrivirecord("RECORD0", "posizionali", "26T", 1483, f)
Call scrivirecord("RECORD9", "posizionali", "26T", 1483, f)
Nella sub scrivirecord ho inserito l'istruzione "ByVal f As String" ma
non funziona.
Come faccio a passare il file "f" alla sub?
grazie

 non funziona.
Come fa *f* ad essere una string? *f* e' un variant (oggetto di tipo 
"file")
--
ac

Newsgroup: it.comp.appl.access
Titolo: Parametri query

Salve a tutto il NG,
sono un pò arruginito sui parametri delle query, ovvero:
un campo della query "Turni", contiene diversi tipi di turno tra i quali
"Malattia", "Riposo", "Festivo" ecc.
Ora io nei  criteri della query gli metto: <> "Malattia", per potermi
restituire tutti i campi in cui non vi sono turni con malattia, se però
inserisco un'altro criterio mi annulla il filtro ovvero:<> "Malattia" Or
"Riposo", a questo punto me li visualizza tutti.
Come posso usare criteri multipli in un solo campo?
Grazie.
Lucio.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Scusa ma il risultato di <>"Malattia" già comprende il "Riposo"...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: file .ldb

come si fa a chiudere un processo access se non ho nessun file aperto?
ho il file pippo.ldb che si crea quando apro access, se chiudo access 
scompare ora invece me lo trovo sempre in esecuzione. 


potrebbe essere rimasto lě a seguito di una 'non corretta' chiusura del file 
access che lo ha generato.
Eliminalo: lo selezioni e CANC. Se non funziona allora vuol dire che il 
processo č in esecuzione ma non visibile.
Usa il TaskManager per chiudere qualsiasi istanza di ACCESS, e poi riprova 
ad eliminare l' .LDB (se c'č ancora).
IvanDaBologna
PS
se lo usate in rete, allora c'č un client che lo tiene 'sů' (aperto!) 

 scompare ora invece me lo trovo sempre in esecuzione.
Puoi eliminarlo senza problemi.
Se non si elimina vuol dire che c'č un programma in esecuzione o che il 
processo č ancora attivo...guarda anche in task manager.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Recupero Valore da Query a Maschera

Ho una maschera M basata su una tabella T.
Vorrei recuperare una somma da una query Q che non ha nulla a che vedere con
i dati della tabella, per poter fare dei calcoli tra questa somma e i valori
della tabella.
Si può fare una casella di controllo in M per richiamare questa somma della
query Q (unico record generato).
(senza ricorrere ad una sottomaschera, altrimenti non riesco ad aggiornare i
valori della tabella T).
Grazie.
-------------
Fabio Dalla Villa
Biella
nomec...@tiscalinet.it

 valori della tabella T).
Usa piuttosto una dlookup invece della query (o una dsum se devi fare la
somma)
Antonio


Grazie! Ho scoperto un mondo nuovo! Più che altro i vari tasselli cominciano
ad andare al loro posto.


Newsgroup: it.comp.appl.access
Titolo: VSS e Access (BUG)

Oggi ho una triste certezza. Matematica.
Ho estratto un modulo. L'ho modificato. Ho guardato la modifica. Ho salvato.
Ho chiuso e riaperto il DB. Ho riaperto il modulo e la modifica non c'era 
più. Ricreando il DB da VSS, l'ho ritrovata. Non capisco ancora come e 
perché, alcune volte, delle modifiche "saltino". E sembrerebbe che saltino 
dal lato di Access (nel file che viene esportato in VSS, la modifica c'era.)
Qualsiasi idea è la benvenuta.
-- 
Jonathan Canova
infoCHIOCCIOLAaladinoinformatica.com
www.aladinoinformatica.com
 

 -- 
Hai già provato con compila e salva prima di chiudere il db?
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: Assegnare a tabella valoe query

Ciao a tutti ecco il mio problema:
Ho una tabella con tre campi, i primi due vengono inseriti manualmente,
mentre all'ultimo vorrei che fosse assegnato automaticamente il valore che
viene dal campo di una query.( n.b. ad ogni inserimento di record la query
darà valori differenti in base a come varieranno i primi due campi nella
relativa maschera).
Non riesco a capire cosa devo fare per assegnare questo valore !
Grazie, Ciao

 ha scritto nel messaggio
news:SLFCb.187466$e6.70...@twister2.libero.it...

In pratica, il terzo campo è ottenuto con un calcolo o con una operazione
tra i primi due. Specifica come sono impostati i primi due campi e cosa vuoi
ottenere nel terzo.
Ciao
Salvatore
Newsgroup: it.comp.appl.access
Titolo: Query a campi incrociati

Salve a tutti.
Ho bisogno di un aiuto per una query a campi incrociati.
La suddetta query l'ho gia' impostata e funziona correttamente.
Siccome utilizzo un server web che interroga un DB Oracle, avrei l'esigenza
di ri-scrivere la query a campi incrociati in linguaggio SQL "puro", perche'
l'interrogazione ad Oracle viene fatta tramite SQLPLUS.
Qualcuno sa darmi qualche dritta su come ri-scrivere una query a campi
incrociati, visto l'SQL "puro" non conosce la clausola "PIVOT"?
Grazie in anticipo a tutti!
--------------------------------
Inviato via 
http://usenet.libero.it

 incrociati, visto l'SQL "puro" non conosce la clausola "PIVOT"?
Te la devi costruire "a mano" tramite vba, in due passaggi; in passato ho 
avuto un problema simile, questa lettura mi ha permesso di risolvere:
http://www.mysql.com/articles/wizard/
Ciao,
BJ

visto l'SQL "puro" non conosce la clausola "PIVOT"?
Non avendo capito esattamente a cosa ti riferisci ti do una indicazione
generale, usa il JOIN.

 ha scritto nel messaggio
news:193Z206Z103Z134...@usenet.libero.it...

Ciao timpoldo
devi generare la tabella pivot che Access crea automaticamente all'interno
della query
es..
Data Questa Tabella Tb1
Anno    Trimestre  Importo
----      -------      ------
1990      1           1.1
1990      2           1.2
1990      3           1.3
1990      4           1.4
1991      1           2.1
1991      2           2.2
1991      3           2.3
1991      4           2.4
Si può  ottenere questo risultato
Anno T1    T2    T3   T4     Totale
-----  ----  ----  ----  ----   ------
1990 1.1    1.2   1.3  1.4        5.0
1991 2.1    2.2   2.3  2.4        9.0
Con Questa Query in Tsql
---------------------------------
SELECT P1.*, (P1.T1 + P1.T2 + P1.T3 + P1.T4) AS Totale
FROM (SELECT Anno,
             SUM(CASE P.Trimestre WHEN 1 THEN P.Importo ELSE 0 END) AS T1,
             SUM(CASE P.Trimestre WHEN 2 THEN P.Importo ELSE 0 END) AS T2,
             SUM(CASE P.Trimestre WHEN 3 THEN P.Importo ELSE 0 END) AS T3,
             SUM(CASE P.Trimestre WHEN 4 THEN P.Importo ELSE 0 END) AS T4
     FROM Tb1 AS P
     GROUP BY P.Anno) AS P1
----------------------------------
o con questa in Sql per Access
---------------------------------
SELECT P1.*, (P1.T1 + P1.T2 + P1.T3 + P1.T4) AS Totale
FROM [SELECT Anno,
             SUM(IIF(P.Trimestre=1,P.Importo,0)) AS T1,
             SUM(IIF(P.Trimestre=2,P.Importo,0)) AS T2,
             SUM(IIF(P.Trimestre=3,P.Importo,0)) AS T3,
             SUM(IIF(P.Trimestre=4,P.Importo,0)) AS T4
     FROM Tb1 AS P
     GROUP BY P.Anno]. AS P1
----------------------------------
Vedi tu cosa mettere al posto delle funzioni CASE o IIF per renderla
compatibile con Oracle.
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: combobox

Buongiorno!
Avrei bisogno di un aiutino. Ho una combobox che prende i dati da una
tabella chiamata "listino" e visualizza solo il nome dell'articolo. Vorrei
che una volta scelto l'articolo i campi di testo presenti sulla maschera
chiamati "prezzo" e "aliquota" vengano automaticamente valorizzati in base
all'articolo scelto tramite la combo. E' possibile farlo in modo semplice
senza dover andare a fare una lettura di recordset? GRAZIE



origine dati combo con i campi che ti servono, su numero colonne della
combo metti il numero di campi
nelle dimensioni colonne metti le dimensioni delle colonne 0 per
quelle nascoste
nella larghezza elenco metti la larghezza totale delle colonne
su evento lostfocus usi
me.nomecampoprezzo=me.nomecombo.column(indicecolonnaprezzo)
ricordati che l'indice parte da zero
Saluti.
Emanuele.

 ha scritto nel messaggio
news:3yq4a.130520$YG2.3...@twister1.libero.it...

Facciamo così: visto che non sei andato a cercare per niente nei post
precedenti (questo quesito compare circa 2/3 volte a settimana) comincia a
guardarti un po' suul'help la proprietà column della combo.
Poi se proprio proprio....
Antonio

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

Newsgroup: it.comp.appl.access
Titolo: sono troppo l'ultimo!!!!

devo creare in una form una casella (testox) che mi scriva "pagato" solo se
la differenza di 2 campi é 0. nessun problema usando IIF nell'origine
controllo ottengo ciň che voglio. Vorrei perň che quando la casella contiene
pagato lampeggiasse. E qui nacono i problemi:
Sulla form ho messo su caricamento (come da help in linea)
me.timerinterval=1000
Su timer non riesco ad adattare il codice dell'esempio in linea con la mia
casella testox
Grazie

 Grazie
Prego
Ciŕ
RoDAgo

Newsgroup: it.comp.appl.access
Titolo: Recuperare nome del computer

Ho la necessità di inserire il nome del computer che utilizza una certa
maschera di access.
Cioè vorrei fare in modo che quando si apre questa maschera venga
memorizzato in una certa tabella la data e il nomde del pc che ha eseguito
l'operazione (il db è situato sul server e viene utilizzato da una 20 di
utenti). Mi servirebbe una funzione tipo =Date()  utilizzata per recuperare
la data.
ciao e grazie
Luca


C'è su 
www.sitocomune.com
 l'utility che ti serve. Ma scusa se nella maschera
inserisci un controllo nome_pc (e inserisci il ome dell'utente come valore
predefinito) che va a registrarsi col resto del record?
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 ciao MAssimiliano
ciao
Luca


No scusa ma allora non ho capito. Ciascun utente ha un pc di cui vuoi sapere
il nome, vero?
Ora anche se il BE č sul server, su ciascuna macchina c'č un FE? E' sul FE
che devi inserire il valore predefinito.

Newsgroup: it.comp.appl.access
Titolo: Access & Word

E' da un po' di tempo che non uso access e ho bisogno di fare questa cosa:
da una maschera inserimento dati, dovrei creare un pulsante che, eseguita 
una query (il join con il record corrente della maschera e con un altro 
record in un altra tabella) apra un file di word che utilizzi il risultato 
della query (una specie di stampa unione con un record). 

 ha scritto nel 
messaggio news:oBaCd.620542$35.25...@news4.tin.it...

www.sitocomune.com
 c'č un esempio di namor che fa proprio al caso tuo.

 
www.sitocomune.com
 c'è un esempio di namor che fa proprio al caso tuo.
In che zona? Almeno come si chiama? Dato che ce ne sono un tot di 
articolini... 

 articolini...
http://www.sitocomune.com/general/general137.htm
sezione general : automazione access word usando i bookmarks

L'ho trovato e l'ho visto!
E' proprio quello che vorrei fare io... adesso me lo studio 

Perfetto, sono riuscito a fare il tutto!
Troppo figo quell'esempio, ci sono un casino di variabili possibili! 


Mi prendo solo il merito di aver chiesto a namor di pubblicarlo perchè fosse 
utilizzabile da tutti ... l'automazione access + word in alcuni casi per me 
sostituisce tutti i report ormai.

Newsgroup: it.comp.appl.access
Titolo: chiusura maschera

un bottone presente su maschera 1 apre la  maschera2 , vorrei che un altro
bottone presente sulla mashera 1 chiudesse la maschera 2
come posso fare?
TIA

 ha scritto nel messaggio
news:ERZfb.171172$hE5.5...@news1.tin.it...

Usa l'autocomposizione e segui le istruzioni. Al limite, se dovessi riuscire
a chiudere solo la maschera1 modifica l'istruzione del DoCmd.Close
(inserendo al posto della maschera1 la maschera2) e il gioco è fatto.
Saluti.
Gippe

 Saluti.
si ho provato modificando il metodo DoCmd.Close, ma non riesco a farlo
funzionare
forms!maschera2.DoCmd.Close
non funzia

 ha scritto nel messaggio
news:gX%fb.231005$R32.7...@news2.tin.it...

Forse la maschera non è aperta? Spiega meglio al struttura del db e del
funzionamento delle due maschere.
saluti
Gippe.

 funzionamento delle due maschere.
maschera1: 2 bottoni
    1 per aprire maschera2 l'altro per chiudere maschera2
il bottone chiudi della maschera1 non funziona, ho provato inserendo il
percorso della maschera ma non va
DoCmd.Close[acForm, Forms!maschera2]

 DoCmd.Close[acForm, Forms!maschera2]
La sintassi č:
Docmd.Close acForm, "maschera2"
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

tnks

 Docmd.Close acForm, "maschera2"
mi ha anticipato in maniera efficiente!
Saluti.
Gippe
Newsgroup: it.comp.appl.access
Titolo: Stampa in .pdf strano problema (ho già letto i vecchi post)

Dunque sto usando il codice preso da sitocomune ma qualcosa non funziona.
quando setto come stampante predefinita acrobat il pc la recepisce ( se
guardo le stampanti vedo che effettivamente la nuova stampante predefinita è
acrobat writer) e il report mi viene stampato.
Il problema sorge quando devo risettare la stampante sulla precedente
predefinita.
Praticamente nonostante winxp recepisca il cambiamento, (mi indica che la
nuova
stampante predefinita è quella vecchia e non più acrobat) access continua a
stampare su acrobat che per lui continua a rimanere quella predefinita.
cosa sbaglio?
avete qualche suggerimento?
Samuele

 Samuele
Come funzione SetDefaultPrinter invece di usare quella del Sito Comune prova
ad usare questa:
Public Sub SetDefaultPrinter(s As String)
'imposta la stampante passata come argomento a predefinita
On Error GoTo Esci
Dim WshNetwork As Object
If IsNull(s) Or s = "" Then Exit Sub
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter (s)
Set WshNetwork = Nothing
DoEvents
Esci:
End Sub
Quella pubblicata sul Sito Comune funziona bene solo con Windows 98.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Database , RecordSet ,Connection (ignorante)

Premetto che non sono un esperto di access ma conosco la
programmazione in generale
Volevo capire perchè se dichiaro una variabile
Dim MioDb As Database mi genera un errore di tipo di dato inesistente
anche nelle riferimenti ho aggiunto Microft activex database 2.7
Devo creare un recordset di una query presente all'interno del
database in cui lavoro qual'è la sintassi ?
Grazie a tutti anticipatamente

 ha scritto nel messaggio news:8b8702ba.04102...@posting.google.com...

hai sbagliato riferimenti :)
quello per l'oggetto database è microsoft DAO 3.6
ciao
Nick
Newsgroup: it.comp.appl.access
Titolo: Incrociare campi senza query 3...

..il seguito dei magnifici e sconclusionati messaggi precedenti!!!
Oggi ho un briciolo di tempo in piů e vi spiego meglio il mio problema:
- ci sono due tabelle, la tabella tblCalendari che contiene le date
pianificate a inizio anno per incontrare il cliente
- e la tblGiornateErogate, in possesso del consulente che si aggira tra i
clienti.
Ogni mese il consulente arriva in ufficio e scarica tutti i dati registrati
in tblGiornateErogate dal suo computer portatile alla stessa tabella che č
residente sul server.
Di quando in quando la furtiva direzione verifica che le giornate
pianificate a inizio anno siano effettivamente state erogate nel momento di
incontro col Cliente, e per fare ciň ora incrocia SU CARTA i dati delle due
tabelle.
Io nella maschera di caricamento delle Giornate Erogate ho messo controlli
che aprono il recordset delle giornate pianificate e mettono un segno di
spunta nel record della giornata pianificata se questa č uguale a quella
erogata.
ora perň sono incasinato perchč non so come fare a confrontare le
giornate... o meglio:
- ho creato una maschera che contiene un elenco delle giornate pianificate e
uno con quelle erogate;
- con dei tasti posso variare le visualizzazioni, quindi per esempio vedere
solo le giornate pianificate ed effettivamente svolte, quelle pianificate ma
non svolte, quelle erogate ma non pianificate etc...
- ora vorrei creare una procedura automatica che mi generi un report, o una
copia dei record in nuova tabella... insomma incrociare questi dati
benedetti per capire quali giornate pianificate non sono state erogate e
viceversa...
Sapete darmi una mano?
Buona Pasqua a tutti...

Buona Pasqua a tutti...
potresti fare tutto via codice con i recordset confrontando le varie
informazioni a tua disposizione....
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Query di aggiornamento

Voglio far eseguire una query di aggiornamento da una maschera 
sulla quale ho messo una textbox, dove immettere l'aggiornamento da
effettuare su un solo campo 
pčro non mi funziona perchč mi richiede di nuovo l'immisione del dato.
la query e fatta cosě:
UPDATE TBL1_1 SET 
TBL1_1.CD
 = form!maschera1!txt;
qualcuno sa dirmi cosa c'č che non va?
Grazie 
Ciao Calimero

 UPDATE TBL1_1 SET 
TBL1_1.CD
 = form!maschera1!txt;
"UPDATE TBL_1 SET 
TBL_1.CD
 = '" & form!maschera1!txt & "'" se valore
testo
"UPDATE TBL_1 SET 
TBL_1.CD
 = " & form!maschera1!txt  se valore numerico
Ciao+
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



ciao Marco 
Ho provato come ha detto tu ma mi esce sempre la finestra immissione 
valore parametro sia all'avvio della maschera che dopo l'invio.
Non ho proprio idea di dove sia l'inghippo.
ciao calimero

 ciao calimero
Prova: Forms!maschera!txt; ovviamente la form deve essere aperta quando la
query viene eseguita...
Ciao.
-- 
Sergio MAZZA



Ok Funziona grazie
ciao Calimero
Newsgroup: it.comp.appl.access
Titolo: OT: passate Ferragosto a Bologna?

andate a vedere il concerto in piazza Maggiore?
io dovrei stare allo stand di Esperya.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 ha scritto nel messaggio
news:39980422...@news.interbusiness.it...

Toh! Esperya, una società del mio gruppo; comunque non potevi mancare dove
si parla di cose mangerecce.
Roberto

Newsgroup: it.comp.appl.access
Titolo: cerco software per gestione negozio

Ciao,
cerco un programma freeware per la gestione di un negozio in
particolare del carico magazzino , gestione vendite e l'inventario
stagione.
Qualcuno mi può aiutare ?
Grazio
Lorenzo Galassi 

 Qualcuno mi può aiutare ?
Se sai smanettare con access posso dirti dove trovarne una versione
abbastanza completa ma ancora da testare completamente.
Saluti.


Ciao,
se vuoi posso realizzarti una applicazione su misura secondo le tue
esigenze. Per il prezzo sono 30 ? all'ora.
Se ti interessa : 
kuz...@tiscali.it







 abbastanza completa ma ancora da testare completamente.
http://www22.brinkster.com/filippotoso/home.asp?articoli=2
Il secondo dall'alto.



per curiosità cosa intendi per gestione vendite?
un foglio excel non ti va bene? 
comunque ci sono i programmi della FINSON che costavano pochissimo e
dovrebbero anche funzionare (naturalmente devi adeguarti alla loro
logica di funzinamento, ma è  un piccolo prezzo da pagare per spendere
poco)
Saluti.
Emanuele.


wrote:

tutto in fattura chiaramente.......vero?
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Campo calcolato

Qualcuno sicuramente mi saprà dare una immediata risposta: vorrei un campo 
tipo contatore che riparte da uno a ogni inizio d'anno. Nella tabella c'è un 
campo data convenzionale sul quale si dovrebbe verificare l'anno relativo a 
quel record, e un contatore (normale: autoincremento, conta i record). Vi 
ringrazio molto anticipatamente.

 ha scritto nel messaggio
news:lD6Ed.22386$H%6.89...@twister1.libero.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Davide La Mantia (Sib) ed intitolata "Numerazione crescente per fatture ed
altro.".
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio 
news:lD6Ed.22386$H%6.89...@twister1.libero.it...

prova a vedere sul sito comune:
 Numerazione crescente per fatture e altro di SIB
---
Daniele
www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: informazione maschera

CodiceCliente
NomePresentatrice
Dataordine
CapoGruppo
ecc..
allora ho immesso una casella cobinata per codiceCliente con il segueente
codice:
Private Sub CodiceCliente_AfterUpdate()
'inserisce i valori nelle caselle automaticamente
'=======================================================================
Me.CodiceCliente.Value = Me.CodiceCliente.Column(0)
Me.NomePresentatrice.Value = Me.CodiceCliente.Column(1)
Me.CapoGruppo.Value = Me.CodiceCliente.Column(2)
'=======================================================================
Me.DataOrdine.SetFocus
End Sub
nel quale una volta immesso il codicecliente mi restituisce atumaticamente
in NomeCliente e Il CapoGruppo
naturalmente la casella combinata ricerca i valori nella tabella database
dove ho immesso tutte le mie presentatrici con i seguenti record
codiceCliente NomePresentatrice capogruppo
fin qui nessun problema!!!!!!!!!!!
Da qui in poi  sorge il mio problema:
Poiche naturlmente  voglio gestire un nuovo cliente ho immesso nella
maschera un comando nuovo cliente ma vorrei che una volta immessi i valori
mi andasse ad aggiornare automaticamente sia il la tabella database sia la
tabella nuova campagna!!!!
Spero in un aiutino!!!!!!

 ha scritto nel messaggio
news:GuFba.63963$zo2.1...@news2.tin.it...

Dopo aver inserito nella form i nuovi dati utilizzi una query di accodamento
per aggiornare la/le tabella/e; poi fai il refresh/requery dei controlli che
dovrebbero visualizzare i nuovi dati...
Ciao.
--
Sergio MAZZA

Ragazzi vi ringrazio della vostra disponibilità
per forza di volontà ci sono riuscito a completare la gestione delle vendite
in access
ma mmi sorgono gli ultimi due problemi alquanto semplici ma che non riesco
più a trovaare la soluzione o forse sono proprio intasato col cervello!!!!!
1° problema
vorrei il capire qual'è il codice che mi scriva automaticamente nella mia
tabella " nuovacampgna" i numeri progressivi da 1 a ..... senza utilizzare
il contatore e poi collegarli sulla maschera con una casella di testo e
visualizzarli automaticamente......quindi digitando il nuovo cliente ad
esempio mi scriva sulla tabella e sulla maschera 1 2 3 4 e cosi via .....
2° problema
nella tabella nuova campagna vi è la voce importo lordo e importo netto
qual'è la procedura per far visualizzare nella tabella e nella maschera
totale lordo e netto
spero che finito questo possa riposarmi un po!!!!



 ha scritto nel messaggio
news:WP0ca.73409$zo2.1...@news2.tin.it...

Sempre nel sito comune (
www.sitocomune.com
) trovi un esempio di quello che
vuoi realizzare...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: listare nomi campo (o nome controlli maschera)

Ciao a tutti. Ho inserito un tasto di comando in una maschera e vorrei
nell'evento click si aprisse un combo arricchita con i nomi dei campi della
tabella, dimodochè io posso selezionarne uno per passarlo come parametro in
un'altra maschera. Esempio:
click su tasto e la combo si apre e mostra:
cognome
nome
indirizzo
città
nazione
ecc.
io effettuo la scelta e automaticamente passo la scelta come parametro in
un'altra maschera. Il sistema rudimentale sarebbe quello di riportare in una
tabella a parte un elenco con i nomi dei campi e con questa popolare la
combo.
grazie
Francesco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Francesco

Prova ad armeggiare un pò con il codice. Devi utilizzare le proprietà
delle librerie ADO; da qualche parte (non ricordo bene dove) c'è la
possibilità di ottenere l'elenco dei field come parte dell'insieme
"table". Una volta identificati poui passarli come meglio credi al Combo.
Vedi se ti è d'aiuto
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message
news:bo8p0o$bmd$
1...@news.newsland.it

Ma assolutamente no.....!!!
La Combo hanno la possibilità di essere impostate
in modo da mostrare direttamente i Campi, basta impostare la seguente
Proprietà:
Tipo Origine Riga=Elenco Campi
Origine Riga=NomeTabella
E' ovvio che per rendere la cosa flessibile devi crearti 2 combo.
La prima che mostra l'Elenco Tabelle, e su aggiornamento della
quale esegui la modifica della proprietà OrigineRiga della 2°.
Per Ottenere la Combo con l'elenco delle Tabelle inserisci nella
combo sulla proprietà
Origine Riga: SELECT MsysObjects.Name FROM MsysObjects WHERE
(((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1)) ORDER BY
MsysObjects.Name;
Tipo Origine Riga=Tabella/Query
Su Evento After Update della 1° scrivi
Me.SecondaCombo.RowSource=Me.PrimaCombo
Me.SecondaCombo.Requery
In Inglese le 2 proprietà sono RowSourceType, RowSource
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex.
Ops......
