title: passaggio dati...

author: Alessandro Cara

text:
Luigi ha scritto:
>
> "Luigi" <luigia...@tiscaliNOSPAM.it> ha scritto nel messaggio
> news:eav1a.98882$YG2.2...@twister1.libero.it...
> [cut]

>
> Possibile che nessuno mi risponde?
> Devo aprire un'altra discussione?
> Ciao,
> Luigi
Quando mi minacciano, io rispondo. Per favore pero'
non farmi male!
Andiamo per ordine.
1) Io farei partire per prima la form "Ricerca Iscritto"
2) ci metterei un bottone con attivazione del form "Iscritto Cercato"
   (sto nome non lo hai messo e me lo so inventato) e un bottone di
   chiusura
3) sul click del pottone (si pottone e non lo cambio) di cui al punto 2
metterei
   docmd.OpenForm "IscrittoRicercato", ,"Cognome = '" & controllocognome
& "' and    nome='" & controllonome , , acDialog
   varning, varning, varning: in campana con i cognomi che contengono
   apici, cosi' si becca errore
4) In questo modo alla chiusura della 2' maschera puoi richiedere una
nuova          posizione
5) Se ti interesa la questione della openargs se ne puo' parlare,
potrebbe
   non essere completamente fuori luogo, ma se ne puo', in questo caso,
   fare a meno
6) Per favore, non minacciare ancora, sono dovuto andar di corsa al
   "john".
--
a.cara
togli qualcosa dall'email


title: Istruzioni if

author: gg

text:
Salve a tutti, ho un piccolo problema con la giusta struttura
dell'istruzione IF.
Io avrei questa necessità:
In una maschera ho 6 caselle di controllo,
----------------------------------
Premendo il pulsante stampa, dovrei controllare che almeno una è
selezionata.
----------------------------------
-Se almeno 1 è selezionata:
dovrei chiedere se si vuole salvare i dati inseriti e quindi aprire una
msgbox con i due pulsanti Ok e Annulla
- Su Ok
eseguire il salvataggio e poi la stampa
- Su Annulla
tornare alla maschera senza salvare.
-----------------------------------
-Se invece nessuna casella di controllo è selezionata:
msgbox con avviso che nessuna opzione è stata selezionata
quindi tornare alla maschera
----------------------------------
Quello che non riesco a capire e come strutturare le varie condizioni, oltre
a come fare a controllare tutte e 6 le caselle di controllo visto che sono
riuscito a controllarle 2 per volta avendo la seguente struttura:
If.........
If........
If........
End If
Che però non mi sembra una buona soluzione.
Spero di essere stato chiaro
grazie gianni


title: Istruzioni if

text:

if ck1 or ck2 or ck3 or ck4 or ck5 or ck6 then
    almeno un ck vero
elso
   tutti i ck falsi
end if
oppure if ck1+ck2+ck3+ck4+ck5+ck6 = 0 then
    tutti i ck falsi
else
    almeno un ck vero
end if
--
a.cara
Togli qualcosa dall'email


title: Istruzioni if

author: Gippe

text:
-Cut-
> if ck1 or ck2 or ck3 or ck4 or ck5 or ck6 then
>     almeno un ck vero
> elso
>    tutti i ck falsi
> end if
>
Perché non funziona???????
Private Sub Form_Unload(Cancel As Integer)
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
Dim d As Boolean
Dim e As Boolean
Dim f As Boolean
a = IsNull(Miotext1.Value)
b = IsNull(Miotext2.Value)
c = IsNull(Miotext3.Value)
d = IsNull(Miotext4.Value)
e = IsNull(Miotext5.Value)
f = IsNull(Miotext6.Value)
Me.Refresh
If a And b And c And d And e And f = False Then
    MsgBox "Vuoi salvare?", vbOKCancel
     If MsgBox("Vuoi salvare?", vbOKCancel) = vbOK Then
        DoCmd.Close acForm, "Menu", acSaveYes
    Else
        DoCmd.CancelEvent
        Miotext1.SetFocus
    End If
Else
    MsgBox "Nessun valore rilevato"
    DoCmd.CancelEvent
    Miotext1.SetFocus
End If
End Sub
Saluti
Gippe.


title: Istruzioni if

text:
"Gippe" <gippe6...@TOGLIMItiscali.it> ha scritto nel messaggio
news:blotbc$dt5$1...@lacerta.tiscalinet.it...
>
> -Cut-
> > if ck1 or ck2 or ck3 or ck4 or ck5 or ck6 then
> >     almeno un ck vero
> > elso
> >    tutti i ck falsi
> > end if
Perché non funziona???????
 Private Sub Form_Unload(Cancel As Integer)
 Dim a As Boolean
 Dim b As Boolean
 Dim c As Boolean
 Dim d As Boolean
 Dim e As Boolean
 Dim f As Boolean
 a = IsNull(Miotext1.Value)
 b = IsNull(Miotext2.Value)
 c = IsNull(Miotext3.Value)
 d = IsNull(Miotext4.Value)
 e = IsNull(Miotext5.Value)
 f = IsNull(Miotext6.Value)
 Me.Refresh
 If a Or b Or c Or d Or e Or f = False Then



title: Istruzioni if

author: Alberto S.

text:
On Sat, 04 Oct 2003 23:08:28 GMT, "gg" <
provach...@libero.it
>
wrote:
>Salve a tutti, ho un piccolo problema con la giusta struttura
>dell'istruzione IF.
>Io avrei questa necessità:
>In una maschera ho 6 caselle di controllo,
>----------------------------------
>Premendo il pulsante stampa, dovrei controllare che almeno una è
>selezionata.
>----------------------------------
>-Se almeno 1 è selezionata:
>dovrei chiedere se si vuole salvare i dati inseriti e quindi aprire una
[cut]
>Quello che non riesco a capire e come strutturare le varie condizioni, oltre
>a come fare a controllare tutte e 6 le caselle di controllo visto che sono
>riuscito a controllarle 2 per volta avendo la seguente struttura:
[cut]
... ci sono sicuramente tanti altri modi ...
Io ti propongo di sfruttare il fatto che la casella di controllo
assume il valore 0 se non spuntata  e -1 se spuntata, quindi con
qualcosa del tipo:
If Nz(Me.CasellaUno) + Nz(Me.CasellaDue) + _
   Nz(Me.CasellaTre) + Nz(Me.CasellaQuattro) + _
   Nz(Me.CasellaCinque) + Nz(Me.CasellaSei) _
   = 0 Then
         <azione per nessuna check spuntata>
      Else
         <azione per almeno una check spuntata>
End If
>grazie gianni
Ciao  ;-)
--
Alberto
No alle guerre


title: Istruzioni if

text:

perche e' un testo, scusami avevo interpretato che fossero check box
a = "" & miotext1 & miotext2......fino a 6
if a = "" then
   nessun valore
else
  almeno un valore
end if
come lo hai fatto tu
dovrebbe essere
if a and b and c and d and e and f then
   nessun valore
else
  almeno un valore
come hai scritto tu
significa questo
if a = true or b = true or c = true or d = true or e = true or f = false



title: Istruzioni if

text:
Gippe wrote:
PS per favore non modificare l'oggetto, sopratutto se senza significato



title: Istruzioni if

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3F803636...@blunet.it...

Il problema non risiede in questo, perché il controllo è corretto. Ci sono
due problemi, uno dei quali l'ho individuato ma non so come risolverlo.
1) Quando il setfocus è sul controllo, la funzione IsNull non analizza il
dato.
2) Non ho capito perché la lettura del codice avanza pur forzando l'uscita
quando è verificato un If then. Cioè quando appare la maschera di scelta
(vbOkCancel) mi dice che l'evento è annullato.
Scusa per essere incappato in un errore di netiquette: ignoravo tale fallo
(relativa colpa perché in altri NG da me frequentati è pratica
consueta-it.arti.musica.classica). Non succederà più.
Saluti.
Gippe.


title: Istruzioni if

text:
Gippe wrote:
>
> "Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> news:3F803636...@blunet.it...
[cut]
> > if a = true or b = true or c = true or d = true or e = true or f = false
> >
> >
> Il problema non risiede in questo, perché il controllo è corretto.
non ne sono convinto ma se a te va bene
> Ci sono
> due problemi, uno dei quali l'ho individuato ma non so come risolverlo.
> 1) Quando il setfocus è sul controllo, la funzione IsNull non analizza il
> dato.
non capisco perche' non dovrebbe analizzare il dato. Sai fare il debug?
> 2) Non ho capito perché la lettura del codice avanza pur forzando l'uscita
> quando è verificato un If then. Cioè quando appare la maschera di scelta
> (vbOkCancel) mi dice che l'evento è annullato.
la maschera menu' e' quella corrente? se e' cosi' potrebbe succedere visto che
la chiudi
>
> Scusa per essere incappato in un errore di netiquette: ignoravo tale fallo
> (relativa colpa perché in altri NG da me frequentati è pratica
> consueta-it.arti.musica.classica).
il mio era solo un "consiglio". Attenzione sempre all'oggetto. Qui vige la
"fustigazione" se si posta con oggetti non "tecnici" ;<)
Ovviamente l [OT] e' consentito



title: Istruzioni if

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3F8133A6...@blunet.it...
> Gippe wrote:
> >
> > "Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> > news:3F803636...@blunet.it...
> [cut]
> > > if a = true or b = true or c = true or d = true or e = true or f =
false
> > >
> > >
> > Il problema non risiede in questo, perché il controllo è corretto.
> non ne sono convinto ma se a te va bene
>
O if a or b or ...=false then, oppure if a and b and ...=true then
> > Ci sono
> > due problemi, uno dei quali l'ho individuato ma non so come risolverlo.
> > 1) Quando il setfocus è sul controllo, la funzione IsNull non analizza
il
> > dato.
> non capisco perche' non dovrebbe analizzare il dato. Sai fare il debug?
Mi accadeva questo perché utilizzavo la finestra attiva per il controllo e
quindi la casella di testo non era ancora aggiornata.
-CUT-
Ho capito dove risiedeva l'errore!
Innanzitutto i controlli nel problema originario non sono caselle di testo
(ieri ero proprio fuori. Ho preso a cuore il problema e mi sono accanito a
risolverlo).
Riporto il codice:
Private Sub Form_Unload(Cancel As Integer)
Dim a, b, c, d, e, f As Boolean
a = IsNull(Miotext1.Value)
b = IsNull(Miotext2.Value)
c = IsNull(Miotext3.Value)
d = IsNull(Miotext4.Value)
e = IsNull(Miotext5.Value)
f = IsNull(Miotext5.Value)
If a And b And c And d And e And f = True Then
    MsgBox "Nessun valore rilevato"
    DoCmd.CancelEvent
    Miotext1.SetFocus
Else
        If MsgBox("Vuoi salvare?", vbOKCancel) = vbOK Then
            DoCmd.DoMenuItem acFormBar, acrecordmenu, acSaveRecord,
acMenuVer70
        Else
            DoCmd.CancelEvent
            Miotext1.SetFocus
        End If
End If
End Sub
Io creavo una ridondanza, impostando il comando di chiusura (è pur vero che
in questo caso c'è ancora ridondanza, in quanto sarebbe inutile salvare
poiché access lo fa di default).
-CUT-
> il mio era solo un "consiglio". Attenzione sempre all'oggetto. Qui vige la
> "fustigazione" se si posta con oggetti non "tecnici" ;<)
> Ovviamente l [OT] e' consentito
>
Consiglio prezioso e accettato!
Saluti.
Gippe.


title: compattare solo alcune tabella del db

author: no basta spam@tiscali.it yag

text:
salve,
come da topic vorrei sapere se è possibile ?
il mio scopo e resettare gli indici se c'è un metodo alternativo tanto
meglio
grazie ciao


title: compattare solo alcune tabella del db

author: MA

text:

Compattando tutto lui resetta tutte le tabelle che non hanno record
lasciando invariate quelle con dati.
Dov'è il problema, non capisco
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: compattare solo alcune tabella del db

author: Gabriele Bertolucci

text:
Mi dispiace, ma relativamente ad Access non ho mai sentito parlare di
compattazione "selettiva".
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it



title: Importazione da csv

text:
Buongiorno a tutti,
vorrei sapere se è possibile durante l'importazione di un file valorizzare contemporaneamente un campo, per tutti i record importati,  con un dato che non è presente nel file oggetto dell'importazione.

Grazie

Alfio


title: Importazione da csv

text:

Se importi in una Tabella già esistente, si definendo la proprietà DefaultValue del campo in oggetto..., altrimenti no, ma puoi effettuare una Query UPDATE e forzare il Valore su titti i Records con 1 riga di comando...

Dim strQRY  As String
strQRY="UPDATE NomeTab SET [NomeCampo]=TuoValore"  ' Attenzione alla sintassi per Valori Testo/Numeri e Date

Poi lanci con il metodo Execute membro dell'Oggetto Database, magari in gestione Transazionale e gestione errori.

