mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: routine vba

Salve a tutti.    A furia di fare domande mi sta venendo di nuovo la
passione per access.
Vi scrivo perchè, tanto tempo fa, avevo una routine che usavo molto
spesso ma non riesco a trovarla.
Questa era una routine che faceva questo: facciamo finta di avere una
tabella Clienti; quando inserivo
un cliente il codice controllava se era già presente nella tabella. Se
era presente non faceva nulla , se non era presente lo
aggiungeva.Questo lo facevo per risparmiare una combobox specialmente
con liste lunghissime di clienti.
Non sono esperto di vba e vorrei che qualcuno mi dicesse il codice per
eseguire questa routine.
Se c'è, non aggiungere niente, se non c'è aggiungilo.In italiano è
facilissimo in vba ......un pò meno.
        Come sempre vi ringrazio e spero che un giorno ? potrò essere
io a dare risposte.

 ha scritto nel messaggio 
news:a39127b4-3c37-4a29...@v16g2000vbq.googlegroups.com...


Forse la risposta di Kerl fa al caso tuo:
http://www.donkarl.com/it?FAQ4.13
Ciao, Carlo

 Ciao, Carlo
Correggo: Karl e non Kerl...altrimenti sai quanti canguri!
Ciao, Carlo 

 Ciao, Carlo
grazie , ho seguito il percorso e l'ho copiata.
La devo applicare e studiare e poi vi dirò come è andata.
Ciao
Newsgroup: it.comp.appl.access
Titolo: Comandi DOS

Ho bisogno di spostare un file da una directori ad un'altra e lo devo fare
con VB. Come si fa?
Grazie.

 con VB. Come si fa?
Name + F1
ciao

 con VB. Come si fa?
Syscmd
Antonio

 Ti ringrazio, ma quantunque abbia tentato di chiarirmi con l'help di
Access, non so come fare. Saresti cosě gentile da farmi un esempio? Grazie

 ha scritto nel messaggio
news:4VDL9.37521$lV4.1...@news2.tin.it...

Uh cazzarola!!!
Hai ragione, ho avuto un lapsus.
La funzione da usare č la Shell
Essa ti permette di eseguire un programma, o dei comandi "dos"
Ergo, con una copy o una xcopy e specificando i path corretti potrai fare
quello che chiedi
Antonio

 Grazie.
L'istruzione FileCopy (vedi help) per copiare il file dalla vecchia alla
nuova directory e l'istruzione Kill  (vedi help) per cancellare il file
dalla vecchia directory.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:atla9r$l56$1...@lacerta.tiscalinet.it...

Name vecchionomepercorso As nuovonomepercorso
L'istruzione Name consente di rinominare un file e, se necessario, di
spostarlo in un'altra directory o cartella. Name consente di spostare un
file da un'unità all'altra, ma se nuovonomepercorso e vecchionomepercorso si
trovano nella stessa unità, consente unicamente di rinominare una directory
o cartella esistente. L'istruzione Name non consente di creare un nuovo
file, una nuova directory o una nuova cartella.
help axp

 Ci ho già provato, ma mi dice che non trova il percorso. Sfrugugliando
sull'help, però, mi pare di capire che Filecopy copia un file SOPRA un altro
già esistente; io , invece, lo devo spostare ed è per questo, forse, che non
funziona.

 funziona.
Se dopo la copia cancelli il file originario, ottieni appunto uno
spostamento del file.
O sbaglio?
Insomma, il fatto che tu non riesca ad usare l'istruzione FileCopy non
significa affatto che non funzioni per risolvere il tuo problema. ;-)


 Adesso provo

 Sull'Help della versione 97 non l'ho trovato... comunque grazie.
Newsgroup: it.comp.appl.access
Titolo: collegamento dati con file COBOL

Ciao a tutti,
come posso leggere i dati da un file cobol? (es. anagr.R)
O almeno avere una procedura di transizione che possa permettermi di 
portarli su access...
Grazie
-- 
Roberto da Parma 

 Grazie
DNS di sistema... collega tabelle... dovrebbe fungere. 

 ha scritto nel messaggio 
news:GD8pn.148845$9f6.1...@twister1.libero.it...

Ci provo poi ti dico.

Newsgroup: it.comp.appl.access
Titolo: Per SIMBA833 ...

Come mi ha fatto gentilmente notare R. Alberoni, ho fatto un po di casino
con i post ... chiedo pubblicamente scusa a tutti gli utenti di questo ng,
ora invece in merito a quanto dettomi da SIMBA833 ... creo un nuovo post ...
consideratelo come il definitivo ... FINALMENTE!!!
Vi spiego:
ho un dbase access con tabelle collegate ai documenti del mio gestinale
Vision,
in esso gestiamo diverse pratiche tra cui le non conformità.
Nel dbase ho una query che lavorando su appusiti filtri mi compila una
tabella, da quest'ultima ho creato una maschera che tramite un refresh
guidato da macro mi recupera e aggiorna tutti i dati inseriti senza doverla
chiudere.
Ho bisogno di stampare delle etichette da questa maschera e riesco a farlo
in modo automatico in quanto ho adattato il codice dato a netuser giorni fa,
il codice che uso legato ad apposito pulsante di stampa è:
Private Sub Stampa_Click()
On Error GoTo fine:
Dim conta As Integer
conta = 1
giro:
DoCmd.OpenReport "Etichette Spedizione"
If Me.NON_CONFORMITA= conta Then
GoTo fine
Else
conta = conta + 1
GoTo giro:
End If
fine:
End Sub
Alle non conformità attribuiamo un numero doc. allegati e sulla base di
questo n° il sistema stampa altrettante etichette.
Vorrei rendere automatico il flusso in questo modo:
Quando l'aggiornamento dei dati riportati in maschera rileva un nuovo record
in tabella, lo inserisce in maschera e Vi posiziona il cursore, a questo
punto essendosi incrementato il numero dei record in tabella, il sistema
dovrebbe stampare la o le etichette dedicate a quest'ultimo record ...
...è vero manualmente funziona, ma immaginateVi un ambiente frenetico dove
anche questa forse semplice imlementazione può volerd dire ... respirare un
secondo in più, per me poterla rendere funzionante sarebbe un vero e proprio
toccasana.
A mio avviso dovrebbe essere tutto chiaro ... non sono uno sviluppatore per
cui non ho idea della qualità della mia analisi, spero di aver fatto cosa
sufficentemente chiara.
Vi faccio presente anche che ho provato ad adattare il suddetto codice
sull'eventi DOPO INSERIMENTO ma non succede niente.
Mi scuso ancora per la confusione precedente dei miei post e ringrazio tutti
coloro che sapranno darmi una mano.
MC


