title: catalogo CD-files

author: a

text:
Salve a tutti.
sono nuovo del NG, ma non nuovo ad  access.
Il mio problema  è questo: vorrei un database per catalogare i miei CD-Rom,
o meglio tutti i files e le directory dentro i  cd-rom con  i relativi
attributi (data, dimensioni,  ...).
Esiste qualcosa di già pronto da poter studiare e/o modificare?
Ho cercato un po' in rete ma non ho trovato nulla.
Perdonate la mia ignoranza
Grazie dell'attenzione


title: catalogo CD-files

author: onafets

text:
La divina commedia musicale 'nsomma.
"a" <a@a.a> ha scritto nel messaggio
news:loq0a.191427$AA2.7...@news2.tin.it...



title: decimali nelle dlookup

author: mino

text:
ho un problema con questa funzione:
Public Function CalcoloDiritti(TipoAtto As Integer, Capitale)
CalcoloDiritti = DLookup("[importo diritto]", "[Tabella diritti]", "[ID]="
& TipoAtto & " and [Da]<" & 6000.35 & " and [a]>" & 6000)
End Function
quando il capitale č un numero con la virgola come nell'esempio che ho
evidenziato la funzione mi da un errore.
qualcuno sa spiegarmi perchč?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: decimali nelle dlookup

author: Maurizio Borrelli

text:
> "mino" news:aoh4jn$ko1$
1...@news.newsland.it
:
> ho un problema con questa funzione:
> Public Function CalcoloDiritti(TipoAtto As Integer, Capitale)
    Cosa passi a "Capitale"?
    Ricordati sempre di fare questo tipo di verifica, a questo punto del
codice:
        Debug.Print _
              "([ID]=" & TipoAtto & ")" _
            & " and " _
            & "([Da]<" & 6000.35 & " and [a]>" & 6000 & ")"
    Osserva l'output:
        ([ID]=0) and ([Da]<6000,35 and [a]>6000)
e nota che 6000.35 viene convertito in formato italiano invece che
internazionale.
    Potresti quindi scrivere:
        Debug.Print _
              "([ID]=" & TipoAtto & ")" _
            & " and " _
            & "([Da]<6000.35 and [a]>6000)"
-oppure, meglio-
        Debug.Print _
              "([ID]=" & TipoAtto & ")" _
            & " and " _
            & "([Da]<" & Str(6000.35) & " and [a]>" & Str(6000) & ")"
> CalcoloDiritti = DLookup("[importo diritto]", "[Tabella diritti]", "[ID]="
> & TipoAtto & " and [Da]<" & 6000.35 & " and [a]>" & 6000)
> End Function
> quando il capitale č un numero con la virgola come nell'esempio che ho
> evidenziato la funzione mi da un errore.
> qualcuno sa spiegarmi perchč?
    Chi meglio della guida? Alle pagine Str e Val. Per eventuali ulteriori
dubbi... siamo tutti qui.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: decimali nelle dlookup

text:
Maurizio Borrelli wrote:




>     Osserva l'output:


>     Potresti quindi scrivere:

> -oppure, meglio-




funziona tutto molto bene. grazie per la risposta. nel frattempo avevo
trovato una soluzione anch'io anche se un po' spartana eccola:
CalcoloDiritti = DLookup("[importo diritto]", "[Tabella diritti]", "[ID]="
& TipoAtto & " and ([Da]*100)<=" & (Capitale * 100) & " and ([a]*100)>=" &
(Capitale * 100))
molto gentile comunque ciao e grazie



title: Dimensione dei report

author: Bobbygol

text:
Scusate la banalità della domanda, ma da poco mi scontro con la produzione
di applicazioni in access.
Ho preparato una procedurina, che ha alcuni report stampati in verticale ed
altri in orrizzontale.
Questi ultimi non sempre mantengono l'impostazione in orrizzontale: se
sposto il db su un'altra macchina e a volte anche sulla stessa mi vengono
riporposti in verticale.
C'e' un modo per definire il formato di stampa di un report una tantum?
Grazie mille per l'aiuto.
***mauro


title: Dimensione dei report

author: Roberto da casa

text:
"Bobbygol" <
mau...@tin.it
> ha scritto nel messaggio
news:b92rdo$38i$1...@lacerta.tiscalinet.it...

Che versione di Access usi?
Quello che tu lamenti potrebbe dipendere da un bug di Access 2000 nella sua
prima versione; con la versione Sr-1 il problema dovrebbe essere stato
risolto.
Maggiori ragguagli li dovresti trovare al seguente link:
http://support.microsoft.com/default.aspx?scid=kb;it;Q240826
Oppure vai su Strumenti => Opzioni => Generale e prova a disabilitare
l'opzione Esegui correzione automatica nome.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: avete un esempio di come aprire un dato documento di excel con VBA?

text: grazie.


author: Antonio Biso

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:W0w09.7956$n04.2...@twister2.libero.it...
> grazie.
Funzione shell
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:G9w09.7990$n04.2...@twister2.libero.it...

intendevo attraverso lutilizzo di excel.application in modo da poter anceh
interagire.. ne sai qualcosa?
grazie.


author: omnitow

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:Oow09.8051$n04.2...@twister2.libero.it...

innanzi tutto seleziona dall'elenco dei riferimeti la libreria "Microsoft
Excel 9.0" o altre versioni
per aprire la cartella:
Dim app As New Excel.Application
Dim app As Excel.Application
Dim Wkb As Workbook
Set Wkb = app.Workbooks.Open("C:\cartel1.xls")
app.Visible = True
omnitow


text:
"omnitow" <
omn...@libero.net
> ha scritto nel messaggio
news:JBw09.127468$Jj7.2...@news1.tin.it...

ho fatto come hai detto
dal seguente codice
------------------------------------
Private Sub Comando91_Click()
    Dim app As Excel.Application
    Dim Wkb As Workbook
    Set Wkb =
app.Workbooks.Open("C:\Programmi\InfoeWeb\ListinoOmniware\ListAccess.xls")
    app.Visible = True
End Sub
----------------------------------
hop ottenuto il seguente errore
----------------------------------
variabile oggetto o variabile del blocco with non impostata


author: Liones

text:
Dim app As New Excel.Application
Set app = Excel.Application
Dim Wkb As Workbook
Set Wkb = app.Workbooks.Open("C:\prova.xls")
app.Visible = True
ciao


title: evitare duplicati

text:
ciao a tutti
ho un db A2003 e una maschera anagrafica con i campi ID, nome, cognome e via dicendo. siccome sono 3 mila record circa ed è soggetto a nuovi inserimenti vorrei evitare di inserire dei doppioni come è già capitato. Come posso fare per fare in modo che nel campo cognome possano, attraverso un menu a tendina, scorrere tutti i cognomi del database in ordine alfabetico e magari trovando un cognome esistente clikkarci sopra per andare direttamente su quel record per verificare che non sia già esistente e non solo un'omonimia?
grazie mille
Luciano


title: evitare duplicati

text:

Salve luciano....
Per evitare i duplicati perchè non creare un indice dentro la tabella
da dove provengono i dati?
Vedi sulla guida in linea "Creare un indice a più campi".

Per poi trovare il tuo record sulla tua maschera crea (anche con
l'autocomposizione) una casella combinata, come primo campo seleziona
il campo ID della tabella anagrafica; Poi nell'evento "Dopo
aggiornamento" della stessa combo incolla il seguente codice per
portarti ai dati selezionati:

    DoCmd.RunCommand acCmdRemoveFilterSort

    Me.RecordsetClone.FindFirst "[TuocampoID] = " & Me![Tua casella
combinata]
    Me.Bookmark = Me.RecordsetClone.Bookmark

Saluti
M7a1x


title: evitare duplicati

author: Amoa Onlus

text:

grazie mille, è prorpio quello che cercavo!!


title: Selezione multipla con ListBox

author: Snake 72

text:
Ho creato una maschera dove inserisco i dati tramite un'altra maschera dove
č presente una listbox che mi riassume i campi da inserire. Faccio doppio
click sul campo che mi interessa e lo inserisco nella maschera principale.
Se volessi sfruttare la funzione selezione multipla per inserire piů di un
record contemporaneamente cosa dovrei fare ?
Grazie


title: Selezione multipla con ListBox

author: ALESSANDRO Baraldi

text:
"Snake 72" <
sna...@tiscali.it
> ha scritto nel messaggio
news:46d6f184$0$21192$5fc...@news.tiscali.it...

Adesso come fai con il CLICK ad inserire il campo....?
Ti chiedo perchč tendenzialmente č esattamente la stessa cosa, e basterebbe
ciclare la Collection ItemSelected(di cui č bene tu legga l'Help e
l'esempio)
ed eseguire la stessa cosa che eseguivi prima sul Singolo... per ogni Item
della Collection..!!!!
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Selezione multipla con ListBox

text:
Per inserire i dati uso questa funzione abbinata al pulsante OK
Private Sub cmdOK_Click()
   myValue = Nz(Me.Lista.Column(myBoundColumn), vbNullString)
   If myValue = vbNullString Then Exit Sub
   Me.Visible = False
 End Sub
come la ciclo?
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fb6sea$adc$1...@aioe.org...



title: Selezione multipla con ListBox

text:
"Snake 72" <
sna...@tiscali.it
> ha scritto nel messaggio
news:46d701a7$0$21199$5fc...@news.tiscali.it...
> Per inserire i dati uso questa funzione abbinata al pulsante OK
>
> Private Sub cmdOK_Click()
>    myValue = Nz(Me.Lista.Column(myBoundColumn), vbNullString)
>    If myValue = vbNullString Then Exit Sub
>    Me.Visible = False
>  End Sub
>
>
> come la ciclo?
Scusa ma questa funzione non fa assolutamente NULLA...!
Ripeto come fai ad inserire i dati con il CLICK...???
Non sarà che hai una Public Property di FORM chiamata myValue che viene
letta dall'altra Form...??
Non abbiamo sfere di cristallo, quindi più sei chiaro prima facciamo...



title: Selezione multipla con ListBox

text:
Ti posto tutto il codice associato alla maschera :
Option Compare Database
Option Explicit
Private Const LeftShift = 50
Dim myBoundColumn As Integer
Dim myColumnHeads As Boolean
Dim myValue As Variant
Private Sub cmdCancel_Click()
   myValue = vbNullString
   Me.Visible = False
End Sub
Private Sub cmdOK_Click()
   myValue = Nz(Me.Lista.Column(myBoundColumn), vbNullString)
   If myValue = vbNullString Then Exit Sub
   Me.Visible = False
 End Sub
Private Sub Lista_DblClick(Cancel As Integer)
   cmdOK_Click
End Sub
Property Let SQL(strSQL As String)
   Dim myWidth As Long
   Me.Lista.RowSource = strSQL
   Me.Lista.ColumnCount = FieldsCount(strSQL)
   Me.Lista.Left = LeftShift
'    ResizeControl Me.Lista ', , , 15000
   Me.InsideWidth = Me.Lista.Width + LeftShift * 1.5
   myWidth = (Me.Lista.Width - LeftShift) / 2
   Me.cmdCancel.Width = myWidth
   Me.cmdOK.Width = myWidth
   Me.cmdOK.Left = LeftShift
   Me.cmdCancel.Left = LeftShift + myWidth + LeftShift
End Property
Private Function FieldsCount(ByRef strSQL As String) As Integer
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
   FieldsCount = rst.Fields.Count
   rst.Close
   Set rst = Nothing
End Function
Property Let BoundColumn(Valore As Variant)
   Me.Lista.BoundColumn = CInt(Valore)
   myBoundColumn = 0
   If CInt(Valore) > 0 Then myBoundColumn = Me.Lista.BoundColumn - 1
End Property
Property Let ColumnHeads(Valore As Variant)
   Me.Lista.ColumnHeads = CBool(Valore)
   myColumnHeads = Me.Lista.ColumnHeads
End Property
Property Let ColumnWidths(Valore As Variant)
   Me.Lista.ColumnWidths = CStr(Valore)
End Property
Property Get Value() As Variant
   Value = myValue
End Property
Forse coì è più chiaro!!
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fb6vol$nk9$1...@aioe.org...



title: Selezione multipla con ListBox

text:
"Snake 72" <
sna...@tiscali.it
> ha scritto nel messaggio
news:46d7043c$0$21207$5fc...@news.tiscali.it...

Scusa ma forse non ci capiamo... che questo codice sia tuo o meno... non
importa
ma per correttezza deriva dal mio demo(Form General_LIST):
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=74
quello che importa è che questa Maschera non fà altro che popolare una
ListBox
e permetterti di fare una SELEZIONE....!
Quando hai fatto la selezione viene resa NON VISIBILE, significa che questa
maschera
viene aperta, da un'altra che rimane in LOOP in attesa della selezione...!
      Do Until .Visible = False
         DoEvents
      Loop
L'altra maschera è quella che fa tutto e che realizza l'inserimento...,
quindi se non ci fai capire
come effettui l'inserimento, vale a dire se la Form iniziale è una Form
Associata ed il campo che
vai a riempire con la Selezione è Associato la gestione deve essere
MODIFICATA completamente,
se invece hai fatto in altro modo devi farci capire come...!
Ora sono stato più chiaro...?



title: Selezione multipla con ListBox

text:
Spero di aver capito. !!!!
Ora ti posto il codice che mi richiama la maschera dove è presente la
listbox:
Private Sub FormularioID_DblClick(Cancel As Integer)
matchItemListaConferimenti
End Sub
Private Function matchItemListaConferimenti()
   Dim selItem As String
   Dim lngBC As Long
   Dim S As String
   Dim sSource As String
    On Error GoTo Err_MatchItem
   selItem = "FormularioID"
   sSource = vbNullString
         sSource = "SELECT IDFormulari FROM tblFormulari ORDER BY
Formulario"
         S = sSource & ";Conferimento..."
   lngBC = Me.Controls(selItem).BackColor
   Me.Controls(selItem) = adhDoChois("mscListaConferimenti", selItem, S,
Me.Controls(selItem).Value)
   Exit Function
Err_MatchItem:
   Me.Controls(selItem).BackColor = lngBC
End Function
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fb736q$3vb$1...@aioe.org...



title: Selezione multipla con ListBox

text:
> Spero di aver capito. !!!!
>
>
> Ora ti posto il codice che mi richiama la maschera dove è presente la
> listbox:
>
> Private Sub FormularioID_DblClick(Cancel As Integer)
> matchItemListaConferimenti
>
> End Sub
>
> Private Function matchItemListaConferimenti()
>
>    Dim selItem As String
>    Dim lngBC As Long
>    Dim S As String
>    Dim sSource As String
>     On Error GoTo Err_MatchItem
>
>    selItem = "FormularioID"
>
>    sSource = vbNullString
>          sSource = "SELECT IDFormulari FROM tblFormulari ORDER BY
> Formulario"
>          S = sSource & ";Conferimento..."
>    lngBC = Me.Controls(selItem).BackColor
>
>    Me.Controls(selItem) = adhDoChois("mscListaConferimenti", selItem, S,
> Me.Controls(selItem).Value)
>
>
>
>
>    Exit Function
> Err_MatchItem:
>    Me.Controls(selItem).BackColor = lngBC
> End Function
>
Questa è la riga che esegue l'assegnazione del Valore di ritorno...!
Me.Controls(selItem)
Ora siccome ti trovi un una Form associata quello che chiedi non è
fattibile.
Devi strutturare il tutto in modo differente, ma richiede una completa
revisione del
Codice... proprio per il fatto che si basano su metodi di immissione
diversi...!
NEl tuo caso l'inserimento è conseguenza dell'assegnazione del Valore,
nell'altro caso, avendo una Multiselezione
sei costretto ad eseguire una Query d'INSERIMENTO con l'elenco degli
ITEMSELECTED... ma viene deturpato
il funzionamento della Form LISTA...!



title: Selezione multipla con ListBox

text:
per fortuna sono riuscito a capirti e ti ho fornito i dati che mi hai
chiesto.
Purtroppo permango in alto mare in quanto il problema non l'ho risolto e
sono costretto ad inserire i dati uno per volta.
Hai qualche suggerimento per risolvere il problema?
Grazie.
Ciao.
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fb76qv$h1d$1...@aioe.org...



title: Selezione multipla con ListBox

text:
come dovrei strutturarlo?
"Snake 72" <
sna...@tiscali.it
> ha scritto nel messaggio
news:46d71fba$0$21201$5fc...@news.tiscali.it...



title: Come disabilitare il tasto shift in Access 2000

author: Enrico

text:
Con Access 97 mettevo questo codice nella Form di avvio per disabilitare il
tasto shift,
ma con Access 2000 ottengo un'errore del tipo non corrispondente (errore di
run-time 13).
Come si fa per disabilitare il tasto shift in Access 2000 ?
----------------------------------------------------------------------------
-------------
Private Sub Form_Load()
'This function will disable the shift at startup causing
'the Autoexec macro and Startup properties to always be executed
On Error GoTo errDisableShift
Dim pass As String
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'Definisco la tabella
Dim db1 As Database, MioSet2 As Recordset
'Apri database interno
Dim percorsofile As String
Dim nomefile As String
Dim entrata As String
Dim percorsoserie As String
Dim serie As String
Dim myfile As String
Dim testo As String
Dim Set1 As Recordset
Set db1 = DBEngine.Workspaces(0).Databases(0)
Set Set1 = db1.OpenRecordset("tblImpostaBackEnd", DB_OPEN_TABLE)
If Set1.BOF <> True Then
    Set1.MoveFirst
    Do Until Set1.EOF
        percorsofile = Set1!percorsofile
        nomefile = Set1!nomefile
        percorsofile = percorsofile + nomefile
        entrata = Set1!entrata
        serie = Set1!serie
        percorsoserie = Set1!percorsoserie
        Set1.MoveNext
    Loop
End If
db.Properties("p") = False
If entrata = False Then
    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False
End If
If entrata = True Then
    'This next line anable the shift key on startup.
    db.Properties("AllowByPassKey") = True
End If
'function successful
Exit Sub
errDisableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, False)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox "Function 'ap_DisableShift' did not complete successfully."
        Exit Sub
    End If
