title: Compatta in Uscita

text:
Francesco Salvagnini ha scritto:
> Marco Pizzamiglio, sei forte! Come ti dicevo sono un profano di
> informatica ( ho studiato filosofia ) e sono appunto le azioni che tu
> descrivi come ovvie che per me non lo sono affatto. Nel senso che �
> proprio questa la difficolt� mia: come si fa a dare i diritti
> necessari al gruppo "Users" in fase di installazione" ? La cartella
> che ha bisogno di questi diritti �: pathProgrammi & "Chiesa dove per
> pathProgrammi si pu� intendere sia C:ProgrammiChiesa sia C:Program
> FilesChiesa. Come procedo? Per distribuire il programma uso  Access
> Developer Extensions 2003. E' meglio autorizzare gli utenti in fase di
> installazione del programma ( quindi durante il setup ) o all'apertura
> del database ? Come si usa questo comando DOS "cacls" ? Grazie e scusa
> la mia ignoranza!   :)
Il comando deve essere eseguito da un account che abbia i diritti di
"Controllo completo" sulla cartella, solitamente un membro del gruppo
Administrators.
Per la sintassi del comando cacls (Change Access Control ListS) apri una
finestra DOS (Prompt dei comandi), scrivi cacls e premi invio.
La sintassi che serve a te � questa:
   cacls C:ProgrammiChiesa /T /E /G users:C
Non ha senso impostare i diritti all'apertura del programma perch�
continuerebbe a farlo sempre ad ogni apertura mentre � sufficiente farlo
una sola volta, a parte che devi gi� avere i diritti prima di aprirlo, e
non � detto che verr� aperto da un administrator.
Meglio farlo quando lo installi.



title: Invio Mail tramite OE - problema con allegati

author: Nina

text:
Salve a tutti,
utilizzo il codice pescato dal Sito Comune per inviare e-mail con allegati.
In una maschera con varie caselle di testo, ho associato ad un pulsante il
seguente codice:
Dim MSGX, OBJX As Variant
Dim aTO(0 To 0) As String, aCC(0 To 1) As String, aBCC(0 To 0) As String,
aFiles(0 To 2) As String
Dim cmd1 As Command, rstMail As Recordset, strSQL As String
Dim  strCN As String,  strQueryMail As String
Dim retValue As Integer, strTtl As String, strMsg As String
    strTtl = "Invio e-mail"
    strMsg = "Confermi l'invio delle e-mail?"
    retValue = MsgBox(strMsg, vbQuestion + vbYesNo, strTtl)
    Select Case retValue
        Case vbYes
            DoCmd.SetWarnings False
                If IsNull(Me.TxtAllegato1) Or Me.TxtAllegato1 = Null Then
                    aFiles(0) = ""
                Else
                    aFiles(0) = Me.TxtAllegato1
                End If
                If IsNull(Me.txtAllegato2) Or Me.txtAllegato2 = "" Then
                    aFiles(1) = ""
                Else
                    aFiles(1) = Me.txtAllegato2
                End If
                If IsNull(Me.txtAllegato3) Or Me.txtAllegato3 = "" Then
                    aFiles(2) = ""
                Else
                    aFiles(2) = Me.txtAllegato3
                End If
                Set cmd1 = New ADODB.Command
                With cmd1
                    .ActiveConnection = CurrentProject.Connection
                         strSQL = "SELECT Nome, Cognome, EMail" & _
                                " FROM InvioEMail"
                    .CommandText = strSQL
                    .CommandType = adCmdText
                    .Execute
                End With
                Set rstMail = New ADODB.Recordset
                rstMail.Open cmd1, , adOpenKeyset, adLockOptimistic
                DoCmd.Hourglass True
                    Do Until rstMail.EOF
                        strCN = rstMail("Nome") &" " &  rstMail("Cognome")
                        aTO(0) = rstMail("EMail")
                        aCC(0) = Nz(Me.txtCC, "")
                        aBCC(0) = Nz(Me.txtCNN, "")
                        OBJX = Nz(Me.txtOggetto, "-")
                        MSGX = "Gentile," & vbCrLf & vbCrLf & _
                               Me.TxtMsg & vbCrLf & vbCrLf & _
                        Invia_MSOE aTO, aCC, aBCC, OBJX, MSGX, aFiles
                        rstMail.MoveNext
                    Loop
                    rstMail.Close
                 DoCmd.Hourglass False
            DoCmd.SetWarnings True
        Case vbNo
            Exit Sub
        Case vbCancel
            Exit Sub
    End Select
Le e-mail vengono create e spedite senza problemi, il problema è questo:
1) inserisco 3 allegati e spedisco l'e-mail - Tutto ok
2) senza chiudere la maschera cancello i tre allegati, svutoando le caselle
di testo corrispondenti, e rispedisco le e-mail - Problema: quest'ultime
hanno sempre l'allegato numero 1. E' come se tenesse in memoria il primo
allegato. Gli altri due vengono invece giustamente annullati.
Dove è l'errore?
Ho provato con diversi debug.print a farmi restituire i nomi dei file che va
ad allegare, ma nell'ultimo caso non appare niente, eppure l'allegato viene
inserito.
Il modulo preso dal sito Comune è questo:
Option Compare Database
Private Type MAPIRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
Private Type MAPIFileTag
    Reserved As Long
    TagLength As Long
    Tag() As Byte
    EncodingLength As Long
    Encoding() As Byte
End Type
Private Type MAPIFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As Long
End Type
Private Type MAPIMessage
    Reserved As Long
    Subject As String
    NoteText As String
    MessageType As String
    DateReceived As String
    ConversationID As String
    Originator As Long
    Flags As Long
    RecipCount As Long
    Recipients As Long
    FileCount As Long
    Files As Long
End Type
Public Declare Function MAPISendMail Lib "c:\programmi\outlook
express\msoe.dll" (ByVal Session As Long, _
ByVal UIParam As Long, ByRef message As MAPIMessage, ByVal Flags As Long,
ByVal Reserved As Long) As Long
Private Const MAPI_E_NO_LIBRARY = 999
Private Const MAPI_E_INVALID_PARAMETER = 998
Private Const MAPI_ORIG = 0
Private Const MAPI_TO = 1
Private Const MAPI_CC = 2
Private Const MAPI_BCC = 3
Private Const MAPI_UNREAD = 1
Private Const MAPI_RECEIPT_REQUESTED = 2
Private Const MAPI_SENT = 4
Private Const MAPI_LOGON_UI = &H1
Private Const MAPI_NEW_SESSION = &H2
Private Const MAPI_DIALOG = &H8
Private Const MAPI_UNREAD_ONLY = &H20
Private Const MAPI_ENVELOPE_ONLY = &H40
Private Const MAPI_PEEK = &H80
Private Const MAPI_GUARANTEE_FIFO = &H100
Private Const MAPI_BODY_AS_FILE = &H200
Private Const MAPI_AB_NOMODIFY = &H400
Private Const MAPI_SUPPRESS_ATTAch = &H800
Private Const MAPI_FORCE_DOWNLOAD = &H1000
Private Const MAPI_OLE = &H1
Private Const MAPI_OLE_STATIC = &H2
Dim mAf() As MAPIFile
Dim mAr() As MAPIRecip
Dim lAr As Long
Dim lAf As Long
Dim mM As MAPIMessage
Dim aErrors(0 To 26) As String
Private Sub Class_Initialize()
    aErrors(0) = "Success"
    aErrors(1) = "User Abort"
    aErrors(2) = "Failure"
    aErrors(3) = "LogIn Failure"
    aErrors(4) = "Disk Full"
    aErrors(5) = "Insufficient Memory"
    aErrors(6) = "Block Too Small"
    aErrors(8) = "Too Many Sessions"
    aErrors(9) = "Too Many Files"
    aErrors(10) = "Too Many Recipients"
    aErrors(11) = "Attachment No Found"
    aErrors(12) = "Attachment Open Failure"
    aErrors(13) = "Attachment Write Failure"
    aErrors(14) = "Unknown Recipient"
    aErrors(15) = "Bad Recipient"
    aErrors(16) = "No Messages"
    aErrors(17) = "Invalid Message"
    aErrors(18) = "Text Too Large"
    aErrors(19) = "Invalid Session"
    aErrors(20) = "Type Not Suppported"
    aErrors(21) = "Ambiguous Recipient"
    aErrors(22) = "Message in Use"
    aErrors(23) = "Network Failure"
    aErrors(24) = "Invalid Edit Fields"
    aErrors(25) = "Invalid Recipient"
    aErrors(26) = "Not Supported"
End Sub
Public Sub Azzera_Email()
    lAr = 0
    lAf = 0
End Sub
Public Sub BCCAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_BCC, , strAddress
End Sub
Public Sub BCCAdd(ByVal strName As String, ByVal strAddress As String)
    RecipientAdd MAPI_BCC, strName
End Sub
Public Sub BCCNameAdd(ByVal strName As String)
    RecipientAdd MAPI_BCC, strName, strAddress
End Sub
Public Sub CCAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_CC, , strAddress
End Sub
Public Sub CCNameAdd(ByVal strName As String)
    RecipientAdd MAPI_CC, strName
End Sub
Public Sub MessageIs1(ByVal strNoteText As String)
    mM.NoteText = strNoteText
End Sub
Public Sub SubjectIs1(ByVal strSubject As String)
    mM.Subject = strSubject
End Sub
Public Sub ToAddressAdd(ByVal strAddress As String)
    RecipientAdd MAPI_TO, , strAddress
End Sub
Public Sub ToNameAdd(ByVal strName As String)
    RecipientAdd MAPI_TO, strName
End Sub
Public Sub FileAdd(ByVal strPathName As String)
    Dim F As MAPIFile
    With F
        .PathName = StrConv(strPathName, vbFromUnicode)
        Debug.Print strPathName
    End With
    ReDim Preserve mAf(lAf)
    mAf(lAf) = F
    lAf = lAf + 1
End Sub
Public Sub Send1()
    Dim r As Long
    With mM
        If lAf > 0 Then
            .FileCount = lAf
            .Files = VarPtr(mAf(0))
        End If
        If lAr > 0 Then
            .RecipCount = lAr
            .Recipients = VarPtr(mAr(0))
            r = MAPISendMail(0, 0, mM, 0, 0)
            If r <> 0 Then
                If aErrors(r) = "" Then
                    MsgBox Err.Number & " Email non creata "
                Else
                    MsgBox aErrors(r) & " - Email non creata"
                End If
            Else
            End If
        End If
    End With
End Sub
Public Sub RecipientAdd(ByVal lngType As Long, Optional ByVal strName As
String, Optional ByVal strAddress As String)
    Dim r As MAPIRecip
    r.RecipClass = lngType
    If strName <> "" Then r.Name = StrConv(strName, vbFromUnicode)
    If strAddress <> "" Then r.Address = StrConv(strAddress, vbFromUnicode)
    ReDim Preserve mAr(lAr)
    mAr(lAr) = r
    lAr = lAr + 1
End Sub
Sub Invia_MSOE(TO1 As Variant, CC1 As Variant, BCC1 As Variant, ByVal OGG1
As String, ByVal MSG1 As String, AFIL1 As Variant)
    Dim T1, B1, C1, A1 As Long
'NUOVA TRASMISSIONE
    Azzera_Email
'ACCODA TO
        For T1 = LBound(TO1) To UBound(TO1)
        If TO1(T1) <> "" Then
            ToAddressAdd TO1(T1)
        Else
            MsgBox "MANCA IL DESTINATARIO - CHIUDO"
        Exit Sub
        End If
        Next T1
'ACCODA CC
        For C1 = LBound(CC1) To UBound(CC1)
        If CC1(C1) <> "" Then
            CCAddressAdd CC1(C1)
        Else
        End If
        Next C1
'ACCODA BCC
        For B1 = LBound(BCC1) To UBound(BCC1)
        If BCC1(B1) <> "" Then
            BCCAddressAdd BCC1(B1)
        Else
        End If
        Next B1
'INSERISCI TESTO MESSAGGIO
    MessageIs1 MSG1
'INSERISCI OGGETTO MESSAGGIO
    SubjectIs1 OGG1
'ACCODA ALLEGATI
    For A1 = LBound(AFIL1) To UBound(AFIL1)
        If AFIL1(A1) <> "" Then
            FileAdd AFIL1(A1)
        Else
        End If
    Next A1
'INVIA
    Send1
End Sub
--
Nina


title: Compilazione condizionale come funziona?

author: Silvio

text:
Ciao a tutti.
Per favore mi spiegate come si usa la compilazione condizionale?
Ho implementato una routine che richiede la Microsoft Outlook Object
Library. Voglio utilizzare questa routine solo dal mio PC. Sugli altri non
ho neanche Outlook.
Portando però l'mdb (o l'mde) sugli altri PC mi da errore di compilazione.
Pensavo di
risolvere il problema con la compilazione condizionale inserendo qualcosa
del tipo:
#if NomePC ="MioPC" then
    'esegui funzioni con Outlook
#else
    'non eseguire nulla con Outlook
#end if
Ma la compilazione condizionale accetta solo costanti tipo
#const NomePC="MioPC"
Come fare?
C'è qualche altra strada per risolvere il mio problema?
Grazie.
Ciao
Silvio


author: Carlo Costarella

text:
"Silvio" <
ma...@mail.com
> ha scritto nel messaggio
news:ghbpm7$21t$1...@tdi.cu.mi.it...

Un ottimo articolo e che riguarda il Late Binding in Access:
http://www.granite.ab.ca/access/latebinding.htm
Anche questo va bene:
http://www.dicks-clicks.com/excel/olBinding.htm
Ciao, Carlo


