title: una query di aggiornamento

text:

Come criterio puoi p.e. usare: Like "X*"
e come espressione per l'aggiornamento: Mid([Campo];2)
L'enunciato SQL della query sarebbe circa:
UPDATE Tabella SET Campo = Mid([Campo],2)
WHERE Campo Like "X*"
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: una query di aggiornamento

author: Marcello

text:
"Botrio" <
bot...@email.it
> ha scritto nel messaggio
news:iqooms$gd$1...@nnrp-beta.newsland.it...
> In una colonna ho questi valori :
>
> pippo
> pluto
> Xgigi
> mario
> Xenzo
> Xroberto
> davide
> Xmichele
>
> voglio togliere la X davanti quando c'č, e ottenere :
>
> pippo
> pluto
> gigi
> mario
> enzo
> roberto
> davide
> michele
>
> Che formula uso nella query?
> Grazie e ciao
>
>
Prova cosě:
Aggiorna a: Replace ([nomecampo];"X";"")
criteri: Like "X*"


title: una query di aggiornamento

author: Karl Donaubauer

text:
Marcello wrote:
> "Botrio ha scritto:
>> ...
>> pippo
>> pluto
>> Xgigi
>> mario
>> Xenzo
>> Xroberto
>> davide
>> Xmichele
>>
>> voglio togliere la X davanti quando c'è
>> ...
> Aggiorna a: Replace ([nomecampo];"X";"")
Così è un po' pericoloso, se p.e. pensi a
XBixio
il risultato sarebbe
Biio
Replace() ha un parametro Count per il  numero di sostituzioni
che qui si potrebbe impostare ad 1:
Replace ([nomecampo];"X";""; ;1)
> criteri: Like "X*"



title: una query di aggiornamento

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:93ac92...@mid.individual.net...
> Marcello wrote:
>> "Botrio ha scritto:
>>> ...
>>> pippo
>>> pluto
>>> Xgigi
>>> mario
>>> Xenzo
>>> Xroberto
>>> davide
>>> Xmichele
>>>
>>> voglio togliere la X davanti quando c'è
>>> ...
>> Aggiorna a: Replace ([nomecampo];"X";"")
>
> Così è un po' pericoloso, se p.e. pensi a
> XBixio
> il risultato sarebbe
> Biio
>
> Replace() ha un parametro Count per il  numero di sostituzioni
> che qui si potrebbe impostare ad 1:
>
> Replace ([nomecampo];"X";""; ;1)
>
>> criteri: Like "X*"
>
ciao Karl
era cmq una formula tua.
Saluti


title: una query di aggiornamento

text:
Marcello wrote:
> Karl Donaubauer ha scritto:
>>> "Botrio ha scritto:
>>>> ...
>>>> pippo
>>>> pluto
>>>> Xgigi
>>>> mario
>>>> Xenzo
>>>> Xroberto
>>>> davide
>>>> Xmichele
>>>>
>>>> voglio togliere la X davanti quando c'è
>>>> ...
>>> Aggiorna a: Replace ([nomecampo];"X";"")
>>
>> Così è un po' pericoloso, se p.e. pensi a
>> XBixio
>> il risultato sarebbe
>> Biio
>>
>> Replace() ha un parametro Count per il  numero di sostituzioni
>> che qui si potrebbe impostare ad 1:
>>
>> Replace ([nomecampo];"X";""; ;1)
>> ...
> era cmq una formula tua.
Forse, ma per un compito diverso come
http://groups.google.com/group/microsoft.public.it.office.access/browse_frm/thread/a0b48f0fbb63cfc4
.
non per togliere un solo carattere all'inizio del campo.



title: una query di aggiornamento

author: Botrio

text:
> Come criterio puoi p.e. usare: Like "X*"
> e come espressione per l'aggiornamento: Mid([Campo];2)
>
> L'enunciato SQL della query sarebbe circa:
>
> UPDATE Tabella SET Campo = Mid([Campo],2)
> WHERE Campo Like "X*"
>
grazie


title: File DBF

author: Pivo

text:
Salve a tutti.
Ho questa necessità:
Devo aprire un recordset con un file DBF direttamente da VBA (non posso
collegare la tabella in Access per vari motivi) e ho problemi con la
definizione del batabase e la tabella dato che in dbf sono la stessa cosa.
La sintassi che conosco è set RECORDSET = DATABASE.openrecordset ("TABELLA")
che naturalmente non funziona...
Qualcuno può aiutarmi?
Grazie 1000 in anticipo.


title: File DBF

author: Maurizio Borrelli

text:
> "Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
> news:m6vU9.22609$0v.6...@news1.tin.it...
> Salve a tutti.
> Ho questa necessità:
> Devo aprire un recordset con un file DBF direttamente da VBA (non posso
> collegare la tabella in Access per vari motivi) e ho problemi con la
> definizione del batabase e la tabella dato che in dbf sono la stessa cosa.
    Non e' esatto. Per i DBF il nome del database e' la directory (cartella)
che contiene le tabelle (i file DBF).
> La sintassi che conosco è set RECORDSET = DATABASE.openrecordset
("TABELLA")
> che naturalmente non funziona...
    Allega comunque, per prova, la tabella al database access, poi leggine
le proprieta' cosi' scoprirai come deve essere scritta la stringa di
connessione...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: File DBF

text:
Ci proverň!!!
Grazie 10000000000000
Saluti.
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:avu4nd$jdjgm$1...@ID-52090.news.dfncis.de...
> > "Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
> > news:m6vU9.22609$0v.6...@news1.tin.it...
> > Salve a tutti.
> > Ho questa necessitŕ:
> > Devo aprire un recordset con un file DBF direttamente da VBA (non posso
> > collegare la tabella in Access per vari motivi) e ho problemi con la
> > definizione del batabase e la tabella dato che in dbf sono la stessa
cosa.
>
>     Non e' esatto. Per i DBF il nome del database e' la directory
(cartella)
> che contiene le tabelle (i file DBF).
>
> > La sintassi che conosco č set RECORDSET = DATABASE.openrecordset



title: File DBF

text:
Non riesco a farlo funzionare puoi darmi anche le stringhe di codice?
Grazie
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:avu4nd$jdjgm$1...@ID-52090.news.dfncis.de...



title: File DBF

author: Antonio Biso

text:
"Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
news:McxU9.30198$AA2.1...@news2.tin.it...
> Non riesco a farlo funzionare puoi darmi anche le stringhe di codice?
Forse perchè non scrivi correttamente DOPO il quoting?!?
Antonio


title: File DBF

text:
Scusa ma non capisco ???
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:fzxU9.114484$Ou4.3...@twister2.libero.it...



title: File DBF

text:
"Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
news:7BxU9.30404$AA2.1...@news2.tin.it...
> Scusa ma non capisco ???
Non capisco !!!
... Caso mai...
Quoting: parte del messaggio a cui si sta rispondendo e che si lascia nella
risposta stessa.
Inoltre leggi il post di Roberto da Casa "istruzioni per l'uso"
Antonio


title: File DBF

text:
"Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
news:McxU9.30198$AA2.1...@news2.tin.it...

Dopo le preziose notizie di Antonio Biso penso di aver capito il discorso
sul Quoting... Pertanto provo a riformulare la mia domanda.
Mi potete dire le stringhe di codice per aprire il Recordset con un file Dbf
direttamente da codice senza collegare la tabella in Access?
Non ci riesco proprio.
Grazie 1000.


title: File DBF

text:
> "Pivo" <
pi...@interfree.it
> ha scritto nel messaggio
> news:XpzU9.23927$0v.6...@news1.tin.it...
> > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel
> > messaggio news:avu4nd$jdjgm$1...@ID-52090.news.dfncis.de...
[...]
> Dopo le preziose notizie di Antonio Biso penso di aver capito il discorso
> sul Quoting... Pertanto provo a riformulare la mia domanda.
> Mi potete dire le stringhe di codice per aprire il Recordset con un file
Dbf
> direttamente da codice senza collegare la tabella in Access?
[...]
    Ritorno sul discorso fatto prima. Prova prima di tutto ad allegare la
tabella:
        File > Carica dati esterni > Collega tabelle...
        Tipo file: dBASE 5 (*.dbf)
        <seleziona il nome del file>
        [Collega]
    Quindi seleziona il collegamento, identificato come tabella con l'icona
dB ed apri in struttura rispondendo si' al messaggio:
        Impossibile modificare alcune proprieta' della tabella
        collegata '<nometabella>'.
        Aprire la tabella conmunque?
    Poi:
        Visualizza > Proprieta'
e leggi la proprieta' "Descrizione" che dovrebbe avere un valore simile a:
        dBase 5.0;HDR=NO;IMEX=2;DATABASE=<percorso completo cartella>;
        TABLE=<nometabella>#DBF
    A questo punto puoi eliminare tale collegamento. Apri quindi la guida e
in ricerca libera digita:
        sql from in
seleziona la pagina:
        Proposizione FROM
e leggi gli esempi. Sarai cosi' in grado di scrivere una query del tipo:
        SELECT *
        FROM <nometabella>
            IN "<percorso cartella>" "dBase 5.0;"
    Puo' bastare?



title: aprire il foglio2 di excel

author: Mario Marticati

text:
Ciao a tutti,
sono di nuovo alle prese con excel, vorrei modificare il codice di un
mdb già fatto non da me. Nel programma vendono scritte più tabelle nel
fogli1 di excel, desidererei che ogni foglio fosse popolato da una
singola tabella.
Ho provato fare una macro in excel e vedere il codice che viene
scritto, ma non riesco a farlo digerire ad acces
su cursheet.Add ("Foglio2") mi viene proposto l'errore.
Nella parte sotto la parte di codice con i commenti
-------------------------------------------
 Dim TAB_EXCEL As Recordset
 Dim TAB_VOCI_TOTALI As Recordset
 Dim SENZA_RACCORDO As Recordset
 Dim X_MASTRO As Recordset
 Dim EXCEL As Object
 Dim EXCEL1 As Object
 Dim EXCEL2 As Object
 Dim VIO As Object
 Dim col As Integer, rig As Integer, AN As Integer
 Set EXCEL = CreateObject("EXCEL.application")
 Set EXCEL1 = EXCEL.workbooks.Open(CART_PRIN & FILEXLS) '
 EXCEL.Visible = True
 Dim cursheet As Object
 Set cursheet = EXCEL1.Sheets(1)
 Set TAB_EXCEL = CurrentDb.OpenRecordset("PLUTO")
'----------------------------------------------------------------------------
'-------------------  il programma scrive sul foglio1
-------------------------------------------
---------------------------------
 While Not TAB_EXCEL.EOF
                cursheet.Cells(rig, 3) = TAB_EXCEL!RE + TAB_EXCEL!
DIVERSI
                cursheet.Cells(rig, 3).Font.Bold = True
                cursheet.Cells(rig, 3).Style = "Comma"
 TAB_EXCEL.MoveNext
 rig = rig + 1
 WEND
'-------------------------------------------
---------------------------------
'------------------- questa tabella vorrei scriverla nel foglio2
'-------------------------------------------
---------------------------------
Set SENZA_RACCORDO = CurrentDb.OpenRecordset("pippo")
     While Not SENZA_RACCORDO.EOF
     'SENZA_RACCORDO!CCOLUMN 1
     cursheet.Cells(rig, 2) = SENZA_RACCORDO!MASTRO
     cursheet.Cells(rig, 3) = SENZA_RACCORDO!SEGNOM
     cursheet.Cells(rig, 4) = SENZA_RACCORDO!IMPORTO
     rig = rig + 1
     SENZA_RACCORDO.MoveNext
     Wend


title: aprire il foglio2 di excel

text:
Mario Marticati wrote:
> sono di nuovo alle prese con excel, vorrei modificare il codice di un
> mdb già fatto non da me. Nel programma vendono scritte più tabelle nel
> fogli1 di excel, desidererei che ogni foglio fosse popolato da una
> singola tabella.
> Ho provato fare una macro in excel e vedere il codice che viene
> scritto, ma non riesco a farlo digerire ad acces
> su cursheet.Add ("Foglio2") mi viene proposto l'errore.
> Nella parte sotto la parte di codice con i commenti
>
>  Dim TAB_EXCEL As Recordset
>  Dim TAB_VOCI_TOTALI As Recordset
>  Dim SENZA_RACCORDO As Recordset
>  Dim X_MASTRO As Recordset
>  Dim EXCEL As Object
>  Dim EXCEL1 As Object
>  Dim EXCEL2 As Object
>  Dim VIO As Object
Le dicchiarazioni sono brutte. Sarebbe meglio così
>  Dim TAB_EXCEL As Recordset
 Dim rsTab_Excel As DAO.Recordset
ecc.
>  Dim EXCEL As Object
Dim xlApp As Excel.Application
>  Dim EXCEL1 As Object
Dim xlWbk As Excel.Workbook
ecc.
> ...
>  Set cursheet = EXCEL1.Sheets(1)
> ...
> ' il programma scrive sul foglio1
> ...
> cursheet.Cells(rig, 3) = TAB_EXCEL!RE + TAB_EXCEL!
>
> ' questa tabella vorrei scriverla nel foglio2
> ...
Se capisco bene cosa vuoi fare, qui basta:
Set cursheet = EXCEL1.Sheets(2)
> Set SENZA_RACCORDO = CurrentDb.OpenRecordset("pippo")
>      While Not SENZA_RACCORDO.EOF
>      'SENZA_RACCORDO!CCOLUMN 1
>
> cursheet.Cells(rig, 2) = SENZA_RACCORDO!MASTRO
> cursheet.Cells(rig, 3) = SENZA_RACCORDO!SEGNOM
> cursheet.Cells(rig, 4) = SENZA_RACCORDO!IMPORTO
> ...
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: aprire il foglio2 di excel