End Sub
----------------------------------------------------------------------------
-------------
Ciao e grazie.
Enrico


author: Karl Donaubauer

text:
Enrico" <
ci...@libero.it
> ha scritto:
> Con Access 97 mettevo questo codice nella Form di avvio per disabilitare il
> tasto shift,
> ma con Access 2000 ottengo un'errore del tipo non corrispondente (errore di
> run-time 13).
>...
> Dim db1 As Database, MioSet2 As Recordset
>...
> Set Set1 = db1.OpenRecordset("tblImpostaBackEnd", DB_OPEN_TABLE)
Error 13 Type Mismatch Error on DAO OpenRecordset Method
http://support.microsoft.com/search/preview.aspx?scid=kb;en-us;Q181542
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: text editor o rinomina campi nelle query

text:
In merito alle mie avventure in access (in seguito ai ripensamenti e per
ovviare di avere una tabella con campo calcolato... e aver dovuto modificare
un po' di query), mi sono chiesto se esiste un metodo veloce che faccia una
specie di: "trova... sostituisci..." dei text editor in tutto il database
per rinominare i campi.
Io ho copiato le query in sql in notepad e da li' ho rinominato i campi
necessari.
Mi chiedevo se si potessero vedere tutte le query in versione testo in una
botta sola, cosi' da rinominare velocemente i campi, o se esiste un altro
metodo, oppure... pian pianino mi cambio tutto?
Ciao
Beppe


author: Sergio MAZZA

text:
"beppe005" <
beppe005...@virgilio.it
> ha scritto nel messaggio news:q3k%c.212673$OR2.9...@news3.tin.it...

Con la proprietà SQL dell'oggetto QueryDef dovresti risolvere...
Ciao.
--
Sergio MAZZA


title: problema con pacchetto runtime

author: Luciano

text:
ciao
ho creato un pacchetto di un DB di access 2003 con il developer, tutto ok.
Perň vorrei sapere come fare se, per esempio, do il pacchetto ad un utente
che usa  il DB  e poi si dovesse rendere necessario
modificare qualcosa nella struttura del DB. Ovviamente non posso usare il
file originario perchč nel frattempo il DB runtime del cliente č stato
aggiornato nei dati. Il problema che il file di runtime non mi da la
finestra del DB e non so come fare per intervenire sull sua struttura.
C'č modo di fare un processo inverso al file di
runtime, modificarlo nella struttura dove si rendesse necessario e
ricrearlo, cosě da non perdere i dati? Oppure un'altra soluzione, che so, da
impostare durante il processo di creazione del pacchetto?
grazie mille


title: problema con pacchetto runtime

author: MA

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:6zDwd.304917$b5.14...@news3.tin.it...
> ciao
> ho creato un pacchetto di un DB di access 2003 con il developer, tutto ok.
> Però vorrei sapere come fare se, per esempio, do il pacchetto ad un utente
> che usa  il DB  e poi si dovesse rendere necessario
> modificare qualcosa nella struttura del DB. Ovviamente non posso usare il
> file originario perchè nel frattempo il DB runtime del cliente è stato
> aggiornato nei dati. Il problema che il file di runtime non mi da la
> finestra del DB e non so come fare per intervenire sull sua struttura.
> C'è modo di fare un processo inverso al file di
> runtime, modificarlo nella struttura dove si rendesse necessario e
> ricrearlo, così da non perdere i dati? Oppure un'altra soluzione, che so,
da
> impostare durante il processo di creazione del pacchetto?
>
> grazie mille
>
non ti ho risposto già??
Cmq, dividi il db in Back End con solo le tabelle e Front End con tutti
gli altri oggetti.
Le tue modifiche le farai sul FE, quindi li va a casa da te e gli invii solo
il FE modificato
Ti conviene usare lo stesso percorso del tuo cliente tipo
C:\NomeTuprogramma\
MAssimialino


title: Maschere che diventano icone..

author: Giady

text:
qualcuno sa spiegarmi per quale motivo delle maschere pop up, su access
2007, si riducono all'apertura a icone piccolissime che non č possibile
ripristinare!!! ci stň impazzendo...


title: Maschere che diventano icone..

author: Franco

text:

In effetti č una caratteristica noiosa di Access.
Puoi ovviare semplicemente salvando la popup dopo le variazioni alla
struttura, chiudendola e poi riaprendola.
Se passi dalla visualizzazione struttura alla visualizzazione maschera
succede l'inconveniente che descrivi.
Comunque, se la popup č a scelta obbligatoria, puoi chiuderla anche se
minimizzata, premendo la combinazione di tasti ALT-F4.
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Maschere che diventano icone..

text:
"Franco" <
franc...@inwind.it
> ha scritto nel messaggio
news:81Z121Z147Z45Y1...@usenet.libero.it...

niente da fare!!! continua a farmi impazzire, si riduce piccolissima quando
la richiamo... la visualizzo in struttura, la rimetto a dimensioni ottimali,
la salvo, la chiudo, richiamo la maschera e tutto č ok, la chiudo la
richiamo ed eccoti di nuovo il problema!!!!AIUTOOO


title: problema con Office XP

author: Mario Puglisi

text:
Mi hanno installato(vi giuro)contro la mia volontà
Office XP. Il mio database access versione2000, un tempo "girava" benissimo.
Ho una combo box che ricerca dei nomi di una rubrica telefonica.
Questa combo ha come colonna associata un ID numerico ma visualizza
ovviamente il secondo campo: quello dei nomi.
Il problema è che prima ancora di aprire la maschera oppure non appena
digito la prima lettera nella combo, compare il messaggio "E' stato immesso
un valore non valido per il campo" Dopo aver premuto OK mi lascia digitare
il nome e tutto prosegue liscio.
Ecco la Routine:
 Sub CasellaCombinata1040_AfterUpdate()
    ' Trova il record corrispondente al controllo
    If Me![CasellaCombinata1040] = "" Then
    Exit Sub
    Else
    Me.RecordsetClone.FindFirst "[IDRubrica] = " & Me![CasellaCombinata1040]
    Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
        End Sub
Qual'è il problema? Grazie a tutti.


title: problema con Office XP

author: Silvio Berruti

text:
"Mario Puglisi" <
mariop...@libero.it
> ha scritto nel messaggio
news:6XSU8.104343$Kt3.2...@twister2.libero.it...

Forse perché il valore della [CasellaCombinata1040] viene considerato
String.
Prova a modificare così:
Me.RecordsetClone.FindFirst "[IDRubrica] = " &
val(Me![CasellaCombinata1040].Value)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: problema con Office XP

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:9XVU8.105093$Kt3.2...@twister2.libero.it...

> Silvio
Grazie Silvio ma il problema persiste che fare?
>


title: ADP (Pagine di accesso ai dati)....non funge su win2000 ?!

author: norica

text:
Un mio cliente non riesce a far "funzionare" una paginetta di accesso ai
dati di Access sui PC con Win2K...
Mi sono documentato sulle ADP e se non ho capito male per il loro
funzionamento č sufficiente che sul PC ci sia IE 5 o superiore, MDAC 2.5 o
superiore e installare gli Office Web Components ... eppure non
va...all'apertura della pagina viene segnalato di scaricare gli Office Web
Components...ma se li ho scaricati ed installati !!!
Chi ne sa qualcosa puů aiutarmi ?
Grazie mille
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: ComboBox su più campi legati ed arrore ricerca con Cognome accentato

author: ThaiChi

text:
Salve a tutti,
doverosi gli auguri di Buon Natale.
Vengo al quesito:
Ho creato una query dove ho unito i campi Cognome, Nome e Data di
nascita per avere un record univoco e poter fare la ricerca (se era
solo su cognome, si posizionava sul primo record che trovava e non mi
faceva selezionare quello successivo con lo stesso cognome).
Va tutto alla perfezione fino a quando non faccio la selezione di un
Cognome con l'accento (es. BACA'), a questo punto mi va in errore a
causa dell'accento, la riga che ho inserito è la seguente:
--------------------------------------------------------------------------------------------------------------
Private Sub Combo136_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Cognome e Nome] = '" & Me![Combo136] & "'"
    Me.Bookmark = rs.Bookmark
