mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Apertura maschera con campi bianchi

Ciao a tutti,
ho delle maschere che all'apertura mi mostrano il primo record che è 
stato immesso.
come si fa, aprendo una maschera, a far si che questa presenti i campi 
vuoti per effettuare una ricerca?
Spero di essert stato chiaro.
Grazie
Alfonso

 ha scritto nel messaggio
news:45b5f3f6$0$16393$4faf...@reader4.news.tin.it...

vedi i parametri di apertura della openform.
mi pare sia acnewrecord
Antonio

Newsgroup: it.comp.appl.access
Titolo: somme parziali in report (2)

 
Provo a rifare la domanda.......magari sono fortunato (nn vedo + il mio post
precedente).
Avevo un problema e Mazza mi ha aiutato suggerendomi l'IIf.....
Ora vorrei sommare il fatturato in base a determinali articoli:
es. somma della quantità e importo degli articoli 5,6,8,11,15,20.....
e riga sotto somma uguale degli articoli 1,3,10,12,14,25,30.........
gli articoli non cambiano, sono fissi.
come posso fare?
grazie
montanaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Io farei un raggruppamento per articolo e nelle sezioni esegui le somme parziali...
Ciao.
-- 
Sergio MAZZA 


          Ok scusatemi vi conosco ancora poco.
Ringrazio e vado subito a confessarmi!


Newsgroup: it.comp.appl.access
Titolo: stamap biglietto

Caio!
Grazie a ki ha risp al post precedente cmq...
Ho creato un documento di stamp aunione word linkato a un pulsante in
maschera access.
in teoria dovrei stampare un biglietto personalizzato con i dati del record
corrente, in pratica si apre word e si impalla ossia stampa sempre l'ultimo
record del database.
inoltre se aggiorno il database in access il documento stampa unione word nn
viene aggiornato.
come fare?

 ha scritto nel
messaggio
news:cbbql8$4hq$1...@newsreader.mailgate.org...

Senza la routine mi dici come facciamo??
MAssimiliano

Ecco il pulsante di comando
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
'apro il documento
oApp.Application.Documents.Open "c:\stampabigliettounione"
'se voglio vedere word
oApp.Visible = True
'la prossima riga stampa tutte le pagine
'oApp.ActiveDocument.PrintOut
'chiudo word
'oApp.Quit
Set oApp = Nothing
Ma secondo me sbaglio a fare stampa unione da word ed a legare i 2
documenti: la routine apre word e basta.
insomma nn passo il numero di record che dovrebbe dire a word cosa stampare

 ha scritto nel messaggio
news:cbduo1$lfo$1...@newsreader.mailgate.org...

Con quel codice non fai la stampa unione ma apri un documento e lo stampi, e
basta.
Per fare la stampa unione devi inserire le istruzioni:
...
'se voglio vedere word
oApp.Visible = True
With oApp.ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument '<-- crea un nuovo documento
    .Execute '<-- esegue la stampa unione
End With
...
Se vuoi  stampare (con stampa unione) il record visualizzato sulla maschera
ti consiglio di crearti una query che contiene il riferimento alla casella
di testo (della form aperta) (es. IDRecord) nei criteri.
Il documento word lo associ alla query non alla tabella...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Risposta definitiva

Ciao, vorrei sapere, avendo prelevato i sorgenti dal sito comune, se è
impossibile collegare un database BE a casa con il database FE sul server
web del proprio spazio e se, quindi, tali codici vba funzionino solo in
ambito lan con percorsi di rete tipo unc. Grazie a tutti.
Stefano
--------------------------------
Inviato via 
http://usenet.libero.it

 ambito lan con percorsi di rete tipo unc. Grazie a tutti.
Sul sito comune credo sia spiegato, comunque non e' opportuno farlo in
quanto access, se usato con jet (impostazione predefinita) lavora accedendo
direttamente al file.
Ora, ammesso e non concesso che tu abbia un accesso di rete a un server
remoto (cosa che non si verifica con i server web) il traffico di rete
sarebbe tale da far decadere eccessivamente le prestazioni.
Conviene utilizzare un server database cui collegarsi.
Sib

 Sib
Allora l'unico sistema potrebbe essere quello (anche se scomodo) di
scaricare il db via ftp...


Newsgroup: it.comp.appl.access
Titolo: Gestione Tabelle Collegate

Salve a tutti,
qualcuno puo consigliarmi su come gestire a livello utente le tabelle 
collegate ?
Mi spiego meglio: vorrei dare la possibilita all'untente di scegliere una 
base dati
piuttosto che un'altra, e' possibile con Access ? Quali chiamate di sitema 
devo utilizzare?
Grazie! 

 ha scritto nel messaggio 
news:43a43269$0$13255$4faf...@reader2.news.tin.it...

Sul Sito Comune è pieno di roba
Cercati "Allegare tabelle all'avio"
Vai anche sul Sito di Ale Baraldi
Ciao
Morgan 

 wrote in message
news:43a43269$0$13255$
4faf...@reader2.news.tin.it

Vedi sul SC come Switchare i BE.
La cosa è decisamente semplice, a patto che i BE siano strutturati
nello stesso modo.
Se fai una ricerca nei post precedenti ne trovi uno nel quale
ho dato diverse indicazioni per come poter valutare la cosa.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Refresh schede in form

Ciao,
ho una maschera con un controllo struttura a schede.
Una delle schede è formazioni, in cui è inserito il form legato alla 
tabella formazioni.
Nel caso in cui non vi dovessero essere le formazioni, vengono aggiunte 
in automatico tramite il seguente codice inserito nel form principale, 
sull'evento su corrente:
 
 
If Me.ind_sede = "U" Then
     nformazioni = 5
Else
     nformazioni = 6
End If
 
