mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: evitare l'apertura e chiusura della maschera.

ciao a tutti
 
uso questo codice........
 
    Dim ChiaveRic As String
    ChiaveRic = "[NomeFornitore] Like '*" & Replace(CboFornitore.Text, "'", "''") & "*'"
 
    DoCmd.OpenForm "SM_Fornitori"
    Forms!SM_Fornitori.SetFocus
    DoCmd.ApplyFilter , ChiaveRic
 
    If Forms!SM_Fornitori.RecordsetClone.RecordCount = 0 Then
        DoCmd.Close acForm, "SM_Fornitori"
        MsgBox "La ricerca non ha prodotto alcun Fornitore.", vbInformation
 
    End If
 
e vorrei evitare l'apertura e successiva chiusura della
maschera "SM_Fornitori" se non trova record.
 
grazie


ho risolto cosi, ma ho dubbi sull'ultima riga
se va messa o meno
 
    Dim rsCheck As dao.Recordset
    Dim strsCheckQL As String
    Dim ChiaveRic As String
 
    ChiaveRic = "[NomeFornitore] Like '*" & Replace(CboFornitore.Text, "'", "''") & "*'"
 
    strsCheckQL = "SELECT * FROM TbFornitori"
    Set rsCheck = CurrentDb.OpenRecordset(strsCheckQL)
 
    rsCheck.FindFirst ChiaveRic
 
    If rsCheck.NoMatch Then
        MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
    Else
       DoCmd.OpenForm "SM_Fornitori"
       Forms!SM_Fornitori.SetFocus
       DoCmd.ApplyFilter , ChiaveRic
 
    End If
 
    rsCheck.Close: Set rsCheck = Nothing

Il giorno mercoledì 11 novembre 2015 15:08:11 UTC+1, 
francodel...@gmail.com
 ha scritto:

Alternativa, che io preferisco in quanto non disperde CODICE di controllo in oggetti che possono AUTOCONTROLLARSI:
 
Devi usare l'evento OPEN, che, come vedi espone il Parametro CANCEL.
Se in questo evento verifichi che non vi siano RECORDS, forzi CANCEL=True.
Contemporaneamente andrai a gestire l'errore derivante dalla CANCELLAZIONE della richiesta di apertura.
 
@Alex


ciao Alex
nella "SM_Fornitori" ho fatto:
 
Private Sub Form_Open(Cancel As Integer)
    If Me.RecordsetClone.RecordCount = 0 Then
        Cancel = True
    End If
End Sub
pero'l'apre ugualmente anche se è vuota
 
 


e non ho errore


Me.RecordsetClone.RecordCount
mi conta tutti i record
sebbene la maschera sia vuota
e non capisco il perchè

Spero, che tu non abbia omesso di dire che quella è una SOTTOMASCHERA... e quel SM davanti mi puzza...
 
Questa cosa richiederebbe una punizione corporale...!
 
@Alex
 


In ogni caso aprendo una Form passando il WHERE condition... viene applicato il FILTER ed ovviamente il Recordset ORIGNINALE è escluso dal Filter... 
 
@Alex

Il giorno giovedì 12 novembre 2015 13:03:31 UTC+1, @Alex ha scritto:

ciao Alex
no, infatti poi l'ho rinominata
Newsgroup: it.comp.appl.access
Titolo: macro eseguita su un evento

Buon giorno a tutti,
come faccio a far partire una macro automaticamente ogni volta che viene
aggiornato un record di una tabella?
Grazie anticipate

 ha scritto nel messaggio
news:m%Agb.241215$R32.7...@news2.tin.it...

Premetto che sono dell'idea che si possa evitare l'uso della Macro.
In ogni caso intercetti l'Evento AfterUpdate della Form, non hai altro modo
per rilevare la modifica, e richiami la macro con la funzione RunMacro
ben descritta nell'Help.
Se però spiegassi meglio quelo che devi fare si potrebbero forse trovare
soluzioni alternative.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: corruzione dati con reti win2k

Salve a tutti,
ho un "piccolo" problema. Ho realizzato un MDB per un cliente che aveva una
rete in win98, da tutti i client poteva accedere e gestire l'mdb. Ora ha
installato una rete win2k solo che quando va ad inserire un dato questo si
corrompe. Cercando un pň in rete ho scoperto che si deve disabilitare
l'Opportunistic Locking in Win2k. La domanda ora č: questo č il solo modo?
ed anche il problema si risolve definitivamente? PS: l'mdb č in formato
access 2002.
Grazie!

 ha scritto nel messaggio
news:bbW7b.63835$R32.2...@news2.tin.it...

Sicuro che non ci sia hardware di rete che dia fastidio?
MAssimiliano

 ha scritto nel messaggio
news:bbW7b.63835$R32.2...@news2.tin.it...

Mah... io nella mia rete ho W95/98/2K e XP e i miei db non si corrompono...
Ho perso un po' di dati perchč avevo delle schede di rete RTL8139 che davano
i numeri perň.

 i numeri perň.
I tuoi db sono tutti di un pezzo (ti consiglio comunque di spezzarli in BE e
FE)...
A te Di Pietro ti fa un baffo con la sua inchiesta "Schede di rete
pulite"...
MAssimiliano


No, divido FE dal BE... In alcuni casi, visto che apporto modifiche +/-
continuamente, ho cmq il FE sul file server però.


George non so se č arrivata... ma io intendevo tutto di un pezzo nel senso
che non si corrompe... poi di lě l'ho girata su FE e BE
MAssimiliano

 ha scritto nel messaggio
news:xyY7b.37408$w8.1...@news.edisontel.com...


Newsgroup: it.comp.appl.access
Titolo: Reimpostare la proprietà .connect