Public Sub TransactionQuery()
    On Error GoTo tran_Err
    Dim strQRY  As String
    strQRY="UPDATE NomeTab SET [NomeCampo]=TuoValore"  ' Attenzione alla sintassi per Valori Testo/Numeri e Date

    DAO.DBEngine.BeginTrans
    CurrentDb.Execute strQRY, dbFailOnError
    DAO.DBEngine.CommitTrans

Exit Sub

tran_Err:

    DAO.DBEngine.Rollback
    MsgBox "Transaction failed. Error: " & Err.Description
End Sub

@Alex


title: Importazione da csv

author: Bruno Campanini

text:
@Alex wrote on 29-01-20 :

[...]
> Poi lanci con il metodo Execute membro dell'Oggetto Database, magari in
> gestione Transazionale e gestione errori.

Quanta prosopopea!

Bruno


title: Importazione da csv

text:
> Se importi in una Tabella già esistente, si definendo la proprietà defaultValue del campo in oggetto...,

Grazie Alex,
in effetti devo importare tutto in una tabella esistente per cui, nell'ipotetico DoCmd.TransferText acImportDelim,.ecc ecc ....
quale sarebbe la sintassi per il DefaultValue del campo X che dovrebbe ricevere il valore Y?

Grazie


title: Importazione da csv

text:

Se il valore è fisso, vai in struttura Tabella ed inserisci il Valore di DEFAULT nel campo di cui parli.

Se il valore è dinamico su condizione, prima di Importare, ti basta accederer alla Tabella da DAO con l'oggetto Tabledef ed andare nel Campo sempre con DAO alla proprietà DefaultValue.

Quì trovi un discreto esempio:

https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field-defaultvalue-property-dao

A te bastano 2 righe...

Dim tdfEmployees As TableDef

Set tdfEmployees = CurrentDb.TableDefs("NomeTabella")
tdfEmployees.Fields("NomeCampo").DefaultValue = "98052"

Set tdfEmployees =Nothing

.... quì poi inserisci il resto...

@Alex


title: Importazione da csv

text:
> Dim tdfEmployees As TableDef
>
> Set tdfEmployees = CurrentDb.TableDefs("NomeTabella")
> tdfEmployees.Fields("NomeCampo").DefaultValue = "98052"
>
> Set tdfEmployees =Nothing
>
> .... quì poi inserisci il resto...
>
> @Alex

Grazie mille Alex... ;)

Alfio


title: Importazione da csv

text:
> Dim tdfEmployees As TableDef
>
> Set tdfEmployees = CurrentDb.TableDefs("NomeTabella")
> tdfEmployees.Fields("NomeCampo").DefaultValue = "98052"
>

Ciao Alex,
tutto bene, importo il file e tramite TableDef passo la stringa che mi deve valorizzare il campo. L'unica cosa che non mi torna è che il testo passato (tramite inputbox) pur se impostato a stringa (campo in tabella=testo)  me lo trasforma nell'esito della divisione essendo inserito nel formato 9999/99, ma se è una stringa perché mi esegue la divisione? Dove sbaglio?

Alfio


title: Importazione da csv

text:
messa...@gmail.com
 brought next idea :

Prova questa:
========================================
Dim tDef As TableDef, SF As String, TD As String, TT As String
Dim SQL As String, Y As String, Fld As Object, NewField As String
Dim db As Database

' --- Definizioni ------------------------------------
SF = "D:\aa0.csv"          ' File sorgente
TD = "DestinationTable"    ' Tabella di destinazione
TT = "TempTab"             ' Tabella temporanea
'-----------------------------------------------------

NewField = "Y"
Y = InputBox("Value for X field in DestinationTable")
Set db = CurrentDb
On Error Resume Next
DoCmd.DeleteObject acTable, TT
On Error GoTo 0
DoCmd.TransferText acImportDelim, , TT, SF
Set tDef = db.TableDefs(TT)
Set Fld = tDef.CreateField(NewField, dbText, 255)
tDef.Fields.Append Fld
SQL = "INSERT INTO DestinationTable ( Field1, Field2, Field3, X ) "
SQL = SQL & "SELECT F1, F2, F3, '" & Y & "' AS X FROM TempTab;"
CurrentDb.Execute SQL

End Sub
========================================

Bruno

PS
Sarebbe più opportuno avere il TransferText completo
delle specifiche ImportSpecs:

DoCmd.TransferText acImportDelim, ImportSpecs, TT, SF


title: Importazione da csv

text:
...
> Ciao Alex,
> tutto bene, importo il file e tramite TableDef passo la stringa che mi deve valorizzare il campo. L'unica cosa che non mi torna è che il testo passato (tramite inputbox) pur se impostato a stringa (campo in tabella=testo)  me lo trasforma nell'esito della divisione essendo inserito nel formato 9999/99, ma se è una stringa perché mi esegue la divisione? Dove sbaglio?
>
> Alfio

Se il Campo è stringa serve la sintassi differente, basta aggiungere il CHR(34)

tdfEmployees.Fields("NomeCampo").DefaultValue = chr/34) & strDaInputBox & chr(34)

@Alex


title: Importazione da csv

text:
Bruno Campanini wrote:
>
messa...@gmail.com
 brought next idea :
>> Buongiorno a tutti,
>> vorrei sapere se è possibile durante l'importazione di un file valorizzare
>> contemporaneamente un campo, per tutti i record importati,  con un dato che
>> non è presente nel file oggetto dell'importazione.
>
Vorrei proprio che tu provassi tale versione completamente
automatizzata. Basta infatti unicamente definire SF e DT
come sotto indicato.

=======================================
Private Sub Command22_Click()
Dim tDef As TableDef, SF As String, DT As String, TT As String
Dim SQL As String, Y As String, Fld As Object, NewField As String
Dim db As Database, i As Integer

' --- Definizioni ------------------------------------
SF = "D:\aaa.csv"          ' File sorgente
'    Da Excel il foglio salvato in formato CSV (Comma delimited)(*.csv)
'    non viene regolarmente importato da Access 2019; occorre
'    salvarlo nel formato CSV (MSDOS)(*.csv)
DT = "DestinationTable"    ' Tabella di destinazione
'    Deve avere, nello stesso ordine, gli stessi campi di SF, ed
inoltre
'    un campo supplementare (X) che verrà compilato ad ogni
importazione
'    con riferimento all'InputBox
'------------------------------------------------------

TT = "TempTab"     ' Tabella temporanea
NewField = "X"     ' Nuovo campo da creare in TT

Y = InputBox("Value for X field in " & DT)
Set db = CurrentDb
On Error Resume Next
DoCmd.DeleteObject acTable, TT
On Error GoTo 0
DoCmd.TransferText acImportDelim, , TT, SF
Set tDef = db.TableDefs(TT)
Set Fld = tDef.CreateField(NewField, dbText, 255)
tDef.Fields.Append Fld
SQL = "UPDATE TempTab SET TempTab.X = '" & Y & "'"
db.Execute SQL
For i = 0 To db.TableDefs(TT).Fields.Count - 1
    db.TableDefs(TT).Fields(i).Name = _
    db.TableDefs(DT).Fields(i).Name
Next
SQL = "INSERT INTO " & DT & " SELECT " & TT & ".* FROM " & TT
db.Execute SQL

End Sub
==============================================

Grazie
Bruno


title: Importazione da csv

text:
> Se il Campo è stringa serve la sintassi differente, basta aggiungere il CHR(34)
>
> tdfEmployees.Fields("NomeCampo").DefaultValue = chr/34) & strDaInputBox & chr(34)
>
> @Alex

Infatti ho fatto così, ma quello che chiedevo è se è normale se una valore impostato come testo divenga numerico o trattato come tale... ;)

Saluti

PS: Ringrazio anche Bruno per la soluzione prospettata, ma ho adottato quella più semplice come proposto da Alex.... ;)


title: Importazione da csv

text:
È normale... il carattere chr(34) serve proprio ad imporre il casting del dato prima dell'applicazione del valore...
Se non lo indichi il valore viene calcolato e poi applicato in quanto originariamente lo vede come numero.

Per le date stessa cosa sintassi dedicata.

Ciao
@Alex


title: Importazione da csv

text:
messa...@gmail.com
 presented the following explanation :

> PS: Ringrazio anche Bruno per la soluzione prospettata, ma ho adottato quella
> più semplice come proposto da Alex.... ;)

Capisco.
Una domanda, poi mi taccio per sempre:

Il dato da inserire nel campo X della tabella di destinazione
durante il TranferText è sempre e solo data, sempre e solo
numero, etc?

O può avvenire che per un TarnsferText sia una data,
per un altro TransferText sia un numero, etc?

Bruno


title: Importazione da csv

text:
> Il dato da inserire nel campo X della tabella di destinazione
> durante il TranferText è sempre e solo data, sempre e solo
> numero, etc?
>
 Ciao Bruno,
si è sempre nello stesso formato, in pratica è un nr di fattura, 9999/99.

Ciao


title: Access e works

author: Roberto

text:
C'è un modo per collegare un database di Access con uno di Works?
E' possibile importare i dati dal database di works e porli in una tabella
di access?
Se tutto ciò è possibile fatami sapere
Grazie
Robby


title: Access e works

author: Sib

text:
"Roberto" <
aris...@libero.it
> ha scritto nel messaggio
> C'è un modo per collegare un database di Access con uno di Works?
> E' possibile importare i dati dal database di works e porli in una tabella
> di access?
Direi proprio di si
Sib


title: Access e works

text:
"Sib" <si...@SPAMMiol.it> ha scritto nel messaggio
news:Bxjh8.38524$_u5.1...@news1.tin.it...

E'.....e tu sai una bozza di come si deve procedere?
Robby


title: Access e works

text:
"Roberto" <
aris...@libero.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMMiol.it> ha scritto nel messaggio
> > "Roberto" <
aris...@libero.it
> ha scritto nel messaggio
> > > C'è un modo per collegare un database di Access con uno di Works?
> > > E' possibile importare i dati dal database di works e porli in una
> tabella
> > > di access?
> >
> > Direi proprio di si
> >
> > Sib
> >
> >
> E'.....e tu sai una bozza di come si deve procedere?
Mai fatto, comunque nell'installazione c'e' la possibilità di aggiungere le
funzioni di conversione per vari formati e credo ci sia anche il works.
Poi fai un Importa dati esterni.
Sib


title: Memorizzazione degli arrotondamenti in Euro

author: Mammuth

text:
Salve,
ho un database per la gestione delle offerte a clienti.
Avendo portato tutti gli importi del listino in Euro con 2 decimali, quando
vado ad inserire le righe dell'ordine con Prezzo, sconto e quantità il
totale della riga non torna se visualizzato con 2 decimali.
Questo succede perchè l'operazione di sconto e la moltiplicazione per la
quantità riporta dietro tutti i decimali che si vengono a creare. La
situazione si aggrava sul totale dell'offerta.
Ho provato ad utilizzare vari formati numerici ma tutti sono inerenti alla
visualizzazione dei decimali e non alla memorizzazione che tra l'altro deve
essere fatta su un campo calcolato e non su un campo di tabella.
Costo di 1 pezzo = ? 14,98
Scontato del 25%+5%  visualizza ? 10,67  ma in effetti l'importo memorizzato
nel campo calcolato è ? 10,67325
Moltiplicando ? 10,67325 x 80 (quantità) il campo calcolato restituisce
853,86 ?
In effetti facendo un riscontro con la stampa con soli 2 decimali
l'operazione risulta essere ? 10,67 x 80 = ? 853,6
La differenza è minima in questo caso circa ? 0,26 ma nella somma totale può
portare differenze più alte.
Come posso memorizzare e non soltanto visualizzare importi arrotondati a 2
decimali nei campi calcolati ?
Aiuto !
Grazie 1000


author: Roberto - Syd

text:
"Mammuth" <mam...@pietra.era> ha scritto nel messaggio
news:9n87id$p58$1...@nreada.inwind.it...

Vai a vedere in questo sito qual'è il modo per evitare l'inconveniente.
http://www.euroimpresa.org/euro_istruzioni/contabilita/conversioni.htm
Ciao Roberto - Syd


author: Roberto dal portatile

text:
"Mammuth" <mam...@pietra.era> ha scritto nel messaggio
news:9n87id$p58$1...@nreada.inwind.it...

Tu visualizzi 10,67 in quanto avrai usato un formato del controllo che
prevede la visualizzazione di due soli decimali, ciò non toglie che il
valore in esso contenuto è 10,67325, quindi tutti i calcoli successivi
useranno l'effettivo valore del controllo e non terranno assolutamente conto
del suo formato.
E' quindi necessario che, dopo il calcolo del prezzo scontato ( 10,67325 ) e
prima di effettuare gli altri calcoli, devi fare in modo di troncare i
decimali in più, dopo aver effettuato l'eventuale arrotondamento.
Sul Sito Comune trovi una routine universale di Karl che effettua il
troncamento dei decimali dopo aver applicato le regole commerciali di
arrotondamento.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Dopo aver effettuato il calcolo che ti ha restituito come prezzo scontato


title: Immagine con  Maschere continue

author: hp