End Sub
---------------------------------------------------------------------------------------------------------------
Come posso ovviare al problema ?
Vi ringrazio, e devo ammettere che questo newsgroup è non utile ma
INDISPENSABILE.
A presto
ThaiChi


author: Antonio Biso

text:
ThaiChi <
011...@bigfoot.com
> wrote in message
3c230e1c...@news.iunet.it...
> Salve a tutti,
>
> doverosi gli auguri di Buon Natale.
>
> Vengo al quesito:
>
> Ho creato una query dove ho unito i campi Cognome, Nome e Data di
> nascita per avere un record univoco e poter fare la ricerca (se era
> solo su cognome, si posizionava sul primo record che trovava e non mi
> faceva selezionare quello successivo con lo stesso cognome).
> Va tutto alla perfezione fino a quando non faccio la selezione di un
> Cognome con l'accento (es. BACA'), a questo punto mi va in errore a
> causa dell'accento, la riga che ho inserito è la seguente:
>
> --------------------------------------------------------------------------
------------------------------------
>
> Private Sub Combo136_AfterUpdate()
>     ' Find the record that matches the control.
>     Dim rs As Object
>
>     Set rs = Me.Recordset.Clone
>     rs.FindFirst "[Cognome e Nome] = '" & Me![Combo136] & "'"
= " & chr(34) & combo136 & chr(34)
Antonio


author: Vincenzo

text:
Non male
virtual machine tre postazioni sulla stessa macchina
http://www.vmware.com/
--
www.marcoweb.it


title: Problema creazione Replica parziale

author: Mauro

text:
Buongiorno a tutti..... spero possiate aiutarmi:
Nel tentavivo di creazione di una replica parziale del mio database mi
compare il seguente msg:
" Errore durante l'inserimento dei dati nella replica parziale. Errore
restituito dal motore Jet: Reserved error (-1613)"
Cosa devo fare..??
Ringrazio in anticipo chi potrà aiutarmi.
Saluti
Mauro


title: visualizzare un campo query in formato "migliaia"

author: # vbaRstat #

text:
Ho una query che mi permette di visualizzare dei dati jointando diverse
tabelle. Il risultato della query verrà visualizzato in formato
"Visualizzazione foglio dati" ed alcuni campi dovranno essere in
formato "migliaia", ossia visualizzati tramite il "separatore delle
migliaia" così come avviene in excel. Per capirci: 10345,98 dovrà
apparire come 10.345,98.
E' possibile?
grazie
# vbaRstat #


text:
# vbaRstat # ha scritto:

in query imposta un campo così:
dato: Format([tuocampo];"standard")


text:
BR1 ha scritto:

Perfetto!!! l'unico problemino ora è che i valori sono tutti allineati
a sinistra, mentre io vorrei lo fossero a destra. Esempio:
123,12
1.234,123
mentre io vorrei:
    123,12
1.234,123


text:


da query non è possibile, devi farlo da maschera o da report (utilizza
autocomposizione guidata, e poi vai in struttura e lo allinei a
sinistra)


text:
BR1 ha scritto:

scusami non capito, cmq ho risolto così come mi è stato indicato qui:
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/427ab8875aee5dc6/a891e9b3e1405e4c?hl=it#a891e9b3e1405e4c
# vbaRstat #


title: Come sapere su un report è stato stampato o no

text:
Salve a tutti,
ho necessità di lanciare una routine di aggiornamento soltanto dopo la
stampa di un report, per questo, prima di postare il quesito in
oggetto ho fatto numerosissime ricerche, ed ho trovato questo codice:
Private Declare Function GetWindowText _
     Lib "user32" Alias "GetWindowTextA" _
    (ByVal hWnd&, ByVal lpstrTitleBuff$, _
     ByVal intCharstoCopy%) as Long