text:
>> Per favore mi spiegate come si usa la compilazione condizionale?
>>
>> Ho implementato una routine che richiede la Microsoft Outlook Object
>> Library. Voglio utilizzare questa routine solo dal mio PC. Sugli altri
>> non
>> ho neanche Outlook.
>>
>
> Un ottimo articolo e che riguarda il Late Binding in Access:
>
http://www.granite.ab.ca/access/latebinding.htm
>
> Anche questo va bene:
>
http://www.dicks-clicks.com/excel/olBinding.htm
Grazie. Il secondo articolo è perfetto. Devo ancora applicarlo ma certamente
funzionarà.
Curiosità: ma allora a cosa serve la compilazione condizionale? Ero convinto
servisse per questo scopo...
Grazie davvero.
Ciao
Silvio


text:
"Silvio" <
ma...@mail.com
> ha scritto nel messaggio
news:ghmbck$ftr$1...@tdi.cu.mi.it...

Grazie per il tuo feedback.
In questo caso non puoi parlare di compilazione condizionale (tipica di
linguaggi come VB o C) perchè
si tratta di riferimenti da implementare o meno a seconda dell'utente.
Di fatto con il tuo codice, successivo al latebindig, implementi una qualche
forma di "condizione" che in questo caso si chiama istruzione condizionale.
Ciao, Carlo


title: valore null del contatore

author: Silvia

text:
ahhhh!!!!!!!!
in una maschera il valore di un controllo (associato ad un campo
contatore-chiave)
quando io creo un nuovo record (ma prima di inserire un qualsiasi dato; cioč
quando nel controllo compare ancora "(contatore)" )
non ha come valore "Null" ????


title: valore null del contatore

author: Roberto dal portatile

text:
"Silvia" <
siv...@yahoo.com
> ha scritto nel messaggio
news:9jotlp$f0q$1...@serv1.iunet.it...

Si, ha valore Null.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: valore null del contatore

author: oliones

text:
Silvia <
siv...@yahoo.com
> wrote in message 9jotlp$f0q$1...@serv1.iunet.it...

IsNull(valore) č vero se nullo
ciao


title: valore null del contatore

author: Sergio MAZZA

text:
"Silvia" <
siv...@yahoo.com
> ha scritto nel messaggio
news:9jotlp$f0q$1...@serv1.iunet.it...

Se il campo č un contatore, a mio parere, non ha senso farlo vedere...
Ciao.


title: Re: Esportare in una Scheda di Excel

text:
"SAM" <
sam...@libero.it
> ha scritto nel messaggio news:chpbdj$k4h$1...@newsreader.mailgate.org...
> Buona giornata a tutti,
>     vorrei scrivere i risultati di 3 query, lanciate da codice, in un solo
> file XLS ma nei tre fogli. Esiste un metodo per farlo?
>
> Grazie
>
Da Excel, per ogni foglio, fai leggere la query di access cosě non hai bisogno di lanciarle. Basta aprire il file excel e i dati
vengono aggiornati...
Ciao.
--
Sergio MAZZA


title: file .mdb senza installare Access

author: Stefano

text:
Salve a tutti, vorrei sapere se è possibile far funzionare un'applicazione
vb o asp in locale che preleva dati da un file .mdb senza che su quel pc sia
installato Access ? Grazie a tutti.
Stefano
--------------------------------
Inviato via
http://usenet.libero.it


title: file .mdb senza installare Access

author: Alessio Fabio

text:
Certamente, se vuoi far girare le tue pagine ASP devi utilizzare però un
webserver, se usi Win98 c'è il Personal Web Server (Cerca PWS) se hai
Windows XP Pro o Win2000 c'è IIS; se invece utilizzi Win XP Home c'è un
trucco per installare IIS anche lì ma ora nn mi ricordo dove l'ho trovato,
cmq se cerchi su google "Installazione IIS su XP Home" sicuramente trovi.
Per quello che riguarda Vb non c'è problema.
Ti dico anche un'altra cosa anche se non so se è il tuo caso: se vuoi puoi
fare anche applicazioni in access quindi avere tutto in un file .mdb e poi
utilizzare il visualizzatore (che è gratuito) per farla girare anche su pc
in cui access non è installato
--
----------------------------------------------------------------------------
---------------
Fabio Alessio su Morgana (Ninja ZX-6r) <
fal...@libero.it
>
"Stefano" <
s-mecchi...@libero.it
> ha scritto nel messaggio
news:212Z131Z182Z2Y...@usenet.libero.it...



title: file .mdb senza installare Access

text:
Il 01 Ott 2003, 14:17, "Alessio Fabio" <
fabioa...@tiscali.it
> ha scritto:
> Certamente, se vuoi far girare le tue pagine ASP devi utilizzare però un
> webserver...
Si questo lo so. A me interessava solo sapere con certezza se, per
funzionare come base dati di un'applicazione, un file .mdb ha bisogno per
forza di access installato. Cosi' è possibile vendere applicazioni a clienti
anche se non dispongono di office, giusto ? Grazie mille :-))



title: file .mdb senza installare Access

author: ALESSANDRO Baraldi

text:
"Alessio Fabio" <
fabioa...@tiscali.it
> ha scritto nel messaggio
news:blegkv$cdu$1...@lacerta.tiscalinet.it...
> Certamente, se vuoi far girare le tue pagine ASP devi utilizzare però un
> webserver, se usi Win98 c'è il Personal Web Server (Cerca PWS) se hai
> Windows XP Pro o Win2000 c'è IIS; se invece utilizzi Win XP Home c'è un
> trucco per installare IIS anche lì ma ora nn mi ricordo dove l'ho trovato,
> cmq se cerchi su google "Installazione IIS su XP Home" sicuramente trovi.
> Per quello che riguarda Vb non c'è problema.
> Ti dico anche un'altra cosa anche se non so se è il tuo caso: se vuoi puoi
> fare anche applicazioni in access quindi avere tutto in un file .mdb e poi
> utilizzare il visualizzatore (che è gratuito) per farla girare anche su pc
> in cui access non è installato
>
Quale e dove sarebbe il VISUALIZATORE gratuito........???
Grazie.
@Alex.


title: file .mdb senza installare Access

text:
"Stefano" <
s-mecchi...@libero.it
> ha scritto nel messaggio
news:212Z131Z182Z2Y...@usenet.libero.it...
> Salve a tutti, vorrei sapere se è possibile far funzionare un'applicazione
> vb o asp in locale che preleva dati da un file .mdb senza che su quel pc
sia
> installato Access ? Grazie a tutti.
>
> Stefano
Per Vb non serve installare Access, ma devi in ogni caso installare
VB_RUNTIME
che poi non è molto differente da ACCESS_RUNTIME....!
Del resto non serve Access se usi un *.MDB come base dati solamente.
@Alex.


title: file .mdb senza installare Access

author: fidirico

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:blf36h$qdg$1...@lacerta.tiscalinet.it...
>
> "Alessio Fabio" <
fabioa...@tiscali.it
> ha scritto nel messaggio
> news:blegkv$cdu$1...@lacerta.tiscalinet.it...
Cut
> > Ti dico anche un'altra cosa anche se non so se è il tuo caso: se vuoi puoi
> > fare anche applicazioni in access quindi avere tutto in un file .mdb e poi
> > utilizzare il visualizzatore (che è gratuito) per farla girare anche su pc
> > in cui access non è installato
> >
>
>
> Quale e dove sarebbe il VISUALIZATORE gratuito........???
> Grazie.
>
> @Alex.
Deve essere quello che vendono insieme al compilatore...
Galliano


title: Record non trovato

author: John B

text:
Un cordiale saluto a tutti.
Utilizzando il database "Viewer", prelevato dal sito Comune, mi segnala il
messaggio d'errore in oggetto con XP+A97 nella porzione di codice
evidenziato, sia che attivi .FileName.... e disattivi .FileType o viceversa.
Qualora disattivi entrambi, non riesco a vedere tuti i file presenti nella
directory.
Ringrazio fin d'ora dei Vs. aiuti.
Giovanni
With Application.FileSearch
              .NewSearch
              .LookIn = Percorso
              ' La seguente costante, introdotta per aggirare un bug di Win
ME,
              ' è una cortesia di Sergio Mazza e Roberto Massoni :-)
->>>              '.FileType = msoFileTypeAllFiles
->>>              .FileName = "*.*"
              '
              If .Execute > 0 Then
                  For I = 1 To .FoundFiles.Count1


title: Record non trovato

author: Roberto da casa

text:
"John B" <
b...@infinito.it
> ha scritto nel messaggio
news:Mwfpa.45546$LB6.1...@news1.tin.it...