For a = 1 To nformazioni
     controllo = Nz(DCount("[id_formazione]", "formazioni", 
"[cod_anagra_sede] = '" & Me.cod_anagra_sede & "' and [ind_sede] = '" & 
Me.ind_sede & "' and [cdn_sede] = " & Me.cdn_sede & " and 
[id_formazione] = " & a), 0)
     StrSql = "INSERT INTO formazioni ( cod_anagra_sede, ind_sede, 
cdn_sede, id_formazione ) " & _
              "SELECT '" & Me.cod_anagra_sede & "' AS cod_anagra, '" & 
Me.ind_sede & "' AS ind_sede, " & Me.cdn_sede & " AS cdn_sede, " & a & " 
AS formazione;"
     If controllo < 1 Then
         DoCmd.RunSQL StrSql
     End If
Next a
 
Fin qui, funziona tutto correttamente. Il problema è quando mi sposto 
sulla scheda formazioni.
Se vado direttamente, non vedo le formazioni. Le vedo soltanto se chiudo 
il form e lo riapro.
Ho provato ad aggiungere un me.requery o un me.repaint o un me.refresh 
dopo aver inserito i record delle formazioni.
Ho provato anche ad aggiornare la singola scheda con 
formazioni.form.requery, ma non è cambiato nulla.
Come posso fare ad aggiornare la scheda?
 
Vi ringrazio anticipatamente.
 
Saluti.
 
Stefano


A cosa serve quella variabile [a] nel criterio [[id_formazione] = " & a]...?
E' parte del ciclo... una volta che entri è impossibile sia Replicata, quel controllo è assolutamente INUTILE.
 
Mi pare tu legga se ci sono già dei RECORDS... e se <1 allora inserisci...!
Ma anche ammettendo che al 1° giro non ci siano... al 2° ci dovrebbero essere, solo che mi sfugge il senso...
 
Allora, i Record nella Form[Informazioni] si controllano così:
 
NRec=Me!FormInformazioni.Form.RecordsetClone.RecordCount
 
A quel punto per inserie 5 o 6 Records... io farei così:
 
If NRec=Me!FormInformazioni.Form.RecordsetClone.RecordCount<0 Then
   For a=1 to 6
      With Me!FormInformazioni.Form.Recordset
         .AddNew
         .Fields("cod_Anagra_sede").Value=Me!cod_anagra_sede
         .Fields("....".Value=Me!.....
         .Update
      End With
   Next
End If
 
Me!NomeFormInformazioni.Form.Requery
 
Saluti.
 
@Alex

 If NRec=Me!FormInformazioni.Form.RecordsetClone.RecordCount<0 Then
 
va modificato così:
 
If Me!FormInformazioni.Form.RecordsetClone.RecordCount<0 Then
 
@Alex


Scusa se non ho risposto prima, ma sono stato impossibilitato.
 
Grazie per la risposta.
Domani proverò sicuramente.
 
Ciao
Newsgroup: it.comp.appl.access
Titolo: report in base ad una selezione

ciao a tutti....
ho varie tabelle, ed una maschera. Ho creato un report, vorrei pero fare in modo che dal pulsante che ho inserito nella maschera si possa stampare il report con i solo record filtrati secondo un criterio (es. il mese, oppure un cognome).
Come posso fare?

 ha scritto nel messaggio 
news:25a73d56-622a-4af9...@googlegroups.com...

Fai 2 report uno A e B
In funzione del criterio apri report A o B
 
Ciao
Graziano 
 
 

After serious thinking Wiking Derek wrote :

Ci sono diversi modi per farlo, a seconda di come hai attivato il 
filtro.
Hai filtrato attraverso una query?
Hai filtrato con istruzioni VBA?
 
Si puï¿œ fare anche come suggerisce Graziano...
 
Bruno
 
 


credo che il modo piu semplice (dato che non sono un esperto di access) è di filtrare il campo sul report, cosi vengono stampati solo quelli selezionati
Newsgroup: it.comp.appl.access
Titolo: Campo Univoco

Prima di tutto un CIAOOOOOOOOOOOO a tutti,
ho un grosso problema con un campo si/no (spunta) che mi fa impazzire. Mi
spiego meglio....
Ho un gestionale "ACQUISTI" composto dalla form [prodottoacquistato] con
sottomaschera [dettagliprodotto] in visualizzazione foglio dati.
Nella maschera [prodottoacquistato] ci sono i campi [descrizione],
[nomecommerciale], [fornitore], etc etc..
Nella sottomaschera [dettagliprodotto] ci sono i seguenti campi
[unitamisura],[prezzo] [offerta]...etc etc e in fine il malefico campo
spunta si/no [utilizzabile].
Qualcuno mi potrebbe scrivere 2 righe per fare in modo che in presenza di
parecchi dettagli la sottomaschera [dettagliprodotto]  accetti una sola
spunta sul campo [utilizzabile]?...per intenderci......se inserisco un nuovo
prezzo e spunto il campo utilizzabile, automaticamente deve essere rimossa
la spunta sul dettaglio precedente.....in sostanza, NON posso esistere due
dettagli utilizzabili!.
Grazie 1K
Gianni

Gianni ha scritto:

Ma non ti aveva già risposto Roberto ieri?
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:4hRkd.29211$Es2.6...@twister2.libero.it...

Su click lanci una query di aggiornamento settando a 0 tutti i valori
esclusi l'id che ti serve.
MAssimilaino

Newsgroup: it.comp.appl.access
Titolo: arrotondamento ora successiva....

Salve,
ho la necessità di arrotondare degli orari in base a questi criteri:
se i minuti sono superiori a 15, arrotondare alla ora successiva....
mentre se il ritardo e' inferiore a 15 minuti, arrotondare alla ora
precedente.....
Es.:  h 21.23 arrotondare a 22.00
Es.. h  21.14 arrotondare a 21.00
mi indicate come fare ?
Grazie e buon proseguimento

 ha scritto nel messaggio
news:4rcG9.13807$fa.4...@news1.tin.it...

Se il controllo contenete l'orario si chiama Orario e quello nel quale vuoi
il risultato cercato si chiama OrarioArrotondato:
If Minute(Me!Orario) <= 15 Then
Me!OrarioArrotondato = Format(TimeSerial(Hour(Me!Orario), _
0, 0), "hh:nn")
Else
Me!OrarioArrotondato = Format(TimeSerial(Hour(Me!Orario) _
+ 1, 0, 0), "hh:nn")
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Data nulla

In un controllo che contiene testo o una data, posso utilizzare la 
costante Null per verificare se il relativo contenuto è vuoto?
Grazie e ciao.
-- 
E l'amore
Che vita differente avrei avuto se non avessi trovato questo amore con 
te.


wrote:

No, la costante Null si usa per assegnare...
Per controllare o valutare un dato si usa IsNull(Me!NomeControllo)...
Trattandosi di Data converrebbe usare anche IsDate(Me!
nomeControllo)...
@Alex
Newsgroup: it.comp.appl.access
Titolo: EVENTO DOPO AGGIORNAMENTO! PROBLEMA?

CIAO A TUTTI,
USO UNA MACRO CON LA FUNZIONE "ApplicaFiltro" SU EVENTO DOPO AGGIORNAMENTO
DELLA CASELLA DI TESTO.
SUL MIO PC TUTTO FUNZIONA CORRETTAMENTE.
SUI PC DEI MIEI COLLEGHI VIENE ESEGUITA SOLO AL PRIMO AGGIORNAMENTO E NOI AI
SUCCESSIVI.
QUINDI BISOGNA CHIUDERE E APRIRE LA MASCHERA.
DA COSA PUO' DIPENDERE?
GRAZIE
ROBERTO

 CIAO A TUTTI,
Mi (CI) hai assordito!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: Aprire Excel con un file esportato in txt

Salve a tutti,
mi piacerebbe sapere se è possibili aprire un file excel con una estensione
diversa dal xls xlt ad es. txt.
Per aprire in formato excel non ho problemi utilizzo questa funzione:
Function OpenFileExport(AcFile As String)
Dim objXLApp As Excel.Application
    Dim objXLBook As Excel.Workbook
    Set objXLBook = GetObject(AcFile)
    Set objXLApp = objXLBook.Parent
    objXLApp.Visible = True
    objXLBook.Windows(1).Visible = True
End Function
Ma se cerco di aprire il formato con l'estensione diversa da excel mi viene
generato un errore anche se rinominando(essendo un file delimitato con tab)
il file excel si apre normalmente.
Sapete dirmi se c'è la possibilità onde evitare di rinominare il file prima
dell' apertura?
Buon lavoro.
Mak
--
Access 2000 SR1

 End Function
[...]
Public Function ApriTxtConExcel()
  Dim oXlWbk  As Excel.Workbook
  Dim oXlApp  As Excel.Application
  Set oXlApp = New Excel.Application
  Set oXlWbk = oXlApp.Workbooks.Open("c:\testi\testo.txt")
  oXlApp.Visible = True
  Set oXlWbk = Nothing
  Set oXlApp = Nothing
End Function
    Consulta la guida a proposito del metodo Open di cui sopra.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


Grazie per l' interessamento, a buon rendere.
Mak

Si può anche utilizzare la funzione shell tipo:
Shell "C:\Programmi\Microsoft Office\Office10\EXCEL.EXE " &
"C:\windows\desktop\file.txt"
--
Access 2000 SR1
Newsgroup: it.comp.appl.access
Titolo: estrazione dati da due tabelle

Salve a tutti,
credo di essermi bloccato su una cosa banalissima ma proprio non riesco a 
risolvere. Questa è la situazione: ho due tabelle senza nessuna relazione.
TAB1 contiene due campi: nome e codice.
TAB2 contiene molti campi e uno di questi contiene uno di quei codici che si 
trova nell'altra tabella.
Ora vorrei che in una query ci fosse anche il campo della TAB1 che contiene 
il nome del codice contenuto nel campo della TAB2. Ho fatto un milione di 
prove ma ogni volta sempre strane cose...
Si può fare quello che descritto?
Ciao e grazie,
Luigi 

 ha scritto nel messaggio 
news:MBe9e.73958$zZ1.2...@twister1.libero.it...

Ciao,
si che puoi...dopo aver creato una relazione fra TAB1 e TAB2 (uno a molti - 
uno a uno ...a seconda della logica di base...vedi l'help...) per quanto 
concerne il campo codice giacchè viene ripetuto nelle 2 tabelle o ne puoi 
definire 1 nuova di relazione...
La definizione di database relazionale risiede proprio in questo ->tanto 
vale che utilizzi Excel o altri software per creare semplici archivi "non 
correlati"
Ti consiglio di dare 1 occhiata al seguente sito 
http://www.donkarl.com/it/
 
ed in particolare al seguente argomento 1.31 Normalizzazione e teoria sui 
database
Notte
Gaspare
Newsgroup: it.comp.appl.access
Titolo: Sottomaschere in Access 97.

Un saluto a tutto il NG.
Ho il seguente quesito da porvi.
Devo progettare un database in cui alcune tabelle sono collegate alla
principale con una relazione 1 ( pricipale) a molti ( tabelle
secondarie).
Nella fattispecie considerata, dovrei fare in modo che, a seconda del
dato indicato nella maschera principale in un campo testo, costituito
da una casella di ricerca la cui fonte dati è rappresentata da un
elenco di valori, si apra una sottomaschera ad hoc per il tipo di dato
inserito.Ovvero, se nel campo considerato scelgo A, si apre una
sottomaschera che fa riferimento alla tabella A; se scelgo B, si apre
una sottomaschera che fa riferimento al campo B, e così via.
Nello specifico, essendo il database progettato per l'imputazione di
costi sostenuti da un ufficio, se come identificativo di costo dovessi
scegliere Manodopera, dovrebbe aprirsi una sottomaschera collegata
alla tabella Manodopera in cui sia in grado di dettagliare l'importo
della spesa sostenuta ( es: provvigioni; lav. dipendente;
amministratori,etc); se scegliessi Ammortamenti, si dovrebbe invee
aprire una sottomaschera in cui sia in grado di identificare
l'immobilizzazione cui imputare l'ammortamento.
Grazie in anticipo a chi vorrà darmi consigli :-)

 wrote in message
38d8fb8...@news.libero.it...

Preparati la maschera principale con già collocata una delle possibili
sottomaschere che chiameremo SottomascheraA e SottomascheraB, ad esempio la
SottomascheraA.
Supponiamo che il controllo testo della maschera principale al cambiare del
quale devi usare una sottomaschera divera si chiami PIPPO e che devi usare
la SorttomascheraA se PIPPO contiene il valore A e altrimenti la
SottomascheraB.
Nell'evento "Dopo Aggiornamento" del controllo PIPPO scrivi il seguente
codice:
If  Me![Pippo] = "A" Then
    Me![SottomascheraA].SourceObject  = "SottomascheraA"
Else
    Me![SottomascheraA].SourceObject  = "SottomascheraB"
End If
Naturalmente la struttura della If sarà fatta a If nidificate a seconda di
quanti sono i valori possibili, e quindi le sottomaschere, del controllo
PIPPO.
Il tutto è sufficiente se la chiave che lega la maschera principale alle
sottomaschere non cambia, in caso contrario dovrai scrivere, per ogni valore
di PIPPO anche:
    Me![SottomascheraA].LinkChildFields  = "IDxxx"
    Me![SottomascheraA].LinkMasterFields = "IDxxx"
Roberto

Preparati la maschera principale ...
Grazie per il tempestivo suggerimento. 


Niente, spero solo di essere stato chiaro
Roberto

Newsgroup: it.comp.appl.access
Titolo: [OT]... gente che soffre x noi !

Un saluto a tutti,
ho trovato un'immagine che parla da sola...a volte ci si rende conto di 
quanto si possa vivere nell'indifferenza mentre tantissime altre persone 
soffrono e si sacrificano x noi -> 
http://www.labarriera.it/new/
  ;-)
Buon proseguimento di giornata :-) 

 ha scritto nel messaggio 
news:4362218f$0$20496$4faf...@reader4.news.tin.it...

Concordo :)
Morgan 

