mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Record non presente in tabella

Dopo la seguente istruzione
    set rst=CurrentDb.OpenRecordset("Select * From MiaTabella Where
[ID]=" & NumID)
cosa mi ritrovo in rst se il valore di NumID non trova corrispondenze in
MiaTabella?
Credevo che rst.NoMatch = True ma a quanto pare non č cosě!
Come faccio ad accorgermene??
Grazie
---
Leo_duca


Per sapere se nel recordset non c'è corrispondenza devi testare la proprietà
recordcount così:
if rst.RecordCount = 0 Then
    MsgBox "Non ci sono Record"
end if
La proprietà NoMatch è il risultato dei metodi Find e Seek.
Ciao Roberto - Syd


Dopo la select è disponibile :
rst.RecordCount
Ciao, Marco

 ha scritto nel messaggio
news:9oaib0$c7pag$1...@ID-98670.news.dfncis.de...

Grazie ad antrambi! :)
--
Leo_duca

Newsgroup: it.comp.appl.access
Titolo: Ore più 5

Salve a tutti, il quesito č questo:
Ho un campo [ora] in una maschera dove inserisco un valore nel formato
13.00, in un'altro campo non associato mi occorre lo stesso valore piů
5,  si puo fare ?
Grazie

 ha scritto nel messaggio
news:dadb67f6.04032...@posting.google.com...

Innanzitutto in una maschera non ci sono i campi ma i controlli: i campi
sono contenuti nelle tabelle e nelle queries.
Usa la funzione DateAdd (vedi help), ovvero nell'origine controllo della
casella di testo non associata scrivi:
=DateAdd("h";5;[ora])
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Path back-end

Ho distribuito il mio databa se diviso in BE e FE a vari colleghi.
Il problema è che ognuno personalizza directory e partizione dove 
"installarlo".
E' possibile, da codice, faree si che il FE cerchi il BE nella path corrente 
e che questa sia visualizzata nella maschera iniziale per es. in modo da non 
creare confuzione?
Grazie
MB 

 ha scritto nel messaggio 
news:4476e347$0$29724$4faf...@reader2.news.tin.it...

Se intendi il path dove risiede il BE, prova con CurrentProject.Path...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:e56q07$u2u$1...@area.cu.mi.it...

Intendo dire che il FE quando si apra vada a cercare il BE nella directory 
dove il FE stesso si trova a prescindere dal nome della directory do dal 
percorso (c: d: e:)
Graize
MB 

 MB
Allora prova il suggerimento...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Testbox con solo maiuscole..

Ancora io,scusate..Avrei bisogno di creare un Testbox che accetti solo 
lettere maiuscole,o meglio man mano che inserisco le lettere me le 
trasformi in maiuscolo,e non accetti numeri..Conosco la proprietà 
vbUppercase che mi trasforma la stringa,ma vorrei sapere se esiste 
un'altro metodo!!Thanks!
Inviato da 
www.mynewsgate.net

 Inviato da 
www.mynewsgate.net
nel formato del campo ci metti il segno > (per i caratteri usa L)
-- 
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Pablitomf (Maurizio Facciuti)
MMmmm, io direi che non soddisfa la richiesta mi sembra di capire che
preferirebbe gestire la digitazione.
Su evento Key_Press della TextBox chiama la seguente funzione:
Private Sub Testo0_KeyPress(KeyAscii As Integer)
   KeyAscii = CkDgtWord(KeyAscii)
End Sub
'*************** METTERE IL CODICE IN UN MODULO *************************
Public Function CkDgtWord(KeyAscii As Integer) As Integer
'Verifica se il TASTO PREMUTO č una lettera
'Va inserita nell'EVENTO KEY_PRESS
'65-90(Maiuscole) 97-122(Minuscole)
   CkDgtWord = 30
   If (KeyAscii >= 97 And KeyAscii <= 122) then KeyAscii =KeyAscii -32
   If ((KeyAscii >= 65 And KeyAscii <= 90) ) Then CkDgtWord = KeyAscii
   Select Case KeyAscii
      Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn, vbKeyShift
         CkDgtWord = KeyAscii
      Case vbKeyEscape, vbKeySpace, vbKeyDelete, vbKeyNumlock
         CkDgtWord = KeyAscii
   End Select
End Function
'***************                         FINE CODICE
*************************
Ciao.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: Passare una stringa a notepad

Vorrei aprire notepad con già dentro il testo che dico io.
Shell "c:\windows\notepad.exe"....e poi?


Esporta o costruisci un file di testo e lo apri con notepad....
Ciao, Carlo 

 Esporta o costruisci un file di testo e lo apri con notepad....
Quindi salvandolo su disco, vuoi dire?

Ciao Valery From The Mountain <val...@invalid.inv>, hai scritto:

Guarda se puo' esserti utile questo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=26
-- 
Ciao
Geppo 

"Valery From The Mountain" <val...@invalid.inv> ha scritto nel messaggio 
news:48f9fb7a$0$41661$4faf...@reader4.news.tin.it...

Certo. Dopo l'uso se non ti serve lo elimini.
Ciao, Carlo 

 
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=26
Bellissimo, grazie! 

 Certo. Dopo l'uso se non ti serve lo elimini.
Preferisco non salvare il file, ho creato una routine che genera un file xml 
che l'utente deve copiare ed incollare in una applicazione. Siccome dentro 
ci sono dati sensibili voglio essere sicuro che il file non vada in giro.
Grazie comunque per i consigli.

Newsgroup: it.comp.appl.access
Titolo: Scambiare righe/colonne

Ciao a tutti.
In A97 ho una tabella che contiene i dati di vendita annuali suddivisi
per mese:
La struttura e' cosi':
Anno
Gennaio
Febbraio
.....
Dicembre
E' banale stampare i dati secondo la struttura della tabella
(i 12 mesi sono le colonne)
Adesso pero' dovrei stampare un report che abbia gli anni
(limitati dal 2002 al 2012)
come intestazione di colonna e i mesi come
intestazione di riga.
Non vorrei utilizzare le tabelle pivot
perche' sarebbe un po' un casino
per l'utilizzatore finale (che al massimo
vuole schiacciare un pulsantone)
Qualcuno mi aiuta?
Grazie a tutti

 ha scritto nel messaggio