Private Declare Function GetClassName _
    Lib "user32" Alias "GetClassNameA" _
    (ByVal hWnd As Long, ByVal lpClassName As String, _
     ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow _
     Lib "user32" (ByVal hWnd As Long, _
     ByVal wFlag As Long) As Long
Private Declare Function FindWindowEx _
     Lib "user32" Alias "FindWindowExA" _
    (ByVal hwndParent As Long, ByVal hWndChid As Long, _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long
Private Declare Function IsWindowVisible Lib _
     "user32" (ByVal hWndTarget As Long) As Long
Public Function ChkPreview(RptName As String) As Boolean
'-------------------------------------------------------
'Purpose: To see if an Access report is open in preview
'or not (i.e. its opened to print)
'Accepts: Report Name up to 100 characters
'Return: True if in preview, false if not
'Copyright © 1997-98 ATTAC Consulting Group, Ann Arbor, MI USA
'All rights reserved.
'---------------------------------------------------------
On Error GoTo Err_MWC
    Dim Winhwnd&, hWndMIDI&, hWndTarget&
    Dim ClsNameBuff$
    Dim ClsBuffsz%
    Dim TitleBuff As String * 100
    Dim titlestr$
    Dim dwReturn&
    Const TARGET_WINDOW_MIDI = "MDIClient"
    Const TARGET_WINDOW_DB = "OReport"
    Const GW_HWNDNEXT = 2
    Const GW_CHILD = 5
    ClsBuffsz = 30
    ClsNameBuff = Space(ClsBuffsz)
    ChkPreview = False
    Winhwnd = Application.hWndAccessApp
    hWndMIDI = FindWindowEx(Winhwnd, 0&, TARGET_WINDOW_MIDI,
vbNullString)
    If hWndMIDI = 0 Then
        'If its not found exit gracefully
        Exit Function
    End If
    'Found the MIDI Client Class, Now find the OReport Class window
    'by looking through children for a report with the like name.
    hWndTarget = GetWindow(hWndMIDI, GW_CHILD)
     While hWndTarget > 0
        dwReturn = GetClassName(hWndTarget, ClsNameBuff, ClsBuffsz)
        If InStr(ClsNameBuff, TARGET_WINDOW_DB) > 0 Then
            dwReturn = GetWindowText(hWndTarget, TitleBuff, 100)
            titlestr = Trim(TitleBuff)
            If InStr(titlestr, RptName) > 0 Then
                dwReturn = IsWindowVisible(hWndTarget)
                If dwReturn = 1 Then ChkPreview = True
                Exit Function
            End If
        End If
        hWndTarget = GetWindow(hWndTarget, GW_HWNDNEXT)
    Wend
Exit_MWC:
    Exit Function
Err_MWC:
    Resume Exit_MWC
End Function
ll problema è che non riesco ad applicarlo, o meglio, ricevo sempre
come valore "true", sia che stampo il report, sia che lo visualizzo in
anteprima.
HELP!!!!
Grazie a tutti.


text:
ll problema è che non riesco ad applicarlo, o meglio, ricevo sempre
come valore "true", sia che stampo il report, sia che lo visualizzo in
anteprima.
HELP!!!!
Grazie a tutti.
Non sò bene cosa dire di quel codice che servirebbe solo per capire se viene
aperta la Finestra del Report...
Credo che con una semplice chiamata a:
     currentproject.AllReports("Nome").IsLoaded
In ogni caso è una questione di gusti...!
Detto questo, sostengo che entrambe non servono a nulla se vuoi determinare
se la STAMPA è andata a buon fine...!
In questo caso la cosa è estremamente complessa, ma posso darti qualce
riferimento per fare delle prove.
Tu di cosa hai bisogno...?
Se ti basta definire STAMPATO un report inviato allora lo consideri stampato
su Print mentre sul Preview devi realizzarti una
funzione che lo manda in Stampa(dico funzione perchè la stampa Nativa non la
controlli... e se devi memorizzare l'azione avvenutoa serve
pilotarla)
Il concetto è che se devi salvare l'avvenuta stampa serve un Campo in una
Tabella in cui memorizzarlo...!
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
Ti ringrazio della precisa e puntuale risposta Alessandro,
a questo punto è richiesta una mia ulteriore precisazione e a questo
provvedo subito:
io ho un campo "stampato" (flag) nella mia tabella, la mia necessità è
che devo, oltre a verificare l'avvenuta stampa per aggiornare il flag,
dopo la stessa lanciare una routine che esegue delle operazioni,
quindi se l'utente apre il report, lo visualizza ma non lo stampa, non
deve succedere nulla, e qui nasce il problema, pochè non riesco ad
individuare il punto dove devo intercettare la stampa o meno.
Cerco dunque una soluzione "elegante", senza inibire il pulsante
nativo di access, o senza lanciare msgbox di conferma, semplicemente
individuare l'invio effettivo dell'output in stampa o meno, questo,
semplicemente vorrei realizzare, se qualcuno più esperto di me, che ha
già cercato soluzioni per lo stesso tipo di problema ed è sicuro che
non ve ne siano e me lo comunica, bene, mi metto l'anima in pace, al
contrario continuerò a cercare.
Per quanto riguarda i tuoi aiuti, devo essere sincero non li ho
afferrati del tutto, se puoi essere più preciso, a seguito anche di
queste mie ulteriori specificazioni, te ne sarei grato.
In ogni caso, grazie ancora Alessandro e a tutti voi.
Un caro saluto.


text:



Un caro saluto.
La cosa più corretta tecnicamente è intercettare i messaggi dello SPOOLER...
ti allego
un link dal quale puoi trovare del codice VB6 perfettamente integrabile in
VBA... non sarà un giochetto però...!
http://www.vbcodelibrary.co.uk/modules.php?name=Content&pa=showpage&pid=2&page=1
Altrimenti puoi dividere in 2 il problema(dando per scontato che una volta
inviato il DoDmd.OpenReport di certo
venga stampato però ci sono 2 casi:
1) Caso in cui l'utente faccia la stampa diretta senza anteprima...
    In questo caso ti basta mettere un DoEvents dopo l'esecuzione della
chiamata OpenReport
    ed eseguire subito dopo quelle condizioni che dicevi...!
2) Caso in cui l'utente voglia l'Anteprima...
    In questo caso se apri il Report in modalità acDialog il ritorno al
codice di chiamata avverrà solo se il Report verrà chiuso.
    Il problema è che non sei in grado di capire se è stato chiuso a seguito
della stampa o per chiusura se utilizzi il comando del menù standard.
    Per questo di dicevo di crearti un Menù dedicato in cui la funzione di
Stampa condiziona una variabile Public che puoi leggere dal codice
    chiamante al fine di sapere se è stato stampato.
Non credo ci siano molte soluzioni.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
<
massimi...@yahoo.com
> ha scritto nel messaggio
news:5143424a-1968-4bc1...@d21g2000prf.googlegroups.com...


text:
Ciao Alessandro,
la prima soluzione sicuramente è la più interessante (ed elegante), e
mi cimenterò con questa, (beh... per il fatto che non sia un
giochetto...vorrà dire che mi diverterò un pò di più....)
se non dovessi riuscirci passerò alla seconda eventualità,
ad ogni modo posterò qui la soluzione che adotterò a beneficio di
tutti, perchè davvero non si trova molto in giro al riguardo, forse
perchè il problema è appunto complesso e molti risolvono bypassando il
nocciolo della questione adottando misure poco eleganti (senza offesa
per nessuno, forse alla fine dovrò arrendermi anch'io...)
In ogni caso sei stato molto utile e ti ringrazio ancora.
Ciao a tutti.


text:
Un salutone a tutti,
come promesso, avendo risolto il problema, posto la mia soluzione a
beneficio di tutti, poichè la ritengo abbastanza "elegante", pur con i
suoi limiti  ed ancora ovviamente migliorabile, ringrazio ancora
Alessandro Baraldi, che con le sue utili indicazioni mi ha instradato
sulla via giusta.
Innanzitutto il codice originario che ho adattato l'ho tratto da
questo articolo:
http://support.microsoft.com/kb/202480/it
per capire il funzionamento semplicemente agire così:
==> si crea un database nuovo, da una base dati (tabella o query)
qualunque si crea un report qualunque, in un modulo nuovo si incolla
questo codice:
Option Explicit
    Public PrinterStatus As String
    Public JobStatus As String
    Public ErrorInfo As String
    Public JI2 As JOB_INFO_2
Public Declare Function lstrcpy Lib "kernel32" _
   Alias "lstrcpyA" _
   (ByVal lpString1 As String, _
   ByVal lpString2 As String) _
   As Long
Public Declare Function OpenPrinter Lib "winspool.drv" _
   Alias "OpenPrinterA" _
   (ByVal pPrinterName As String, _
   phPrinter As Long, _
   pDefault As PRINTER_DEFAULTS) _
   As Long
Public Declare Function GetPrinter Lib "winspool.drv" Alias
"GetPrinterA" _
   (ByVal hPrinter As Long, _
   ByVal Level As Long, _
   pPrinter As Byte, _
   ByVal cbBuf As Long, _
   pcbNeeded As Long) _
   As Long
Public Declare Function ClosePrinter Lib "winspool.drv" _
   (ByVal hPrinter As Long) _
   As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)
Public Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA"
_
   (ByVal hPrinter As Long, _
   ByVal FirstJob As Long, _
   ByVal NoJobs As Long, _
   ByVal Level As Long, _
   pJob As Byte, _
   ByVal cdBuf As Long, _
   pcbNeeded As Long, _
   pcReturned As Long) _
   As Long
' constants for PRINTER_DEFAULTS structure
Public Const PRINTER_ACCESS_USE = &H8
Public Const PRINTER_ACCESS_ADMINISTER = &H4
' constants for DEVMODE structure
Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
Public Type PRINTER_DEFAULTS
   pDatatype As String
   pDevMode As Long
   DesiredAccess As Long
End Type
Public Type DEVMODE
   dmDeviceName As String * CCHDEVICENAME
   dmSpecVersion As Integer
   dmDriverVersion As Integer
   dmSize As Integer
   dmDriverExtra As Integer
   dmFields As Long
   dmOrientation As Integer
   dmPaperSize As Integer
   dmPaperLength As Integer
   dmPaperWidth As Integer
   dmScale As Integer
   dmCopies As Integer
   dmDefaultSource As Integer
   dmPrintQuality As Integer
   dmColor As Integer
   dmDuplex As Integer
   dmYResolution As Integer
   dmTTOption As Integer
   dmCollate As Integer
   dmFormName As String * CCHFORMNAME
   dmLogPixels As Integer
   dmBitsPerPel As Long
   dmPelsWidth As Long
   dmPelsHeight As Long
   dmDisplayFlags As Long
   dmDisplayFrequency As Long
End Type
Type SYSTEMTIME
   wYear As Integer
   wMonth As Integer
   wDayOfWeek As Integer
   wDay As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
End Type
Type JOB_INFO_2
   JobId As Long
   pPrinterName As Long
   pMachineName As Long
   pUserName As Long
   pDocument As Long
   pNotifyName As Long
   pDatatype As Long
   pPrintProcessor As Long
   pParameters As Long
   pDriverName As Long
   pDevMode As Long
   pStatus As Long
   pSecurityDescriptor As Long
   Status As Long
   Priority As Long
   Position As Long
   StartTime As Long
   UntilTime As Long
   TotalPages As Long
   Size As Long
   Submitted As SYSTEMTIME
   time As Long
   PagesPrinted As Long
End Type
Type PRINTER_INFO_2
   pServerName As Long
   pPrinterName As Long
   pShareName As Long
   pPortName As Long
   pDriverName As Long
   pComment As Long
   pLocation As Long
   pDevMode As Long
   pSepFile As Long
   pPrintProcessor As Long
   pDatatype As Long
   pParameters As Long
   pSecurityDescriptor As Long
   Attributes As Long
   Priority As Long
   DefaultPriority As Long
   StartTime As Long
   UntilTime As Long
   Status As Long
   cJobs As Long
   AveragePPM As Long
End Type
Public Const ERROR_INSUFFICIENT_BUFFER = 122
Public Const PRINTER_STATUS_BUSY = &H200
Public Const PRINTER_STATUS_DOOR_OPEN = &H400000
Public Const PRINTER_STATUS_ERROR = &H2
Public Const PRINTER_STATUS_INITIALIZING = &H8000
Public Const PRINTER_STATUS_IO_ACTIVE = &H100
Public Const PRINTER_STATUS_MANUAL_FEED = &H20
Public Const PRINTER_STATUS_NO_TONER = &H40000
Public Const PRINTER_STATUS_NOT_AVAILABLE = &H1000
Public Const PRINTER_STATUS_OFFLINE = &H80
Public Const PRINTER_STATUS_OUT_OF_MEMORY = &H200000
Public Const PRINTER_STATUS_OUTPUT_BIN_FULL = &H800
Public Const PRINTER_STATUS_PAGE_PUNT = &H80000
Public Const PRINTER_STATUS_PAPER_JAM = &H8
Public Const PRINTER_STATUS_PAPER_OUT = &H10
Public Const PRINTER_STATUS_PAPER_PROBLEM = &H40
Public Const PRINTER_STATUS_PAUSED = &H1
Public Const PRINTER_STATUS_PENDING_DELETION = &H4
Public Const PRINTER_STATUS_PRINTING = &H400
Public Const PRINTER_STATUS_PROCESSING = &H4000
Public Const PRINTER_STATUS_TONER_LOW = &H20000
Public Const PRINTER_STATUS_USER_INTERVENTION = &H100000
Public Const PRINTER_STATUS_WAITING = &H2000
Public Const PRINTER_STATUS_WARMING_UP = &H10000
Public Const JOB_STATUS_PAUSED = &H1
Public Const JOB_STATUS_ERROR = &H2
Public Const JOB_STATUS_DELETING = &H4
Public Const JOB_STATUS_SPOOLING = &H8
Public Const JOB_STATUS_PRINTING = &H10
Public Const JOB_STATUS_OFFLINE = &H20
Public Const JOB_STATUS_PAPEROUT = &H40
Public Const JOB_STATUS_PRINTED = &H80
Public Const JOB_STATUS_DELETED = &H100
Public Const JOB_STATUS_BLOCKED_DEVQ = &H200
Public Const JOB_STATUS_USER_INTERVENTION = &H400
Public Const JOB_STATUS_RESTART = &H800
Public Function GetString(ByVal PtrStr As Long) As String
   Dim StrBuff As String * 256
   'Check for zero address
   If PtrStr = 0 Then
      GetString = " "
      Exit Function
   End If
   'Copy data from PtrStr to buffer.
   CopyMemory ByVal StrBuff, ByVal PtrStr, 256
   'Strip any trailing nulls from string.
   GetString = StripNulls(StrBuff)
End Function
Public Function StripNulls(OriginalStr As String) As String
   'Strip any trailing nulls from input string.
   If (InStr(OriginalStr, Chr(0)) > 0) Then
      OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
   End If
   'Return modified string.
   StripNulls = OriginalStr
End Function
Public Function PtrCtoVbString(Add As Long) As String
    Dim sTemp As String * 512
    Dim x As Long
    x = lstrcpy(sTemp, Add)
    If (InStr(1, sTemp, Chr(0)) = 0) Then
         PtrCtoVbString = ""
    Else
         PtrCtoVbString = Left(sTemp, InStr(1, sTemp, Chr(0)) - 1)
    End If
End Function
Public Function CheckPrinterStatus(PI2Status As Long) As String
   Dim tempStr As String
   If PI2Status = 0 Then   ' Return "Ready"
      CheckPrinterStatus = "Printer Status = Ready" & vbCrLf
   Else
      tempStr = ""   ' Clear
      If (PI2Status And PRINTER_STATUS_BUSY) Then
         tempStr = tempStr & "Busy  "
      End If
      If (PI2Status And PRINTER_STATUS_DOOR_OPEN) Then
         tempStr = tempStr & "Printer Door Open  "
      End If
      If (PI2Status And PRINTER_STATUS_ERROR) Then
         tempStr = tempStr & "Printer Error  "
      End If
      If (PI2Status And PRINTER_STATUS_INITIALIZING) Then
         tempStr = tempStr & "Initializing  "
      End If
      If (PI2Status And PRINTER_STATUS_IO_ACTIVE) Then
         tempStr = tempStr & "I/O Active  "
      End If
      If (PI2Status And PRINTER_STATUS_MANUAL_FEED) Then
         tempStr = tempStr & "Manual Feed  "
      End If
      If (PI2Status And PRINTER_STATUS_NO_TONER) Then
         tempStr = tempStr & "No Toner  "
      End If
      If (PI2Status And PRINTER_STATUS_NOT_AVAILABLE) Then
         tempStr = tempStr & "Not Available  "
      End If
      If (PI2Status And PRINTER_STATUS_OFFLINE) Then
         tempStr = tempStr & "Off Line  "
      End If
      If (PI2Status And PRINTER_STATUS_OUT_OF_MEMORY) Then
         tempStr = tempStr & "Out of Memory  "
      End If
      If (PI2Status And PRINTER_STATUS_OUTPUT_BIN_FULL) Then
         tempStr = tempStr & "Output Bin Full  "
      End If
      If (PI2Status And PRINTER_STATUS_PAGE_PUNT) Then
         tempStr = tempStr & "Page Punt  "
      End If
      If (PI2Status And PRINTER_STATUS_PAPER_JAM) Then
         tempStr = tempStr & "Paper Jam  "
      End If
      If (PI2Status And PRINTER_STATUS_PAPER_OUT) Then
         tempStr = tempStr & "Paper Out  "
      End If
      If (PI2Status And PRINTER_STATUS_OUTPUT_BIN_FULL) Then
         tempStr = tempStr & "Output Bin Full  "
      End If
      If (PI2Status And PRINTER_STATUS_PAPER_PROBLEM) Then
         tempStr = tempStr & "Page Problem  "
      End If
      If (PI2Status And PRINTER_STATUS_PAUSED) Then
         tempStr = tempStr & "Paused  "
      End If
      If (PI2Status And PRINTER_STATUS_PENDING_DELETION) Then
         tempStr = tempStr & "Pending Deletion  "
      End If
      If (PI2Status And PRINTER_STATUS_PRINTING) Then
         tempStr = tempStr & "Printing  "
      End If
      If (PI2Status And PRINTER_STATUS_PROCESSING) Then
         tempStr = tempStr & "Processing  "
      End If
      If (PI2Status And PRINTER_STATUS_TONER_LOW) Then
         tempStr = tempStr & "Toner Low  "
      End If
      If (PI2Status And PRINTER_STATUS_USER_INTERVENTION) Then
         tempStr = tempStr & "User Intervention  "
      End If
      If (PI2Status And PRINTER_STATUS_WAITING) Then
         tempStr = tempStr & "Waiting  "
      End If
      If (PI2Status And PRINTER_STATUS_WARMING_UP) Then
         tempStr = tempStr & "Warming Up  "
      End If
      'Did you find a known status?
      If Len(tempStr) = 0 Then
         tempStr = "Unknown Status of " & PI2Status
      End If
      'Return the Status
      CheckPrinterStatus = "Printer Status = " & tempStr & vbCrLf
   End If
End Function
Public Function CheckPrinter(PrinterStr As String, JobStr As String)
As String
   Dim hPrinter As Long
   Dim ByteBuf As Long
   Dim BytesNeeded As Long
   Dim PI2 As PRINTER_INFO_2
   Dim PrinterInfo() As Byte
   Dim JobInfo() As Byte
   Dim result As Long
   Dim LastError As Long
   Dim PrinterName As String
   Dim tempStr As String
   Dim NumJI2 As Long
   Dim pDefaults As PRINTER_DEFAULTS
   Dim I As Integer
   'Set a default return value if no errors occur.
   CheckPrinter = "Printer info retrieved"
   'NOTE: You can pick a printer from the Printers Collection
   'or use the EnumPrinters() API to select a printer name.
   'Use the default printer of Printers collection.
   'This is typically, but not always, the system default printer.
   PrinterName = Printer.DeviceName
   'Set desired access security setting.
   pDefaults.DesiredAccess = PRINTER_ACCESS_USE
   'Call API to get a handle to the printer.
   result = OpenPrinter(PrinterName, hPrinter, pDefaults)
   If result = 0 Then
      'If an error occurred, display an error and exit sub.
      CheckPrinter = "Cannot open printer " & PrinterName & _
         ", Error: " & Err.LastDllError
      Exit Function
   End If
   'Init BytesNeeded
   BytesNeeded = 0
   'Clear the error object of any errors.
   Err.Clear
   'Determine the buffer size that is needed to get printer info.
   result = GetPrinter(hPrinter, 2, 0&, 0&, BytesNeeded)
   'Check for error calling GetPrinter.
   If Err.LastDllError <> ERROR_INSUFFICIENT_BUFFER Then
      'Display an error message, close printer, and exit sub.
      CheckPrinter = " > GetPrinter Failed on initial call! <"
      ClosePrinter hPrinter
      Exit Function
   End If
   'Note that in Charles Petzold's book "Programming Windows 95," he
   'states that because of a problem with GetPrinter on Windows 95
only, you
   'must allocate a buffer as much as three times larger than the
value
   'returned by the initial call to GetPrinter. This is not done here.
   ReDim PrinterInfo(1 To BytesNeeded)
   ByteBuf = BytesNeeded
   'Call GetPrinter to get the status.
   result = GetPrinter(hPrinter, 2, PrinterInfo(1), ByteBuf, _
     BytesNeeded)
   'Check for errors.
   If result = 0 Then
      'Determine the error that occurred.
      LastError = Err.LastDllError()
      'Display error message, close printer, and exit sub.
      CheckPrinter = "Couldn't get Printer Status!  Error = " _
         & LastError
      ClosePrinter hPrinter
      Exit Function
   End If
   'Copy contents of printer status byte array into a
   'PRINTER_INFO_2 structure to separate the individual elements.
   CopyMemory PI2, PrinterInfo(1), Len(PI2)
   'Check if printer is in ready state.
   PrinterStr = CheckPrinterStatus(PI2.Status)
   'Add printer name, driver, and port to list.
   PrinterStr = PrinterStr & "Printer Name = " & _
     GetString(PI2.pPrinterName) & vbCrLf
   PrinterStr = PrinterStr & "Printer Driver Name = " & _
     GetString(PI2.pDriverName) & vbCrLf
   PrinterStr = PrinterStr & "Printer Port Name = " & _
     GetString(PI2.pPortName) & vbCrLf
   'Call API to get size of buffer that is needed.
   result = EnumJobs(hPrinter, 0&, &HFFFFFFFF, 2, ByVal 0&, 0&, _
      BytesNeeded, NumJI2)
   'Check if there are no current jobs, and then display appropriate
message.
   If BytesNeeded = 0 Then
      JobStr = "No Print Jobs!"
   Else
      'Redim byte array to hold info about print job.
      ReDim JobInfo(0 To BytesNeeded)
      'Call API to get print job info.
      result = EnumJobs(hPrinter, 0&, &HFFFFFFFF, 2, JobInfo(0), _
        BytesNeeded, ByteBuf, NumJI2)
      'Check for errors.
      If result = 0 Then
         'Get and display error, close printer, and exit sub.
         LastError = Err.LastDllError
         CheckPrinter = " > EnumJobs Failed on second call! <  Error =
" _
            & LastError
         ClosePrinter hPrinter
         Exit Function
      End If
      'Copy contents of print job info byte array into a
      'JOB_INFO_2 structure to separate the individual elements.
      For I = 0 To NumJI2 - 1   ' Loop through jobs and walk the
buffer
          CopyMemory JI2, JobInfo(I * Len(JI2)), Len(JI2)
          ' List info available on Jobs.
          Debug.Print "Job ID" & vbTab & JI2.JobId
          Debug.Print "Name Of Printer" & vbTab & _
            GetString(JI2.pPrinterName)
          Debug.Print "Name Of Machine That Created Job" & vbTab & _
            GetString(JI2.pMachineName)
          Debug.Print "Print Job Owner's Name" & vbTab & _
            GetString(JI2.pUserName)
          Debug.Print "Name Of Document" & vbTab &
GetString(JI2.pDocument)
          Forms!Stampe!docname = GetString(JI2.pDocument)
          Debug.Print "Name Of User To Notify" & vbTab & _
            GetString(JI2.pNotifyName)
          Debug.Print "Type Of Data" & vbTab &
GetString(JI2.pDatatype)
          Debug.Print "Print Processor" & vbTab & _
            GetString(JI2.pPrintProcessor)
          Debug.Print "Print Processor Parameters" & vbTab & _
            GetString(JI2.pParameters)
          Debug.Print "Print Driver Name" & vbTab & _
            GetString(JI2.pDriverName)
          Debug.Print "Print Job 'P' Status" & vbTab & _
            GetString(JI2.pStatus)
          Debug.Print "Print Job Status" & vbTab & JI2.Status
          Debug.Print "Print Job Priority" & vbTab & JI2.Priority
          Debug.Print "Position in Queue" & vbTab & JI2.Position
          Debug.Print "Earliest Time Job Can Be Printed" & vbTab & _
            JI2.StartTime
          Debug.Print "Latest Time Job Will Be Printed" & vbTab & _
            JI2.UntilTime
          Debug.Print "Total Pages For Entire Job" & vbTab &
JI2.TotalPages
          Debug.Print "Size of Job In Bytes" & vbTab & JI2.Size
          'Because of a bug in Windows NT 3.51, the time member is not
set correctly.
          'Therefore, do not use the time member on Windows NT 3.51.
          Debug.Print "Elapsed Print Time" & vbTab & JI2.time
          Debug.Print "Pages Printed So Far" & vbTab &
JI2.PagesPrinted
          'Display basic job status info.
          JobStr = JobStr & "Job ID = " & JI2.JobId & _
             vbCrLf & "Total Pages = " & JI2.TotalPages & vbCrLf
          Forms!Stampe!numprintedpages = JI2.PagesPrinted
          tempStr = ""   'Clear
          'Check for a ready state.
          If JI2.pStatus = 0& Then   ' If pStatus is Null, check
Status.
            If JI2.Status = 0 Then
               tempStr = tempStr & "Ready!  " & vbCrLf
            Else  'Check for the various print job states.
               If (JI2.Status And JOB_STATUS_SPOOLING) Then
                  tempStr = tempStr & "Spooling  "
               End If
               If (JI2.Status And JOB_STATUS_OFFLINE) Then
                  tempStr = tempStr & "Off line  "
               End If
               If (JI2.Status And JOB_STATUS_PAUSED) Then
                  tempStr = tempStr & "Paused  "
               End If
               If (JI2.Status And JOB_STATUS_ERROR) Then
                  tempStr = tempStr & "Error  "
               End If
               If (JI2.Status And JOB_STATUS_PAPEROUT) Then
                  tempStr = tempStr & "Paper Out  "
               End If
               If (JI2.Status And JOB_STATUS_PRINTING) Then
                  tempStr = tempStr & "Printing  "
               End If
               If (JI2.Status And JOB_STATUS_USER_INTERVENTION) Then
                  tempStr = tempStr & "User Intervention Needed  "
               End If
               If Len(tempStr) = 0 Then
                  tempStr = "Unknown Status of " & JI2.Status
               End If
            End If
        Else
            ' Dereference pStatus.
            tempStr = PtrCtoVbString(JI2.pStatus)
        End If
          'Report the Job status.
          JobStr = JobStr & tempStr & vbCrLf
          Debug.Print JobStr & tempStr
          Forms!Stampe!statprint = tempStr
      Next I
   End If
   'Close the printer handle.
   ClosePrinter hPrinter
End Function
==> in una maschera che chiameremo "Stampe" si creano 5 caselle di
testo che chiamerò Text1 Text2 Text3 docname statprint e
numprintedpages
==> nella stessa maschera si creerà un pulsante di stampa anteprima
del report interessato ed un pulsante "Clear" che si occuperà di
svuotare le caselle di testo
==> nell'evento "su chiusura" del report interessato incollare questo
codice:
    Forms!Stampe!Text1 = CheckPrinter(PrinterStatus, JobStatus)
    Forms!Stampe!Text2 = PrinterStatus
    Forms!Stampe!Text3 = JobStatus
    If GetString(JI2.pDocument) = Me.Name And (Not IsNull(Forms!Stampe!
numprintedpages) Or Forms!Stampe!numprintedpages = "") Then
        MsgBox ("Il report è stato stampato!")
    Else
        MsgBox ("Il report non è stato stampato!")
    End If
Con questo sistema riesco ad intercettare l'effettivo invio in stampa
del report visualizzato.
Si potrebbero intercettare eventuali errori dopo l'invio in stampa
poichè il codice lo provede, però questo per me rappresentava un plus
non al momento necessario.
Sperando di essere stato utile ringrazio e saluto tutti.


text:
Bravo, complimenti per la tenacia.
Se vuoi realizzare un MiniDemo semplice per questo argomento
inserendo i riferimenti del codice trovato lo pubblico a tuo nome volentieri
nel mio sito.



text:
Grazie,
il minidemo l'ho già creato, c'è un piccolo problema però...
e cioè è testato e funziona se la stampante è in locale, ma se è in
rete non funziona, forse mi manca qualcosa...
ad ogni modo ti posso inviare il db, dimmi come e dove ciao
Saluti.


author: Alessandro Baraldi

text:
On 11 Feb, 11:19, "
massimilian...@yahoo.com
"

mmmm strano... a meno che la stampante non sia quella di un PC in
rete...!
in ogni caso mandalo quì(faccio qualche prova):
i k 2 z o k @ l i b e r o . i t
(Togli tutti gli Space)
@Alex


text:
Si infatti la stampante è in un server, il computer è collegato al
server e la stampa avviene tramite la stampante di rete,
però ho fatto ulteriori prove e sono riuscito a risolvere anche questo
problema almeno credo..
comunque ti ho appena inviato due mini db demo con le spiegazioni alla
casella di posta che mi hai indicato.
A presto.
Ciao a tutti.


text:
On 11 Feb, 12:23, "
massimilian...@yahoo.com
"

La FAQ che ti ho suggerito io all'inizio si basa un un concetto
leggermente differente, usa in pratica un CallBack(che forse potrebbe
essere più comodo).
Quello che hai fatto tu invece si basa sulla verifica RealTime che
come evidenzia anche la FAQ(KB di MS) richiede il check su Timer, come
hai giustamente fatto.
Tempo permettendo voglio vedere di far funzionare quanto deriva dal
mio Link, poi vediamo la differenza di funzionamento.
[Ricevuto tutto]
Ciao
@Alex


text:
Si in effetti hai ragione, ma poi facendo altre ricerche mi sono
imbattuto nel codice che poi ho postato, pensando ad un utilizzo più
semplice, cosa che in realtà non si è rivelata tale, (ho una notevole
predisposizione per complicarmi le cose, ma è che sennò non mi
deverto...eh eh..)
Ad ogni modo aspetto con ansia il risultato delle tue prove.
Grazie ancora e a presto.
Ciao a tutti.


title: Un solo report ma recordsource diversi

author: ep

text:
Ciao a tutti.
In A97 ho 3 tabelle di uguale struttura.
Vorrei utilizzare un solo report e cambiargli
run-time il recordsource in modo da
decidere all'atto della openreport su quale tabelle si deve basare
(tanto i campi hanno gli stessi nomi).
Si puo' ?
Ciao e grazie
ep


title: Un solo report ma recordsource diversi

text:
"ep" <
sof...@libero.it
> ha scritto nel messaggio
news:dhid50tc4tgqk2ktt...@4ax.com...

Su evento su apertura del report scrivi del codice che ti cambia
opportunamente la proprietą recordsource
Antonio


title: Un solo report ma recordsource diversi

author: Roberto da casa

text:
"ep" <
sof...@libero.it
> ha scritto nel messaggio
news:dhid50tc4tgqk2ktt...@4ax.com...

Certo che si può: a fronte dell'evento "Su apertura" del report imposta a
tuo piacimento la proprietà RecordSource del report stesso (vedi help).
>
> Ciao e grazie
>
> ep
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Un solo report ma recordsource diversi

text:
"ep" <
sof...@libero.it
> wrote in message
news:dhid50tc4tgqk2ktt...@4ax.com

Contrariamente al Metodo OpenForm che dispone dell'Opzione
OpenArgs(Utile per passare questi tipi di Parametri) OpenReport
non può.
Di conseguenza la modifica della proprietà RecordSource come
giustamente ti hanno consigliato Antonio e Roberto può essere
fatta nell'EVENTO Caricamento.
Come passare il NuovoParametro invece credo sia il Problema
più importante.
Quì hai almeno 3 Strade:
1)Basi il REPORT su di una Query, e prima di aprirlo
in base al condizionante modifichi la Proprietà SQL
attraverso QueryDefs("nomeQuery").SQL="SELECT ....."
quindi quando apri il Report si apre sull'Origine
che gli hai modificato.
2)Usi una Variabile Public Esterna(In un Modulo) di tipo Stringa
nella quale salvi l'Origine RecordSource sempre come "SELECT..."
ma anche come NomeTabella.....!
Da quì sull'EVENTO Load leggi la Variabile e con
Me.Recorsource=Variabile
hai fatto tutto...!
3)Poichè sicuramente apri il Report da una Form puoi modificarne
il RecordSource proprio nell'istruzione successiva all'apertura:
Docmd.OpenReport "NOmeReport"....
Report![NomeReport].RecordSource="Nuova Origine"
Nono ricordo se serva o meno il Requery del Report....!!!
Io per come sono abituato uso il 1 Metodo PULITO e semplice.
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Un solo report ma recordsource diversi