text:

> Access FAQ:
www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -
grazie mille
cin il
Set cursheet = EXCEL1.Sheets(2)
ho risolto il tutto
ciao e rigrazie M_ario


title: allineare numeri di una tb

author: Franco dellavalle

text:
ciao a tutti

vorrei allineare dei numeri formato testo,
usando una query e non una function.
Come posso fare?
es.
IdNum IdFattFo MieiNum
  1     20      100
  2     20      110
  3     20      115
  4     21       90

risultato:
IdFattFo    MieiNum
  20      100-110-115
  21          90

ho provato senza successo, anche con una query a campi incrociati.

grazie


title: allineare numeri di una tb

author: Akery

text:

avevo lo stesso problema, ma senza codice è difficile risolverlo. Ti
ripropongo la stessa soluzione che mi hanno fornito in passato dal
newsgroup.

Function Transpose()

'CurrentDb.Execute "DELETE * FROM [tabella destinazione]" abilita la
riga se ti serve pulire la tabella di destinazione

Dim RS1_1 As Recordset, RS1_2 As Recordset, RS2 As Recordset
Dim SQL As String, S As String, SourceTable As String, TargetTable As String

'-- Definizioni --
SourceTable = "tabella sorgente"
TargetTable = "tabella destinazione"
'------------------

SQL = "SELECT " & SourceTable & ".ID FROM " & SourceTable
SQL = SQL & " GROUP BY " & SourceTable & ".ID;"
Set RS1_1 = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
Set RS1_2 = CurrentDb.OpenRecordset(SourceTable, dbOpenDynaset)

Set RS2 = CurrentDb.OpenRecordset(TargetTable, dbOpenDynaset)

Do Until RS1_1.EOF
     Do Until RS1_2.EOF
         If RS1_2![ID] = RS1_1![ID] Then
             S = S & RS1_2![mieinum] & ";"
         End If
         RS1_2.MoveNext
     Loop
     RS2.AddNew
     RS2![ID] = RS1_1![ID]
     RS2![Caratteristica] = S
     RS2.Update
     S = ""
     RS1_2.MoveFirst
     RS1_1.MoveNext
Loop

End Function

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: allineare numeri di una tb

text:

grazie Akery


title: due recordset diversi nella routine

author: Piero

text:
ciao a tutti

se in nella routine devo aprire due recordset differenti
� bene utilizzare due variabili deverse?
per esempio:

 Dim Rs As Recordset,
 Dim Rst As Recordset,

grazie


title: due recordset diversi nella routine

text:
Ciao Piero,

Piero wrote:
> se in nella routine devo aprire due recordset differenti
> � bene utilizzare due variabili deverse?
> per esempio:
>
> Dim Rs As Recordset,
> Dim Rst As Recordset,

Di solito s�, ma dipende un po' da come e quando usi le variabili.
In ogni caso (non solo) con due recordset, usa nomi descrittivi
e indica la biblioteca esplicitamente p.e.

Dim rsClienti As DAO.Recordset
Dim rsArticoli As DAO.Recordset

v.a.
http://www.donkarl.com/it?FAQ7.11

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjnlpp...@mid.individual.net...
> Ciao Piero,
>
> Piero wrote:
>> se in nella routine devo aprire due recordset differenti
>> � bene utilizzare due variabili deverse?
>> per esempio:
>>
>> Dim Rs As Recordset,
>> Dim Rst As Recordset,
>
> Di solito s�, ma dipende un po' da come e quando usi le variabili.
> In ogni caso (non solo) con due recordset, usa nomi descrittivi
> e indica la biblioteca esplicitamente p.e.
>
> Dim rsClienti As DAO.Recordset
> Dim rsArticoli As DAO.Recordset
>
> v.a.
http://www.donkarl.com/it?FAQ7.11

>
> --
> Ciao
ciao Karl

in questa routine ho anche molti codici ripetuti
che non so come evitare.
Posso postarla?


title: due recordset diversi nella routine

text:
Piero wrote:
> ...
> in questa routine ho anche molti codici ripetuti
> che non so come evitare.
> Posso postarla?

In pricipio puoi postare tutto che consente il tuo provider di NG.
Certo c'� sempre il rischio di non ricevere delle risposte su un post
con 600 righe di codice. :-)



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjnokd...@mid.individual.net...
> Piero wrote:
>> ...
>> in questa routine ho anche molti codici ripetuti
>> che non so come evitare.
>> Posso postarla?
>
> In pricipio puoi postare tutto che consente il tuo provider di NG.
> Certo c'� sempre il rischio di non ricevere delle risposte su un post
> con 600 righe di codice. :-)
grzie Karl
sono 599
;-)

volevo qualche consiglio

            Dim blRet As Boolean
            Dim Rst As DAO.Recordset
            Dim Rs As DAO.Recordset, strSql As String, FieldName As String,
My_Subject As String, Message As String
            Dim AttachDoc As String, CCstring, BCCstring

            If Me!IDAgC <> 0 Then

                Set Rst = Me!S_EmailAgC_1.Form.RecordsetClone
                Rst.FindFirst "Esclusa=0"

                If Not Rst.NoMatch Then
                strSql = "SELECT DISTINCT TbEmailAgC.*,
UnisciValoriAgC([IdAgC]) AS Email " & _
                    "FROM TbEmailAgC Where IdAgC = " & Me!IDAgC
                Set Rs = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

                FieldName = Rs.Fields("Email")

                'Trasforma il Report in PDF
                blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
                Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0,
0, 0)

                My_Subject = "Conferma"
                Message = ""
                AttachDoc = "C:\Conferma.pdf"
                CCstring = ""
                BCCstring = ""

                SendingMailFromTable Rs, FieldName, My_Subject, Message,
AttachDoc, CCstring, BCCstring

                Else

                'Trasforma il Report in PDF
                blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
                Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0,
0, 0)
                End If

            Else

                Set Rst = Me!S_EmailClienti_1.Form.RecordsetClone
                Rst.FindFirst "Esclusa=0"

                If Not Rst.NoMatch Then
                strSql = "SELECT DISTINCT TbEmailClienti.*,
UnisciValoriClienti([IdCliente]) AS Email FROM TbEmailClienti Where
IdCliente = " & Me!IdCliente
                Set Rs = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

                FieldName = Rs.Fields("Email")

                'Trasforma il Report in PDF
                blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
                Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0,
0, 0)

                My_Subject = "Conferma"
                Message = ""
                AttachDoc = "C:\Conferma.pdf"
                CCstring = ""
                BCCstring = ""

                SendingMailFromTable Rs, FieldName, My_Subject, Message,
AttachDoc, CCstring, BCCstring

                Else

                'Trasforma il Report in PDF
                blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
                Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0,
0, 0)
                End If
            End If

        Rst.Close: Set Rst = Nothing
        Rs.Close: Set Rs = Nothing


title: due recordset diversi nella routine

text:
Piero wrote:
> ... volevo qualche consiglio...

' ****************** START ***********************

Dim rsCheck As DAO.Recordset, rsData As DAO.Recordset
Dim strSql As String
Dim strFld As String, strSubject As String, strMsg As String
Dim strAttach As String, strCC As String, strBCC As String

'Trasforma il Report in PDF
ConvertReportToPDF Me!lstRptName, vbNullString, _
    Me!lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0

If Me!IDAgC <> 0 Then
    Set rsCheck = Me!S_EmailAgC_1.Form.RecordsetClone
Else
    Set rsCheck = Me!S_EmailClienti_1.Form.RecordsetClone
End If

rsCheck.FindFirst "Esclusa=0"

If Not rsCheck.NoMatch Then
    If Me!IDAgC <> 0 Then
        strSql = "SELECT DISTINCT *, UnisciValoriAgC(IdAgC) AS Email" & _
                     " FROM TbEmailAgC" & _
                     " WHERE IdAgC = " & Me!IDAgC
    Else
        strSql = "SELECT DISTINCT *, UnisciValoriClienti(IdCliente) AS
Email" & _
                      " FROM TbEmailClienti" & _
                      " WHERE IdCliente = " & Me!IdCliente
    End If

    Set rsData = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

    strFld = rsData.Fields("Email")

    strSubject = "Conferma"
    strMsg = ""
    strAttach = "C:\Conferma.pdf"
    strCC = ""
    strBCC = ""

    SendingMailFromTable rsData, strFld, strSubject, strMsg, strAttach,
strCC, strBCC

End If

rsCheck.Close: Set rsCheck = Nothing
rsData.Close: Set rsData = Nothing

' ****************** END ***********************



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjo2d9...@mid.individual.net...

ciao Karl e grazie

il problema � il codice che trasforma il report in Pdf

            'Trasforma il Report in PDF
            ConvertReportToPDF Me!lstRptName, vbNullString, _
            Me!lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0

nel punto dove l'hai inserto, da l'errore
l'oggetto a cui si fa riferimento nell'espressione � stato chiuso o
eliminato:

se lo metto in questo punto:

            Else
                strSql = "SELECT DISTINCT *, UnisciValoriClienti(IdCliente)
AS Email" & _
                        " FROM TbEmailClienti" & _
                        " WHERE IdCliente = " & Me!IdCliente
            End If

            Set rsData = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

            'Trasforma il Report in PDF
            ConvertReportToPDF Me!lstRptName, vbNullString, _
            Me!lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0

            strFld = rsData.Fields("Email")

ho quest'errore in assenza di email nel cliente:

variabile oggetto o variabile del blocco With non impostata


title: due recordset diversi nella routine

text:
cut
>>
>> ' ****************** END ***********************
>>
> ciao Karl e grazie
>
> il problema � il codice che trasforma il report in Pdf
>
>            'Trasforma il Report in PDF
>            ConvertReportToPDF Me!lstRptName, vbNullString, _
>            Me!lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0
>
> nel punto dove l'hai inserto, da l'errore
> l'oggetto a cui si fa riferimento nell'espressione � stato chiuso o
> eliminato:
>
>
> se lo metto in questo punto:
>
>            Else
>                strSql = "SELECT DISTINCT *, UnisciValoriClienti(IdCliente)
> AS Email" & _
>                        " FROM TbEmailClienti" & _
>                        " WHERE IdCliente = " & Me!IdCliente
>            End If
>
>            Set rsData = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
>
>            'Trasforma il Report in PDF
>            ConvertReportToPDF Me!lstRptName, vbNullString, _
>            Me!lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0
>
>
>            strFld = rsData.Fields("Email")
>
> ho quest'errore in assenza di email nel cliente:
>
> variabile oggetto o variabile del blocco With non impostata
ciao Karl
allego modulo per invio email:

Public Sub SendingMailFromTable(Rs As DAO.Recordset, _
           rsData As String, _
           strSubject As String, _
           strMsg As String, _
           strAttach As String, _
           Optional strCC, _
           Optional strBCC)
'
' References:
' ===========
' Visual Basic for Applications
' Microsoft Access 11.0 Object Library
' Microsoft DAO 3.60 Object Library
' Microsoft Outlook 11.0 Object Library
'
Dim olApp As New Outlook.Application
Dim NewMail As Outlook.MailItem

'Do Until RS.EOF
Set NewMail = olApp.CreateItem(olMailItem)
    With NewMail
        .To = rsData
        .Subject = strSubject
        .Body = strMsg
        .Attachments.Add strAttach
        .CC = strCC
        .BCC = strBCC
        .Send
    End With
Set NewMail = Nothing
    'RS.MoveNext
'Loop

End Sub


title: due recordset diversi nella routine

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:52d791b9$0$23119$4faf...@reader2.news.tin.it...

ho corretto altri 2 errori nel modulo,  ma ho sempre gli stessi errori

Public Sub SendingMailFromTable(RsData As DAO.Recordset, _
           strFld As String, _
           strSubject As String, _
           strMsg As String, _
           strAttach As String, _
           Optional strCC, _
           Optional strBCC)
'
' References:
' ===========
' Visual Basic for Applications
' Microsoft Access 11.0 Object Library
' Microsoft DAO 3.60 Object Library
' Microsoft Outlook 11.0 Object Library
'
Dim olApp As New Outlook.Application
Dim NewMail As Outlook.MailItem

'Do Until RS.EOF
Set NewMail = olApp.CreateItem(olMailItem)
    With NewMail
        .To = strFld



title: due recordset diversi nella routine

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:52d79e97$0$23119$4faf...@reader2.news.tin.it...

ciao Karl grazie 1000
ho risolto tutto, tranne che per il Pdf.

perch� se inserisco questo codice
all'inizio
            'Trasforma il Report in PDF
            blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
            Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0)
ho poi l'errore:
l'oggetto a cui si fa riferimento nell'espressione � stato chiuso o
eliminato.


title: due recordset diversi nella routine

text:
Ciao Piero,

Piero wrote:
> ...
> ho risolto tutto, tranne che per il Pdf.
>
> perch� se inserisco questo codice
> all'inizio
>            'Trasforma il Report in PDF
>            blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
>            Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0,
> 0, 0) ho poi l'errore:
> l'oggetto a cui si fa riferimento nell'espressione � stato chiuso o
> eliminato.