Se usi Access 97 e usi .FileType, aggiungi al tuo database i rifrimenti a
Microsoft Office 8.0 Object Libreary.
In alternativa, per ottenere la lista dei file contenuti in una directory,
usa la funzione Dir (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Record non trovato

text:
> Se usi Access 97 e usi .FileType, aggiungi al tuo database i rifrimenti a
> Microsoft Office 8.0 Object Libreary.
> In alternativa, per ottenere la lista dei file contenuti in una directory,
> usa la funzione Dir (vedi help).
>
> --
> Roberto
Grazie. Adesso è OK.
Un cordiale saluto
Giovanni


title: Etichetta numero "x" e non numero 1

author: Lorenzo Coronati

text:
Scrisse "Stefano Lo Duca" <
stl...@tin.it
>:
>Vorrei sapere se quelcuno sa se c'č una qualche impostazione
>per stampare un'etichetta partendo non dalla prima di un foglio
>A4 ma dalla 2a , 3a , ecc. evitando cosě di sprecare le restanti
>etichette dopo una stampa
Non credo ci sia un metodo embedded, ma gli escamotaggi non mancano!
Io p.e. uso una tabella temporanea come origine del report, e ci
infilo n record vuoti per saltare n etichette.
Funge egregiamente ed e' pure semplice: cosa vuoi di piu' dalla vita?
Bai
--
Lorenzo Coronati
--
<<il mondo si divide in due: gli gnucconi
e LE TESTE DI SCROTO, non credo proprio
di appartenere alla prima>>
(Riccardo Belzani, 22/2/2000)
--


title: Che protocollo usa il sw in rete ?

author: enzo

text:
Ciao, sto usando un programma di contabilità " file-shared ", su una lan con
wnt 4.
Il programma così installato in rete sta usando il protocollo tcp\ip ?
E quale porta tcp ?
Sono 2 quesiti postimi da un tecnico , ai quali non so rispondere....
Il sw è scritto in VB6 e ha tabelle anagrafiche mdb .....
Ciao!


title: Che protocollo usa il sw in rete ?

author: Setec Astronomy

text:
"enzo" <
vla...@tin.it
> wrote in message
news:j4qJ9.2657$lV4....@news2.tin.it...
> Ciao, sto usando un programma di contabilità " file-shared ", su una lan
con
> wnt 4.
> Il programma così installato in rete sta usando il protocollo tcp\ip ?
Si
> E quale porta tcp ?
Utilizza le porte sfruttate dal protocollo di file sharing di windows (138 e
139), quelle di NetBIOS del Name-Server-Demon (137)
Saluti.


title: Che protocollo usa il sw in rete ?

author: Flyzone

text:
On Tue, 10 Dec 2002 18:53:20 GMT, "Setec Astronomy"
<
se...@freemail.it
> wrote:
>Utilizza le porte sfruttate dal protocollo di file sharing di windows (138 e
>139), quelle di NetBIOS del Name-Server-Demon (137)
scusa non potrebbe anche essere collegato via ODBC o tramite il
controllo inet del vb?
io darei un
netstat -n
da prompt di ms-dos per capire quale porta usa, mentre stà scambiando
dati con un client, stando attenti a chiudere gli altri possibili
servizi/programmi.
per il resto è di sicuro tcp.
Fly


title: Che protocollo usa il sw in rete ?

text:
"Flyzone" <
fly...@technologist.com
> wrote in message
news:eb1dvuoscntbbcrff...@4ax.com...
> scusa non potrebbe anche essere collegato via ODBC o tramite il
> controllo inet del vb?
No, il messagio inizia con:
> Ciao, sto usando un programma di contabilità " file-shared ", su una lan
con
> wnt 4.
Questo significa che utilizzata il servizio di condivisione dei file delle
reti Microsoft per accedere alla base dati.


title: Come leggere 'tempo assoluto'

author: RobertoA

text:
Conoscete qualche servizio tipo web-service o simili per la lettura di un '
orario di riferimento'  ?
In sostanza vorrei, per l'inserimento di alcuni record, metterci anche un
orario che sia sincronizzato tra le varie postazioni di lavoro
Piuttosto che eseguira la sincronizzazione della postazione di tanto in
tanto, vorrei proprio 'leggere' l'orario attuale da una qualche entita'
esterna
Non vorrei leggere, dalle postazioni di lavoro, l'orario su di una macchina
tipo quella adibita a db server perche' potrebbe anche non essere l'orario
reale
Ciao e grazie
RobertoA


title: Come leggere 'tempo assoluto'

author: Alessandro Baraldi

text:

Per andare a Roma ci sono sempre molte strade... ma scegliere la più
lunga è discutibile...!
Hai pensato se magari se è più opportuno far mettere il TimeStamp al
Server...?
In quel modo non devi sincronizzare nessuno...
In ogni caso in una Lan(Intranet) serve avere un Server di Sinc,
quindi si attiva il servizio di sincronismo su ogni PC usando magari
NetTime ....
@Alex


title: Come leggere 'tempo assoluto'

text:
> Conoscete qualche servizio tipo web-service o simili per la lettura di un
> '
> orario di riferimento'  ?
> In sostanza vorrei, per l'inserimento di alcuni record, metterci anche un
> orario che sia sincronizzato tra le varie postazioni di lavoro
> Piuttosto che eseguira la sincronizzazione della postazione di tanto in
> tanto, vorrei proprio 'leggere' l'orario attuale da una qualche entita'
> esterna
> Non vorrei leggere, dalle postazioni di lavoro, l'orario su di una
> macchina
> tipo quella adibita a db server perche' potrebbe anche non essere l'orario
> reale
> Ciao e grazie
> RobertoA
Per andare a Roma ci sono sempre molte strade... ma scegliere la piů
lunga č discutibile...!
Hai pensato se magari se č piů opportuno far mettere il TimeStamp al
Server...?
In quel modo non devi sincronizzare nessuno...
In ogni caso in una Lan(Intranet) serve avere un Server di Sinc,
quindi si attiva il servizio di sincronismo su ogni PC usando magari
NetTime ....
------------------------------------
Lu fattu e', che le varie postazioni di lavoro non sono collegate tra loro
Devono raccogliere dei dati che dovranno essere poi correlati nel tempo tra
di loro
Per questo chiedevo se conosssiete qualche fungione che restituisca un tempo
'di riferimento'
E l'aggiu pure drovada, a chi servisse:
http://www.thescarms.com/VBasic/syncclock.aspx
Ciao e grazie
RobertoA


title: Come leggere 'tempo assoluto'

text:
[CUT]
> Lu fattu e', che le varie postazioni di lavoro non sono collegate tra loro
> Devono raccogliere dei dati che dovranno essere poi correlati nel tempo tra
> di loro
> Per questo chiedevo se conosssiete qualche fungione che restituisca un tempo
> 'di riferimento'
> E l'aggiu pure drovada, a chi servisse:
http://www.thescarms.com/VBasic/syncclock.aspx
> Ciao e grazie
> RobertoA
Beh se non hai un'amministratore che chiude la porta NTP sul Firewall,
ed hai le licenze di distribuzione di WSock funziona.
@Alex


title: Come leggere 'tempo assoluto'

text:
> Beh se non hai un'amministratore che chiude la porta NTP sul Firewall,
> ed hai le licenze di distribuzione di WSock funziona.
Distribuire procedure che usano Wsock si paga ???
Pensavo che i controlli di serie forniti con VBxxx  fossero distribuibili
Ciao
RobertoA


title: Come leggere 'tempo assoluto'

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4645f08e$1...@newsgate.x-privat.org...

Intendevo 'distribuibili a gratisse'


title: Come leggere 'tempo assoluto'

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4645f08e$1...@newsgate.x-privat.org...
> > Beh se non hai un'amministratore che chiude la porta NTP sul Firewall,
> > ed hai le licenze di distribuzione di WSock funziona.
>
> Distribuire procedure che usano Wsock si paga ???
No non si paga se hai la licenza di VB6 o VisualStudio...!
> Pensavo che i controlli di serie forniti con VBxxx  fossero distribuibili
Pensvi male, ma ti saresti accorto velocemente... non funzionava.
> Ciao
> RobertoA
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Come leggere 'tempo assoluto'

text:
>> Distribuire procedure che usano Wsock si paga ???
>
> No non si paga se hai la licenza di VB6 o VisualStudio...!
>
>> Pensavo che i controlli di serie forniti con VBxxx  fossero distribuibili
>
> Pensvi male, ma ti saresti accorto velocemente... non funzionava.
>
Ahh ecco, perche' sidda' il caso che io ce l'ebbi
Non ce l'avessi, direi anche
Ma ce l'ebbi
Ciao e grazie
RobertoA


title: [OT] ms access non è "serio"

author: BFS

text:
Era da un po' che non mi capitava..

ciente nuovo mi chiede di fargli un programma che dato un csv di import
lo elabora e lo tramuta in xml.
bene gli dico che in mezza giornata lo faccio senza problemi e gli dico
la spesa X e che lo farò in access, al solito spiego che non serve che
abbia office nel pc etc etc

mi chiama nel pomeriggio per dirmi che un dipendente gli ha detto che
access non è "serio" per fare programmi complessi. (notare che questo di
complesso non ha nulla)

rispondo che se vuole lo faccio in .net ma costa X*2
parlotta con il dipendente e mi conferma il lavoro con .net

"spendo di più ma ho qualcosa di serio"

non capirò mai questo "disprezzo" verso Access

gente strana
BFS


title: [OT] ms access non è "serio"

text:
Purtroppo è sentire comune... e pensare che per cose che non impattano su Grafica ed interfacce ha una rapidità di gestione che fatico a rinunciarvi.

Spesso è anche questione di "ignoranza"... ma secondo me questa cosa esiste da sempre, già da Access1 e VB4...

@Alex


title: [OT] ms access non è "serio"

author: Bruno Campanini

text:
BFS submitted this idea :

Come se la "serietà", la "solidità" di un programma
dipendessero dal liguaggio piuttosto che dalle
palle del programmatore.

Bruno


title: [OT] ms access non è "serio"

text:
> mi chiama nel pomeriggio per dirmi che un dipendente gli ha detto che
> access non è "serio" per fare programmi complessi. (notare che questo di
> complesso non ha nulla)

Normale reazione: sbagli tu a fornire dettagli sul metodo di lavoro.

Se chiedono (ma è raro) con cosa lavori, basta rispondere "in windows".

Saluti


title: [OT] ms access non è "serio"

author: Massimiliano Amendola

text:

Credo sia stato "colpa" dell'averlo incluso in Office, ahinoi.
MA


title: [OT] ms access non è "serio"

author: Karl Donaubauer

text:
Salve,

Bfs ha scritto:
> ...
> "spendo di più ma ho qualcosa di serio"
>
> non capirò mai questo "disprezzo" verso Access
> ...
Per chi ha interesse a materiale profondo di argomentazione sempre
consiglio l'articolo (inglese) di Luke Chung:
http://www.fmsinc.com/MicrosoftAccess/Strategy/

...e per la situazione attuale basta il mio breve ;-)
https://www.linkedin.com/pulse/feel-good-article-accessians-well-kind-karl-donaubauer/

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


title: [OT] ms access non è "serio"

author: Stolcius Von Stolcenberg

text:
Il giorno venerdì 8 marzo 2019 09:43:35 UTC+1, BFS ha scritto:

> mi chiama nel pomeriggio per dirmi che un dipendente gli ha detto che
> access non è "serio" per fare programmi complessi. (notare che questo di
> complesso non ha nulla)

Temporibus illis qualquno sentenziò che Richard Feynman non era un fisico serio in quanto, oltre ad essere uno scassinatore provetto, si dilettava a suonare i bongo ;-)


title: [OT] ms access non è "serio"

author: Cheope

text:
Il 08/03/2019 09:43, BFS ha scritto:
> Era da un po' che non mi capitava..
>
> ciente nuovo mi chiede di fargli un programma che dato un csv di import
> lo elabora e lo tramuta in xml.
> bene gli dico che in mezza giornata lo faccio senza problemi e gli dico
> la spesa X e che lo farò in access, al solito spiego che non serve che
> abbia office nel pc etc etc
>
> mi chiama nel pomeriggio per dirmi che un dipendente gli ha detto che
> access non è "serio" per fare programmi complessi. (notare che questo di
> complesso non ha nulla)
>
> rispondo che se vuole lo faccio in .net ma costa X*2
> parlotta con il dipendente e mi conferma il lavoro con .net

la cosa buffa che access è a pagamento,mentre SQL SERVER EXPRESS + MS
STUDIO DOT NET EXPRESS  sono  gratuiti .


title: Relazioni uno a uno

author: Andrea Moro

text:
Fisicamente con access come diavolo si fa a fargli
fare queste benedette relazioni uno ad uno?
O anche la molti a molti?
Chiede, per la molti a molti, che - giustatamente -
la chiave esterna sia chiave primarie e che il
campo della tabella in cui faccio la molti a molti
sia chiave primaria anche quella.
Perdonatemi, ma non mi torna la faccenda.
Con sql server o altri rdbms deve esserci solo
la chiave primaria della tabella esterna, niente
di più.
Mi spiegato gentilmente passo passo come faccio
ad ottenere la cosa?
Saluti
Andrea Moro


title: Relazioni uno a uno

text:
"Andrea Moro" <
moroan...@tiscalinet.it
> ha scritto nel messaggio
news:b3l1s8$1mi7uh$1...@ID-61006.news.dfncis.de...

Ciao,
io non mi ritengo certo un "mago" di access però, di primo acchito, mi
sembra un falso problema:
Immagino che tu abbia 2 tabelle :
Tabella "Oggetti"
IdOggetto (contatore - chiave primaria)
Nomeoggetto
etc.etc
Tabella "Colori"
IdColoreOggetto (Contatore - chgiava primaria)
IdOggetto (numerico - "chiave esterna")
ColoreOggetto
etc.etc.
Se dopo aver creato le due tbl, vai nel qbe e selezioni le due tabelle già
vedi la relazione.....
Ciao,
Alex


title: Relazioni uno a uno

text:
"Andrea Moro" <
moroan...@tiscalinet.it
> ha scritto nel messaggio
news:b3l1s8$1mi7uh$1...@ID-61006.news.dfncis.de...
> Fisicamente con access come diavolo si fa a fargli
> fare queste benedette relazioni uno ad uno?
Si ottiene una relazione uno-a-uno tra due tabelle quando la relazione viene
ottenuta tramite le rispettive chiavi primarie delle due tabelle.
> O anche la molti a molti?
>
In Access una relazione molti-a-molti tra due tabelle si ottiene creando una
terza tabella che deve risultare in relazione uno-a-molti con le altre due
tabelle tramite le loro chiavi priamarie.
[CUT]
> Saluti
> Andrea Moro
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Relazioni uno a uno

author: Emyr

text:


setta gli indici non le chiavi primarie...
indice con o senza ripetizione
Saluti.
Emanuele.


title: Relazioni uno a uno

text:
> In Access una relazione molti-a-molti tra due tabelle si ottiene creando
una
> terza tabella che deve risultare in relazione uno-a-molti con le altre due
> tabelle tramite le loro chiavi priamarie.
Su questo c'ero arrivato, anche perchè su tutti i db - non solo access -
serve la terza tabella ... quello che non capisco è perchè dentro
quella dannata finestra modifca relazioni non ci scrive molti a molti
o uno ad uno.
Cioè posso passargli la molti a molti perchè di fatto, con la tabella
di aggregazione, le relazioni create sono due di tipo uno a molti, ma
non la uno a uno.
Diamine, se ho una tabella secondaria che punta alla prima con
relazione uno a uno ... mi ci devi scrivere che è uno a uno.
non fare come cazzo gli pare.
Non trovi?
Ciao
Andrea


title: Relazioni uno a uno

text:
Comunque si, mi è venuto il lampo di genio, che se non
gli attivo l'indice univoco nella tabella che relaziono,
lui la considera sempre una rel. uno a molti.
Ciao
Andrea


title: Relazioni uno a uno

text:
"Andrea Moro" <
moroan...@tiscalinet.it
> ha scritto nel messaggio
news:b3n3ge$1ns11m$1...@ID-61006.news.dfncis.de...
> > In Access una relazione molti-a-molti tra due tabelle si ottiene creando
> una
> > terza tabella che deve risultare in relazione uno-a-molti con le altre
due
> > tabelle tramite le loro chiavi priamarie.
>
> Su questo c'ero arrivato, anche perchè su tutti i db - non solo access -
> serve la terza tabella ... quello che non capisco è perchè dentro
> quella dannata finestra modifca relazioni non ci scrive molti a molti
> o uno ad uno.
Non mischiamo i problemi, anzi i tipi di relazioni!
Tu sei il primo ad ammettere che nella realtà le relazioni molti-a-moti tra
due tabelle non esistono, ma che vengono realizzate tramite una terza
tabella che va messa in relazione uno-a-molti con le altre due. Ciò
nonostante ti incavoli come un toro alla corrida perché nella finestra delle
Relazioni Access non ti evidenzia le relazioni molti-a-molti: scusami, ma
come fa evidenziarti ciò che non esiste?
Vorresti forse raccontare a voce ad Access che vuoi mettere due tabelle in
relazione molti-a-molti e lui, bravino bravino, ti dovrebbe creare
automaticamente la terza tabella e metterla in relazione uno-a-molti con le
altre due, segnalandoti però nella finestra delle relazioni una relazione
molti-a-molti?
Non dico che sia impossibile, ma mi sembra che qualcosa sarebbe bene che la
facessi anche tu! ;-)
Comunque Access non lo fa.
Quanto alle relazioni uno-a-uno, esse vengono chiaramente evidenziate nella
finestra delle Relazioni, naturalmente a condizioni che siano tali, ovvero
create in base alle chiavi primarie delle due tabelle.
> Cioè posso passargli la molti a molti perchè di fatto, con la tabella
> di aggregazione, le relazioni create sono due di tipo uno a molti, ma
> non la uno a uno.
Non riesco ad immaginare come si possa realizzare una relazione
molti-a-molti tramite relazioni uno-a-uno; se tu sai come si fa diccelo,
sarà interessante capirlo.
>
> Diamine, se ho una tabella secondaria che punta alla prima con
> relazione uno a uno ... mi ci devi scrivere che è uno a uno.
> non fare come cazzo gli pare.
Ma che cosa stai vaneggiando?
Nella finestra Relazioni Access, se la relazione è uno-a-uno, in ambedue i
lati della linea che collega le due tabelle scrive il carattere 1.
E cosa vuoi di più?
Un Amaro Lucano?
Se poi non sei capace di creare una relazione uno-a-uno tra due tabelle, la
colpa non è di Access, ma indovina di chi è?
>
> Non trovi?
No, non trovo!
> Ciao
> Andrea