text:
Salve,
volevo chiedervi se è possibile gestire un immagine diversa per ogni record
in
una maschera con visualizzazione predefinita "Maschere continue" ?
Un pò come accade per i report, dove sul comando print, posso variare il
link dell'immagine associata al record
In pratica devo fare un form Continuo dove un valore di un campo è un link
Immaginate una scheda elettorale su una form con n simboli e n records
Ho provato con a gestire l'evento current ma con il risultato di cambiare
l'immagine a tutti records
Qualche suggerimento ?
Grazie
Hp


title: Immagine con  Maschere continue

author: Roberto da casa

text:
"hp" <
h...@nospam.it
> ha scritto nel messaggio
news:Cp3tc.246037$hc5.10...@news3.tin.it...

Non è possibile gestire un controllo Immagine in una maschera con
visualizzazione a maschere continue: d'altra parte il controllo immagine
nella maschera è uno e uno solo e non uno per ogni maschera che visualizzi,
quindi quando da VBA modifichi la sua proprietà Picture in tutte le righe
della maschera comparirà giustamente la stessa immagine; ma non è una novità
che, in una maschera continua, se modifichi da VBA il valore e/o le
proprietà di un controllo (anche di una casella di testo), l'effetto della
modifica ti viene visualizzato contemporaneamente su tutte le righe della
maschera.
Per i report la musica è diversa, visto che operi a fronte degli eventi "Su
formattazione" o "Su stampa" delle singole righe e comunque il report tratta
una riga alla volta e non tutte le rigje insieme come avviene per le
maschere continue.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Immagine con  Maschere continue

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:MP4tc.74318$Qc.29...@twister1.libero.it...
>
> Non è possibile gestire un controllo Immagine in una maschera con
> visualizzazione a maschere continue: d'altra parte il controllo immagine
> nella maschera è uno e uno solo e non uno per ogni maschera che
visualizzi,
> quindi quando da VBA modifichi la sua proprietà Picture in tutte le righe
> della maschera comparirà giustamente la stessa immagine; ma non è una
novità
> che, in una maschera continua, se modifichi da VBA il valore e/o le
> proprietà di un controllo (anche di una casella di testo), l'effetto della
> modifica ti viene visualizzato contemporaneamente su tutte le righe della
> maschera.
> Per i report la musica è diversa, visto che operi a fronte degli eventi
"Su
> formattazione" o "Su stampa" delle singole righe e comunque il report
tratta
> una riga alla volta e non tutte le rigje insieme come avviene per le
> maschere continue.
> --
> Roberto
Grazie della conferma,
speravo in qualche "magica" soluzione  anche non integrata in access
per gestire un elenco di n elemeti grafici
Ciao
Hp


title: Immagine con  Maschere continue

text:
"hp" <
h...@nospam.it
> ha scritto nel messaggio
news:Li5tc.343342$rM4.14...@news4.tin.it...

Resta il fatto che, se, come hai detto in un tuo messagio precedente, vuoi
simulare una scheda elettorale puoi farlo tranquillamente: basta inserire in
una maschera singola tanti controlli immagine quanti sono i simboli da
visualizzare.
Puoi anche realizzare una specie di browser con il quale puoi "navigare"
nelle varie immagini.
Dai anche uno sguardo al database di esempio allegato alla FAQ di Silvio
Savoldi intitolata "Implementare un archivio di immagini" che trovi nella
Sezione General del Sito Comune (link qui sotto). In quell'esempio il
problema di gestire più elementi grafici viene risolto usando più istanze
della stessa maschera.
Come vedi non è possibile usare una maschera continua, ma puoi ingegnarti a
trovare soluzioni.



title: filtrare i dati di un grafico anno per anno??

author: Gobbo

text:
Ciao a tutti,ormai non mi sopporterete più.........
ho creato un gragfico(torta) che mi fa vedere le proporzioni di fatturato
per ogni singolo cliente ma vorrei poter visualizzare le proporzioni anno
per anno vorrei, se possibile, tramite una casella di testo o altro inserire
ad esempio 02 e visualizzare quindi le proporzioni di fatturato del 2002 ???
posso farlo tenendo come buono le date delle fatture?? il grafico l'ho fatto
direttamente sulla query fatture.
Ciao a tutti!!


text:
"Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
news:oAxx9.86074$TD1.3...@news2.tin.it...

Basta che rendi la query fatture parametrica in maniera che selezioni solo i
record che abbiano l'anno della data fattura uguale a quello che andrai a
digitare nella finestra di dialogo deputata alla digitazione dei parametri.
Insomma, se la data della fattura è contenuta in un campo di tipo Data/ora
chiamato DataFattura, aggiungi alla query un campo calcolato in questa
maniera:
Anno: Year([DataFattura])
e nei criteri di questo campo calcolato scrivi:
[Digita l'anno nella forma aaaa:]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
i%xx9.114585$RO.29...@twister1.libero.it...

non vorrei essere fastidioso ma non funziona!! mi appare il messaggio di
inserire la data ad ogni inserimento o modifica.....
sto cercando un'altra strada che sarebbe, se possibile da fare, anche
migliore (ho scritto un'altro messaggio sul NG)
Supergrazie comunque ma io non ci riesco.......probabilmente sbaglio
qualcosa


text:
"Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
news:JmMx9.72778$aL4.2...@news1.tin.it...
>
[CUT]
>
> non vorrei essere fastidioso ma non funziona!! mi appare il messaggio di
> inserire la data ad ogni inserimento o modifica.....
???????????????
[CUT]



author: Claudio

text:
"Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
news:JmMx9.72778$aL4.2...@news1.tin.it...
> Roberto da casa <
r.ma...@libero.it
> wrote in message
> i%xx9.114585$RO.29...@twister1.libero.it...
> > "Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
> > news:oAxx9.86074$TD1.3...@news2.tin.it...
cut
> > > per anno vorrei, se possibile, tramite una casella di testo o altro
inserire
> > > ad esempio 02 e visualizzare quindi le proporzioni di fatturato del
2002???
> > >
> > Insomma, se la data della fattura č contenuta in un campo di tipo Data/ora
> > chiamato DataFattura, aggiungi alla query un campo calcolato in questa
> > maniera:
> >
> > Anno: Year([DataFattura])
> >
> > e nei criteri di questo campo calcolato scrivi:
> >
> > [Digita l'anno nella forma aaaa:]
>
> non vorrei essere fastidioso ma non funziona!! mi appare il messaggio di
> inserire la data ad ogni inserimento o modifica.....
> sto cercando un'altra strada che sarebbe, se possibile da fare, anche
> migliore (ho scritto un'altro messaggio sul NG)
>
> Supergrazie comunque ma io non ci riesco.......probabilmente sbaglio
> qualcosa
Comincio a pensare che tu sia un burlone e ci stia prendendo tutti in giro...
:-)
Ciao. Claudio.


text:
Claudio <cld@NOSPAM&COsupereva.it> wrote in message
m2Px9.73482$aL4.2...@news1.tin.it...
> "Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
> news:JmMx9.72778$aL4.2...@news1.tin.it...
> > Roberto da casa <
r.ma...@libero.it
> wrote in message
> > i%xx9.114585$RO.29...@twister1.libero.it...
> > > "Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
> > > news:oAxx9.86074$TD1.3...@news2.tin.it...
> cut
> > > > per anno vorrei, se possibile, tramite una casella di testo o altro
> inserire
> > > > ad esempio 02 e visualizzare quindi le proporzioni di fatturato del
> 2002???
> > > >
> > > Insomma, se la data della fattura è contenuta in un campo di tipo
Data/ora
> > > chiamato DataFattura, aggiungi alla query un campo calcolato in questa
> > > maniera:
> > >
> > > Anno: Year([DataFattura])
> > >
> > > e nei criteri di questo campo calcolato scrivi:
> > >
> > > [Digita l'anno nella forma aaaa:]
> >
> > non vorrei essere fastidioso ma non funziona!! mi appare il messaggio di
> > inserire la data ad ogni inserimento o modifica.....
> > sto cercando un'altra strada che sarebbe, se possibile da fare, anche
> > migliore (ho scritto un'altro messaggio sul NG)
> >
> > Supergrazie comunque ma io non ci riesco.......probabilmente sbaglio
> > qualcosa
>
> Comincio a pensare che tu sia un burlone e ci stia prendendo tutti in
giro...
> :-)
>
> Ciao. Claudio.
>
>
Perchè dici così ????? non è affatto vero, non sono riuscito a fare ciò che
volevo neanche con il vostro aiuto quindi cerco di cambiare strada.Non sto
prendendo in giro nessuno è solo che sto cercando di fare una cosa che per
me non è facile e ci sto dedicanto quasi tutto il mio tempo libero!!!!


text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
NDOx9.117794$RO.30...@twister1.libero.it...

che cosa vuol dire??!!


text:
"Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
news:M47y9.96688$TD1.4...@news2.tin.it...
>
> Roberto da casa <
r.ma...@libero.it
> wrote in message
> NDOx9.117794$RO.30...@twister1.libero.it...
> >
> > "Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
> > news:JmMx9.72778$aL4.2...@news1.tin.it...
> > >
> > [CUT]
> > >
> > > non vorrei essere fastidioso ma non funziona!! mi appare il messaggio
di
> > > inserire la data ad ogni inserimento o modifica.....
> >
> > ???????????????
> >
> > [CUT]
> >
> > --
> > Roberto
[CUT]
>
> che cosa vuol dire??!!
Beh, a volte tu non capisci cosa vogliamo dire noi e questa volta non
capisco io cosa vuoi dire tu.
Stiamo parlando di filtrare i dati con una query parametrica in base
all'anno di una  data e tu ci dici che ti viene richiesto di digitare i
parametri della query ogni volta che aggiorni non ho capito che cosa;
comunque sia, l'aggiornamento dell'oggetto su cui è basata la query non può
interferire con i parametri della query stessa, debbono essere due cose
distinte.
O sbaglio?
Insomma, come ti ha detto Claudio, a volte viene il "legittimo sospetto" di
essere presi in giro. ;-)



title: Risultato di query assegnato ad una variabile data

author: Fabio

text:
Posso ( e se si come) attribuire il risultato di una query ad una variabile
data che poi userò in qualche parte della mia applicazione?(sapendo che la
query mi restituirà sempre e solo un unico valore)
Esempio:ho la miaQuery e la variabile dData.
La cosa + logica sarebbe dData=codice SQL di esecuzione della query.
Si ma quale codice?
Si può?
Grazie a tutti/e e ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Roberto dalla campagna

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
news:151Z96Z0Z8Y11...@usenet.libero.it...
> Posso ( e se si come) attribuire il risultato di una query ad una
variabile
> data che poi userò in qualche parte della mia applicazione?(sapendo che la
> query mi restituirà sempre e solo un unico valore)
> Esempio:ho la miaQuery e la variabile dData.
> La cosa + logica sarebbe dData=codice SQL di esecuzione della query.
> Si ma quale codice?
> Si può?
Risolvi il tuo problema con una DLookup (vedi help) che abbia come dominio
la tua query.
> Grazie a tutti/e e ciao
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Trigger/Access

author: Teo

text:
Ciao.
Scusate l'ignoranza ma non ho esperienza con Access.
Esiste qualcosa di simile ai trigger di SQL Server in Access?
Grazie in anticipo
Teo


title: Trigger/Access

text:
Teo <
nospam...@libero.it
> wrote in message
gLQc8.924$l_3....@twister1.libero.it...

Non ne sono certo, ma non esiste in access una funzionalità del genere.
Comunque utilizzando connessioni con driver ODBC, attraverso le query
pass-through abiliterai sul server dove gira SQL Server il trigger.


title: compatibilità files AccessXP con Access2003

author: F. Canova

text:
Ciao,
ho creato un db con accessXP. Ho una quesy che controlla il valore contenuto
in un campo di una sottomaschera, quindi mi estrae la corrispondenza dalla
tabella principale
CRITERI: Forms!Machera!Sottomaschera!Campo
La query crea una tabella con il/i record/s trovato/i, quindi viene aperta
una marchera con i risultati, basata sulla tabella creata.
Con accessXP tutto ok. Ho provato ad eseguirlo con Access2003: la query
viene eseguita, ma non ricava nessun record. La tabella di destinazione
viene creata vuota e di conseguenza la maschera finale non contiene nulla.
Qualcuno ha avuto guai simili? E' cambiao cosě tanto dalla versione
pecedente?
Grazie, Fabio.


text:

> Qualcuno ha avuto guai simili? E' cambiao così tanto dalla versione
> pecedente?
>
> Grazie, Fabio.
www.donkarl.com/it
 cerca "eval"
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Stampa report con scelta stampante

author: nao

text:
Ciao a tutti,
non riesco a risolvere questo inghippo su un piccolo database che mi sono
fatto. (...sono un neofita di access)
su una form ho creato un bottone che mi stampa un determinato report, quando
pigio il bottone, il report parte direttamente in stampa con la stampante
predefinita.
come posso fare per far si che una volta che pigio il bottone mi apra la
classica finestra per scegliere la stampante?
grazie a chi mi aiuta.
Nao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Stampa report con scelta stampante

author: Alessandro Cara

text:
nao wrote:
> Ciao a tutti,
> non riesco a risolvere questo inghippo su un piccolo database che mi sono
> fatto. (...sono un neofita di access)
>
> su una form ho creato un bottone che mi stampa un determinato report, quando
> pigio il bottone, il report parte direttamente in stampa con la stampante
> predefinita.
>
> come posso fare per far si che una volta che pigio il bottone mi apra la
> classica finestra per scegliere la stampante?
>
> grazie a chi mi aiuta.
Help: Openreport, parolina acviewpreview
--
ac
y-1=x


title: Stampa report con scelta stampante

text:
nao wrote:
P.S: scsami non ho afferrato subito la domanda.
--
ac
y-1=x


title: Stampa report con scelta stampante

author: ALESSANDRO Baraldi

text:
"nao" <
na...@iol.it
> ha scritto nel messaggio
news:195Z33Z137Z29Y1...@usenet.libero.it...
> Ciao a tutti,
> non riesco a risolvere questo inghippo su un piccolo database che mi sono
> fatto. (...sono un neofita di access)
>
> su una form ho creato un bottone che mi stampa un determinato report,
quando
> pigio il bottone, il report parte direttamente in stampa con la stampante
> predefinita.
>
> come posso fare per far si che una volta che pigio il bottone mi apra la
> classica finestra per scegliere la stampante?
>
> grazie a chi mi aiuta.
> Nao
Vuoi modificare la stampante predefinita o selezionare la stampante
specifica per la stampa...?
Nel 1° caso con il Runcommand è banale:
DoCmd.RunCommand acCmdPrint
Nel 2° Caso invece devi ingegnarti con l'Oggetto printer, popolare ciclando
i Device nella Collection Devices
per popolare una ComboBox di selezione, quindi sfruttare l'oggetto printer
come in questo Esempio:

www.donkarl.com/it?FAQ5.1
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Stampa report con scelta stampante

author: IgnazioC

text:
Sembra che nao abbia detto :

io ho fatto proprio una cosa banale banale..apro il report in modalità
"anteprima" e poi ho copiato nella mia barra dei menù personalizzata il
comando "stampa" del menù "file".
sarà poco professionale..ma funziona :D
--
ignazioc


title: Tabelle collegate da codice esterno

author: Luciano (DOC)

text:
Se sposto due DB con tabelle collegate fra loro, i path si perdono.
Dall'interno di Access è possibile riallegarle da codice all'avvio, ma
dall'esterno? Non c'è un modo per controllare e/o modificare il percorso
delle tabelle allegate via asp?
Saluti.
Luciano


title: Tabelle collegate da codice esterno

author: Alessandro Baraldi

text:
On 24 Apr, 11:46, "Luciano \(DOC\)" <
XXXlucianodoc...@sitocomune.com
>
wrote:

Beh buongiorno prima di tutto.
Dall'esterno diventa difficile intercettare l'errore lato Server...
NOn sò se il classico 404 sia gestibile, di certo poi dovresti
interagire con l'utente e farlo scorazzare per il Server a cercare un
MDB....!
A me non piace molto...
In effetti non mi sono posto il problema, ma è pur vero che anche se
sposto il mio Dominio non mi accade questo, il percorso della
Connessione al MDB è dinamico e relativo e non assoluto...
Forse non ho ben focalizzato il nocciolo...
@Alex


title: Tabelle collegate da codice esterno

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1177409016....@o40g2000prh.googlegroups.com...
> Beh buongiorno prima di tutto.
Buongiorno a te e a tutti, naturalmente:-)
> Dall'esterno diventa difficile intercettare l'errore lato Server...
> NOn sò se il classico 404 sia gestibile, di certo poi dovresti
> interagire con l'utente e farlo scorazzare per il Server a cercare un
> MDB....!
> A me non piace molto...
Neanche a me. Quello che pensavo, sempre che si possa, mettere la routine
che allega le tabelle nel global.asa dentro applicationonstart.
> In effetti non mi sono posto il problema, ma è pur vero che anche se
> sposto il mio Dominio non mi accade questo, il percorso della
> Connessione al MDB è dinamico e relativo e non assoluto...
La connessione al MDB è relativa, certo. Il mio problema è che ho diviso il
BE in 3 file per problemi di sovrappeso, e alcune tabelle sono in comune.
Saluti.
Luciano


title: Tabelle collegate da codice esterno

text:
[CUT]
> La connessione al MDB è relativa, certo. Il mio problema è che ho diviso il
> BE in 3 file per problemi di sovrappeso, e alcune tabelle sono in comune.
> Saluti.
Se ho capito bene tra i tuoi 3BE hai delle LinkedTable...
Beh perchè non effettui il Link con uno script VBS...?
Il problema potrebbe essere su cosa(inteso che condizione) far
eseguire il Relink...?
Purtroppo penso che tu debba prevedere un comando per farlo, come si
diceva essendo tutto lato Server
non credo ci possano essere molte varianti, a meno di non disporre del
controllo del ServerWeb e di poter
far girare un servizio....
Non credo che far eseguire ad ogni apertura del Client il Relink possa
essere una strategia vincente...
Magari sbaglio qualche considerazione
> Luciano
@Alex


title: Tabelle collegate da codice esterno

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1177415331.1...@r3g2000prh.googlegroups.com...
> Se ho capito bene tra i tuoi 3BE hai delle LinkedTable...
Esatto
> Beh perchè non effettui il Link con uno script VBS...?
Hem....è quello che vorrei fare....:-)
> Il problema potrebbe essere su cosa(inteso che condizione) far
> eseguire il Relink...?
All'avvio dell'applicazione.
> Purtroppo penso che tu debba prevedere un comando per farlo, come si
> diceva essendo tutto lato Server
Il comando esiste, è la sub applicationOnStart del global.asa che parte da
sola ogni volta che l'applicazione o il servizio IIS partono.
> non credo ci possano essere molte varianti, a meno di non disporre del
> controllo del ServerWeb e di poter
> far girare un servizio....
Questo è quello che voglio assolutamente evitare.
> Non credo che far eseguire ad ogni apertura del Client il Relink possa
> essere una strategia vincente...
Non ad ogni apertura del client, sarebbe folle, certo.
> Magari sbaglio qualche considerazione
E' che capirsi via mail/NG è spesso complicato!:-)
Grazie cmq.
Saluti.
Luciano


title: Tabelle collegate da codice esterno

text:
On 24 Apr, 14:44, "Luciano \(DOC\)" <
XXXlucianodoc...@sitocomune.com
>
wrote:
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggionews:1177415331.1...@r3g2000prh.googlegroups.com...
>
> > Se ho capito bene tra i tuoi 3BE hai delle LinkedTable...
>
> Esatto
>
> > Beh perchè non effettui il Link con uno script VBS...?
>
> Hem....è quello che vorrei fare....:-)
>
Allora ho capito...! Forse...
Beh come sai il VBS è molto simile a VB, pertanto accedi
tranquillamente a DAO
come componente COM, quindi a tutto il suo modello Oggetti...!
Di fatto usi praticamente la stessa sintassi dichiarando gli oggetti
come Object
invece che come Tipo...!
Ipotizzo di avere una Tabella Locale(nel DB aperto) che mi indica
quali Tabelle sono da Linkare..., nel tuo caso oltre al nome dovà
avere anche il DBName per sapere da dove andarle a prendere....!
Dim objAccess
Dim objDb
Dim objRS
Dim strPathToMDB
Dim strTableName
Dim strFilePath
    ' Per Access 2002, usare Application.10
    Set objAccess = CreateObject("Access.Application.10")
    ' Open the desired database
    set objDB=objAccess.OpenCurrentDatabase(strPathToMDB)
    Set objRS=objDB.OpenRecordset("ElencoTabelle")
    Do until objRS.Eof
         objDB.Tabledefs(objRS).Connect="NuovaConnessione"
         objRS.MoveNext
    Loop
