mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Raggruppare i record uguali e sommarne i valori in un report

Salve a tutti.
Ho provato in diversi modi creaundo un report ma non ci sono riuscito.
Ho creato un report basato su una query.  Deve riepilogarmi i lavori
effettuati per un cliente. I lavori sono nella tabella "Movimenti" e succede
che il lavoro effettuato per un cliente si divide in diverse voci presenti
diverse volte nella tabella. Ad esempio: in data 26/09 ci sono state 10 ore
di lavoro a 40 euro all'ora; 120 euro di spese anticipate. In data 27/09 ci
sono state 5 ore di lavoro a 40 euro l'ora; 10 euro di spese telefoniche e
50 di spese anticipate.
Vorrei riuscire a fare in modo che il report apparisse piů o meno cosě:
Ore lavoro 600
Spese anticipate 170
Spese telefoniche 10
totale    780
Ho provato a fare una query a campi incrociati ma siccome devo dare anche
dei parametri credo di aver fatto un pň di confusione. In effetti mi dice
che microsoft Jet  non riconosce Forms!StampaRiepilogo!DallaData come campo
valido.
In excel avrei caricato una matrice ma ho visto che access semplifica molto
queste cose: l'importante č conoscerle...
Come si fa?
Grazie
Stefano


Ciao Stefano
Se non ho capito male per ogni cliente vorresti il riepilogo delle ore, 
spese e totale.
Per le mie conoscenze poi intraprendere 2 strade:
I°  Strada:
    Crei il Report con origine dati la tua tabella movimenti,
    Od una query che te li filtra da data a data con la formula:
    Between [Forms]![movimenti]![dadata] And [Forms]![movimenti]![adata]
    e ti crea il campo totale con una formula
    Nel Report imposti il raggruppamento per Cliente
            Visualizza
                Ordinamento e raggruppamento
                con i parametri intestazione e piè di pagina gruppo SI
                raggruppa secondo ogni valore
    Inserisci i campi nel corpo
    Sul piè di pagina Cliente puoi inserire le somme dei campi a tuo 
piacimento
    es: (su casella di testo =Somma([Totale]))
    Se non vuoi visualizzare tutti i movimenti imposta le proprietà del 
corpo a visibile no
II° Strada:
    Sulla query creata come sopra crei un'altra query con visualizzazione 
dei totali,
    per cliente usi la formula "raggruppamento", per gli altri campi "somma"
    Con questa query crei il tuo Report.
Spero di essere stato chiaro
Ciao
Maurizio S.

 ha scritto nel messaggio
news:efe628$4m5$1...@area.cu.mi.it...

Ora ho capito. Sono andato per tentativi e mi ci ero quasi avvicinato ma
adesso è tutto molto più chiaro.
Grazie mille.
Stefano
Newsgroup: it.comp.appl.access
Titolo: Ricerca di un campo dentro un altro

Ecco il problema:
Ho una tabella con due campi. Un campo "lemma" in formato testo che contiene
una parola, e un campo "definizione" in formato memo che contiene molte
parole (la definizione appunto).
Voglio cercare, all'interno di tutte le definizioni tutte le occorrenze di
ogni lemma e segnarle con un tag (sempre lo stesso, per esempio <t>)
al'inizio e uno alla fine.
Ovviamente è pazzesco farlo a mano, ed è per questo che cerco aiuto.
Ecco cosa deve fare il software:
** leggo il lemma 1
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
** leggo il lemma 2
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** leggo il lemma n
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
AIUUUTOOOOOO!!!

 ha scritto nel messaggio
news:9jhk30$ubo$1...@lacerta.tiscalinet.it...


 in questione aperta, da ripetere per ogni "lemma"...
