mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Suddividere Report N Fattura per generare file PDF

Ciao a tutti,
sono sempre qui con domande riguardo a PDF.
Sto usando il codice di lemans per creare file PDF da un report, e fin qui 
tutto OK.
Ora io ho un report lungo con dentro immaginiamo 100 Fatture e vorrei creare 
per ogni singola Fattura un file.
All'einterno del reporto ho messo questo:
Private Sub Report_Page()
Dim blRet As Boolean
blRet = ConvertReportToPDF("Ristampa Fatture", vbNullString, 
"C:\Temp\Fattura_N_" & Me.N_Fattura & "_Del_" & Day(Me.Data_Export) & "-" & 
Month(Me.Data_Export) & "-" & Year(Me.Data_Export) & ".PDF", False, False)
End Sub
Se ho un report basato su una form che va dalla fattura N. alla fattura N.
come posso ciclare il tutto perchè mi generi un file per fattura?
Per ora ho generato un'unico file Fattura_N_15_Del_25-1-2008.PDF
Ciao a tutti Cesco 

 ha scritto nel messaggio 
news:iMBPk.184372$FR.4...@twister1.libero.it...

Ho provato in questo modo ma sicuro non va bene
Public Function CreaPDF_Fatture() As String
Dim rcs As DAO.Recordset
Dim i As Integer, MiaStringa As String
Dim blRet As Boolean
Set rcs = CurrentDb.OpenRecordset("Prova")
rcs.MoveLast
rcs.MoveFirst
MiaStringa = "Fattura_N_"
For i = 1 To rcs.RecordCount
MiaStringa = MiaStringa & rcs!N_Fattura
rcs!blRet = ConvertReportToPDF("Ristampa Fatture", vbNullString, 
"C:\Temp\Fattura_N_" & rst![N_Fattura] & ".PDF", False, False)
rcs.MoveNext
Next i
rcs.Close
Set rcs = Nothing
End Function
C'è modo di ciclare questo ConvertReportToPDF in maniera che ad ogni cambio 
di N_Fattura mi crei un file PDF nominato con il numero della fattura .PDF?
Ciao Cesco 

 ha scritto nel messaggio 
news:iMBPk.184372$FR.4...@twister1.libero.it...

Mi correggo da solo il codice è questo... ma mi crea solo la prima fattura 
ora ci ragiono meglio:
Public Function CreaPDF_Fatture() As String
Dim rcs As DAO.Recordset
Dim i As Integer, MiaStringa As String
Dim blRet As Boolean
Set rcs = CurrentDb.OpenRecordset("Prova")
rcs.MoveLast
rcs.MoveFirst
MiaStringa = "Fattura_N_"
For i = 1 To rcs.RecordCount
MiaStringa = MiaStringa & rcs!N_Fattura
blRet = ConvertReportToPDF("Ristampa Fatture", vbNullString, 
"C:\Temp\Fattura_N_" & rcs!N_Fattura & ".PDF", False, False)

Newsgroup: it.comp.appl.access
Titolo: Urgente Please !!!

Ciao a tutti e grazie a chi potrà aiutarmi per questo mio problema urgente :
ACCESS 97 :
Ho una maschera principale (frmContratti) che contiene un oggetto (frmCon)
che ha come oggetto origine una maschera continua (frmListaCon) che contiene
record.
Vorrei che  all'evento Activate di frmContratti il selettore record di
frmListaCon mi si posizionasse sull'ultimo.
Avevo provato in questo modo :
MODULO : frmContratti
**********************
Private Sub Form_Activate()
        Forms![frmContratti]![frmCon].SetFocus
        DoCmd.GoToRecord acDataForm,  , acLast
End Sub
**********************
Ma mi dà errore : Errore di run-time '2493' -
                            Per l'azione è necessario l'argomento nome
oggetto !
Allora se provo così :
MODULO : frmContratti
**********************
Private Sub Form_Activate()
        Forms![frmContratti]![frmCon].SetFocus
        DoCmd.GoToRecord acDataForm, "frmCon" , acLast
End Sub
**********************
Mi dà errore : Errore di run-time '2489' -
                      L'oggetto 'frmCon' non è aperto
Così come anche provando con :
MODULO : frmContratti
**********************
Private Sub Form_Activate()
        Forms![frmContratti]![frmCon].SetFocus
        DoCmd.GoToRecord acDataForm, "frmListaCon" , acLast
End Sub
**********************
Mi dà errore : Errore di run-time '2489' -
                      L'oggetto 'frmListaCon' non è aperto
Come posso fare ????
Vi prego è urgente !!!!GRAZIE!!


Per prima cosa non adoperare un Subject cosě generico e non rappresentativo
del tuo problema: non tutti i frequentatori del NG sono curiosi quanto me;
anzi la stragrande maggioranza non legge (e quindi non risponde) messaggi
che non abbiano un Subject significativo.
Insomma, nel tuo interesse, in futuro usa un Subject che riassume il tuo
problema.
Comunque, prova con:
Me!frmCon.SetFocus
DoCmd.GoToRecord , , acLast
Ma sei sicuro che devi generare il codice VBA a fronte dell'evento "Su
attivazione" della maschera frmContratti, ovvero eseguirlo solo quando tale
maschera prende lo stato attivo?
Pensavo fosse pů logico farlo a fronte dell'evento "Su corrente", ovvero
ogni volta che viene visualizzato un nuovo record nella maschera
frmContratti.
Comunque vedi tu.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Pensavo fosse pù logico farlo a fronte dell'evento "Su corrente", ovvero


 Purtroppo nella forma proposta da te ho ancora gli errori già citati.
Quando rispondi, scrivi dopo e non prima del testo dei messaggi precedenti.
Per scrupolo ho provato la soluzione che ti ho suggerito e a me funziona
perfettamente; non riesco ad ipotizzare perché a te non funzioni.

Newsgroup: it.comp.appl.access
Titolo: perso in un...

come posso fare per inserire direttamente il valore di un campo di una
maschera in una tabella senza passare per una casella che punta alla
tabella?
Grazie e ciao

 tabella?
Aprendo un recordset o con una query di aggiornamento
Sib
--
qualita.assicurazione su 
www.cerrinet.it
Il newsgroup sulla Qualita'


wrote:

via codice....
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Query: conferme per query accodamento ed eliminazione