Mi sta veramente facendo incazzare: 
TBL1 e' una tabella collegata...
Currentdb.Tabledefs("TBL1").Connection=";DATABASE=C:\MIODB.MDB"
Currentdb.Tabledefs.Refreshlink 
... e la tabella TBL1 non viene aggiornata (Ne' da codici di errore)...
PERCHE'? 
Max

 wrote in message
c2f1e49e.02031...@posting.google.com...

La fai da una form collegata alla tabella? Per il refreshlink c'è bisogno
che nessuna tabella sia aperta.

 wrote in message
c2f1e49e.02031...@posting.google.com...

Primo: perchč connection?
La proprietą da impostare č connect
Secondo: prova a settare la tabledef in un oggetto tabledef; quindi
set tbl = currentdb.tabledefs("TBL1")
tbl.connect = ...
tbl.refreshlink
Antonio

On 15 Mar 2002 03:52:51 -0800, 
rocc...@katamail.com
 (Max De Poli)
wrote:

prova questo
On Error GoTo errore
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT * FROM ditta")
rs.Close
Set db = Nothing
Exit Sub
errore:
rs.Close
Dim strpath As String
strpath = Application.CurrentProject.Path & "\Dati" &
Application.CurrentProject.name
Dim tabelle As TableDef
On Error Resume Next ' in caso di errori continua
For Each tabelle In db.TableDefs ' scorre le tabelle dell'archivio
    If tabelle.Connect <> "" Then
        tabelle.Connect = ";DATABASE=" & strpath  ' se la tabella è
esterna la ricollega al file indicato
        tabelle.RefreshLink
    End If
Next
Set db = Nothing
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: valore a secondo del numero (seconda puntata)

 Emanuele.
Grazie ancora della risposta, ma penso di essermi spiegato male.
In una maschera  ho due caselle di testo (A - B) più una casella di
controllo (C).
Se scrivo 100 in (A), in (B) deve  scrivere 1000; se poi la casella di
controllo è selezionata, in (B) deve scrive 1500;
Naturalmente, per complicare le cose, (A) non ha sempre lo stesso valore ma
(150 - 200 -250 - 300 - 350) e, conseguentemente, i valori di (B) e (C)
cambiano.
(A) = 100 > (B) =1000 (se (C) selezionato =15000)
(A) = 150 > (B) =1500 (se (C) selezionato =2000)
per latre 3 volte.
Altro dubbio visto che (B) e (C) sono soggetti a cambiamento, si può
utilizzare una tabella dove mettere tutti i valori e poi cambiarli senza
andare a modificare il codice, se necessario?
Grazie ancora del tempo dedicatomi.
gianni

 ha scritto nel messaggio news:iti29.28357$lu5.7...@twister1.libero.it...

Ciao,
secondo me ti conviene scrivere una funzione all'interno di un modulo comune che restituisca il valore B in base ai parametri A e C
che verranno passati, poi leghi il controllo B sulla maschera al risultato di questa funzione.
Matteo

 gianni
Soluzione B:
- crei una tabella con tre campi e vi memorizzi le varie combinazioni di
valori (es. 150 - 1000 - 2000)
- nella maschera trasformi (A) in una casella combinata che attinga i dati
dalla tabella di cui sopra (deve ovviamente caricare tutti e tre i campi)
- nell'origine controllo di (B) metterai una espressione tipo
=IIf([C];[A].Column(2);[A].Column(1))
Controlla la sintassi...
Ciao
--
Alberto
Newsgroup: it.comp.appl.access
Titolo: collegamenti ipertestuali

salve a tutti,
in una maschera ho un controllo che è un coll. iper
ho inserito il seguente codice
Private Sub miocontrollo2_AfterUpdate()
Me.miocontrollo = "C:\pippo\" & Me.miocontrollo2 & ".avi"
End Sub
se il miocontrollo lo ricavo con quest'istruzione non mi funzione il coll
iper, se invece ci inserisco il path va bene
mi sapete dire come mai?
grazie, MAssimiliano

 grazie, MAssimiliano
Vista la struttura dei collegamenti ipertestuali, prova cosě:
Me.miocontrollo =  "C:\pippo\" & Me.miocontrollo2 & ".avi#C:\pippo\" &
Me.miocontrollo2 & ".avi#"
Per maggiori dettagli sulla struttura dei collegamenti ipertestuali consulta
l'help su Informazioni sugli indirizzi dei collegamenti ipertestuali nei
campi di collegamento ipertestuale e nei controlli.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 campi di collegamento ipertestuale e nei controlli.
Caro Roberto, grazie x il tuo sempre puntuale suggerimento, ho risolto con
Me.Comando6.HyperlinkAddress = "c:\pippo\" & Me.s & ".avi"
cosě faccio partire con Media player un filmato
ciao MAssimiliano

 ciao MAssimiliano
Se il controllo in questione è un pulsante di comando quella tua è la
soluzione; però non avendolo tu precisato, io ho ipotizzato che fosse una
casella di testo, che non ha la proprietà HyperlinkAddress: in quel caso
sarebbe stato necessario adottare la mia soluzione.


 ha scritto nel messaggio
news:uWwY8.49320$K_4.9...@twister1.libero.it...

Grazie Roberto e scusa per l'imprecisione. Và benissimo così se proprio
vogliamo spaccare il capello in due sarebbe simpatico se si riuscisse a
racchiudere la visualizzazione in un controllo tipo "Immagine"
ciao e grazie dell'attenzione
MAssimiliano


Che sappia io il formato .avi non è supportato direttamente da Access.
Però, come saprai, anche un controllo immagine ha la proprietà
HyperlinkAddress.

Newsgroup: it.comp.appl.access
Titolo: Files Sito Comune e Access 95

Ho una vecchia versione di Access 95: mi piacerebbe aprire qualcuno dei
files presenti sul Sito Comune ma questi sono in formato Access 97: c'č
qualcuno che sa dirmi come posso fare? Purtroppo non mi č stato possibile
trovare una versione di Access 97 o 2000: in commercio si trovano solo piů
Access 2002 XP! C'č qualcuno che magari sa se posso trovare qualcosa da
qualche parte?

 ha scritto nel messaggio
news:eoMwa.98709$3M4.2...@news1.tin.it...

Esiste una versione di access'95???
Io conoscevo Access 2.0/97/200x...
Sicuro sulla versione?
Ciao.
--
Sergio MAZZA

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

 ---------------------------------------------
Ah!
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:ba0frp$13e$1...@canarie.caspur.it...

Correva l'anno 1991/1992 quando la versione 1 di Access fece la sua prima
apparizione.
Subito dopo, a distanza di qualche mese, uscì la versione 1.1 (la mitica).
Poi fu la volta della versione 2.0 (quì Access spopolò, migliaia di copie
vendute).
Prima della versione 97 vi fù la versione intermedia detta 95; una versione
di transizione.
Nel frattempo, e in considerazione delle notevoli modifiche apportate,
vennero saltate a piè pari ben quattro versioni e si passò a definire le
versioni con le ultime due cifre dell'anno di rilascio. Non esiste una
versione 3 o 4 o 6 ma si passa direttamente alla 7 o Access95.
La versione 8 o Access97 segna ancora una tappa miliare. Access97 raggiunge
un grado di sviluppo e di stabilità mai raggiunto.
Di fatto questa è ancora la versione più usata.
A seguire la versione 9 o Access2000 e la 10 o AccessXP.
Ci sarà una versione 11 0 12? Pare proprio di sì.
Ciao, Carlo

CUT
Dimenticavo...per poter leggere una pagina fondamentale su Access, in
occasione del suo decennale, basta andare qui:
http://www.microsoft.com/office/access/10years/heroes.asp
Ciao, Carlo


Interessante; grazie...
Ciao.
--
Sergio MAZZA

 ha
scritto:

Microsoft Italia ha iniziato un ciclo di conferenze itinerante in cui
presenta l'interoperatività di office e W server 2003.
Il 27 maggio sono a Napoli, il 29 a Roma etc.
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it


Vediamo se riesco a "congedarmi" il 29 dal lavoro...
Ciao.
--
Sergio MAZZA

 ha
scritto:

Vi riporto il calendario
Bari 20/5
Catania 22/5
Napoli 27/5
Firenze 3/6
Milano 5/6
Bologna 10/6
Padova 12/6
Novi Ligure 17/6
per info
www.microsoft.com/italy/partner/
02.499.833.52
Tutto free compreso il pranzo (che almeno a Napoli - l'unico che conosco - è
in un prestigiosissimo hotel)
Io spero di andare a Napoli
ciao MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: Passaggio di parametri a una maschera con elenco

Ciao,
come da titolo devo riuscire a passare alcune informazioni alla maschera che
andrò ad aprire. Il problema nasce quando devo aprire la maschera ad elenco
in ordine, ad esempio, di codice.
E' proprio questo comando che non riesco a fargli accettare.
wric_global = "ORDER BY [CODICE]"
DoCmd.OpenForm "elenco_per_items", , , wric_global
Ma in questo modo mi esce fuori la finestra d'errore :"errore di run-time
3075. Errore di sintassi (operatore mancante) nell'espressione della query
"ORDER BY [BAS_DEN]".
Credo che il problema sia dato dal fatto che l'istruzione OpenForm si
aspetta una condizione col WHERE più che un order by. ma in questo caso dove
devo mettere l'ordinamento? sarebbe semplice metterlo direttamente nelle
proprietà della maschera ma non posso siccome l'ordinamento potrebbe essere
diverso a seconda della scelta dell'utente. devo pertanto trovare un modo
per passare l'ordinamento all'apertura della maschera. E' possibile?
Grazie mille e buona giornata a tutti,
Fabio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 devo mettere l'ordinamento?
Esatto, la condizione Where di OpenForm non elabora un ordinamento, ecco 
perché il form ha un'apposita proprietà OrderBy. Quindi fai
DoCmd.OpenForm "elenco_per_items"
Form_elenco_per_items.OrderBy = "Codice"
IG

Proverň subito il comando.
Grazie mille!!!!


Newsgroup: it.comp.appl.access
Titolo: Comprimere un DB!!

Salve a tutti vorrei avere un piccolo suggerimento: ho un database in Access
di 817.620 Kb come posso fare x comprimerlo un pò???? Anche se cancello dei
dati vecchi le dimensioni del database mi sembra che non scendono, come
mai???
Ringrazio anticipatamente chiunque possa fornirmi un suggerimento!!
Grazie 1000
LucaZ

 mai???
Ma hai compattato il database?
Antonio


Come faccio a compattarlo?? Io ora uso un programmino il RollerCompact ma
non mi comprime piů di tanto.... Esiste una funzione interna ad Access???
Grazie

 ha scritto nel messaggio
news:b34k6u$1hphiq$1...@ID-183914.news.dfncis.de...

Non ti viene in mente di guardare l'help e cercare compattazione o
compattare e leggere tutto lo scibile?
Antonio


--------------------------------
Inviato via 
http://usenet.libero.it


Grazie e scusa del disturbo..........!!!!!
Luca
Newsgroup: it.comp.appl.access
Titolo: collegare campi ACCESS in un doc WORD

Ciao a tutti,
un bel quesito per quanti ci si vogliono cimentare:
dato un db access con due tabelle correlate es:
1) Tabella dati personali
2) Tabella numeri di telefono
correlate da un campo ID con relazione 1 a molti.
Come pizzetta fareste voi a inserire questi campi in un documento Word in
modo da pescare i dati sia dalla tabella 1 che dalla due?
Risultato su Word:
Alfredo Pasquinelli (dati tabella 1)
070/345544 (dati tabella 2)
0347/4543312
Giorgio Rambaldi
094/4998583
0887/4395588394
etc. etc...
Io ho provato con la Stampa Unione di Word ma sembra che accetti una sola
fonte di dati, quindi pesca solamente da una delle due tabelle oppure legge
da una query che unisce i dati delle due tabelle ma il risultato e' che mi
ripete il nominativo per ogni numero telefonico!!
Grazie a tutti gli ardimentosi che vogliano cimentarsi in questa prova.
Ciao Gianni

 ha scritto nel messaggio