title: Il gestionale è diventato troppo lento !

author: Pabel

text:
Ciao a tutti
Sono nuovo di questo NG, spero di essere scusato se non uso termini
corretti, ho letto che ci sono molte regole che ancora non conosco.
Il mio problema è il seguente, ho creato come autodidatta usando la guida in
linea, un gestionale in access che ho inserito in internet in forma gratuita
per raccogliere fondi per una associazione alla quale faccio parte.
Ora, molti mi segnalano che trovano impossibile usarlo con PC al di sotto di
300 Mhz per la lentezza delle maschere, io uso un intel 1800 e non mi ero
mai posto il problema, secondo voi tutto questo è normale o dipende da come
ho strutturato il lavoro, se si, è passibile sistemarlo ?
P.S. per chi ne fosse interessato posso fornire il link dove l'ho inserito,
dandovi così la possibilità di provarlo, ma non so se rientra nelle regole
di questo NG.
Grazie anticipatamente. pabel


author: Antonio Ganci

text:

Prova con Compatta Database


author: Sib

text:
"Pabel" <
studi...@inwind.it
> ha scritto nel messaggio
> Sono nuovo di questo NG, spero di essere scusato se non uso termini
> corretti, ho letto che ci sono molte regole che ancora non conosco.
> Il mio problema è il seguente, ho creato come autodidatta usando la guida
in
> linea, un gestionale in access che ho inserito in internet in forma
gratuita
> per raccogliere fondi per una associazione alla quale faccio parte.
> Ora, molti mi segnalano che trovano impossibile usarlo con PC al di sotto
di
> 300 Mhz per la lentezza delle maschere, io uso un intel 1800 e non mi ero
> mai posto il problema, secondo voi tutto questo è normale o dipende da
come
> ho strutturato il lavoro, se si, è passibile sistemarlo ?
probabilmente hai usato funzioni di aggregazione all'interno di query,
questo puo' rallentare notevolmente l'applicazione non appena i dati
cominciano a crescere. cerca soluzioni alternative e cerca di evitare, per
quanto possibile, le query di query.
> P.S. per chi ne fosse interessato posso fornire il link dove l'ho
inserito,
> dandovi così la possibilità di provarlo, ma non so se rientra nelle regole
> di questo NG.
puoi postarlo, soprattutto se l'associazione che mensioni e' senza scopo di
lucro.
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:c2DS9.71644$Q%4.22...@news1.tin.it...

Non metterti a ridere, ma il mio gestionale è fatto esclusivamente di query,
come dicevo sono un'autodidatta e non so usare il vba quelle poche righe che
ho scritto le ho scopiazzate qua e la  senza capire quello che facevo, o al
massimo, ho convertito delle macro che credo di saper usare.
Il mio lavoro lo trovi in versione mde al seguente link, spero che tu mi
possa dare delle dritte per semplificarlo.
http://digilander.libero.it/cabuthiene/index.html
pabel


author: desio

text:
"Pabel" <
studi...@inwind.it
> ha scritto nel messaggio
news:CEES9.91287$TC5.2...@twister1.libero.it...

veramente bellino per essere un autodidatta
i cap di prato e dintorni nonche le province sono sbagliati( da quando prato
è diventato provincia)
a me non sembra lento sai forse dovresti inserire l' autocompattazione all'
uscita onde evitare gonfi molto il db.
ho notato che se dal menu strumenti si seleziona opzioni e dal menu generale
si toglie la spunta da: tieni traccia delle informazioni di correzione nel
riquadro
correzione automatica nome
il database si velocizza notevolmente
provare per credere.
ciao e se hai bisogno continua a scrivere


text:
"Pabel" <
studi...@inwind.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
cut
> > puoi postarlo, soprattutto se l'associazione che mensioni e' senza scopo
di
> > lucro.
> >
> > Sib
> >
> >
> Non metterti a ridere, ma il mio gestionale è fatto esclusivamente di
query,
Non lo farei mai.
> come dicevo sono un'autodidatta e non so usare il vba quelle poche righe
che
> ho scritto le ho scopiazzate qua e la  senza capire quello che facevo, o
al
> massimo, ho convertito delle macro che credo di saper usare.
> Il mio lavoro lo trovi in versione mde al seguente link, spero che tu mi
> possa dare delle dritte per semplificarlo.
>
http://digilander.libero.it/cabuthiene/index.html
Comunque intendevo per vedere il sito, non il gestionale.
Non perche' non voglia, essendo per scopi benefici, figurati, ma perche' non
ho il tempo.
Gli ho dato appena una sbirciata e ti confermo che a mio avviso potrebbero
essere le query.
ad esempio, le query di unione possono essere molto lente se operano su
grandi numeri di record.
Analogamente le maschere possono essere molto lente se contengono diverse
funzioni di aggregazione (non ho potuto verificarlo essendo il tuo un mde).
Tieni presente che potresti anche non renderti mai conto dell'origine del
problema se non lo provi con i dati di chi ha il problema (scusa il gioco di
parole) perche' la velocita' dipende strettamente dalla quantita' di dati,
una funzione di aggregazione puo' sembrare velocissima con un migliaio di
record ma perdere colpi con una decina di migliaia.
Sib


author: Sandro

text:
Il 07 Gen 2003, 19:04, "Pabel" <
studi...@inwind.it
> ha scritto:
> Non metterti a ridere, ma il mio gestionale è fatto esclusivamente di
query,
Questo è un merito, non un demerito.
Ho visto un sacco di applicazioni, alcune anche carine, che sotto facevano
un gran casotto con cicli, if, case e cacchi vari, per cose che l'sql/92
standard avrebbe potuto risolvere in modo del tutto banale ... ;-)
Ciao, Sandro.
--------------------------------
Inviato via
http://usenet.libero.it


author: Antonio Biso

text:
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
news:212Z210Z230Z100Y...@usenet.libero.it...
> Il 07 Gen 2003, 19:04, "Pabel" <
studi...@inwind.it
> ha scritto:
>
> > Non metterti a ridere, ma il mio gestionale è fatto esclusivamente di
> query,
>
> Questo è un merito, non un demerito.
>
> Ho visto un sacco di applicazioni, alcune anche carine, che sotto facevano
> un gran casotto con cicli, if, case e cacchi vari, per cose che l'sql/92
> standard avrebbe potuto risolvere in modo del tutto banale ... ;-)
Ehem...
Sui cicli posso anche crederti, sugli if case non credo proprio che creino
motivo di lentezza!!!
Antonio


text:
Il 08 Gen 2003, 16:25, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> Ehem...
> Sui cicli posso anche crederti, sugli if case non credo proprio che creino
> motivo di lentezza!!!
No no, assolutamente! E hai fatto più che bene a chiarirlo.
Stavo solo commentando ciò che ho quotato, e cioè che un database dovrebbe
risolvere la maggior parte delle esigenze informative attraverso le query.
Ma non stavo facendo alcun riferimento al contesto del 3d ... ;-)



text:
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
news:212Z210Z230Z100Y...@usenet.libero.it...
> Il 08 Gen 2003, 16:25, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> > Ehem...
> > Sui cicli posso anche crederti, sugli if case non credo proprio che
creino
> > motivo di lentezza!!!
>
> No no, assolutamente! E hai fatto più che bene a chiarirlo.
>
> Stavo solo commentando ciò che ho quotato, e cioè che un database dovrebbe
> risolvere la maggior parte delle esigenze informative attraverso le query.
> Ma non stavo facendo alcun riferimento al contesto del 3d ... ;-)
Ah ok...
Antonio


title: Microsoft Web Browser Control

author: Pablitomf

text:
Ciao a tutti...
illustri colleghi è possibile secondo voi far apparire in questo controllo
la barra di stato? è per visualizzare lo stato di connessione delle pagine
che altrimenti non è visibile.
FAtimi sapere.
Grazie
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: filtro in report

text:
in questo modo apro il report applicando il mio filtro personalizzato
    DoCmd.OpenReport "ordini", acViewPreview, , CostruisciFiltro
sapete come posso usare il filtro medesimo e cioè CostruisciFiltro con
l'istruzione
DoCmd.SendObject , "ordini", acFormatXLS, "
in...@libero.it
", , , , , False
magari impostandolo da codice prima di eseguire l'istruzione qui sotto.
grazie a tutti.


title: Help su procedura d'uso "ActiveX Control"

text:
Ciao a tutti.
Ho scaricato da Lebans l'ActiveX Control - Justify Text , ma non ho idea di
come si utilizzi per poter utilizzare la proprietà di giustificare un testo.
Visto che non sono riuscito in altro modo, nonostante la disponibilità di
alcuni dell'NG, spero con qualche dritta di imparare ad utilizzare questi
benedetti
l'ActiveX Control, perchè non ho capito nulla e non riesco nemmeno ad
immaginare dove devono essere copiati i due files l'ActiveX Control.
Ma, speriamo bene perchè non ci sto a capire più nulla e mi sto fermando.
Bruno


author: TANNHAUSER

text:
Bruno-s95 ha scritto:
> Ciao a tutti.




> Bruno
Anch'io credo che tu ti debba fermare e respirare, soprattutto.
Allora, ad esempio:
1. scarica il file "JustifyTextVer2ocx.zip" dal sito di Lebans;
2. apri il file zippato e leggiti il "Readme.txt" che spiega come
utilizzarlo.
[a. devi registrare i due file JustifyTextVer2.ocx e Msstkprp.dll
dall'interno di Access; b. devi inserire in una maschera l'Activex Access
Justification Control ver2 e...il gioco è fatto.]
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
[CUT]
> Anch'io credo che tu ti debba fermare e respirare, soprattutto.
> Allora, ad esempio:
>
> 1. scarica il file "JustifyTextVer2ocx.zip" dal sito di Lebans;
> 2. apri il file zippato e leggiti il "Readme.txt" che spiega come
> utilizzarlo.
> [a. devi registrare i due file JustifyTextVer2.ocx e Msstkprp.dll
> dall'interno di Access; b. devi inserire in una maschera l'Activex Access
> Justification Control ver2 e...il gioco è fatto.]
>
> TANNHAUSER
>
> -- ----------------------------------------
Scusa la mia mega ignoranza, ti chiedo di essere paziente.
Ok ma dopo aver estratto i due files da "JustifyTextVer2ocx.zip" dove li
devo copiare per registrare i files? Devono restare residenti sempre ne PC
per funzionare o vengono automaticamente esportati con il database ? Ad
esempi, per giustificare un testo memo, come devo richiamare l'ocx ?
Grazie
            Bruno


text:
Bruno-s95 ha scritto:
> [CUT]



> Grazie
>             Bruno
1- Li puoi mettere dove vuoi, ad esempio nella cartella contenente il tuo
DB, così ti ricordi che ti servono.
2- Si devono trovare su tutti i PC dove intendi utilizzare il tuo DB con
la funzione di giustificazione.
3- Dal menu "Strumenti" scegli "Controlli ActiveX" e quindi clicchi sul
pulsante registra; dalla finestra che si apre selezioni i due controlli
che erano contenuti nel file zippato (JustifyTextVer2.ocx e Msstkprp.dll).
Chiudi tutto.
4-In visualizzazione struttura della tua maschera scegli "Controllo
ActiveX" dal menu "Inserisci" e, tra le scelte proposte, clicchi su
"Access Justification Control ver2". Si creerà un controllo con del testo
inserito che puoi associare ad un campo (ad esempio memo) in una tabella
del tuo DB; con un doppio clic sopra tale controllo si aprirà una maschera
dove potrai impostare tutte le opzioni di formattazione possibili.



text:
>> [CUT]
>
>> Scusa la mia mega ignoranza, ti chiedo di essere paziente.
>
>> Ok ma dopo aver estratto i due files da "JustifyTextVer2ocx.zip" dove li
>> devo copiare per registrare i files? Devono restare residenti sempre ne
>> PC
>> per funzionare o vengono automaticamente esportati con il database ? Ad
>> esempi, per giustificare un testo memo, come devo richiamare l'ocx ?
>
>> Grazie
>>             Bruno
>
> 1- Li puoi mettere dove vuoi, ad esempio nella cartella contenente il tuo
> DB, così ti ricordi che ti servono.
> 2- Si devono trovare su tutti i PC dove intendi utilizzare il tuo DB con
> la funzione di giustificazione.
> 3- Dal menu "Strumenti" scegli "Controlli ActiveX" e quindi clicchi sul
> pulsante registra; dalla finestra che si apre selezioni i due controlli
> che erano contenuti nel file zippato (JustifyTextVer2.ocx e Msstkprp.dll).
> Chiudi tutto.
> 4-In visualizzazione struttura della tua maschera scegli "Controllo
> ActiveX" dal menu "Inserisci" e, tra le scelte proposte, clicchi su
> "Access Justification Control ver2". Si creerà un controllo con del testo
> inserito che puoi associare ad un campo (ad esempio memo) in una tabella
> del tuo DB; con un doppio clic sopra tale controllo si aprirà una maschera
> dove potrai impostare tutte le opzioni di formattazione possibili.
>
> TANNHAUSER
>
> -- -------------------------------------
Fatto. Funziona benissimo, ma quando si tratta di far lavorare i "Controlli
> ActiveX" in un report con sottoreport, nell'aprire il report principale si
> incasina durante la formattazione tanto che windows da errore da segnalare
> e per di più chiude l'applicazione. Perchè ?
Quindi ho provato a dividere i due report che prima stampavano sia la
domanda di permesso di assentarsi dal lavoro che l'autorizzazione. Facendo i
report singoli funziona tutto bene. vallo a capire!
Ciao
            Bruno