ecc....
Ciao
@Alex


title: Tabelle collegate da codice esterno

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1177433591.0...@r30g2000prh.googlegroups.com...
> Beh come sai il VBS č molto simile a VB, pertanto accedi
> tranquillamente a DAO
> come componente COM, quindi a tutto il suo modello Oggetti...!
AFAIK VBS, o per lo meno ASP, supporta ADO e non DAO, quindi ciclare su
tabledefs non si puň.
Grazie cmq.
Ciao.
Luciano


title: Tabelle collegate da codice esterno

text:
> AFAIK VBS, o per lo meno ASP, supporta ADO e non DAO, quindi ciclare su
> tabledefs non si può.
> Grazie cmq.
> Ciao.
>
> Luciano
Si vero, ma non sarà un problema con ADOX è la stessa cosa....
In ogni caso siccome VBS supporta Access.Automation supporta il metodo
TransfertDatabase con il quale puoi relincare le tabelle...
Come vedi di metodi ne hai molti....
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: creare foglio excel

author: Luca

text:
Salve a tutti,
volevo sapere se è possibile salvare una maschera in access in formato excel
cosi da avere dei dati utilizzabili anche nell'altro prog microsoft---
Vi ringrazio
Luca


title: creare foglio excel

author: Emyr

text:


no
Saluti.
Emanuele.


title: Ancora problemi con i controlli associati

author: Lucio