Salve a tutti,
ho creato due query, una di accodamento ed una di eliminazione.
Siccome devo eseguirle una di seguito all'altra ho creato una macro.
Ho inserito la macro sulla proprietà "su chiusura" di una maschera.
Fino a qualche giorno fa quando venivano eseguite mi davano dei messaggi di
conferma in tutto 5.
da qualche giorno invece questi messaggi non compaiono più ma le query
vengono eseguite correttamente.
Succede però che trasportando il db su un altro computer i messaggi
ricompaiono.
Vorrei sapere:
1) Perchè sul mio PC (Win 98 - Access 2002) non compaiono più i messaggi;
2) Se è possibile "disabilitare" i messaggi di conferma su gli altri
computer.
Grazie Luca.


Nel nuovo pc hai settato tra le proprietà
conferme query eliminazioni
cmq 
www.donkarl.com/it
trovi quello che cerchi
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: WhatsApp Api con Access qualcuno ci ha familiarizzato?

Buongiorno, 
 
qualcuno ha già familiarizzato con WhatsApp Api in Access?

 qualcuno ha già familiarizzato con WhatsApp Api in Access?
 
 
Fai una domanda precisa
Altrimenti ci perdiamo la gioventu' ad arrivare al nocciolo del discorso

 qualcuno ha già familiarizzato con WhatsApp Api in Access?
 
 
penso ti riferisca alle API BUSINESS
qui trovi tutte le risposte possibili
https://developers.facebook.com/docs/whatsapp/cloud-api
 
 
 
se il tuo intento è quello di inviare messaggi (da account business) da 
Access la soluzione è sempre quella della chiamata curl con header e 
body appositamente construiti
(ovviamente vanno fatte tutte le registrazioni del caso)
trovi i prezzi nel portale
se non ricordo male entro un certo numero di conversazioni al mese non 
paghi nulla. (come le api google in pratica)
 
 
se invece ti riferisci al fatto di inviare messaggi da whatapp (normale) 
se non è cambiato qualcosa negli ultimi mesi, puoi solo aprire la pagina 
whatapp versione web gia con il messaggio scritto. per l'invio devi 
premere a manina "send"
sempre salvo smentite degli ultimi mesi infatti whatapp vieta 
espressamente l'invio "automatico" di messaggi
 
BFS
 
 


La domanda è:
un cliente invia un messaggio all'azienda nella chat di whatsapp business questo messaggio oltre ad arrivare nella chat di whatsapp business viene salvato anche in un database mysql online per altri utilizzi.
Newsgroup: it.comp.appl.access
Titolo: Errore di run-time con oggetto AcroPDF6

Buon giorno a tutti,
ho rilevato un comportamento -per me- piuttosto anomalo nell'utilizzo
dell'oggetto AcroPDF6. Mi spiego meglio premettendo di aver sviluppato
il DB con A2003 e di aver regolarmente inserito tutti i riferimenti
necessari sulle due macchine in cui il DB va in esecuzione. Per
visualizzare files pdf in maschera uso la procedura:
Private Sub Form_Current()
    If IsNull(Me.Path_Foto) Then
        Me.AcroPDF6.Visible = False
    Else
        If Dir(Me.Path_Foto) <> "" Then
            Me.AcroPDF6.Visible = True
            Me.AcroPDF6.LoadFile Me.Path_Foto
            Me.AcroPDF6.Height = 8250
            Me.AcroPDF6.Width = 10750
        Else
            Me.AcroPDF6.Visible = False
        End If
    End If
End Sub
La stessa, a parità di utilizzo, su un computer non da nessun
problema, su un altro evidenzia il seguente errore:
Errore di run-time 438
Proprietà o metodo non supportati dall'oggetto.
ed il debug evidenzia l'errore sulla riga:
            Me.AcroPDF6.LoadFile Me.Path_Foto
Di cosa si può trattare ?
Grazie per la solita pazienza ed aiuto che mi vorrete fornire.

Errore di run-time 438
Proprietà o metodo non supportati dall'oggetto.
ed il debug evidenzia l'errore sulla riga:
            Me.AcroPDF6.LoadFile Me.Path_Foto
Di cosa si può trattare ?
------------------
...differenza di versione di acrobat sulle 2 macchine?
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 


...purtroppo no, nessuna diversità, entrambe AdobeReader9 ...
Newsgroup: it.comp.appl.access
Titolo: Report campi per totalizzazione

La base dati è una query alla quale applico un report che mi deve 
totalizzare un campo quantita'
Le totalizzazioni sono 2 più quella di gran totale
La totalizzazione deve essere diversificata per il valore di un campo "TIPO" 
(avrà valore INT o EST)
Cosi' ho pensato di creare 2 campi e a livello di detail nel report 
valorizzarli con IIF
Poi nelle varie totalizzazioni, fare il totale di questi 2 campi ma non mi 
funziona
Ho provato a fare dicersi campi per ogni totale ma poi ho avuto prob. 
nell'azzeramento di ogni heading nuovo
     Detail :    tipo: INT    qta 10
                   tipo: INT     qta 20
   Totale1(tipo)                    30
                   tipo: EST    qta  5
                   tipo: EST    qta10
   Totale1(tipo)                   15
Totale 2 ----- INT: 30     EST: 15
ecc
ecc
Vorrei capire come definire i campi e com escrivere il codice all'interno 
del report.
Sommatorie varie e azzeramenti parziali dei vari campi di totale
La soluzione l'ho fatta creando a livello di query i 2 campi quantità QtaINT 
e QtaEST e su questi far lavorare il report con i suoi totali automatici per 
sezione, pero' ripeto vorrei capire come fare a livello di codice
Grazie

 ha scritto nel messaggio 
news:462f6e3f$0$36451$4faf...@reader5.news.tin.it...

Devi creare un gruppo (Visualizza - Raggruppamento Ordinamento) per il campo 
TIPO; visualizzi l'intestazione e il piè di pagina del gruppo; nel piè di 
pagina del gruppo puoi ottenere la somma con una casella di testo non 
associata che ha come origine controllo: Somma(qta).
Per avere il totale di tutti i gruppi devi visualizzare il piè di pagina 
report; e inserire la stessa casella di controllo (copia/incolla) con la 
funzione: Somma(qta).
Se vuoi anche un riepilogo dei gruppi, crei un sottoreport; con la stessa 
base dati; con lo stesso gruppo ma senza controlli nel corpo (dettaglio) e 
totali per gruppo...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Ricerca tra campi