news:8cg3eb$o24$1...@nslave2.tin.it...

Usa una query no!!!

> Usa una query no!!!
Ho provato anche con Ms Query ed effettivamente riesce a recuperare dati da
piu' tabelle unendole ma il risultato e' sempre lo stesso, sul documento
word viene fuori una cosa del tipo:
Alfredo Pasquinelli (dati tabella 1)
070/345544 (dati tabella 2)
Alfredo Pasquinelli (dati tabella 1)
0347/4543312 (dati tabella 2)
Giorgio Rambaldi
094/4998583
Giorgio Rambaldi
0887/4395588394
etc. etc...
ANZICHE':
Alfredo Pasquinelli (dati tabella 1)
070/345544 (dati tabella 2)
0347/4543312
Giorgio Rambaldi
094/4998583
0887/4395588394
etc. etc...
Adesso sto' provando se con i "campi di Word" (campi If, segnalibri, etc.)
riesco ad escludere i dati ripetitivi nel documento.
Fatemi sapere se avete soluzioni migliori.
Grazie comunque
Gianni

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

come faccio a modificare una maschera.
io ho creato una tabella e poi una maschera ,adesso devo aggiungere delle
nuove voci alla tabella ,come faccio ad aggiungere le voci alla maschera
precedentemente creata?devo rifare la machera di nuovo o c'č un sistema .
grazie
--------------------------------
Inviato via 
http://usenet.libero.it


Apri la strutura della tua maschera che vuoi aggiornare; dal menu Visualizza
scegli il comando Elenco campi; dalla finestra che ti comparirą clicchi su
uno dei nuovi campi e (tenendo il tasto sinistro del mouse premuto) lo
trascini dentro la mascherą , nel posto dove lo vuoi inserire.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 precedentemente creata?devo rifare la machera di nuovo o c'è un sistema .