text:
Il problema che avevo posto č questo
ho il seguente problema che vorrei risolvere:
Tabella turni con [Id turno], [orario turno],(casella di riepilogo con tutti
i turni previsti che va ad attingere in un'ltra tabella chiamata Tipologia
turni), [Straordinario feriale],[straordinario festivo] (le
ultime due solo caselle sě/no); il problema nella maschera č:
vorrei che la casella straordinario feriale venga spuntata automaticamente
quando inserisco l'orario turno, e solo le casella festivo non č spuntata,
esempio:
orario turno: 8 (per essere piů univoco l'ho rinominato mattino), casella
straordinario feriale sě, casella straordinario
festivo no (quest'ultimo controllo lo spunto solo se necessario);
orario turno:R (come riposo), casella str.fer. no, casella str fes no;
orario turno:16(anche questo l'ho rinominato pomeriggio), casella
str.fer.no
, casella str.fes sě e cosě di seguito.
Ringrazio anticipatamente chiunque sia in grado di aiutarmi;
ho cercato di risolverlo come gentilmente suggerito, con delle condizioni
if, da Enrico Virginio che di seguito riporto, compilate su dopo
aggiornamento della casella di riepilogo [orario turno]
Private Sub Orario_turno_AfterUpdate()
If Me.Orario_turno = mattina Then
    Me.Str_fer = True
Else:
    Me.Str_fes = False
End If
If Me.Orario_turno = pomeriggio Then
    Me.Str_fes = True
Else:
    Me.Str_fer = False
End If
End Sub
Anche se sono un pň crudo di visual non credo di aver commesso errori, ma il
bello č che io inserisco il turno ma l caselle sottostanti non reagiscono
alle condizioni.
A questo punto sono in un vicolo cieco.
Scusate se mi sono dilungato un pň
Un ringraziamento a chi mi potesse aiutare ed un saluto al tutta la NG


text:
"Lucio" <
151...@virgilio.it
> ha scritto nel messaggio
news:InXj8.61681$_u5.1...@news1.tin.it...

Rileggendo il messaggio vorrei chiarire che i turni nell'enunciato non soso
racchiusi tra virgolette perchč ho provato sia "con" si senza.


author: Antonio Biso

text:
Lucio <
151...@virgilio.it
> wrote in message
JqXj8.61686$_u5.1...@news1.tin.it...
>
> > Private Sub Orario_turno_AfterUpdate()
> > If Me.Orario_turno = mattina Then
> >     Me.Str_fer = True
> > Else:
> >     Me.Str_fes = False
> > End If
> > If Me.Orario_turno = pomeriggio Then
> >     Me.Str_fes = True
> > Else:
> >     Me.Str_fer = False
> > End If
> > End Sub
> > Anche se sono un pò crudo di visual non credo di aver commesso errori,
ma
> il
> > bello è che io inserisco il turno ma l caselle sottostanti non
reagiscono
> > alle condizioni.
> > A questo punto sono in un vicolo cieco.
> > Scusate se mi sono dilungato un pò
> > Un ringraziamento a chi mi potesse aiutare ed un saluto al tutta la NG
> >
> Rileggendo il messaggio vorrei chiarire che i turni nell'enunciato non
soso
> racchiusi tra virgolette perchè ho provato sia "con" si senza.
Luciè? Porca miseria, però un po' di teoria a volte non guasta eh?
Orario_turno è un controllo della maschera, che da codice è come fosse una
variabile che contiene un valore. Va confrontato con qualcosa nell'if,
genericamente un espressione. L'espressione può essere:
una costante (es. un numero, una stringa)
una variabile (un identificatore nel quale è memorizzato un valore)
una combinazione di questi ottenuta medianti operatori
se tu scrivi mattina, per access mattina è una variabile che conterrà un
valore. Se non gli è stato assegnato un valore, il default è stringa vuota.
Quindi quando scrivi
if orario_turno = mattina significa if orario_turno = "" e questo non
succede mai, ergo l'if non fa nulla!
Lo stesso per gli altri casi!!!
Allora, tu devi confrontarlo con il valore costante stringa "mattina". Se in
orario turno c'è la stringa "mattina" allora l'if fa qualcosa altrimenti no!
Ma se in orario_turno non scrivi proprio "mattina",   ma per esempio hai
usato un gruppo di opzioni con tre pirolicchi (radio button NdR) con valori
1 2 e 3 in modo che al caso "mattina" associ 1, "pomeriggio" 2 e "R" 3,
allora il valore di orario_turno sarà 1 2 o 3 e quindi nel test con l'if
devi usare la costante numerica 1, 2 o 3 !!!
Puff pant !!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:mZZj8.14358$%g7.4...@twister2.libero.it...

Intanto ti ringrazio per avermi dato attenzione,
forse non sono stato molto chiaro nell'esporre la struttura del Db:
La voce mattina o R o pomeriggio non viene digitata nel campo Orario turno,
ma viene reperita dal menù a discesa, per cui, per quello che ne so
(veramente poco) la costante c'è, spero di essere stato più chiaro.


text:
Lucio <
151...@virgilio.it
> wrote in message
4r_j8.65178$Ns4.2...@news2.tin.it...
>
> > 1 2 e 3 in modo che al caso "mattina" associ 1, "pomeriggio" 2 e "R" 3,
> > allora il valore di orario_turno sarà 1 2 o 3 e quindi nel test con l'if
> > devi usare la costante numerica 1, 2 o 3 !!!
> >
> > Puff pant !!
> >
> > Antonio
> >
> >
> Intanto ti ringrazio per avermi dato attenzione,
> forse non sono stato molto chiaro nell'esporre la struttura del Db:
> La voce mattina o R o pomeriggio non viene digitata nel campo Orario
turno,
> ma viene reperita dal menù a discesa, per cui, per quello che ne so
> (veramente poco) la costante c'è, spero di essere stato più chiaro.
Nel menù a discesa (combobox) cosa viene scelto? Quanto vale la combo dopo
l'aggiornamento? Non è che la colonna associata è diversa da quello che
scegli ed è visualizzato?
Fai così: nell'evento dopo aggiornamento della combo scrivi msgbox
nomecombo, così vedi quanto vale.
Quelli sono i valori da confrontare con la costante nell'if
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:___j8.14554$%g7.4...@twister2.libero.it...

Antonio ti ringrazio per l'illuminazione, effettivamente la combo non si
basava sull'effettiva colonna visualizzata ma bensì sull'id generato da
record.
Grazie ancora.
Lucio


title: Permesso...

author: Giorgio Barbetta

text:
Ciao a tutti, sono Giorgio e ho n gran bisogno di Voi:
ho creato un a piccola routine in cui, selezionando in una casella combinata
la "Divisa" (Lire, Euro), cambia il valore dell'importo nel campo Imp_Spesa
ovvero:
Private Sub CasellaCombinata18_AfterUpdate()
     ' divisa in Lire
If IDDivisa = 1 Then
   Me!Imp_Spesa = Me!Imp_Spesa * DLookup("[Cambio]", "Cambi","IDCambio=2")
    ' divisa in Euro
ElseIf IDDivisa = 2 Then
   Me!Imp_Spesa = Me!Imp_Spesa / DLookup("[Cambio]", "Cambi","IDCambio=2")
End If
End Sub
Tale routine funziona ma non perfettamente poiche' se seleziono per due
volte consecutive lo stesso valore nel campo Divisa - per es. 2 volte le
Lire - il valore del campo Imp_Spesa viene ricalcolato due volte. Questo e'
un errore.
Vi ringrazio sin da ora!!!!!!!!!!
Giorgio


title: Permesso...

author: Daniele

text:
Giorgio Barbetta <
gbg...@tin.it
> wrote in message
8baoi1$gg7$1...@nslave2.tin.it...

prova a mettere il tutto nell'evento SuModifica
Ciao


title: Richiamare Sub presente in maschera da Barra Personalizzata

author: MA

text:
salve a tutti ho una Sub che viene richiamati da diversi eventi in maschera.
Mi servirebbe richiamarla anche dalla barra degli strumenti, per dismettere
i pulsanti (ingombranti sulla maschera!)
L'ho anche dichiarata public, ma niente
Tks
MAssimiliano


author: sv

text:
MA ha scritto:

> Tks
> MAssimiliano
Io utilizzo una macro sulla Barra Personalizzata che esegue la Sub.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:c1kj7q$fdh$1...@news.newsland.it...
> MA ha scritto:
>
> > salve a tutti ho una Sub che viene richiamati da diversi eventi in
maschera.
> > Mi servirebbe richiamarla anche dalla barra degli strumenti, per
dismettere
> > i pulsanti (ingombranti sulla maschera!)
> > L'ho anche dichiarata public, ma niente
>
> > Tks
> > MAssimiliano
>
> Io utilizzo una macro sulla Barra Personalizzata che esegue la Sub.
>
> --
> rgrds
> SC
Grazie della risposta.
Ma quale macro?
noi stiamo parlando di una sub presente in maschera e dichiarata Public non
di una function in un modulo
MAssimiliano


text:
"sv" <
salv...@nospbox.enel.it
> wrote in message
news:c1kj7q$fdh$
1...@news.newsland.it
> MA ha scritto:
>
> > salve a tutti ho una Sub che viene richiamati da diversi eventi in maschera.
> > Mi servirebbe richiamarla anche dalla barra degli strumenti, per dismettere
> > i pulsanti (ingombranti sulla maschera!)
> > L'ho anche dichiarata public, ma niente
>
> > Tks
> > MAssimiliano
>
> Io utilizzo una macro sulla Barra Personalizzata che esegue la Sub.
> rgrds
> SC
Oppure una Function Public in un Modulo, ma l'importante
è che la SUB nella Form sia dichiarata Public, anche
se alcune volte questo metodo può dare problemi....!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:19f1bb10c856c5a588...@mygate.mailgate.org...
> "sv" <
salv...@nospbox.enel.it
> wrote in message
> news:c1kj7q$fdh$
1...@news.newsland.it
>
> > MA ha scritto:
> >
> > > salve a tutti ho una Sub che viene richiamati da diversi eventi in
maschera.
> > > Mi servirebbe richiamarla anche dalla barra degli strumenti, per
dismettere
> > > i pulsanti (ingombranti sulla maschera!)
> > > L'ho anche dichiarata public, ma niente
> >
> > > Tks
> > > MAssimiliano
> >
> > Io utilizzo una macro sulla Barra Personalizzata che esegue la Sub.
>
> > rgrds
> > SC
> Oppure una Function Public in un Modulo,
Questo non mi va per una serie di motivi.
> ma l'importante
> è che la SUB nella Form sia dichiarata Public,
questo l'ho fatto, ma dalle macro non la riesco a visualizzare per
richiamarla.
That's the problem.
> anche
> se alcune volte questo metodo può dare problemi....!
 Spero di no.
> @Alex.
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:Hpk%b.11853$
HO2....@news.edisontel.com
[CUT]
> > ma l'importante
> > è che la SUB nella Form sia dichiarata Public,
> questo l'ho fatto, ma dalle macro non la riesco a visualizzare per
> richiamarla.
> That's the problem.
Sono sicuro che hai provato con =Forms!NomeForm.NomeSub()
Se è così credo che l'unica sia la Function Public....



text:
> [CUT]
>
> > > ma l'importante
> > > è che la SUB nella Form sia dichiarata Public,
> > questo l'ho fatto, ma dalle macro non la riesco a visualizzare per
> > richiamarla.
> > That's the problem.
>
> Sono sicuro che hai provato con =Forms!NomeForm.NomeSub()
Tu dove dici di inserirla?
p.s. ti prego di non essere volgare!! ;-P
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:H4D%b.12157$
HO2....@news.edisontel.com

Dove inserisci di solito la chiamata ad una Function...??
Nello stesso posto, non c'è AUTOCOMP c'è solo da inserirla.
Ritengo però che possa non funzionare, io ho sempre adottato
la chiamata ad una FUNCTION Public in Modulo questa poi
passerà un parametro tramite Property Let/Get in una Proprietà
di Form piuttosto che una Public Sub(nella FORM)



text:
> > > [CUT]
> > >
> > > > > ma l'importante
> > > > > è che la SUB nella Form sia dichiarata Public,
> > > > questo l'ho fatto, ma dalle macro non la riesco a visualizzare per
> > > > richiamarla.
> > > > That's the problem.
> > >
> > > Sono sicuro che hai provato con =Forms!NomeForm.NomeSub()
> > Tu dove dici di inserirla?
> > p.s. ti prego di non essere volgare!! ;-P
> > MAssimiliano
>
>
> Dove inserisci di solito la chiamata ad una Function...??
> Nello stesso posto, non c'è AUTOCOMP c'è solo da inserirla.
>
> Ritengo però che possa non funzionare, io ho sempre adottato
> la chiamata ad una FUNCTION Public in Modulo questa poi
> passerà un parametro tramite Property Let/Get in una Proprietà
> di Form piuttosto che una Public Sub(nella FORM)
>
> @Alex.
@Alex, il problema è richiamarla dalla barra personalizzata.
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:ynE%b.12274$
HO2....@news.edisontel.com
> > > > [CUT]
> > Ritengo però che possa non funzionare, io ho sempre adottato
> > la chiamata ad una FUNCTION Public in Modulo questa poi
> > passerà un parametro tramite Property Let/Get in una Proprietà
> > di Form piuttosto che una Public Sub(nella FORM)
> >
> > @Alex.
>
>
> @Alex, il problema è richiamarla dalla barra personalizzata.
> MAssimiliano
MMmmmmm c'è un BUCO d'informazione.
Non capisco proprio quale sia questo problema, da una
CommandBar personalizzata richiami nello stesso modo
sia Macro che Funzioni con la sola differenza che le
Macro le VEDI elencate le Funzioni no, ma nessuno
ti vieta di inserirle....!!!
Azione=NomeFunzione()
Ciao.



text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:6d0b8581dbf459192b...@mygate.mailgate.org...

Azione= forms!miaMaschera.miasub()
Ciao e mille denghiu (ti sei salvato, altrimenti saremmo stati in tre sul
serio gli squadristi!!! )
MAssimiliano
p.s. Mò questa non me la voglio perdere, ho dato dello squadrista a Biso,
comunista a sx di lotta armata!


text:
> >
> > > > > > [CUT]
> > > > Ritengo però che possa non funzionare, io ho sempre adottato
> > > > la chiamata ad una FUNCTION Public in Modulo questa poi
> > > > passerà un parametro tramite Property Let/Get in una Proprietà
> > > > di Form piuttosto che una Public Sub(nella FORM)
> > > >
> > > > @Alex.
> > >
> > >
> > > @Alex, il problema è richiamarla dalla barra personalizzata.
> > > MAssimiliano
> >
> > MMmmmmm c'è un BUCO d'informazione.
> > Non capisco proprio quale sia questo problema, da una
> > CommandBar personalizzata richiami nello stesso modo
> > sia Macro che Funzioni con la sola differenza che le
> > Macro le VEDI elencate le Funzioni no, ma nessuno
> > ti vieta di inserirle....!!!
> >
> > Azione=NomeFunzione()
> >
> > Ciao.
> > @Alex.
>
> Azione= forms!miaMaschera.miasub()
ora però sto combattendo col fatto che mi lancia la sub 3 volte e nonn ho
ancora capito perchè
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:S5G%b.12325$
HO2....@news.edisontel.com
[CUT]
> >
> > Azione= forms!miaMaschera.miasub()
>
> ora però sto combattendo col fatto che mi lancia la sub 3 volte e nonn ho
> ancora capito perchè
> MAssimiliano
Sivede che te lo meriti..............
Adesso ci devi mettere del tuo....!!
Hai provato ad insultarlo e fargli capire
chi comanda....!



text:
> [CUT]
> > >
> > > Azione= forms!miaMaschera.miasub()
> >
> > ora però sto combattendo col fatto che mi lancia la sub 3 volte e nonn
ho
> > ancora capito perchè
> > MAssimiliano
>
>
> Sivede che te lo meriti..............
> Adesso ci devi mettere del tuo....!!
>
> Hai provato ad insultarlo e fargli capire
> chi comanda....!
>
> @Alex.
>
C'è proprio qualcosa che non va, perchè me lo fa anche con un'altra.
MAssimiliano


author: S. Savoldi

text:
"MA" <
> C'è proprio qualcosa che non va, perchè me lo fa anche con un'altra.
Già: devi spostare le routines in un modulo globale.
http://www.mvps.org/access/bugs/bugs0048.htm
Ciao.


text:
"S. Savoldi" <
war...@libero.it
> wrote in message
news:eMG%b.36758$
FJ6.1...@twister1.libero.it

;-)



text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:0b710fa7f6291d5467...@mygate.mailgate.org...
> "S. Savoldi" <
war...@libero.it
> wrote in message
> news:eMG%b.36758$
FJ6.1...@twister1.libero.it
>
> >
> > "MA" <
> >
> >
> > > C'è proprio qualcosa che non va, perchè me lo fa anche con un'altra.
> >
> > Già: devi spostare le routines in un modulo globale.
> >
> >
http://www.mvps.org/access/bugs/bugs0048.htm
> >
Effettivamente dichiarando in maschera come function la procedura
e inserendo nella barra = NomeFunzione() va bene.
Grazie a voi e a Lebans
MAssimiliano


title: Differenza di data fra record

author: SimoneB

text:
Salve a tutti,
ho un DB con una tabella chiamata Immissione Orario la quale contiene i
campi
IdImmissione, Data, Ora, Dipendente
Supponiamo che la tabella venga popolata nel seguente modo:
1    12/05/05    08.30    Rossi
2    12/05/05    08.35    Verdi
3    12/05/05    12.30    Rossi
4    12/05/05    12.45    Verdi
5    12/05/05    15.00    Rossi
6    12/05/05    18.00    Rossi
Vorrei ora creare una query che faccia la differenza fra il primo record di
rossi e il secondo di rossi, fra il primo di verdi e il secondo di verdi,
fra il terzo di rossi e il quarto. Mi dovrebbe insomma calcolare la
differenza fra l'entrata in servizio e l'uscita... avete un'idea di come
fare?
Saluti Simone


title: Differenza di data fra record

author: giorgio rancati

text:
"SimoneB" <
sim...@colcavolochemettolamail.it
> ha scritto nel messaggio
news:czkhe.1382920$35.51...@news4.tin.it...

Ciao SimoneB,
manca un campo per indicare quale è la riga di ingresso *I* e quale è la
riga di uscita *U*
-----------
 IdImmissione, Data, Ora, Dipendente, TipoRiga
 1    12/05/05    08.30    Rossi    I
 2    12/05/05    08.35    Verdi    I
 3    12/05/05    12.30    Rossi    U
 4    12/05/05    12.45    Verdi    U
 5    12/05/05    15.00    Rossi    I
 6    12/05/05    18.00    Rossi    U
-------------
fatto questo puoi applicare la seguente query
----------
SELECT Data,
       Dipendente,
       Ora AS Ingresso,
       (Select Top 1 Ora FROM Immissione I2
        Where I2.Dipendente=I1.Dipendente
          AND I2.Data=I1.Data
          AND I2.Ora> I1.Ora
          AND I2.TipoRiga='U'
        ORDER BY I2.Data+I2.Ora) AS Uscita,
       Cdate(Uscita-Ingresso) AS Differenza
FROM Immissione AS I1
WHERE TipoRiga='I'
--------------
Risultato
--------------
Data, Dipendente, Ingresso, Uscita, Differenza
12/05/2005     Rossi     8.30.00     12.30.00     4.00.00
12/05/2005     Verdi     8.35.00     12.45.00     4.10.00
12/05/2005     Rossi     15.00.00    18.00.00     3.00.00
----------------
sempre che l'ingresso e l'uscita avvengano nello stasso giorno, in altro
caso bisogna fare la differenza tra Data+Ora
Ciao Giorgio


title: Differenza di data fra record

text:
> Ciao SimoneB,
> manca un campo per indicare quale è la riga di ingresso *I* e quale è la
> riga di uscita *U*
> -----------
> IdImmissione, Data, Ora, Dipendente, TipoRiga
>
> 1    12/05/05    08.30    Rossi    I
> 2    12/05/05    08.35    Verdi    I
> 3    12/05/05    12.30    Rossi    U
> 4    12/05/05    12.45    Verdi    U
> 5    12/05/05    15.00    Rossi    I
> 6    12/05/05    18.00    Rossi    U
> -------------
>
Fatto... e funziona....
> fatto questo puoi applicare la seguente query
> ----------
> SELECT Data,
>       Dipendente,
>       Ora AS Ingresso,
>       (Select Top 1 Ora FROM Immissione I2
>        Where I2.Dipendente=I1.Dipendente
>          AND I2.Data=I1.Data
>          AND I2.Ora> I1.Ora
>          AND I2.TipoRiga='U'
>        ORDER BY I2.Data+I2.Ora) AS Uscita,
>       Cdate(Uscita-Ingresso) AS Differenza
> FROM Immissione AS I1
> WHERE TipoRiga='I'
> --------------
>
Io ho creato una nuova query in struttura senza specificare nessuna origine
di tabella... sono andato in SQL e ho messo il codice che te mi hai dato
modificando il campo TipoRiga in Tipo e al posto di U per uscita ho messo
"o" modificando anche nel codice  AND I2.TipoRiga='U' in AND I2.TipoRiga='o'
dopo aver eseguito la query mi reperisce solo gli ingressi e non le uscite
di conseguenza la differenza non la esegue... inoltre mi modifica il codice
in questo modo è giusto?
SELECT I1.Data, I1.Dipendente, I1.Ora AS Ingresso, (Select Top 1 Ora FROM
Immissione I2
        Where I2.Dipendente=I1.Dipendente
          AND I2.Data=I1.Data
          AND I2.Ora> I1.Ora
          AND I2.Tipo='o'
        ORDER BY I2.Data+I2.Ora) AS Uscita, CDate(Uscita-Ingresso) AS
Differenza
FROM Immissione AS I1
WHERE (((I1.Tipo)='I'));
Grazie ancora e saluti Simone


title: Differenza di data fra record

author: Roberto da casa

text:
"SimoneB" <
sim...@colcavolochemettolamail.it
> ha scritto nel messaggio
news:czkhe.1382920$35.51...@news4.tin.it...

Vai sul Sito Comune e nella Sezione Queries leggi la FAQ di Giorgio Rancati
e Roberto intitolata "2.28 Come creare una query per normalizzare una
tabella timbrature da badge".
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Differenza di data fra record

text:
> Vai sul Sito Comune e nella Sezione Queries leggi la FAQ di Giorgio
> Rancati
> e Roberto intitolata "2.28 Come creare una query per normalizzare una
> tabella timbrature da badge".
>
> --
> Roberto
e pensare che avevo anche provato a vedere se c'era qualcosa... ho letto ed
ho risolto così
SELECT Tx.Dipendente, Tx.Giorno, Tx.OraIngresso, Tx.OraUscita,
DateDiff("n",OraIngresso,OraUscita) AS Totale
FROM [SELECT Dipendente,
                          CDate(Fix(Data)) AS Giorno,
                          Format(Data,"hh:nn") AS OraIngresso,
                          (SELECT TOP 1  Format(DATA,"hh:nn") AS OraUscita1
                           FROM Immissione AS M2
                           WHERE M2.Tipo = 'o'
                                         AND M2.Dipendente = M1.Dipendente
                                         AND M2.Data > M1.Data
                                         AND CDate(Fix(M2.data)) =
CDate(Fix(M1.data))
                          ORDER BY M2.data) AS OraUscita
               FROM Immissione AS M1
               WHERE (((M1.Tipo)='i'))
               ORDER BY M1.Data]. AS Tx
ORDER BY Tx.Giorno, Tx.OraIngresso;
Mille grazie...


title: Differenza di data fra record

text:
"SimoneB" <
sim...@colcavolochemettolamail.it
> ha scritto nel messaggio
news:jbrhe.897028$b5.39...@news3.tin.it...
[CUT]
>>ho un DB con una tabella chiamata Immissione Orario la quale contiene i
>>campi IdImmissione, Data, Ora, Dipendente
vai a capire che avevi un solo campo per la data e per l'ora :-)
Giorigo


title: importazione di tanti file .dbf

text:
Devo importare un centinaio di file con estensione .dbf in un database
access e creare una tabella per ogni file importato.
Vorrei creare un modulo che faccia questo in automatico senza che io
debba fare importa tabella per 100 volte e oltre.
Conosco molto poco il vba, quindi vorrei saere se esistono esempi da
guardare o avete consigli sul codice da scrivere
Grazie mille
Ciao


title: importazione di tanti file .dbf

author: Pablitomf (Maurizio Facciuti)

text:
<
davide...@gmail.com
> ha scritto nel messaggio
news:1126701225.2...@z14g2000cwz.googlegroups.com...

Ma i files sono uguali? nel senso, cambia solo il contenuto e non la
struttura?
Se č questo il caso, potresti fare cosě :
1) fai il collegamento della tabella solo al primo file
2) ti crei una query di creazione tabella
4) la esegui da codice :
    Docmd.setwarnings False
    Docmd.RunSQL "....scrivi SQL che ti serve..."
    Docmd.setwarnings True