>
>


title: Re: Attivazione pulsante [per @Alex]

author: Gianni

text:
Ho provato a fare come dici tu ma c'è un problema...
Quando apro la maschera e visualizzo un "record con dettagli" il pulsante
diventa attivo (fin qui, tutto OK)...ma se passo ai record successivi
quando
ricarico il "record con dettagli" mi lascia inattivo il pulsante.
Ho provato a riscrivere il codice anche in altre posizioni ma....niente, non
funziona!
Hai qualche idea?
Ciao e grazie per l'aiuto
Gianni
Ps. :siccome ad un record esiste un solo dettaglio ho riscritto:
 Me.NomePulsante.Enabled=Me.RecordSetClone.Recordcount=1
diversamente per:
 Me.NomePulsante.Enabled=Me.RecordSetClone.Recordcount>0
come da tuo suggerimento, non  succedeva niente.


title: Re: Attivazione pulsante [per @Alex]

author: ALESSANDRO Baraldi

text:
"Gianni" <
giann...@hotmail.com
> ha scritto nel messaggio
news:mJNLd.10849$lB4.3...@twister1.libero.it...

Segui il 3D ti ho risposto.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Esportare anagrafiche in Rubrica Outlook

author: Simone Calligaris

text:
Mi è stata richiesta un'opzione che esporti nella rubrica di Outlook (anche
Express) le anagrafiche Clienti.
Come affrontereste il problema ... magari evitando l'automazione OLE che non
amo molto?
Ciao a tutti,
Simone


author: Massimo Di Bello

text:
Simone Calligaris <
simo...@libero.it
> wrote in message
vGIm7.13944$ul3.5...@news.infostrada.it...

Puoi esportare l'anagrafe in un file di testo CSV, che puoi quindi importare
in Outlook (anche express)
--
Massimo Di Bello
Prometheo
Corsi di Informatica in Franchising
http://www.prometheo.it/


text:
"Massimo Di Bello" <
> > Mi è stata richiesta un'opzione che esporti nella rubrica di Outlook
> (anche
> > Express) le anagrafiche Clienti.
> > Come affrontereste il problema ... magari evitando l'automazione OLE che
> non
> > amo molto?
> >
> > Ciao a tutti,
> > Simone
> Puoi esportare l'anagrafe in un file di testo CSV, che puoi quindi
importare
> in Outlook (anche express)
Anztitutto grazie per il suggerimento.
Hai un'idea su come si possa automatizzare il processo?
Mi è capitato di vedere applicazioni (sia VB che Access) che con un semplice
click del mouse facevano tutto in automatico ... e, almeno in apparenza,
senza OLE Automation.
Ciao, Simone


text:
Simone Calligaris <
simo...@libero.it
> wrote in message
mQZm7.20979$ul3.7...@news.infostrada.it...
>
> "Massimo Di Bello" <
> > > Mi č stata richiesta un'opzione che esporti nella rubrica di Outlook
> > (anche
> > > Express) le anagrafiche Clienti.
> > > Come affrontereste il problema ... magari evitando l'automazione OLE
che
> > non
> > > amo molto?
> > >
> > > Ciao a tutti,
> > > Simone
>
> > Puoi esportare l'anagrafe in un file di testo CSV, che puoi quindi
> importare
> > in Outlook (anche express)
>
> Anztitutto grazie per il suggerimento.
> Hai un'idea su come si possa automatizzare il processo?
> Mi č capitato di vedere applicazioni (sia VB che Access) che con un
semplice
> click del mouse facevano tutto in automatico ... e, almeno in apparenza,
> senza OLE Automation.
>
> Ciao, Simone
Ad occhio direi che potresti provare con SendKeys (che simula la digitazione
di tasti in un'altra applicazione), ma non viene fuori una cosa
completamente affidabile
La cosa piů "pulita" sarebbe usare l'Ole con Outlook 2000 :-)



text:
"Massimo Di Bello"
> Ad occhio direi che potresti provare con SendKeys (che simula la
digitazione
> di tasti in un'altra applicazione), ma non viene fuori una cosa
> completamente affidabile
Farň qualche tentativo...
> La cosa piů "pulita" sarebbe usare l'Ole con Outlook 2000 :-)
:-)
Ciao, Simone


title: Collegamento Immagini collegate trasparenti

author: OneEDP

text:
Esiste un  modo per rendere ctl.Picture trasparente?
Le soluzioni sono piuttosto macchinose sia per i pulsanti sia per Image
In AXP si è risolto il problema?
E' deludente avere librerie di icone ben fatte e non poterle utilizzare!!
Grazie


author: Roberto da Parma

text:
"OneEDP" <ONEsenzapro...@novirgiliomaTINsi.IT> ha scritto nel
messaggio news:nmq6k.11612$Ca.1...@twister2.libero.it...

Mah io uso AC03 e se salvi l'immagine come .gif in sfondo trasparente
funziona benissimo...occhio però che con il runtime il comando .picture non
funziona....
Ciao
--
Roberto da Parma


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:485a364d$0$40309$4faf...@reader5.news.tin.it...

Lo sfono ora è nero, ora è verde, ora è bianco ora è del colore predefinito
dei pulsanti. Con tutte le combinazioni possibili.
Un'alternativa era quella di incollare in excel, selezionare colore
trasparente e poi rincollare in access.
Alla fine l'immagine è una chiavica.
Possibile che si debbano scrivere  decine e decine di righe di codice per
un'operazione così banale?
Spero ci siano altre idee.
Grz


text:
"OneEDP" <ONEsenzapro...@novirgiliomaTINsi.IT> ha scritto nel
messaggio news:ZNq6k.101587$FR.3...@twister1.libero.it...

E infatti non ce nè bisogno....ti ripeto se la tua immagine ha sfondo
trasparente dietro ci puoi mettere quello che vuoi!!
Anche ciclare una casella di testo che cambia sfondo in random.
Penso sia sufficente no?



author: Oscar Manfredini

text:
"OneEDP" <

Per pulsanti di comando e di opzione io uso questo sistema (per icone fino a
256 colori):
- converto il file .ico in .bmp
- applico come colore di sfondo RGB(192,192,192)
- apro il file .bmp con Adobe Photodeluxe
-  Esporto in formato "scala di colore".
Ora è trasparente.
Ciao: Oscar


text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:485a3eb0$0$40313$4faf...@reader5.news.tin.it...

In AXP 'un funziona


title: Accodare risultati di una query in una tabella

author: Alberto

text:
Buona domenica a tutti,
avrai la necessuta di accodare i risultati di tutti i campi di una query in
una tabella  (es: testo1 della query con testo 1 della tabella, testo2 della
query con testo2 della tabella ecc ecc)  . come dovrei fare a fare cio senza
utilizzare un altra quely di accodamento? insomma vorei utilizzare un
sistema come questo solo che al posto di aggionare i campi deve accodare
Dim rs As Recordset
Dim DB As Database
Set DB = CurrentDb
Set rs = DB.OpenRecordset("Temp_carighe")
rs.MoveFirst
Do Until rs.EOF = True
With rs
.Edit
![Dare] = [Forms]![NuovaRegrVari]![pnimporti1].[Form]![T_totale]
.Update
rs.MoveNext
End With
Loop
Me.Refresh
rs.Close
DB.Close
Set rs = Nothing
Set DB = Nothing
Si sapreste spiagare come posso fare?
Grazie anticipatamente


author: Alessandro Baraldi

text:
Alberto ha scritto:

Quello che non capisco è il motivo che ti spinge a voler usare una
soluzione meno efficiente...!!!
Hai un motivo tecnico spiegabile...??
Questa è una Query INSERT che usando una QUERY SELECT inserisce in
solo 1 riga di codice il contenuto della SELECT nella Tabella di
destinazione...!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sSQL="INSERT INTO Impiegati SELECT Personale in addestramento.* FROM
Personale in addestramento WHERE Nome='Pippo'"
CurrentDb.Execute sSQL
Ora spiega il perchè non vuoi usare questo metodo...!
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1161509960.6...@e3g2000cwe.googlegroups.com...
Alberto ha scritto:

Quello che non capisco č il motivo che ti spinge a voler usare una
soluzione meno efficiente...!!!
Hai un motivo tecnico spiegabile...??
Questa č una Query INSERT che usando una QUERY SELECT inserisce in
solo 1 riga di codice il contenuto della SELECT nella Tabella di
destinazione...!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sSQL="INSERT INTO Impiegati SELECT Personale in addestramento.* FROM
Personale in addestramento WHERE Nome='Pippo'"
CurrentDb.Execute sSQL
Ora spiega il perchč non vuoi usare questo metodo...!
@Alex
Hai ragione Alex, il motivo del perchč volevo trovare una soluzione diversa
da quella č solo
per il fatto ho parecchi campi che nella query si chiamano diversamente
nella tabella, insomma
testo20 deve andare nella campo testo25 nella tabella.


text:
Alberto ha scritto:
[CUT]
> Hai ragione Alex, il motivo del perchè volevo trovare una soluzione diversa
> da quella è solo
> per il fatto ho parecchi campi che nella query si chiamano diversamente
> nella tabella, insomma
> testo20 deve andare nella campo testo25 nella tabella.
Questo dovrebbe insegnarti non ad usare altri mezzi, ma ad ottimizzare
quelli giusti...!!!
La prima cosa che si impara, normalmente, è quella di usare Nomi detti
parlanti per i controlli, per i campi e per gli oggetti in genere cosa
che Testo10 o Testo20 non sono..!
La 2° è la razionalizazione dei Nomi, proprio per evitare gli
accrocchi che vuoi fare tu.
@Alex


author: Alessandro Cara

text:
Alberto wrote:
> Buona domenica a tutti,
> avrai la necessuta di accodare i risultati di tutti i campi di una query in
> una tabella  (es: testo1 della query con testo 1 della tabella, testo2 della
> query con testo2 della tabella ecc ecc)  . come dovrei fare a fare cio senza
> utilizzare un altra quely di accodamento? insomma vorei utilizzare un
> sistema come questo solo che al posto di aggionare i campi deve accodare
>
> Dim rs As Recordset
> Dim DB As Database
> Set DB = CurrentDb
> Set rs = DB.OpenRecordset("Temp_carighe")
> rs.MoveFirst
questa non serve
> Do Until rs.EOF = True
> With rs
> .Edit
questa diventa .addnew (per le insert, rimane .edit per gli aggiornamenti)
> ![Dare] = [Forms]![NuovaRegrVari]![pnimporti1].[Form]![T_totale]
> .Update
> rs.MoveNext
> End With
> Loop
> Me.Refresh
questa e che serve? Forse hai bisogno di una requery?
> rs.Close
> DB.Close
> Set rs = Nothing
> Set DB = Nothing
>
> Si sapreste spiagare come posso fare?
Spiagare non sono in grado ;<)
--
ac


title: integrazione con skype

author: Andy Fry @ OST

text:
ciao NG, un post veloce:
qualche dritta per integrare la chiamata "skypeout" con una rubrichetta in
un DBaccess ?
creare un bottone "chiama con skype" che prende il n° di telefono, aggiunge
+39 e lancia il tutto al client di skype.
grazie,
--
Andrea F.
skype:  il.grifo


title: integrazione con skype

author: Nick

text:
Andy Fry @ OST ha detto: in data 27/03/2006 9.01:
> ciao NG, un post veloce:
> qualche dritta per integrare la chiamata "skypeout" con una rubrichetta in
> un DBaccess ?
> creare un bottone "chiama con skype" che prende il n° di telefono, aggiunge
> +39 e lancia il tutto al client di skype.
>
> grazie,
>
credo che ti basti creare un link nel formato di skype.. che mi pare sia
una cosa tipo
callto://NomeUtente
oppure
skype:NomeUtente?Call
info su
http://www.skype.com/share/buttons/advanced.html
Ciao
Nick


title: integrazione con skype

text:
ottimo, ma come creo il codice in access per fare "start --> esegui -->
stringa di skype " ed associarlo ad un bottone ?
grazie,
A.F.
--
Andrea F.
mail:
a.il...@gmail.com
skype:  il.grifo
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio
news:EhMVf.51208$PR2.8...@twister2.libero.it...



title: integrazione con skype

author: Ad esempio

text:
"Andy Fry @ OST" <il.grifo____nospamplease_____@_____
libero.it
> ha scritto
nel messaggio news:4427d3fe$0$18299$4faf...@reader1.news.tin.it...
> ottimo, ma come creo il codice in access per fare "start --> esegui -->
> stringa di skype " ed associarlo ad un bottone ?
sull'evento click del pulsante utilizza un codice del
tipo: Shell "calc.exe" (cosě ti apre la calcolatrice)


title: integrazione con skype

author: Sib

text:
"Andy Fry @ OST" <il.grifo____nospamplease_____@_____
libero.it
> ha scritto
nel messaggio
> ciao NG, un post veloce:
> qualche dritta per integrare la chiamata "skypeout" con una rubrichetta in
> un DBaccess ?
> creare un bottone "chiama con skype" che prende il n° di telefono,
> aggiunge +39 e lancia il tutto al client di skype.
Io ho messo questa riga sull'evento corrente della maschera:
    Me.Chiama.HyperlinkAddress = "callto://+39" & Prefisso & Telefono
Dove il campo Chiama è un collegamento ipertestuale nella maschera.
Sib
--
http://www.gestionedati.com


title: integrazione con skype

text:
con il comando "shell" (vedi post precedenti) non funziona (non passa i
parametri),
quindi provo con il tuo metodo ma, non capisco come creare "chiama"
da dove prendo il link per la form, oppure come lo creo ?
grazie,
--
Andrea F.
skype:  il.grifo
"Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
news:4427dac7$0$2274$4faf...@reader4.news.tin.it...