1. devi mettere un oggetto significativo in  quanto chi cercherà un domani
il tuo stesso problema fra i vecchi post lo potrà trovare.
2. detto cosi, mi pare un discorso troppo caotico, io non lo capisco,
secondo me devi rivolgerti ad uno sviluppatore in sede a pagamento che ti
risolve il problema.
Mi spiace.

 risolve il problema.
Buonaseeeeera....
Antonio

 Antonio
in che sensoooo???

 ha scritto nel
messaggio
news:c6ma1b$ekl$1...@lacerta.tiscalinet.it...

A pagamento.
MAssimiliano

 ha scritto nel messaggio
news:DGIjc.1054$%x6....@news.edisontel.com...

Er pupo piagne...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Trasferire Record

Non so come prelevare i dati da un tracciato in formato txt di cui conosco 
solo le lunghezze dei singoli campi.
Considerato che questi dati mi affluiscono quotidianamente sia su cd che su 
floppy, chiedevo se c'è una procedura per poter acquisire i dati 
direttamente nelle tabelle di un db Access.
Grazie
PS - Manualmente so importarlo ma perdo troppo tempo, così vorrei 
velocizzare. 

 velocizzare.
Lo fai la prima volta manualmente salvando le impostazioni; poi vedi 
nell'help in linea il metodo transfertext...
Ciao.
-- 
Sergio MAZZA 

Valeria Delmonte ha scritto:


Potresti:
1. Importare in un nuovo DB (attraverso il menu File/Carica dati
esterni/Importa) i dati del file di origine (File.txt), ad esempio nella
tabella Tab1;
2. Creare un collegamento ai dati (attraverso il menu File/Carica dati
esterni/Collega tabelle) con un altro nome, ad esempio Tab2;
3. Crearti una query di accodamento che prelevi i dati da Tab2 e li accodi
a quelli in Tab1;
4. Ogni volta che ricevi i file, su floppy o CD, li copi nella directory
dove era il file originario File.txt con lo stesso nome;
5. Lanci la query.
Ciao,
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Volevo ringraziarvi
proverň ormai domani lavorativo.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Problema con record

Il mio problema è il seguente:
Ho creato un piccolo database, in poche parole e un programmino che gestisce
un club, quindi ho una mascera di inserimento dove vado ad immettere tutti i
dati anagrafici del socio, il mio problema nasce al quando vado a stampare
il record creato,questo in realtà non viene stampato ma viene stampato il
primo che ho creato perchè? come posso fare a stampare l'ultimo record da me
inserito? GRazie


Tu dai il comnado
docmd.openreport Tuoreport
Nell'istruzione ci devi mettere come criterio (non filtro) "id = " & 
me.id
ovvio se id è il tuo campo contatore.
Così stampi quello che vedi
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Access 2000 e memoria insufficiente

Salve a Tutti,
Scrivo al NG, per sottoporre alla vostra attenzione il problema che ho ancora con Access
2000.
E' l'unico programma in cui ad un certo punto (circa dopo cinque minuti dal suo avvio) mi
compare il messaggio di memoria insufficiente, nonostante i miei 64 MB di Ram e la
disattivazione di tutti gli elementi ad esecuzione automatica.
Ho provato a reinstallarlo dopo essermi procurato un altro CD ma il problema permane.
In pratica mi brucia improvvisamente le risorse di sistema da un 95% iniziale fino ad
arrivare ad un 6%.
Secondo voi da cosa dipende?
Volevo porvi queste domande:
E' possibile "impostare manualmente l'area di memoria" che un programma in esecuzione va a
prendersi?
Può dipendere dalla configurazione hardware? Il mio Pc comunque non da segni di problemi,
a parte questo.
Questa è la mia configurazione:
Athlon 600, Ram 64 Mb, Hd 15 Gb, Video S3 Savage 4 16 Mb.
Grazie a chi vorrà aiutarmi.
Fabrizio Bratzu

 ha scritto nel messaggio
news:90a7nr$bv1$2...@lacerta.tiscalinet.it...


Per caso hai collegato al DB su cui stai lavorando delle immagini gif?
eventualmente trasformale in BMP e collegale cosě
Cerca di non mettere immagini con molte sfumature di colore.
Puoi anche scaricare dal sito microsoft l'aggiornamento all'Office, (SR1)
che aiuta a correggere i problemi di memoria insufficiente, tuttavia non li
corregge tutti.
Auguri...
ciao Vittň

 ha scritto nel messaggio
news:90anrv$nmo$1...@fe1.cs.interbusiness.it...

puoi provare ad intervenire sulla gestione manuale della memoria virtuale,
cosě da destinare una maggiore memoria alla gestione dello swap file che
access esegue in continuazione. E' un tentativo, anch'io ho avuto questo
problema. poi ho potenziato la ram ed ora tutto va meglio.
ciao
antonio

 ha scritto nel messaggio
news:90a7nr$bv1$2...@lacerta.tiscalinet.it...

Secondo me tralasci di dirci una cosa fondamentale, che sistema operativo
usi!
Io ho win95 e win98 per le cose meno importanti, ma per le cose serie uso
winNT che secondo me è l'unico che gestisce bene la memoria (della famiglia
win).
Girano sulla stessa macchina in partizioni diverse, dovresti vedere che
differenza anche in termini di velocità di esecuzione degli stessi
applicativi: NT veloce, win95 abbastanza veloce, win98 lentissimo anche se
bello ad usarsi.
Ciao, Lo
Newsgroup: it.comp.appl.access
Titolo: esportazione tabella in file .txt da codice

Da una tabella di Access devo ottenere un file di testo. Il problema
consiste nel fatto che le prime due righe del file di testo non
originano dalla tabella ma da alcuni dati fissi(reperibili su altra
tabella) e da alcuni dati opzionali di volta in volta inseriti
dall'utente.
L'esportazione da effettuare è del formato a larghezza fissa e senza
alcuno spazio tra i vari campi dei records.
Potete suggerirmi le righe di codice per effettuare l'operazione?
Grazie

 ha scritto nel messaggio 