Ciao a tutti!!!
Il problema è il seguente...
Ho una query che si aggiorna alla pressione di un bottone secondo dei valori
ben precisi...
adesso vorrei che con la pressione di un altro bottone ... il prog. cercasse
nella query una parola per esempio "Prova", che io inserisco in una casella
di testo  della maschera e il filtro mi cercasse tutti i campi non i record
ma i campi, dove e presente questa parola.... poi che mi contasse anche
quuante volte la trovata.... si puo fare.... aiuto!!!!
Grazie mille...!!!

 Grazie mille...!!!
Prego diecimila...!!!
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: collegare maschere con word

Carissimi amici,
aiutatemi a risorvere questo problema!
Ho una maschera con i relativi record e desidero che da essa venga aperto un
file di word gią compilato con i valori presenti del record attivo nella
maschera.
Ciao Pietro

 ha scritto nel messaggio
news:8gqh2v$ak5$1...@serv1.iunet.it...

Hai gią provato con la stampa unione (di Word)?
Ciao.

 maschera.
Se devi stampare più documenti Word con in ognuno i dati di ogni record
allora la soluzione è quella suggerita da Mazza. Se invece desideri stampare
un solo documento con solo i dati contenuti in quella specifica maschera
allora devi ricorre ai segnalibri in Word e nella maschera devi aggiungere
un pulsante che richiami la seguente routine routine che faccia il lavoro.
Per dovere di correttezza, non è farina del mio sacco!
Avevo anche io questo problema e gentilmente mi è stata suggerita la
soluzione da Dott. Mario Salvetti, Responsabile settore sviluppo software
Agenzia per la Protezione dell' Ambiente Torino, che approfitto per
ringraziarlo e grazie anche agli amici del newsgroup.
Private Sub Comando10_Click()
Dim appWd As Word.Application
Dim WordDoc As Word.Document
        Set appWd = New Word.Application
        appWd.Visible = True
        Set WordDoc = appWd.Documents.Open("D:\documenti\docsProva.doc")
    With appWd
        .ActiveDocument.Bookmarks("Cognome").Select
        .Selection.InsertAfter Nz(Me!Cognome)
        .ActiveDocument.Bookmarks("Nome").Select
        .Selection.InsertAfter Nz(Me!Nome)
        .ActiveDocument.Bookmarks("Indirizzo").Select
        .Selection.InsertAfter Nz(Me!Indirizzo)
        .ActiveDocument.Bookmarks("Città").Select
        .Selection.InsertAfter Nz(Me!Città)
        .WindowState = wdWindowStateMaximize
    End With
Set appWd = Nothing
End Sub

Newsgroup: it.comp.appl.access
Titolo: importare file xls da cartella a scelta

Vorrei dare la possibilitï¿œ di importare un file xls facendoglielo 
scegliere a piacere dell'utente.
In pratica:
 
DoCmd.TransferSpreadsheet acImport, 8, "xxx", "dove_pare_a_me", True, 
"a1:ac100"
 
Grazie

Usa il FileDialog per definire il File... è ben documentato inserendo i riferimenti alla LIB OFFICE.
 
@Alex


 
Mi sembra per� di capire che se un utente ha una versione runtime non 
funziona

Non funziona se l'utente non ha installato OFFICE.
Il RUNTIME di Access spesso è separato da OFFICE in quanto ci sono versioni LITE di Office che non contemplano Access.
 
Non conosco la tua situazione, ma se usi le API la cosa si risolve...
 
http://support.microsoft.com/kb/161286
 
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: report?

Ho la necessità di eseguire un report di dati su un file word. Per
intenderci inserire dati di una tabella access o query in un documento word,
stamparlo e ritornare alla maschera di access, il tutto premendo un bottone?
In alternativa, il modello word lo posso inserire in un report di access,
esso è composto da una quindicina di pagine?

 ha scritto nel messaggio
news:eR%p9.38651$Fz.11...@news1.tin.it...

perchè non ti crei un report come è fatto il documento di word e usi quello?

siccome è composto da 15 pagine per ogni record non so come fare. qualche
idea?

Newsgroup: it.comp.appl.access
Titolo: rendere effettiva una relazione

Salve,
ho creato due tabelle, progetti e attività
ad ogni progetto deve corrispondere una serie di attività, perciò ho letto
l'help e ho creato una relazione (chiave primaria nel nome del progetto).
Poi ho creato una maschera dei progetti e  una sottomaschera delle attività.
Ora però, sfogliando i progetti, nel campo delle attività mi appare il nome
del progetto, non le attività.... come faccio a collegare univocamente un
gruppo di attività ad un nome di progetto?
thank you very muccch
m.
--
------
Massimo Nardini
Torino - Italy
www.designparade.com
www.yrand.com


Prova a fare così:
TabellaProgetti:
IdProgetto                Contatore e chiave primaria
NomeProgetto          Testo
<altri campi>
TabellaAttività            Contatore e chiave primaria
IdProgetto                  Numerico
<altri campi>
Metti in relazione uno-a-molti le due tabelle in base ai due campi chiamati
IdProgetto.
Nella sottomaschera, che naturalmente ha come "Origine record"
TabellaAttività, non inserire alcun controllo associato al campo IdProgetto.
Nelle proprietà "Collega campi secondari" e "Collega campi master" del
controllo sottomaschera della maschera principale indica IdProgetto.
Ciao
Roberto

Newsgroup: it.comp.appl.access
Titolo: Group by o distinct

ciao a tutti 
 
in RowSource meglio Group by o distinct?  
Grazie

 in RowSource meglio Group by o distinct?
 
Non importa.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 


grazie Karl
Newsgroup: it.comp.appl.access
Titolo: Problemino

Ho una necessità di questo tipo, non riesco a far eseguire dei comandi DOS
tipo ren, copy, move, ecc. da Access. Che comando devo usare?
Scusate l'ingnoranza, ma non so proprio coma fare.
Grazie

 ha scritto nel messaggio
news:sVw48.8775$6e5.2...@twister2.libero.it...

Una strada carina per risolverti il problema potrebbe essere quella di
usare, all'interno del codice del tuo db, le api di windows. Ad esempio per
risolverti il problema di cancellare o spostare un file potresti usare
queste due api:
Dichiari questo aggancio alle api in questo modo:
Public Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA"
(ByVal lpFileName As String) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal
lpExistingFileName As String, ByVal lpNewFileName As String) As Long
poi nella sezione del codice associata all'evento che tu generi (ad esempio
il click sul bottone) puoi utilizzare l'api richiamandola in questo modo:
se vuoi cancellare un file:
    gRetValLong = DeleteFile(nomefile)
    in nome file ovviamente ci va il percorso e il nome completo del file;