Newsgroup: it.comp.appl.access
Titolo: apri db2, chiudi db1

Buongiorno a tutti...
E' la prima volta che scrivo, fino ad ora sono riuscito a risolvere tutti i
miei problemi grazie allo storico del newsgroup, adesso sono veramente
fermo, non riesco ad andare avanti....
Vi spiego...
Access 97, dovrei, attraverso VBA chiudere il db su cui sto lavorando ed
aprirne un'altro...
Detto così sembra la cosa più banale del mondo, ci sono riuscito in 1000
modi...
Il problema è che mi piace fare le cose complicate...
Vorrei aprire un'altro database senza aprire un'altra finestra...
E' possibile secondo voi????
Attendo notizie...
Grazie a tutti...
--------------------------------
Inviato via 
http://usenet.libero.it


Secondo te è possibile.....???
Vorrei bere un bicchier d'acqua senza bicchiere....!!!!
Non ti complicare la vita, dei 1000 modi che hai usato
usane solo 1 apri una nuova istanza di Access e chiudi la
vecchia.
Ma poi perchè una roba del genere.......?????
@Alex

"lore" <li4...@NOSPAM.it> ha scritto nel messaggio
news:81Z115Z91Z185Y1...@usenet.libero.it...

Ciao lore
Con AccessXp utilizzo il seguente metodo...
    Dim stDocName As String
    stDocName = "C:\Documenti\database\Db1.mdb"
    SendKeys "%FR" & stDocName & "~"
Controlla che i tasti di scelta rapida del menu File corrispondano ovvero...
 File con la F sottolineata e Apri con la r sottolineata.
Ciao Giorgio

 ha
scritto:

Newsgroup: it.comp.appl.access
Titolo: Access collegato a informazioni di .doc

Ciao a tutto il ng
Vorrei creare un database in access contenente tutte le informazioni dei
documenti di word (offerte a clienti) contenute in una mega cartella con
1000 file.
Mi spiego: ogni documento word è rigorsamente completato nei campi
TITOLO, OGGETTO, AUTORE, MANAGER etc, presenti nella casella riepilogo
informazioni. Io vorrei che questi campi fossero esportati in word, e
che fossero poi automaticamente estratti da access all'inserimento di un
nuovo doc. Tramite la tabella creata, poi potrei fare delle query etc.
C'è un modo? Premetto che con access sono quasi una frana, quindi spero
non sia troppo complicato. Grazie 1000, sono sicura che questa potrebbe
una buona idea anche per molte altre persone.
Eleonora

 una buona idea anche per molte altre persone.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:1fk49mb.m5vhblh620p6N%eleonora...@libero.it...

Se ho capito bene tu vorresti trasformare una tabella di Word in una tabella
di Access.
In questo caso dovresti:
- selezioni tutta la tabella di Word
- poi clicca Copia
- vai in Excel ed incolli: in questo modo hai ottenuto una tabella di Excel
che è facilmente importabile in Access.
Una volta in Access puoi fare query e stampe varie.
Spero di averti aiutato un po.
Ciao
Simone
Newsgroup: it.comp.appl.access
Titolo: formattazione campo in automatico -Aiuto

Salve Ragazzi,
ho bisogno del vostro aiuto , nel mio programma di gestioni ordini 
fin'adesso ho utilizzato per l'inserimendo di ordini a miei clienti mel 
campo Codice Ordine la seguente formattazione :
XX 07-0001
cioč : due lettre-spazio -due numeri - 4 numeri, (tutto ok)
ora io mio boss,  vuole cambiare le cose, vuole che l'ordine sia in questo 
formato :
XX -0000001 due lettere -trattino 6 numeri,
come posso fare ad  inserire  nel mio campo, nella maschera di inserimento 
ordini , solo XX-1 e in automatico quando mi salva il numero me lo salva 
sotto XX-0000001 per evetirare di scrivere 6 zeri?-- e cosi via per esempio 
XX-14 il mio codice ordine diventa XX-000014.
P.S:
per non perdere tutta la codifca degli ordini dovrei poter aggiornare tutti 
gli ordini con la vecchia farmattazione con quella nuova č possibile ?
Grazie 

 Grazie
potresti utilizzare una funzione che ti controlla il valore immesso ed
eventualmente ti inserisce gli zeri mancanti.
per es.
se nella Maschera di input imposti la seguente formattazione
LL"-"999999
puoi utilizzare l'evento dopo aggiornamento della casella di testo per
completare il valore del codice
Private Sub CodiceOrdine_AfterUpdate()
    Me!CodiceOrdine= fz_completaCodice(Me!CodiceOrdine)
End Sub
Private Function fz_completaCodice(vCod As String) As String
    fz_completaCodice = Left(vCod, 2) & "-" & String(6 - Len(Mid(vCod,
3)), "0") & Mid(vCod, 3)
End Function
ciao
Andrea Papi

 Grazie
potresti utilizzare una funzione che ti controlla il valore immesso ed
eventualmente ti inserisce gli zeri mancanti.
per es.
se nella Maschera di input imposti la seguente formattazione
LL"-"999999
puoi utilizzare l'evento dopo aggiornamento della casella di testo per
completare il valore del codice
Private Sub CodiceOrdine_AfterUpdate()
    Me!CodiceOrdine= fz_completaCodice(Me!CodiceOrdine)
End Sub
Private Function fz_completaCodice(vCod As String) As String
    fz_completaCodice = Left(vCod, 2) & "-" & String(6 - Len(Mid(vCod,
3)), "0") & Mid(vCod, 3)
End Function
ciao
Andrea Papi
Grazie mi hai salvato funzionaaaaaaaaaaaaaaaaaaaaaaa!!!!!!!!
scusa se approfitto,dato che con quetsa procedura cambio la formattazione 
del mi ordine , quelli che ho immesso con il vecchio formato non possono 
essere + ripresi naturlamente , comeposso fare ad aggiornare in automatico , 
magari con una query di aggiornamento tutti quelli vecchi?
per sempio
vecchio ordine XX 07-0001 ----->> XX-000001 puň essere fatto?

Newsgroup: it.comp.appl.access
Titolo: INSERIMENTO DA MASCHERA

NEL MIO DATABASE (UN PROTOCOLLO CASERECCIO) VORREI CHE IL CAMPO A TENDINA
ASSOCIATO AD UNA TABELLA CONTENTENTE I DATI DEI MITTENTI/DESTI, MI
PERMETTESSE L'INSERIMENTO AUTOMATICO DI NUOVE VOCI, SENZA DOVER
INTERROMPERE IL LAVORO E INSERIRE MANUALMENTE NELLA TABELLA CIň CHE MI
SERVE.
GRAZIE!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it