news:1116582250.0...@g44g2000cwa.googlegroups.com...

guarda il comando open, prima esporti i dati della prima tabella poi, con 
l'opzione append quelli della seconda.

Per Ciroteo .Ti ringrazio per la risposta.Vorresti essere cosi' cortese
da dirmi come inserisco l'istruzione Append nel mio codice ?
Private Sub CmdCreaFile_Click()
    On Error GoTo CmdCreaFile_Err
    Dim Rst As Object, NumeroArchivio As Long
    'Verifico se il file già esiste
    'se esiste lo cancello
    If Len(Dir(CurrentProject.Path & "\Miofile.txt")) <> 0 Then Kill _
       CurrentProject.Path & "\Miofile.txt"
    Set Rst = CurrentDb.OpenRecordset("Select * From MiaTabella")
    If Rst.EOF = False Then    'ci sono dei records
        Rst.MoveLast
        Rst.MoveFirst
        NumeroArchivio = FreeFile
        Open CurrentProject.Path & "\Miofile.txt" For Output Shared As
#NumeroArchivio
        While Rst.EOF = False
        Print #NumeroArchivo, (RstA("PrimoCampo")); _
                                  Trim(Rst("SecondoCampo")); _
                                  Trim(Rst("TerzoCampo")); _
                                  Rst("QuartoCampo")
            Rst.MoveNext
        Wend
        Close #NumeroArchivio
        MsgBox "Il file è stato creato e te ne mostro il risultato",
vbExclamation, "AVVISO"
        RetVaL = Shell("notepad.exe " & CurrentProject.Path &
"\Miofile.txt", vbMaximizedFocus)
    Else
        MsgBox "Nessun record nella tabella", vbExclamation + vbOKOnly,
"Tabella vuota"
    End If
    Rst.Close
    Set Rst = Nothing
CmdCreaFileError_Exit:
    Exit Sub
CmdCreaFileError_Err:
    MsgBox Error$
    Resume CmdCreaFileError_Exit
End Sub

 ha scritto nel messaggio 
news:1116602367.1...@g14g2000cwa.googlegroups.com...




CmdCreaFileError_Exit:
    Exit Sub

End Sub
Scusami ho visto solo ora il tuo messaggio.
L'istruzione append è un'opzione della funzione open.
nell'help trovi esempi abbastanza chiari a proposito.
Newsgroup: it.comp.appl.access
Titolo: Stampa record non a larghezza fissa

Ho una tabella e vorrei che non mi stampasse i record a larghezza fissa
(esempio)
aaaaa
bbbbb
ccccc
ddddd
oppure
aaaaa        bbbbb        ccccc        dddddd
Ma correi che li stampasse ad esempio cosě:
aaaaa, bbbbb, cccccc, ddddd ecc.
Qualcuno ha fatto una routine per questo ?
Grazie come sempre.
Antonio


Facci sapere, poi troviamo la soluzione
Roberto


Si, devo stampare su un report.
No, non sono campi di un unico record, ma record diversi.
Grazie


dalla barra menů: File > Imposta pagina > Colonne
imposta sia il numero delle colonne che la dimensione
giuseppe

>Ho una tabella e vorrei che non mi stampasse i record a larghezza fissa
scusa, ma che intendi con larghezza fissa?  
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 wrote in message
3996fb6...@news.interbusiness.it...

Ho l'impressione che borrant usi il termine "record" al posto di "campo"
perché la larghezza fissa in un report mi sembra concetto associabile solo
ad un campo (Casella di Testo associata a Campo1)
se l'impressione è esatta devi inserire nella Casella di Testo anziché
l'associazione ad un campo del report una funzione che poi svilupperai nel
modulo del report in questo modo
function LegaCampi()
    LegaCampi = me.campo1 & ", " & me.campo2 & ", " & me.campo3 .....
end function
naturalmente poi nel disporre la larghezza del controllo Casella di Testo
(TextBox) tieni conto che andranno in stampa tutti i dati che potenzialmente
possono essere inseriti nei campi legati dalla funzione
Nel caso che tu intedessi veramente i record che non devono venire stampati
uno sotto l'altro ma uno di seguito all'altro credo non si possa fare ... se
poi qualcuno vi è riuscito ce lo faccia sapere  che impareremo volentieri
AleC
Per scrivermi in privato rimuovi le XXX  XXXaca...@XXXiname.com
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  ...sii attento mentre parli, con le tue parole
  tu crei il mondo intorno a te
                                    detto navajo
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

...

Il concetto che esprimi sopra è giusto, ma io intendo esattamente la stampa
di record diversi e non di campi.
Antonio


Credo, ripeto credo........  non si possa fare perché il report è
concettualmente oimpostato in modo da stampare nel corpo i dati di un solo e
soltanto un solo record
AleC
--

Newsgroup: it.comp.appl.access
Titolo: Funzione IN

Salve a tutti,
volevo sapere come và utilizzata la funzione IN nel query-builder.
Se ho una stringa: "E","P","C"
utilizzando un'espressione nel codice VBA: where controllo IN(stringa), il
tutto funziona
Se invece imposto su una maschera una stringa e poi cerco di testare questa
sul query builder non riesco a farla funzionare. Anzi funziona solo se metto
semplicemente E ma non mi permette di farlo con altri valori
grazie
sdamy

 ha scritto nel messaggio
news:F4JR6.13289$vt.1...@news1.tin.it...

Prova a mettere come separatore di elenco il punto e virgola anziché la
virgola.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
9f7n90$4t8s$1...@stargate1.inet.it...

non funzia nemmeno con il ";"...
non ne vado più fuori.... non vorrei scrivere tutto in codice...
grazie
sdamy

 ha scritto nel messaggio
news:hwJR6.13323$vt.1...@news1.tin.it...

In effetti devi "rispacchettare" l'elenco creato nel controllo della
maschera e ricrearti l'elenco all'interno della funzione IN nella query.
Se il controllo della maschera (di nome Maschera1) in cui hai digitando
l'elenco delle costanti si chiama Pippo, come separatore di elenco hai usato
il punto e virgola e le costanti in elenco sono due, nei criteri della query
devi scrivere una cosa del genere:
In
(Left([Forms]![Maschera1]![Pippo];InStr([Forms]![Maschera1]![Pippo];";")-1);
Right([Forms]![Maschera1]![Pippo];Len([Forms]![Maschera1]![Pippo])-InStr([Fo
rms]![Maschera1]![Pippo];";")))
Se la costante è una sola, devi digitare dopo un punto e virgola.
Puoi sicuramente ottimizzare la cosa con l'uso di funzioni IIF.
Oppure, come dici tu, crearti dinamicamente in VBA una stringa SQL, che
forse è la cosa migliore.