in gretvallong ti torna il valore dell'api (ti dice se tutto è andato a buon
fine o no)
se vuoi spostare un file
    gRetValLong = Movefile (posizione vecchia, posizione nuova)
    dove posizione vecchia sarà la stringa che contiene l'attuale posizione
del file incluso il nome del file stesso e posizione nuova sarà la stringa
che conterrà la nuova posizione del file compreso il nome del file stesso.
Se non sbaglio, ma non ne sono certo, con questa stessa procedura puoi anche
cambiare nome al file basta assegnare alla stringa posizione nuova un nome
file diverso. (provaci non ne sono sicuro). Comunque se cerchi in internet
ci sono un sacco di siti dove trovare spiegazioni più dettagliate in merito
all'uso delle api.
Ciao e in bocca al lupo da sittinghorse.

 tipo ren, copy, move, ecc. da Access. Che comando devo usare?
È meglio usare VBA dove possibile:
Name, FileCopy, Kill ecc. (cerca <F1> "File" o come si chiama in Italiano
;-)
Altrimenti dipende un po quale Windows usi. In genere
Shell Environ("COMSPEC") & " /C " & comando, 0
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com


CUT...
potrei sapere dove trovare le specifiche o che libro conprare per
avere le definizioni delle API?
Saluti.
Emanuele.

 ha scritto nel messaggio
news:hgi75u8hpkske203j...@4ax.com...

Libri sulle api di windows ne trovi parecchi in libreria ma ne ho sempre e
solo visti di molto costosi.
In internet ho trovato, ad esempio, questo sito; dai uno sguardo per vedere
se qualcosa ti interessa.
http://www.vbapi.com/ref/funcc.html
Saluti sittinghorse


http://www.vbapi.com/ref/funcc.html
grazie....
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Estrapolare il primo valore di un determinato recordset

Salve a tutti.
TabellaEsistente:
Campo A
Se creo un recordset in questo modo:
DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
Campo= " & Valore
Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
come posso estrapolare e memorizzare il valore più alto di un determinato
valore

Scusate, CTRL+INVIO, azz...
Riposto:
Salve a tutti.
Ho due tabelle:
TabellaEsistente:
Campo A
Campo B
Campo C
Campo D
TabellaTemporanea:
Campo B
Campo C
Se creo un recordset in questo modo:
DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
Campo= " & Valore
Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
come posso estrapolare e memorizzare nelle variabili ValoreB ValoreC
variabili il record della TabellaTemporanea che contiene, ad esempio, il
CampoC piů alto?
Devo usare OrderBy... ma non ho capito bene come posso "estrapolare" i
valori..
Grazie per l'aiuto.

 valori..