title: Risultato di una query = niente

author: barbi

text:
Una domanda facile facile: dopo l'apertura iniziale di una maschera, oppure
dopo una requery sulla maschera, come faccio da VBA per testare se non e'
stato trovato nessun record?
grazie da barbi


title: Risultato di una query = niente

author: Lorenzo

text:
Una soluzione veloce puo' essere
    If Me.RecordsetClone.RecordCount = 0 Then
Lorenzo


title: Risultato di una query = niente

author: Basjlico

text:
Devi prima impostare un recordset
Dim rcs As DAO.Recordset
poi aggancialo alla form
Set rcs = Me.RecordsetClone se form
infine
rcs.RecordCount
ti da il numero di record
Era il Fri, 18 Feb 2000 20:34:34 GMT quando  scrisse:

Ciao
Basjlico


title: Risultato di una query = niente

text:
sib <
sibN...@iol.it
> wrote in message
ZmFr4.19512$317.1...@news.infostrada.it...
> La proprieta' RecordsetClone ti da accesso diretto al recordset della
> maschera, non ne apre un altro.
> Come altro pensavi di poter fare riferimento al recordset della maschera?
>
non ne ho la minima idea, ho solo letto l'help che dice:
"L'impostazione della proprietà RecordsetClone è una COPIA della sottostante
query o tabella specificata dalla proprietà OrigineRecord della maschera. Se
una maschera è basata su una query, ad esempio, fare riferimento alla
proprietà RecordsetClone equivale a CLONARE un oggetto Recordset utilizzando
la stessa query"
e ne ho dedotto logicamente quello che ho detto...
vorrei solo capire
barbi


title: LUNGO Strano problema con requery casella combinata

author: Giulio Severini

text:
Mi sono accorto - cosa assurda - di avere un problema con il requery
della
casella combinata NumeroIntervento. Praticamente l'ultimo valore
visualizzato
influenza anche quello degli altri record.
E pensare che prima tutto funzionava a dovere.
Non riesco a capire.
Questo è il codice che sto provando ora: ho provato a disabilitare il
controllo
nel caso il valore massimo per quell'utente fosse a zero per impedire
che influenzasse
tutti gli altri ma non serve a niente.
Struttura:
sottomaschera suSchedaPrimoContatto
|
|-->NumeroIntervento (casella combinata)
|-->cmdEliminaIntervento
|-->cmdAggiungiIntervento
CODICE SU EVENTO CURRENT() della maschera che ospita il controllo
If DCount("*", "tblUtenti") > 0 Then
    If (Nz(DMax("NumeroIntervento", "tblInterventi", "idUtente = " &
Forms!frmSchedaPrimoContatto!id)) = 0) Then
        Me!NumeroIntervento = 0
        Me!NumeroIntervento.Requery
        NumeroIntervento.Enabled = False
        cmdEliminaIntervento.Enabled = False
    Else
        NumeroIntervento.Enabled = True
        cmdEliminaIntervento.Enabled = True
        Me!NumeroIntervento = Nz(DMax("NumeroIntervento",
"tblInterventi", "idUtente = " & Forms!frmSchedaPrimoContatto!id))
        Me!NumeroIntervento.Requery
    End If
End If
CODICE SU EVENTO CLICK() di cmdAggiungiIntervento
Private Sub cmdAggiungiIntervento_Click()
' Routine di Walter_Il_Mago
Dim progr As Variant
Dim rif As Variant
Dim data As Variant
Dim Operatore As String
Dim rec As Recordset
NumeroIntervento.Enabled = True
cmdEliminaIntervento.Enabled = True
rif = [Forms]![frmSchedaPrimoContatto]![id]
If IsNull(rif) Then
    MsgBox "Nessun Utente selezionato!", vbCritical, "ATTENZIONE"
    Exit Sub
End If
progr = DMax("Numero", "tblInterventi", "idUtente = " & rif)
If IsNull(progr) Then
    progr = 1
  Else
    progr = progr + 1