[CUT]
;-)
Newsgroup: it.comp.appl.access
Titolo: Vincolare sottomaschera (2)

Seguendo il consiglio avuto da Karl Donaubauer, ho aggiunto questa riga 
di codice 
Me.Partecipanti.Visible =_ 
Me!Partecipanti.Form.RecordsetClone.RecordCount > 0
per vincolare la visualizzazione di una sottomaschera alla presenza di
record.
Funziona regolarmente ma di punto in bianco all'apertura della mashera
ritorna un errore di run time 2455, riferimento non valido nella proprietà
form/report nell'espressione, su descritta.
Da quel momento in poi non c'è verso di poter far girare quel codice.
Consigli?
Grazie e buona domenica
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
Nel codice di quale evento usi il codice?
Ti ho anche consigliato punto esclamativo invece del punto.
Non hai cambiato niente nel design dei oggetti?
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Valore combo

Scusate se non usero' la terminologia giusta.
Devo passare, come valore, la terza colonna di una combo. Visto che Access
riconosce di default il valore della prima colonna , come faccio a far
passare i valori della terza colonna?
Devo cambiare il valore della  Colonna Associata?

...

Solo se la colonna attualmente associata non la usi da qualche altra parte.
Altrimenti:
miocontrollo = miacombo.column(X)
dove X e' un numero da 0 a numcolonnecombo -1.
Occhio poi a non spostare l'ordine delle colonne!
Saluti.
Luciano