Ecco come sto procedendo...
Dim rs2 As Recordset
Set rs2 = CurrentDb.OpenRecordset("SELECT TOP 1 TabellaTemporanea.IDRecord,
TabellaTemporanea.DataArrivo FROM TabellaTemporanea ORDER BY
TabellaTemporanea.DataArrivo DESC;")
datDataUltimaDistinta = DLookup("DataArrivo", "rs2")
Sembra tutto ok.
rs2 è un dominio, dico bene?
Eppure mi viene comunicato che Access non ha trovato la query o tabella :(
Non è possibile usare un DLookUp su un recordset creato come sopra?

Sigh.
Ho risolto con una query.
Pensavo di poter fare tutto da codice...
Ciauz


No: tutte le funzioni Dxxxxx richiedono come parametro "Dominio" una
stringa (quindi anche una variabile di tipo stringa) che contiene il
nome della tabella su cui effettuare l'operazione.
Tu invece hai usato come dominio una variabile di tipo recordset che
non indica una tabella, bensě un oggetto di tipo "Insieme di record"
che č tutta un'altra cosa.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400:
http://www.faq400.com/
---------------------------------------------

 Non è possibile usare un DLookUp su un recordset creato come sopra?
Come ti ha già detto Vincenzo, non puoi usare DLookup ma puoi semplicemente
fare riferimento al campo che ti interessa con la sintassi:
datDataUltimaDistinta = rs2!DataArrivo
Inoltre, al posto di Top con Order By puoi usare Max; ad es:
Set Rs2 = CurrentDb.OpenRecordset("select Max(TabellaTemporanea.DataArrivo)
As MaxData from TabellaTemporanea")
e in tal caso il riferimento al campo diventerebbe:
datDataUltimaDistinta = rs2!MaxData
--
Ciao
Galliano.
Newsgroup: it.comp.appl.access
Titolo: splash screan

Salve a tutti,
vorrei che avviando il mio DB apparisse una immagine,
dopo ue secondi, si chiude e si apre la mascera pincipale.
Ho creato una maschera con incorporata una immagine,
nelle proprieta Intervallo Timer ho indicato 2000,
adesso cosa scrivo su "Evento Timer"?
Mi unicate un esempio pratico di codice?
Maschera di avvio: "Splash",
Maschera da avviare dopo 2 secondi: "Mashera1"
Grazie a tutti! 

 ha scritto nel messaggio 
news:5F2de.1315643$35.49...@news4.tin.it...
Salve a tutti,
vorrei che avviando il mio DB apparisse una immagine,
dopo due secondi, si chiude e si apre la mascera pincipale.
Ho creato una maschera con incorporata una immagine,
nelle proprieta Intervallo Timer ho indicato 2000,
adesso cosa scrivo su "Evento Timer"?
Mi indicate un esempio pratico di codice?
Maschera di avvio: "Splash",
Maschera da avviare dopo 2 secondi: "Maschera1"
Grazie a tutti! 

 ha scritto nel messaggio 
news:5C3de.1315839$35.49...@news4.tin.it...

La maschera Splash deve essere la prima a comparire e questo lo puoi fare o 
con una macro Autoexec o impostando le opzioni di Avvio.
Su evento timer di questa maschera puoi scrivere:
Me.TimerInterval = 0
DoCmd.OpenForm "Maschera1"
DoEvents
DoCmd.SelectObject acForm, "Maschera1"
DoCmd.Close acForm, "Splash"
Ciao, Carlo

 ha scritto nel 
messaggio news:N54de.1315908$35.49...@news4.tin.it...

Grazie Carlo, chiaro e conciso.
Newsgroup: it.comp.appl.access
Titolo: Trasformare una cifra in lettere (cc postali)

Salve a tutti,
ho trovato sul sito comune un MDB che
serve a automatizzare la stampa dei bollettini
postali. In tale MDB c'è una funzione che
trasforma una cifra numerica in lettere
(es. 10.000 = diecimilalire/).
Ora dovrei usare tale funzione nel query builder
ma non sò come scriverla...
Ho provato con :
Lire: EuroCheque([titcli.totrata];" ";" ";1)
ma non mi restituisce la stringa...
Avete qualche suggerimento?
Grazie
saluti
sdamy
***Ecco la funzione*****
Public Function EuroCheque(ByVal vValue As Variant, ByRef sNumberValue As
String, ByRef sCaseValue As String, Optional ByVal Language As Byte) As Long
    On Error GoTo EuroChequeError
    Dim sTempCaseValue As String
    'Controlli su vValue
    If IsNull(vValue) Then GoTo EuroChequeError
    If vValue = vbNullString Then GoTo EuroChequeError
    If Not IsNumeric(vValue) Then GoTo EuroChequeError
    If LongCur2Str(CCur(Int(vValue)), sTempCaseValue, Language) Then GoTo
EuroChequeError
    sCaseValue = StrConv(sTempCaseValue & "/" & Right$(Format$(vValue, ""),
0), vbProperCase)
    sNumberValue = Format$(vValue, "#,##0.00")
    Exit Function
EuroChequeError:
    sNumberValue = "Error"
    sCaseValue = "Error"
    EuroCheque = 1
End Function
' *** Questa parte inserita in una maschera trasforma una cifra in lettere
****
Private Sub importo_Change()
Dim sNumberValue As String, sCaseValue As String, cmblanguage As String
    cmblanguage = 1
    EuroCheque Me.importo.Text, sNumberValue, sCaseValue, cmblanguage
    Me.lettere = sCaseValue
End Sub

 sdamy
Il problema è che la funzione è congegnata per assegnare il risultato ad una
variabile passata per riferimento e così non puoi usarla nella query.
Devi modificarla in modo da far sì che sia la funzione a restituire il
valore.
Esempio
function somma(a as long, b as long) as long
somma = a + b
end function
Nella query, fare un campo calcolato così funziona
Totale: Somma([campo1],[campo2])
Antonio

 ha scritto nel messaggio
news:dilP7.242028$sq5.11...@news.infostrada.it...

grazie... proverò a trasformare
la funzione
grazie!!!
sdamy
Newsgroup: it.comp.appl.access
Titolo: accordi milanesi per cena di domani

Ehm... probabilmente domani pioverà... c'è qualche altro milanese che viene
alla cena?
Visto che sono solo motomunito, un passaggio non sarebbe sgradito.
skipper dixit...

skipper ha scritto:

Vedi? Se stavi al Sud, andavi a cena in barca... :)
-- 
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:cauqr8$g77$1...@news.newsland.it...

skipper se vuoi posso passare io.
Dimmi dove preferisci che passi a prenderti.
Hai i miei riferimenti in privato se non sbaglio.

 ha scritto nel messaggio
news:cauqr8$g77$1...@news.newsland.it...

skipper ti ho scritto in privato. X me non c'è problema a passare, se ci
fosse qualcun altro che si vuole aggregare facciamo una macchinata.
x pablitomf ... lascia fare che skipper ci viene veramente fino in costiera
con la barca ...
Newsgroup: it.comp.appl.access
Titolo: controllo su web ed import risultati

E' possibile in un db access, tramite VBA, connettersi ad un sito web
(protetto da login e pwd) avendone ovviamente accesso... controllare dei
dati o fare delle query.. prendere i risultati ed elaborarli in qualche
modo? fantascienza?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 modo? fantascienza?
No, non è fantascienza; ma ci devi lavorare un po' su.
Qui un esempio per aprire la pagina ed effettuare il login:
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/b836b577f50092b1/7a5b948394321e23?lnk=gst&q=login+web&rnum=1#7a5b948394321e23
Poi si tratta di fare una pagina web dinamica che accetta dei parametri e 
restituisce una tabella.
Con questo codice scorri le celle/righe tabella:
'---
Dim oBrws As New SHDocVw.InternetExplorer
Dim oDoc As Object 'Document
Dim oTbl As Object 'Table
Dim oTblRw As Object 'TableRow
Dim oTblCll As Object 'TableCell
oBrws.Navigate2 "
http://indirizzoWebCheRestituisceUnaTabella
"
Do
    If oBrws.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
Set oDoc = oBrws.Document
For Each oTbl In oDoc.getElementsByTagName("TABLE")
  For Each oTblRw In oTbl.Rows
    For Each oTblCll In oTblRw.Cells
      Debug.Print oTblCll.innerText
    Next oTblCll
  Next oTblRw
Next oTbl
Set oTbl = Nothing
Set oTblRw = Nothing
Set oTblCll = Nothing
Set oDoc = Nothing
Set oBrws = Nothing
'---
Ciao.
-- 
Sergio MAZZA 


http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/b836b577f50092b1/7a5b948394321e23?lnk=gst&q=login+web&rnum=1#7a5b948394321e23
ti ringrazio per la risposta..
ho guardato al tuo codice ma credo di essermi perso qualcosa..
questi due oggetti ad esempio:
Dim oApp As InternetExplorer 
Dim oDocument As IHTMLDocument 
non esistono... InternetExplorer e IHTMLDocument 
non li vedo nel mio access... 
ho bisogno di installare qualcosa di particolare?
poi quel tuo script, apre realmente una pagina di explorer o e' tutto
trasparente? 
ti ringrazio per la disponibilita'.
Ciao.


 Ciao.
Ciao.
-- 
Sergio MAZZA 

 caso IE) o no?
esatto... io non voglio che l'utente veda IE che viene aperto e tutti gli
eventuali magheggi che ci faccio su... 
grassie.
Ciao


 Ciao
Aggiungo che ti conviene già da subito prevedere la gestione degli errori 
(vedi help attivabile con ALT-F11 poi F1 alla voce: Istruzione On Error) per 
eliminare le variabili oggetto create:
es.
sub Qualcosa
on error goto Qualcosa_err '<-- se c'è un errore vai a
...codice VBA...
exit sub '<-- fine routine
Qualcosa_err: '<-- se c'è un errore entra qui
    msgbox err.number & " " & application.accesserror(err.number)
    Set oTbl = Nothing
    Set oTblRw = Nothing
    Set oTblCll = Nothing
    Set oDoc = Nothing
    Set oBrws = Nothing
end sub
Ciao.
-- 
Sergio MAZZA 

 indicata.
grande!!!
..purtroppo non ho granche' esperienza su piattaforme Windows..
ma ora ho la necessita' di fare sta roba e sono vincolato dalla
piattaforma.. ;(
grazie di tutto.
faccio un po' di test e spero che tutto funzioni come si deve ;)

Newsgroup: it.comp.appl.access
Titolo: Incollare dati in una sottomaschera in visualizzazione foglio dati

Salve,
     vorrei creare una Privare Sub associata ad un pulsante che mi
incolli i dati copiati da Excel in una sottomaschera in
visualizzazione foglio dati.
Ovvero convertire quello che farei a mano in codice Visual Basic, e
cioè:
Se (nella clipboard sono presenti dati) allora {
     seleziona la riga del nuovo record nella sottomaschera
"DatiGrezzi"
     incolla i dati dalla clipboard
     Messaggio: "Dati incollati correttamente"
} altrimenti {
     messaggio: "Non ci sono dati da incollare"
} fine Se
Ho tradotto in italiano la funzione IF THEN per spiegarmi meglio.
Grazie

 ha scritto nel messaggio
news:17dcc016-420d-4557...@f3g2000hsg.googlegroups.com...

} altrimenti {

} fine Se

Grazie
Mi sembrava di averti già risposto su ICLVB.... cosa non ti era chiaro...?
Per controllare se la ClipBoard contiene dati devi perforza di cose
ricorrere alle API
se sei capace la cosa è semplice altrimenti è più complessa.
Detto questo se la ClipBoard contiene dati l'azione di INCOLLA viene
effettuata nel controllo
con lo stato ATTIVO(FOUCS) se esegui un normale Paste... non è possibile
dividere i dati
in pezzi e metterli ognuno nel campo giusto... se non ricorrendo sempre alle
API e costruendosi un
PARSER della stringga testo recuperata dalla CLIPBOARD.
Fai una cosa semplice, effettua il COPY da dove vuoi quindi torna in Access
e su Click di un Button
che userai per Test scrivi:
On Error Resume Next
   Me!NomeTextBox.SetFocus
   DoCmd.RunCommand acCmdPaste
Vedi che ti ha incollato e vedi se è quello che volevi..., la strada API è
l'ultima alternativa
Ti allego un esempio di come leggere la CLIPBOARD:
Dim hStrPtr As Long, lLength As Long, sBuffer As String
OpenClipboard Me.hwnd
hStrPtr = GetClipboardData(CF_TEXT)
If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
               sBuffer = Space$(lLength)
               CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
               MsgBox sBuffer, vbInformation
        End If
End If
CloseClipboard
Saluti
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Come assicurarsi che un file di testo sia stato 'chiuso' ?

Vorrei realizzare una sorta di printer server
Un programma A che verifica la presenza di file di testo dentro una 
directory
Se ne trova li prende uno ad uno e li manda in stampa
Il test presenza file avviene una decine di volte al secondo
Supponiamo questi files vengano creati dal programma B, che fra 
creazione/scrittura/chiusura ci mette circa 10 secondi per ogni file
La domanda e': come fa il programma A a sapere che il file e' stato 
completato e quindi 'chiuso' ?
E' possibile rilevare che un file creato da 'altri' non e' ancora stato 
scritto completamente?
(creare il file in altro luogo e poi copiarlo nell directory non vale)

Prova ad aprirlo in scrittura e gestisce l'errore... se è in fase di scrittura sarà bloccato... 
 
Errore 70.
 
https://support.microsoft.com/it-it/help/291295/macro-code-to-check-whether-a-file-is-already-open
 
 
@Alex


Rinomina il file con altro nome
Se da errore vuol dire che è aperto
Può essere un idea.
 
Ciao
Graziano


Si, grazie
Ora provo
 


Ora provo
Grazie

Newsgroup: it.comp.appl.access
Titolo: casella di riepilogo con selezione

si può fare in modo che il primo dei dati elencati in una casella di 
riepilogo risulti già selezionato all'apertura della maschera che la 
contiene?
grazie 


Imposti il ValorePredefinito (DefaultValue) al valore contenuto nella
colonna associata nella riga che ti interessa venga selezionata
all'apertura.
Es:
Per la tabella
ID   Campo1 Campo2
1    a      23
2    b      34
3    c      45
Orgine riga: Tabella 1
Colonna associata : 1
Valore predefinito : 2
Viene selezionata la riga 2 b 34
Con la creazione guidata imposti quasi tutti i parametri, devi solo
alla fine impostare il Valore predefinito. Se questo può cambiare ad
ogni apertura della Form, lo imposto condizionalmente nell'evento Load
della Form.
Ciao
AleC

 ha scritto nel messaggio 
news:48cfcf77$0$11381$5fc...@news.tiscali.it...

Usa la proprietà Valore predefinito della casella di riepilogo
Ciao
-- 
Roberto da Parma 

 ha scritto nel messaggio 
news:0b9a566f-cb79-45de...@d45g2000hsc.googlegroups.com...






Ciao
AleC
Un pò più striminzita la mia risp....ma sono arrivato ben 6 min prima!
:-)))


 contiene?