Newsgroup: it.comp.appl.access
Titolo: Non mandatemi ... al sito comune

Salve, preferisco sempre semplificarmi la vita, ma andando sul sito comune,
me la sono complicata:
Ho un controllo "onorario" in cui metto gli importi in numeri con due
decimali, ed un contollo "onorario a lettere", in cui vorrei mi uscisse il
valore del controllo  "onorario" scritto a lettere.
esempio:
12==>Dodici
lo so, è sul sito comune, ma non riesco ad importarla nel mio DB.
Grazie a chi vorrà prendermi in considerazione!!!

 ha scritto nel messaggio
news:9r6op2$qmi$1...@nreada.inwind.it...

Se i controlli della maschera hanno il nome che tu hai indicato.
Se usi come lingua solo l'italiano.
Per prima cosa importa nel tuo database il modulo chiamato modCurrency2Strng
che trovi nei Moduli del database di esempio del Sito Comune.
Quindi a fronte di un evento a tuo piacimento (ad esempio "Su corrente"
della maschera e/o su "Dopo aggiornamento" del tuo controllo Onorario)
genera il seguente codice VBA:
    Dim sNumberValue As String, sCaseValue As String
    EuroCheque Me!Onorario, sNumberValue, sCaseValue, 1
    Me![Onorario a lettere] = sCaseValue
Dovrebbe funzionare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9r9coc$37ui$1...@stargate1.inet.it...

In quale DB di esempio, ho guardato Nortwind, ma non c'e questo modulo.
saluti CF

 ha scritto nel messaggio
news:9rb8ie$4kv$1...@nreada.inwind.it...

Non mi riferivo a Northwind ma al database di esempio da te nominato nel
primo messaggio; ovvero quello allegato alla FAQ del Sito Comune (link qui
sotto), Sezione General, scritta da Federico Luciani ed intitolata
"Convertire numeri in testo (12 => Dodici)".
Lì è contenuta nei Moduli la funzione EuroCheque; io ti ho solo semplificato
il modo per richiamarla, tenendo conto delle tue esigenze.
Comunque importa in toto il modulo modCurrency2Strng.


 ha scritto nel messaggio
news:9r9coc$37ui$1...@stargate1.inet.it...

 Ma dove scaricare il modulo modCurrency2Strng??
In quale esempio??
saluti CF


Vai sul Sito Comune (link qui sotto).
Vai nella Sezione General e dall'elenco che ti compare apri la FAQ
intitolata "Convertire numeri in testo (12 => Dodici)".
Fai il download del file Cur2StrEuro.zip (lo trovi in calce alla FAQ);
unzippalo e nel foder troverai il database in A97 chiamato Cur2StrEuro.mdb .
Apri tale database e premi il tasto funzione F11. Nei Moduli troverai il
modulo chiamato modCurrency2Stirng: importalo nel tuo database.


TI RINGRAZIO DI CUORE PER LA TUA GRANDE DISPONIBILITA'
Saluti Cataldo Formaro

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

Se faccio un'applicazione in Access ho la possibilità di registrarla come
mia da qualche parte?Tipo come si fa con la musica od un libro alla SIAE?
SunRex

 Si certo.Vai sul sito della SIAE.

 mia da qualche parte?Tipo come si fa con la musica od un libro alla SIAE?
In teoria è possibile.
Ma in pratica non risolvi nulla.
Ciao.
Toni

 mia da qualche parte?Tipo come si fa con la musica od un libro alla SIAE?
ovviamente.
alla siae saranno ben lieti di incassare i tuoi soldi.
Speriamo piuttosto che non diventi obbligatorio.
Sib

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

Ciao a tutti!
Nella mia maschera del db ho inserito il pulsante che serve a stampare il
record corrente.
La mascherà però viene stampata così com'è...cioè con lo sfondo...con tutta
la grafica che c'è e con i pulsanti!
Vorrei invece fare in modo che quando decido di stampare il record questo mi
venga stampato senza sfondo...e senza pulsanti, stampando cioè solo i nomi
dei campi e i dati in esso contenuti.
Come si fa?
Ciao, Alberto.

 ha scritto nel messaggio
news:_6bL7.7515$BA4.2...@news1.tin.it...

Creati un report che abbia la stessa origine record della maschera; dai al
report l'impostazione grafica che preferisci; quando apri il report filtraro
in base alla chiave primaria del record corrente della maschera. Apri il
report con un pulsante di comando sistemato nella maschera.
Oppure creati il report, graficamente come lo preferisci, inserisci nel
report solo caselle di testo non associate che, nell'origine controllo,
fanno riferimento ai controlli della maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:_6bL7.7515$BA4.2...@news1.tin.it...

Devi creare un report.
Poi con l'autocomposizione pulsante ti crei un pulsante di comando che
stampi il report con la selezione del record corrente.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: Espellere da VBA un disco da un unità CDROM

Avrei bisogna di sapere come sia possibile da VBA espellere un disco (CD o
DVD) montato su una unità CDROM.
GRAZIE.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio news:CNr7f.7847$65.2...@twister1.libero.it...

Sicuramente con le API
http://support.microsoft.com/kb/109371/it
Ciao.
-- 
Sergio MAZZA 

[CUT]
Ciao Roberto,
giusto x essere sintetico puoi utilizzare le seguenti righe di codice:
Private Declare Function mciSendString Lib "winmm.dll" _
     Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, _
     ByVal lpstrReturnString As String, _
     ByVal uReturnLength As Long, _
     ByVal hwndCallback As Long) As Long
Sub cmdApri_click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End sub
Sub cmdChiudi_click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End sub

 ha scritto nel messaggio
news:435e5781$0$24639$4faf...@reader3.news.tin.it...

Ok grazie funziona, però, visto che io ho installate nel computer più unità
CDROM, non capisco come devo fare ad indicargli la lettera dell'unità che
desidero aprire e chiudere.


 Sergio MAZZA
Ciao.


 desidero aprire e chiudere.