Nella query di una combo contenuta in una sottomaschera devo passare come
criterio il contenuto di una combo contenuta nella maschera principale.
Il tutto pero' mi funziona solamente se il valore che voglio passargli si
trova nella prima colonna della query che genera la combo della maschera
principale.
Siccome, per altri motivi,  il dato che voglio passare si trova in una
successiva colonna il tutto non mi funziona piu'.
Che cosa posso fare?
Ringrazio anticipatamente



Newsgroup: it.comp.appl.access
Titolo: Form continue - come selezionare righe cliccando col mouse e strisciando?

Capita spesso sia necessario selezionare diverse righe, su una form 
continua, per eseguire del codice solo su quei record
Ad esempio una form che visualizza degli ordini di un cliente, per 
prenderne 5 cliccando col mouse sulla prima riga richiesta (la 3 in 
gliglia) e strisciando giu' per 5 righe
Come ottenere questo risultato via codice vba?

Puoi solo effettuare una selezione continua... non discontinua... 
Puoi usare una Listbox in questo caso oppure un campo Boolean da associare a checkbox o interruttore per rilevare la selezione e poi resettarli...
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: formattare campi numerici dentro a una casella di riepilogo

Non ci riesco...
I numeri mi si allineano a sinistra e devo contare i caratteri uno a uno per
capire sono migliaia o milioni.
Uso A2000, il campo e' di tipo valuta, la casella di riepilogo e' generata
da una query e mostra due campi, banca e importo.
Se visualizzo la query e imposto le proprieta' per il capo, lo visualizza
corretto, ma le proprieta' non vengono salvate in sql...
grazie.

 ha scritto nel messaggio
news:9un607$2p9$1...@fe1.cs.interbusiness.it...

Prova a dare uno sguardo 5 thread più sotto
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

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

Ciao a tutti,
vorrei un consiglio. Dovendo sviluppare un'applicazione in access sono 
indeciso sul tipo di menu/interfaccia da utilizzare. Avete esempi da 
suggerirmi o tools specifici da consigliare?
C 

 wrote in message
news:MIb0e.16917$
kC3....@tornado.fastwebnet.it

Per i Menů....?
Intendi Menů sull'applicativo o nelle Form...?
Access dispone di un'interfaccia di costruzionie Menů
tra le piů semplici e complete.
Cos'altro potrebbe servirti...?
Ciao
@ALex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: formattazione condizionale su A2000