:-((((((
Sono quasi 60.000 lemmi...


 Devi usare un codice VBA con la funzione Replace:
Devi scrivere DOPO il quoting
Antonio

Newsgroup: it.comp.appl.access
Titolo: Compatta e ripristina database

Sul menù strumenti- Utilità c'è la funzione compatta e ripristina database.
E' possibile creare un tasto con tale funzione da inserire nelle varie
applicazioni?
Se si qualcuno mi spiega come fare?
Grazie in anticipo

 wrote in message
news:bgllka$pb7bj$
1...@ID-91233.news.uni-berlin.de

Se usi A2K oXP c'è un Flag da settare per la compattazione alla
chiusura.
Se invece vuoi eseguire a richiesta devi realizzare un'applicazione
esterna che compatti e rilanci il tuo programma.
Sul SitoComune c'è uno Script che realizza questo.
www.sitocomune.com
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
www.sitocomune.com
Con versioni >=A00 c'è anche la possibilità di chiamare la
voce del menù dal codice. L'ha trovato il collega MVP Juan
M. Afan de Ribera di Barcelona. Non so tutti i nomi delle
voce nella versione italiana. Dovete cambiare le 2 ultimi qui:
CommandBars("Menu Bar"). _
    Controls("Strumenti"). _
    Controls("programmadatabase osimile"). _
    Controls("Compatta e ripristina database o simile..."). _
    accDoDefaultAction
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: & come in Clipper

Vorrei poter fare in Access ciň che facevo in Clipper e cioč:
memorizzare in un a striga o in un campo una formula matematica ad es.
10+sin(x)*sqrt(cos(y)) dove ovviamente sin cos sqrt sono funzioni ed X e
Y variabili a cui assegno un valore e farla risolvere automaticamente.
In Clipper esisteva un operatore & che trasferiva alla variabile il
contenuto della variabile per cui quanto sopra veniva risolto come
segue:
x=10
Y=20
a=10+sin(x)*sqrt(cos(y))
a=&a
ed ottenevo il risultato della funzione matematica.
Sandro  

 Vorrei poter fare in Access ciò che facevo in Clipper e cioè:

Newsgroup: it.comp.appl.access
Titolo: query non visibile per stampa unione

vorrei utilizzare access come db di "stampa unione" per un file word ma
vedo che alcuen query non sono selezionabili nella finestra di word dove
si deve aggiungere la fonte della stampa unione
mi pare di capire che alcune query non siano selezionabili perch�
considerate tropo complesse? potrebbe essere o dico una castroneria?
in ogni caso, � possibile in qualche modo selezionare le query che pi� si
addicono o si pu� utilizzare solo le query che vengono visualizzate nella
apposita finestra di dialogo?
ciao a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 visualizzate nella apposita finestra di dialogo?
Certo mancano le versioni di Access e Word.
Forse si tratta del vecchio problema qui:
http://support.microsoft.com/kb/320476/it
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Karl Donaubauer ha scritto:



perfetto, grazie mille come sempre.
per pubblico interesse la versione di office � la 2003.
ciao


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

Ciao Ng, ho questo problema. In una tabella devono comparire dei valori in 
dollari, dopo aver effettuato il cambio euro dollaro. Allora ho realizzato 
una maschera, che si apre su click pulsante, dove si dovrebbe inserire il 
valore attuale Euro/Dollaro, dopo, con pressione su tasto ok, si  chiude 
quest'ultima e si memorizza il valore in una variabile long chiamata 
CostoCambio....adesso come faccio ad utilizzare quest'ultima in un'altra 
maschera? in quest'ultima come origine dati c'è una riferimento ad un campo 
Euro, dovrei fare un qualcosa tipo campo dollaro=Euro/CostoCambio...qualche 
suggerimento?
Femto 

 Femto
Dichiara la variabile CostoCambio come variabile pubblica in un modulo
standard del database, cosě potrai richiamarla da qualsiasi oggetto del
database.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio 
news:2EVZd.16460$zZ1.4...@twister1.libero.it...

grazie..
Femto 


Roberto, sta arrivando Pasqua, non Natale
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:8YWZd.15408$Tm5.2...@twister2.libero.it...

OK


 OK
Ma cos'è durante le feste non si accettano cambi???
;-P
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Impazzendo con le stringhe!

Ciao a tuch!
Sto impazzendo cercando di far capire ad Access2k che quando la variabile stringa  strSQL  contiene il carattere apostrofo ('),
questo deve essere rimpiazzato con qualcosa che non faccia andare il tilt il sistema di filtraggio basato su una espressione sql
che riporto qui di seguito:
strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0, intSelezionati) & "'"
In particolare, se la variabile stringa  Lista.Column(0, intSelezionati)  contiene un apostrofo,
questo deve essere rimpiazzato con qualcosa che NON influirà con gli apostrofi iniziale e finale
che servono per racchiudere il criterio di filtro... Spero di essere stato chiaro...!
Una funzione intrinseca che secondo me puo' essere di grande aiuto è  REPLACE.
Ho visto bene il suo schema sintattico, ma non riesco a trovare una sottostringa alternativa,
senza ovviamente modificare il contenuto finale di  strSQL.
Gra$ie!!  ;-)
	luca

         luca
non e' questione di stringa alternativa. Dovresti raddoppiare
l'apostrofo
replace(str,"'","''")
--
a.cara 
Togli qualcosa dall'email

replace(str,"'","''")
Grazie!
L'email la lascio cosi' perché tanto è una mailbox-buco-nero... la mia vera email è ben altra!
Comunque grazie lo stesso per il suggerimento!  ;-)

 wrote:

Comunque continua a darmi errore di run-time 3075 Errore di sintassi (operatore mancante),
in pratica va a sostituire anche i singoli apostrofi che delimitano il criterio della stringa sql...
Non va...

 Non va...
quelli non li devi sostituire 
la replace va solo su Lista.Column(0, intSelezionati)
si puo anche fare chr(34) & Lista.Column(0, intSelezionati) & chr(34) o
"""" & Lista.Column(0, intSelezionati) & """"
(cioe' racchiudere fra doppi apici)


(cioe' racchiudere fra doppi apici)
YEAH!!!
Ho provato a racchiudere Lista.Column(0, IntSelezionati)
fra 4 virgolette """".......""""  come m'hai suggerito tu...
Funziona alla grande, ma sinceramente non ho ben capito come faccia a funzionare!
Gra$ie mille!  ;-)
	Luca

 ha scritto nel messaggio
news:msjt1vglclbrvo8lr...@4ax.com...

Dovresti risolvere il tuo problema scrivendo così:
strSQL = strSQL & "RagioneSociale=" & Chr$(34) & _
Lista.Column(0, intSelezionati) & Chr$(34)
Per maggiori dettagli ricerca sull'help il seguente argomento e leggitelo
tutto: Virgolette nelle stringhe.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

tutto: Virgolette nelle stringhe.
Ti ringrazio roberto ma avevo già risolto cosi':
"""" & Lista.Column(0, intSelezionati & """"
L'help mi dara' sicuramente una grossa mano nel risolvere questo genere di problemi...
cià!
Newsgroup: it.comp.appl.access
Titolo: Esportazione dati in Excel

Ciao a tutti.
In una maschera, che contiene un elenco di clienti, ho inserito un pulsante 
che mi consente di esportare i record che visualizzo in Excel. Il codice 
associato al pulsante e' il seguente:
****************************************
Private Sub cEsportaExcel_Click()
       DoCmd.RunCommand acCmdOutputToExcel
End Sub
****************************************
Il tutto funziona perfettamente, vengono considerati i filtri, gli 
ordinamenti, ecc., insomma i dati vengono trasferiti in excel esattamente 
per come sono visualizzati nello schermo.
C'e' solo un problema: nella maschera ho inserito una cornice con 3 opzioni 
(clienti attivi, cessati, tutti) ed anch'essa viene esporata, cosa che 
vorrei evitare.
Esiste un modo per impedirlo?
E se no, si potrebbe scrivere qualche istruzione per far sě che al termine 
dell'esportazione, la suddetta colonna venisse cancellata?

 ha scritto nel messaggio 
news:skuxk.57832$Ca.1...@twister2.libero.it...

Io utilizzerei una query che riprende il filtro della mascheraa....nel 
momento che esporti dai come origine la query senza il campo che dici.
Ciao
-- 
Roberto da Parma

 momento che esporti dai come origine la query senza il campo che dici.
Nella query d'origine non c'è il campo cornice.
Cornice è solo un oggetto che ho messo nella intastazione di maschera
della form per filtrare i dati in funzione del valore del campo 
"Attivo/Cessato".

 "Attivo/Cessato".
Il metodo piů semplice da gestire per esportare i dati č quello indicato da 
Roberto.
Non esporti la maschera (o quello che vedi sulla stessa) ma il risultato 
della query filtrata...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:qqvxk.57872$Ca.1...@twister2.libero.it...

Il campo cornice prenderà il dato da un campo giusto?
Non aggiungere quel campo nella query...


 Non aggiungere quel campo nella query...
No, così non va.
Comunque ho risolto in un modo abbastanza semplice.
Ho messo un banale Me.Cornice1.Visible = False, prima dell'istruzione 
"DoCmd.RunCommand acCmdOutputToExcel"
della routine, risettandone il valore su True alla fine dell'export.
Ciao e grazie lo stesso.

 ha scritto nel messaggio 
news:tiPxk.147628$FR.4...@twister1.libero.it...

Se ti va bene....meglio così...

Newsgroup: it.comp.appl.access
Titolo: Invio mail tramite maschera di access

Ho creato una maschera di prova in access per vedere se riesco ad
inviare tramite questa una mail. Premetto che ho conoscenza 0 di VBA,
ma cercando in internet mi sono adattatato un codice trovato su di un
forum, solo che non riesco a capire l'errore mi rileva l'errore alla
riga "Dim ObjOutlook As Outlook.Application", in effetti se la
riscrivo a mano quando arrivo dopo as che mi dovrebbe da' l'elenco
delle possibilità non trovo Outlook in elenco.
Detto questo cerco di farvi capire cosa ho creato:
nella maschera dal nome Maschera2, ho un pulsante denominato Testo0,
nel quale vorrei scrivere l'indirizzo mail del destinatario della
posta elettronica. Ripeto è solo una prova per capire come riesco a
fare per inviare una mail. Oltre al testo0, nella maschera ho inserito
un pulsante e sull'evento click ho inserito il seguente codice, che
come detto in precedenza rileva l'errore. NON HO FATTO NESSUNA ALTRA
AGGIUNTA O MODIFICA NE' AGGIUNTA ALL'AREA MODULI. Ecco il codice:
Dim rstMail As New ADODB.Recordset
Dim Mail As String
Dim Ref As String
'** Creo le variabili per Outlook
Dim ObjOutlook As Outlook.Application
Dim ObjEMail As Outlook.MailItem
Check = False
rstMail.Open "Statements_mail", CurrentProject.Connection,
adOpenStatic
With rstMail
Do While Not .EOF
Testo0 = Testo0.Value
Mail = "Good morning," & vbNewLine & vbNewLine & _
"Please be advised that the last recent account statement we have
received for the following position is dated " & .Fields("UltimoEC") &
vbNewLine
Ref = "Urgent: Missing Account Statement on "
Set ObjOutlook = CreateObject("Outlook.application")
Set ObjEMail = ObjOutlook.CreateItem(olMailItem)
With ObjEMail
.To = Testo0
.Importance = olImportanceHigh
.Subject = Ref
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send
End With
Loop
End With
Set ObjEMail = Nothing
End Sub
Potreste indicarmi la strada da seguire per poter risolvere il mio
problema? Ripeto VBA lo conosco veramente poco!
Saluti SimoneB

 delle possibilità non trovo Outlook in elenco.
Forse manca il riferimento:
Vai (nella finestra vba) in strumenti\riferimenti e seleziona la
libreria di microsoft outlook (mi pare si chiami Microsoft Outlook
Object Library )
Spero di esserti stato utile

Spero di esserti stato utile
NN utile, utilissimo!!! ORA FUNZIONA... ovviamente con qualche altra 
modifica che mi ero scordato di fare... il mio codice aveva altri errori qua 
e là
grazieeeeeeeeeeee!!!!
Newsgroup: it.comp.appl.access
Titolo: Campi memo

Spero non sia una FAQ.
Devo trascrivere in un file html un campo memo.
Il codice dovrebbe leggere carattere per carattere il campo, e inserire nel
file html un tag <BR> ad ogni ritorno a capo.
Come si può leggere un campo memo? Se fosse una normale stringa di testo
userei un
mid(x, 1, 1) con x da 1 a len(campo).
E come si individua un ritorno a capo?
Grazie!


vediti la funzione GetChunk sull'help


http://www.penguinpowered.com/~ecesena
La prigione e' come Beverly Hills.  Ma c'e' meno criminalita'.
		-- Robert Mitchum

 bye!
vbCR.
Tra l'altro funziona magnificamente anche per la costruzione di stringhe,
es:
MsgBox "Questa e' una riga" & vbCR & "questa e' un'altra riga"
ecosi' via
Ciao, Sib
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
Ma ricordate anche che il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente
Newsgroup: it.comp.appl.access
Titolo: Progressivo "plurimo"

Ho già esposto questo problema qualche post fa, ma forse non l'ho
descritto bene. Ci riprovo...
Dovrei crearmi un progressivo automatico annuale legato all'ordine di
ogni cliente. Essendo tutti i clienti in un'unica tabella ho delle
difficoltà a creare questo automatismo.
Potrebbe magari uscirmi fuori in una box specifica selezionando il
cliente da una combobox all'interno della form di inserimento ordine...
Qualcuno può aiutarmi?
Grazie
Paolo

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

Ti ringrazio, funziona che è una meraviglia...
Me!PrgRipCliente = Format(DCount("*", "Tab 1210 OrdineCl", _
"NomeCliente ='" & Me!NomeCliente & "'") + 1, "000")
Mi daresti solo un'indicazione su come inserire l'anno in modo che il
risultato sia ad es. 05001?
Ti ringrazio
Paolo

Ti ringrazio


Funziona eccome...
Grazie davvero...
Ciao
Paolo
Newsgroup: it.comp.appl.access
Titolo: 3 query in un report - si puo' ?!

Ho una tabella fatture ed una ricevute.
Ho creato 2 query che mi calcolano il totale degli importi per l'una e per
l'altra e quindi ho creato un'ulteriore query che mi calcola il totale di
tutti gli importi (tot fatture + tot ricevute )
Ora vorrei visualizzare tutte queste informazioni in un unico report.
E' possibile ?
Ho provato creando una query che raccoglie tutte e tre le precedenti o a
prendere i campi dalle singole query utilizzando la creazione guidata report
ma in ogni caso mi veniva restituito un errore oppure valori nulli.
Grazie
Fabio

 wrote in message
news:RSoP6.4463$Uo3.1...@news6.giganews.com...

Crei una query 'SQL specifico / Union' e ci scrivi p.e.:
SELECT Fatture.CausaleFattura, Fatture.ImportoFattura FROM Fatture
UNION ALL
SELECT Ricevute.CausaleRicevuta, Ricevute.ImportoRicevuta FROM Ricevute
Ciao!
Esteban
Hosted by 
www.seber.it

Newsgroup: it.comp.appl.access
Titolo: Add-in in VisualBasic 6.3 (VBA)

Ciao a tutti!
Qualcuno sa dirmi, per favore, dove e come salvare un Add-in che ho
creato in VB 6.3, in modo tale da farlo apparire nella lista
dell'Add-In Manager (che tra l'altro in questo momento è vuota)?
Grazie anticipatamente.
Clarence

[CUT]
http://www.oreilly.com/catalog/devvbad/chapter/ch01.html#13926

Ciao Gaspare!
Grazie per la info, ma, nella mia immensa (stressante) ricerca di 2 gg,
avevo già letto questa pagina e, quindi, nel file vbaddin.ini avevo
aggiunto la seguente riga:
InsertLineAtCursor.Connect=0, ma niente... La lista "presente"
nell'Add-in Manager è praticamente vuota. Non è strano che non
compaiano neanche gli altri add-in presenti nel file vbaddin.ini? Che
ne dici?

Ciao Gaspare!
Grazie per la info, ma, nella mia immensa (stressante) ricerca di 2
gg,avevo già letto questa pagina e, quindi, nel file vbaddin.ini avevo


[CUT]
Ciao,
prova a postare qui -> 
http://www.visual-basic.it/

Newsgroup: it.comp.appl.access
Titolo: Intestazione stampa unione

Buongiorno!
Dovrei fare una stampa unione di una graduatoria quindi un elenco di n
record.
Non so come fare un'intestazione al documento perchè se scrivo
qualcosa me lo ripete per ogni record mentre io vorrei che fosse unica
l'intestazione.
Grazie
--mic--

 ha scritto nel messaggio
news:b98adaf0.04030...@posting.google.com...

Devi utilizzare, in word, il campo DATABASE; visualizza la barra strumenti
DATABASE e segui il wizard...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: testo giustificato

Ciao,
in un report è possibile giustificare il contenuto di una casella di testo?
Grazie

 ha scritto nel messaggio
news:_CgZ7.11590$%B.42...@twister2.libero.it...

Sembra di sì da access 2000 in poi...
Ciao.
--
Sergio MAZZA

 wrote in message
a144r9$h55$1...@canarie.caspur.it...

Non riesco a trovarlo!
Neanche nella guida in linea
Ciao
Massimo


wrote:

nella proprietà allienamento della casella di testo assieme alle voci
a sinistra, a destra, centrato, etc....
però funziona male
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: macro per spostamento tra record

Ho creato in una maschera 4 pulsanti di comando (senza l'autocomposizione) 
che voglio utilizzare per spostarmi rispettivamente all'ultimo, al 
precedente, al successivo e all'ultimo record.
Per fare questo ho creato una macro con 4 "nomi macro" che ho associato 
all'evento su clic dei pulsanti sopracitati.
Ogni "nome macro" ha l'azione VaiARecord con i relativi argomenti azione.
Problema: nella maschera, quando clicco il pulsante "Precedente" quando mi 
trovo sul primo record, da errore; idem se premo il pulsante "Successivo" 
quando mi trovo sull'ultimo record.
Che condizioni posso mettere sulla macro affinchè riconosca di essere sul 
primo (o ultimo) record e non vada al precedente (o successivo), ma arresti 
la macro?
-- 
Grazie in anticipo.
Alexx 

Alex ha scritto:


evita le macro e scrivi una riga di codice sull'evento clik del pulsante
relativo.
DoCmd.GoToRecord , , acFirst 'Primo Record
DoCmd.GoToRecord , , acNext 'Record successivo
DoCmd.GoToRecord , , acPrevious 'Record precedente
DoCmd.GoToRecord , , acLast 'Ultimo Record
Per far capire al sistema se si è alla fine o all'inizio della tabella
basta gestire l'errore...
quindi Es.
Private Sub TuoPulsante_Click()
On Error GoTo Err_TuoPulsante_Click
    DoCmd.GoToRecord , , acNext
Exit_TuoPulsante_Click:
    Exit Sub
Err_TuoPulsante_Click:
End Sub
Funge?
Fammi sapere
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: Stored procedure "annidate"

E' possibile richiamare i risultati di una stored procedure all'interno di 
un'altra?
Mi spiego meglio.
In un mdb avevo creato una query di accodamento parametrica che utilizzava 
un paio di query anch'esse parametriche. Tutte pescavano lo stesso 
parametro, una data, da un form.
In un progetto adp, sto tentando di ottenere lo stesso risultato con le 
stored procedure, così ne ho create due equivalenti alle query del mdb 
(chiamate <AssentiOggi> e <Turnaz>) e un'altra "di accodamento" che dovrebbe 
usare i risultati delle prime due. Ne riporto il testo così capirete meglio:
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[CreaServizioGiornaliero]
@DataIns datetime
AS
INSERT INTO ArchivioServizi ( IDAgente, Turnazione, OraFine, Turno, 
OraInizio, Servizio, Ufficio, Zona, Viabilità, NoteServizio, 
TurnoReperibilità, GIORNO, TurnoRiposo, TurnoRiduzioneOrario, Turdom, 
Turmart )
SELECT TabellaAgenti.IDAgente, Turnaz.Turnazione, Turnaz.OraFine, 
Turnaz.Turno, Turnaz.OraInizio, TabellaAgenti.Servizio, 
TabellaAgenti.Ufficio, TabellaAgenti.Zona, TabellaAgenti.Viabilità, 
TabellaAgenti.NoteServizio, TabellaAgenti.TurnoReperibilità, @DataIns AS 
Espr1, TabellaAgenti.TurnoRiposo, TabellaAgenti.TurnoRiduzioneOrario, 
TabellaAgenti.TurnazioneDomenicale, TabellaAgenti.TurnazioneMartedi
FROM TabellaAgenti LEFT JOIN Turnaz ON TabellaAgenti.Turno = Turnaz.Turno
WHERE (((TabellaAgenti.IDAgente) Not In (Select IdAgente from assentioggi 
Where assentioggi.IdAgente = IdAgente) And (TabellaAgenti.IDAgente) Not In 
(Select IdAgente From ArchivioServizi Where ArchivioServizi.IdAgente = 
TabellaAgenti.IdAgente And [ArchivioServizi].[GIORNO] = [DataServizio] ) And 
(TabellaAgenti.IDAgente) Not In (Select idagente from tabellaagenti where 
dataassunzione > @DataIns Or [MobilitàDal] > @DataIns) And 
(TabellaAgenti.IDAgente) Not In (Select idagente from tabellaagenti where 
inservizio = 'False')) AND ((TabellaAgenti.Distaccato)='False'));
--
Mi sa tanto, però, che non è questa la strada per andare in paradiso!
Avrei pensato, in alternativa, di popolare due tabelle di appoggio, 
<AssentiOggi> e <Turnaz> con i risultati delle prime due stored procedure; 
eseguire quella di accodamento per poi cancellare le due tabelle di 
appoggio. Ma mi sembra un 'tantino' macchinosa come soluzione. Sono sicuro 
che ce un modo molto più semplice...
Come potrei fare?
Grazie e buon Ferragosto a tutti. 

 X.Turno .....
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
----------------------------------------
Newsgroup: it.comp.appl.access
Titolo: #Nome?

Salve ragazzi, avrei bisogno di un vostro parere. Ho creato un database per 
la gestione di alcuni articoli, in una tabella ho messo un campo data e come 
valore predefinito ho inserito DATE(), per far si che la data odierna 
venisse suggerita dal sistema. Creando con Access 2003 Developer, il file di 
setup con relativo run-time e andandolo ad installare su un pc privo di 
access 2003 o office 2003, all'apertura di questa maschera il sistema mi 
restituisce in quel campo il valore #Nome?, come se non mi riconoscesse quel 
campo. Cosa è successo e come potrei rimediare ? Grazie. 


Ciao,
Il problema e' dovuto ad un riferimento mancante oppure ad un conflitto
con versione di access gia' esistente sul pc ospite.
Prova a verificare nella versione di sviluppo, in moduli, 
strumenti->Riferimenti.
Prenditi nota delle varie DLL,OCX etc. che sono in uso e verifica se esistono
sul pc di distribuzione.
Ciao
Lorenzo

 ha scritto nel messaggio 
news:VKSKd.6300$lB4.1...@twister1.libero.it...

Ciao Lorenzo, avevo pensato anch'io alla stessa cosa, ma purtroppo non ho la 
possibilità di controllare, perché io uso Access 2003 Developer come ti ho 
detto prima e poi sul pc ospite, è stato installato solo Windows Xp Pro e 
non c'è più nulla. Hai qualche altra soluzione ? 

 ha scritto nel messaggio 
news:QJ2Ld.789772$35.30...@news4.tin.it...

Per poter controllare i riferimenti potresti aggiungere al db che 
distribuisci una routine simile alla seguente:
Public Sub ControllaRiferimenti()
Dim rcs As Recordset, rc As Reference
Set rcs = CurrentDb.OpenRecordset("RiferimentiMancanti")
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from RiferimentiMancanti;"
DoCmd.SetWarnings True
For Each rc In Application.References
   If rc.IsBroken Then
       With rcs
       .AddNew
       !Riferimento = rc.Name
       .Update
       End With
   End If
Next
End Sub
Preventivamente avrai creato una tabella "RiferimentiMancanti" che contiene 
un solo campo testo chiave primaria: "Riferimento"
Questa tabella potrà alimentare una maschera continua che aprirai per vedere 
se ci sono riferimenti mancanti.
La sub iniziale la esegui all'apertura della mschera di avvio.
Ciao, Carlo


MA sul pc dove hai creato il database hai la possibilita' di verificare
riferimenti e loro collocazione, quindi poi tramite esplora risorse puoi
verificare se e dove si trovano sul pc ospite.
In aggiunta puoi utilizzare il seguente codice che individua un riferimento
mancante :
For Each rc In Application.References
   If rc.IsBroken Then
       MsgBox "BROKEN Reference: " & rc.NAME
   End If
Next
Ciao
lorenzo

 ha scritto nel 
messaggio news:If3Ld.790175$35.30...@news4.tin.it...

Grazie ragazzi, mancava proprio un riferimento "OCX" che ero sicuro di aver 
inserito. Solo non sapevo come andare a trovarlo !!! Ciao, Romeo
Newsgroup: it.comp.appl.access
Titolo: Assegnare ad una variabile il valore ottenuto da una query tipo SELECT SUM ( ) ...

Come č possibile assegnare ad una variabile in visual basic un valore
ottenuto da una query di comando del tipo
[...]
set querymensile = dbs.createquerydef ("")
querymensile.SQL =  " SELECT SUM ( mensile.quota) " & _
                                  " FROM mensile" & _
                                  " WHERE mensile.mese = 'nomemese' "
A questo punto non riesco ad assegnare il valore numerico della query ad una
variabile.
Provando ad assegnare il valore con
nomevariabilenumerica = querymensile.openrecordset ()
mi da giustamente un errore di coerenza dei dati.
Aprendo querymensile come recordset non so come titar fuori il nome
dell'unico dato presente.
Lo stesso risultato si puň ottenere anche senza l' SQL ma viene piů
complicato.
Vi ringrazio per il prezioso aiuto.
Massimo Bellucci

 ha scritto nel messaggio
news:3ALsa.60819$K35.1...@news2.tin.it...

Salva la query e usa dlookup per leggere il risultato e assegnarlo alla
variabile.
Se nella query vi sono dei parametri non direttamente leggibili, per esempio
da una maschera, puoi dare in pasto alla query, al posto del parametro, una
funzione pubblica che restituisce appunto il parametro.
Cosě se il parametro č il nome di un mese potresti scrivere una funzione che
restituisce un nome di un mese e passarlo alla query.
Public Function DimmiUnMese() as String
DimmiUnMese = "Maggio"
End Function
Scrivendo DimmiUnMese() nei criteri della query eviti la richiesta del
parametro.
Tutto ciň solo se la query richiede un parametro altrimenti con DlookUp fai
tutto.
Spero di essere stato chiaro.
Ciao, Carlo


scusa ma:
dim x as variant
x = dsum("quota","mensile","mese = " & "'Aprile'")  
dove "'Aprile'" potrebbe essere:
"'" & Me!controllochecontieneilmese & "'"
--
a.cara 
Togli qualcosa dall'email
Newsgroup: it.comp.appl.access
Titolo: Allineamento in combo box

Ciao a tutti
Se nella tabella Atleti (IdAtleta Contatore, Atleta Testo 50, Nazione
Intero Lungo) voglio visualizzare direttamente la nazione di
appartenenza (tabella Nazioni : IdNazione Contatore, Nazione Testo 50)
tramite combo box (colonna 1 larghezza 0 = IDNazione , colonna 2
larghezza 4 = Nazione , larghezza elenco 4,5) ottengo l'allineamento di
quest'ultima a destra (in effetti il valore è numerico).
Qualcuno sa cortesemente come ottenere l'allineamento a sinistra.
Lavoro con W98 - A2000.
Grazie
Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Lavoro con W98 - A2000.
Nella query origine riga della combo crea un campo calcolato con
Cstr(numero) cosě lo tratta come stringa e te lo mette a sinistra
Antonio

 Cstr(numero) così lo tratta come stringa e te lo mette a sinistra
Grazie Antonio, ma non funziona.
Il valore è già di tipo testo solo che lo visualizzo tramite combo su
un campo numerico.
Ciao


 un campo numerico.
Non ho capito la situazione che hai
Antonio

 Antonio
Riprendendo l'esempio iniziale, ho una tabella Nazioni.
Registro nella tabella Atleti l'id della nazione di appartenenza.
In visualizzazione dati della tabella Atleti vorrei esporre la
descrizione della nazione.
Tento con la visualizzazione del campo tramite combo box definita in
struttura campo Nazione di tabella Atleti.
A questo punto la descrizione della nazione è allineata a destra.
Più difficile da spiegare che da vedere.
Se vuoi ti posto l'esempio.
Grazie per lpazienza e disponibilità.


 Più difficile da spiegare che da vedere.
La combo avrà come origine riga una query con due campi, l'ID e la
descrizione.
Poi due colonne
Poi la dimensione colonne, 0;5 per nascondere l'ID
Non vedo poi dove possa essere il problema
Antonio

 Antonio
Nella colonna visibile i campi sono allineati a destra.
'              Francia'
'        Gran Bretagna'
'               Italia'
'Stati Uniti d'America'
Risulta cosi anche a te ?
Grazie ancora


 Risulta cosi anche a te ?
No
Ma scusa, non è che il controllo combo è stato settato con allineamento a
destra???
Antonio

 destra???
No.
Non riesco tra l'altro a settare l'allineamento in nessun modo.
Ciao

Newsgroup: it.comp.appl.access
Titolo: formattazione condizionale VBA maschera continua

ciao,
 
ho una sottomaschera in modalità maschere continue
 
ho due controlli
 
fornitore  ---  spuntato (campo sì/no)
 
il controllo fornitore ha il tag = colora
 
se il controllo spuntato è uguale a false vorrei cambiare lo sfondo del controllo fornitore.
 
 
 
ho scritto questo codice ma non funziona
 
Private Sub Form_Open(Cancel As Integer)
 
Dim ctl As Control
 
For Each ctl In Me.Controls
 
If ctl.Tag = "colora" Then
 
If Me.spuntato = False Then
 
ctl.BackColor = vbRed
 
Else
ctl.BackColor = vbWhite
End If
End If
 
Next ctl
End Sub
 
grazie per l'eventuale aiuto

Questa non è Formattazione Condizionale..., quel codice funziona in Maschera SINGOLA... e forse nemmmeno tanto perchè andrebbe generato su CURRENT e non su OPEN.
 
Devi selezionare un controllo alla volta e da Menù selezionare la Formattazione condizionale... da li selezioni Espressione Uguale e, controllo.Tag="xxx" e definirne poi le proprietà.
 
Alternativa se proprio lo devi fare da codice... ma non credo abbia senso... è questa:
 
 
Dim ctl As Access.Control
Dim mFC As Access.FormatCondition
 
For each Ctl in Me.Controls
   Select Case Ctl.ControlType
      Case acTextBox,acComboBox
          ctl.FormatConditions.Delete
          Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.Name & ".Tag]=" "xxxx")
          mFC.ForeColor = vbRed
          mFC.BackColor = vbWhite
          mFC.FontBold = True
   End Select
Next
 
Ovviamente non è provato ma la logica è questa...
 
@Alex
 


si certo,
non capivo come funzionava la formattazione condizionale del controllo, quella messa a disposizione dall'interfaccia di access per intenderci.
Io capivo che la formattazione condizionale potesse accettare solo la condizione sullo stesso controllo, poi ho scoperto che:
 
l'espressione è .......[formattazione] = true
 
permette di formattare un controllo in base al valore di un altro controllo.
 
perfetto!
 
per quanto riguarta il tuo codice che mi piacerebbe anche vederlo funzionare
 
quando lo lancio ricevo l'errore:
 
proprietà o metodo non supportati dall'oggetto
 
l'errore è sulla linea
 
Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.Name & ".Tag]=" "xxxx") 
 
il codice mio è questo:
Dim ctl As Access.Control
Dim mFC As Access.FormatCondition
 
For Each ctl In Me.Controls
   Select Case ctl.ControlType
      Case acTextBox, acComboBox
          ctl.FormatConditions.Delete
          Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.formattazione & ".Tag]= 'colora'")
          mFC.ForeColor = vbRed
          mFC.BackColor = vbWhite
          mFC.FontBold = True
   End Select
Next
 
grazie Alessandro
Newsgroup: it.comp.appl.access
Titolo: listbox: colonna allineata a sinistra???

ciao
nelle listbox le colonne sono allineate a sx. Quindi e' molto brutto da 
vedere nel caso ci siano degli importi in euro...
e' possibile avere la listbox con le colonne allineate a destra?
grazieee

rtrtrtr ha scritto:

uff ho letto la faq, dove dicono che l'unico modo e' fare una query che 
riempia di spazi a sinistra la colonna...uffffffff
e' l'unico modo ? (non mi va di usare api)
Newsgroup: it.comp.appl.access
Titolo: Spostamento nei report

Salve a tutti.
In un prg. A2002 lancio l'anteprima di un report ed ho necessità di
posizionarmi direttamente sull'ultima pagina, ma non ho trovato nessun
comando o metodo del report (nemmeno con l'oggetto DoCmd) che mi consenta di
farlo. Ho anche provato con la funzione SendKey, per simulare la pressione
del tasto FINE, ma senza successo.
Avete qualche idea?
Grazie per l'aiuto.
Al

Al ha scritto nel messaggio ...

Questo codice (postato a suo tempo da Sergio Mazza) dovrebbe risolvere:
DoCmd.OpenReport NomeReport, acPreview
RunCommand acCmdFitToWindow
SendKeys "{end}"

 ha scritto nel messaggio
news:TbTY9.49105$ZE.13...@twister2.libero.it...

Grazie per la risposta.
In ogni caso non funziona come dovrebbe.
In relatà il mio problema consiste nel fatto che devo costruire un indice
delle pagine di stampa relative a diversi reports (circa una dozzina) e per
far calcolare il numero di pagina di ogni paragrafo devo lanciare uno ad uno
i reports, all'interno dei quali sull'evento di stampa del corpo vado ad
incrementare una variabile di memoria che tiene traccia delle pagine
stampate. In realtà, l'evento viene attivato solo all'apertura della prima
pagina del report e se no si effettua lo sfoglio di tutte le pagine, questo
evento non si verifica.
Per questo volevo apripre il report e posizionarmi sull'ultima pagina.
Però la soluzione da te proposta non funziona correttamente, perchè questo
succede solo per l'ultimo report mandato in stampa e per i precedenti no
(chiaramente ho  inserito i comandi al posto giusto!).
Se hai qualche altra idea ....
Comunque molte grazie.
Al
P.S. ho provato a cercare sull'help e sulla KB informazioni riguardo i
comandi del RunCommand (come si usano e a cosa servono) ma senza successo!
C'è mica un posto dove vengono speigati nel funzionamento e nella sintassi
completa?  Grazie ancora.

completa?  Grazie ancora.
Mi pareva ci fosse qualcosa sul sito comune... in alternativa fai una ricerga con google utilizzando
la parola chiave RunCommand _erano stati postati link interessanti sull'argomento_
Ti saluto.
Newsgroup: it.comp.appl.access
Titolo: Portare un controllo in primo piano

Se su una form ho una serie di controlli uno dietro l'altro, come
faccio a runtime a portare uno di loro in primo piano.
Ne approfitto per augurare buon ferragosto a tutti i partecipanti.
Grazie

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

Prego
Sě, ci avevo pensato, perň siccome i controlli sono parecchi, č un po'
laborioso nascondere gli altri ogni qualvolta si vuole evidenziarne
uno. Tuttavia se non c'č una soluzione alternativa, adotterň quella.
Grazie
Luigi

 Luigi
Mi piacerebbe capire il perchè della considerazione di
Laborioso....???
Si tratta sempre di scrivere 1 riga di codice dedicata.... e
sicuramente l'affidabilità è superiore...!
Spesso la complicazione dipende da come hai strutturato i Nomi dei
controlli, basta un ciclo con 4 righe per gestirli...!
@Alex


wrote:

Si Alex, forse hai ragione. La complicazione nasce dai nomi dei
controlli. In Visual Basic 6 ricordo che ci sono gli array di
controlli con un nome unico e con un indice variabile. In quel caso
nascondere una serie di controlli è effettivamente molto facile con un
ciclo. In Access tuttavia non mi è sembrato di vedere gli array di
controlli. Sbaglio o è così?
Luigi

 controlli. Sbaglio o č cosě?
No, ma vedi gli esempi nella 
www.donkarl.com/it
FAQ 6.5 Ciclare attraverso i controlli
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 



Molto interessante!
Grazie del suggerimento
Luigi

Newsgroup: it.comp.appl.access
Titolo: W98-A97 OutputTo

Ciao
Dovendo  esportare il risultato di una query su excel ho scritto
DoCmd.OutputTo acOutputQuery, "Q2_Riepiloghi", acFormatXLS, _
                "C:\documenti\Sterilizzazione\Riepiloghi.xls"
la cosa funziona ma , quando chiudo Riepiloghi.xls , Excel mi chiede se
voglio aggiornarne il formato , come se lo avesse creato con una versione
precedente a quella installata che č Excel 7.0 di Office 98 .
Si potrebbe creare con il formato che rimane piů opportuno?
Grazie molte
Marce


_______
Prova ad usare
DoCmd.TransferSpreadsheet ......(trasferisci foglio di calcolo)
ti chiede anche la versione di Excel.
ciao Riccardo


Vedo subito .... mille grazie
Ciao , Marce
Newsgroup: it.comp.appl.access
Titolo: da negati a positivo

Come faccio a convertire un numero negativo a un numero positivo.
Es. da -5 a 5
Grazie


Perchč non lo moltiplichi per -1?
Ciao.

>Come faccio a convertire un numero negativo a un numero positivo.
vedi sull'help abs.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

vedi sull'help abs.
... oppure lo moltiplichi per -1 ...

... oppure lo moltiplichi per -1 ...
ma se hai un positivo in questo modo lo rendi negativo.


ma se hai un positivo in questo modo lo rendi negativo.
... of course ...
Ciao Lbo, da quanto tempo...

 wrote in message
Xy4HOYLjAchTjM...@4ax.com...

Forse il nostro Gianni avrebbe dovuto precisare un pò quello che voleva
farsene di un numero positivo, se rimane tale o se diventa negativo. Non per
essere pignolo...
Se il numero positivo deve rimanere positivo, allora è ovvio che bisogna
fare abs().
Se il numero positivo deve diventare negativo, allora è ovvio che bisogna
fare una inversione di segno con per esempio -1*numero.
Ciao
Thierry




vedi sull'help abs.
Ma e' di serie ?
Carlo Ve


Ma e' di serie ?
sulla developer edition ci sono anche gli airbag laterali.






Io ci sono riuscito in questo Modo


 




Esempio: 2 - (2x2)= -2 in pratica fa diventare un numero da positivo a 
negativo


=([numero]-([numero]*2))


 


Ciao BEPPE.



sulla developer edition ci sono anche gli airbag laterali.
anzi, gli airbUg, ah ah ah...

Newsgroup: it.comp.appl.access
Titolo: problema arrotondamento su report

ho un problema di arrotondamento in un report.
questa è la situazione che vorrei ottenere:
  A      B
2.35%	2%
3.35%	3%
2.30%	2%
----   ----
tot 8%   tot 7%
i campi sono tutti in formato percentuale e calcolati,
=somma(mele/totale mele)
il problema è che il totale della colonna B mi viene comunque 8 perchè
anche specificando a 0 il numero dei decimali dei valori della colonna,
la somma su di essi prende in considerazione tutti i decimali, dandomi
dunque 8. come faccio ad eseguire la somma sui valori arrotondati
(quindi come faccio ad arrotondare effettivamente i valori della colonna
B)??
grazie

 wrote in message 3B3CAC84...@libero.it...

Hai provato con Int ?
=Int([controlloB])
OndaMax

 ha scritto nel messaggio
news:3B3CAC84...@libero.it...

=Somma(Int(mele/[totalemele]))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
purtroppo non mi basta troncare, mi serve proprio arrotondare per eccesso o
per difetto (i valori della colonna A sono tutti sotto lo 0,5 ma non č
sempre cosě)


Ammesso e non concesso che abbia senso sommare delle percentuali, hai
ragione a dire che la formula che ti ho fornito è sbagiata. Prova con
= (Int(Somma(Mele/TotaleMele)*100))/100
e naturalmente userai come formato del controllo Percentale.
Resta il fatto che a questa maniera tronchi ovvero arrotondi all'unità per
difetto. Se vuoi arrotondare all'unità prossima scrivi:
= (Int(Somma(Mele/TotaleMele)*100+ 0,5))/100
o se vuoi arrotondare all'unita per eccesso
= (Int(Somma(Mele/TotaleMele)*100+0,9999999))/100
Comunque sul Sito comune c'è una funzione parametrica di arrotondamento; ha
fra l'altro il vantaggio di essere più precisa della mia.


 sempre così)
Int() ecc. non bastano per un'arrotondamento preciso.
vedi: 
http://www.sitocomune.com
General
Arrotondare un numero alla cifra decimale specificata (uso commerciale)
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Come creare box con password per accedere al database

con password diverse per diversi livelli di accesso ?
grazie 

 grazie
Crea una tabella contenente i campi idutente;nomeutente;password
Crea una maschera senza origine dati contenente:
un menu a tendina contenente i 3 campi sopra citati, di cui il primo e
l'ultimo nascosto (largh.colonne:0;4;0), ed un campo casella di testo
(maschera di input: password).
Crea un pulsante log-in con il seguente codice:
If Me!Password.Value = Me!login.Column(2) Then
    'fai quello che vuoi
else
    msgbox "Nome utente o password errati"
    exit sub
end if
dove me.password è la casella di testo con gli *******
e me.login.column(2) è il menu a tendina 3°colonna nascosta

Crea una tabella contenente i campi idutente;nomeutente;password
Crea una maschera senza origine dati contenente:
un menu a tendina contenente i 3 campi sopra citati, di cui il primo e
l'ultimo nascosto (largh.colonne:0;4;0), ed un campo casella di testo
(maschera di input: password).
Crea un pulsante log-in con il seguente codice:
If Me!Password.Value = Me!login.Column(2) Then
    'fai quello che vuoi
else
    msgbox "Nome utente o password errati"
    exit sub
end if
dove me.password č la casella di testo con gli *******
e me.login.column(2) č il menu a tendina 3°colonna nascosta
Grazie, ho fatto tutto seguendo le tue istruzioni ma si apre sempre la 
finestra di debug.
non capisco e si che mi sembra di fare quello che mi descrivi.
Ciao 

 Ciao
Su quale riga si interrompe il codice? e con che messaggio?
Newsgroup: it.comp.appl.access
Titolo: tabelle collegare sql server in access

sono riuscito a installare sql server express
ho creato un database e una tabella di prova di nome dbo.clienti con management studio
 
ho creato un dns in windows 10 test connessione ok
 
ho aperto access 2016 e cliccato 
dati esterni \ nuova origine dati \ da database\ da SQL server 
ho selezionato collega all'ordine dati 
ho selezionato il dns cliccato OK e mi si apre una lista infinita di tablle che non so cosa siano mentre non vedo la tabella da me creata "dbo.clienti"
 
qualche consiglio?
 
 


Non serve il DNS... anzi io non lo userei.
Per linkare una Tabella ad SQLSERVER si fa come lo fai al BE... passi la Connection String alla proprietà CONNECT della LinkedTable che crei con CreateTabledefs se non esiste già...
 
dim db as DAO.database, tdf as DAO.tabledef
set db = currentdb
 
set tdf = db.CreateTableDef("NomeTabellaServer")
tdf.Connect = CnnString
tdf.SourceTableName = "NomeTabellaLocale"
db.TableDefs.Append tdf
 
Oppure:
DoCmd.TransferDatabase _
    TransferType:=acLink, _
    DatabaseType:="ODBC", _
    DatabaseName:=CnnString, _
    ObjectType:=acTable, _
    Source:="table1", _
    Destination:="table1", _
    StructureOnly:=False, _
    StoreLogin:=True
 
La connectionString la trovi qui:
https://www.connectionstrings.com/sql-server/
 
 
 
@Alex


e quando la passi quella connessione? all'avvio del db per avere poi la tabelle collegate? scusa ma sono proprio ignotante forte in materia sql server e probabilmente "non solo"

 e quando la passi quella connessione? all'avvio del db per avere poi la tabelle collegate? scusa ma sono proprio ignotante forte in materia sql server e probabilmente "non solo"
 
Gestisci le LinkedTable tra FE-BE di Access...?
UGUALE
 
@Alex


non so sono io che non uso i vostri metodi dinamici via codice  quindi non capisco, io sono abituato a fare la procedura guidata "collega tabella" e di solito ho un Be Access in questo caso è sql server peòr una volta fatto ho tutte le mie tabelle collegate se creo una nuova tabella colego solo quella mancante


sempre qualche inghippo
 
ho eseguito
 
dim db as DAO.database, tdf as DAO.tabledef
set db = currentdb
 
set tdf = db.CreateTableDef("NomeTabellaServer")
tdf.Connect = CnnString
tdf.SourceTableName = "NomeTabellaLocale"
db.TableDefs.Append tdf
 
mi dice erorre di compilazione "impossibile trovare il metodo o il membro dei dati
 
in riga db.TableDefs.Append tdf


La sintassi è corretta, ma la stringa di connessione...?
 
@Alex