news:djed31p31q3ka3ojo...@4ax.com...

Con una query unione smembre ogni record in docdici record ognuno dei quali
ha la seguente struttura:
Anno
Mese
Valore
A questo punto creati una query a campi incrociati che che abbia Anno come
intestazione di colonna e Mese come intestazione di riga: creati infine un
report che abbia tale query a campi incrociati come origine record,
naturalmente l'utente finale quello che c'è sotto al report può ignorarlo
del tutto.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: macro per automatizzare la casella combinata

qual è il comando in una macro che da casella combinata
mi può accodare una lunga sequenza di records (in sottomascherà)?
Grazie 
 
 


come  fare per selezionare il pulsantino della casella combinata da codice?
 
Grazie 
 
 

 ha scritto nel messaggio 
news:4f8560a3$0$1384$4faf...@reader2.news.tin.it...

meglio
come fare a selezionare il controllo della combo da codice 
 
 


Non ho Access sotto mano, ma dovrebbe essere Me.MioControllo.SetFocus
.

Non ho Access sotto mano, ma dovrebbe essere Me.MioControllo.SetFocus
 
grazie
ma io cerco il codice per l'inserimento proprio materiale
dei vari records, come se selezionassi il controllo della combobox.
con il puntatore del mouse.
Da pulsante ho inserito questo codice da completare:
 
    Forms![Fatture3].SetFocus
    Forms![Fatture3]![Dettaglio Fatture Sottomaschera].SetFocus
    DoCmd.GoToControl "IDfatturafornitore"
    DoCmd.GoToRecord , , acNewRec
 
ecc. ecc.
 
grazie per l'aiuto
 
 
 
.
 
 


http://www.donkarl.com/it/?FAQ4.14
 
 
Ciao
Tommaso

 ha scritto nel messaggio 
news:8797215.484.1334260724591.JavaMail.geo-discussion-forums@ynbr30...

grazie Tommaso
è proprio quello che cercavo
 
e per far  ripetere l'operazione ad esaurimento dei records? 
 
 

 e per far  ripetere l'operazione ad esaurimento dei records?
su click di un pulsante
vorrei simulare l'inserimento dei records da una casella combinata
ad una sottomaschera
 
chiedo aiuto per completare questo codice
 
 DoCmd.GoToControl "cbo_fatturafornitore"
    DoCmd.GoToRecord , , acNewRec
    Forms![Fatture3]![Dettaglio Fatture 
Sottomaschera]!IDfatturafornitore.Dropdown
 
vorrei che il Dropdown della combo non sia visibile
cioè che avvenga il passaggio dei records senza
il Dropdown  del menu della combo
 
Grazie

Newsgroup: it.comp.appl.access
Titolo: Ripongo il problema

Bisogna per forza avere installato snapshotviewer per poter visualizzare
snapshot?
Non c'č un modo per copiare il contenuto di un snapshot nel corpo di una
mail? (quindi evitare di inviare il snapshot come allegato)
Grazie Bobbit

 Grazie Bobbit
NO!
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Personalizzare i report di access

Ciao a tutti, ho creato per il mio utente finale circa 40 report utilizzando
Access. Tutte queste stampe hanno lo stesso carattere sia per il corpo che
per i titoli, lo stesso modo di visualizzare le intestazioni e i piè di
pagina. Questo è stato fatto per avere una struttura uniforme. Ora il mio
utente vuole delle personalizzazioni su alcuni di essi ad esempio:
il mio report standard stampa su ogni pagina, nella parte alta il nome della
società e un po' più in basso il tipo di stampa
Società XXX
-------------------------------------------------------
STAMPA DI TUTTI I COMPONENTI
aaaaa                bbbbbbb            cccccc
ddddd                eeeeeee            ffffffff
---------------------------------------------------------
Pagina 1
il mio utente vuole che la prima pagina sia così ma dalla seconda in poi il
titolo, cioè STAMPA DI TUTTI I COMPONENTI comparisse con un carattere più
piccolo per risparmiare spazio. L'unica cosa che mi è venuta in mente è fare
un sottoreport contenente il titolo scritto + piccolo ma non so come farlo
scomparire dalla prima pagina.
Accetto tutte le idee...
Inoltre vorrei chiedere se qualcuno mi sa spiegare, magari con un esempio,
le impostazioni dell'intestazione e Piè di Pagina di un report (tutte le
pagine, non con int. report, non con piè dipag. report.....)
Grazie 1000
Giulia
mailto:
giulia_g...@hotmail.com


Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Così disse 
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)

 wrote in message
ApfC5.67318$3R6.1...@news.infostrada.it...

Fai cosi:
nell'intestazione di pagina del reports crea l'etichetta STAMPA DI TUTTI I
COMPONENTI e per esempio
chiamala "tiporeports" ora vai nell'evento su formattazione dell'
intestazione di pagina e scrivi il seguente codice
presupponendo che il reports si chiama nomi e l'etichetta tiporeports:
Private Sub IntestazionePagina_Format(Cancel As Integer, FormatCount As
Integer)
If [Page] = 1 Then
    Reports![nomi]![tiporeports].FontSize = 20
Else
    Reports![nomi]![tiporeports].FontSize = 10
End If
End Sub
Lo provato e funziona!  Tosto73

endif
Un'altra soluzione simile a quella prospetta da Vincenzo (scritta appena
sopra), è questa:
Se non vuoi usare i sottoreport, puoi scrivere questo, sempre nell'evento
SuFormattazione
legato all'intestazione del report, metti il codice seguente:
if 
me.page
 = 1 then
    me.Nomecontrollo.size = 50
else
    me.Nomecontrollo.size = 25