ABBIAMO CAPITOOOO!!!
se non urli magari qualcuno ti risponderà. E soprattutto ti converrà 
ripostare il messaggio con un oggetto significativo.
Newsgroup: it.comp.appl.access
Titolo: Gestione evento newrecord in access

Buon Giorno, premetto che sn nuovo del sito e di access. Ho una maschera Mask_tblPartNew in cui inserisco degli articoli. Ho un'altra maschera Mask_stringa in cui vi è un tasto che si chiama cmdAssegna. In pratica vorrei che ogni qualvolta si inserisca un nuovo record nella prima tabella venga aperta la seconda mediante un filtro che lega i due campi ID delle 2 maschere ed attivi il tasto cmdAssegna (insomma simuli il mio click sul tasto). Come devo fare?
io nell'evento current della prima maschera ho inserito il seguente codice
If Form.NewRecord = -1 Then
    MsgBox "è stato inserito un nuovo record" _
     '   & "@Do you want to add new data?" _
      '  & "@If not, move to an existing record."
      Dim criterio1 As String
        criterio1 = "[id]=" & Me![id]
        'DoCmd.Close acForm, "Mask_tblPart"
        DoCmd.OpenForm "Mask_stringa", , , criterio1
        Form_Mask_stringa.IdIn8 = Me.id
        Form_Mask_stringa.IdFin8 = Me.id
        Form_Mask_stringa.cmdAssegna.Enabled = True
        Form_Mask_stringa.cmdAssegna_Click = True
    End If
in cosa sbaglio? Grazie d tutto
-- 
Vedi su Narkive:
http://narkive.com/3zbAaQ6o
 


Che errore ti da? La routine sotto cmdAssegna è stata dichiarata Public? Cmq per richiamare l'evento sul pulsante non devi mettere = true

 in cosa sbaglio? Grazie d tutto
 
L'evento del controllo cmdAssegna deve iniziare per public e non private, 
quindi:
 
public sub cmdAssegna_click()
 
....
....
 
 
end sub
-- 
Ciao
Geppo
Newsgroup: it.comp.appl.access
Titolo: modifica di una query

Questa č la query di partenza :
UPDATE tabellaA
INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
SET tabellaA.CAPITALE = tabellaDATESTO.capitale;
siccome i campi da impostare con il SET sono due e non uno , si puň 
riscrivere cosě la query ?
UPDATE tabellaA
INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
SET tabellaA.CAPITALE = tabellaTESTO.capitale , tabellaA.abitanti = 
tabellaDATESTO.abitanti;
grazie e saluti

 grazie e saluti
Ma perchè non hai provato a farlo.....??? magari su una copia di
prova....
Se funziona significa che è corretto, altrimenti posti il quesito...!
Ora che fai...? Aspetti che qualche persona ti dica che va bene per
provare....???
Hai paura di fare male al DB facendo qualche prova in autonomia...?
@Alex

 wrote in message 
news:1168111506.4...@q40g2000cwq.googlegroups.com...
Ma perchè non hai provato a farlo.....??? magari su una copia di
prova....
Se funziona significa che è corretto, altrimenti posti il quesito...!
Ora che fai...? Aspetti che qualche persona ti dica che va bene per
provare....???
Hai paura di fare male al DB facendo qualche prova in autonomia...?
@Alex
=====================================
Forse pensa che la griglia QBE sia un optional...
Auguri, vecchio filibustiere!
Bruno 

 grazie e saluti
Ma perchč non hai provato a farlo.....???
a casa purtroppo non ho MS Access ....
La sintassi č giusta comunque ?( la prima query  funziona )
grazie 

 Bruno
Ciao Bruno, auguri anche a te e famiglia, mi ha fatto veramente piacere
il tuo saluto.
@Alex

Newsgroup: it.comp.appl.access
Titolo: Accesso contemporaneo ad un file Access

Ho un problema quando accedono due utenti sullo stesso file access,
depositato su una directory di rete (NetWare), più precisamente l'utente
che cerca di accedere al file per secondo riceve il messaggio "file già in
uso" e non riesce ad aprirlo.
Sapreste darmi una spiegazione.
Grazie anticipatamente
Piero
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 Sapreste darmi una spiegazione.
Prima di tutto disapprovo la scelta di netware (ma questa e' un'altra
storia)
ad ogni modo probabilmente aveta access impostato per aprire il file in
modalita' esclusiva.
Strumenti/Opzioni
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:VVbNa.22038$HU3.6...@news2.tin.it...

Scusa se mi intrometto ma è per cultura personale.
Perchè disapprovi la scelta di netware?
Sai tanto per farsi un'idea ;)
SunRex

 Sai tanto per farsi un'idea ;)
Ma sai, non e' che mi abbia fatto qualcosa di male, ma quando ho avuto a che
fare con netware (molto probabilmente per mia ignoranza) e' stato peggio che
con linux (almeno con linux me lo posso rigirare un po' come mi pare, con
netware e' stato difficile pure far capire ai pc con win che l'altro
esisteva e viceversa).
Quando una cosa mi risulta piu' difficile di quando non dovrebbe io mi
disaffeziono, anche pensando a quando il cliente si trovera' ad avere anche
il minimo problema.
Sib
Newsgroup: it.comp.appl.access
Titolo: Antogal - Tips & Tricks

Ho utilizzato, prelevandola dal sito comune, la funzione di Antogal per
rimuovere i pulsanti di chiusura e ridimensionamento di Access.
Tutto funziona regolarmente in ambiente Win9X, ma in ambiente NT (sia server
che workstation) quando viene richiamata la funzione genera un errore di
Overflow.
Dove sbaglio ?
Grazie in anticipo
Marco

 ha scritto nel messaggio
news:8v1btd$1bv$1...@lacerta.tiscalinet.it...


 Marco
probabilmente c'e' qualche problema di api, prova a
debuggarla per vedere dove viene generato l'errore.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


Grazie dell'informazione, provero'.
Ciao Marco


No, e' un problema che si verifica sotto NT vedi risposta di Valerio.
Grazie comunque, ciao Marco.

Newsgroup: it.comp.appl.access
Titolo: Verifica scadenze con data di sistema





Ho una tabella TARIFFE dove per ogni IDCLIENTE oltre ai prezzi 
di listino ci sono due campi data usati per immettere la validità del contratto 
in essere 