i = mciSendString("open  f:\  type cdaudio alias cd2", 0&, 0, 0)
dai un'occhiata quì:
http://www.geocities.com/smigman.geo/mci/cd.html
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

[CUT]
Ciao Roberto,
penso che con il link di @Alex dovresti risolvere...eventualmente cercheremo 
altre soluzioni ;-)
Buona giornata :-)
Gaspare 

 ----------------------------------------------------
Eh! Eh! Per il Cispadano non ne ho colpa e comunque vedo che è arrivato il Cavalier BARALDI in tuo soccorso...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Cavaliere...?
Sai che il Cavaliere è uno e trino o "la"trino...!


[CUT]
Ciao Sergino -> come butta? Ogni tanto mi pensi? ;-) 


Ciao,
che si parla di "Don Silvio" ? Lasciamo perdere...per amore della pace ;-) 

 @Alex
Ma ha il crino trapiantato...
Ciao.
-- 
Sergio MAZZA 

 Ciao Sergino -> come butta? Ogni tanto mi pensi? ;-)
Butta a sx...
Ciao.
-- 
Sergio MAZZA 

 wrote in message
news:djt9fa$lhj$
1...@area.cu.mi.it

Centro Sx...!


 @Alex


 Gaspare


 ha scritto nel messaggio 
news:YSq8f.12901$65.3...@twister1.libero.it...


 Comunque sia ti ringrazio.
Di nulla figurati: x cosě poco ;-)
Buon week-end a te e famiglia :-) 

 @Alex
Centro, centro no; un poco piů a sx... Sě...
Ciao.
-- 
Sergio MAZZA 


In periferia..
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Centro, centro no; un poco piů a sx... Sě...
Hi, hi, che bevuta...non ci vedo piů... e cosě mentre ti accompagno a casa 
( e lo stesso farai tu con me...in un loop senza uscita) si barcolla un 
pň...

 CdAudio di default per il sistema a prescindere da quale sia l'unità.
Penso sia un'ottima idea.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Runtime 2007 con Office 2010

Buongiorno,
ho da poco fatto ex-novo un PC con WIn 7 Professional SP1, Office 2010 tutto 
aggiornato alle ultimissime patch.
 
Tutte le applicazioni fatte con Access 2007 e compilate per essere 
distribuite funzionano anche su SO uguali sempre 32 bit, win 7 SP1,
su quest'ultima un programma prende errore di ODBC il classico evento 
generico senza altre spiegazioni.
 
ALtre applicazioni che fanno sempre uso di connessioni a SQL Server o 
generano dei PDF, funzionano tranquillamente.
 
Ho cercato nel codice se facesse cose strane ma esegue solo una query e 
visualizza un PDF come fanno gli altri programmi ...
 
Cosa mi suggerite per controllare cosa non va... non vorrei installare 
l'Access 2007 su quella macchina per eseguire delle trace.
 
Grazie mille.
 
 


 
Trovato,
era l'unico programma dove era rimasto il riferimento ad ADO 2.8 mentre per 
lavorare sia con Win 7 SP1 e tutti gli altri devo usare il 2.7 rimpiazzato 
da un Win 7 prima del SP1.
 
Grazie a tutti lo stesso.

Newsgroup: it.comp.appl.access
Titolo: Esportare DB in formato TXT ed Formattare data in formato "testo"

Due problemini in uno.
1) Ho provato a creare un pulsante che esegue una MACRO ("EseguiComano" -->
"Esporta"), scelgo il formato testo, ma non mi da la possibilità di
formattare l'esportazione in modalità a "LARGHEZZA FISSA" come quando lo
faccio manualmente (facendomi scegliere anche la lunghezza dei campi).
2) Sempre per come sopra, devo formattare una data con formato "GG/MM/AAA"
in un formato numerico/testo "ggmmaa"...
La domanda è: come fare? (scommetto che non riuscivate a capire quale
potesse essere la mia domanda ;-)  )

 ha scritto nel messaggio
news:qHIT9.10213$%p6.8...@news.edisontel.com...

1)Non capisco cosa devi esportare, ma penso le Tabelle....???
Prova a vedere l'istruzione TranferText;
DoCmd.TransferText [tipotrasferimento][, nomefilespecifiche], nometabella,
nomefile[, nomicampo][, nometabellaHTML]
se dai un'occhiata all'HELP, come opzione"tipotrasferimento" puoi mettere
acExportFixed che è esattamente
quello che cerchi.
2)MyStr = Format(MyDate, "ddmmyy") ' Restituisce "mercoledì, gen 27 1993".
   dovrebbe funzionare......!
@Alex.
Newsgroup: it.comp.appl.access
Titolo: Casella Combinata

Buona sera a tutto il News,
come evitare lo spostamento della casella combinata? mi spiego... ho una CC 
che prima di aggiornare la FRM  deve controllare se in una casella di text c 
� del valore o meno. Con il controllo che faccio "prima di aggiornare" la CC 
non aggiorna la FRM e sin qui tutto ok, per� il valore della CC cambia a 
quello che seleziono, come evitare ci�? esempio :
28/04/2009     'CC che sto visualizzando
29/04/2009    ' Mi sposto sul 29/04/2009
a questo punto non aggiorna la FRM perche c � questo evento:
Private Sub CC_BeforeUpdate(Cancel As Integer)
If Len(Me.Text.Value & "") = 0 Then
MsgBox "pippo"
Cancel = True
End If
End Sub.
per� la CC rimane su 29/04/2009
ed io vorrei che rimanesse su 28/04/2009 cio� prima della selezione, mi date 
un indicazione su come posso procedere?
Grazie in anticipo a tutti. 

 End Sub.
ciao
-- 
Roberto da Parma 

 Grazie in anticipo a tutti.
Se la CC è associata hai a dsposizione la proprietà [OldValue] che
recupera il valore precedente... altrimenti siccome sei in
BeforeUpdate il valore letto sulla CC è ancora il precedente... quindi
lo forzi...!
@Alex

Newsgroup: it.comp.appl.access
Titolo: Normalizzazione database: è giusto?