endif
Dove 50 è la dimensione del carattere del prima pagina, 25 è ovviamente
quello più piccolo, delle seguenti.
Ciao.
Omar
--
Posted from [195.206.1.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Contatore

Tutto chiaro, tranne come si fa la query di accodamento che dice di mettere
il numero precedente quello desiderato nel campo contatore, scusa
l'imbranataggine!
Grazie, ciao

 wrote in message
9v9v1s$a9l$1...@sun250.unimi.it...

Mi pare di aver risposto ad una cosa del genere, ma se cancelli tutto il
thread non lo ricordo...
Antonio

 (es.9000) si puņ fare??? se no che soluzione posso adottare????
Prepari la tua tabella con il campo contatore. Poi fai una query di
accodamento sulla tabella, andando a mettere il valore 8999 nel campo
contatore. Poi apri la tabella e cancelli il record creato. Al
prosiimo
inserimento il contatore ripartirą da 9000.
Antonio
Ciao Emanuele

 >> l'imbranataggine!
Ok. Ma scusa, che problemi ti da una query di accodamento?
Fai nuova query, senza scegliere alcuna tabella. Poi fai menů query, query
di accodamento e selezioni la tua tabella. Poi metti in uno dei campi il
valore precedente e sotto, nel campo accoda a il campo contatore. Poi
esegui.
Comunque, in questo modo si ottiene una stringa SQL fatta cosě
INSERT INTO tab (CONTATORE )
SELECT 8999 AS Espr1;
Antonio

Newsgroup: it.comp.appl.access
Titolo: Ho fatto una cosa terribile con application.quit, aiutatemi vi supplico

Non ci posso credere sono le due di notte e avevo finalmente concluso il
database quando spinto da una curiosita' idiota ho voluto provare l'azione
application.quit e sono cosi'  xxxxx  che l'ho messa nell'evento open della
finestra iniziale ad apertura automatica cosi' adesso il db si apre e chiude
da solo chiudendo anche Access !!!!  :-(((((((((((((
Ditemi che non e' vero!!  Ditemi che posso fare ancora qualcosa!
Ditemi che non e' tutto perduto, che si puo' accedere al codice senza aprire
il db!!
Voglio morireeeeeeeee

 ha scritto nel messaggio
news:YdwJ9.2841$Ou4....@twister2.libero.it...

Non sono un vero e proprio esperto, ma se non è un file MDE,
dovresti aprire il file tenendo premuto (fino all'apertura della finestra
database) il tasto SHIFT.
In questo modo ti è possibile editare la struttura e modificare
il codice della maschera iniziale.
Spero di non sbagliarmi.
---- --- ---
         Gio

 database) il tasto SHIFT.
Antonio


No! Non ti sbagli!! Funzionaaaa
Mai una risposta da un ng fu piu' gradita di questa
Lunga vita e prosperita' e che la forza sia con te, benedizioni e auguri a
non finire.
SONO TROPPO CONTENTOOOO
:-)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Tutta colpa di un clic di troppo....me lo taglio prima o poi 'sto dito a
banana!
--
Satured

 Mai una risposta da un ng fu piu' gradita di questa
Figurati...niente di speciale.
Avrebbe saputo dartela il 101% del ng.
Ero solo l'unico sveglio a quell'ora ;>
---- --- ---
         Gio
Newsgroup: it.comp.appl.access
Titolo: Maschere pop up minuscole

Mi accade che ogni tanto delle maschere pop up decidano
arbitrariamente di diventare sì piccole che si vedono a stento.
Non ho fatto caso le altre volte, ma (se può centrare qualcosa)
l'ultima (due minuti fa) era su doppio click di una casella di testo
di una maschera già pop up
Codice:
Private Sub TOTALESpeseRata_DblClick(Cancel As Integer)
On Error GoTo Err_TOTALESpeseRata_DblClick
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "M_SpeseRata"
    stLinkCriteria = "[Id_Rata_SpeseRate]=" & Me![Id_Rata]
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
Refresh
Exit_TOTALESpeseRata_DblClick:
    Exit Sub
Err_TOTALESpeseRata_DblClick:
    MsgBox Err.Description
    Resume Exit_TOTALESpeseRata_DblClick
End Sub
Ogni tanto, non saprei dire perchè appunto mi si apre sì ma c'è la
barra e pochi pixel in più (una specie di mini francobollo)
La apro in modalità struttura e ridimensiono e tutto torna a posto,
fino a quando casualemente mi rifà lo scherzetto.
Trattasi di un simpatico giochetto che fa solo a  me per aiutarmi ad
ingannare il tempo in queste giornate afose??
Dimenticavo
Windows Xp Pro
A2007 installato con SP1, ma DB A2000 (credo, al massimo A2003, ma
dove si vede??)
F.

 ha scritto nel messaggio 
news:c09d82e0-ee51-458e...@z72g2000hsb.googlegroups.com...




    stDocName = "M_SpeseRata"

Refresh
Exit_TOTALESpeseRata_DblClick:
    Exit Sub

End Sub


F.
Setta il bordo della maschera a dialogo.
Ciao
-- 
Roberto da Parma 

 Roberto da Parma
Ok farò
Grazie per il consiglio
Ma mi chiedo è normale che 99 volte funzioni e la 100 rimpicciolisca?
trattasi di bachetto conosciuto o cosa??
F.
Newsgroup: it.comp.appl.access
Titolo: Rimuovere il pulsante di chiusura (A2000)

Vorrei applicare la funzione "Rimuovere il pulsante di chiusura (X)..." di
Antogal direttamente all'apertura del db che riporto in basso. L'ho inserita
nell'evento "Su apertura" della maschera "PannelloPrincipale" che viene
aperta per prima ma mi viene riportato il seguente errore:
"Errore di run time 2475-La maschera specificata nell'espressione immessa
deve essere la finestra attiva".
Ricordando che la funzione va' richiamata con:
LockAppWindow Screen.ActiveForm
vi chiedo , come faccio  ad applicare la funzione direttamente all'avvio del
db ?
In oltre ho provato anche ad eliminare la msgbox di conferma ma in questo
modo per far sparire il pulsante X devo prima ingrandire la finestra db.
Come mai?
----------------------------------------------------------------------------
---------
Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA"  _
   (ByVal hWnd%, ByVal Index%) As Long
Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA"  _
   (ByVal hWnd%, ByVal Index%, ByVal Style&) As Long
Declare Function GetParentWind% Lib "User32" Alias "GetParent" (ByVal hWnd%)
Public Sub LockAppWindow(fForm As Form)
   ModifyAppWind fForm.hWnd
   MsgBox "Ciao ciao pulsantini!"
End Sub
Public Sub ModifyAppWind(wChildWnd)
   Dim wParentWnd%
   wParentWnd = GetParentWind(GetParentWind(wChildWnd))
   Dim PrevWinStyle As Long, NewWinStyle As Long
   PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
   NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
      Not WS_MINIMIZEBOX And _
      Not WS_MAXIMIZEBOX
   PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
-- 
Posted from 
adamo10.supereva.it
 [195.110.96.115] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG



Newsgroup: it.comp.appl.access
Titolo: Escludere alcuni valori

Ciao a tutti
Ieri avevo chiesto la soluzione per il problema sottoelencato
 ElseIf isLoaded("Ordinigenerico") Then
 If Forms!OrdiniGenerico!Nome = "new fren" Then
 istruzioni ..........
 come si fà  a aggiungere  più valori  a questa istruzione
 cioè tipo
  If Forms!OrdiniGenerico!Nome = "newfren" or " Sito" or  "Brembo"  Then
Roberto gentilmente mi ha risposto :
 If Forms!OrdiniGenerico!Nome = "newfren" or Forms!OrdiniGenerico!Nome = "
Sito" or  Forms!OrdiniGenerico!Nome = "Brembo"  Then
Tutto bene ,
 volevo solo  sapere se era possibile
anzichè  aggiungere valori
escludere alcuni valori  tipo :
If Forms!OrdiniGenerico!Nome = not "newfren" or not " Brembo" or not "Sito"
Praticamente se il nome non è questo elencato  visualizza tutti gli altri.
Ciao Giuseppe

 ha scritto nel messaggio
news:7nddb.177490$R32.5...@news2.tin.it...
[CUT]
 If Not(Forms!OrdiniGenerico!Nome = "newfren" or " Brembo" or "Sito") Then
blablabla....!
@Alex.

 ha scritto nel messaggio
news:bl3uro$gqi$1...@lacerta.tiscalinet.it...

Ciao Alex  grazie  tutto OK
ma il   blablabla  dove va messo ????
occhio non rispondere male


Se ti dico di metterlo dove vuoi .....!
@Alex.
Newsgroup: it.comp.appl.access
Titolo: eliminare cio' che non serve

C'è possibilità di monitorare quali query, Maschere e report in un programma 
sono
inutilizzate?
 
Grazie
 
 
 


Puoi provare nella finestra database. Seleziona l'oggetto che desideri e con il tasto DX scegli "dipendenze oggetti".
 
F.

 ha scritto nel 
messaggio 
news:3954339.1782.1335016545560.JavaMail.geo-discussion-forums@vbuo17...

ciao Fabrizio
grazie,
altra soluzione?
Newsgroup: it.comp.appl.access
Titolo: coesistenza qry parametriche in QBF

Buona sera a tutti,
Vorrei poter filtrare una query scegliendo  il dato da cercare in una combo
che ha origine dati da una tabella, ma anche poter  introdurre a mano DUE
valori da cercare.
Ho provato a inserire nella combo, a mano, "testo da cercare" & "altro testo
da cercare", senza successo. Dovrei utilizzare al posto della combo una
listbox abilitandola alla scelta multipla?
Non se ne puo' fare a meno?

 ha scritto nel messaggio
news:clrlt3$n7h$1...@lacerta.tiscalinet.it...

La soluzione che hai scritto nell'oggetto non va?
Perché?
Il codice che hai utilizzato?
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:Zzvgd.101225$b5.48...@news3.tin.it...

Ciao Sergio, ho gia' provato, naturalmente, cambiando la combo in casella di
riepilogo con selezione multipla prima su "estesa", poi anche su "semplice".
Non va nel senso che restituisce sempre e comunque tutti i record anzichè
quelli evidenziati dalla selezione effettuata.
Devo cambiare qualcosa in query?  (like "*" &
Forms!Nomemaschera!nomelistbox...)
Ciao e grazie.
Buon Weekend e Ognissanti a tutti!


Credo che dovrai cambiare il modo di ottenere le informazioni dalla casella
di riepilogo se imposti la selezione multipla.
Devi ciclare nell'elenco per verificare se la voce è stata selezionata o no,
se sì ti costruisci la stringa che passerai (alla fine) alla condizione
where...
Ciao e buon weekend...
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:Xl6hd.236023$35.11...@news4.tin.it...

Ti ringrazio per la precisazione, Sergio, è come tu hai pensato, puoi però
farmi un esempio?
Ti ringrazio e ti saluto.

 Ti ringrazio e ti saluto.
If Me!Elenco.ItemsSelected.Count > 0 Then
    Dim a
    For Each a In Me!Elenco.ItemsSelected
        Me!Risultato = Me!Elenco.ItemData(a) & " " & Me!Risultato
    Next
Else
    MsgBox "Nessun elemento selezionato."
End If
Ciao.
-- 
Sergio MAZZA


Grazie Sergio, gentilissimo.
Newsgroup: it.comp.appl.access
Titolo: vba e sql

Ciao a tutti,
volevo come devo fare in vba di access a connettermi a un database per
fare delle select c'č qulacuno che puo darmi qualche dritta?
ciao e grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ciao e grazie
Se usi delle tabelle collegate al Db che contiene i dati puoi fare le query
come se fossero tabelle locali.
Namor

 Namor
puoi farmi un esempio? scusami ma in access sto sotto lo zero....


 Namor
puoi farmi un esempio? scusami ma in access sto sotto lo zero....
-- 


 ciao e grazie
con la libreria ado:
ad esempio in sola lettura (no modifiche)
Dim rst as New ADODB.Recordset
rst.Open "SELECT * FROM tabella1 WHERE
campo1=valore1",CurrentProject.Connection, _
    adOpenStatic, adLockReadOnly
MsgBox rst("campo1").Value
MsgBox rst("campo2").Value
ecc.
rst.Close
saluti
Roberto

 Roberto
grazie era proprio quello che cercavo


 grazie era proprio quello che cercavo
a proposito se la query ti torna piů di un record per muoverti nel recordset
fai cosě:
rst.Open ....
rst.MoveFirst
Do While Not rst.EOF
    MsgBox rst("campo1").Value
    MsgBox rst("campo2").Value
    ecc.
    rst.MoveNext
Loop
insomma un bel ciclo while su tutti i record finchč non arrivi alla fine
saluti
Roberto

 puoi farmi un esempio? scusami ma in access sto sotto lo zero....
Vai nella sezione Tabelle, fai Nuovo, Collegamento tabella, indichi il
percorso del dbase che contiene i dati e poi le tabelle che vuoi collegare.
Cosě i dati restano nell'altro database, ma li puoi vedere e usare come se
fossero a tutti gli effetti in quello su cui stai lavorando.
Se cancelli un'intera tabella collegata non perdi la tabella originale,
che rimane nel database dati di origine, cancelli solo il collegamento.
Se cancelli o modifichi i singoli record in una tabella collegata,
cancelli o modifichi di conseguenza anche nella tabella originale.
Namor


Newsgroup: it.comp.appl.access
Titolo: protezione utente access97

Problemino:
ho creato un db con access97 che ho messo in rete(NT 4.0) su una cartella
comune ,modificato l' origine file degli utenti interessati ed assegnati i
diritti ai vari gruppi.
tutto funziona perfettamente ma..........
un utente che condivide la stessa cartella ma che non fa parte di nessun
gruppo, clicca sul db e questo si apre consentendogli di fare ciň che vuole.
qualcuno mi fornisce una soluzione ????
grazie a tutti

 ha scritto nel messaggio
news:GqEp9.43469$cS4.1...@news2.tin.it...

Hai per caso l'utente "Guest" abilitato?
Ciao. Claudio.

 > gruppo, clicca sul db e questo si apre consentendogli di fare ciò che

Newsgroup: it.comp.appl.access
Titolo: Documento modificabile SI/NO dopo stampa

 
 Salve a tutti! Volevo sapere x cortesia, chi darmi una dritta per realizzare
una cosa di questo tipo: ho una maschera e una sottomaschera,che
rappresentano la testata e le righe di un documento. Quando stampo il
documento,all’evento di stampa oltre a stampare il documento in oggetto, lo
flaggo come modificabile=no con un controllo si/no. Ora io gradirei che
questo documento non lo si potesse più modificare veramente. Ho fatto alcuni
tentativi utilizzando l’evento SuCorrente e testare il flag di
modificabile,ma non ho ottenuto i risultati che speravo(in pratica non
riesco a far riconoscere correttamente lo stato del documento). Ho provato
ad utilizzare l’evento primadiaggiornare sui controlli,riportando il valore
del campo all’oldvalue ma i campo della maschera/sottomaschera sono tanti e
mi chiedevo se potevo fare qualcosa di più pratico…Grazie in anticipo a chi
mi aiuterà.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ciao,
se il controllo sì/No si chiama "Stampato" potresti usare questo codice
che compie queste operazioni:
dopo aggiornamento verifica se il flag è true o false; se true impedisce le
modifiche alla maschera
lo stesso codice va messo anche sull'evento corrente della maschera per
evitare che navigando tra i record, quelli con il flag true vengano
modificati.
Infine appena il controllo è selezionato imposta l'edit a true altrimenti
non potresti modificare il valore.
Private Sub Stampato_GotFocus()
    Me.AllowEdits = True
    Me.AllowDeletions = True
End Sub
Private Sub Stampato_AfterUpdate()
    If Me.Stampato = True Then
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Else
    Me.AllowEdits = True
    Me.AllowDeletions = True
    End If
End Sub
Private Sub Form_Current()
    If Me.Stampato = True Then
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Else
    Me.AllowEdits = True
    Me.AllowDeletions = True
    End If
End Sub
Vedi tu se può andare bene. Tieni presente che devi adattare il codice al
nome del tuo controllo e che avendo accesso diretto alla tabella sarà
comunque possibile modificare il record.
Ciao, Carlo

 ha scritto:

Salve a tutti. Utilizzando il codice postato da Carlo Costarella(che
ringrazio), mi si
presenta il seguente problema...
Innanzitutto descrivo ciò che faccio io(magari l'errore è là...)
Con una macro imposto il valore di un campo si/no chiamato "stampato" a sì
faccio eseguire il comando salvarecord e non mi muovo dal record
nella macro ho un ecoschermo impostato a no
nella macro ho un impostaavvisi impostato a no
lancio una query di accodamento
faccio eseguire il comando salvarecord e non mi muovo dal record
A questo punto torno in campo del record e cerco di modificare il valore e
sigh...ci riesco.
Se vado nel record precedente/successivo e torno nel record incriminato,il
codice funziona.
Qualche suggerimento??Grazie in anticipo

Newsgroup: it.comp.appl.access
Titolo: coem selezionare un controllo di una maschera da una sottomaschera?

sapete come fare? da una sottomaschera dirgli ad access di selezionare un
controllo che si trova all'esterno nella maschera che contiene la
sottmaschera? grazie.

 sottmaschera? grazie.
Me.Parent specifica la Maschera "Principale" poi accedi ai
controlli come a tutti gli oggetti....!
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sottmaschera? grazie.
Che intendi per selezionare?
Antonio

 ha scritto nel messaggio
news:a2jj8.3855$1S3.1...@twister1.libero.it...

intendo setfocus

 wrote in message
EVlj8.4415$1S3.1...@twister1.libero.it...

forms("tuaformprincipale").controllo.setfocus
Antonio
Newsgroup: it.comp.appl.access
Titolo: AIUTO

Ho fatto un programma eccezionale e lo uso con aggiornamenti vari tra 3 anni
Adesso il mio capo vuole fare tutto con il codice a barre e io non so da che
parte cominciare.
Posso secondo voi utilizzare il mio programma.
E se si come posso  farlo cosa devo comprare, e come faccio a fare lo
scarico con la penna ottica.
Grazie
Come al solito siete dei geni

SEXCRY ha scritto nel messaggio

Anch'io ho avuto lo stesso problema tempo fa. Per leggere il codice a barre
il problema non c'è perché basta collegare un lettore di codici a barre in
parallelo alla tastiera del PC; quando il lettore legge l'etichetta "digita"
automaticamente il relativo codice come se lo avessi digitato tu dalla
tastiera. Per fare lo scarico con il lettore devi preparare una tabella
temporanea con relativa maschera; quando il cursore si trova sul campo
codice puoi utilizzare il lettore. Quando il codice è stato inserito passi
al record successivo (oppure puoi farlo fare al programma usando le routine
evento) ed inserisci un altro codice e così via. Al termine premi un
pulsante che scarica tutti gli articoli che hai inserito nella tabella.
Se devi anche stampare le etichette con i codici a barre hai bisogno del
font relativo al codice che vuoi usare e in alcuni casi la codifica non è
così immediata (come per esempio per l'EAN 13). Comunque i font li puoi
trovare anche gratis su diversi siti.
Ciao

Newsgroup: it.comp.appl.access
Titolo: new record da vba

mi suggerireste o indichereste un riferimento su come inserire e popolare
un nuovo recordo in tabella, direttamente da codice sql su vba?
grazie anticipatamente
carmelo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 un nuovo recordo in tabella, direttamente da codice sql su vba?
Il codice SQL è questo:
INSERT INTO tabella (campo1, campo2, ....., campoN)
VALUES (valore1, valore2, ....., valoreN)
Puoi eseguire il suddetto codice con un DoCmd.RunSQL
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

 carmelo 
Puoi farlo in SQL ma ti consiglio di studiarti la parte di help dove si
parla di Recordset.
Ciao
Newsgroup: it.comp.appl.access
Titolo: Repliche

A chi ha seguito i miei problemi con le repliche (SV soprattutto mi ha
datiìo risposte e indicazioni concrete) faccio il punto della situazione.
Aggiornando il Jet sono riuscito a far sincronizzare le mie repliche, ma o
meglio, tutte le tabelle si sincronizzano tranne UNA.
Non capisco il perchè.
Ho provato a eliminare gli indici su alcuni campi, ma il risultato non
cambia.
Ho letto una marea di documentazione, ma nessun riferimento al mio problema.
SV ti prego, aiutami ancora.
Grazie a tutti
Rick

 ha scritto nel
messaggio
news:canpn1$f5c$1...@carabinieri.cs.interbusiness.it...

E' sempre così, con l'inizio dell'estate è tutto
un fiorire di repliche e ci vediamo per la
milionesima volta
Happy days, TJ Hoker...
MAssimiliano
p.s. scusami, non uso le repliche, ma un sorriso
provo sempre a strapparlo

 ha scritto nel messaggio
news:JeSzc.5796$%l2....@news.edisontel.com...

Un sorriso fa sempre bene, soprattutto per sdrammatizzare la situazione
(faccio la stessa cosa col mio cliente).
Ma il mio problema rimane, si sincronizzano tutte le tabelle tranne una.
Qualsiasi aiuto o qualsiasi documentazione va bene, voglio provarle tutte.
Rick

Newsgroup: it.comp.appl.access
Titolo: 1)far eseguire codice di un record.2)caricare i nomi report in casella

Ciao a tutti,
come da titolo vorrei chiedere se si possono fare le 2 cose in oggetto.
1) 
In una tab di un db ho 2 campi di cui 1 con  delle righe di codice. Se viene selezionato il record in una casella combinata vorrei che venisse eseguito il codice VBA.
2)
E' possibile far caricare in una casella combinata i nomi dei report? (magari anche delle maschere)?
grazie a tutti
-- 
km5000 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-781721.html
Inviato via 
http://www.itsistemi.net

 km5000
Ciao.
-- 
Sergio MAZZA 

 (magari anche delle maschere)?
Cambia .AllReports in .AllForms e avrai l'elenco di queste ultime.
=======================================
Private Sub ComboElenco_DblClick(Cancel As Integer)
Dim Elenco As String, i
ComboElenco.RowSourceType = "Value List"
For Each i In CurrentProject.AllReports
    Elenco = Elenco & ";" & i.Name
Next
ComboElenco.RowSource = Mid(Elenco, 2)
End Sub
===================================
Ciao
Bruno

Cambia .AllReports in .AllForms e avrai l'elenco di queste ultime·
======================================Private Sub ComboElenco_DblClick(Cancel As Integer)
Dim Elenco As String&#8218; i
ComboElenco.RowSourceType = &#8220;Value List"
For Each i In CurrentProject.AllReports
Elenco = Elenco & &#8220;;&#8221; & i.Name
Next
ComboElenco.RowSource = Mid(Elenco&#8218; 2)
End Sub
==================================Ciao
Bruno
Sto provando in tutte le salse ma non carica nessun report/maschera. La casella rimane vuota.
Mi sembra una richiesta bizzarra; forse dovresti ripensare ad un altro modo. In ogni caso la funzione Eval (vedi help) forse può
servirti.
Si in effetti è bizzarra ... comunque funziona
grazie

Newsgroup: it.comp.appl.access
Titolo: [Cisa] Stipulata convenzione con hotel di segrate

Ciao a tutti,
abbiamo stipulato una convezione con l'hotel Riviera di Segrate alla via
Rivoltana
(la strada dov'č la sede M$)
www.multihotel.it
Costi in convenzione
80 Euro singola
85 Euro doppia uso singola
105 Euro doppia
135 Tripla
fare riferimento a "Convenzione Microsoft" e subito dopo "Cisa"
-- 
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007

 abbiamo stipulato una convezione con l'hotel Riviera di Segrate alla via
a tal proposito ho parlato con l'hotel riviera e mi hanno chiesto il "codice 
corso" di Microsoft asserendo inoltre di non sapere niente  di "Cisa".
che si fa? sbaglio io?
ciao!!
Samuele 

 ha scritto nel messaggio 
news:f1qao5$kl9$1...@fata.cs.interbusiness.it...

No sbagliano loro.
Grazie della segnalazione, provvedo in mattinata

>

Bene.
La responsabile M$ mi sta per girare il codice evento e appena pronto lo 
rendiamo noto.
Nel frattempo secondo gli accordi con l'hotel loro accettano la prenotazione 
e fino all'ultimo momento del check in, appena indichiamo il codice ci 
faranno aderire alla convenzione.
In ogni caso l'organizzazione si impegna a mantenere in ogni caso quei 
prezzi per tutti i corsisti, sobbarcandosi l'eventuale malaugurata 
differenza
Newsgroup: it.comp.appl.access
Titolo: cancellare pulsante di comando

Un saluto a tutti, non vi manco?
Veniamo al dunque, ho la necessità di cancellare un pulsante dopo averlo 
eseguito, ho provato a guardare sulla guida ma più di questo non sono 
riuscito a fare:
Dim C As Control
        Set C = DeleteControl(Me.name, "cmdaggiornabuste")
ma non funziona! Ho letto anche che si dovrebbe mettere la maschera in 
struttura per fare un'operazione del genere ma anche se per quanto mi 
riguarda la maschera ed il db si potrebbero anche chiudere, non ci sono 
riuscito, avete una soluzione valida?
Saluti @ndrea 

 ha scritto nel messaggio
news:4755cc5a$0$36445$4faf...@reader5.news.tin.it...

Le modifiche come CREARE o ELIMINARE controlli si possono eseguire solo con
la maschera aperta in modalità STRUTTURA(acDesign).
Questo ovviamente dovrebbe farti intuire che il codice per eseguire l'azione
in questione non può RISIEDERE nella stessa, ma dovrà essere esterno e, dopo
aver aperto la Form in modo adeguato ELIMINARE e chiudere salvando.
Detto questo trovo l'esigenza molto BIZZARRA e decisamente limitante, nel
senso
che non puoi creare MDE con questo metodo in essere.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 che non puoi creare MDE con questo metodo in essere.
Immaginavo di sbagliare qualcosa ma non capivo cosa, adesso che mi ci fai 
pensare, posso aggirare l'ostacolo.
grazie!
Saluti @ndrea

Newsgroup: it.comp.appl.access
Titolo: muoversi all'ultimo record da vb con Goto...

Ho necessità di seguire questa azione in una sottomaschera (con il comano
che parte dalla maschera mamma)..
ho provato, ma al momento mi genera un'errore (ma maschera è chiusa...)
.. non so se sono stato chiaro....
mi date una mano
grazie BC

 wrote in message
news:43c661d1$0$343$
5fc...@news.tiscali.it

Per eseguire l'azione con DOCMD serve che la SUBFORM
abbia il focus.
Io ti consiglio di fare così:
Me!NomeSubForm.Form.RecordsetClone.MoveLast
Me!NomeSubForm.Form.Bookmark=Me!NomeSubForm.Form.RecordsetClone.Bookmark
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Obbligare l'inserimento di record in sottomaschera

Salve a tutti,
ho inserito una sottomaschera a foglio dati all'interno di una maschera che
uso per inserire dei dati. La sottomaschera viene utilizzata per inserire
dei dati in una tabella collegata ad un'altra tabella su cui si basa la
maschera principale.
Ora, il problema è che i dati nella sottomaschera non possono essere nulli,
nel senso che per ogni inserimento nella maschera principale devo
necessariamente inserire dei dati anche nella sottomaschera.
Ho notato che, una volta sulla sottomaschera, se premo invio nei vari campi
senza inserire nulla, alla fine della riga esce dalla sottomaschera e non
salva niente nella tabella collegata.
Io vorrei invece che mi dia un messaggio e mi dica che devo necessariamente
inserire dei dati nella sottomaschera.
Come posso fare questo controllo?
Grazie
ciao
Brunix

 ha scritto nel messaggio
news:qL2qe.1005903$b5.43...@news3.tin.it...

Visto che hai scelto una tecnica maschera/sottomaschera devo ipotizzare che
la tabella origine record della maschera principale e la tabella origine
record della sottomaschera siano in relazione uno-a-molti.
Se questo è vero, a fronte dell'evento "Prima di aggiornare" della maschera
principale puoi verificare, ad esempio con una funzione DCount (vedi help),
se nella tabella che è origine record della sottomaschera esistono record
collegati al reecord corrente della maschera principale ed in caso contrario
puoi avvertire l'operatore con una MsgBox ed annulare la registrazione del
record con un:
Cancel = True
Quindi puoi spostare il fuoco nel primo controllo della sottomaschera per
immattere in essa i dati di un nuovo record.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel
messaggio news:AAiqe.53455$795.1...@twister1.libero.it...

Grazie
ciao
Brunix

Newsgroup: it.comp.appl.access
Titolo: Scelta della stampante

Ciao. E' possibile effettuare la scelta della stampante (da codice VB) prima
di stampare un report ?

 di stampare un report ?
In che senso...???
Puoi aprire il Browser di Stampa e accedere alle Impostazioni di STAMPA
compreso la Stampante, se invece vuoi disporre di una ComboBox in cui
hai l'elenco delle stampanti predefinite e impostare quella scelta
č leggermente piů complesso ma si puň con API.
Trovi un Esempio sul Sito Comune e uno su 
www.mvps.org
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 è leggermente più complesso ma si può con API.


 
Su 
www.mwps.org
 sessione Access c'č in Moduli o API una routine che
legge le stampanti predefinite e imposta quella che passi, molto utile
e ti evita di aprire il Pannello di stampa evitando ROGNE con il
CLIENTE,
perchč meno scelte deve fare meglio č....!!
Vedi se ti č chiara altrimenti ci risentamo.....!


 wrote in message
1a9da8b4e72243b103...@mygate.mailgate.org...


il sito è      
www.mvps.org
 
ciao


 wrote in message
74e99f1c6f45d28f13b...@mygate.mailgate.org...

Newsgroup: it.comp.appl.access
Titolo: Strani messaggi d'errore

Salve a tutti, volevo porre un piccolo quesito.
Ho realizzato una maschera con un pulsante di comando, il quale su click
esegue alcuni eventi, tra cui se si verificano determinate condizioni,
appare un msgbox.
Il mio problema ora è questo, fino a qualche giorno fa, tutto filava per il
verso giusto, di colpo, sicuramente dopo aver fatto delle modifiche che non
sono riuscito a capire, quando premo il pulsante, sia che deve eseguire
un'operazione, che far comparire la msgbox, l'esecuzione si ferma apunto sul
punto MSGBOX dando il seguente errore "PREVISTA VARIABILE O ROUTINE E NON
MODULO".
Addirittura mi da come errore di programmazione anche il codice che crea
access, sempre relativamente alla msgbox di errore.
Che cavolo è successo?
grazie gianni

 Che cavolo è successo?
Questo mi fa pensare che forse hai usato come nome di funzione o di moduli
un nome riservato di access.
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:xSeM9.4507$R45.1...@news2.tin.it...

Salve forse mi sono spiegato male nel dire che esegue un evento, ma io non
ho modificato nulla, di colpo, tutti i msgbx che incontra, mi restiuisce
l'errore sopra descritto.
Comunque questo è il codice:
**********************
Private Sub Esci_Click()
        If (Forms!XX!Sottomaschera_ZZ.Form!YYY = True And
Forms!XX!Sottomaschera_ZZ.Form!KK = True) Then
        Beep
        msgbox "Non puoi selezionare...............", vbInformation,
"ATTENZIONE"
    End If
        If (Forms!XX!Sottomaschera_ZZ.Form!YYY = False And
Forms!XX!Sottomaschera_ZZ.Form!KK = True) Then
      Esegue delle query
End Sub
**********************
Fino a qualche giorno fa, nessun problema, anche in una precedente copia
nessun problema.
Lo stesso problema sussiste anche con i codice che crea access quando si
inserisce un pulsante di comando in autocomposizione, l'esecuzione si ferma
sempre sulla scritta msgbox.
Grazie ancora gianni
Newsgroup: it.comp.appl.access
Titolo: uso db in rete da parte di più utenti contemporaneamente

ho un database formato da un back-end e 2 front-end di cui uno di sola
lettura ed uno di lettura/scrittura
ho notato che se vengono aperti da più utenti le prestazioni si riducono di
molto ed in alcuni casi alcuni utenti sono inibiti ad entrare...
come faccio ad evitare ciò? mi conviene installare il front-end macchina x
macchina e collegarlo al back-end in rete?
grazie per l'attenzione
Nicola 

 molto ed in alcuni casi alcuni utenti sono inibiti ad entrare...
ma il PC server su cui risiede il DB (BE) che Windows ha?... nn  avrà mica 
XP?
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 


essì ha XP Home purtroppo, l'intenzione però è di spostarlo su un server con 
linux
Nicola 

 con linux
Nicò, XP ha il limite fisico di accesso per 5 utenti max. contemporaneam. 
per cui il problema del rallentamento e dell'inibizione sta proprio nel S.O. 
usato.
;-)


 --
Si ma lui ne usa 2.
Cmq xp home sono 5, xp pro ne sono 10
In ogni caso ci sono in commercio soluzioni NAS di rete che fanno quello che 
serve senza contare il numero degli accessi
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


www.accessgroup.it



ho lasciato il BE sul disco usb dove risiedeva e ho provveduto a copiare il 
FE sola lettura sulle 3 macchine che lo devono utilizzare ed ho lasciato il 
FE lettura/scrittura insieme al BE... il limite di accessi si è alzato a 3 
contemporaneamente ma rimane comunque lento da morire (almeno per gli utenti 
che accedono per ultimi)...
Gli utenti che utilizzano il DB sono massimo 4 e mai di più...
Nicola
Newsgroup: it.comp.appl.access
Titolo: Cambiare origine tabella collegata

Ciao a tutti.
Ho un database FE collegato con un BE.
Nel BE ho 2 tabelle uguali come struttura che si chiamano Dati1 e Dati2.
Nel FE ho il collegamento con la Dati1. Il nome del collegamento è DATI.
È possibile, da codice Vba, creare un istruzione che modifichi l'origine del collegamento di DATI da Dati1 a Dati2, e viceversa, da cambiare al bisogno?
Grazie
Stefano


puoi cancellare il link e rifarlo
esempio cosi:
 
 
Dim db As Database
Dim tdf As TableDef
Dim tuaTabellaCollegata As String
tuaTabellaCollegata = "dati"
 
Dim percorsoDB As String
percorsoDB = "c:\......mdb"  '<-qui metti il percorso del BE
 
Dim tabellaDaLinkare As String
tabellaDaLinkare = "dati1"    '<-nome tabella del BE da linkare
 
Set db = CurrentDb()
Set tdf = db.TableDefs(tuaTabellaCollegata)
db.TableDefs.Delete tuaTabellaCollegata
 
 
DoCmd.TransferDatabase acLink, "Microsoft Access", percorsoDB, acTable, 
tabellaDaLinkare, "dati"
 
 
 
puoi farti una funzione e passare come parametro il valore di
tabellaDaLinkare
 
BFS
 


Grazie mille

Newsgroup: it.comp.appl.access
Titolo: Inserimento dati in VBA

Vediamo, io voglio creare in VBA di Access un foglio dati in
automatico ,in cui le variabili
                    A1$= 10     A2$=Animale    A3$=Studio 10
           vengano inserite rispettivamente nei campi
                    Campo1   variabile A1$
                    Campo2   variabile A2$
                    Campo3   variabile A3$
    Garzie

 ha scritto nel messaggio 
news:4687b16a$0$17946$4faf...@reader1.news.tin.it...

Ciao locomotiva,
(da motore a locomotiva...  passi da gigante :-)
se ci spiegassi anche il contesto in cui vuoi fare certe cose magari 
riusciremmo anche a darti soluzioni alternative a quelle da te 
pensate...
comunque posta la domanda in questi termini vediamo di rispondere...
Un foglio dati in Access non è nient'altro che una Tabella per cui 
prima cosa da chiarire la tabella in cui vuoi mettere queste variabili 
esiste già o devi crearla?
Se esiste già non fai nient'altro che fare una Insert nella tua 
tabella in questo modo:
CurrentDB.Execute "INSERT INTO TuaTabella VALUES(" & A1$  & ", " & 
A2$ & ", " & A3$ & ")"
Se invece la tabella non esiste e devi crearla:
CurrentDB.Execute "SELECT " & $A1 & " AS Espr1, " & $A2 & " AS Espr2, 
" & $A3 & " AS Espr3 INTO TuaTabella"
e Per aprire il foglio dati:
DoCmd.OpenTable "tuaTabella"
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
----------------------------------------> 

 ha scritto nel messaggio 
news:4687fa4f$0$16026$5fc...@news.tiscali.it...


Newsgroup: it.comp.appl.access
Titolo: [Semi OT]

Chi mi consiglia un buon testo per imparare decentemente VB?
Grassie...

 Grassie...
http://www.sitocomune.com/
 Sezione Libri.
La maggior parte è per la versione '97, trovare il corrispettivo titolo 
aggiornato non dovrebbe essere un problema.
Chiaramente parlano di VB[A] (Visual Basic for Application) non VB, che 
anche se simili come codice, in access ci sono oggetti dedicati al compito 
principe (database)...
Ciao.
-- 
Sergio MAZZA