Nel mio consiglio ho tolto l'assegnazione alla variabile perch�
non usi il valore di ritorno. Mi sembrano anche troppi parametri.
Di solito basta:

ConvertReportToPDF Me!lstRptName, vbNullString, _
    "QuiSarebbeMeglioUnPercorso" & Me!lstRptName & ".pdf"

Per� suppongo che l'errore succeda altrove e puoi solo debuggarlo
tu perch� sul mio sistema funziona cos�. Se non trovi l'errore e prima
ha funzionato puoi sempre ritornare al vecchio codice.



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjpu8h...@mid.individual.net...

Ciao Karl

puoi postare il codice del modulo PDF che usi?
Grazie


title: due recordset diversi nella routine

text:
Piero wrote:
> "Karl Donaubauer ha scritto:
> ...
>> ConvertReportToPDF Me!lstRptName, vbNullString, _
>>    "QuiSarebbeMeglioUnPercorso" & Me!lstRptName & ".pdf"
>
> puoi postare il codice del modulo PDF che usi?

?
Sarebbe molto lungo e non serve, perch� certamente � il solito
codice di Stephen Lebans che usa tutto il mondo (almeno fino
a A07) ed anche tu.



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjqi5n...@mid.individual.net...
> Piero wrote:
>> "Karl Donaubauer ha scritto:
>> ...
>>> ConvertReportToPDF Me!lstRptName, vbNullString, _
>>>    "QuiSarebbeMeglioUnPercorso" & Me!lstRptName & ".pdf"
>>
>> puoi postare il codice del modulo PDF che usi?
>
> ?
> Sarebbe molto lungo e non serve, perch� certamente � il solito
> codice di Stephen Lebans che usa tutto il mondo (almeno fino
> a A07) ed anche tu.
>
a ok
ma volevo capire perch� creato il pdf mi salta
dandomi errore.
l'oggetto a cui si fa riferimento nell'espressione � stato chiuso o
eliminato.

un motivo ci sar�!


title: due recordset diversi nella routine

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:52d81923$0$1367$4faf...@reader1.news.tin.it...

ciao Karl
che versione di Access usi?
grazie


title: due recordset diversi nella routine

text:
Piero wrote:
> ...
> che versione di Access usi?

Quasi tutte.
Il tool di Stephen uso soprattutto con AX e A03.



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bjt07p...@mid.individual.net...

grazie


title: due recordset diversi nella routine

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:52d9862d$0$1368$4faf...@reader1.news.tin.it...

ciao Karl
come faccio a modificare il percorso dove far salvare il PDF?


title: due recordset diversi nella routine

text:
Piero wrote:
> ...
> come faccio a modificare il percorso dove far salvare il PDF?

Come tu e Stephen: con una variabile che prende il percorso o da
un riferimento ad und campo/controllo o da un file dialog.



title: due recordset diversi nella routine

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bk4n01...@mid.individual.net...
> Piero wrote:
>> ...
>> come faccio a modificare il percorso dove far salvare il PDF?
>
> Come tu e Stephen: con una variabile che prende il percorso o da
> un riferimento ad und campo/controllo o da un file dialog.
>
> --
> Ciao
ciao Karl
� perch� non riesco a trovarlo


title: Statistiche network su adp

author: OneEDP

text:
Inoltre avrei bisogno di un vs. parere in fase di sviluppo.
Come posso simulare il traffico di rete se il client � la stesso host in cui
� installato sql server?
Ho diabilitato i servizi shared memory e abilitato i soli tcp/ip ma nulla da
fare
Da SSMS le statistiche client network purtroppo non suppliscono a questa
esigenza.
Daniele


title: Tracciati RI.BA

text:
Qualcuno li ha realizzati con access?
Andrea


title: Tracciati RI.BA

author: Franchi Flavio S.r.l.

text:
Option Compare Database
Option Explicit
Private Const IntestazioneMessaggio As String = "Ricevute Bancarie"
Sub RiBa()
On Error GoTo Err_Riba
  Dim MioDB As DAO.Database, Rst As DAO.Recordset, Sc As Form, NomeFileOut
As String, ContaRiba As String
  Dim NomeSupporto As String, VV As String, ValoreZero As String,
TotaleRighe As String, Valore As String
  Dim RagioneSocialeCreditore As String * 60, PartitaIvaCreditore As String
* 11, SiaCreditore As String * 5
  Dim DataOdierna As String * 6, DataScadenza As String * 6, DataFattura As
String * 10, IbanCreditore As String * 27, IbanDebitore As String * 27
  Dim RagioneSocialeDebitore As String * 60, IndirizzoDebitore As String *
30, CittaDebitore As String * 25, CapDebitore As String * 5,
PartitaIvaDebitore As String * 11
  Dim SommaValore As Variant, k As Variant, I As Variant, LunghezzaLinea As