Se non vuoi mostrare un certo Id come gią mostrato da Alec
ma una certa riga, vedi:
Casella combinata/di riepilogo - Selezionare una riga
www.donkarl.com/it?FAQ4.12
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it


Solo perché non fanno i controlli antidoping
:D


Solo perché non fanno i controlli antidoping
:D
:-))))))

Newsgroup: it.comp.appl.access
Titolo: conversione date con FORMAT

Salve, ho una maschera che voglio aprire filtrata da un range di date inserite a video, la data inserita e'  in forma gg/mm/aa, la data che mi occorre per eseguire il filtro deve essere mm/gg/aa. Ho usato il format per cambiare il formato : 
sData = Format(wdata, "mm/dd/yy"). sdata e' la data usata nel filtro, wdata quella di video.
Sdata risulta uguale a wdata, quindi nessuna conversione. Tranne il caso (che ho eseguito per prova) in cui il formato che imposto nel format e'  yy/mm/dd, infatti in tale condizione mi ritrovo la data perfettamente convertita.
Qualcuno sa spiegarmi ? 
Grazie.

af0...@wind.it
 ha scritto:

Devi dichiarare sData come stringa (Dim sData as String), se lo dichiari come Date o come Variant (Dim sData) la conversione non avviene.
Penso che ciň succeda perché Format č una funzione che opera su stringhe, con altri tipi di dati effettua una conversione "nascosta" verso il tipo di destinazione che di fatto lascia le cose invariate.
Ciao
Tonio Tanzi
Newsgroup: it.comp.appl.access
Titolo: Gestione utenti