author: Sergio

text:
"ep" <
sof...@libero.it
> ha scritto nel messaggio
news:dhid50tc4tgqk2ktt...@4ax.com...

lo so che č meno elegante...ma se tu facessi tre copie dello stesso report
ognuna legata ad una delle tre tabelle...


title: Un solo report ma recordsource diversi

text:
"Sergio" <
serpic_toglimi@toglimi_libero.it
> ha scritto nel messaggio
news:c37m3n$lpv$1...@grillo.cs.interbusiness.it...
>
> "ep" <
sof...@libero.it
> ha scritto nel messaggio
> news:dhid50tc4tgqk2ktt...@4ax.com...
> > Ciao a tutti.
> >
> > In A97 ho 3 tabelle di uguale struttura.
> >
> > Vorrei utilizzare un solo report e cambiargli
> > run-time il recordsource in modo da
> > decidere all'atto della openreport su quale tabelle si deve basare
> > (tanto i campi hanno gli stessi nomi).
> >
> > Si puo' ?
> >
> > Ciao e grazie
> >
>
> lo so che è meno elegante...ma se tu facessi tre copie dello stesso report
> ognuna legata ad una delle tre tabelle...
Questa soluzione ha senso solo se la struttura del report è diversa,
altrimenti è già stata fornita la soluzione opportuna...
Antonio