es. Cliente PIPPO validità dal 01/01/00 al 
31/07/00


vorrei che arrivati alla data di scadenza es.31/07/00, un 
msgbox mi avvisi che per quel cliente il contratto è scaduto.....(più clienti 
possono avere la stessa data...)


Grazieda Enrico


 



 ha scritto nel messaggio
news:000801c07007$b480dd40$31761997@c7x0k5...

Ciao
prima di tutto non postare in HTML (regola del NG); potresti essere più
chiaro? Quando devi far apparire la msgbox? All'apertura di una maschera?
Dopo una certa operazione? La prima soluzione che mi viene in mente è quella
di aprire la tabella (se non l'hai già aperta per altri scopi) scorrere
tutti i record e confrontare con la data odierna (funzione Now() per
intenderci).
Saluti
LaLo

 
  ha scritto nel messaggio 
news:000801c07007$b480dd40$31761997@c7x0k5
...



Newsgroup: it.comp.appl.access
Titolo: Variabili globali, come?

Nel mio db per l'immissione e visualizzazione dati ho bisogno di tenere 
in "memoria" i valori di alcuni campi i quali mi servono per filtrare 
delle maschere in apertura....
Avevo pensato a delle variabili globali che siano viste da tutti i 
forms e modificafibi dagli stessi.
E' possibile?
Se si come e dove devo dichiarare queste variabili globali?
Come faccio riferimento nei form ( nel codice VBA )?
Grazie,
Roby
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio news:200409031...@mynewsgate.net...

si è possibile!
basta che crei un nuovo modulo VBA e subito dopo la scritta Option explicit dichiari le tue variabili nella forma
Public nomevariabile as tipo variabile
poi dagli altri moduli VBA richiami la tua variabile semplicemente digitando il nome
ciao
Nick

 ha scritto nel
messaggio
news:200409031...@mynewsgate.net...

non ti basta OpenArgs?
MAssimiliano

 poi dagli altri moduli VBA richiami la tua variabile semplicemente digitando il nome
Attenzione che pero che in caso di errore non gestito (lo so, non
dorebbe succedere ...) le variabili vengoni inizializzate a null.
Ciao+
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio news:88b9110be323208f73a...@mygate.mailgate.org...

si giusto...
l'ho dato per scontato perchè cmq visto che gli servono per passare i dati cisarà un'izializzazione da qualche parte, cmq ottima
precisazione è sempre utile evitare gli errori o per lo meno capire ciò che mi propone access :D
ciao
Nick

Newsgroup: it.comp.appl.access
Titolo: origine controllo

ciao a tutti, 
domanda veramente banale:
ho 2 tabelle una botte e l'altra movimenti collegate 1 ad N (una botte
può avere n movimenti, etc)
creato una maschera dove viene visualizzata la botte con tutti i
movimenti.
vorrei che ci fosse un campo di testo dove mi da il riepilogo dei
litri presenti in quella botte (basterebbe la somma algebrica dei vari
movimenti:
ho creato un campo di testo e su origine controllo ho scritto:
=Somma([movimento]![Litrii])
mi dà errore, dove sbaglio? grazie a tutti di cuore
marco

 marco
Ciao Marco
Immagino che tu abbia creato una sottomaschera [SM_Movimenti] all'interno
di una maschera [M_Botti]
Se č cosģ puoi creare nella sottomaschera una casella di testo con origine
controllo =Somma([Litri]) dove [Litri] deve essere il nome dell'origine
dati e non del controllo della sottomaschera.
Se poi vuoi visualizzare il dato nella maschera principale in una casella
di testo scriverai come origine dati = parent!NomecontrolloSottomaschera]
Ciao
Prometeo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 marco
Ciao
in quel controllo ci devi mettere dsum("[litri]";[movimento]; e qui il
criterio)
Chiaramento devi vedere tu che criterio metterci (probabilmente i campi che
relazionano le due tabelle)
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: evento su pressione pulsante di comando

Salve ragazzi ,
problema :
nella mia masachera ho creato un pulsante di comando che mi invia il mio 
ordine quindi un sendReport eccc....
ora vorrei che quando vado a pigiare il mio pulsante a lato mi si 
spuntasse o mi comparisse una scritta "Spedito" o mi si flaggasse in 
automatico una casella di controllo!
Avete idee in merito?
Premetto che la maschera su cui devo appricare il tutto e a maschere con 
visualizzazione continue.
Ciao grazie

 ha scritto nel messaggio 
news:kmcZf.70953$A83.1...@twister1.libero.it...

Aggiungi un campo alla tabella: spedito di tipo vero o falso e includilo tra 
i controlli della maschera.
Al codice aggiungerai:
Me!Spedito = True
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: Imposta valore in casella di testo da casella combinata

Buon giorno a tutti
avrei bisogno del vostro aiuto per risolvere un broblema che a rigor
di logica dovrebbe essere semplice, ma non per me...
Dunque:
ho una tabella tblClienti con i campi IDCliente (chiave primaria),
NomeAttività ecc.
Ho una tbella tblFatture con campi IDFattura (chive primaria),
Data,IDCliente ecc
collego tblClienti con tblFatture tramite IDCliente 1 a molti
Creo una query qryfrmFatture che è l'origine dati della mia maschera
frmFatture
Nella maschera inserisco
una casella combinata CboNomeAttività non associata che prende i dati
dalla tabella tblCliente, così quando comincio a scivere il nome del
cliente mi compare l'elenco dei clienti
una casella di testo IDCliente che prende i dati dalle query e si
riferisce all'IDCliente della tblFatture
Come faccio a selezionere un cliente della casella combinata e a fare
in modo che nella casella di testo IDCliente venga scritto l'IDCliente
relativo al cliente scelto?
Sono stata troppo prolissa e poco chiara?
Avete qualche idea, suggerimento, esempio da segnalarmi?
Grazie a tutti

 ha scritto nel messaggio 
news:4642fe65-1d54-463e...@q9g2000yqc.googlegroups.com...





Grazie a tutti
nella combo dai come origine la query clienti con i campi
ID e Nome
nascondi poi la prima colonna.
Richiami il valore dell'id poi con due righe di codice
Su evento Dopo aggiornamento della combo
tuacasellatxt = tuacombo.column (0)
ciao
-- 
Roberto da Parma 

 ha scritto nel messaggionews:4642fe65-1d54-463e...@q9g2000yqc.googlegroups.com...

Grazie ci provo e ti faccio sapere
La tua mano dovrebbe essere in via di guarigione... buona convalescenza

 ha scritto nel messaggio 
news:91589fb6-4fe1-433b...@w34g2000yqm.googlegroups.com...