Byte, IdScadenzaFattura As Variant, IDSerieFattura As Variant ', FileAperto
As Byte
  Set MioDB = CurrentDb()
  Set Sc = Screen.ActiveForm
  ValoreZero = "000000000000000" 'Sono 15
  NomeSupporto = "F2GEST                     'Sono 26 Caratteri
  RagioneSocialeCreditore = "Franchi               'Sono 21
  PartitaIvaCreditore = "11111111111" 'Sono 11
  LunghezzaLinea = 120
  DataOdierna = Format(Date, "ddmmyy")
  NomeFileOut = DLookup("[Numero Costante]", "TMP)NumeriCostanti", "[ID
Numero Costante] = 50") 'Cartella Predefinita PDF
  NomeFileOut = NomeFileOut + "Riba " + DataOdierna + ".txt"
  I = DLookup("[Codice Sia]", "@Banca", "[ID Gestione Banca]=" & Sc![ID
Gestione Banca]): If IsNull(I) Or Len(I) <> 5 Then MsgBox ("Codice Sia
Creditore"), 16, IntestazioneMessaggio: Exit Sub
  SiaCreditore = CStr(I)
  I = DLookup("[Iban]", "@Banca", "[ID Gestione Banca]=" & Sc![ID Gestione
Banca]): If IsNull(I) Or Len(I) <> 27 Then MsgBox ("Codice Iban Creditore"),
16, IntestazioneMessaggio: Exit Sub
  IbanCreditore = CStr(I)
'@@@ INIZIO
  VV = " IB" + SiaCreditore + Mid(IbanCreditore, 6, 5) + DataOdierna +
NomeSupporto
  VV = VV + Space(113 - Len(VV)) + "E" + Space(6) 'Posizione 114
  Open NomeFileOut For Output As #1
  Print #1, VV
  Set Rst = MioDB.OpenRecordset("MovFatClienDataScadenzaBanca") 'query
  SommaValore = 0
  Do While Not Rst.EOF
    Rst.Edit
    k = Rst![ID Contatore]: ContaRiba = LTrim(CStr(k))
    ContaRiba = Left(ValoreZero, 7 - Len(ContaRiba)) + ContaRiba
    I = Rst![Data Scadenza]: If IsNull(I) Then MsgBox ("Data Scadenza
Debitore"), 16, IntestazioneMessaggio: GoTo ErroriLettura
    DataScadenza = CStr(Format(I, "ddmmyy"))
    I = Rst![Data Fattura]: If IsNull(I) Then MsgBox ("Data Fattura
Debitore"), 16, IntestazioneMessaggio: GoTo ErroriLettura
    DataFattura = CStr(Format(I, "dd/mm/yyyy"))
    IDSerieFattura = Rst![ID Serie Fattura]: If IsNull(IDSerieFattura) Then
MsgBox ("ID Serie Fattura"), 16, IntestazioneMessaggio: GoTo ErroriLettura
    IdScadenzaFattura = Rst![ID Scadenza Fattura]: If
IsNull(IdScadenzaFattura) Then MsgBox ("ID Scadenza Fattura"), 16,
IntestazioneMessaggio: GoTo ErroriLettura
    I = Rst![Importo]: If IsNull(I) Then MsgBox ("Importo Debitore Fattura "
+ CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo ErroriLettura
    SommaValore = SommaValore + I 'Variant
    Valore = Format(I, "0.00"): I = InStr(Valore, ","): Valore = Mid(Valore,
1, I - 1) + Mid(Valore, I + 1, Len(Valore))
    Valore = Left(ValoreZero, 13 - Len(Valore)) + Valore
    I = Rst![Ragione Sociale]: If IsNull(I) Then MsgBox ("Ragione Sociale
Debitore Fattura " + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo
ErroriLettura
    RagioneSocialeDebitore = I: RagioneSocialeDebitore =
Left(RagioneSocialeDebitore, 60) + Space(60 - Len(RagioneSocialeDebitore))
'60 Caratteri
    I = Rst![Iban]
    If IsNull(Mid(I, 6, 5)) Or Len(Mid(I, 6, 5)) <> 5 Or IsNull(Mid(I, 11,
5)) Or Len(Mid(I, 11, 5)) <> 5 Then MsgBox ("Codice Abi e Cab Debitore
Fattura " + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo
ErroriLettura
    IbanDebitore = CStr(I)
    'AbiDebitore = CStr(Mid(I, 6, 5)): CabDebitore = CStr(Mid(I, 11, 5)):
ContoCorrenteDebitore = CStr(Mid(I, 16, 12))
    I = Rst![Indirizzo Riba]: If IsNull(I) Then MsgBox ("Indirizzo Debitore
Fattura " + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo
ErroriLettura
    IndirizzoDebitore = Left(I, 30): IndirizzoDebitore = IndirizzoDebitore +
Space(30 - Len(IndirizzoDebitore)) '30 caratteri
    I = Rst![Citta Riba]: If IsNull(I) Then MsgBox ("Citta Debitore Fattura
" + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo ErroriLettura
    CittaDebitore = Left(I, 25): CittaDebitore = CittaDebitore + Space(25 -
Len(CittaDebitore)) '30 caratteri ma Cilme Solo 25
    I = Rst![Cap Riba]: If IsNull(I) Or Len(I) <> 5 Then MsgBox ("Codice CAP
Debitore Fattura " + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo
ErroriLettura '5 caratteri
    CapDebitore = CStr(I)
    I = Rst![Partita IVA]: If IsNull(I) Then MsgBox ("Partita IVA Debitore
Fattura " + CStr(IDSerieFattura)), 16, IntestazioneMessaggio: GoTo
ErroriLettura
    PartitaIvaDebitore = Right(I, 11) '11 Numeri Senza IT
'@@@
    VV = " 14" + ContaRiba + Space(12) + DataScadenza + "30000" + Valore +
"-" + Mid(IbanCreditore, 6, 22) + Mid(IbanDebitore, 6, 22) + SiaCreditore +
"4" + Space(22) + "E"
    Print #1, VV
'@@@
    VV = " 20" + ContaRiba + RagioneSocialeCreditore
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
'@@@
    VV = " 30" + ContaRiba + RagioneSocialeDebitore + PartitaIvaDebitore
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
'@@@
    VV = " 40" + ContaRiba + IndirizzoDebitore + CapDebitore + CittaDebitore
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
'@@@ 10+13+5=28 al 101->Codice Fiscale
    VV = " 50" + ContaRiba
    If DCount("[ID Scadenza Fattura]", "Scadenze Fatture Clienti", "[ID
Scadenza Fattura]>" & IdScadenzaFattura & "And [ID Serie Fattura]=" &
IDSerieFattura & "And [Pagato]=False") Then
      VV = VV + "Acc. Fattura " + CStr(Right(IDSerieFattura, 5)) + " Del " +
DataFattura
    Else
      VV = VV + "S.do Fattura " + CStr(Right(IDSerieFattura, 5)) + " Del " +
DataFattura
    End If
    VV = VV + Space(100 - Len(VV)) + PartitaIvaCreditore
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
'@@@
    VV = " 51" + ContaRiba + "000" + ContaRiba +
Left(RagioneSocialeCreditore, 20)
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
'@@@
    VV = " 70" + ContaRiba
    VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
    Rst.MoveNext
  Loop
'@@@ SommaValore Sono 15
  VV = Format(SommaValore, "0.00"): I = InStr(VV, ","): VV = Mid(VV, 1, I -
1) + Mid(VV, I + 1, Len(VV))
  VV = Left(ValoreZero, 15 - Len(VV)) + VV
  VV = " EF" + SiaCreditore + Mid(IbanCreditore, 6, 5) + DataOdierna +
NomeSupporto + ContaRiba + VV
  k = k * 7 + 2: TotaleRighe = LTrim(CStr(k))
  TotaleRighe = Left(ValoreZero, 7 - Len(TotaleRighe)) + TotaleRighe
  VV = VV + ValoreZero + TotaleRighe + Space(24) + "E"
  VV = VV + Space(LunghezzaLinea - Len(VV)): Print #1, VV
  MsgBox ("Il File � Stato Creato " + NomeFileOut), 48,
IntestazioneMessaggio
Exit_Riba:
  Close 1
  Rst.Close
  Set Rst = Nothing
  Exit Sub
ErroriLettura:
  Close 1
  Kill NomeFileOut
  GoTo Exit_Riba
Err_Riba:
  MsgBox Error$
  MsgBox Err
  If Err = 91 Then Stop
  'Resume Next
  Resume Exit_Riba
End Sub


title: Tracciati RI.BA

text:
Grazie per il codice ma non sono ancora cos� esperto, mi occorrerebbe un
mano in pi�, Grazie, a bun rendere
"Franchi Flavio S.r.l." <
franchi....@tiscali.it
> ha scritto nel
messaggio news:4a3b370e$0$699$5fc...@news.tiscali.it...



title: Errore data 2

text:
 Spero di essere chiaro adesso. Ho realizzato questa funzione per il
calcolo dei giorni in mesi considerando anche i 15 giorni, che vengono
calcolati per un mese es. 15g valgono un mese 1 quindi 1 punto, 45
giorni valgono 2 mesi 2punti, 44 giorni valgono 1 mese 1punto, 60
giorni valgono 2 mesi 2punti ecc. Il tutto mi serve per un calcolo
particolare da attribuire a persone, in base ai mesi come descritto.
Spero di essere stato più chiaro
Purtroppo se parto dal 2002 al 2006 tutto OK , ma se la data va dal
1999 o 2000 oppure 2001 al 2006 mi considera un mese in più es.
01/08/200 al 22/02/2006 calcola 68 mesi e non 67 come dovrebbe..
Dove sbaglio?
Sperando di essere stato chiaro ripeto che tutto va bene per le date
dal 2002 al 2006.
Dim a As Double
Dim b As Double
    a = (Me.data_fine - Me.inizio)
'arrotondamento dei 15 giorni
    b = Int([a] / 30) + IIf((([a] / 30) - Int([a] / 30) >= 0.5), 1, 0)
     Me.calcolo = b
 Me.datafine ecc. sono nella form che fa partire il calcolo
sull'evento dopo l'aggiornamento della data me.inizio.


title: Errore data 2

author: sv

text:
gepp...@gmail.com
 ha scritto:


Dal 01/08/2000 al 22/02/2006 sono esattamente 2031 giorni;
2031/30 = 67 (mesi di 30 gg) col resto di 20 gg... in pratica 67,70
pari a 68 mesi...
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore data 2

text:
Ok ma i venti giorni sono la somma dell'ultimo del mese il 31 che
riportato negli anni mi crea l'errore dei 20 giorni non attribuibili .
In definitiva i 15 giorni vanno calcolati solo se frazioni di mese non
per intero come nella data 01/08/2000 al 22/07/2006 che sono esttamente
67 mesi i 20gg sono residui non calcolabile , questo è il mio problema.


title: Errore data 2

text:
gepp...@gmail.com
 ha scritto:

Hai tagliato tutto il testo...
> b = Int([a] / 30) + IIf((([a] / 30) - Int([a] / 30) >= 0.5), 1, 0)
Prova a scriverla in questa maniera, dato che un anno è di 365 gg quando
non è bisestile..
 b = Int([a] * 12/365) + IIf((([a] * 12/365) - Int([a] * 12/365) >= 0.5),
1, 0)



title: Errore data 2

author: Paolo Dal Bosco

text:
<
gepp...@gmail.com
> ha scritto nel messaggio
news:1158312377....@d34g2000cwd.googlegroups.com...

---------------------------------------------
---------------------------------------------
questo è il 3o thread che apri per lo stesso motivo
se vuoi un aiuto valido
puoi rispondere almeno alle domande che ti vengono fatte.
ripropongo la domanda dell'altro thread a cui non hai risposto
(sperando che tu non ne apra un'altro)
-----------------------------------------------------
gentilmente cosa dovresti ottenere come risultato?
i mesi che si sono fra due date?
o il totale dei giorni, che divisi poi per 30 quello che rimane
se è superiore a 15 diventa 30 (1 mese) e di 45 diventa 60 (2 mesi)?
Puoi chiarire questo?
Ciao
Paolo


title: Errore data 2

text:
Ok ma se fai 01/01/2006 al 16/01/2006 i quindi giorni non li calcola  a
1 punto


title: Errore data 2

text:
Carissimo Paolo penso di essere satao chiaro nelle tre volte che ho
scritto. Comunque se i giorri sono quindici vale un punto es;: 30g 1
punto 45 giorni 2 punti 60 giorni 2 punti  nelle funzione mia mi porta
un resto di 20 giorni che non va considerato percjè rimanenza dei
trentuno di ogni mese. Ti ripeto che titto è ok , come ampiamente
decsrtitto, fino al 2002. ti rallego un abstrat del ttutto, sperando
questa volta di essere stato cìhiaro.
il calcolo dei giorni in mesi considerando anche i 15 giorni, che
vengono calcolati per un mese es. 15g valgono un mese 1 quindi 1 punto,
45 giorni valgono 2 mesi 2punti, 44 giorni valgono 1 mese 1punto, 60
giorni valgono 2 mesi 2punti ecc. Il tutto mi serve per un calcolo
particolare da attribuire a persone, in base ai mesi come descritto.
Spero di essere stato più chiaro
Purtroppo se parto dal 2002 al 2006 tutto OK , ma se la data va dal
1999 o 2000 oppure 2001 al 2006 mi considera un mese in più es.
01/08/200 al 22/02/2006 calcola 68 mesi e non 67 come dovrebbe..
Dove sbaglio?
Sperando di essere stato chiaro ripeto che tutto va bene per le date
dal 2002 al 2006.
Dim a As Double
Dim b As Double
    a = (Me.data_fine - Me.inizio)
'arrotondamento dei 15 giorni
    b = Int([a] / 30) + IIf((([a] / 30) - Int([a] / 30) >= 0.5), 1, 0)
     Me.calcolo = b
 Me.datafine ecc. sono nella form che fa partire il calcolo
sull'evento dopo l'aggiornamento della data me.inizio.
Se non posso rispondere è perchè a volte sono impegnato. Comunque
grazie


title: Errore data 2

text:
gepp...@gmail.com
 ha scritto:
> Ok ma se fai 01/01/2006 al 16/01/2006 i quindi giorni non li calcola  a
> 1 punto
Non tagliare tutto il testo del precedente messaggio...
Il problema è che un anno è di 365 o di 366, mentre con la tua formula
assumi l'anno commerciale che è di 360 gg...
Prova a fare questo ulteriore aggiustamento:
b = Int([a] * 12/365) + IIf((([a] /30) - Int([a] /30) >= 0.5),



title: Errore data 2

text:
Carissimo Paolo lo stesso se fai 01/01/2006 al 16/01/2006 i quindi
giorni non li calcola  a
 1 punto mentre con la mia b = Int([a] / 30) + IIf((([a] / 30) -
Int([a] / 30) >= 0.5), 1, 0) si . Quindi i 15 giorni non vanno
calcolati come dovrebbero. CHE ROGNA stò impazzendo tra foemule e
formulette . Ciao di nuovo grazie



title: Errore data 2

text:
<
gepp...@gmail.com
> ha scritto nel messaggio
news:1158315781.2...@k70g2000cwa.googlegroups.com...
Carissimo Paolo penso di essere satao chiaro nelle tre volte che ho
scritto. Comunque se i giorri sono quindici vale un punto es;: 30g 1
punto 45 giorni 2 punti 60 giorni 2 punti  nelle funzione mia mi porta
un resto di 20 giorni che non va considerato percjč rimanenza dei
trentuno di ogni mese. Ti ripeto che titto č ok , come ampiamente
decsrtitto, fino al 2002. ti rallego un abstrat del ttutto, sperando
questa volta di essere stato cěhiaro.
il calcolo dei giorni in mesi considerando anche i 15 giorni, che
vengono calcolati per un mese es. 15g valgono un mese 1 quindi 1 punto,
45 giorni valgono 2 mesi 2punti, 44 giorni valgono 1 mese 1punto, 60
giorni valgono 2 mesi 2punti ecc. Il tutto mi serve per un calcolo
particolare da attribuire a persone, in base ai mesi come descritto.
Spero di essere stato piů chiaro
Purtroppo se parto dal 2002 al 2006 tutto OK , ma se la data va dal
1999 o 2000 oppure 2001 al 2006 mi considera un mese in piů es.
01/08/200 al 22/02/2006 calcola 68 mesi e non 67 come dovrebbe..
Dove sbaglio?
Sperando di essere stato chiaro ripeto che tutto va bene per le date
dal 2002 al 2006.
Dim a As Double
Dim b As Double
    a = (Me.data_fine - Me.inizio)
'arrotondamento dei 15 giorni
    b = Int([a] / 30) + IIf((([a] / 30) - Int([a] / 30) >= 0.5), 1, 0)
     Me.calcolo = b
 Me.datafine ecc. sono nella form che fa partire il calcolo
sull'evento dopo l'aggiornamento della data me.inizio.
Se non posso rispondere č perchč a volte sono impegnato. Comunque
grazie
---------------------------------------
comunque non rispondi ai chiarimenti che ti vengono chiesti,
impara a leggere quello che una persona scrive:
il codice č questo
Dim a As Double
Dim b As Double
Dim C As Double
a = (Me.data_fine - Me.Inizio)
b = Int(a / 30)
C = a Mod 30
Me.calcolo = b + IIf(C >= 15, 1, 0)


title: Errore data 2

text:
Non ho nessuna intenzione di entrare in polemica non è il mio costume,
comunque penso di saper leggere, ma il problema credo di avrlo scritto
CHIARO ED ESPLICITO, perchè continui con i chiarimenti.
> <
gepp...@gmail.com
> ha scritto nel messaggio
> news:1158315781.2...@k70g2000cwa.googlegroups.com...
>
> Carissimo Paolo penso di essere satao chiaro nelle tre volte che ho
> scritto. Comunque se i giorri sono quindici vale un punto es;: 30g 1
> punto 45 giorni 2 punti 60 giorni 2 punti  nelle funzione mia mi porta
> un resto di 20 giorni che non va considerato percjè rimanenza dei
> trentuno di ogni mese. Ti ripeto che titto è ok , come ampiamente
> decsrtitto, fino al 2002. ti rallego un abstrat del ttutto, sperando
> questa volta di essere stato cìhiaro.
> il calcolo dei giorni in mesi considerando anche i 15 giorni, che
> vengono calcolati per un mese es. 15g valgono un mese 1 quindi 1 punto,
> 45 giorni valgono 2 mesi 2punti, 44 giorni valgono 1 mese 1punto, 60
> giorni valgono 2 mesi 2punti ecc. Il tutto mi serve per un calcolo
> particolare da attribuire a persone, in base ai mesi come descritto.
> Spero di essere stato più chiaro
> Purtroppo se parto dal 2002 al 2006 tutto OK , ma se la data va dal
> 1999 o 2000 oppure 2001 al 2006 mi considera un mese in più es.
> 01/08/200 al 22/02/2006 calcola 68 mesi e non 67 come dovrebbe..
> Dove sbaglio?
> Sperando di essere stato chiaro ripeto che tutto va bene per le date
> dal 2002 al 2006.
> Dim a As Double
> Dim b As Double
>
>     a = (Me.data_fine - Me.inizio)
> 'arrotondamento dei 15 giorni
>     b = Int([a] / 30) + IIf((([a] / 30) - Int([a] / 30) >= 0.5), 1, 0)
>      Me.calcolo = b
>  Me.datafine ecc. sono nella form che fa partire il calcolo
> sull'evento dopo l'aggiornamento della data me.inizio.
> Se non posso rispondere è perchè a volte sono impegnato. Comunque
> grazie
> ---------------------------------------
> comunque non rispondi ai chiarimenti che ti vengono chiesti,
> impara a leggere quello che una persona scrive:
> il codice è questo



title: Errore data 2

text:
Caro Pietro comunqu la funzione Mod non fa altro che ripetere quello
che già esiste nella mia. Aveveo già provato non funziona i 15 giorni
non vengono calcolati.
geppo...@gmail.com
 ha scritto:



title: Errore data 2

text:
<
gepp...@gmail.com
> ha scritto nel messaggio
news:1158321756....@k70g2000cwa.googlegroups.com...


--------------------------------------
ma neanch'io voglio fare polemica, ci mancherebbe,
solo che tu conosci il problema  e se cerchi aiuto
il problema lo deve capire anche l'altro.


title: Errore data 2

text:
Pietro non so come eliminare quei malidettissimi 15 con date che vanno
dal 2002 all'indietro. Il problema stà che mi sommai 31 di ogni mese
con i periodo lunghi.
Infattise inserisco 01/08/2000 al 22/02/2006 i giorni sono 2031 che
divisi per 30 diventano 67 mesi con resto di 20 giorni, questi ultimi
non devono essere calcolati perchè rimanenze dai 31 giorni. Quindi si
devono calcolare solo 67 in una delle funzioni che mi hai mandato va
bene  però appena inserisci un periodo breve es: 01/01/2006 al
15/01/2006 i quindici giorni non vengono calcolati. però con la mia
funzione ok. Spero di avercti delucitato un po  il problema. CIAO  e
speriamo che me la cavi



title: maschera e sottomaschera - casella combinata limitata

author: Oscar

text:
Un saluto a tutti.
sono un principiante che per� si � cimentato, anche con il vostro
aiuto, in diversi progetti access.
Il problema che incontro questa volta non l'ho mai incontrato.
Ho due tabelle molto voluminose:
ANAGRAFICA che contiene circa 660.000 record e
VACCINAZIONI che ne contiene circa 7.000.000.
Qunado provo a fare la maschera ANAGRAFICA con la sottomaschera
VACCINAZIONI la creazione guidata non me lo permette. Ho provato a
farlo manualmnete, ma la sottomaschera risulta vuota.
Qualcuno mi pu� aiutare?
Un'altro problema � se voglio aprire la maschera ANAGRAFICA su un
record preciso la casella combinata creata alla bisogna funziona solo
se il record � entro il 65.536. se cerco un record che si colloca
oltre l'elenco mostra soltanto fino al 62.536 record.
Grazie per l'aiuto
Oscar


text:
ho risolto il primo problema, rimane il secondo quello della casella
combinata che arriva fino a 65536 record.
grazie per la collaborazione
Oscar


text:
Oscar ha scritto:

IMHO una combo con quel numero di dati nn ha alcun senso....molto meglio una
casella di testo e una list box magari che cerca i record della tabella per
iniziali a partire dalla casella di testo.....almeno limiti il range...
--


text:
On Sat, 5 Feb 2011 22:24:52 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:

ti ringrazio per l'aiuto, ma come principiante non ho capito granchè.
cosa dovrei fare esattamente?
ciao e grazie
Oscar


text:
Oscar ha scritto:


Vedi:
http://lnx.accessgroup.it/community/forms/filtro-su-listbox.html
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:


perfetto! funziona benissimo.
grazie
Oscar


title: Aiuto Query

author: Agos

text:
-Ho una query che seleziona i dipendenti [NonInFerie];
-in questa query compaiono i dipendenti nel campo [nome];
-essi appartengono a due turni, il turno "A" ed il turno "B", indicati nel
campo [Turno];
- nella stessa query compare anche un campo [Inservizio], in formato Sě/no;
Domanda: vorrei trovare il sistema di attivare o disattivare lo "spunto" ad
un intero turno, per poi poter selezionare solo i dipendenti in servizio. Io
non sono capace! C'č qualche anima buona che mi dica come fare?
Rimango in attesa. Grazie in anticipo.


title: Aiuto Query

text:
"Agos" <
sca...@libero.it
> ha scritto nel messaggio
news:8ra9ma$hun$2...@nslave2.tin.it...

certo! usa una query di aggiornamento


title: [Beginner] Errore

author: dix

text:
Ciao a tutti,
mi sto cimentando ora con lo sviluppo di una applicazione in AccessXP e di
conseguenza sto imparando VBA
Non dovrebbe essere difficile venendo dal mondo VB6 e
VB.NET
, tuttavia non
riesco ancora a capire la logica con cui si lavora.
Io vorrei poter lanciare una procedura scritta in un modulo mediante un
bottone di comando presente su di una maschera.
Fin qui niente di problematico, nell'evento 'click' del bottone inserisco in
VBA il comando 'call MiaProcedura': tutto quanto funziona. La mia procedura
viene lanciata (lo verifico mettendo un MsgBox. Il problema nasce quando
all'interno del MsgBox voglio far comparire il testo di una casella presente
sulla maschera da cui ho lanciato la mia procedura.
Da codice:
MsgBox(Forms![Maschera1]!Testo1.Text)
Questo pezzo di codice da un errore:
Errore di runtime '2185': impossibile fare riferimento ad un metodo o ad una
proprietą per un controllo a meno che non abbia lo stato attivo.
In che senso devo attivare il controllo?
Grazie mille per tutto il supporto e scusate la domanda stupida.
dix


title: [Beginner] Errore

author: Fabio

text:
controllo.SetFocus
La proprietą SetFocus attribusice lo stato attivo al tuo
controllo................ciao ciao


title: [Beginner] Errore

author: Karl Donaubauer

text:
dix <lucaf...@NOSPAMhotmail.com> ha scritto:
> mi sto cimentando ora con lo sviluppo di una applicazione in AccessXP e di
> conseguenza sto imparando VBA
> Non dovrebbe essere difficile venendo dal mondo VB6 e
VB.NET
, tuttavia non
> riesco ancora a capire la logica con cui si lavora.
> Io vorrei poter lanciare una procedura scritta in un modulo mediante un
> bottone di comando presente su di una maschera.
> Fin qui niente di problematico, nell'evento 'click' del bottone inserisco
in
> VBA il comando 'call MiaProcedura': tutto quanto funziona. La mia
procedura
> viene lanciata (lo verifico mettendo un MsgBox. Il problema nasce quando
> all'interno del MsgBox voglio far comparire il testo di una casella
presente
> sulla maschera da cui ho lanciato la mia procedura.
> Da codice:
>
> MsgBox(Forms![Maschera1]!Testo1.Text)
>
> Questo pezzo di codice da un errore:
>
> Errore di runtime '2185': impossibile fare riferimento ad un metodo o ad
una
> proprietà per un controllo a meno che non abbia lo stato attivo...
Altro che in VB la proprietà giusta per questa operazione non
è "Text" ma "Value". Allora usi:
MsgBox(Forms!Maschera1!Testo1.Value)
Come Value è la proprietà standard del controllo basta anche
MsgBox(Forms!Maschera1!Testo1)
Vedi anche <F1> per "Text" dove è descritto tutto.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: [Beginner] Errore

author: Roberto da casa

text:
"dix" <lucaf...@NOSPAMhotmail.com> ha scritto nel messaggio
news:A9DO8.36$%Q4....@nreader2.kpnqwest.net...
> Ciao a tutti,
> mi sto cimentando ora con lo sviluppo di una applicazione in AccessXP e di
> conseguenza sto imparando VBA
> Non dovrebbe essere difficile venendo dal mondo VB6 e
VB.NET
, tuttavia non
> riesco ancora a capire la logica con cui si lavora.
> Io vorrei poter lanciare una procedura scritta in un modulo mediante un
> bottone di comando presente su di una maschera.
> Fin qui niente di problematico, nell'evento 'click' del bottone inserisco
in
> VBA il comando 'call MiaProcedura': tutto quanto funziona. La mia
procedura
> viene lanciata (lo verifico mettendo un MsgBox. Il problema nasce quando
> all'interno del MsgBox voglio far comparire il testo di una casella
presente
> sulla maschera da cui ho lanciato la mia procedura.
> Da codice:
>
> MsgBox(Forms![Maschera1]!Testo1.Text)
>
> Questo pezzo di codice da un errore:
>
> Errore di runtime '2185': impossibile fare riferimento ad un metodo o ad
una
> proprietà per un controllo a meno che non abbia lo stato attivo.
>
> In che senso devo attivare il controllo?
> Grazie mille per tutto il supporto e scusate la domanda stupida.
>
> dix
In Accessm puoi usare la proprietà Text di un controllo solo nel caso in cui
il controllo stesso abbia lo stato attivo, e devi farlo, come ti ha
suggerito Fabio con il metodo SetFocus; però, nel 99% dei casi, esplicitare
la proprietà Text è superfluo.
Ti consiglio di provare con:
MsgBox(Forms![Maschera1!Testo1)
nel qual caso non è necessario spostare il fuoco sul controllo Testo1.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Beginner] Errore

text:
Grazie mille a tutti per il supporto!
Ho risolto il problema secondo le vostre indicazioni: sia usando la
proprietą value, sia usando la proprietą text dopo aver richiamato il metodo
setfocus per attivare il controllo!
GRAZIE!
dix


title: Sostituzione di massa percorso immagini collegate

author: oierpa

text:
Buongiorno a tutti.
Ho una lunga serie di database aziendali ognuno con molti report che contengono immagini collegate (statiche, ad esempio nell'intestazione pagina).
Il link di ogni immagine rimanda ad un server (tipo \\servexyz\immagini\nomeimmagine.jpg).
Abbiamo dovuto sostituire il server e per scelte aziendali si è voluto cambiare nome e IP di rete. Io devo sostituire il link a tutte le immagini suddette e mi chiedevo se fosse possibile, in VBA ad esempio, cercare la stringa che inizia con \\serverxyz\immagini negli oggetti report (ma anche qualche Form) e sostituirla con il nuovo percorso del nuovo server.

Il problema non è tanto la grande mole di lavoro (si tratta di aprire ogni report e cambiarne il percorso, i report ovviamente si aprono con un errore) piuttosto è il desiderio di non sbagliare.
Tipicamente le immagini sono loghi aziendali o di prodotto, perciò vorrei non sbagliare "logo1" piuttosto che "logo5", il lavoro infatti è tedioso e il rischio di sbagliare dopo un po' diventa molto alto.

Scusate se può sembrare banale, sono un autodidatta di Access e VBA e ho colto questa occasione per modificare i vari DB usando delle variabili globali per i prefissi delle altre immagini in modo da dover cambiare solo pochi dati nel caso si decidesse di spostarle nuovamente su altra macchina. Per queste immagini però, prima vorrei sostituirle correttamente e poi modificare i report con eventi che mi permettono di scegliere le immagini da VBA invece che direttamente nel report.

Ah dimenticavo, uso Office 2010 e 2013 quindi Access 14 e 15.

Grazie in anticipo.
Saluti


text:
Salve,

Oierpa ha scritto:

Per trovare e sostituire in modo sicuro e comodo puoi usare il tool
Find&Replace:
http://www.donkarl.com/it?FAQ1.24

Inoltre ti puo creare una documentazione su tutti imagini e luogi.

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text: Ti ringrazio molto, provo nel pomeriggio e ti faccio sapere.


text:
Il giorno mercoledì 21 ottobre 2015 16:43:09 UTC+2, oierpa ha scritto:
> Ti ringrazio molto, provo nel pomeriggio e ti faccio sapere.

Ciao Karl.
Il primo tool che mi hai indicato funziona abbastanza bene, non ha trovato proprio tutte le corrispondenze però.
Ad ogni modo dovrò intervenire a mano su ogni report e form per correggere anche altri errori, ne approfitto per dare una revisione ai vari db.
Grazie comunque.


title: Imparare Access

author: lujx

text:
Avrei bisogno di imparare Access, mi sapreste consigliare un sito o una
guida on line, da dove poter cominciare ad imparare?
grazie Lujx


title: Imparare Access

author: sib

text:
lujx <
pis...@monrif.net
> wrote in message 94bjqc$1f2$1...@nread1.inwind.it...
> Avrei bisogno di imparare Access, mi sapreste consigliare un sito o una
> guida on line, da dove poter cominciare ad imparare?
Comincia dai db di esempio e dalla guida in linea.
Poi, (sentamme') non fare niente OnLine, (fa figo ed e' di moda ma serve a
poco) comprati un libro.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Imparare Access

author: ema

text:
Mio  cuggino  mi  ha  detto  che   lujx   <
pis...@monrif.net
>	scrisse:
> Avrei bisogno di imparare Access, mi sapreste consigliare un sito o una
>   guida   on	 line,	 da   dove   poter   cominciare   ad   imparare?
>
Help in linea, northwind.mdb e soluzioni.mdb
Li hai gia` tutti installati. Bello, no?
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

"Ma cara, come guidi!  Era rosso!".
"No, era biondo!".
		-- Da it.hobby.umorismo


title: Query e combo

author: -Fabio-

text:
Ho una query che, in base ad campo mi estrae una lista di persone, nei
criteri ho inserito:
Like [Paese: ]
Ho ottenuto che quando lancio la query da un report mi chiede il paese di
cui voglio fare la stampata. Però vorrei fare in modo che mi desse la
possibilità di scegliere da un elenco di paesi (che andrò a prendere in una
tabella), anche perchè se chi scrive non mette il nome esatto la query
fallisce.
Avete suggerimenti? Sicuramente è una domanda stupida, però non ne vengo a
capo.
Grazie
Fabio


title: Query e combo

text:
"-Fabio-" <
fabi...@hotmail.com
> ha scritto nel messaggio
news:akju5b...@fabio.locale...

Creati una maschera non associata chiamata Maschera1.
Inserisci in Maschera1 una casella combinata non associata chiamata MiaCombo
che abbia una sola colonna che contiene l'elenco dei paesi.
Inserisci in Maschera1 anche un pulsante di comando con il quale apri il tuo
report.
Nei criteri della query scrivi:
[Forms]![Maschera1]![MiaCombo]
A questo punto, per eseguire il report, apri Maschera1, seleziona il paese
con la casella combinata e pigia il pulsante di comando.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query e combo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:AGBga.52622$7y3.1...@twister1.libero.it...
> A questo punto, per eseguire il report, apri Maschera1, seleziona il paese
> con la casella combinata e pigia il pulsante di comando.
Ti ringrazio, funziona perfettamente.
Fabio


title: casella combinata autoaggiornante

author: wildsurfer

text:
ho una casella combianata che preleva i valori da una query.questa query
raggruppa e ordina tutti i valori immessi nel campo a cui è associata la
casella combianata.
Vorrei fare un requery per aggiornare i valori della casella comb ogni qual
volta si aggiungono nuovi record per avere la nella lista della comb anche
gli ultimi valori immessi.questo infatti accade solo se chiudo e riapro la
maschera.ho provato ad utilizzare il metodo requery impostato sull'evento
afterupdate della casella comb, ma in questo modo torno al primo record
della maschera!sicuramente so sbagliando qualcosa...mi date qualche dritta??
grazie


title: casella combinata autoaggiornante

author: Sib

text:
"wildsurfer" <
wildsu...@libero.it
> ha scritto nel messaggio

Non la devi aggiornare quando scegli un valore, la devi aggiornare quando
aggiungi un record.
Sib


title: casella combinata autoaggiornante

author: Davide

text:
"wildsurfer" <
wildsu...@libero.it
> ha scritto nel messaggio
news:kNnp6.108493$Y93.2...@news.infostrada.it...

prova a utilizzare refresh


title: Vuole fare quello che gli pare... !!!

text:
Ametto di non conoscere Access 2000 molto bene.
Devo modificare dei report fatti da un mio ex collega.
Una cosa molto semplice aggiungere un campo chiamato "Descrizione"
il campo in questione è presente normalmente nella query di selezione dati.
Se inserisco in una textbox e come origine controllo inserisco "descrizione"
tutto ok.
Se invece di aggiungere una textbox nuova voglio aggiungere questo campo ad
una textbox già esistente con una origine del tipo: "=[Codice] &
[Descrizione]",
All'uscita del controllo, access mi sostituisce automaticamente la parola
"descrizione" con la parola "description"!!!
Ora Description che io sappia è una proprietà e nulla centra con quello che
voglio fare!!!
Ditemi voi.
Paolo Albera


title: Vuole fare quello che gli pare... !!!

author: Sergio MAZZA

text:
"
news.dfncis.de
" <
p.al...@pibergroup.com
> ha scritto nel messaggio
news:ae4r7v$3slge$1...@ID-83513.news.dfncis.de...

Non utilizzare mai nei nomi di campi e controlli: Descrizione e Data; devi
modificarli...
Ciao.
--
Sergio MAZZA


title: Vuole fare quello che gli pare... !!!

text:
> Non utilizzare mai nei nomi di campi e controlli: Descrizione e Data; devi
> modificarli...
>
posso capire per la parola "data" che ha un corrispettivo inglese che può
confondere Access, ma Descrizione.....!!!????
Allora ci saranno anche altre parole che possono dare fastidio.....
paolo


title: Vuole fare quello che gli pare... !!!

text:
"
news.dfncis.de
" <
p.al...@pibergroup.com
> ha scritto nel messaggio
news:ae56tf$43h6k$1...@ID-83513.news.dfncis.de...
> posso capire per la parola "data" che ha un corrispettivo inglese che puņ
> confondere Access, ma Descrizione.....!!!????
>
> Allora ci saranno anche altre parole che possono dare fastidio.....
>
> paolo
>
Puoi capire la parola "data" ma l'hai utilizzata comunque...
Purtroppo questo "bachetto" fa parte degli ostacoli che non possono essere
rimossi ma solo aggirati. Io, dopo esserci incappato, ho preso la sana
abitudine di far precedere il nome di variabili/controlli/campi/maschere da
un prefisso...
Ciao.
--
Sergio MAZZA


title: Vuole fare quello che gli pare... !!!

text:
> Puoi capire la parola "data" ma l'hai utilizzata comunque...
No certo la parola data non lo utilizzata.
E' stata utilizzata la parola  "Descrizione" che è ben diversa...
Come già dicevo allora probabilmente ci saranno altre parole che possono
dare fastidio....
> Purtroppo questo "bachetto" fa parte degli ostacoli che non possono essere
> rimossi ma solo aggirati. Io, dopo esserci incappato, ho preso la sana
> abitudine di far precedere il nome di variabili/controlli/campi/maschere
da
> un prefisso...
Direi che è ottimo, è un metodo che già uso anch'io su progetti nuovi, ma
dovendo mantenere anche quelli vecchi ereditati anche da altri, sai
com'è.....!!!
Saluti Paolo.


title: Vuole fare quello che gli pare... !!!

text:
"
news.dfncis.de
" <
p.al...@pibergroup.com
> ha scritto nel messaggio
news:ae706u$4drb5$1...@ID-83513.news.dfncis.de...
>
> No certo la parola data non lo utilizzata.
> E' stata utilizzata la parola  "Descrizione" che è ben diversa...
Sì, scusa; un baco ce l'ho anch'io...
>
> Come già dicevo allora probabilmente ci saranno altre parole che possono
> dare fastidio....
Fino ad ora nell'NG non c'è stata nessun'altra segnalazione.
> Direi che è ottimo, è un metodo che già uso anch'io su progetti nuovi, ma
> dovendo mantenere anche quelli vecchi ereditati anche da altri, sai
> com'è.....!!!
Eh già...
>
> Saluti Paolo.
Ciao.
--
Sergio MAZZA


title: Vuole fare quello che gli pare... !!!

author: MM

text:
> > No certo la parola data non lo utilizzata.
> > E' stata utilizzata la parola  "Descrizione" che è ben diversa...
>
> Sì, scusa; un baco ce l'ho anch'io...
>
> >
> > Come già dicevo allora probabilmente ci saranno altre parole che possono
> > dare fastidio....
>
> Fino ad ora nell'NG non c'è stata nessun'altra segnalazione.
>
> > Direi che è ottimo, è un metodo che già uso anch'io su progetti nuovi,
ma
> > dovendo mantenere anche quelli vecchi ereditati anche da altri, sai
> > com'è.....!!!
Boh,
io credo che i dati che prendi come fonte dati per il report abbia un campo
derivato da una query in cui il nome del campo è quello che tu dici che ti
viene fuori pur scrivendo qualcos'altro.
Mi era successo qualcosa di simile ma l'avevo risolto. Era una stupidata, ma
non so se puo' esserlo o meno nel tuo caso.
Prova a controllare la fonte dati del report e nel caso faccia riferimento
ad una query , verifica il nome dei campi della query.
Ciao. Marco.


title: cerco cd con emulatori e roms

author: MoNeyMaKer

text:
Da: "MoNeyMaKer" <
fa...@inwind.it
>
Oggetto:
Data: sabato 7 ottobre 2000 14.12
Ciao
sto cercando qualcuno che mi possa vendere (ci metteremo d'accordo una volta
contattati come) dei cdrom conteneti emulatori e roms. Non mi va di
scaricarmi chissà quante roms e chissà quanti emulatori da Internet!
Quindi ti domando un piccolo aiuto: se conosci gente, oppure se anche tu
stesso possiedi un o più cd-rom contenenti ad esempio il MAME32 e tutte le
sue roms uscite fino a qualche tempo fa, il CALLUS, gli emulatori del
megadrive o del super nintendo con le loro roms (magari tutte quelle uscite
finora). Ecco questo è quello che cercherei io: un cd pieno zeppo di
emulatori e di roms. Non so se tutti gli emulatori e tutte le roms ci stiano
in un solo cd-rom.....
Comunque spero che ci sia già stato qualcuno che abbia avuto l'idea di
riunire su cd quello che si trova riguardo gli emulatori su Internet.
Se tu sei in possesso di  o dei suddetti cd-rom saresti così gentile da
informarmi di come potrei venirne in  possesso pure io? Sono anche disposto
a comprarteli se ti va.
Spero di trovare qualcuno che mi risponda o che mi dia le informazioni che
cerco; scrivetemi a
fa...@inwind.it
grazie


title: cerco cd con emulatori e roms

author: Antonio Biso

text:
MoNeyMaKer ha scritto nel messaggio <8rpr9r$2qb$
2...@nread2.inwind.it
>...
Hai sbagliato News Group, rompipalle.
Mettiti il Nintendo dove dico io...
Antonio


title: cerco cd con emulatori e roms

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:LeoE5.24856$N93.8...@news.infostrada.it...

E senza toglie' la cartuccia...


title: cerco cd con emulatori e roms

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8rubik$bec$1...@suite03.caspur.it...

Penso che non fosse l'Antonio Doc.
Tu sei il Sergio Mazza Doc?
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: cerco cd con emulatori e roms

author: Lbo da casa

text:
>Penso che non fosse l'Antonio Doc.
non lo era.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: cerco cd con emulatori e roms

text:
"sib" <
sibN...@iol.it
> ha scritto nel messaggio
news:JDLE5.3736$Z95.1...@news.infostrada.it...
> Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
> 8rubik$bec$1...@suite03.caspur.it...
> >

> Penso che non fosse l'Antonio Doc.
>
> Tu sei il Sergio Mazza Doc?
>
> Sib
>
>
> --
> ------------------------------------------------------
> il sito comune di it.comp.database.access:
>
http://members.xoom.it/it_db_access
> ------------------------------------------------------
> 4000 anni fa', il saggio egizio Ptahhotep scrisse:
> "... perche' non esistono saggi per nascita."
> ------------------------------------------------------
> Saturiamo ECHELON:
> bomba saddam attentato medio oriente
>
>
>
Hei! Di cloni mei non ne ho ancora visti; non puoi confondermi sono quello
bello e alto..
Ciao.


title: Reports su bollati

author: david

text:
Ciao
Qualcuno ha fatto qualche esperienza di report da stampare
su carta bollata, risolvendo cosě problemi di spaziature fisse?
Il mio report č un misto di etichette e di caselle di testo e alcune
di queste ultime devono poter essere espandibili...
Grazie in ogni caso.


title: Reports su bollati

author: lucianab64 on libero

text:
david <
davi...@libero.it
> wrote in message
3c919758...@News.CIS.DFN.DE...

Penso che i casi siano 2:
1) usi i report di Access o strumenti simili con caratteri grafici e ti
affatichi con gli allineamenti
2) stampi un magnifico file di testo appositamente costruito da codice con
le righe come meglio credi (e comunque ti affatichi :-)
Poichč i report di Access (o simili) possono essere comodi per ordinamenti,
raggruppamenti, sezioni, rotture o quant'altro, puoi provare a mettere
sull'evento Stampa di ogni sezione che ti interessa una routine evento che
faccia una Print #1 su file dei campi e stringhe che vuoi.
E' ovvio che devi prevedere per ogni campo lo spazio per le sue dimensioni
massime.
Lanciando il report Access produci un file di testo che ovviamente deve
essere opportunamente aperto e chiuso da codice (ad esempio sulla open del
report ...).
Questo č il file che probabilmente ti risolve il problema delle spaziature
fisse.
Ti consiglio di costruirti qualche routine di base per stampare agevolmente
numeri  con virgola, con un certo numero di decimali, con punto decimale,
stringhe varie, ad esempio di lunghezza prefissata, eventualmente nulle etc.
Fammi sapere.
Ciao :-) Luciana


title: Conflitto Elimina e Modifica

author: Luca

text:
Salve a tutti,
nelle proprieta' di una maschera ci sono le opzioni "consenti modifiche" e
"consenti eliminazioni". Ho creato una maschera per le eliminazioni di
record, ma se setto "consenti modifiche = no" e "consenti eliminazioni = si"
non posso eliminare i record: devono essere tutte e due si. E' come se
considerasse l'eliminazione come una modifica. Come posso vietare le
modifiche, lasciando attiva l'eliminazione?
Grazie Mille
Luca


title: Conflitto Elimina e Modifica

author: Alex De Rossi

text:
"Luca" <
luca...@libero.it
> ha scritto nel messaggio
news:m_yLa.131767$lK4.3...@twister1.libero.it...

Prima di cancellare imposti la proprietà AllowEdits della form su cui il
record deve essere cancellato su true .
Dopo la cancellazione lo rimposti su false.
Ciao
ADR


title: Conflitto Elimina e Modifica

text:
"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:3QWLa.134676$lK4.3...@twister1.libero.it...
>
> Prima di cancellare imposti la proprietą AllowEdits della form su cui il
> record deve essere cancellato su true .
> Dopo la cancellazione lo rimposti su false.
>
> Ciao
> ADR
>
Grazie per l'aiuto, non ci avevo proprio pensato!!
Ciao Luca


title: If...Then includere più condizioni

text:
Buona sera

non riesco a far funzionare questa istruzione , non capisco dove sbaglio ,
ho bisogno  che  la condizione prima è :
se nel controllo NDocumentoEMS c'è un valore e
se la seconda condizione che la nazione sia
una di quelle elencate
se questo è vero allora   prezzo pesolordo .......

io ho fatto questo :

 If IsNull(Me.Nazione) Or IsNull(Me.PesoLordo) Or IsNull(Me.NDocumentoEMS) Then
      Me.CostoSpedizione = Null

    If Me.Nazione = "Cile" Or Me.Nazione = "AUSTRALIA" _
		        Or Me.Nazione = "BAHAMAS" _
		        Or Me.Nazione = "BARBADOS" _
		        Or Me.Nazione = "BELIZE" _
		        Or Me.Nazione = "BERMUDA" Then

     ElseIf Me.NDocumentoEMS.Value = True Then

             End If

         Select Case PesoLordo

          Case Is <= 1
               Me.CostoSpedizione = 42#
               Me.TSP = "FI"
           Me.Corriere = "EMS ( Express Mail Service )"
                Me.TipoSpedizione = "EXPRESS (EMS)"
                    Me.ZonaSpedizione = "Europa Extra Unione"
                         Me.TipoOrdine = "Ebay"
                            Me.Pagamento = "Paypal"
          Case Is <= 2
               Me.CostoSpedizione = 47#
               Me.TSP = "FI"
           Me.Corriere = "EMS ( Express Mail Service )"
                Me.TipoSpedizione = "EXPRESS (EMS)"
                    Me.ZonaSpedizione = "Europa Extra Unione"
                         Me.TipoOrdine = "Ebay"
                            Me.Pagamento = "Paypal"

mi date una mano ?

grazie  Giuseppe


title: If...Then includere più condizioni

author: pfm

text:

no dovrebbe essere cosi?

 If Me.Nazione = "Cile" AND _
         (Me.Nazione = "AUSTRALIA" _
                        Or Me.Nazione = "BAHAMAS" _
                        Or Me.Nazione = "BARBADOS" _
                        Or Me.Nazione = "BELIZE" _
                        Or Me.Nazione = "BERMUDA")


title: If...Then includere più condizioni

text:
Perche non hai seguito quanto ti avevo suggerito... scrivere un codice simile non è solo illeggibile... ma veramente poco funzionale e tecnicamente inflessibile...

Boh...
@Alex


title: If...Then includere più condizioni

text:

non capisco perché mi dice questo
illeggibile poco funzionale e tecnicamente inflessibile

non sono un professionista , ho solo un po' di passione per i database e basta
dopotutto ho un applicazione che mi funziona benissimo e cerco di migliorarla , però certo è molto difficile , mi hai smontato

ciao


title: If...Then includere più condizioni

text:
Ti devo ripetere cose che ti ho già detto è per  le quali ti diedi anche una soluzione tecnica strutturata...

Ragioni in modo non sistemico cercando di risolvere le cose a spot non avendo una logica di insieme...
Aggiungo...
Con le tabelle relazionare si lavora nella maggior parte dei casi con gli indici tu invece utilizzi im tutto un valore Descrittivo... che di indicizzato ha poco...
Ipotizza di avere una tabella TipiPagamento con IdTp counter e TipiPagamento testo.
Di norma si usa una combo o listbox per selezionare il tipo o i tipi di pagamento... e tu pensi di dover trattare "Bancomat/Bonifico..." oppure gli indici ad essi associati...?

Chiaramente se le critiche ti smontano il problema va risolto... e per questo puoi sfruttarele per imparare e crescere o pensare che non essendo un professionista quello che fai è già perfetto... ma in questo caso purtroppo per non ricevere quelle che tu chiami critiche devi premettere nella domanda che non vuoi suggerimenti intelligenti ma solo finalizzati alla soluzione specifica...

Beh scherzi a parte... prendila come credi.

@Alex


title: If...Then includere più condizioni

text:
Risolto  grazie

If IsNull(Me.Nazione) Or IsNull(Me.PesoLordo) Then
        Me.CostoSpedizione = Null
    Else

  If Me.Nazione = "Cile" Or Me.Nazione = "ANGOLA" _
Or Me.Nazione = "ANTIGUA" Or Me.Nazione = "ANTILLE OLANDESI" _
Or Me.Nazione = " ARGENTINA" Or Me.Nazione = "SINGAPORE" Then

  Select Case PesoLordo

          Case Is <= 1
               Me.CostoSpedizione = 42#
          Case Is <= 2
               Me.CostoSpedizione = 47#
          Case Is <= 3
               Me.CostoSpedizione = 52
          Case Is <= 4
               Me.CostoSpedizione = 55
          Case Is <= 5
               Me.CostoSpedizione = 60
          Case Is <= 6
               Me.CostoSpedizione = 65
          Case Is <= 7
               Me.CostoSpedizione = 72
          Case Is <= 8
               Me.CostoSpedizione = 78
          Case Is <= 9
               Me.CostoSpedizione = 84
          Case Is <= 10
               Me.CostoSpedizione = 92
          Case Is <= 11
               Me.CostoSpedizione = 98
          Case Is <= 12
               Me.CostoSpedizione = 104
          Case Is <= 13
               Me.CostoSpedizione = 110
          Case Is <= 14

End Select
            End If
                End If


title: If...Then includere più condizioni

text:
La condizione IS<=14 è particolarmente importante...?

Ha senso secondo te fare una definizione dei costi di spedizione in questo modo...?

Sei in un Database Relazionale in cui hai la possibilità di rendere strutturale la gestione delle Tariffe di spedizione per paese... e tui scrivi 20 condizioni per 4 paesi...?
Se domani cambiano le Tariffe di "ANGOLA" rispetto a "CILE"...? cosa fai riscrivi tutto quell'elenco...?

Dovresti ragionare per consentire di rendere PARAMETRICI questi dati e non toccare più il codice... questo è come si dovrebbe fare per ottimizzare.

@Alex


title: ESCLUSIONE DI UN SPECIFICATO GRUPPO NEI REPORT

author: Tartas

text:
Superato l'imbarazzo di dover mettere in mostra le mie difficoltà da
principiante e verificato che il News è sicuramente il mezzo più veloce per
risolvere i miei problemi, attingo ancora al vostro aiuto.
Ho creato un report che elenca gli articoli per settore.
Ora mi servirebbe sapere come si fa ad escludere dalla stampa del mio report
un determinato settore che soddisfi ad una specifica condizione (ad esempio
"id_settore=1")?


text:
"Tartas" <
tar...@libero.it
> ha scritto nel messaggio
news:IUXEg.73665$_J1.7...@twister2.libero.it...

Lancia il report da codice con comando docmd.openreport
Quindi utilizza la clausola WHERE, vedi anche help, per filtrare i dati
Antonio


title: IIF in una query

text:
"Valerio Valentini" <
valerio_...@tin.it
> ha scritto nel messaggio
news:jKS49.209808$vm5.6...@news2.tin.it...
> >
> > L'origine della maschera una funzione?!?
> > Caso mai una tabella o una query sulla tabella.
> > A quel punto nella query ci metti anche il campo calcolato e ordini per
> quel
> > campo
> >
> > Antonio
> >
>
> Il mio problema è proprio come eventualmente inserire il campo calcolato
> nella query, perchè nei criteri non mi riconosce IIF e non so in quale
altro
> modo inserire
> campo4 =IIF(campo1 > 0; campo2 * campo1; campo3)
Perchè nei criteri?
Tu lo devi mettere nella riga dei campi scelti.
Scrivi pure campo4 se vuoi chiamarlo così, altrimenti ti ci mette lui Espr1
Sarà
Campo4: iif(campo1>0;campo2*campo1;campo3)
dove campo1 2 e 3 devono essere campi della tabella.
Quindi nella maschera associerai ad un controllo il campo calcolato campo4
Antonio


title: IIF in una query

author: Valerio Valentini

text:
> Perchè nei criteri?
> Tu lo devi mettere nella riga dei campi scelti.
> Scrivi pure campo4 se vuoi chiamarlo così, altrimenti ti ci mette lui
Espr1
> Sarà
> Campo4: iif(campo1>0;campo2*campo1;campo3)
> dove campo1 2 e 3 devono essere campi della tabella.
> Quindi nella maschera associerai ad un controllo il campo calcolato campo4
>
> Antonio
>
Il problema è che me lo trasforma in testo e non mi accetta la sintassi che
uso
'Espr1:
(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_QProd_C
ont]*1000)'
è possibile che sia legato al fatto che si tratta di una funzione di un
proggetto .adp e non di una query di un .mdb???
ho provato ad inserirlo nel campo colonna come mi hai suggerito.
Togliendo le virgolette di testo nella SQL mi dice: ERRORE ADO sintassi non
corretta in prossimità di ':'
se tolgo i due punti mi trova l'errore in prossimità di '>'


title: IIF in una query

author: inbario

text:
> 'Espr1:
>
(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_QProd_C
> ont]*1000)'
Prova a scrivere:
Espr1:(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_Q
Prod_Cont]*1000)
e non:
'Espr1:(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_
QProd_Cont]*1000)'
senza gli apici


title: IIF in una query

text:
> Prova a scrivere:
>
Espr1:(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_Q
> Prod_Cont]*1000)
>
> e non:
>
'Espr1:(IIf([Fd_Prz_Conf]>0;[Fd_Prz_Conf]/[Fd_Conf_Prod];[Fd_Prz_Prod])/[Fd_
> QProd_Cont]*1000)'
>
> senza gli apici
>
gli apici me li mette Access trasformando l'espressione in testo perchè non
la riconosce, io la scrivo senza apici.
Ciao Valerio


title: IIF in una query

text:
"Valerio Valentini" <
valerio_...@tin.it
> ha scritto nel messaggio
news:1hc59.213514$vm5.6...@news2.tin.it...

Dove la scrivi?
Provi a fare la stessa cosa che fai adesso dentro access invece che in adp e
vedi che succede?
Antonio


title: Esportare un record da una maschera continua filtrata

text:
Ciao,

ho una maschera continua filtrata

dovrei esportare un singolo record con un pulsante in un file word (docx).

il campi da esportare sono 3: Cognome; Nome; Note da salvare in
"I:\ArchivioPazienti\" & [Cognome] & "_" & [Nome] & "_" & Format([CFData], "DDMMYYYY")

se avete consigli sono graditi

grazie


title: Aggiornare dati in un maschera di conseguenza all'eliminazione di una voce

author: Kwijibo

text:
Grazie ai vostri consigli ho creato una maschera ed una sottomoschera
collegate in modo egregio. Ora devo consentire all'utente di eliminare:
- qualsiasi voce dalla sottomaschera (qualsiasi libro acquistato);
- l'intero insieme composto dai dati anagrafici e dai libri acquistati.
Inoltre, se l'utente elimina uno o più libri deve essere aggiornato anche il
totale della sua spesa. Ho una tabella con tutti i dati anagrafici ed i
totali ed un altra coi titoli dei libri.
Attendo suggerimenti e ringrazio in anticipo.
Mi permetto di sottolineare come io sia uno studente in legge che svolge
obiezione di coscienza e, grazie alla mia passione per l'informatica, sia
stato incaricato di svolgere questo incarico. Quindi, per dirla tutta, so
che voul dire query o tabella, ma non so nulla di programmazione VB o SQL
(se non che esistono).


author: angelo azzurro

text:
"Kwijibo" <
spamlu...@supereva.itnospam.it
> ha scritto nel messaggio
news:eLDk8.25503$%g7.7...@twister2.libero.it...

Ciao studente che non sa niente di Vb e qunataltro, io sono un ragioniere
che non sa niente di Vb e quantaltro! a parte gli scherzi:
sicuramentele le due tabl  hanno delle relazioni, ebbene se perfezioni le
relazioni ed inserisci le integrità referenziali (ossia l'opzione aggiorna
ed elimina campi correlati a catena) ottieni che se cancelli il record
master si cancellano i dati collegati.
Poi senza impazzirti metti dei pulsanti fatti con la creazione guidata che
cancellino o l intero insieme dati (nella maschera) o solo u sotto record
( nella sottomschera)
Spero di averti dato qualche idea .
Ciao


author: Soggy Bottom Boy

text:
"Kwijibo" <
spamlu...@supereva.itnospam.it
> ha scritto nel messaggio
> Inoltre, se l'utente elimina uno o più libri deve essere aggiornato anche
il
> totale della sua spesa.
va da se', se il totale e' un controllo basato sul risultato di una query,
basta forzare un requery all'aggiornamento di un campo.


title: qry passtrough su MySQL

author: SunRex

text:
Dopo essermi importato la base dati su MySQL vi accedo tramite Access.Ho
convertito tutte le qry in qry passtrough.Funziona tutto alla grande (access
č veramente un animale) perň ho un problema.Vi faccio un esempio.Ho una frm
con una serie di record,posizionandomi su un record posso ,premendo un
pulsante aprire una popup con il record filtrato eseguendo
DoCmd.OpenForm ("frmModAnalisi"), , , "IDAnalisi = " & intAnalisi & ""
la popup č alimentata da una qry passtrough.Quando usavo solo access, quando
l'utente modificava dei dati ,intercettavo l'evento su Before Update e
chiedevo se voleva salvare le modifiche.Ora non č piů possibile perche il
record non č modificabile.
Come risolvo questo problema?
SunRex


title: qry passtrough su MySQL

author: Oscar Manfredini

text:
"SunRex"
> Dopo essermi importato la base dati su MySQL vi accedo tramite Access.Ho
> convertito tutte le qry in qry passtrough.Funziona tutto alla grande
(access
> è veramente un animale) però ho un problema.Vi faccio un esempio.Ho una
frm
> con una serie di record,posizionandomi su un record posso ,premendo un
> pulsante aprire una popup con il record filtrato eseguendo
>
> DoCmd.OpenForm ("frmModAnalisi"), , , "IDAnalisi = " & intAnalisi & ""
>
> la popup è alimentata da una qry passtrough.Quando usavo solo access,
quando
> l'utente modificava dei dati ,intercettavo l'evento su Before Update e
> chiedevo se voleva salvare le modifiche.Ora non è più possibile perche il
> record non è modificabile.
> Come risolvo questo problema?
Non usare query passtrough!
Ti consiglio di mappare con l'analizzatore di rete il comportamento del
codice sql standard: il driver odbc delega il più possibile
l'esecuzione al Server SQL ... contrariamente alle leggende popolari.
Saluti.


title: qry passtrough su MySQL

author: Alessandro Baraldi

text:
"SunRex" <
sunrexs...@hotmail.com
> wrote in message
news:sDgQe.111239$
fm.73...@news4.tin.it
> Dopo essermi importato la base dati su MySQL vi accedo tramite Access.Ho
> convertito tutte le qry in qry passtrough.Funziona tutto alla grande (access
> è veramente un animale) però ho un problema.Vi faccio un esempio.Ho una frm
> con una serie di record,posizionandomi su un record posso ,premendo un
> pulsante aprire una popup con il record filtrato eseguendo
>
> DoCmd.OpenForm ("frmModAnalisi"), , , "IDAnalisi = " & intAnalisi & ""
>
> la popup è alimentata da una qry passtrough.Quando usavo solo access, quando
> l'utente modificava dei dati ,intercettavo l'evento su Before Update e
> chiedevo se voleva salvare le modifiche.Ora non è più possibile perche il
> record non è modificabile.
> Come risolvo questo problema?
>
> SunRex
Scusa perchè hai modificato le Query in Q_PT...?
Quel tipo di Query non è modificabile, restituisce un
Recordset ReadOnly.
Usando un server SQL non ha sempre senso usare delle
Q_PT.
Tieniti le tue vecchie queries e lavora come facevi prima.
Fossi in te mi chiarirei bene le idee sull'uso delle Q_PT.
Nel tuo caso hanno più senso nel caso di Query_Actions non
di queries SELECT per l'iterazione con i dati.
Saluti.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: qry passtrough su MySQL

text:
"Oscar Manfredini" <
> Non usare query passtrough!
Ndr: mi riferisco chiaramente al codice SQL di selezione.
Con gli update è saggia cosa utilizzare il più possibile l'SQL del Server...
Ciao.


title: qry passtrough su MySQL

text:
"Oscar Manfredini" <
oscarnontelod...@arggggg.it
> ha scritto nel
messaggio news:C_gQe.34351$HM1.9...@twister1.libero.it...
>
> "SunRex"
>
> > Dopo essermi importato la base dati su MySQL vi accedo tramite Access.Ho
> > convertito tutte le qry in qry passtrough.Funziona tutto alla grande
> (access
> > č veramente un animale) perň ho un problema.Vi faccio un esempio.Ho una
> frm
> > con una serie di record,posizionandomi su un record posso ,premendo un
> > pulsante aprire una popup con il record filtrato eseguendo
> >
> > DoCmd.OpenForm ("frmModAnalisi"), , , "IDAnalisi = " & intAnalisi & ""
> >
> > la popup č alimentata da una qry passtrough.Quando usavo solo access,
> quando
> > l'utente modificava dei dati ,intercettavo l'evento su Before Update e
> > chiedevo se voleva salvare le modifiche.Ora non č piů possibile perche
il
> > record non č modificabile.
> > Come risolvo questo problema?
>
> Non usare query passtrough!
Si ma se non le uso e mi collego le tbl da mysql non perdo in pratica
il vantaggio di usare mysql?Nel senso che il lavoro lo farebbe tutto
access....o no?
SunRex
>
> Ti consiglio di mappare con l'analizzatore di rete il comportamento del
> codice sql standard: il driver odbc delega il piů possibile



title: qry passtrough su MySQL

text:
"SunRex"
> Si ma se non le uso e mi collego le tbl da mysql non perdo in pratica
> il vantaggio di usare mysql?Nel senso che il lavoro lo farebbe tutto
> access....o no?
Ripeto:
> > Ti consiglio di mappare con l'analizzatore di rete il comportamento del
> > codice sql standard: il driver odbc delega il piů possibile
> > l'esecuzione al Server SQL ... contrariamente alle leggende popolari.
Le cose stanno cosě con MS SQL Server, quindi non vedo perchč il driver ODBC
di MySQL dovrebbe comportarsi diversamente.
D'altra parte anche le documentazioni relative ad ODBC parlano chiaro:
http://support.microsoft.com/default.aspx?scid=kb;en-us;128808
Scarico il documento White paper.
Ciao.


title: [INFO] Istruzioni per l'uso di questo ng

author: Federico Luciani

text:
[INFO] Siete pregati di leggerlo - Istruzioni per l'uso di questo ng
----------------------------------------------------------------------------
             Come ci si dovrebbe comportare in un newsgroup
                    ovvero 'Istruzioni per l'uso'
----------------------------------------------------------------------------
Anche i newsgroups, come tutte le comunita' di esseri umani, hanno delle
regole la cui conoscenza e rispetto permette un proficuo utilizzo del ng
da
parte di tutti i partecipanti evitando incomprensioni, malintesi ed
inutili
polemiche.
Alcune regole sono generali e di elementare educazione, altre proprie di
questo gruppo di discussione cresciute e consolidate nel tempo
soprattutto
con il contributo dei frequentatori piu' anziani.
Premesso che
il ng e' gestito da 'volontari' che mettono a disposizione gratuitamente
il
proprio tempo, le proprie conoscenze e la loro professionalita' per
aiutare
chiunque, persone che spesso non conoscono e che dalle quali non
riceveranno
alcun compenso, per cui qualsiasi forma di pretesa o obbligo da parte di
chi
scrive sono decisamente fuori luogo:
- prima di inviare la propria richiesta provate a verificare se nei
messaggi
  dei giorni precedenti non siano gia' presenti delle soluzioni al
quesito
  che si vuole porre.
  Non e' il massimo delle figure fare una domanda a cui e' gia' stata
  data ampia ed esauriente risposta magari il giorno prima, di sicuro
  poi l'eventuale replica difficilmente potra' essere piu' completa.
  Volendo si possono effettuare anche delle ricerche nell'archivio
storico
  dei messaggi presso il Sito Comune di questo newsgroup:

http://www.sitocomune.com
  o in alternativa, presso il sito:

http://groups.google.com/advanced_group_search
- provate anche a verificare che i vostri dubbi e le relative soluzioni
non
  siano gia' presenti sul Sito Comune di questo newsgroup:

http://www.sitocomune.com
Se si decide comunque di scrivere al ng sarebbe bene tenere presente:
Il SUBJECT
-------------------
Nel scrivere l'oggetto del messaggio si dovrebbe dare maggiore
importanza
perche' contribuisce ad identificare immediatamente l'argomento e il
tipo di
problema, attirando subito l'attenzione di chi legge
Si sconsiglia di inserire subject insignificanti come:
  'AIUTO','URGENTE','PROBLEMA ACCESS', 'SOLO PER ESPERTI'
  'SONO PRINCIPIANTE', 'SONO DEFICENTE', 'come si fa...' ECC.,
nel marasma generale dei messaggi perdono visibilita'.
Ecco invece alcuni esempi da considerarsi corretti:
- Gestire il tasto Applica Filtro/Rimuovi Filtro
- Sincronizzare repliche via Internet con Access 2000
- Formattazione diversa per il solo record selezionato
- Come ricercare in una casella combinata
- Formato Numerico Nelle query
- Copia e incolla di piu' dati nello stesso campo
TESTO DEL MESSAGGIO
-------------------
Anche qui soprattutto nell'interesse di chi posta il messaggio, il suo
contenuto dovrebbe essere pensato e redatto con attenzione al fine di
evitare
la spedizione di messaggi incomprensibili, che non potranno avere
risposte
immediate soddisfacenti.
E' consigliabile indicare la versione di MSAccess a cui ci si riferisce
ed il sistema operativo utilizzato (A2/W95, A95/W98, A97/NT4, A00/W00).
Se dopo aver inviato un messaggio non si dovessero ricevere risposte si
puo'
provare a riformularla evitando pero' di assumere un tono polemico del
tipo
'Possibile che nessuno sappia come ...', 'Perche' non mi volete
rispondere'
I motivi per cui certi messaggi non ricevono risposte possono essere i
piu'
svariati dalla domanda mal posta, al fatto che nessuno effettivamente
abbia
una risposta da dare.
*Alcuni consigli per chi risponde*
- Scrivere dopo il quoting
Quando si replica (risponde) ad un messaggio si deve iniziare a scrivere
sempre dopo il testo del percedente.
Lasciare il contenuto del testo originario se breve, oppure riassumere
il
contenuto tagliano le parti meno significative, lasciando quelle piu'
interessanti per la comprensione del discorso.
- Non farsi coinvolgere in polemiche o con altri partecipanti e
eventuali
disaccordi sarebbe meglio proseguire in e-mail private.
Alcune richieste o comportamenti *sicuramente* non graditi in questo ng:
- chiedere di programmi per 'sproteggere' database e quindi
presumibilmente
  il lavoro di altre persone.
  Oltre a non essere moralmente corretto, e' illegale, inoltre,
considerando
  che in questo ng possono esserci persone che si guadagnano la
  pagnotta sviluppando programmi con access, non ci sembra corretto
  contribuire a diffondere questo, tipo di informazioni;
- richiedere risposte personalizzate al proprio indirizzo e-mail e'
contro
  lo spirito di questo ng in cui presuppone che tutte le domande e tutte
  le risposte debbano essere visibili perche' potrebbero interessare a
  tutti;
- contattare direttamente altri frequentatori del ng inviando richieste
di
  informazioni via e-mail, magari a quelli che sembrano piu' bravi e
piu'
  disponibili di tutti ad aiutare gli altri;
- chiedere del compilatore di access, semplicemente perche' non esiste,
  lo sanno anche i bambini ormai;
- chiedere l'invio di programmi gia' fatti con la scusa di dover
imparare,
  vedere, bla bla bla;
- inviare messaggi con pubblicita' commerciale anche se riferita
all'oggetto
  del ng. (ben vengano segnalazioni di siti o iniziative free che
parlano di
  access, anche se personali, ma il tutto deve sempre essere senza scopo
di
  lucro;
Alcune regole legate invece alla netiquette,
dove con il termine netiquette 'retichetta', si intende l'insieme di
regole nate col tempo per autoregolare il comportamento degli utenti
delle
news.
- EVITARE DI SCRIVERE IN MAIUSCOLO sia gli oggetti e soprattutto il
testo
dei
  messaggi che nelle regole equivale ad urlare;
- Scrivere in formato testo e non in HTML (quindi con formattazioni
varie).
  questo perche' non tutti i lettori di messaggi (newsreader)
visualizzano
  correttamente questo formato;
- Evitate le polemiche personali con gli altri partecipanti.
  Se proprio non potete farne a meno cercate di trasferirle in privato.
Alcuni link per chi volesse approfondire:
The Net: Guida per l'utente e Netiquette, di Arlene Rinaldi
http://www.inferentia.it/netiquette/
Etica e norme di buon uso dei servizi di rete
http://web.tiscalinet.it/enterprise_videotext/itamidi/netiquette/netiquettei
t.htm
ATTENZIONE
I successivi sono testi carichi d'ironia, cioe' sono suggerimenti da
EVITARE!
GALAMAILEO di John of the Homepage
http://www.geocities.com/bourbonstreet/9518/galamaileo.html
Cara Emily Postnews...
http://www.geocities.com/Athens/Parthenon/9704/galareteo.html
Grazie per la collaborazione
Questo documento e' stato redatto da Carlo VE
----------------------------------------------------------------------------
Alcune utili abbreviazioni (acronimi)
AFAIK      As Far As I Know
BTW        By The Way
CU         See You
CUL/CUL8R  See You Later
CUT        Taglio (quando non si riporta tutto il testo a cui si
risponde)
HTH        Hope This Helps
IMO        In My Opinion
IMHO       In My Humble Opinion
LOL        Laughing Out Loud
NEWBIE     Nuovo arrivato, persona nuova per il NG
NG         Newsgroup
OT         Off-Topic: fuori argomento
ROTFL      Rolling on the floor laughing
ROTFLASTC  Rolling on the floor laughing and scaring the cat
ROTFLMAO   Rolling on the floor laughing my ass off
RTFM       Read the fuckin' manual
SPAM       Messaggio pubblicitario fortemente OT, sui NG č assolutamente
vietato
TIA        Thanks In Advance
TROLL      Persona che vuole solo creare disturbo e scompiglio
ce ne sono tanti altri, li trovate qui:
http://www.acronymfinder.com
----------------------------------------------------------------------------


title: file danneggiato

author: Scossa

text:
Ho creato un database in ufficio dove inserisco tanti dati giornaliri.
tornato dalle ferie ho scoperto  che il mio collega ha fatto un
casino, non so neanche come ha fatto, resta il fatto che il database
non si apre più, appare sempre il messaggio file danneggiato compatta
e ripristina  il database per cercare di ripararlo, tuti i tentativi
sono vani, purtroppo l'ultima backup risale a due mesi fà.
Chi mi può aiutare?
Grazie a tutti
scossa.


title: file danneggiato

author: Carlo Costarella

text:
"Scossa" <
romani...@alice.it
> ha scritto nel messaggio
news:95040042-0b74-4a2c...@m1g2000yqo.googlegroups.com...

---------------------
Mandami il db danneggiato in formato zip.
Ciao, Carlo


title: file danneggiato

text:
On 16 Ago, 16:09, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Scossa" <
romanianto...@alice.it
> ha scritto nel messaggionews:95040042-0b74-4a2c...@m1g2000yqo.googlegroups.com...

Grazie Carlo, portroppo ci sono molti dati che non posso far uscire
dall'ufficio, ti sarei grato se mi indichi un buon programma
possibilmente gratis per il recupero dei file


title: file danneggiato

author: Karl Donaubauer

text:

Se hai provato tutti metodi di
www.donkarl.com/it?FAQ1.27
restano i servizi professionali. Trovi 3 indirizzi nella sezione

www.donkarl.com/it?FAQ9.3
.
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: file danneggiato

text:
"Scossa" <
romani...@alice.it
> ha scritto nel messaggio
news:8c12d500-f419-46b7...@t2g2000yqe.googlegroups.com...


-----------------------
Prego.
Il punto è che quei dati non esistono più!
Ci sono in rete molte ditte che fanno il recupero dei file mdb danneggiati,
per esempio:
http://www.riparafiles.it/index.php/File-Singoli/
Ci sono inoltre diversi programmi per il recupero dei file mdb ma, a mio
avviso, inutile tentare con programmi free.
Dalla mia esperienza ho sempre ottenuto buoni risultati con programmi a
pagamento.
Uno di questi è EasyRecovery Professional che trovi qui:
http://www.ontrackdatarecovery.it/
Ciao, Carlo