Buongiorno a tutti,
Situazione: esiste Sede che puň possedere piů SottoSedi le quali, a loro
volta, possono possedere delle SottoSottoSedi (Perdonate la scelta dei
vocaboli)
La Sede puň avere diversi dipendenti sotto di lei, distribuiti anche nelle
SottoSedi e nelle SottoSottoSedi
Ora: come costruire un database ben normalizzato?
Io ho fatto cosě:
Tabella SEDE:
* ID_Sede (Chiave primaria)
nominativo
altri campi
Tabella SottoSede
* ID_SottoSede
Altri campi
# ID_Sede (Chiave esterna che si riferisce a chiave primaria di tabella
Sede)
Tabella SottoSottoSede
* ID_SottoSottoSede
Altri campi
# ID_SottoSede (Chiave esterna che si riferisce a chiave primaria di tabella
SottoSede)
Tabella Dipendenti
* ID_Dipendentee
Altri campi
# ID_Sede (Chiave esterna che si riferisce a chiave primaria di tabella
Sede)
Secondo voi č giusto?
Bastano queste relazioni, ad esempio, per sapere tutti i dipendenti presenti
in una SottoSottoSede? (Sarebbero dati collegati indirettamente)
Come sarebbe la stringa SQL in questo caso?
Vi ringrazio infinitamente
Max

Newsgroup: it.comp.appl.access
Titolo: Sito su Access: tips, tools, ecc.

Vorrei segnalare il sito:
http://www.aadconsulting.com
 

 
http://www.aadconsulting.com
Interssante, tks
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: info su versione runtime di access

Scusate, vi avevo già fatto questa domanda, ma non ho ricevuto alcuna
risposta ... ci riprovo.
In un programma che sto sviluppando o la necessità di sapere
se il pc che utilizza il mio applicativo ha una versione standard di access
oltre alla versione runtime che io faccio installare tramite setup.
Tramite il comando Version e l'elenco delle reference riesco a sapere la
versione di access ed altre info, ma come posso sapere se il pc ha altre
versioni di access installate?
Ciao e grazie per i suggerimenti.

 wrote in message
news:ci3sbc$gl4$
1...@newsserver.cilea.it

Cosa ti serve sapere questo...???
Immagino perchè potresti avere problemi
sul lancio dell'applicativo se prima è stata
aperta una versione di Access differente....!!
Se è così ti basta comporre il Link del ShortCut
in modo completo, in pratica lanci prima il tuo
ACCESS.EXE poi l'applicativo.
Il problema è che in qualsiasi caso viene riconosciuto solo
quello lanciato l'ultima volta.
(Almeno io ho avuto questo problema)
In particolare la tua domanda non può essere
risolta, quello che tu vuoi controllare deve essere
fatto dal pacchetto d'intallazione.
Io uso InnoSetup e prevede la possibilità di eseguire
script in Pascal per condizionare l'installazione...!!
Io ho risolto leggendo dal Registro la posizione della
versione che sò essere installata ed ho condizionato 
la stringa di chiamata dei collegamenti sul DeskTop e nella barra
 
Ciao.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:a57e6828a89b5d0896...@mygate.mailgate.org...

Il problema ce l'ho sempre per la gestione delle foto. Inizialmente
utilizzavo il metodo di associare ad un oggetto picture la foto, ma questo
metodo non funziona se sul pc è installata solo la versione runtime di
access. Di conseguenza ho utilizzato l'activex della kodak, il quale però
ogni tanto non mi legge i jpeg che al contrario la picture legge.
Probabilmente alcuni jpeg utilizzano algoritmi di compressioni non
compatibili con l'activex della Kodak. Avevo pensato, tramite la gestione
degli errori, di utilizzare l'activex come sistema di visualizzazione delle
foto primario (risulta anche più veloce), però in caso di errore avrei
nascosto l'oggetto sostituendolo con la picture, però prima di passare a
questo metodo volevo controllare se era installata la sola versione runtime
di access oppure no. Nel primo caso avrei visualizzato un messaggio di
errore tipo "foto non leggibile", altrimenti l'utente non si sarebbe accorto
del passaggio di visualizzazione della foto.
Ciao e grazie.
Newsgroup: it.comp.appl.access
Titolo: Convertite un valore numerico in una data

Posso convertitre un valore numerico in una data
esempio
valore 010699 converto in un campo data, cosi diventa 01/giu/99! è possibile
farlo???
--

 --
La funzione con cui puoi risolvere il tuo problema č la DateSerial (vedi
help) e la scriverai in maniera diversa a seconda dell'ambito in cui stai
operando.
Inoltre l'oggetto che contiene il valore 010699 deve avere come tipo dato
testo e non numerico.
Per esempio, se sei in una maschera dove hai un controllo chiamato Pippo
associato ad un campo di tipo testo che contiene il valore 010699; se poi
nella maschera hai una casella di testo non associata chiamata Pluto dove
vuoi come risultato 01/giu/99, nell'origine controllo del controllo Pluto
scrivi:
=DateSerial(Right([Pippo];2);Mid([Pippo];3;2);Left([Pippo];2))
ed imposta il formato di Pluto a Data breve.
Se lo stesso risultato lo vuoi ottenere con una riga di codice VBA in una
maschera con visualizzazione a Maschere singole, scrivi:
Me!Pluto = Format(DateSerial _
(Right(Me!Pippo, 2), Mid(Me!Pippo, 3, 2), _
Left(Me!Pippo, 2)), "dd/mmm/yyyy")
Se poi il tutto lo vuoi fare in un campo calcolato di una query, nella riga
Campo di una colonna vuota della query scrivi:
Pluto: DateSerial(Right([Pippo];2);Mid([Pippo];3;2);Left([Pippo];2))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9o4vhn$j85$1...@fe1.cs.interbusiness.it...

Guardati CDate()
Comunque 010699 non e' un valore numerico (i quali non ammettono zeri
iniziali) e poi devi trasformarlo in 01/06/99 perche' la funzione possa
convertirlo in formato data
Sib
Newsgroup: it.comp.appl.access
Titolo: gettatemi un salvagente