Eh...per quella ci vuole ancora tempo...il 18 visita e poi altri 25 
gg...tempo al tempo....anche se ormai è da un pò che mi son stufato...
Grazie del pensiero :-))
-- 
Roberto da Parma
Newsgroup: it.comp.appl.access
Titolo: formato testo integrazione con outlook

buongiorno,
 
attraverso il seguente script invio delle email
 
 
 
lo script funziona abbastanza bene ma mi piacerebbe formattare porzioni 
di testo e inserire i link come hypertext sulle parole chiavi
 
in pratica come faccio a formattare una parola in grassetto e parte di 
testo come cliccabile?
 
 
Dim destinatario As String
Dim mytext As String
Dim dest As String
Dim link, qui As String
 
Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
Dim oggetto As String
 
 
dest = ""
DoCmd.GoToRecord , , acFirst
Do While IsNull(Me.ID) = False
dest = dest & Me.mail & ";"
DoCmd.GoToRecord , , acNext
Loop
dest = Left(dest, Len(dest) - 1)
 
Dipartimento = InputBox("Dipartimento?")
periodo = InputBox("periodo?")
link = "mio link"
qui = "mio qui"
 
 
oggetto = "Formazione specifica " & Dipartimento & " del " & periodo
 
mytext = "Salve a tutti, " & vbCrLf & _
"" & vbCrLf & _
"le SS. LL. sono state convocate a seguire il corso OBBLIGATORIO sui 
...etc etc" & link & qui
 
 
With outmail
.To = dest
 
.Subject = oggetto
.body = mytext
'.Attachments.Add (Me.foto)
.Display
'.Send
End With
 
 
Akery
 
-- 
Questa email è stata esaminata alla ricerca di virus dal software antivirus Avast.
www.avast.com
 


al posto di .body devi usare
  .htmlBody
 
e passargli il testo in formato html
cosi puoi usare i tag di html per impostare colori, grassetti immagini 
etc etc
 
 
BFS
 
 


in esempio
 
...
 
mytext="grassetto" & "link"
 
...
.htmlbody=mytext
 
....
 
dove vado a specificare questi attributi sulle porzioni di testo?
 
grazie



penso di aver capito, vi darò aggiornamenti



no, devi usare i tag html
tipo per il grassetto
 
"<B>questo testo è in grassetto</B>questo no"


ha funzionato perfettamente! grazie per il suggerimento
Akery

Newsgroup: it.comp.appl.access
Titolo: generatore di ricerca....

scusate la ... mia memoria. 
ricordavo che access(2000) avesse da qualche parte un bottone per generare
un controllo di ricerca dentro la tabella in una maschera.
Non lo trovo piu'... me lo sono sognato o non riesco a focalizzarlo?

 Non lo trovo piu'... me lo sono sognato o non riesco a focalizzarlo?
Forse intendi questo:
Nel toolbox per i controlli attiva la bacchetta magica.
Poi scegli la casella combinata e nella prima maschera della
creazione guidata scegli la terza opzione "Trova un record
nella maschera basato sul valore nella casella combinata".
Se non č questo, descrivi meglio quale tipo di
"ricerca dentro la tabella" intendi.
-- 
Ciao
Karl
*********
Access FAQ: 
http://www.donkarl.com/it
 

 Forse intendi questo:
grandissimo, grazie!
-- 
"That's part of your problem: you haven't seen enough movies. All of life's
riddles are answered in the movies. "  (grand canyon)
UFV 
25 sett.: Hot Tub Time Machine 
23 sett.: Ondine - Gentlemen Broncos - She's Out of My League
22 sett.: Unthinkable - Zombieland
20 sett.: Perdona e dimentica (Life During Wartime) - Green Zone - Robin
Hood - Gli amori folli (les herbes folles)	
www.iaciners.org

Newsgroup: it.comp.appl.access
Titolo: Cambiare segno all'interno di una cella

Ciao a tutti,
devo creare le bolle di reso (oppure le bolle di storno).
La mia tabella bolle è composta dagli estremi della bolla, da un campo
"quantità" e da una casellina di "storno" in modalità SI/NO.
Devo far si che quando la casellina "storno" è selezionata, il valore
"quantità" si imposti automaticamente in negativo al file di stornare
correttamente la quantità.
Non so quindi, dove, come e quando inserire il comando per effettuare
l'inversione di segno automatico.....
Rigrazio anticipatamente Andrea

 ha scritto nel messaggio
news:LUE7a.163442$ZE.48...@twister2.libero.it...

Immagino quando andrai a fatturare l'insieme delle bolle no?
Avrai quindi un campo calcolato in qualche query fatto così
Vera Somma: iif([storno]=Vero;-quantità;quantità)
Antonio

 ha scritto nel messaggio
news:LUE7a.163442$ZE.48...@twister2.libero.it...

Se utilizzi una maschera per l'inserimento dei valori e se i tuoi controlli
si chiamano "quantita" e "storno"
puoi inserire a fronte dell'evento AfterUpdate del controllo quantita un
codice del genere:
Private Sub quantita_AfterUpdate()
    If storno = -1 Then Me.quantita = Abs(quantita) * -1
End Sub
La funzione Abs (valore assoluto) viene utilizzata perchè l'utente potrebbe
inserire il segno meno di sua iniziativa.
Ma poichè l'utente potrebbe cambiare idea o comunque inserire la quantità
prima di selezionare la casellina di storno, a fronte dell'evento
AfterUpdate di quest'ultima sarà opportuno inserire un codice del tipo:
 Private Sub storno_AfterUpdate()
    If storno = -1 Then
        Me.quantita = Abs(quantita) * -1
    Else
        Me.quantita = Abs(quantita)
    End If
End Sub
Ciao
Galliano
Newsgroup: it.comp.appl.access
Titolo: protezione

Buongiorno a tutti. Avrei bisogno di sapere se è possibile, avendo un
programma in Access, farlo diventare un eseguibile, per far si che non
sia copiabile se non avendo il "setup".
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Come da miliardi di volte ripetuto "Access Developer Edition" (se lo trovi e
se sei disposto a sborsare un bel po di soldi)...
Cmq se il risultato che vuoi è quello di proteggere il tuo DB, bhè ce ne
sono di modi!!!
(Es. Autorizzazioni e verifiche su seriali HD)

Grazie
vedi su 
sitocomune.com
Saluti.
Emanuele.

Ti ringrazio, solo che sul 
sitocomune.com
 ci sono esempi, ma fattibili
solo su Access 97!!!