title: databese per le sole tb, mdb o mde?

author: Piero

text:
Ciao a tutti

le tabelle nel database be � meglio salvarle in formato mde o lasciarla in
mdb?
Grazie


title: databese per le sole tb, mdb o mde?

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:5225f69e$0$1346$4faf...@reader2.news.tin.it...



title: databese per le sole tb, mdb o mde?

author: Pablitomf

text:
Piero <
Pi...@Piero.Libero.it
> ha scritto:

> "Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
> news:5225f69e$0$1346$4faf...@reader2.news.tin.it...
> > Ciao a tutti
> >
> > le tabelle nel database be ï¿œ meglio salvarle in formato mde o
lasciarla in
> > mdb?

mde non ti serve a nulla in questo caso, perche' non hai ne' codice, ne'
strutture (Query / Maschere / Report), da preservare... hai solo tabelle,
e le tabelle, che sia mdb, che sia mde, sono libere comunque.

Lascia pure l'mdb.
>

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: databese per le sole tb, mdb o mde?

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201309031...@mynewsgate.net...
> Piero <
Pi...@Piero.Libero.it
> ha scritto:
>
>> "Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
>> news:5225f69e$0$1346$4faf...@reader2.news.tin.it...
>> > Ciao a tutti
>> >
>> > le tabelle nel database be � meglio salvarle in formato mde o
> lasciarla in
>> > mdb?
>
> mde non ti serve a nulla in questo caso, perche' non hai ne' codice, ne'
> strutture (Query / Maschere / Report), da preservare... hai solo tabelle,
> e le tabelle, che sia mdb, che sia mde, sono libere comunque.
>
> Lascia pure l'mdb.
>>
>
>
grazie


title: databese per le sole tb, mdb o mde?

author: RobertoA

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:5225f69e$0$1346$4faf...@reader2.news.tin.it...

Meglio non lasciarle ne in mdb ne in mde
Usa un db server e falle tenere a lui
Dal tuo applicativo userai poi le 'tabelle collegate' fisicamente residenti
dentro al db server
Avrai dei vantaggi enormi: multiutenza, backup dati a caldo, affidabilita'
della tenuta dati e molti altri


title: databese per le sole tb, mdb o mde?

text:
RobertoA <
amor...@tiscalinet.it
> ha scritto:

>
> "Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
> news:5225f69e$0$1346$4faf...@reader2.news.tin.it...
> > Ciao a tutti
> >
> > le tabelle nel database be ï¿œ meglio salvarle in formato mde o
lasciarla in
> > mdb?
> > Grazie
>
> Meglio non lasciarle ne in mdb ne in mde

ops... e come vuoi tenerle ?

> Usa un db server

si, ma cosi'non hai detto praticamente nulla... Un db Server cos'e' se non
un PC che condivide dati ? Il concetto di Server, e' troppo generico detto
cosi'...

> e falle tenere a lui

gli vuoi suggerire a questo punto anche "in che forma" visto che gli hai
sconsigliato sia mdb che mde ? forse intendevi suggerirgli un SQLServer ?
un SQLExpress ?

> Dal tuo applicativo userai poi le 'tabelle collegate' fisicamente residenti
> dentro al db server

questo lo puoi fare anche con mdb in Back End... ovviamente... quindi
siamo punto e a capo...

> Avrai dei vantaggi enormi: multiutenza,

che puoi avere anche con mdb/mde.... ari-ovviamente...

> backup dati a caldo,

che puoi avere anche con mdb/mde.... ari-ovviamente...

> affidabilita'

mmmmm... che vuol dire affidabilita' ?

> della tenuta dati e molti altri

Scusa Roberto, non e' di certo per andare contro il tuo intervento, ma e'
un consiglio troppo generico il tuo per un Piero che chiede A e tu
rispondi Z... ;)



title: databese per le sole tb, mdb o mde?

text:
>> > le tabelle nel database be � meglio salvarle in formato mde o
> lasciarla in
>> > mdb?
>> > Grazie
>>
>> Meglio non lasciarle ne in mdb ne in mde
>
> ops... e come vuoi tenerle ?
>
>> Usa un db server
>
> si, ma cosi'non hai detto praticamente nulla... Un db Server cos'e' se non
> un PC che condivide dati ? Il concetto di Server, e' troppo generico detto
> cosi'...

Per db server intendo un programma che di mestiere faccia quello, Firebird e
Postresql in primis, in secondis Microsoft Sql Server, Oracle, Ibm Db2,
Sybase......

>> e falle tenere a lui
>
> gli vuoi suggerire a questo punto anche "in che forma" visto che gli hai
> sconsigliato sia mdb che mde ? forse intendevi suggerirgli un SQLServer ?
> un SQLExpress ?
>
>> Dal tuo applicativo userai poi le 'tabelle collegate' fisicamente
>> residenti
>> dentro al db server
>
> questo lo puoi fare anche con mdb in Back End... ovviamente... quindi
> siamo punto e a capo...

Il mio consiglio dell'evitare di tenere i dati in formato nativo Access era
per cercare di diminuire la possibilita' di perdita dati, problema non
infrequente con file mdb
La possibilita' di eseguire backup a caldo, durante l'attivita' del
gestionale, e' impagabile e ti mette al sicuro da moltissimi problemi

>> Avrai dei vantaggi enormi: multiutenza,
>
> che puoi avere anche con mdb/mde.... ari-ovviamente...

Si certo, con affidabilita' di funzionamento difficilmente raggiungibili
dall'accoppiata programma Access + dati su db server

>> backup dati a caldo,
>
> che puoi avere anche con mdb/mde.... ari-ovviamente...

Cioe' vuoi dire che un mdb contenente le tabelle dati, attualmente in uso da
qualche programma che ci sta modificando i dati, puoi copiarlo?
O intendi usare qualche altro modo per il backup dati?

>> affidabilita'
>
> mmmmm... che vuol dire affidabilita' ?

Intendevo dire la sicurezza di poter ripartire a lavorare rapidamente anche
in seguito ad un problema hardware/software
Con tutti i dati o comunque quelli presenti nel db prima dell'avvio delle
ultime transazioni, inevitabilmente persi a causa del problema intervenuto

>> della tenuta dati e molti altri
>
> Scusa Roberto, non e' di certo per andare contro il tuo intervento, ma e'
> un consiglio troppo generico il tuo per un Piero che chiede A e tu
> rispondi Z... ;)

Effettivamente non ho risposto direttamente al quesito di Piero
Essendo le stesse domande che mi sono posto parecchi anni fa', cercavo di
evitargli tutti i problemi che la tenuta dati su un mdb ha creato a me
Vagli a dire al cliente che la scheda rete ha il driver non aggiornato o che
durante una scrittura dei dati si e' spento il pc e che questo ha provocato
la corruzione dei dati
Ti chiedera' di recuperargli le informazioni nel tempo che vuoi, sempre che
sia compreso tra un nanosecondo e un picosecondo, altrimenti il pagamento
delle ultime fatture te le scordi


title: databese per le sole tb, mdb o mde?

text:
> Cioe' vuoi dire che un mdb contenente le tabelle dati, attualmente in
uso da
> qualche programma che ci sta modificando i dati, puoi copiarlo?
> O intendi usare qualche altro modo per il backup dati?

certo...

[CUT]

ecco... ora ti sei spiegato (non x me, ma x Piero)... era un modo per dirti,
che se "Piero" chiede una cosa, e tu gliene dici un'altra (si parte dal
presupposto che Piero non "sappia"), spiegaglielo almeno bene,
altrimenti gli
incasini le idee ancor piu' di quanto non eventualmente sia ;)



title: Grafico con origini dati da una query.

text:
Salve ragazzi scusate come sempre le mie domende...
Beh sono andato a cercarmela da solo guardando un grafico in un giornale ho
pensato è possibile realizzare un grafico in un db(in questo caso il
mio....) ma sinceramente non so da dove cominciare ne come collegare i dati
in una query ....come realizzarlo è in che modo poterlo usare al meglio per
poter dare una panoramica  di tutti i dati IMPORTANTI da visualizzare......
Ogni suggerimento è ben accetto....
--
Grazie dei vostri conisgli ,
Gianni_B


title: Grafico con origini dati da una query.

text:
"Gianni_B" <
gia...@bluewin.ch
> ha scritto nel messaggio
news:40176...@news.bluewin.ch...

Non è che devi sudare molto per inserire, in una maschera o in un report, un
grafico basato sulla tua query: a tale scopo Access prevede un
autocomposizione.
Apri la struttura della maschera o del report dove vuoi inserire il grafico;
dal menu Inserisci seleziona Grafico...; a questo punto con il mouse traccia
l'area (della maschera o report) nella quale vuoi inserire il grafico;
esegui il wizard che viene eseguito da Access cominciando con selezionare la
tabella o query da utilizzare per creare il grafico; continuando a
rispondere alle domande poste dal wizard di autocomposizione alla fine avrai
raggiunto il tuo scopo.
Non ti preoccupare del grafico che Access ti visualizza mentre sei in
visualizzazione struttura: quello che conta è quello che viene visualizzato
quando apri la maschera o il report che contengono il grafico.
>
> --
> Grazie dei vostri conisgli ,
> Gianni_B
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: sp3

author: Maurizio M

text:
ARGOMENTO:
Scaricando il SP3 di Windows e riavviando (come da richiesta del
sistema) il pc si riavvia ininterrottamente senza mai entrare
nell'utente.
SCENARIO:
Leggendo in giro il problema è esclusivamente legato alla
configurazione Hardware del PC (ASUS+AMD) di solito installati
su desk HP, e dovuto principalmente a un file .sys per la
lettura della temperatura del processore che AMD e ASUS non
leggono...
PREMESSA :
Nel caso in cui non l'aveste installato ancora, vi consiglio
vivamente di non farlo (nel caso di una configurazione del tipo
riportato)... altrimenti siete "nei guai", e l'unico (dico
UNICO) modo di risolvere è :
SOLUZIONE:
"RIPRISTINARE DA CD LA VERSIONE DI WINDOWS" (o ovviamente
recuperare immagini del disco precedenti)...
Il ripristino però sarà + congeniale alle esigenze dell'utente
perchè permetterà allo stesso di non perdere alcun dato presente
sul PC.
COME FARE:
settare nel BIOS come primo device di boot il lettore CD,
accendere il PC con il CD di installazione di win nel lettore.
Nella prima schermata premi Invio per avviare l'installazione.
Procedere premendo F8 per accettare il contratto di licenza.
La procedura di setup cercherà le isntallazioni presenti
(scegliere quella propria)
Continuare premendo "R" per avviare la procedura di riparazione
Dopo la fine di tutto il processo (una reinstallazione vera e
propria del SO) i dati saranno intatti ma saranno sostituiti i
componenti del sistema operativo, per cui si dovranno
riapplicare tutti gli aggiornamenti, compreso SP2 se il CD era a
livello precedente...
link.........
http://h10025.www1.hp.com/ewfrf/wc/genericSoftwareDownloadIndex?cc=it&dlc=it&lc=it&softwareitem=pv-60484-2&jumpid=reg_R1002_ITIT
Replica.
cmq il link è per gli HP... non per gli assemblati ASUS tipo Barebone... per
quelli non c'è storia...
e poi è a limite un link da utilizzare "PRIMA" di fare l'aggiornamento...
dopo non serve a nulla.
Altro parere....
Io di SP3 ne ho installati diversi e tutti andati a buon fine.
In rete, proprio due giorni fa è comparso questo strano conportamento da te
descritto ma
relativo ad AVG che corrompe alcuni file di sistema.
La soluzione è quella da te proposta...io però ne ho una migliore.
Magari non è il tuo caso ma potrebbe servire a qualcuno che ha l'AVG
antivirus.
Risposta....
Bisogna staccare il disco (perchè non parte nemmeno in provvisoria) usare un
adattatore e collegarlo ad un secondo computer.
Si apre la cartella C:\WINDOWS\system32\dllcache (oppure
C:\WINDOWS\ServicePackFiles\i386) e si copia il file User32.dll e lo si
incolla in C:\WINDOWS\system32\.
Se il file non esiste lo si potrà estrarre da uno dei file cab dei vari SP o
usare user32.dl_ dal cd di Windows (usando expand).
Stessa operazione la si potrebbe fare da console di ripristino.
Anche nella cartella "quarantena" di AVG si potrebbe prendere il file e
ripristinarlo.
Inoltre si può scaricare il file da qui:
http://www.dlldump.com/download-dll-files_new.php/dllfiles/U/user32.dll/5.1.2600.2180/download.html
Le stesse operazioni vanno fatte per il file winsrv.dll
++++++++++++++++++++++++++++++
ciao
maurizio


title: sp3