Ho scoperto ( e ne sfruisco a piene mani)  la formattazione condizionale,
sfruttando le varie condizioni (max 3) e possibilità (il valore
è..,l'espressione è.., etc) sono riuscito anche a inserire espressioni molto
lunghe e quindi, in un certo senso, a "saltare" il muro delle 3
condizioni...
Vorrei poter condizionare l'aspetto delle caselle di testo semplicemente su
"se comincia con..." Come si fa?
Ho provato in tanti modi ( [nomecampo]= Carattereiniziale* etc etc, senza
successo.
Potete darmi una mano? Forse mi sto perdendo in un bicchier d'acqua...
Grazie!

 senza successo.
[nomecampo] Like "Carattereiniziale*"
-- 
HTH
Karl
*********
Access-FAQ 
http://www.donkarl.com/it

 ha scritto nel messaggio
news:2r5trmF...@uni-berlin.de...

Ok! non ci avevo pensato!
Grazie Karl !

 ha scritto nel messaggio
news:cikovl$ta4$1...@lacerta.tiscalinet.it...

Scusa ancora Karl, e se volessi evidenziare i campi che contengono 2 numeri
e una lettera? (per esempio 01A, oppure 16B) come posso fare?
In effetti fin chè si tratta di isolare con l'asterisco, prima o dopo, ho
capito, ma per isolare tutti i campi che hanno due numeri ( da 01 a 20
avanti a una lettera da A a H) ?
Grazie ancora del tuo aiuto e grazie agli ideatori e ai sostenitori di
questo newsgroup: siete tutti preziosissimi!
Un salutone a tutti Voi.

 ha scritto nel messaggio
news:cikpih$tlf$1...@lacerta.tiscalinet.it...

Chiedo scusa a tutti, mi sono accorto di avere la data sbagliata sul mio PC.
Inoltro di nuovo il presente con la data corretta.
Newsgroup: it.comp.appl.access
Titolo: Aggiornare tabella

Questo codice non mi funziona, mi da il seguente errore: Erroredi sintassi,
operatore mancante nella query b:
Public Sub importa()
a = InputBox("Inserisci il codice dell'appalto", "Carica dati esterni")
b = InputBox("Inserisci il tipo di carico", "Carica dati esterni")
DoCmd.TransferText acImportFixed, "letture effettuate", "carico", "C:\TMP\"
& a
If a = "dm4a0002.03b" Then
DoCmd.RunSQL "UPDATE carico SET carico.zona=""bracciano"",carico.carico= " &
b &  " WHERE carico.area LIKE ""*"" ;"
End If
If a = "dm4b0003.03b" Then
DoCmd.RunSQL "UPDATE carico SET carico.zona=""civitavecchia"",
carico.carico= " & b & " WHERE carico.area LIKE ""*"" and carico.zona IS
NULL ;"
End If
DoCmd.RunSQL "DELETE * FROM carico WHERE carico.[codice
utente]=""000000000"" or carico.area=""99999"";"
End Sub
Ciao
Fabio

 End If
Beh, ma tu mischi bracciano con civitavecchia scusa, anche access si
indigna: vuoi mettere l'infido lago con il profondo mare?
Comunque, guarda cosa tu stesso scrivi:
UPDATE carico SET carico.zona=""bracciano"",carico.carico= " & b &
Ora, perchè il confronto della zona di bracciano la fai giustamente mettendo
i doppi apici intorno a bracciano e invece col valore di b, che è lo stesso
di tipo stringa non fai la stessa cosa?
Deve essere
...,carico.carico=""" & b & """ ....
Antonio

 mi mette la stringa "& b &" nel campo carico.carico
No no no, conta bene i doppi apici che ho scritto. Ok, mancava quello
iniziale.
"..., carico.carico=""" <--- 3 doppi apici  & b & """  <--- altri 3 doppi
apici ....
Antonio

 ha scritto nel messaggio
news:da0u6.3294$bw6.2...@news.infostrada.it...

Hai ragione sei un drago, mi hai risolto il problema. Se non ci foste Voi
come farei?
Grazie di nuovo
Fabio
Newsgroup: it.comp.appl.access
Titolo: mail & access

Ciao al NG,
Come faccio con vba a far scaricare la mail ad access dalla mia casella
postale e poi importare il file allegato nella mail in automatico ?
Sto forse chiedendo la luna ?
Grazie a tutti

 wrote in message 38E9DE95...@libero.it...

Ci sono una infinità di modi, il limite è dato solo dalla tua "perizia"
tecnica; certo che se pretendi di risolvere il tutto con una macro parti già
col piede sbagliato.
Se ti parlo di automazione OLE di Outlook97 e/o di utilizzo da VBA
di oggetti ActiveX appositi ti senti spaventato o stimolato?
Bye, Ste

Si. Ci sto lavorando da un po' di tempo...


 di oggetti ActiveX appositi ti senti spaventato o stimolato?
eh eh stavolta lo chiedi prima, così non corri il rischio che, come quello
dell'altra volta, si offenda pure...
[Totò mode on]
ActiveX sarà lei, ha capito?
E si automatizzi!
[Totò mode on]
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


ROTFL!!!
Però non hai correttamente chiuso la sezione [Totò mode]..., voglio vedere
cosa dici nel prossimo post se non ti fai prima un bel debug....
Bye, Ste



 cosa dici nel prossimo post se non ti fai prima un bel debug....
azz... il copia e incolla veloce. Comunque non ho avuto problemi, dopo un
po' è andato in time-out ed e tornato da solo ai valori di default :-)


Newsgroup: it.comp.appl.access
Titolo: database e recordset

...salve a tutti, pongo il quesito...: devo lavorare su un recordset
filtrato da un insieme di dati e compiere un ciclo di operazioni, quindi
procedo con:
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("y")
rs.MoveFirst
Do Until rs.EOF...etc etc
"y" è una tabella che viene creata tramite Sql e che contiene i famosi dati
sui quali devo lavorare.
All'atto di aprirlo mi scontro con un bel..."Tipo non corrispondente..!
Qualcuno sa aiutarmi sul motivo dell'errore ?
Ho letto l'help relativo ma non mi pare di rientrare in nessuno di quei
casi.
Grazie anticipatamente
Frankkk

 ha scritto nel messaggio
news:IoUw7.516$YC3....@news1.tin.it...


Usi A97 o A2000?
Se usi A97 e vuoi scrivere di meno prova con:
Dim rs As Recordset
Set rs = CurrentDB.OpenRecordset("y")
rs.MoveFirst
Do Until rs.EOF...etc etc
Se invece usi A2000, si dice (io non lo uso) che devi inserire nel tuo
database i riferimenti alle librerie DAO prima dei riferimenti alle librerie
ADO e scrivere:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDB
Set rs = db.OpenRecordset("y")
rs.MoveFirst
Do Until rs.EOF...etc etc
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: windows XP e condivisione

Ciao a tutti,
ho creato un agenda in access (creata con access 2000) che condivido su un
disco di rete.
Alcuni computer hanno come sistema operativo windows xp altri windows 2000.
Ho un problema con la condivisione del file:
Su i pc con windows 2000 il file può essere condiviso, quindi aperto da più
persone, mentre su i pc con XP, quando il file è aperto (per esempio da un
utente XP) non ti permette di aprirlo.
Cliccando 2 volte sull'icona non si lancia.
L'unico modo di aprire il file(quindi condividerlo) quando un utente xp l'ha
già in uso è di lanciare access vuoto e fare file->apri selezionando il file
in questo modo può essere aperto da più utenti.
Se provo a convertire il file access in access XP, il sistema mi comunica
che non sarà + possibile condividerlo con chi ha windows 2000.
Come posso fare?
Grazie a tutti
Luca
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio 
news:82Z54Z140Z228Y...@usenet.libero.it...

Separa il database creando un BE ed un FE.
Il FE puoi installarlo su ciascun PC, mentre il BE lo installi sul disco di 
rete.
Ciao
Salvatore 

 ha scritto nel messaggio
news:42d8f3a4$0$331$5fc...@news.tiscali.it...


 Inviato via 
http://arianna.libero.it/usenet/
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Eliminazione, che complicazione...

Vorrei eliminare un record da VB.
Mi pare che sia meglio ignorare gli eventi "Prima di conferma eliminazione"
e "Dopo conferma eliminazione"
visto quel che segue
"Nota   Deselezionando la casella di controllo Modifiche record nell'area
Conferma nella scheda Modifica/Trova della finestra di dialogo Opzioni,
disponibile scegliendo Opzioni dal menu Strumenti, ** non si verificano gli
eventi PrimaDiConfermaEliminazione e DopoConfermaEliminazione e la finestra
di dialogo Conferma eliminazione non viene visualizzata **."
Del resto l'evento "Su eliminazione" mi pare sufficiente a gestire
l'eliminazione di un record (o no?).
Quindi se nell'evento "Su eliminazione" scrivo
    If MsgBox("Vuoi eliminare il record?", vbYesNo, "Conferma eliminazione
record") = vbYes Then
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acDelete, , acMenuVer70
    Else
        Cancel = True
    End If
come faccio a evitare il successivo messaggio di conferma che dipende dalle
impostazioni generali di Access e che non vorrei modificare?
Grazie.

 ha scritto nel messaggio
news:6iRc9.141775$n04.3...@twister2.libero.it...

metti setworning false
by
stwe
Newsgroup: it.comp.appl.access
Titolo: Errore dopo divisione database

In A97 dopo aver effettuato l'operazione di "Divisione database" il metodo
OpenRecordset con l'attributo dbOpenTable dà luogo ad un errore "Invalid
operation" sulle tabelle allegate. Usando dbOpenDynaset funziona ma non si
può più usare il metodo Seek.
Il database non è protetto ed ho controllato proprietà ed attributi degli
oggetti che non dovrebbero dare problemi.
Qualcuno sà dove potrebbe celarsi l'arcano? Forse la tabella allegata non
può essere aperta da codice come recordset di tipo tabella? Io non ho
trovato nulla del genere segnalato nella guida in linea.
Grazie e saluti a tutti!

 ha scritto nel messaggio
news:437370ab$0$8493$5fc...@news.tiscali.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Tables leggi la FAQ di
Valerio Bussi intitolata "1.15 Utilizzare il metodo seek con una tabella
collegata (be)".
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio
news:EGMcf.31984$65.9...@twister1.libero.it...


Newsgroup: it.comp.appl.access
Titolo: Gestione concorrenza con Access97

Salve a tutti.
Cosa succede se due utenti scrivono contemporaneamente in un database
condiviso su una rete locale??
Ciao e grazie.
Simone.
--
Posted from 
alcide.csr.unibo.it
 [137.204.72.20]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message 388C1814...@tin.it...


Newsgroup: it.comp.appl.access
Titolo: Access2000 e SPSS10Ita

Salve a tutti
Come da oggetto avrei una richiesta circa l'uso dei due sw.
Spiego meglio: devo creare una maschera di inserimento dati con Access
e poi elaborare i dati con SPSS.
Mi servirebbero dei suggerimenti sulla preparazione della maschera in
modo che importando il file in Spss mi salvi le etichette delle
variabili per non doverle riscriverle unaXuna (i dati sono molti!).
Ringrazio in anticipo chi mi potrà dare una mano.
--
Juan

 ha scritto nel messaggio
news:3ff17f4b.02073...@posting.google.com...

Dai un'ochiata a partire da: 
http://www.spss.com
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: C'è modo di far emettere al pc un suono di frequenza determinata?

Con Access, naturalmente :-)
Grazie a tutti
Riccardo Baldinotti.


Dai, qualche esperto di api, mosche, calabroni... ;-)


copio incollo da google
Public Declare Function MyBeep Lib "kernel32" Alias "Beep" _
     (ByVal dwFreq As Long, _
      ByVal dwDuration As Long) As Long
 
Sub PlaySound() ' plays tone with specified frequency and duration
     MyBeep 880, 500
End Sub
 
Sub Demo() ' runs the built-in Beep
     Beep
End Sub
 
 
 
fonte
http://answers.microsoft.com/en-us/office/forum/office_2007-excel/creating-a-vba-macro-to-play-frequency-and/c4aee4c8-a3f5-4f62-87b5-f4ada6f2a897
 
 
 
ciao
BFS

Il giorno lunedì 18 maggio 2015 17:57:07 UTC+2, BFS ha scritto:

L'ho sempre detto che gli insetti sono preziosi, in particolare le API...
 
Grazie per il suggerimento, io avevo cercato ma senza esito.
 
Riccardo Baldinotti

Il giorno lunedì 18 maggio 2015 17:57:07 UTC+2, BFS ha scritto:

Sei un maestro. Questo post me lo devo memorizzare.

Newsgroup: it.comp.appl.access
Titolo: aiutino per dilettante!

Scusa forse la banalità della cosa....
Devo creare un piccolo database per la gestione dei catechisti della mia
parrocchia (circa 60 persone)
Ho creato una tabella e ho inserito i dati attraverso una maschera.
I dati sono: id, nome, cognome, indirizzo, città, tel casa, cellulare,
e-mail, gruppo di appartenenza.
Mi sono intoppato nelle query, ovvero, come devo impostare il discorso per
fare delle interrogazioni, ad esempio sapere tutti i catechisti di un dato
gruppo ?
grazie a chi vorrà aiutarmi....
ciao

 ha scritto nel messaggio
news:7sh6d.9793$75.4...@news3.tin.it...

Ciao Daewoo,
in questo NG c'è una regola per cui si risponde solo in presenza di un
oggetto significativo che so " Come impostare i criteri di una query "
Tutto questo non per essere "formali" ma per
1)Consentire a chi risponde di capire dall'oggetto se sa rispondere e quindi
andare a vedere anche il messaggio oppure se l'argomento non è di sua
competenza.
2)Favorire chi cerca una risposta nel capire se un post può essere utile per
il suo problema oppure no
Se ti interessa su 
www.sitocomune.com
 è presente un documento contenente le
regole da seguire sul NG.
Per cui se riposti il messaggio modificando l'oggetto sicuramente qualcuno
ti risponderà.
Ciao
Cinzia

 wrote in message
news:cjccfh$ooj$1...@lacerta.tiscalinet.it...



Oltre a quello che ti ha suggerito Cinzia, io ti consiglio anche di andare sul sito comune (
www.sitocomune.com
) dove trovi (non
solo) le regole di questo NG...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: riconoscimento vocale

Ciao a tutti, vorrei un piccolo aiuto da voi, chi mi puņ dire se esiste
un programma tipo dragon naturally speak x access, ho un data base con
molta anagrafica e questo mi risolverebbe un casino di lavoro, per
l'iserimento dei dati.
grazie anticipatamente x una vostra risposta


Alcuni anni fa, con Access 2, avevo già implementato questa possibilità con
Dragon Dictate; oggi non sono aggiornato, perché non mi è + capito qualcosa
del genere, ma, dato che difficilmente si torna indietro, credo che sia
possibile anche oggi: forse dovresti solo informati su quale sia la versione
che ti necessita.
Ciao
Silvio

,

Sent via Deja.com 
http://www.deja.com/
Before you buy.

Grazie x le risposte siete come sempre molto utili ciao a tutti


Newsgroup: it.comp.appl.access
Titolo: importare dati da file senza estensione???? come????

ho un sacco di file piccolissimi con il prefisso MP1111 , MP1112, MO1113
ecc. (senza estensione!!!)
vorrei importarli in automatico in una o + tabelle di access mantenendo il
loro nome file MP.... per riconoscerli....
che procedura posso utilizzare?
si riesce a fare una macro?
--
(se non ti dispiace, rispondi
anche con e.mail)
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca

 Luca
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Arrotondamento Euro su query in Access97

Ho creato una espressione in una query (costo unitario Euro x quantità:
2,79 x 30) Risultato 83,67 anzichè 83,70 (Euro).
Come faccio ad arrotondare il risultato con i criteri di arrotondamento
stabiliti?
Grazie anticipatamente
Buon lavoro a tutti!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Vai sul sito comune (
www.sitocomune.it
), in "Generals" trovi una funzione
creata da Karl che serve al caso tuo.
Ciao,
Alfio
P.S.: se dai una lettura ai messaggi postati, prima di chiedere,  noti che
il tuo problema è stato già affrontato e risolto.


Scusami, l'indirizzo è 
www.sitocomune.com
Ciao

 stabiliti?
Il tuo, come ti dicevo, non e' un problema di arrotondamento del totale, me
di prezzo unitario.
Sib

 ha scritto nel messaggio
news:heN98.53628$5M4.1...@twister2.libero.it...

prova in questa maniera
"=CLng([TuoCampounita]*[TuoCampoprezzo]*100)/100" =risultato con due
decimali
"=CLng(([TuoCampoImponibile]*[TuoCampoIva]/100)*100)/100
da inserire anche nella query si selezione collegata al report oppure
direttamente
in un campo del report
metodo molto casalingo ma efficace
Saluti psq
Newsgroup: it.comp.appl.access
Titolo: Compattare e copiare un DB access

Buongiorno a tutti.
Nonostante la "caldaccia", qualcuno puo'
mostrami come si fa, eseguendo un VBA
all' interno di un certo DB access, compattare
un *altro* DB access e, una volta avvenuto il
compattamento, copiarlo su un certo percorso ?
Qual' e' (se esiste) il metodo piu' efficiente ed
affidabile per svolgere quelle due attivita' ?
Grazie.


Sub CompactDatabaseX()
   Dim TuoDbs As Database
   Set TuoDbs = OpenDatabase("C:\...TuaOrigine...\TuoDb.mdb")
   With TuoDbs
      Debug.Print .Name & ", version " & .Version
      Debug.Print "  CollatingOrder = " & .CollatingOrder
      .Close
   End With
   If Dir("C:\..TuaDestinazione..\TuoDb.mdb") <> "" Then Kill "C:
\..TuaDestinazione..\TuoDb.mdb"
   DBEngine.CompactDatabase "C:\...TuaOrigine...\TuoDb.mdb", "C:
\..TuaDestinazione..\TuoDb.mdb", dbLangKorean
   Set TuoDbs = OpenDatabase("C:\..TuaDestinazione..\TuoDb.mdb")
      Debug.Print .Name & ", version " & .Version
      Debug.Print "  CollatingOrder = " & .CollatingOrder
      .Close
   End With
End Sub


Se la tua versione segreta di Access č >=2002 vedi
<F1> CompactRepair
Nel codice di esempio c'č il parametro DestinationFile.
Se vuoi un altra copia del file puoi in piů usare
il commando FileCopy (vedi <F1>).
-- 
Ciao
Karl
*********
Access FAQ: 
http://www.donkarl.com/it
 

 il commando FileCopy (vedi <F1>).
Mi dispiace, non sapevo dipendesse dalla versione.
(anche se avrei dovuto immaginarlo ...)
Altrimenti l' avrei scritto.
Molte grazie a tutti.

 ...
In rispetto a "efficiente" si deve aggiungere che a partire
di A00 il metodo CompactDatabase solo compatta le
tabelle e query di JET/ACE, non più gli oggetti di Access.
Per questo con AX hanno aggiunto il metodo CompactRepair
che di nuovo compatta tutto. Per dettagli vedi:
http://www.trigeminal.com/usenet/usenet023.asp


Newsgroup: it.comp.appl.access
Titolo: Sconosciuto - Impossibile aprire

Non riesco più ad aprire le tabelle.
Doppio click su una tabella --> "Sconosciuto"
Doppio click su una query --> "Errore riservato (-5001); non ci sono
messaggi per questo errore."
Stessa cosa per tutti gli mdb e stessa cosa se vado a creare un nuovo mdb.
Ho già provato a disintallare e reinstallare tutto Office 2003.
Suggerimenti ?
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie.
Hai provato a ricompattarlo/ripristinarlo? Dopo aver fatto una copia, mi raccomando...
Ciao.
-- 
Sergio MAZZA 

 Hai provato a ricompattarlo/ripristinarlo? Dopo aver fatto una copia, mi
raccomando...
Mi succede con tutti gli mdb, anche quelli che cerco di creare.
Forse è un problema di librerie, ma si dovevano sistemare quando ho
reinstallato office.


 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Re: Allineare etichetta finestra.

 NEMO2K
I 2 sistemi sono simili, ma credo che il tuo problema sia
la sintassi.
Posta il tuo codice che lo si corregge, forse non hai ben chiara
la struttura Oggetti quindi potresti commettere imprecisioni
di sintassi.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Nick
Allora nella scheda "Formato" della mia maschera ho scritto "About" sotto
la prima voce, Etichetta. Sull'evento "Su apertura" della stessa maschera
ho scritto il codice seguente:
Private Sub Form_Open(Cancel As Integer)
Me.About.Left = (Me.InsideWidth - Me.About.Width) / 2
End Sub
Errore visualizzato:
"Errore di compilazione: Impossibile trovare il metodo o il membro dei
dati"
Ho provato, allora, con il codice originale di Alessandro:
Private Sub Form_Open(Cancel As Integer)
Me.LabelName.Left=(Me.InsideWidth-Me.LabelName.Width)/2
End Sub
ma il risultato non è cambiato; infine ho provato col codice di Nick:
Private Sub Form_Open(Cancel As Integer)
Dim Larghezza
Larghezza = Me.WindowWidth
Me.About.Width = Larghezza
End Sub
ma niente.
Grazie,
NEMO2K
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 @Alex.
Alessandro,
sei d'accordo con Nick o, in base al codice postato, ti viene in mente
qualche altra soluzione?


 NEMO2K
Certo.
Me.LabelName.Left=(Me.InsideWidth-Me.LabelName.Width)/2
Ciao
@Alex



ecco qual'è il problema!!!!
è l'etichetta della mashcera non un'eticheta normale!!!
io non so come si fa, il mio codice è per un'etichetta normale...
ora mi viene in mente questo codice:
 Private Sub Form_Open(Cancel As Integer)
Me.Caption = Space((Me.WindowWidth + Len(Me.Caption)) / 120) & Me.Caption
end sub
poi gioca sul valore da dividere, con i miei test è venuta all'incirca 120 , am vedi un po' tu
ciao
Nick 

 @Alex 
OK. Dal punto di vista efficienza concordo con te; invece sul lato
"cosmetico" credo che il titolo al centro sia sicuramente più bello da
vedere che quello allineato a sinistra.
Grazie lo stesso,


Newsgroup: it.comp.appl.access
Titolo: Aggiornamento Connessione

Ciao a Tutti e Grazie in Anticipo
Premetto: - Access 2000, Sql Server, run time Access -
Ho creato un Progetto adp che deve collegarsi a diversi database sql.
Trammite una maschera con una scelta multipla.
Quando lancio l'applicazione mi si apre la maschera dove scegliere il
database a cui collegarsi, scelto il database entra nella maschera
principale del programma.
Sulla Maschera Principale c'è un tasto "Ricconnetti" che mi richiama
il form di connessione, a questo punto se gli do un'altra base dati
deve cambiare la connessione.
Tutto Funziona benissimo sulla mia macchina con Access installato,
nel momento che lo distribuisco a un client che non ha access ma solo
il run time:
all'apertura del programma si connette, quando voglio riconnettere
l'applicazione ad un'altro database, si connette ma non mi aggiorna le
tabelle e quindi non funziona.
Come faccio a fare un refresh della connessione?
Spero di essere stato chiaro.
Ciao Ema

...

...

...

...
Newsgroup: it.comp.appl.access
Titolo: text

Mi sto esercitando per imparare come a scuola.
Creo una form a caso  inserisco una casella di testo che vado a chiamare 
text1 e un puslante comando che chiamo command1
Vado su propriet� del command e su evento click scrivo la seguente funzione
text1.text="salve"
Chiudo il tutto salvo apro la form e clicco sul command1  e mi dice errore 
di runtime 2185...
Dov'� che cano?


Questo che ti dice il messaggio di errore:
Diverso di VB in VBA non puoi usare la propriet� Text se il controllo
non ha lo stato attivo. (vedi anche <F1> quando il cursore si trova
nella parola "text")
Invece puoi usare:
Me!text1.Value = "salve"
o come Value � la propriet� standard:
Me!text1 = "salve"
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:7708v3F...@mid.individual.net...

Ok grande funziona. quindi vb6 � diverso dal visual basic per access?
E quindi cosa studio per imparare a fare cose concrete? 

 E quindi cosa studio per imparare a fare cose concrete?
VBA Language Reference
http://msdn.microsoft.com/en-us/library/bb190882(office.11).aspx
Newsgroup: it.comp.appl.access
Titolo: Access e tabelle Word: atteggiamento stranissimo

Ciao a tutto il NG,
Mi succede una cosa stranissima durante lo riempimento di una tabella in word da parte di access. Il
codice incriminato è il seguente:
    Dim oApp As Object
    Dim oDoc As Object
        Set oApp = CreateObject("Word.Application")
        Set oDoc = oApp.Documents.Open(CurrentProject.Path & "\word\Distintaavvocato.doc")
        oApp.Visible = True
        oDoc.Bookmarks("NomeAvvocato").Select
        oApp.Selection.TypeText Text:=CStr(Me.Descrizione.Column(0))
        oDoc.Tables(1).Select
        Me.Recordset.MoveFirst 
        For a = 0 To Me.Recordset.RecordCount - 1 (*** PUNTO 1 ***)
            With oApp.Selection
                .MoveRight Unit:=wdCell
                .TypeText Text:=CStr(Me.Recordset.Fields("codice"))
                .MoveRight Unit:=wdCell
                .TypeText Text:=CStr(Me.Recordset.Fields("denominazione"))
            End With
            Me.Recordset.MoveNext
        Next
Se imposto un punto di interruzione fino alla riga contrassegnata da (*** PUNTO 1 ***) e se aspetto
qualche secondo prima di far proseguire la procedura allora tutto fila liscio, se invece lo
posiziono nel ciclo for.. next o se non lo inserisco proprio oppure faccio proseguire immediatamente
la procedura mi dà errore.
L'errore che mi si presenta è 'errore run-time 3021 nssun record corrente'. Ho fatto un  po' di
controlli e ho notato che se al computer non viene concessa la 'pausa di riflessione' che ho citato
sopra ripete il ciclo for... next una volta di troppo e all'ultimo passaggio, naturalmente, non
trova il dato che gli serve.
Perchè accade questo ? Cosa posso fare per risolvere la situazione ? Ho provato anche a fare
attendere il pc con l'istruzione sleep che ho trovato in questo NG per 5 secondi ma non succede
niente.
Grazie mille in anticipo.
Stay alive !
Pio Pio (utente newbe)
Win XP & Office 2000
www.ticom.it/tennisbuscate

         For a = 0 To Me.Recordset.RecordCount - 1 (*** PUNTO 1 ***)
    Mai, ripeto MAI, usare questo metodo! Anche perche' se proprio vuoi
definirlo un "metodo" e' un metodo per rovinarti la vita.
    Usa:
        Do Until rst.EOF
            .
            .
            rst.MoveNext
        Loop

--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------



Ok grazie mille per l'informazione, però perchè non usare mai questo metodo ? Perchè è così
catastrofico ?


 metodo ? Perchč č cosě catastrofico ?
    Facciamo che prima leggi la pagina della guida a proposito di
RecordCount (DAO e ADO) poi se hai dei dubbi domandi? ;-)


RecordCount (DAO e ADO) poi se hai dei dubbi domandi? ;-)
Ciao Maurizio,
Ha a che fare con l'aggiornamento del record corrente del Recordset vero ?