5) Cambi il link alla tabella passandola al secondo file. (*)
6) Ripeti dal punto 4 finchč i file non sono finiti.
(*) sul sito comune ti guardi l'esempio relativo al Relink delle tabelle


title: importazione di tanti file .dbf

text:
Adesso provo ad informarmi su questa cosa che mi hai detto, ma cmq non
credo sia perfetta per il mio problema.
spiego melgio: Ho 150 file con estensione .dbf, non so cosa siano,
probabilmente tabelle diverse tra loro e in maggioranza vuote.Io le
devoimportare in un database come tabelle e come nome devo utilizzare
il nome del file.
Quindi se si chiama "abcd.bdf" la tabella dovrà chiamarsi "abcd"
Il tutto vorrei avvenisse in modo automatico, nessun bottone nessun
click, avviata la macro voglio che termini con l'importazione ove
possibile di tutti i file.
Sto cercando da un paio d'ore ma non ho trovato esempi che mi hanno
saputo aiutare.
Attendo news thx
Ciao


title: importazione di tanti file .dbf

text:
>Adesso provo ad informarmi su questa cosa che mi hai detto, ma cmq non
>credo sia perfetta per il mio problema.
>spiego melgio: Ho 150 file con estensione .dbf, non so cosa siano,
file dBase III
Stringa di connessione OLEDB =
"Provider=Microsoft.Jet.OLEDB.4.0;
  Extended Properties=dBase IV;
  Data Source=" + sCartellaDBF
Stringa di connessione ODBC =
"Driver={Microsoft dBase Driver (*.dbf)};
  DriverID=277;
  Dbq=" + sCartellaDBF>probabilmente tabelle diverse tra loro e in
maggioranza vuote.Io le
Come probabilmente? Ma lo conosci o no il contenuto di questi dbs?
>devo importare in un database come tabelle e come nome devo utilizzare
>il nome del file.
Lo puoi fare come ti dicevo collegando via ODBC tali tabelle e con query di
creazione impostare le tabelle di cui parli...
>Quindi se si chiama "abcd.bdf"
cosa? la tabella del tuo file dbs?
>la tabella dovrà chiamarsi "abcd"
se è come sopra è ok.
>Il tutto vorrei avvenisse in modo automatico, nessun bottone nessun
>click, avviata la macro voglio che termini con l'importazione ove
>possibile di tutti i file.
Il metodo è più o meno quello che ti ho già postato...
con accorgimenti specifici del caso, ma il processo è quello...



title: importazione di tanti file .dbf

text:
<
davide...@gmail.com
> ha scritto nel messaggio
news:1126707883.1...@f14g2000cwb.googlegroups.com...





Ciao Davide,
una delle possibili soluzioni
----
Sub ImportaDbf()
 Dim Path As String     'Percorso dei files DBF
 Dim NomeFile As String 'Nome del file da importare
 Dim StrSql As String   'Stringa di comando
 Path = "C:\Db3File"
 NomeFile = Dir(Path + "\*.DBF")
 Do
    If NomeFile = "" Then Exit Do
    StrSql = "Select * " & _
           "INTO " & Replace(NomeFile, ".DBF", "") & " " & _
           "From [DBASE III;Database=" & Path & "]." & NomeFile
    CurrentDb.Execute StrSql
    NomeFile = Dir()
 Loop
End Sub
----
nell'esempio ho considerato i file DBF come DBASE III, vedi tu se il tipo di
file è giusto.
Ciao Giorgio


title: importazione di tanti file .dbf

text:
> Ciao Davide,
>
> una delle possibili soluzioni
> ----
> Sub ImportaDbf()
>
> Dim Path As String     'Percorso dei files DBF
> Dim NomeFile As String 'Nome del file da importare
> Dim StrSql As String   'Stringa di comando
>
> Path = "C:\Db3File"
> NomeFile = Dir(Path + "\*.DBF")
>
> Do
>    If NomeFile = "" Then Exit Do
>    StrSql = "Select * " & _
>           "INTO " & Replace(NomeFile, ".DBF", "") & " " & _
Il replace nel 97 non esiste... dal 2k in poi...
>           "From [DBASE III;Database=" & Path & "]." & NomeFile
e la connessione la prende cosi?



title: importazione di tanti file .dbf

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> ha scritto
nel messaggio news:dg9esl$l55$1...@domitilla.aioe.org...
>
> Il replace nel 97 non esiste... dal 2k in poi...
poco male, puoi cambiare la riga in questo modo
----
"INTO " & Left(NomeFile, Len(NomeFile) - 4) & " " & _
----
> >           "From [DBASE III;Database=" & Path & "]." & NomeFile
>
> e la connessione la prende cosi?
quale è il dubbio  ?
Ciao Giorgio


title: importazione di tanti file .dbf