Buon giorno a tutto il NG, per gestire l'accesso al DB utilizzo la
seguente routine che ho trovato in questo NG, ma avrei necessità che
all'apertura della form successiva (frmArticolo_) venga visualizzato
il nome dell'utente che è stato autenticato in fase di accesso ...
quindi il domandone è: come faccio a trasportare il nome utente da una
form all'altra considerato che la form di autenticazione usa contolli
non associati ???
Grazie dell'attenzione
Private Sub cmdTest_Click()
    Dim risp
    If IsNull(Me.Utente) Or IsNull(Me.Password) Then Exit Sub
    risp = DLookup("Password", "T_PW", "[Utente] = '" & Me.Utente &
"'")
    If IsNull(risp) Then
      MsgBox "Nome Utente o Password errati!!", vbCritical, "ERRORE"
      Exit Sub
    End If
    If risp <> Me.Password Then
      MsgBox "Nome Utente o Password errati!!", vbCritical, "ERRORE"
      Exit Sub
    Else
      DoCmd.OpenForm "frmArticolo_" & fctResolution
      DoCmd.Close acForm, "PWD"
    End If
End Sub


Se ho ben capito, vuoi riempire un campo di frmArticolo, poniamo il
campo "utente", col nome che risulta in PWD.Utente.
In tal caso, dopo l'istruzione
   DoCmd.OpenForm "frmArticolo_" & fctResolution
aggiungi
   Forms("frmArticolo_" & fctResolution)!utente = PWD.Utente
e poi dài
   DoCmd.Close acForm, "PWD"
Dovrebbe andare.
Riccardo Baldinotti

 - Mostra testo citato -
Purtroppo mi dà il seguente errore:
Errore di run-time '424': Necessario Oggetto.
Come risolvere. Grazie ancora ...

 wrote:

Potresti usare openargs:
DoCmd.OpenForm "frm_Articolo", , , , , acDialog, utente
su caricamento della form frm_Articolo
Private Sub Form_Load()
If Len(Me.OpenArgs) > 0 Then
Me.Caption = Me.OpenArgs
End If
End Sub

 - Mostra testo citato -
... uff ... ancora niente ... non da errori ma neanche il risultato
sperato ... ovvero non succede nulla ... che cosa posso aver
sbagliato ?

 - Mostra testo citato -
Nella mia istruzione c'era un'imprecisione. Se la tua maschera in cui
è messa la pass si chiama PWD, allora bisogna correggere l'istruzione
così
   Forms("frmArticolo_" & fctResolution)!utente = Forms!PWD!Utente
ma anche con quell'errore non mi esce "Necessario oggetto", ma
"Variabile non definita".
A questo punto dovrei sapere cosa c'è nel valore fctResolution, e se
si tratta di una casella della maschera o di una variabile, e
dichiarata come.
Riccardo Baldinotti


grazie .... tutto funziona perfettamente ... a quanto pare sono stato
parco di informazioni con te e quindi per rispondere alla tua giusta
domanda: dunque "fctResolution" acquisisce un valore numerico da un
modulo che verifica la risoluzione video ... quindi sulla base della
risoluzione riscontrata permette di aprire forms diverse (p.e.
frmArticolo_1 in caso di risoluzione video 1024*768 ... e così
via) ... ora il passaggio successivo devo individuare un modo che
permetta all'utente loggato di modificare"eventualmente" la sola
propria password ...
Grazie comunque della estrema pazienza ...
Buona serata ... Francesco
Newsgroup: it.comp.appl.access
Titolo: cancellare tutto tranne gli ultimi 10

Ciao,
su A2007 sto cercando di realizzare un'istruzione sql che cancelli tutti i record della tabella tmp_protocollo_copia tranne gli ultimi 10 record inseriti.
Il codice da me usato è il seguente:
 
delete * from tmp_protocollo_copia
WHERE id_tmp_protocollo NOT IN
(SELECT TOP 10 * 
FROM (SELECT * FROM tmp_protocollo_copia ORDER BY id_tmp_protocollo DESC))
 
ma non funziona.
Mi dareste una mano per favore a capire cosa sbaglio?
Grazie e saluti

Devi togliere l'asterisco ed esplicitare il campo giusto 


DELETE tmp_protocollo_copia.id_tmp_protocollo , *
FROM tmp_protocollo_copia
WHERE (((tmp_protocollo_copia.id_tmp_protocollo) In (SELECT TOP 10 id_tmp_protocollo FROM T1 ORDER BY tmp_protocollo_copia.id_tmp_protocollo DESC)));
 
 
Saluti
@Alex

Grazie ad entrambi, ma cosa significa 'From T1'?

Ho dimenticato di sostituirlo solo li, gli altri li ho sostituiti,... è il nome della tua tabella...
 
@Alex

Molte grazie
Oggi provo.
 
Un saluto a tutti

Molte grazie, oggi provo
Un saluto a tutti

Newsgroup: it.comp.appl.access
Titolo: formattare i decimali

Ciao ragazzi, in una query vorrei formattare un campo somma in maniera 
tale che mi dia un decimale dopo la virgola, non mi ricordo come devo 
scrivere, mi aiutate?

 scrivere, mi aiutate?
Non serve la memoria, ma l'Help....!
Vedi l'istruzione Format.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 
Nel caso specifico nell'help ho visto la funzione FormatNumber, ma 
quando scrivo FormatNumber(Somma[entrate]-[uscite]),1)mi da errore:(

 ha scritto nel messaggio
news:yqnud.278095$b5.13...@news3.tin.it...

Ma io non ti ho suggerito FormatNumber....!
Cerca Format.
Ciao


 ha scritto nel messaggio
news:yqnud.278095$b5.13...@news3.tin.it...

Tra l'altro sono sbagliate le parentesi.
Prova con
Format(somma(nz(entrate)-nz(uscite));"#.##0,0"))
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Inserisci dati letti

Avendo un file di testo esterno formato da record con un unico campo di 8
caratteri, come faccio a leggere ogni record e aggiungere i primi 2
caratteri in un campo della mia tabella PIPPO e gli altri 6 caratteri in un'
altro campo ???
Avrei necessita anche di saltare la prima riga, in quanto è l'intestazione
del file.
Ed in ultimo svuotare od eliminare il file di testo appena letto ???
Sergio

 ha scritto nel messaggio