End If
insdata:
data = InputBox("Indicare la data dell'intervento:", "Inserimento Nuovo
Intervento", Date)
If Not IsDate(data) Then
    If MsgBox("Vuoi annullare l'inserimento?", vbOKCancel,
"ATTENZIONE") = vbOK Then
        Exit Sub
    Else
        MsgBox "Inserire una data valida!", vbExclamation, "ATTENZIONE"
        GoTo insdata
    End If
End If
' Aggiunta mia
insoperatore:
Operatore = InputBox("Inserire il nome dell'operatore che ha effettuato
l'intervento:", "Inserimento operatore", Operatore)
If IsNull(Operatore) Then
    MsgBox "Inserire un nome valido", vbExclamation, "ATTENZIONE"
    GoTo insoperatore
End If
Set rec = CurrentDb.OpenRecordset("tblInterventi")
    rec.AddNew
    rec!idUtente = rif
    rec!numero = progr
    rec!data = data
    rec!Operatore = Operatore
    rec.Update
rec.Close
MsgBox "Inserito nuovo intervento N. " & progr, vbInformation,
"ATTENZIONE"
Me!NumeroIntervento.Requery
Me!NumeroIntervento = progr
End Sub
CODICE SU EVENTO CLICK() di cmdEliminaIntervento
Private Sub cmdEliminaIntervento_Click()
Dim numeroX As Variant
Dim rif As Variant
Dim res As Variant
Dim num_max As Variant
numeroX = Me!NumeroIntervento
rif = [Forms]![frmSchedaPrimoContatto]![id]
If IsNull(numeroX) Or (numeroX = 0) Then
    MsgBox "Nessun intervento per l'utente corrente.", vbExclamation,
"Eliminazione intervento"
    Exit Sub
  Else
    res = MsgBox("Sei sicuro di voler eliminare l'intervento n. " &
numeroX & " del " & Me!NumeroIntervento.Column(1) & "?", vbExclamation
+ vbYesNo, "Eliminazione intervento")
    If res = 6 Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE * FROM tblInterventi WHERE idUtente = " &
rif & " AND Numero = " & numeroX
        If DCount("*", "tblUtenti") > 0 Then
            num_max = Nz(DMax("Numero", "tblInterventi", "idUtente = "
& Forms!frmSchedaPrimoContatto!id))
            If num_max > numeroX Then
                DoCmd.RunSQL "UPDATE tblInterventi SET Numero = Numero
- 1 WHERE idUtente = " & rif & " AND Numero > " & numeroX
            End If
            Me!NumeroIntervento = Nz(DMax("Numero", "tblInterventi",
"idUtente = " & Forms!frmSchedaPrimoContatto!id))
            Me!NumeroIntervento.Requery
        End If
        MsgBox "Intervento eliminato.", vbInformation, "Eliminazione
intervento"
    End If
End If
End Sub
Cosa devo modificare, e come?
Grazie anticipatamente.
Giulio.


author: Napoleone

text:
Ciao Giulio,
Apri il tuo db provetecniche;
apri la form tblUtenti,
aggiungi un nuovo record/utente,
doppio click sulla combo cctelefono:
Se vai ad aggiungere col click il numero di telefono, segnala errore nessun
record correlato.
Ho provato ad invertire la relazione e funziona, controlla.
Ciao Napoleone


text:
Che relazione hai invertito?
Me lo rimandi corretto così stasera lo controllo?
Grazie :)


text:
Certo!
Napoleone


title: Data modifica record?

author: Il Druido

text:
In una tabella ho un campo NOME e un campo DATA.
Vorrei che il campo DATA
contenesse sempre la data in cui il campo NOME viene modificato.
Non c'e'
problema quando creo un record (metto in DATA un valore di default
equivalente alla formula Now()) ma quando lo modifico DATA rimane
inalterata. Qualche idea?
Grazie a tutti
--------------------------------
Inviato via
http://usenet.iol.it


title: Data modifica record?

author: Sergio MAZZA

text:
"Il Druido" <
son...@usa.net
> ha scritto nel messaggio
news:155Z140Z123Z250...@usenet.iol.it...

Devi controllare gli eventi della form e in particolare l'evento
"PrimaDiAggiornare" re-impostando il valore del campo (della tabella) Data:
Es.
'--------
Me.Data = Now()
'--------
Giusto per la cronaca, non utilizzare "parole" tipo: data o descrizione per
nominare i controlli o campi di tabella, access potrebbe crearti qualche
problemino.
Ciao.


title: Data modifica record?

text:
>> In una tabella ho un campo NOME e un campo DATA.
>> Vorrei che il campo
DATA
>> contenesse sempre la data in cui il campo NOME viene modificato.
>> Non c'e'
>> problema quando creo un record (metto in DATA un valore di
default
>> equivalente alla formula Now()) ma quando lo modifico DATA
rimane
>> inalterata. Qualche idea?
>> Grazie a tutti
>Devi
controllare gli eventi della form e in particolare l'evento
>"PrimaDiAggiornare" re-impostando il valore del campo (della tabella)
>Data:
>Es.
>'--------
>Me.Data = Now()
>'--------
>Giusto per la
cronaca, non utilizzare "parole" tipo: data o descrizione
>per
>nominare
i controlli o campi di tabella, access potrebbe crearti qualche
>problemino.
>Ciao.
Grande Sergio!
Funziona perfettamente!
Ciao



title: Come importare DBF e altri file?

author: Zava Zanoprova

text:
vorrei trasferire in una tabella di un file MDB i dati contenuti in un file DBF
e alcuni che sono in un file di testo, con i campi separati da un
punto-e-virgola.
Dovrebbe essere facilissimo, ma non ho trovato come fare.
Grazie a tutti, spero di trovare un'anima gentile che mi indichi come fare.
P.S.
 Siccome sono nuovo del NewsGroup e lo leggo solo da Web, potreste inviarmi la
risposta anche sulla mia e-mail?
zano...@yahoo.com
--
Posted from
lilik.dmti.unifi.it
 [150.217.16.152]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Come importare DBF e altri file?

author: Roberto - Syd

text:
"Zava Zanoprova" <
zano...@yahoo.com
> ha scritto nel messaggio
news:dbb6acd679dc09cc0af...@mygate.mailgate.org...

Fai click su file->Importa dati esterni...
Ciao Roberto - Syd


title: acces e html/css

author: Gianpaolo Bertarelli

text:
Creo un database da vb con relative tabelle adox da programma.
E' possibile secondo voi da pagina html lanciare da un command button il
codice di access?
In pratica vorrei usare una pagina html non come accesso dati ma come menu'
principale,


title: acces e html/css

text:
"Gianpaolo Bertarelli" <
wxyz12...@libero.it
> ha scritto nel messaggio
news:_sZVi.159664$U01.1...@twister1.libero.it...

HTML non credo (autorizzazioni sul browser) ma HTA sě...
Ciao.
--
Sergio MAZZA


title: acces e html/css

text:
>
> HTML non credo (autorizzazioni sul browser) ma HTA sě...
>
> Ciao.
> --
> Sergio MAZZA
>
Ma da hta come faccio a far leggere gli oggetti recordset?


title: acces e html/css

text:
Gianpaolo Bertarelli wrote:
> Ma da hta come faccio a far leggere gli oggetti recordset?
Come facevi per le HTML, con VBScript o altro linguaggio di scripting...
Ciao.
--
Sergio MAZZA


title: acces e html/css

text:
>
> Come facevi per le HTML, con VBScript o altro linguaggio di scripting...
mi dice che non esiste la classe in html....ovvio che scrivo il vbscript ma
il new adodob.recordset come set non mi trova il riferimento


title: acces e html/css

text:

Qui:
http://www.codeproject.com/html/DBTool.asp
 scarichi un esempio...
Ciao.
--
Sergio MAZZA


title: stampa minuta

author: Adlib

text:
appena registro un nuovo record in una tabella vorrei stamparlo su carta.
Come fare? grazie


title: stampa minuta

author: Carlo Costarella

text:
"Adlib" <
no_spam_p...@tin.it
> ha scritto nel messaggio
news:g7i_9.107151$0v.30...@news1.tin.it...
> appena registro un nuovo record in una tabella vorrei stamparlo su carta.
> Come fare? grazie
>
>
Non c'è problema a inviare alla stampante un report filtrato con il record
appena creato.
Questo ti costerà un intero foglio di carta a meno di settare il foglio a
dimensioni ridottissime e avere una stampante ad aghi che non faccia il
salto pagina. Con le laser o le getto d'inchiostro stamperà un intero
foglio....
Puoi usare l'evento AfterUpdate per far partire il codice che ti avvia la
stampa.
Ciao, Carlo


title: stampa minuta

author: Antonio Biso

text:
"Adlib" <
no_spam_p...@tin.it
> ha scritto nel messaggio
news:g7i_9.107151$0v.30...@news1.tin.it...
> appena registro un nuovo record in una tabella vorrei stamparlo su carta.
> Come fare? grazie
Ti fai un report, con origine record sulla tabella.
La tabella deve avere un campo chiave univoco.
Poi nella maschera dove inserisci il record ci metti un pulsante che apre il
report con la openreport e lo fai usando il parametro WHERE in modo di
filtrare per il record appena inserito.
Gli esempi dell'help spiegano abbastanza bene...
Antonio


title: Grande problema

author: Ing Marini Roberto

text:
Ho un grande problema con un archivio di Access 2.0
E' sparita la struttura di una tabella che contiene le vendite di una
palestra per cui quando si tenta di visualizzare i dati in essa contenuti
si ottiene il messaggio "La query deve contenere almeno un campo di
destinazione". Ho provato a ripristanare l'archivio, a compattarlo, a
convertirlo in Access 97 oppure 2000 e, in ogni caso, il problema non si
č risolto. Lo stesso problema affligge anche le copie di Backup per cui
non ho la piů pallida di idea di quale santo votarmi. Analizzando il file
in formato binario ho notato che c'č traccia sia della struttura del
database che dei dati immessi per cui ho pensato di tentare il recupero
leggendo byte per byte il file. Qulacuno puň dirmi dove posso trovare un
documento che spieghi la struttura dei file mdb? Grazie


title: Grande problema

text:
Ing Marini Roberto <
rma...@supereva.it
> wrote in message
9063D98A1in...@192.106.1.14...
> Ho un grande problema con un archivio di Access 2.0
> E' sparita la struttura di una tabella che contiene le vendite di una
E' sparita la struttura?
O sparisce la tabella altrimenti la sua struttura ci deve essere...
> palestra per cui quando si tenta di visualizzare i dati in essa contenuti
Come viene visualizzata? A partire da cosa e in che modo?
> si ottiene il messaggio "La query deve contenere almeno un campo di
> destinazione".
Sembra una query di accodamento senza campi destinazione
Devi spiegarti meglio
Antonio


title: Grande problema

text:
ch...@etruria.net
 (Antonio Biso) wrote in
<08ur6.3734$
6W.9...@news.infostrada.it
>:

Il bello sta proprio qui: la tabella Vendite viene regolarmente
visualizzata nell'elenco delle tabelle, vengono mostrate le sue proprietą
(data creazione, data ultima modifica) ma quando faccio click sul pulsante
apri esce il messaggio incriminato.
Spero di essere stato chiaro.
Roberto


title: Grande problema

text:
"Ing Marini Roberto" <
rma...@supereva.it
> ha scritto nel messaggio
news:9063D98A1in...@192.106.1.14...

Ema ha inviato (11 marzo 2001) un messaggio con oggetto "[Tecnico]
mdbtools.."; se non ho interpretato male, in quel sito viene illustrato il
formato binario di un file mdb...
Ciao.


title: Grande problema

text:
Ing Marini Roberto <
rma...@supereva.it
> wrote in message
9063E0D88in...@192.106.1.14...
>
ch...@etruria.net
 (Antonio Biso) wrote in
> <08ur6.3734$
6W.9...@news.infostrada.it
>:
>
>
> Il bello sta proprio qui: la tabella Vendite viene regolarmente
> visualizzata nell'elenco delle tabelle, vengono mostrate le sue proprietą
> (data creazione, data ultima modifica) ma quando faccio click sul pulsante
> apri esce il messaggio incriminato.
> Spero di essere stato chiaro.
Ma scusa, tu dove č che vai a vedere quei dati sulla tabella vendite?
Nella tabella MSysObjects per caso?
O dove?
Antonio


title: CurrentDb.Execute con SQL Server 2005 Express

author: Morgan

text:
Continua la mia odissea nell'upgrade di una applicazione in SQL Server 2005
Express
FE Access 2003
DAO 3.6
Tipo collegamento DSN (ODBC)
Aggiornate tutte le query di selezione a query pass trhought.(86 due
palle...)
Aggiunto a tutti i metodi OpenRecordset del tipo dbOpenDynaset il famigerato
dbSeeChanges.(altra palla...)
Ora come faccio ad usare questo?
CurrentDb.Execute "DELETE *  FROM tblOrdini WHERE [IDOrdine] = " & lngOrdine
& "AND [IDMagazzino] = " & intMagazzino & ";"
Me li cancello con un rs.delete?
Morgan
P.S.
Veramenteperformante questo server, almeno sul pc dove sto facendo le prove
su cui risiede anche il FE.In rete vedremo ed a parte i piccoli
aggiustamenti al codice
ed alle query ed ai metodi requery delleform praticamente l'applicazione non
necessita di modifiche pesanti, sempre se
si continua ad utilizzare il jet.Con ADO non so se lo sforzo varrebbe la
candela.


author: giorgio rancati

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:455df5ad$0$3214$4faf...@reader2.news.tin.it...
> Continua la mia odissea nell'upgrade di una applicazione in SQL Server
2005
> Express
> FE Access 2003
> DAO 3.6
> Tipo collegamento DSN (ODBC)
> Aggiornate tutte le query di selezione a query pass trhought.(86 due
> palle...)
> Aggiunto a tutti i metodi OpenRecordset del tipo dbOpenDynaset il
famigerato
> dbSeeChanges.(altra palla...)
> Ora come faccio ad usare questo?
> CurrentDb.Execute "DELETE *  FROM tblOrdini WHERE [IDOrdine] = " &
lngOrdine
> & "AND [IDMagazzino] = " & intMagazzino & ";"
>
> Me li cancello con un rs.delete?
Ciao Morgan,
se le righe da cancellare non sono molte 10-50 o, usa l'istruzione cosě come
č che funziona lo stesso.
se devi cancellare molte righe allora invia un comando pass-through
----
Dim wrk As Workspace
Dim cn As DAO.Connection
Dim StrSql As String
Set wrk = CreateWorkspace("", "Admin", "", dbUseODBC)
'Connessione al server
Set cn = wrk.OpenConnection("Conn", dbDriverNoPrompt, , _
  "ODBC;DSN=NomeDsn;Database=NomeDb;UID=User;PWD=Password")
' Comando da inviare al server
'nota che ho tolto l'asterisco perchč non fa parte del linguaggio T-sql
StrSql = "DELETE FROM tblOrdini WHERE [IDOrdine] = " & lngOrdine & "AND
[IDMagazzino] = " & intMagazzino & ";"
cn.Execute StrSql
cn.Close
Set cn = Nothing
Set wrk = Nothing
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:455e18c1$0$21817$5fc...@news.tiscali.it...

Ciao Giorgio
ho risolto cosě
CurrentDb.Execute "DELETE *  FROM tblLotti WHERE [Quantita] = 0 AND
[IDMagazzino] = " & intMagazzino & ";", dbSeeChanges
cioč ho aggiunto il famigerato dbSeeChanges alla fine dell'istruzione.
Non riesco cmq ad eseguire la seguente istruzione da te postata
Set wrk = CreateWorkspace("", "Admin", "", dbUseODBC)
Set cn = wrk.OpenConnection("Conn", dbDriverNoPrompt, , _
  "ODBC;Database=MioDB;UID=Morgan;PWD=;DSN=MioDB.dsn")
Mi ritorna un errore di chiamata non riuscita su Dao.Workspace
Che mi sfugge?Forse il DSN non va visto che mi chiedevo dove va a recuperare
il percorso
di questo file.
P.S.
Magari apro un'altro 3D.
Morgan


text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:45600e79$0$19236$4faf...@reader4.news.tin.it...
> Ciao Giorgio
> ho risolto così
>
> CurrentDb.Execute "DELETE *  FROM tblLotti WHERE [Quantita] = 0 AND
> [IDMagazzino] = " & intMagazzino & ";", dbSeeChanges
>
> cioè ho aggiunto il famigerato dbSeeChanges alla fine dell'istruzione.
sì, dbSeeChanges è necessario se hai un campo di tipo identity, l'eventuale
messaggio di errore è molto chiaro in tal senso.
> Non riesco cmq ad eseguire la seguente istruzione da te postata
>
> Set wrk = CreateWorkspace("", "Admin", "", dbUseODBC)
> Set cn = wrk.OpenConnection("Conn", dbDriverNoPrompt, , _
>   "ODBC;Database=MioDB;UID=Morgan;PWD=;DSN=MioDB.dsn")
>
> Mi ritorna un errore di chiamata non riuscita su Dao.Workspace
su quale riga ti da l'errore ?
se lo da su questa riga
----
Set cn = wrk.OpenConnection(.......)
----
direi che la prinma cosa da controllare è metodo di accesso,il nome dello
user e la password.
Come accedi a Sql Server ? con username e password o con ll'autenticazione
integrata di windows ?
Per spiegarmi meglio, quando alleghi una tabella, cosa indichi nella
mascherina "Connessione Sql Server" spunti il check "Connessione trusted" o
inserisci l'Id Accesso e la Password ?
> Che mi sfugge?Forse il DSN non va visto che mi chiedevo dove va a
recuperare
> il percorso
> di questo file.
il problema probabilmente è questo, al posto di usare un DSN su file, crea e
usa un DSN utente.
>P.S.
>Magari apro un'altro 3D.
ok.



title: MI : Office Dev

text:
Vendo :
- Office 2000 dev 1.5 full L. 1.750.000
Risposte in e-mail
sh...@libero.it
--
Posted from 207.46.11.20 by way of
smtp4.libero.it
 [193.70.192.54]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Lunghezza di percorsi sovrapposti

author: Salvatore

text:
Ciao, volevo proporvi questo problema:
ho una tabella nella quale, tra gli altri, sono presenti due campi numerici:
"Da" e "A".
In questa tabella sono registrati i dati realtivi agli errori riscontrati
nelle saldature e, nei campi "Da" e "A" sono riportati l'inizio e la fine
del tratto difettoso, a partire da uno zero fissato.
La differenza tra "A" e "Da" restituisce, ovviamente, la lunghezza del
tratto.
Sommando questi tratti (in base all'ID della saldatura) si ottiene, quindi,
la lunghezza totale del difetto per ogni saldatura.
Il problema nasce dal fatto che i controlli sono effettuati a diverse
profondità e con metodi diversi, per cui può capitare che nello stesso
tratto o in una parte di esso, si riscontrino più difetti e, sommando le
lunghezze, si ottenga un tratto da riparare più lungo di quello reale.
Provo a chiarire meglio con un esempio:
1) Da=10   A= 90   L=80
2) Da= 160 A=200 L=40
3) Da= 150 A=180 L=30
i primi due difetti sono stati riscontrati con un metodo, il terzo con un
altro.
Se sommo le tre lunghezze ottengo 80 + 40 +30 = 150 mm
Ma il tratto effettivamente difettoso è pari a 130 mm. in quanto parte del
terzo tratto è già presente nel secondo.
E' possibile, secondo voi, trovare un algoritmo che calcoli la lunghezza
effettiva?
Grazie,
Salvatore


title: Lunghezza di percorsi sovrapposti

author: Roberto da casa

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c1nvgb$er3$1...@lacerta.tiscalinet.it...

Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID                Contatore e chiave primaria
IdSaldatura   Numerico
Da                Numerico
A                  Numerico
In un modulo del tuo database registra queste due funzioni pubbliche:
Public Function FunDA(ID As Long, _
Saldatura As Variant, Da As Double, _
A As Double) As Double
Dim rs As DAO.Recordset
Dim DepDA As Double
Dim DepA As Double
DepDA = 0
DepA = 0
Set rs = CurrentDb().OpenRecordset("SELECT " & _
"ID, IdSaldatura, Da, A FROM Tabella1 " & _
"ORDER BY IdSaldatura, Da, A;")
rs.MoveFirst
Do Until rs.EOF
    If rs!IdSaldatura = Saldatura Then
        If rs!ID = ID Then
            If rs!Da > DepA Then
                DepDA = rs!Da
            Else
                If rs!A > DepA Then
                    DepDA = DepA + 1
                Else
                    DepDA = 0
                End If
            End If
            Exit Do
        Else
            If DepA < rs!A Then
                DepA = rs!A
            End If
        End If
    End If
    rs.MoveNext
Loop
FunDA = DepDA
Set rs = Nothing
End Function
Public Function FunA(ID As Long, _
Saldatura As Variant, A As Double) As Double
Dim rs As DAO.Recordset
Dim DepA As Double
DepA = 0
Set rs = CurrentDb().OpenRecordset("SELECT " & _
"ID, IdSaldatura, Da, A FROM Tabella1 " & _
"ORDER BY IdSaldatura, Da, A;")
rs.MoveFirst
Do Until rs.EOF
    If rs!IdSaldatura = Saldatura Then
        If rs!ID = ID Then
            If rs!A > DepA Then
                DepA = rs!A
            Else
                If rs!A > DepA Then
                    DepA = DepA + 1
                Else
                    DepA = 0
                End If
            End If
            Exit Do
        Else
            If DepA < rs!A Then
                DepA = rs!A
            End If
        End If
    End If
    rs.MoveNext
Loop
FunA = DepA
Set rs = Nothing
End Function
La query che ti restituirà il totale lunghezza di ogni IDSaldatura dovrebbe
avere il seguente codice SQL:
SELECT Pippo.IdSaldatura, Sum(Pippo.Diff) AS LunghezzaTotale
FROM [SELECT ID, IdSaldatura, Da, A, FunDa(ID, IdSaldatura, Da, A) AS
Inizio, FunA(ID, IdSaldatura ,A) AS Fine, IIf(Inizio=0, 0, Fine - Inizio+1)
AS Diff FROM Tabella1 ORDER BY IdSaldatura, Da, A;]. AS Pippo
GROUP BY Pippo.IdSaldatura;
Facci sapere se funziona.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Lunghezza di percorsi sovrapposti

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:W6p0c.38977$Kc3.1...@twister2.libero.it...

Che funzionasse non c'erano dubbi!
Ho solo dovuto usare una query di creazione tabella prima di fare le somme,
perchè i tempi di calcolo (anche solo con 633 record) diventavano lunghi.
Grazie mille
Ciao
Salvatore