Ciao a tutti.
Ecco il problema.
Ho a che fare con Access 2000 in versione italiana.
Sono stati creati 2 file mdb. Uno (1) contiene solo le tabelle con i dati.
L'altro (2) contiene tutto il resto (maschere, query, ecc.).
Il primo file, quello con i dati, è stato collocato sul server di rete.
L'altro (2) è collocato localmente sui pc dei vari utenti di rete.
I due file sono stati collegati (collegamento tabelle) in modo tale che da
(2) si possa accedere ai dati che stanno sul server in (1).
Problema: l'apertura di maschere è lentissima. Le maschere di
visualizzazione e di ricerca che attingono alle tabelle sul server impiegano
dai 15 ai 30 secondi. Un po' troppo. A volte il programma si inchioda pure!
Cosa fare?
Io ho provato:
- compattamento data base.
- analizzatore...ma il data base non ha bisogno di essere ristrutturato....
- inserimento di chiavi e indici
Ho misurato la rete. Non ha problemi. I dati viaggiano a 10 Mbps.
Il file con le tabelle occupa solo 2 MB.
Le maschere non contengono controlli particolari: solo caselle di testo, di
riepilogo e combinate. Non ci sono immagini.
Tra i  pc da cui gli utenti accedono ci sono anche Pentium 3 a 900 Mhz.
La cosa diventa interessante perchè in una cartella del server è stato
inserito un altro db di sole tabelle di 20 MB. Questa volta però gli utenti
vi accedono senza problemi. Le maschere si aprono subito!
Che posso fare in aggiunta a ciò che ho già fatto?
Grazie
Sergio

 ha scritto nel messaggio
news:fVzy8.102148$SR5.2...@twister1.libero.it...

Se sulle maschere ci sono dei controlli con dlookup, dmax, ecc. prova un po'
ad eliminarli o ridurli. E' un problema che ho incontrato anch'io e facendo
in questo modo ho ridotto notevolmente i tempi.
Ciao, Salvatore
Newsgroup: it.comp.appl.access
Titolo: Per evitare doppie registrazioni

Salve a tutti, con A97, utilizzo il BE Mysql.
Per evitare doppie registrazioni uguali, come posso fare?
In pratica:
oltre alla chiave primaria "ID" (autoincrementale), che non basta al mio 
scopo, ho provato a creare un nuovo indice con impostazione "UNIQUE", il 
quale č composto da 3 campi diversi, i quali, non possono trovarsi 
contemporaneamente in piů di un record (esempio: Cliente, Anno e mese, solo 
una volta potranno essere registrati).
Questo funziona, ma ho notato un notevole rallentamento delle prestazioni, 
anche con una semplice query di lettura.
Sapete dirmi il perchč?
Devo forse creare una primary key composta da tutti i campi suddetti?
Grazie a tutti
Marco 

 ha scritto nel messaggio
news:8PJWi.192$Hn....@tornado.fastwebnet.it...

Scusa ma a che serve una PK se poi non la usi...?
Hai usato una PK Counter che nel tuo caso non serve a nulla invece di
crearti una PK
dedicata per le Registrazioni e di conseguenza usare quella nelle Relazioni
tra tabelle.
Mi sembra che siamo fuori strada....
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 
Beh...c'e' la moda dei SUV.
-- 
ac
y-1=x

 y-1=x
4x4
;-)


 wrote in message 
news:8PJWi.192$Hn....@tornado.fastwebnet.it...

Sě, se puoi fare a meno della PrimaryKey sull'ID AutoNumber.
Diversamente io mi sono comportato come segue:
1 - ho creato una Sub che mi controlla l'esistenza di duplicazioni
2 - eseguo tale Sub in OnClose della Form di input
La mia Sub in effetti piů che controllare elimina sic et simpliciter
le duplicazioni senza nemmeno avvisarmi.
Ma ciň č una scelta particolare...
Bruno

 ha scritto nel messaggio 
news:472c6cb3$0$37207$4faf...@reader3.news.tin.it...

E' vero Bruno, questa č in effetti un'alternativa!
Grazie 1000
Marco
Newsgroup: it.comp.appl.access
Titolo: Consiglio per interfaccia DB unica (è un po' OT)

Buongiorno,
in azienda faccio delle applicazioni su vari Database.
Normalmente mi collego a tabelle DB Access, Informix, SQL server.
Inoltre,a volte , a file .xls o formato csv.
Per bagaglio storico mi riesce difficile ridurre ma vorrei
semplificare la mia rete.
Ho sentito che esistono delle applicazioni che permettono di avere
un'interfaccia unica cui accedere.
Da quel che ho capito l'applicazione dovrebbe fare dei link ai vari
formati, poi io dovrei riuscire a collegarmi alle tabelle in questa
applicazione con un'unico drive (ODBC?) mantenendo l'integrità dei
dati. Per me il massimo sarebbe collegarmi con Access e usare SQL.
Spero di esser stato chiaro e di non chiedere la luna.
La domanda:
Qualcuno ha gia' esperienza di questo e/o puo' darmi dei consigli?
Mi basterebbero anche dei nomi di sw oppure idee su come fare.
Saluti, mpio.

 ha scritto nel messaggio 
news:1e09c594-b200-4508...@z4g2000yqa.googlegroups.com...

-----------------------------------------
A mio avviso e per l'interfaccia Access va benissimo.
Via ODBC si collega praticamente a tutti i tipi di database e puoi quindi 
avere tutte le tabelle collegate che desideri.
A te poi il compito di creare una solida ed elegante oltre che funzionale 
interfaccia.
Ciao, Carlo

 ha scritto nel messaggionews:1e09c594-b200-4508...@z4g2000yqa.googlegroups.com...

Si, ora sto facendo così, cercando di essere il più ordinato
possibile.
Vista l'età e la pigrizia galoppanti avrei voluto una cosa comoda che
unificasse il mio mondo.
Chiaccherando con conoscenti sembra che SAP Business Objects XI
farebbe al caso mio,
ma è un prodotto megagalattico per le mie prossibilità.
Ultima cosa:
mi è stato consigliato di vedere la nuova versione di Visual Studio,
proverò a fare anche questa analisi.
Grazie per la risposta,
caio, mpio.

Newsgroup: it.comp.appl.access
Titolo: Codici a barre

Ciao a tutti,
io insegno e vorrei utilizzare per la correzione veloce di alcune verifiche i
codici a barre, ma sono completamente asciutto sull'argomento; in giro ho
trovato solo aziende che ti forniscono pacchetti completi, e io sono un
incallito faidate. Qualcuno mi può dare una dritta sull'abc e programmi,...
Ciao, Grazie,    Coala
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 incallito faidate. Qualcuno mi puņ dare una dritta sull'abc e


 Ciao, Grazie,    Coala
cerca nei messaggi vecchi, se ne è parlato decine di volte :-)
Max
Newsgroup: it.comp.appl.access
Titolo: Date dal... al...