news:a0f63c$g95$1...@fe2.cs.interbusiness.it...

Puoi fare quello che t'interessa in diversi modi, io ti suggerisco questo
fai una routine che legge il file e via via che lo leggi inserisci i dati
nella tabella e alla fine cancelli il file.
Sub LeggiArchiviaFile()
    Dim db as DAO.Database
    Dim rsPippo as DAO.Recordset
    Dim lNumFile as Long
    Dim sRecord as String
    set db = currentdb
    set rsPippo = db.openrecordset("PIPPO")
    lNumFile = FreeFile
    Open NomeFileDiTesto For Input as #lNumFile
        do while not EOF(#lNumFile)
            Line Input #lNumFile, sRecord
            if sRecord = RecordValido Then
                with rsPippo
                    .addnew
                    .fields("NomeDelCampo2Caratteri")=left(sRecord,2)
                    .fields("NomeDelCampo6Caratteri")=mid(sRecord,3)
                    .update
                end with
            end if
        loop
    close #lNumFile
    Kill NomeDelFilediTesto
End Sub

 ha scritto nel messaggio

Se vai sul menu file e scegli Carica dati esterni - Importa ti si aprirà una
finestra tipo "Sfoglia". A questo punto scegli come tipo di file i file di
testo e seleziona il file che devi importare. Quando lo hai trovato clicca
su "Importa", vedrai che tutte le operazioni ti verranno piuttosto intuitive
(esclusione prima riga, dimensione campi, ecc).
Poi avrai anche la possibilita' di salvare le impostazioni di importazione
in modo da potere, in futuro, automatizzare la procedura.
Vedi l'help in linea per maggiori dettagli.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente
Newsgroup: it.comp.appl.access
Titolo: chimare evento con combinazione tsti

ciao ng, è possibile chiamare un evento assegnato ad un bottone anche
tramite pressione di una composizione di tasti, es: CTRL+i
come devo fare?
grazie 1000
Nao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Nao

nella form :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acCtrlMask) > 0 And (KeyCode = 73) Then
        ...Tuo evento
        KeyCode = 0
    End If
End Sub
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 End Sub
Ovviamente il KeyCode = 73 è proprio la pressione di "i"... se vuoi sapere
di altri tasti, basta che all'inizio del codice usi (giusto per conoscerne
il valore) un Msgbox KeyCode. ;-)


                    Il 28 Mar 2006, 12:20, 
maurizio...@accessgroup.it
 (Pablitomf (Maurizio
Facciuti)) ha scritto:

Scusa la mia ignoranza in materia, ma non mi funziona.
Ho incollato il tuo codice nel vbasic della form, ma non funziona niente,
dove sbaglio?
grazie


                    Il 28 Mar 2006, 12:20, 
maurizio...@accessgroup.it
 (Pablitomf (Maurizio
Facciuti)) ha scritto:

Risolto, nelle proprietà della form era settato a no la proprietà: anteprima
tasti
ciao Nao


 ciao Nao
Grazie č! ;-|
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno

Newsgroup: it.comp.appl.access
Titolo: SQLserver2005 e Visual Studio 2005 (OT)

Oggi ho paartecipato alla convention Microsoft  per la presentazione di
SQL 2005 & Visual Studio 2005 & Biz Talk.
La dimostrazione e l'organizzazione (tenendo conto di più di 2000
partecipanti) mi è sembrata , oltre ogni previsione , il servizio di
navettta ineccepibile ,  la sala  che con tale numero di partecipanti
ha retto  molto bene , a  "odori umani"  , rumore, telefonini .
Un complimenti alla organizzazione che ha retto molto bene  !!
Vorrei sapere da qualcun altro " access dipendente" (come Me)  una sua
valutazione sugli strumenti di sviluppo  , che promettono tempi di
sviluppo dell'applicazione contenuti .
Il punto forte di access è sempre stato il tempo di sviluppo del data
base ..
Grazie

 Grazie
Ciao,
Massimo

Newsgroup: it.comp.appl.access
Titolo: Il nome della Query

Condivido quanto scoperto oggi, magari voi lo sapevate già e allora chiedo venia :)
 
Quando apro un query il nome della tabella/query sottostante l'ho trovato sempre case-insensitive
Select * from turni e Select * from TURNI funzionano allo stesso modo
 
se però ciclo sull'insieme delle query/tabelle (per sapere se esiste) il confronto va fatto tenendo conto di maiuscolo 
e minuscolO
 
For x = 0 To DB.QueryDefs.Count - 1
    If DB.QueryDefs(x).Name = "turni" Then k = "si"
Next
 
Se l'oggetto query si chiama Turni il test fallisce
 
 
 
 
 
-- 
Greg

Greg expressed precisely :

Con Access 2016/64bit ENG su Win10 CU la
ricerca non è case-sensitive né, mi sembra,
lo sia mai stata in precedenza.
 
Tu che cosa stai usando?
 
Bruno

 Bruno
 
Sto usando il vecchio 2003
 
-- 
Greg

Greg pretended :

Prova così:
 
Dim i
For Each i in CurrentDB.QueryDefs
    If UCase(i.Name)="TURNI" Then
        MsgBox i.Name
    End If
Next
 
Bruno

 Next
 
Oh ma non c'è bisogno di inserire una conversione, adesso che lo so scrivo il nome corretto. Grazie
 
-- 
Greg
Newsgroup: it.comp.appl.access
Titolo: Tabelle con password

Salve a tutti, vorrei proporre un mio dubbio sull'apertura di una maschera.
Ho creato un pannello comandi(chiedo scusa ma ho usato la creazione
automatica) per aprire delle maschere di un DB e volevo chiedere se fosse
possibile inserire una password di protezione per l'apertura.
Grazie 1K a chi dà qualsiasi(tranne  pochi suggerimenti) per fare chiarezza
al mio dilemma.
A proposito: Roberto, come stai??
Maurizio

 ha scritto nel messaggio
news:CMIk9.16060$Eu.3...@twister1.libero.it...

Scusate, intendevo dire maschere
Maurizio

 Scusate, intendevo dire maschere
    Le maschere stanno bene... Come spero di Roberto.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


Discretamente, grazie.
Roberto

 Le maschere stanno bene... Come spero di Roberto.
ROTFL
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it