title: Lunghezza di percorsi sovrapposti

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c1tepm$7n1$1...@lacerta.tiscalinet.it...
[CUT]
> Che funzionasse non c'erano dubbi!
> Ho solo dovuto usare una query di creazione tabella prima di fare le
somme,
> perchč i tempi di calcolo (anche solo con 633 record) diventavano lunghi.
Hai ragione, visto che per ogni record la tabella viene letta due volte.
Prova quest'altra soluzione, che non prevede la creazione di una tabella di
comodo ma che ritengo sia moooolto piů performante della precedente.
Fermo restando la struttura  della tabella del mio messaggio precedente, e
partendo dal presupposto che tu abbia creato un indice sul campo
IdSaldatura, registra in un modulo del database la seguente funzione:
Public Function FunTotDif(Saldatura _
As Variant) As Double
Dim rs As DAO.Recordset
Dim DepA As Double
Dim Inizio As Double
Dim Fine As Double
Dim strSQL As String
DepA = 0
Inizio = 0
Fine = 0
FunTotDif = 0
strSQL = "SELECT " & _
"ID, IdSaldatura, Da, A FROM Tabella1 " & _
"WHERE IdSaldatura =" & Saldatura & _
" ORDER BY IdSaldatura, Da, A DESC;"
Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst
Do Until rs.EOF
    If rs!Da > DepA Then
        Inizio = rs!Da
    Else
        If rs!A > DepA Then
            Inizio = DepA + 1
        Else
            Inizio = 0
        End If
    End If
    If rs!A > DepA Then
        Fine = rs!A
    Else
        Fine = 0
    End If
    If rs!A > DepA Then
        DepA = rs!A
    End If
    If Inizio <> 0 Then
        FunTotDif = FunTotDif + (Fine - Inizio) + 1
    End If
    rs.MoveNext
Loop
Set rs = Nothing
End Function
A questo punto dovresti poter ottenere il risultato usando una query che
abbia il seguente codice SQL:
SELECT Tabella1.IdSaldatura, FunTotDif([IdSaldatura]) AS LunghezzaTotale
FROM Tabella1
GROUP BY Tabella1.IdSaldatura;
Con questa soluzione viene usato un recordset filtrato che viene poi letto
una sola volta per ogni IdSaldatura, quindi le cose, in termini di
performance, dovrebbero essere molto migliorate.
Fammi sapere se cosě funziona e se i tempi siano accettabili.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
> Grazie mille
> Ciao
> Salvatore
>
>


title: Lunghezza di percorsi sovrapposti

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:6ZD0c.43175$FJ6.1...@twister1.libero.it...

I tempi si sono praticamente azzerati, la query viene eseguita
istantaneamente, almeno con i 600 record di cui sopra..
C'č solo un piccolo problema dovuto all'aggiunta di 1 nella formula finale.
Infatti, prova a vedere cosa succede se i valori sono questi:
idsaldatura 618 da=0 a=250
idsaldatura 618 da=630 a=740
idsaldatura 702 da=100 a=160
idsaldatura 1362 da=0 a=6280
idsaldatura 1362 da=60 a=260
il risultato sarŕ:
idsaldatura 618 L=361
idsaldatura 702 L=61
idsaldatura 1362 L=6280
cioč, le prime due sono piů lunghe di 1 mm, la terza č esatta. (Ammettendo
che il tratto sia quello compreso tra i due valori, quindi escludendo il
valore iniziale)
Se, invece, dalla formula finale elimino l'aggiunta di 1 ottengo:
idsaldatura 618 L=360
idsaldatura 702 L=60
idsaldatura 1362 L=6279
cioč il viceversa di prima.
Ciao e grazie
Salvatore


title: Lunghezza di percorsi sovrapposti

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c1voe2$4jq$1...@lacerta.tiscalinet.it...
[CUT]
>
> I tempi si sono praticamente azzerati, la query viene eseguita
> istantaneamente, almeno con i 600 record di cui sopra..
> C'è solo un piccolo problema dovuto all'aggiunta di 1 nella formula
finale.
> Infatti, prova a vedere cosa succede se i valori sono questi:
> idsaldatura 618 da=0 a=250
> idsaldatura 618 da=630 a=740
> idsaldatura 702 da=100 a=160
> idsaldatura 1362 da=0 a=6280
> idsaldatura 1362 da=60 a=260
>
> il risultato sarà:
> idsaldatura 618 L=361
> idsaldatura 702 L=61
> idsaldatura 1362 L=6280
>
> cioè, le prime due sono più lunghe di 1 mm, la terza è esatta. (Ammettendo
> che il tratto sia quello compreso tra i due valori, quindi escludendo il
> valore iniziale)
>
> Se, invece, dalla formula finale elimino l'aggiunta di 1 ottengo:
>
> idsaldatura 618 L=360
> idsaldatura 702 L=60
> idsaldatura 1362 L=6279
>
> cioè il viceversa di prima.
Prova a modificare la funzione nel modo seguente:
Public Function FunTotDif(Saldatura _
As Variant) As Double
Dim rs As DAO.Recordset
Dim DepA As Double
Dim Inizio As Double
Dim Fine As Double
Dim strSQL As String
DepA = 0
Inizio = 0
Fine = 0
FunTotDif = 0
strSQL = "SELECT " & _
"ID, IdSaldatura, Da, A FROM Tabella1 " & _
"WHERE IdSaldatura =" & Saldatura & _
" ORDER BY IdSaldatura, Da, A DESC;"
Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst
Do Until rs.EOF
    If rs!Da >= DepA Then
        Inizio = rs!Da
    Else
        If rs!A > DepA Then
            Inizio = DepA + 1
        Else
            Inizio = 0
        End If
    End If
    If rs!A > DepA Then
        Fine = rs!A
    Else
        Fine = 0
    End If
    If rs!A > DepA Then
        DepA = rs!A
    End If
    If Fine <> 0 Then
        FunTotDif = FunTotDif + (Fine - Inizio)
    End If
    rs.MoveNext
Loop
Set rs = Nothing
End Function
Io ho provato e nei casi da te esemplificati mi restituisce il valore da te
ipotizzato.
>
> Ciao e grazie
> Salvatore



title: Lunghezza di percorsi sovrapposti

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:5TY0c.42422$Kc3.1...@twister2.libero.it...

Perfetto!
Grazie mille
Salvatore


title: Come fare delle ricerche in Maschera ??

author: SuperPippo®

text:
salve  un aiuto... mi sono creato una Maschera con relativa Sottomaschera
che mi occorre non per inserimento dati ma solo per ricerca ed eliminazione
record.....
la maschera ha come origine 2 TabAnagrafe e Tab Codici in relazione tra loro
1 a molti...
...il problema è che mi servirebbe mettere una combo o altro controllo che
mi faccia
una ricerca per Cognome ed il Nome, oppure per Data di Nascita o per
Codice..
come posso fare ???
io ho inserito una combo con 3 opzioni ma mi ricerca solo la prima delle
opzioni ...ossia il Cognome... ma se esistono 50 Rossi ???
PS - il cognome e nome sono su 2 campi diversi...
ciao e grazie...


title: Come fare delle ricerche in Maschera ??

author: Alessandro

text:
"SuperPippo®" <
ik0...@libero.it
> wrote in message
news:hqyb8.6433$8F6.3...@twister2.libero.it...

SUPERPIPPO.....!!!         CIAO.
E se usi una QRY Parametrica come origine DATI della FORM, e come
Parametri i VALORI delle 3 COMBO a CASCATA ovviamente, in modo
che quando selezioni il COGNOME la 2° e la 3° avranno solo i Records
che soddisfano alla condizione della 1°, in cascata la 2° e la 3°.
Usa Me.COMBO2.REQUERY e Me.COMBO3.REQUERY su DopoAggiornamento della
1° COMBO...........................................................!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Come fare delle ricerche in Maschera ??

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:ffe172ffd4cd978874...@mygate.mailgate.org...
> "SuperPippo®" <
ik0...@libero.it
> wrote in message
> news:hqyb8.6433$8F6.3...@twister2.libero.it...
>
> > salve  un aiuto... mi sono creato una Maschera con relativa
Sottomaschera
> > che mi occorre non per inserimento dati ma solo per ricerca ed
eliminazione
> > record.....
> > la maschera ha come origine 2 TabAnagrafe e Tab Codici in relazione tra
loro
> > 1 a molti...
> > ...il problema è che mi servirebbe mettere una combo o altro controllo
che
> > mi faccia
> > una ricerca per Cognome ed il Nome, oppure per Data di Nascita o per
> > Codice..
> > come posso fare ???
> > io ho inserito una combo con 3 opzioni ma mi ricerca solo la prima delle
> > opzioni ...ossia il Cognome... ma se esistono 50 Rossi ???
> > PS - il cognome e nome sono su 2 campi diversi...
--------------------------------------------------->
> SUPERPIPPO.....!!!         CIAO.
>
> E se usi una QRY Parametrica come origine DATI della FORM, e come
> Parametri i VALORI delle 3 COMBO a CASCATA ovviamente, in modo
> che quando selezioni il COGNOME la 2° e la 3° avranno solo i Records
> che soddisfano alla condizione della 1°, in cascata la 2° e la 3°.
>
> Usa Me.COMBO2.REQUERY e Me.COMBO3.REQUERY su DopoAggiornamento della
> 1° COMBO...........................................................!
>
> Alessandro.
-----------------------------------
il procedimento almeno per me ... sembra un pò complicato...
fermo restando che ho creato quasta nuova maschera con la combo..
e con un bottone di eliminazione record corrente che funge...
senza fare una query... non si può intervenire direttamente nella
combo...
ti allego il codice esistente... "Dopo Aggiornamento"...
-----------------
Sub CasellaCombinata43_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Me.RecordsetClone.FindFirst "[ID_assistito] = " &
Me![CasellaCombinata43]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
-----------------------
ciao...


title: Come fare delle ricerche in Maschera ??

text:
"SuperPippo®" <
ik0...@libero.it
> wrote in message
news:WLMb8.10175$eD3.4...@twister1.libero.it...
> il procedimento almeno per me ... sembra un pò complicato...
> fermo restando che ho creato quasta nuova maschera con la combo..
> e con un bottone di eliminazione record corrente che funge...
> senza fare una query... non si può intervenire direttamente nella
> combo...
> ti allego il codice esistente... "Dopo Aggiornamento"...
> -----------------
> Sub CasellaCombinata43_AfterUpdate()
>     ' Trova il record corrispondente al controllo
>     Me.RecordsetClone.FindFirst "[ID_assistito] = " &
> Me![CasellaCombinata43]
>     Me.Bookmark = Me.RecordsetClone.Bookmark
> End Sub
> -----------------------
> ciao...
Se vuoi provare ad inserire più clausole legate con AND nella
tua ricerca puoi provare, ma questo non fa FILTRI....!
Sub CasellaCombinata43_AfterUpdate()
     ' Trova il record corrispondente al controllo
     Me.RecordsetClone.FindFirst "[ID_assistito] = " &
 Me![CasellaCombinata43] & " AND [Id_XXX]=" & Me.CasellaXX
     Me.Bookmark = Me.RecordsetClone.Bookmark
 End Sub
Ti complichi la vita perchè le COMBO hanno già una QRY come origine
dati anche se tu hai detto che hai fatto senza QRY, se guardi bene
c'è una bella stringa SQL che è proprio una QRY...................!
Ciao.



title: Come fare delle ricerche in Maschera ??

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:ee7f4d2871d7cfb70d...@mygate.mailgate.org...
>
> Ti complichi la vita perchè le COMBO hanno già una QRY come origine
> dati anche se tu hai detto che hai fatto senza QRY, se guardi bene
> c'è una bella stringa SQL che è proprio una QRY...................!
>
> Ciao.
> Alessandro.
-----------------------
Ciao Alessandro... cmq... con il codice sotto riportato ho risolto
per la Ricerca Cognome e Nome....
anche se mi piacerebbe utilizzare solo una combo per poter cercare
anche dei codici e la data di nascita....
invece ho dovuto crearne altre 2....
cmq...
Sub CasellaCombinata58_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Me.RecordsetClone.FindFirst "[ID_assistito] = " &
Me![CasellaCombinata58]



title: Dlookup con doppio vincolo

author: luigi corinna

text:
Buon Giorno Access97
e' possibile in una mschera fare
un dllokup con doppio vincolo...mi spiego:
=DLookUp("[SommadiDebito]";"SpesoxVoce";"[Id_Corso_Righe]=[MiaCasella]")
questo e' legato all' ID del Corso...voglio legarlo anche ad un ID chiamato
SPesa...come posso fare...sempre stessa query...
Grazie


title: Dlookup con doppio vincolo

text:

Se [MiaCasella] è una casella di testo la sintassi giusta dovrebbe essere
questa:
...";"[Id_Corso_Righe]=" & [MiaCasella])
con la modifica "doppio vincolo":
...";"[Id_Corso_Righe]=" & [MiaCasella] & " And [IdSpesa]=" & [IdSpesa])
Ciao.
--
Sergio MAZZA


title: Da Access a Outlook (2000)

author: Denis Carraro

text:
Salve
vorrei sapere come è possibile far si che da una selezione di email ricevuti
da una query mi si generi una mailing list con un dato testo.
Help Meeeee


title: grafica access con winfax

author: bio

text:
Mi ritrovo con il seguente problema:
ho un db access che mi genera un report dove ci sono vari tipi di font, sia
in grassetto che in corsivo. Ho poi della grafica per il logo dell'azienda e
delle barre grige per l'aspetto estetico del report.
Quando stampo sulla stampante viene, ovviamente, tutto bene.
Quando invece invio a winfax, i caratteri in corsivo non risultano leggibili
e le barre grige non ci sono.
Ho utilizzato la modalita di qualità fotografica ma il risultato non cambia.
Se però salvo il file come PDF e da arcobat reader lo invio al fax tutto
viene stampato a meraviglia.
perche stù fatto????
Grazie a tutti
bio