Ho due tabelle, una i lavori in macchina, fatta piu' o meno:
Articolo, macchina, giorno di inizio, giorno di fine.
Poi ho la tabella dei giorni lavorativi, magari non serve, comunque e':
giorno
Finita li', solo l'elenco dei giorni lavorativi, mi serve per fare calcoli
velocemente.
Adesso vorrei fare una queri che mi esplode una riga per ogni giorno che e'
impegnata, cioe'
Articolo, macchina, giorno impegnata.
------
Non ho la piu' pallida idea di come fare, ci penso da mezz'ora, non mi
viene neanche una idea.

 Non ho la piu' pallida idea di come fare
Ecco che a parlarne gia' e' utile:
SELECT [Carico macchine].Risorsa, [Carico macchine].inizio, [Carico
macchine].Articolo, GLAV.DATA, [Carico macchine].Operazione, [Carico
macchine].fineprevista
FROM GLAV, [Carico macchine] INNER JOIN LAVORATE ON [Carico
macchine].Articolo = LAVORATE.CodArti
WHERE (((GLAV.DATA)>=[inizio] And (GLAV.DATA)<[fineprevista]) AND (([Carico
macchine].fine) Is Null) AND (([Carico macchine].Operazione)="14"))
ORDER BY [Carico macchine].Risorsa, GLAV.DATA;
Questo va molto vicino a quello che ho bisogno, non sapevo che si potesse
mettere una tabella senza fare il join di un campo.
Newsgroup: it.comp.appl.access
Titolo: nome computer in rete

Come posso fare per visualizzare in un controllo il nome del computer 
dal quale mi sto collegando al db.
Mi è necessario per legarlo al corrent user.
grazie
-- 
Posted from 151.26.17.76 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto:
Come posso fare per visualizzare in un controllo il nome del computer
dal quale mi sto collegando al db.
Mi è necessario per legarlo al corrent user.
*****
Qualche link per il codice (API):
User, Computer Name, Domain, Workgroup:
http://support.microsoft.com/support/kb/articles/Q148/8/35.asp
http://support.microsoft.com/support/kb/articles/Q210/0/88.asp
User Name:
http://www.mvps.org/access/api/api0008.htm
http://support.microsoft.com/support/kb/articles/Q161/3/94.asp
Computer Name:
http://www.mvps.org/access/api/api0009.htm
NT Domain:
http://www.mvps.org/access/api/api0040.htm
UNC Path:
http://support.microsoft.com/support/kb/articles/Q160/5/29.asp
--
HTH
Karl
*********
Scusate il mio malissimo italiano. Faccio solo esercizi qui.
Access-FAQ (tedesco): 
http://www.donkarl.com

 wrote in message
<Come posso fare per visualizzare in un controllo il nome del computer
<dal quale mi sto collegando al db.
<Mi è necessario per legarlo al corrent user.
<grazie
Ciao, ti mando il codice:
    Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal _
       lpBuffer As String, nSize As Long) As Long
       Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&
'
'Funzione che ottiene il nome della macchina
'
       Public Function CurrentMachineName() As String
       Dim lSize As Long
       Dim sBuffer As String
       sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
       lSize = Len(sBuffer)
          If GetComputerName(sBuffer, lSize) Then
              CurrentMachineName = Left$(sBuffer, lSize)
          End If
       End Function
Saluti a tutti
                            Flavio
Newsgroup: it.comp.appl.access
Titolo: accodare una stringa ad un campo

Ciao a tutti.
Devo modificare una serie di record che soddisfano alcuni criteri
accodando ad un campo una stringa che si va ad aggiungere a quella già
presente nel campo.
Il campo si chiama "attivita",e devo accodare in questo campo la
stringa "-assicurare la sicurezza delle informazioni" tale che il
contenuto del campo sia dato da: valore attuale + "-assicurare la
sicurezza delle informazioni".
Questa aggiunta deve avvenire soltanto nei record che presentano nel
campo "ebene" il valore 2 OR 3 OR 4 OR 5
Un'ultima cosa, prima del segno "-" della stringa, ci dovrebbe essere
la pressione del tasto INVIO perchè in pratica la stringa è uno dei
punti di un elenco contenuto nel campo "attivita" e ogni punto deve
andare a capo (spero di essermi spiegato)
Non so come poter fare il tutto, immagino si possa fare con una macro
in VB ma non saprei proprio che codice usare.
Grazie

Grazie


  Non sono sicuro di avere capito se per "pressione del tasto INVIO" intendi
che il testo deve andare a capo. Se è così...
In una maschera che elenca i dati, ho messo un pulsante col seguente codice.
    Dim acapo As String
    Dim aggiunta As String
    acapo = Chr(13) + Chr(10)
    aggiunta = "-assicurare la sicurezza delle informazioni"
    DoCmd.RunSQL "UPDATE tabella1 SET attivita = '" & attivita & "' + '" & acapo
& "' + '" & aggiunta & "' WHERE ebene < 6 and ebene > 1;"
Attenzione alle virgolette semplici e alle virgolette doppie.
Ma soprattutto: attenzione che due pressioni del tasto accodano due volte la
scritta. Se però è un evento attivato dal codice una tantum non dovrebbero
esserci problemi.
Se però il dato è destinato a cambiare (per es. il valore di [ebene] cambia
e la scritta in un certo record non ci vuole più), allora suggerirei una
scritta che compare ma non modifica il record.
Allora ho fatto una query1 che contiene tutti i campi della tabella di
origine, ma al posto del campo [attivita] ha un campo con scritto:
a: iif([ebene] > 6 or [ebene] < 1;[attivita] & chr(13) & chr(10) &
"-assicurare la sicurezza delle informazioni";[attivita])
La maschera avrà il dato [a] come origine record e visualizzerà la scritta
solo dove necessario. Se un valore di [ebene] cambia, è aggiornato il
valore.
Ciao
Riccardo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Fatto. Grazie ad entrambi!

Newsgroup: it.comp.appl.access
Titolo: Problema col report

ciao!
ho un problemino coi totali... ho fatto un report che riporta le varie
assistenze telefoniche; ho messo i campi "DA ORA" "A ORA", ed un totale
tempo effettivo... e fin qui tutto ok. ora voglio mettere un totale
globale, ma solo sull'ultima pagina del report: come faccio?!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
e2dd090f4c3bfdd0a98...@mygate.mailgate.org...

mettilo in pie di pagina report