text:
[CUT]
>> Il replace nel 97 non esiste... dal 2k in poi...
> poco male, puoi cambiare la riga in questo modo
> ----
> "INTO " & Left(NomeFile, Len(NomeFile) - 4) & " " & _
> ----
certo...
>> >           "From [DBASE III;Database=" & Path & "]." & NomeFile
>>
>> e la connessione la prende cosi?
>
> quale è il dubbio  ?
di funzionamento... a me non funziona...
StrSql risulterebbe per esempio :
Select * INTO CUSTOMER.DBF From [DATABASE
III;Database=C:\FileDBS].CUSTOMER.DBF
e alla sua esecuzione Access cerca il File CUSTOMER.MDB che ovviamente è
mancante...
che mi sono perso?


title: importazione di tanti file .dbf

text:
Risolto... spazio mancante nel codice :-D
Vabbè capito... vado a casa.
;-)
--
Ciao
----------------------------------------------------------
:: Pablitomf (Maurizio Facciuti)
:: Access : Ver.97 - 2K
----------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
http://www.napolisoccer.it/
----------------------------------------------------------
La mia tesi :
"Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: importazione di tanti file .dbf

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> ha scritto
nel messaggio news:dg9h00$p4s$1...@domitilla.aioe.org...
> > quale č il dubbio  ?
>
> di funzionamento... a me non funziona...
>
> StrSql risulterebbe per esempio :
> Select * INTO CUSTOMER.DBF From [DATABASE
> III;Database=C:\FileDBS].CUSTOMER.DBF
>
> e alla sua esecuzione Access cerca il File CUSTOMER.MDB che ovviamente č
> mancante...
>
> che mi sono perso?
>
>
il nome dell'isam e il nome della tabella
----
Select * INTO CUSTOMER From [DBASE III;Database=C:\FileDBS].CUSTOMER
----
Ciao Giorgio


title: importazione di tanti file .dbf

text:
Allora ho provato i vostri suggerimenti, e sembra funzionare per
l'import della prima tabella, ma poi mi dice che la tabella esiste
già, probabilmente perchè continua a voler importare sempre la
stessa, pensavo di eliminare man mano le tabelle importate con
Kill (NomeFile)
Ma dice che non trova il file (ovviamente Nomefile è una stringa
comprensiva di tutta la path della dir in cui si trova il file più il
nome del file)
Un ulteriore controllo che vorrei introdurre poi è il controllo se la
tabella è vuota o no ed in caso sia vuota eliminarla.
Aspetto ancora suggerimenti
Grazie mille


title: importazione di tanti file .dbf

text:
ho risolto da solo il problema del kill, ma ne ho un altro, se il file
non puo' essere importato si blocca e non importa le altre tabelle,
dovrei cercare di superare questo problema....
sapete aiutarmi?


title: importazione di tanti file .dbf

text:
<
davide...@gmail.com
> ha scritto nel messaggio
news:1126853497....@g43g2000cwa.googlegroups.com...

>Kill (NomeFile)


>Aspetto ancora suggerimenti
Ciao Davide,
la routine non importa sempre la stessa tabella, quindi non c'è bisogno di
fare il Kill.
Io ho provato ad importare 10 tabelle, forse hai inserito qualche modifica
al codice, potresti postarlo in modo da individuare eventuali errori ?
Poi vediamo la questione delle tabelle vuote.
Ciao Giorgio


title: importazione di tanti file .dbf

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:432aba97$0$8498$5fc...@news.tiscali.it...
> <
davide...@gmail.com
> ha scritto nel messaggio
altra cosa:
i nomi dei files DBF superano gli otto caratteri (estensione esclusa) ?
Ciao Giorgio


title: Chiudere una query da codice VB

author: Andrea Raveggi

text:
SAlve a tutti,
sto cercando di chiudere una query che sta in una sottomaschera, con il
comando
docmd.close  acquery, "prova", acsaveyes       ( a parte la sintassi,
con virgole o parentesi...)
se cambio l'ordine dei campi nella query, prima di chiuderla mi chiede
sempre se la voglio salvare, nonostante l'acsaveyes ( ho provato anche
con acsaveno: uguale).
perchč ?
p.s. Esiste un modo per disattivare i messaggi tipo "salvare:
sě/No/Annulla" o  per personalizzarli ??
Grazie e ciao
Andrea


title: Chiudere una query da codice VB

author: Sergio MAZZA

text:
"Andrea Raveggi" <
andrea....@tin.it
> ha scritto nel messaggio
news:3A7AE5D7...@tin.it...

Hai provato con il SetWarnings = false?
Ciao.


title: dimensione campi

author: Maurizio Giacobbe

text:
Ho un problema: devo modificare la dimensione di due campi senza
perderne il contenuto, ho visto l'istruzione ALTER TABLE ma, da quanto
ho capito, permette solo di aggiungere o cancellare un campo senza
poterne solo modificare la dimensione.
Grazie a chiunque possa aiutarmi.
                     Maurizio
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: dimensione campi

author: Roberto Pasqualini

text:
"Maurizio Giacobbe" <
ma...@yahoo.it
> ha scritto nel messaggio
news:c497828b4c08e88767f...@mygate.mailgate.org...

L' istruzione ALTER TABLE prevede anche l'opzione ALTER COLUMN che serve
appunto per modificare le dimensioni delle colonne ma esistono una lunga
serie di vincoli (non devono essere indice oppure foreing-key ecc...) se
utilizzi SQL Server nella guida in linea tutto ciň č speigato molto bene
sotto la voce ALTER TABLE. Se invece usi ACCESS credo che la soluzione piů
veloce sia quella di creare una nuova tabella con i campi e le dimensioni
che ti servono ed accodarvi i dati tramite una query di accodamento,
cancellare la vecchia tabella e rinominare la nuova (occhio solamente al
fatto che se i nuovi campi hanno dimensione inferiore a quelli vecchi
qualcosa viene troncato oppure i record non possono venire accodati)
E' un metodo molto empirico ma funziona benissimo...
Roberto Pasqualini


title: dimensione campi

text:
Grazie!!!
                     Maurizio Giacobbe



title: dimensione campi

text:
Ho provato con una tabella creata con access97 e l'ALTER COLUMN ha
funzionato perfettamente.
               Maurizio Giacobbe



title: [OT] Problemi con il server news (Tiscali) ?

author: Roberto dal portatile

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:39b3d38b...@news.tiscalinet.it...
> Secondo voi è normale riuscire a scaricare soltanto oggi 4/9 i post
> del 2/9 ?
> Devo cambiare qualche impostazione di FA ?
> Devo cambiare server di news ?
> Devo cambiare provider ?
>
> Vincenzo Turturro
>
Se adoperi Outlook Express, dai un'occhiata a Strumenti->Ozioni->Lettura;
verifica quante intestazioni di news hai indicato di leggere ogni volta; il
valore massimo accettato è 1000; a me capita che, se in uno dei miei due PC,
per molto tempo non leggo le news e le news da leggere sono più di 1000 (in
certi momemti il nostro NG ha più di 1000 transazioni la settimana), ho la
necessità di effettuare più sincronizzazioni per effettuare lo scaricamento
completo dei messaggi. Mi sembra di capire che la sincronizzazione avvenga
partendo dai messaggi più recenti.
Dai un'occhiata anche alle Impostazioni per il Sincronizza account; viene
consigliato il "Solo nuovi messaggi", ma io mi trovo meglio adoperendo
"Tutti i messaggi".
Comunque sia, a volte, anch'io ricevo i messaggi con un paio d'ore di
ritardo; ad esempio, quando ho risposto al messaggio di bip bip del 4/9/2000
ore 22:47, non vedevo le risposte tua e di Frankkk; le ho poi viste solo
dopo aver mandato la mia risposta
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:_83t5.4986$_U1....@news.infostrada.it...

Ammesso e non concesso che adoperi Outlook Express, installando la versione
5.5 i problemi da te lamentati diminuiscono di molto.
Roberto


author: Sandro

text:
VT @ home ha scritto il lun 04 set 2000 10:37:16p
>Secondo voi è normale riuscire a scaricare soltanto oggi 4/9 i post
>del 2/9 ?
>Devo cambiare qualche impostazione di FA ?
>Devo cambiare server di news ?
>Devo cambiare provider ?
>
Ti consiglio di installare hamster (o NewsPlex se leggi on line alcuni
newsgroup), sono newsserver locali che ti permettono di ricevere gli
articoli (feed) da piu' newsserver, dopo di che usi FA in combinazione
con hamster.
Un OTTIMO server di news gratuito  e'
news.cis.dfn.de
, pero' devi
iscriverti via email ed in giornata ricevi login e password.
Un news server di sola lettura e'
news.cs.tu-berlin.de

Puoi configurare hamster per ricevere il feed da  questi due server con
in piu' quello fornito dal tuo isp e puoi stai sicuro di aver risolto i
tuoi problemi.
Link:
hamster:
http://www.geocities.com/FashionAvenue/1075/
news.cis.dfn.de

http://news.cis.dfn.de/en/rules.html
Sandro


text:
r.ma...@libero.it
 (Roberto dal portatile) wrote:
>indicato di leggere ogni volta; il valore massimo accettato è 1000; a me
>capita che, se in uno dei miei due PC, per molto tempo non leggo le news
>e le news da leggere sono più di 1000 (in certi momemti il nostro NG ha
>più di 1000 transazioni la settimana), ho la necessità di effettuare più
>sincronizzazioni per effettuare lo scaricamento completo dei messaggi.
Se levi il segno di spunta su leggi xxx messaggi alla volta, OE te li
carica tutti e non hai bisogno di fare piu' sincronizzazioni.
Sandro


text:
Roberto dal portatile ha scritto il mar 05 set 2000 12:18:47p
>
>Ammesso e non concesso che adoperi Outlook Express, installando la
>versione 5.5 i problemi da te lamentati diminuiscono di molto.
>
Convinciti che non puoi dire ad uno che usa Free Agent a passare ad
Outlook Express  :))))))
Ciao
  Sandro


text:
"Sandro" <
api...@worldonline.it
> ha scritto nel messaggio
news:8p2ji9$nmk$1...@serv1.albacom.net...

Non era nelle mie intenzioni; se per caso avesse adoperato il tanto
vituperato Outlook, cercavo di dirgli qualcosina.
Lo sai che a me con OE un messaggio non è mai partito tre volte di
seguito???  ;o))
Roberto


text:
"Sandro" <
api...@worldonline.it
> ha scritto nel messaggio
news:8p2j9o$nf3$1...@serv1.albacom.net...

Grazie
Roberto


author: ema