solo su Access 97!!!
la maggior parte funziona anche sul 2000 e penso anche su XP
vedi la parte relativa alla procedura per leggere il nr seriale
dell'HD ed altro..
Saluti.
Emanuele.

Purtroppo niente da fare, sul 
sitocomune.com
 ho trovato programmi, ma 
per Access97, NON convertibili in 2000 o 2002!!!
Forse la miglior cosa da fare è rifare il programma in VB e creare un
eseguibile.
GRAZIE
ANDREA


ANDREA
ma se il programma del nr. seriale a me che uso il 2000 funziona
benissimo!!!
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Controli ActiveX

Ho usato il controllo Progress Bar di Microsoft che ho trovato nella lista
di ActiveX disponibili.
Se porto il Database su un altro PC (che ha installato Access) c'è il
rischio che l'oggetto ActiveX non venga trovato?
Devo copiare anche altre librerie?
Grazie


C'č la certezza piů che il rischio.....!
Devi portarti dietro anche l'OCX(che deve avere la Licenza)
e registrarlo.....!
L'Activex si appoggia alle Librerie di Windows, quindi č tutto li...!
@Alex.

@Alex.
comctl32.dll - comctl32.ocx (che sono i file che hanno la progressbar)
vengono installati o con windows (basta la licenza di windows credo) o
con i runtime vb6, scaricabili gratuitamente da microsoft...
quali altre licenze servono?
Ciao

 quali altre licenze servono?
Perfetto!
Grazie

"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> wrote in message
news:hngm8v02p335ggas4...@4ax.com

Io ti consiglierei di informarti bene prima di usarli.
I controlli OCX non sono Free-Use, ma solo con la LICENZA.
La Dll che hai citato è installata con Windows, e se vuoi
usare la Dll per generare la P-Bar puoi farlo, ma devi saper
usare bene le API.
Riguardo VB6 Runtime, non è distribuibile......!
@Alex. 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Riguardo VB6 Runtime, non è distribuibile......!
dicevo i vb6run, mamma microsoft te li fa scaricare liberamente
e se un mio ipotetico cliente se li scarica e se li installa?
Newsgroup: it.comp.appl.access
Titolo: Copiare immagine negli appunti e salvarla su file

In pratica mi servirebbe quelloscritto nell'oggetto.
Riesco a:
creare un'immagine salvandola negli appunti (alt+stamp e sendkeys)
Non riesco a:
salvarla su file (magari senza finestra "salva con nome")

Roberto ha scritto:

Prova questo demo :
http://www.lebans.com/windowtobitmap.htm
@Alex

grazie per la risposta e scusa per il ritardo.
Il mio problema è che se stampo un form con una listview non compaiono
i dati in essa contenuti (se invece uso una listbox riesco a farlo). So
che è un sistema "poco professionale" ma alle volte è utile. Esiste
un sistema un pò più semplice (lebans è un genio e quindi non riesco
a stargli dietro) per aggirare il problema?

Roberto ha scritto:

Con SendKeys invia CTRL+STAMP apri un programma di grafica ed invii il
Paste per incollare....!
Devi fare delle prove dovrebbe essere fattibile....forse con VB era
più facile avendo il controllo PictureBox, ma da Access devi
forzatamente appoggiarti a qualcosa di esterno
oppure ricorrere alla libreria GDI+ e salvare l'immagine in
ClipBoard(ottenuta
con il CTRL+STAMP) come BMP....!
E' tutto fattibile, ma non è una passeggiata.
@Alex

ok, grazie
se risolvo (otttimista !!!) posto la soluzione

altra domandina:
in una label per andare a capo uso vbCrLf
esiste una costante per il tasto TAB ...
vorrei ottenere (sempre in una label senza usare gli spazi e senza
impazzire con la dimensione dei caratteri):
1        pluto
2        pippo
3        topolino

Roberto ha scritto:

la costante per il Tab esiste, ma non ti funziona il visualizzatore
Oggetti....???????
In ogni caso non puoi fare quello che dici se non con 2 considerazioni
importanti:
1)Un font a spaziatura costante come il Currier
2)Per ottenere quello che chiedi serve usare Space(n) che inserisce N
spazzi...!
@Alex

Per il problema originale leggiti questo:
http://support.microsoft.com/kb/161299/en-us
@Alex
Newsgroup: it.comp.appl.access
Titolo: [query] stilare un campionato

ho un tot di squadre diciamo 20 in una tabella
squadra1
squadra2
.
.
.
squadra20
Attraverso una query (se e' possibile...) voglio creare tutte le giornate
del campionato in modo che tutte le squadre giochino una contro l'altra, ci
sia andata e ritorno e che ogni giornata sia separata da 15 gg dalla
successiva....
Io sinceramente non ho ancora pensato a come realizzare il tutto....
sinceramente non so che pesci prendere..... un suggerimento, un idea,...
ogni cosa sarebbe piu' che ben accetta...
ps
ovviamente non sono nemmeno sicuro se attraverso un quary questo si possa
fare....
Grazie a chi mi rispondera :)

 ogni cosa sarebbe piu' che ben accetta...
Onestamente, non è che io sia il massimo esperto (anzi), ma fare questo con
una semplice query, mi sembra troppo tortuoso. Dovresti, nel caso di una
query, ripettere 19 volte nello stesso campo (magari in una altra tabella)
tutte le 20 squadre. Poi nella query metti il campo con le 19x20 squadre, e
nella seconda colonna della query, il campo con le sole 20 squadre, ma con
una condizione: che i due valori nello stesso record siano diversi, cioè
ovviamente squadre diverse!
Oppure un'altra soluzione di cui proprio non ho esperienza, è la query a
campi incrociati con la stessa tabella! Suppongo che una volta letto bene
l'help sulle possibilità di questo genere di query, sia la soluzione più
facile.
Infine esiste la possibilità di crearti una matrice 20x20 dove a l'interno
ci metti le date. in questo caso è più intuitivo, e molto più manipolabile,
però devi crearti le liste di partite "manualmente", cioè  scrivendoti tutto
il codice per presentare dati non da tabelle. Questo è possibile mettendo
una funzione personalizzata nella proprietà TipoOrigineRiga.
Poi per qualunque delle soluzioni devi in qualche modo raddoppiare per il
ritorno.
Ciao
Thierry

successiva....
con una query non e' possibile.  per curiosita', cosa ti ha fatto
pensare che lo fosse?
quello che ti consiglierei e' di scriverti un po' di codice.  comincia
a dare un'occhiata a for..next e rnd. 
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 wrote in message
392d158...@news.interbusiness.it...