text:
Chiedo scusa.
Inviato per errore..
Buona serata a tutti
Maurizio


title: Collega tabelle Access

text:
Vi ringrazio in anticipo per la premura di leggere il mio post.
Una cosa facile (per voi) ma difficile per me.
Ho un database (Arc.mdb) protetto da psw (a me nota), dove vi sono
alcune tabelle che vorrei collegare nel database dove vi sono le
maschere.
Guardando nei forum ho trovato solo un esempio con "
DoCmd.TransferDatabase..."
ma mi chiede di digitare la psw per ogni tabella.
Mi potete aiutare a formulare una funzione che che mi colleghi le
tabelle ?
Grazie e buon lavoro a tutti


title: Collega tabelle Access

author: sv

text:
3357662000 ha scritto:






Vedi Sezione Tabelle - Sito Comune.
In particolare:
1.16 Riallegare tabelle (3) ( Funziona anche se il Backend e' protetto da
password)
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Collega tabelle Access

text:

già visto ma non è il mio caso
ho bisogno di conoscere la sintassi del comando per collegare tabelle,
non per ricollegarle
non a caso le psw possono cambiare per evitare che chi ha una vecchia
versione possa comunque leggere le tabelle, inoltre le tabelle possono
cambiare.
Comunque grazie per la risposta


title: Pulsanti di comando con testo ed icona...

author: Io [Lavoro]

text:
Come faccio a fare apparire in un pulsante di comando sia il testo con
relativo tasto di scelta rapida che un'icona? Quando metto l'icona il testo
sparisce...
PS: mi occorre per Access 2000
Grazie
Ciao


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2libc5F...@uni-berlin.de...

Devi crearti a manina santa una immagine che contenga sia l'icona che, in
sovrascrittura, il testo che ti serve: a questo punto inserisci il file
immagine cosě ottenuto come immagine del pulsante di comando.
Ti rammento che l'evento "Su clic" esiste anche per i controlli Immagine,
che possono quindi essere usati impropriamente come pulsanti di comando.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hOSIc.50295$c_1.1...@twister1.libero.it...
>
> "Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
> news:2libc5F...@uni-berlin.de...
> > Come faccio a fare apparire in un pulsante di comando sia il testo con
> > relativo tasto di scelta rapida che un'icona? Quando metto l'icona il
> testo
> > sparisce...
> > PS: mi occorre per Access 2000
> > Grazie
> > Ciao
>
> Devi crearti a manina santa una immagine che contenga sia l'icona che, in
> sovrascrittura, il testo che ti serve: a questo punto inserisci il file
> immagine cosě ottenuto come immagine del pulsante di comando.
> Ti rammento che l'evento "Su clic" esiste anche per i controlli Immagine,
> che possono quindi essere usati impropriamente come pulsanti di comando.
>
> --
> Roberto
Ti ringrazio... Ma possibile che non ci sia altro modo? Mi sembra un po'
barbaro come metodo!
Ciao


author: Matteo Breda

text:
"Io [Lavoro]"
> Ti ringrazio... Ma possibile che non ci sia altro modo? Mi sembra un po'
> barbaro come metodo!
Perchč barbaro?
Nel testo della .bmp puoi attribuire font, dimensione, colore, attributo che
preferisci: meglio di cosě...
Matteo


text:
"Matteo Breda" <
xx...@libero.it
> ha scritto nel messaggio
news:IATIc.50378$c_1.1...@twister1.libero.it...

OK ho capito DEVO fare cosě... ;-) Mi sapresti indicare dei siti dove
scaricare delle collezioni di immagini da utilizzare nei pulsanti? Mi
interessava trovare degli "stili" per fare tutte le immagini della mia
applicazione simili tra di loro... Non so se mi sono spiegato a dovere ma
spero di si...
Ciao


text:
"Io [Lavoro]" <
> OK ho capito DEVO fare cosě... ;-) Mi sapresti indicare dei siti dove
> scaricare delle collezioni di immagini da utilizzare nei pulsanti? Mi
> interessava trovare degli "stili" per fare tutte le immagini della mia
> applicazione simili tra di loro... Non so se mi sono spiegato a dovere ma
> spero di si...
Potresti provare con google: ricerca per immagini (icons).
Oppure su
www.tuttogratis.it
  mi pare ci fossero vari links interessanti.
Matteo


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2lie6qF...@uni-berlin.de...

No che a me risulti: in un pulsante di comando l'iimagine č in alternativa
al testo.
> Mi sembra un po'
> barbaro come metodo!
Non so cosa tu intenda per barbaro, ma per me l'importante che ci sia una
soluzione.
> Ciao



author: M 24 It [Home GPRS]

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Tk6Jc.51600$c_1.1...@twister1.libero.it...

Lo ho chiesta perchč con viual basic (dalla versione 4 almeno) si puň ed
essendo access programmabile con vba (visual basic for applications ndr) mi
sembra strano che non si possa fare senza artifizi...
> > Mi sembra un po'
> > barbaro come metodo!
>
> Non so cosa tu intenda per barbaro, ma per me l'importante che ci sia una
> soluzione.
Questa tua affermazione la trovo discutibile...
> > Ciao
>
> --
> Roberto
Ciao


text:
"M 24 It [Home GPRS]" <crazypuppy.NO!!!
SP...@tiscali.it
> ha scritto nel
messaggio news:2lns80F...@uni-berlin.de...
[CUT]
> > Non so cosa tu intenda per barbaro, ma per me l'importante che ci sia
una
> > soluzione.
>
> Questa tua affermazione la trovo discutibile...
>
Libero di discuterla, ma a mio avviso nella programmazione il pragmatismo è
un requisito fondamentale, visto che non stiamo parlando di un arte.
> > > Ciao
> >
> > --
> > Roberto



author: Sergio MAZZA

text:
"M 24 It [Home GPRS]" <crazypuppy.NO!!!
SP...@tiscali.it
> ha scritto nel messaggio news:2lns80F...@uni-berlin.de...
>
>
> Lo ho chiesta perchč con viual basic (dalla versione 4 almeno) si puň ed
> essendo access programmabile con vba (visual basic for applications ndr) mi
> sembra strano che non si possa fare senza artifizi...
Peccato che VB non č VBA...
> Ciao
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cd8ban$hng$1...@canarie.caspur.it...

č veramente un peccato! :-(



text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio news:2lpqodF...@uni-berlin.de...

Io non lo ritengo un peccato; trovo l'ambiente VBA + access molto piů flessibile di quello VB.
Ma, ripeto, a mio avviso sono due prodotti differenti anche se sembrano simili; sono nati per scopi differenti...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cd8i5o$jjl$1...@canarie.caspur.it...
> "Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2lpqodF...@uni-berlin.de...
> >
> > "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> > news:cd8ban$hng$1...@canarie.caspur.it...
> > > "M 24 It [Home GPRS]" <crazypuppy.NO!!!
SP...@tiscali.it
> ha scritto nel
> > messaggio news:2lns80F...@uni-berlin.de...
> > >
> > > Peccato che VB non č VBA...
> >
> > č veramente un peccato! :-(
> >
>
> Io non lo ritengo un peccato; trovo l'ambiente VBA + access molto piů
flessibile di quello VB.
> Ma, ripeto, a mio avviso sono due prodotti differenti anche se sembrano
simili; sono nati per scopi differenti...
Non voglio fare polemica, ma non credo che implementare questa funzione (non
di vitale importana comunque) in VBA fosse una cosa cosě difficile per M$...
Comunque io ho imparato ad utilizzare VB qualche anno fa per diletto ed ora
sono costretto ad imparare ad utilizzare Access per lavoro (non che mi
dispiaccia, in fondo č sempre una cosa in piů che saprň fare!) e certe cose
di VB, che apparentemente č identico a VB mi mancano... tutto qui...
Vedrň comunque di scordarmi VB quando utilezzerň Access d'ora in poi!
Ciao


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio news:2lq35eF...@uni-berlin.de...
>
> Non voglio fare polemica, ma non credo che implementare questa funzione (non
> di vitale importana comunque) in VBA fosse una cosa così difficile per M$...
> Comunque io ho imparato ad utilizzare VB qualche anno fa per diletto ed ora
> sono costretto ad imparare ad utilizzare Access per lavoro (non che mi
> dispiaccia, in fondo è sempre una cosa in più che saprò fare!) e certe cose
> di VB, che apparentemente è identico a VB mi mancano... tutto qui...
> Vedrò comunque di scordarmi VB quando utilezzerò Access d'ora in poi!
> Ciao
Maccheè oggi? Tutti hanno paura di polemizzare? Io non voglio fare nessuna polemica e non credo neanche tu lo voglia; prendiamo
questo come punto fermo, ok?
Lasciamo stare cosa potrebbe fare MS e non vuole farlo, ha le sue ragioni che potrebbero non interessarci; sta di fatto che puoi
ottenere dei risultati simili con altre "tecniche".
Conosco VB e altri linguaggi e ri-conosco anche ad ognuno il perché sono nati. Ora non voglio pensare che MS ha creato VB solo per
fare bottoni con icone e testo, avrà sicuramente altri "punti di forza"; la stessa cosa penso per access + VBA.
Ogni linguaggio ha i suoi punti di forza e le sue carenze, è tutto qui; se poi con le API riesci a fare quello che fai con VB in 2
righe... Meglio! Ma MS non lo riteneva necessario.
Sono sicuro che la tua applicazione non ne risentirà affatto della mancanza di una icona a fianco del testo...
Ciao.
--
Sergio MAZZA


title: File LDB, Cancellare Sì/No?

author: Bruno - S95

text:
Ciao,
    un  file di lancio di Access (con estensione ldb ) si può
tranquillamente cancellare senza problemi quando non sparisce alla chiusura
del database, in quanto, quando accade, dopo la riapertura del db,
nell'apportare le modifiche su maschere, ecc., esce l'avviso che è gia
aperto in esclusivo e no si possono apportare modifiche.
Grazie
        Bruno


title: File LDB, Cancellare Sì/No?

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:8eKWd.1015534$35.37...@news4.tin.it...

io quando capita lo cancello tranquillamente...


title: File LDB, Cancellare Sì/No?

author: ciroteo

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:8eKWd.1015534$35.37...@news4.tin.it...

hmhmhm... io riaprirei il db lo compilerei, lo compatterei e vedrei se non
si è cancellato da solo ...


title: scusate il multipost

author: Andrea

text:
chiedo scusa per il multi post ma outlook è impazzito...
mi indicava errore nel invio del post .... e io continuavo a cercare di
inviare.....
poi mi sono accorto del fatto.
sorry ;-)


title: prova

author: Paolo

text:
oggi primo maggio è festa
ciao,Paolo


title: prova

text:
>
> oggi primo maggio è festa
> ciao,Paolo2
>
>
>


title: nascondere finestra database

author: Sabry

text:
Ciao a tutto il NG,
chiedevo un informazione che a molti di voi potrà sembrare banale ma,
che io non riesco a risolvere .... vorrei poter nascondere il mio
database in modo da non permettere la visualizzazione di tabelle, query,
report ..... ho provato adottando la soluzione di sfleggare l'opzione in
Avvio "visualizza finestra database" ma, ahimè  nel mio database non
funziona !
Naturalmente il database è stato chiuso e riaperto ma, la cosa che più
mi fa imbestialire è che con un database che ho preso di prova funziona
!!
Qualcuno può darmi qualche consiglio ?
Grazie a tutti voi!
Sabry :)


title: nascondere finestra database

author: Antonio Biso

text:
Sabry <
sabr...@strhold.it
> wrote in message 39EAB6F0...@strhold.it...

Crea la macro autoexec con il comando EseguiComando e parametro
NascondiFinestra
Quindi nella stessa macro lancia la maschera di applicazione
Antonio


title: DB installato con ODE

author: Enrico

text:
Ho installato un DB di piccole dimensione su una macchina che non possiede
Access97, quindi ho usato l'installazione con il runtime.
Il DB finziona correttamente tranne che per una query che va ad analizzare
un dbf esterno di un'altro programma.
Il messaggio di errore è questo :
"Impossibile trovare ISAM installabile ".
Tengo a precisare che questo problema ce l'ho solo con il runtime, ma con
Access97 installato sulla mia macchina funziona correttamente.
Cosa posso fare per risolvere ?
Cosa manca ?
Ciao e grazie.
Enrico


title: DB installato con ODE


title: DB installato con ODE

text:
"Enrico" <
mo...@tin.it
> ha scritto nel messaggio
news:8p4rne$maj$1...@nslave1.tin.it...

Prova a scaricarti gli MDAC (Microsoft Data Access) da Microsoft; è stato un
tentativo per risolvere un'altro problema simile al tuo. Per la cronaca,
parzialmente risolto...
Ciao.


title: certificazioni

author: Rč Artu

text:
Ciao a tutti
Una volta ho trovato dei programmini che simulavano gli esami per ottenere
certificazioni microsoft. Qualcuno sa dirmi se ne esistono e dove trovarli?
Grazie


title: [OT] ecdl

author: Tabris

text:
Qualcuno sa a proposito della patente europea che differenze ci sono tra la
vecchia skill card e quella nuova?(la prima dovrebbe costare 200 k mentre la
nouva 120 k).


title: [OT] ecdl

author: Luciano (DOC)

text:
"Tabris" <
tab...@aruba.it
> wrote in message
news:9d62rq$och$1...@fe2.cs.interbusiness.it...

Non ho idea...pero' ho una domanda: in giro per la rete si raccolgono firme
contro 'sta patente...sai chi si oppone e perche' ?
Saluti.
Luciano
(DOC)


title: [OT] ecdl

author: Aries

text:
"Tabris" <
tab...@aruba.it
> ha scritto nel messaggio
news:9d62rq$och$1...@fe2.cs.interbusiness.it...

Sono un esaminatore della nuova, ma non conosco la vecchia, se mi dici le
caratteristiche magari riesco a dirtene le differenze.
--
Aries
icq: 56640169
e-mail:
Marv...@iol.it


title: [OT] ecdl

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9d8rp6$h46hb$2...@ID-86073.news.dfncis.de...
>
> Non ho idea...pero' ho una domanda: in giro per la rete si raccolgono
firme
> contro 'sta patente...sai chi si oppone e perche' ?
E' la prima volta che sento 'sta cosa, ma non mi stupisce... se provi a
vedere il testo di un esame ECDL su Access ti metti le mani nei capelli per
quanto sono idioti (te lo dici un esaminatore), anche perché sono esami
centralizzati e non ci si può metter mano.



title: [OT] ecdl

author: Massimo Di Bello

text:
Salve!
Ti posso chiarire io: con la vecchia card erano inclusi anche gli
esami, che ora invece si pagano a parte. In generale la vecchia card
non dovrebbe essere più disponibile in giro.
Massimo Di Bello
Prometheo Srl
mailto:
mdib...@prometheo.it
Numero Verde: 800-41.68.98
Sito Web:
http://www.prometheo.it
Guida al Web:
http://www.italia.ms
"Tabris" <
tab...@aruba.it
> wrote in message news:<9d62rq$och$
1...@fe2.cs.interbusiness.it
>...



title: un problema con i filtri form

author: mario rossi

text:
ho un problema che non riesco a risolvere quando applico il filtro ragionesociale ad una form

compongo un filtro dinamico stringa per stringa e poi lo applico al filtro della form

se il filtro vale: [tipo] ='Contratto'
funziona correttamente

se il filtro vale: [RAGIONESOCIALE] Like "*sai*" and [tipo] ='Contratto'
non funziona e nel campo esce #Nome?

il campo nel quale quel filtro da errore è
Me.Riepilogo.Form.Controls("Ncontratti").ControlSource = "=nz(Dcount(""id"",""documenti"",""idcliente="" & [idcliente] & "" and " & POP & """),0)"

qualcuno capisce cosa non va?
grazie in anticipo.


title: un problema con i filtri form

text:

ho risolto, la parte [RAGIONESOCIALE] Like "*sai*" non devo mai applicarla alla singola riga dei singoli record ma a tutta la form.


title: New estrazione lotto

text:
Scusate se riscrio questo thread ma ho dovuto lasciare e mi sono perso il
vecchio.
Comunque:
Ho creato una tabella: TNumeri e una TCitta più esattamente:
TNumeri consta dei campi: Numero (da 1 a 90)
TCitta consta dei campi: IdCitta (tipo numerico) e Citta (Tipo testo -
sono 10).
Ho creato una maschera che contiene:
 3 etichette che mi devono restituire i valori numerici della TNumeri
 1 etichetta che mi deve restituire la Citta dalla TCitta.
poi ho creato un pulsante che alla pressione del quale mi deve generare
3 numeri (pescati da TNumeri) più 1 Citta (pescata da TCitta), in maniera
del tutto CASUALE.
Se c'è qualcuno che mi puo dire come associo all'evento click l'estrazione
CASUALE di ciò menzionato.
Ringraziamenti anticipati !
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: New estrazione lotto

author: Roberto da casa

text:
"cyclon1" <
cyc...@hotmail.com
> ha scritto nel messaggio
news:c1hivo$s00$1...@news.newsland.it...
> Scusate se riscrio questo thread ma ho dovuto lasciare e mi sono perso il
> vecchio.
> Comunque:
> Ho creato una tabella: TNumeri e una TCitta più esattamente:
>
> TNumeri consta dei campi: Numero (da 1 a 90)
> TCitta consta dei campi: IdCitta (tipo numerico) e Citta (Tipo testo -
> sono 10).
>
> Ho creato una maschera che contiene:
>
>  3 etichette che mi devono restituire i valori numerici della TNumeri
>  1 etichetta che mi deve restituire la Citta dalla TCitta.
>
> poi ho creato un pulsante che alla pressione del quale mi deve generare
>
> 3 numeri (pescati da TNumeri) più 1 Citta (pescata da TCitta), in maniera
> del tutto CASUALE.
>
> Se c'è qualcuno che mi puo dire come associo all'evento click l'estrazione
> CASUALE di ciò menzionato.
>
> Ringraziamenti anticipati !
>
> --
Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Farid Ahmad intitolata "Randomly Selected Unique Records.".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Controllo di qualità

author: Morgan

text:
Sto valutando l'ipotesi di sviluppare una applicazione in access per la
gestione del controllo di qualità.Lo scenario è quello di un laboratorio
analisi.Per quanto riguarda la strutturazione della base dati e dei calcoli
necessari, sd,cv,medie etc etc non mi sembra da prove effettuate che ci sia
alcun problema.I problemi nascono invece quando tento di riportare su un
grafico i vari dati ( Levey-Jennings).
Premetto che i grafici che mi servono li eseguo normalmente in Excel,sarebbe
bello poterli importare in access e pilotarli da codice.
Volevo sapere se qualcuno del ng si era mai occupato della cosa e se mi
poteva dare dei consigli in merito.
Le curve di  Levey-Jennings sono curve lineari tipo valore su tempo ma ho la
necessità di fissare (disegnare) una serie di righe sul grafico che si
riferiscano alla media ed alle varie sd (+/- 1,2,3).
Ciao
Morgan


title: Controllo di qualità

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:455b5c42$0$3214$4faf...@reader2.news.tin.it...

Ciao Morgan, parlo da semi-profano, ma ti dico sostanzialmente quello di cui
mi sono dovuto occupare di recente in materia di grafici. Alcuni, quelli più
complessi (torte e altri ammenicoli) li ho inseriti in report attraverso
l'oggetto grafico. Per ciasun grafico ho generato dinamicamente delle
stringhe sql che caricavo all'avvio del report, oppure direttamnte
nell'origine dati del grafico. Qeusto procedimento mi è parso molto
semplice: funziona sostanzialmente con lo stesso oggetto che trovi in excel.
In alcuni casi ho avuto un po' di difficoltà nel ricaricare i dati, perchè
la query popola l'oggetto dati del grafico e non sempre mi considerava
l'incremento di colonne (o meglio campi ) interessati. Mettendoli a manina,
funzionava.
La cosa invece più originale (per me ovviamente) è stata quella di generare
dinamicamente dei grafici fatti utilizzando vari oggetti rettangolo,
dimensionati a runtime in base al valore di un campo che tenevo nascosto.
Nel caso specifico si trattava dei risultati di un questionario: per es. 5
risposte possibili a domanda, il 10% alla prima, il 20% alla seconda e cosi
via.
Sull'evento formattazione del corpo del report , tramite la valorizzazione
della lunghezza del rettangolino e l'affiancamento agli altri ho ottenuto un
effetto grafico, anche se non un vero e proprio grafico, che mi ha
consentito di inserire in automatico in un colpo solo i risultati di ben 96
domande. Se avessi dovuto fare 96 diversi grafici sarei ancora li.
Spero di essere stato chiaro, e pronto a fornirti altri esempi se ci fosse
la necessità.
M


title: Controllo di qualità

text:
"ciroteo" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:455b6df8$0$19241$4faf...@reader4.news.tin.it...

Mumble mumble,
Sto guardando proprio adesso i grafici pivot.Ad occhio farebbero al caso
mio.
E'che con un grafico normale access si ostina a farmi delle somme sui valori
ed a
raggrupparmi le date, per non parlare della impossibilità apparente di
disegnare
linee perpendicolari all'asse delle x.I grafici pivot invece mi formattano i
dati bene
anche se non ho ancora capito come impostare i valori delle etichette per il
titolo
e quelle delle serie.
Forse un approccio sarebbe quello di esportare i dati in un file excel,
eseguire i
vari calcoli su questo e reimportare il tutto in access tramite un oggetto
collegato.
A pelle mi sembra fattibile anche se gli oggetti collegati non li ho mai
usati perchè
li ho sempre giudicati un po pesantucci.
Morgan


title: data = Now()

text:
Qualcuno mi può cortesemente risolvere questo problema?
Ho una tabella con un campo data che contiene tutti i giorni dell'anno, ed
un  campo evento.
Ho creato una query che mi restituisca l'evento quando la data corrisponde
alla data del computer ma non funziona, la query è questa:
SELECT calendario.evento
FROM calendario
WHERE (((calendario.data)=Now()));
mi restituisce blank, dov'è l'errore?
                 grazie mille          Antonio


title: data = Now()

text:
"Antonio50" <
barb...@libero.it
> ha scritto nel messaggio
news:V3FW6.4126$Cq5.1...@news.infostrada.it...

Usa la funzione Date() e non la funzione Now(), quindi:
SELECT calendario.evento
FROM calendario
WHERE (((calendario.data)=Date()));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: data = Now()

text:
Ok! Grazie mille Roberto.
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hnFW6.4195$Cq5.1...@news.infostrada.it...



title: column()

author: gestserv

text:
Me.miocampo = [Forms]![MOVIMENT]![CasellaCombinata33].[Column](2)
ho inserito questa stringa sull'evento su attivato di miocampo. Mi dà
errore, mentre se lo metto su origine dati no. Io però ho il campo di una
tabella su origine dati di miocampo. Ho provatoad inserire il valore su un
campo non visibile e poi a ricopiarlo su mio campo, ma non si può fare
direttamente?
Matteo


title: column()

text:
"gestserv" <
gest...@uno.it
> ha scritto nel messaggio
news:8us05h$34q$1...@fe2.cs.interbusiness.it...

Hai provato con
Me![miocampo] = [Forms]![MOVIMENT]![CasellaCombinata33].Column(2)
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: column()

author: Federico Luciani

text:
gestserv wrote:
> Me.miocampo = [Forms]![MOVIMENT]![CasellaCombinata33].[Column](2)
> ho inserito questa stringa sull'evento su attivato di miocampo. Mi dà
> errore, mentre se lo metto su origine dati no. Io però ho il campo di una
> tabella su origine dati di miocampo. Ho provatoad inserire il valore su un
> campo non visibile e poi a ricopiarlo su mio campo, ma non si può fare
> direttamente?
> Matteo
i controlli miocampo e CasellaCombinata33 si trovano su due form differenti?
In ogni caso:
se miocampo prende il valore da CasellaCombinata33, allora non e' piu' semplice
usare una combo anche per miocampo che avra' come origine dati la stessa di
CasellaCombinata33?
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: email da access

author: Alessandro

text:
Ho la necessità di inviare dei messaggi di posta elettronica all'interno da
una maschera access usando come client di posta lotus notes
qualcuno sà come fare?
Grazie
Alessandro


title: email da access

text:
"Alessandro" <
ale...@ti.it
> ha scritto nel messaggio
news:uOfx9.67178$aL4.2...@news1.tin.it...

Con il sendobject viene usato comunque il postreader di default
Antonio


title: Condivisione mdb o tabella ???

author: Maicol

text:
Ciao a tutti , premessa la mia inesperienza generale e in particolare
nell'argomento di cui vi chiedo
vado ad esporre :
Vorrei sapere se ho un database "pippo" con una tabella di dati " Archivio"
residente
in una cartella condivisa e quattro computer locali , in termini di
velocita' o funzionalita' che differenza c'e' tra queste l'adottare una di
queste due soluzioni :
a) Creare nei quattro computer locali un semplice collegamento
sul desktop all'unico file mdb "pippo" residente nella cartella
condivisa.(molti mi dicono che basta???)
B ) Creare quattro file mdb residenti in locale tutti con tabella collegata
a quella
"archivio" che si trova nel file mdb della cartella condivisa
Perche'mi succede che se cerco da un secondo mdb di aprire una tabella
residente
in un primo mdb a cui sono
collegato.me
 lo impedisce dicendomi che l'mdb e'
gia' in uso.
Ma io sono sempre collegato a quella tabella o no???
Premetto che nelle impostazioni di entrambi i database c'e' l'opzione
accesso condiviso.
Perdonatemi la confusione e grazie


title: Condivisione mdb o tabella ???

author: Reds

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:uIth8.11579$5z3.3...@twister2.libero.it...

> Help in linea ' divisione database'
>ciao Roberto