text:
Mio cuggino mi ha detto che VT @ home <
V...@home.it
> scrisse:
> Secondo voi è normale riuscire a scaricare soltanto oggi 4/9 i post
> del 2/9 ?
>
successo solo oggi, o ti capita di frequente?
> Devo cambiare qualche impostazione di FA ?
>
non direi.
> Devo cambiare server di news ?
>
se succede spesso...
> Devo cambiare provider ?
>
a meno che ti trovi un NG server free che permette il post, se decidi di
cambiare NGserver devi cambiare anche provider.
O senno` (sempre ammesso che Tiscali funzioni male, io nonzo) puoi
leggere da un NGserver free (e ce ne son tanti che danno l'accesso in
lettura), e postare su Tiscali...
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX x rispondere    ICQ #8814554
E' estremamente divertente essere vivo...  mi chiedo se il mio letto e'
fatto...


title: bollettini postali

author: mino

text:
avevo già postato questo problema un pò di tempo fa ma non avevo risolto
il problema pur cercando sul NG. ho bisogno di stampare sui bollettini
postali che hanno dei maledetti quadratini rossi da centrare. dopo
centinaia di prove ho fattuna procedura che mi crea uno spazio tra una
lettera e l'altra e usando courier new (carattere a larghezza fissa) mi
sono un pochino avvicinato alla soluzione ma non sono ancora soddisfatto.
qualcuno ha trovato o ha una soluzione.
se sì mi faccia sapere
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: bollettini postali

author: chippo

text:
news...@libero.it
 (mino) wrote in message news:<b9800u$lj8$
1...@news.newsland.it
>...
> avevo giŕ postato questo problema un pň di tempo fa ma non avevo risolto
> il problema pur cercando sul NG. ho bisogno di stampare sui bollettini
> postali che hanno dei maledetti quadratini rossi da centrare. dopo
> centinaia di prove ho fattuna procedura che mi crea uno spazio tra una
> lettera e l'altra e usando courier new (carattere a larghezza fissa) mi
> sono un pochino avvicinato alla soluzione ma non sono ancora soddisfatto.
> qualcuno ha trovato o ha una soluzione.
> se sě mi faccia sapere
Hai per caso creato un report?
Io no perchč i bollettini sono a modulo continuo e cambiano da
bollettino a bollettino. Perciň, memore della mia formazione cobol
(write ... after ...) con la funzione Print #1 creo un file di testo
che poi copio sulla stampante (copy file.txt lpt1, tanto per
intenderci). Per i quadratini rossi ho fatto come te: <<lettera>>
<<spazio>> <<lettera>> ecc. Poi, sulla stampante imposto il carattere
a 10 cpi e la cosa funziona discretamente (gli utenti sono
soddisfatti)... E' questione di lavorare in sesti e pollici per le
linee di stampa, ed in decimi per i caratteri, che sono i vecchi line
feed e picture del cobol su cui e' basata la maggior parte della
modulistica ancora in circolazione (piů o meno). Forse trovi ancora in
giro qualche righello che ti permette di creare il file di stampa:
chiedi alle aziende che producono i bollettini.
Ciao


title: bollettini postali

author: NGM

text:
Ciao,
io ho sviluppato un prog per il calcolo dell'ICI e la stampa sul bollettino
mi sono disegnato tanti campi non associati,
uno per quadratino, e con la funzione Mid ho passato il carattere per ogni
quadratino ex =Mid([Intestato];3;1).
Il problema mi rimane sul secondo decimale nella parte a destra, perchè
stampo su laser e il margime min è 5 millimetri,
mentre quella casella si trova, in base alla partita dei bollettini, a 3
millimetri dal margine.
Forse non è il max come velocità e raffinatezza ma, una volta disegnati
tutti i campi, il risultato è ottimo. Beppe


title: bollettini postali

author: Enzo Radice Sola

text:
"mino" <
news...@libero.it
> ha scritto nel messaggio
news:b9800u$lj8$1...@news.newsland.it...

tempo addietro avevo risolto in questo modo:
ho scannerizzato il bollettino c/c ed ho usato l'immagine come sfondo al
report;
con la funzione mid$ scomponevo la stringa da stampare in un carattere per
volta ed andavo a posizionarlo nel suo quadratino
teminato il tutto e verificato la cetratura ho rimosso l'immagine di sfondo
Il tutto è stato un lavoro da certosino
Auguri
P.S. Tieni presente che se usi la getto di inchiostro è difficile stampare i
centesimi della cifra in alto a destra (il margine inferiore è
insufficiente)
         Si potrebbe anche girare l'immagine al contrario ed usa conme
carattere quelli capovolti.
Riauguri
Enzo


title: bollettini postali

author: Informatica

text:
io ne ho stampati di bollettini utilizzando il carattere FixedSys - prova a
cercarlo sulla rete.
"mino" <
news...@libero.it
> ha scritto nel messaggio
news:b9800u$lj8$1...@news.newsland.it...



title: bollettini postali

text:
mino wrote:

> --

mille grazie a tutti per le risposte ora provo a fare qualcosa ma come
prevedevo la cosa non è così semplice come con i vecchi ch8bis.
ciao



title: bollettini postali

text:
Informatica wrote:


innanzitutto grazie mille per la risposta ma ho cercato in rete i
caratteri ma non li ho trovati. hai qualche dritta da darmi o se li hai me
li puoi inviare via email. ciao e per ora grazie



title: Esportare query in formato elettronico

author: Stefano

text:
Buongiorno a tutti
Per cortesia volevo chiedere se era possibile esportare da codice una query
in tempo reale e permetterne il salvataggio o su disco fisso o su pendrive
usb
Naturalmente con codice o bottoni poiche' chi usa l'applicativo non vede
l'ambiente access e non puo' accedere all'esportazione manuale dal menu File
Ringrazio fin d'ora per consigli e suggerimenti
Stefano


title: Esportare query in formato elettronico

author: Carlo Costarella

text:
"Stefano" <
stefano...@libero.it
> ha scritto nel messaggio
news:SKUXi.164751$U01.1...@twister1.libero.it...

Certo che si può.
Leggiti il metodo TransferDatabase per trasferire un oggetto (query in
questo caso) verso un database.
Oppure il metodo TransferSpreadsheet per esportare una query in un foglio di
calcolo.
Oppure il metodo TransferText per esportare in formato txt, html.
Ciao, Carlo


title: Esportare query in formato elettronico

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:fgpd5s$t4l$1...@tdi.cu.mi.it...

>Ti ringrazio Carlo
Buona Giornata


title: Pulsante con 2 funzioni

author: Giorgia

text:
Vorrei inserire, nella maschera CARICA DOC ACQUISTO, un pulsante di comando
che faccia la domanda: SUDDIVEDERE I COSTI PER AUTOMEZZO?
e a seconda della risposta:
se SI': aprire la maschera COSTI AUTOMEZZI
se NO: chiudere la maschera (in verità l'ideale sarebbe mi chiedesse, prima
di chiudere, se voglio chiudere o caricare una nuova fattura.....)
Qualcuno ha già affrontato la questione? Con i criteri delle query, che un
po' ti lanciano questo genere di messaggi, mi trovo bene e pensavo di far
aprire dal pulsante una query ma non credo sia l'operazione corretta.
--
Giorgia


title: Pulsante con 2 funzioni

author: Francesco

text:

dim domanda as variant
domanda = msgbox("La tua domanda", vbYesNo)
if vbYes then
  'cose da fare se risponde sì
else
  ' cose da fare se risponde no
end if
Io di solito faccio così, sull'evento "click" del pulsante


title: Pulsante con 2 funzioni

text:

sbagliato..
if domanda = vbYes


title: Pulsante con 2 funzioni

author: Alessandro Cara

text:
Francesco ha scritto:

ed io invece faccio cosi'
domanda = msgbox("La tua domanda", vbYesNoCancel+vbdefaultbutton3)
if domanda=vbYes then
    'cose da fare se risponde sì
  elseif domanda=vbNo then
    ' cose da fare se risponde no
  else
     ' cose da fare per annulla
end if
--
ac


title: Pulsante con 2 funzioni

author: M C

text:
"Francesco" <
frances...@gmail.com
> ha scritto nel messaggio
news:4bff3200-c87b-4723...@y9g2000yqg.googlegroups.com...

sbagliato..
if domanda = vbYes
Vabbe....se vogliamo io non utilizzo neanche la variabile "domanda".. e
controllo
If MsgBox("Conferma?",vbYesNo)=vbYes Then
    ......
Else
   .....
End if
La risposta sta nel fatto che si puo' usare MsgBox sia come procedura che
funzione,
poi il fatto che ci siano vari tipi di pulsanti e di finestre é un altro
aspetto.


title: Pulsante con 2 funzioni

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:49d0a3ae$0$1105$4faf...@reader4.news.tin.it...

Credo ci sia un errore dopo Else.....ma dove?
Private Sub SUDDIVIDI_COSTO_Click()
If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
   On Error GoTo Err_SUDDIVIDI_COSTO_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "COSTI AUTOMEZZI"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_SUDDIVIDI_COSTO_Click:
    Exit Sub
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
Else
  On Error GoTo Err_SUDDIVIDI_COSTO_Click
    DoCmd.Close
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
End If
End Sub


title: Pulsante con 2 funzioni

author: geppo

text:
Ciao "Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:49d0de5e$0$844$4faf...@reader5.news.tin.it...
---cut----
> Credo ci sia un errore dopo Else.....ma dove?
Solo?
 Private Sub SUDDIVIDI_COSTO_Click()
On Error GoTo Err_SUDDIVIDI_COSTO_Click
 Dim stDocName As String
Dim stLinkCriteria As String
If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
   stDocName = "COSTI AUTOMEZZI"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
else
   DoCmd.Close
End If
Exit_SUDDIVIDI_COSTO_Click:
               Exit Sub
Err_SUDDIVIDI_COSTO_Click:
      MsgBox Err.Description
      Resume Exit_SUDDIVIDI_COSTO_Click
 End Sub
--
Ciao
Geppo


title: Pulsante con 2 funzioni

text:
"geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:vAbAl.203714$Ca.3...@twister2.libero.it...

Fantastico Geppo!
Mi sai solo suggerire se posso ancora concatenare alla risposta NO, la
domanda "CARICARE NUOVA FATTURA?" e se SI? la maschera rimane aperta mentre
se NO si chiuderà?
O forse mi conviene creare un pulsante affianco con la nuova domanda....
Grazie, Giorgia


title: Pulsante con 2 funzioni

text:
Ciao "Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:49d1d05b$0$1111$4faf...@reader3.news.tin.it...
---cut---
> Fantastico Geppo!
> Mi sai solo suggerire se posso ancora concatenare alla risposta NO, la
> domanda "CARICARE NUOVA FATTURA?" e se SI? la maschera rimane aperta
> mentre se NO si chiuderà?
> O forse mi conviene creare un pulsante affianco con la nuova domanda....
Private Sub SUDDIVIDI_COSTO_Click()
On Error GoTo Err_SUDDIVIDI_COSTO_Click
 Dim stDocName As String
Dim stLinkCriteria As String
If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
   stDocName = "COSTI AUTOMEZZI"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
else
if MsgBox("INSERIRE UNA NUOVA FATTURA?", vbYesNo)= vbno then
DoCmd.Close
end if
End If
Exit_SUDDIVIDI_COSTO_Click:
               Exit Sub
Err_SUDDIVIDI_COSTO_Click:
      MsgBox Err.Description
      Resume Exit_SUDDIVIDI_COSTO_Click
 End Sub
> Grazie, Giorgia
prego
--
Ciao
Geppo


title: Pulsante con 2 funzioni

author: OneEDP

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:49d0de5e$0$844$4faf...@reader5.news.tin.it...

Ma quanti copia e incolla ... fritto misto.
Private Sub SUDDIVIDI_COSTO_Click()
On Error GoTo Err_SUDDIVIDI_COSTO_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
        stDocName = "COSTI AUTOMEZZI"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
        'DoCmd.Close     'E' necessario? Cosa vuoi chiudere?
    End if
Exit_SUDDIVIDI_COSTO_Click:
    Exit Sub
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
End Sub


title: AIUTO: Come cancellare il valore selezionato in una casella combinata

author: Shotawry

text:
Ciao a tutti,
mi rivolgo ancora una volta a voi per provare a risolvere un problema che
non riesco a superare.
Ecco i dettagli:
In una maschera ho una casella combinata che mi permette di selezionare un
valore utilizzando una tabella come orgine dei dati.
Uso il valore selezionato per filtrare i dati che visualizzati in una query
parametrica che lancio attraverso un pulsante presente nella stessa
maschera.
Vorrei fare in modo che, una volta lanciata la query, il valore selezionato
sparisse dalla casella facendola ritornare "vuota" e pronta per una nuova
selezione. Al momento invece il valore in questione mi resta visibile fino
ad una nuova selezione o alla eventuale chiusura e riapertura della
maschera.
Spero di essere stato chiaro e vi ringrazio per ogni eventuale
suggerimento.
Shot


author: Karl Donaubauer

text:
Shotawry wrote:
> In una maschera ho una casella combinata che mi permette di selezionare un
> valore utilizzando una tabella come orgine dei dati.
> Uso il valore selezionato per filtrare i dati che visualizzati in una
> query parametrica che lancio attraverso un pulsante presente nella stessa
> maschera.
> Vorrei fare in modo che, una volta lanciata la query, il valore
> selezionato sparisse dalla casella facendola ritornare "vuota" e pronta
> per una nuova selezione. Al momento invece il valore in questione mi
> resta visibile fino ad una nuova selezione o alla eventuale chiusura e
> riapertura della maschera.
> ....
Suppongo che la query venga lanciata con codice VBA.
In questo caso dopo manca solo:
Me!MiaCasellaCombinata = Null
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
Il Thu, 19 Mar 2009 19:17:34 +0100, Karl Donaubauer ha scritto:
> Me!MiaCasellaCombinata
Perfetto!!!
Grazie mille.


title: isNull NON funzia...perchè?

author: Luca

text:
isNull NON funzia...perchè?
...si blocca anche usando  isNull, mi dice: " Il record corrente corrisponde
all'inizio o alla fine del file o è stato eliminato..." il ke non è vero...
ho una tab access che NON ha tutte le celle piene (dovrebbero esse null
quindi...)
però il lstGruppi, cicla un'attimo, poi quando incontra un null si
blocca.... se invece gli seleziono un record "pieno" non si blocca solo
perchè ho inserito dei numeri in tutte le celle del record ....
...ma perchè?
...dove sbaglio?
Private Sub CaricaCaratteristicheGruppi()
    Dim rCarattGruppi As ADODB.Recordset
    Dim SQL As String
    Dim LI As ListItem 'Serve?
    Dim Conta As Integer
    Dim nrcampiintabella As Integer
    Dim Titolo As String
    lstGruppi.Clear
    lwCaratt.ListItems.Clear
    SQL = "SELECT * FROM CaratteristicheGruppi where Gruppo = '" &
Text3.Text & "'"
    Set rCarattGruppi = New ADODB.Recordset
    rCarattGruppi.Open SQL, Db, adOpenKeyset, adLockReadOnly
    Debug.Print SQL
    If rCarattGruppi.RecordCount > 0 Then
        rCarattGruppi.MoveFirst
        nrcampiintabella = rCarattGruppi.Fields.Count
            For Conta = 1 To (nrcampiintabella - 4)
                If Not IsNull(rCarattGruppi.Fields("caratt" & Conta).Value)
Then
                    Titolo = rCarattGruppi.Fields("caratt" & Conta).Value
                    lwCaratt.ColumnHeaders.Add.Text = Titolo
                Else
                    rCarattGruppi.MoveNext
                End If
            Next Conta
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    End If
End Sub
--
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca