text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:br4e9q$4dr$1...@news.newsland.it...
> sunrex ha scritto:
>
> > Vorrei filtrare i valori di una combo presente in una sottomaschera che
fa
> > parte a sua volta di una struttura a schede
> > in base al valore presente su un campo di una frm principale
>
[CUT]
> > Finora ho provato a
>
[CUT]
> > Forzare il requery della frm nella struttura a schede dall'evento
current
> > della frm principale (non succede un cazzo)
>
> > Private Sub Form_Current()
>
> > Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.Requery
>
> Sembra che manchi soltanto il riferimento alla sottomaschera.
>
> Prova con:
>
>
Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.Form!MiaCombo.Requery
Funziona! ;)
Ma dico come cazzo ragiona Access?
Gli dai il riferimento alla maschera partendo dall'insieme Forms e poi
gli devi ridire che la combo ce l'ha sotto il naso?
Grazie cmq non ci sarei mai arrivato da solo.
SunRex


title: Ricerca su due controlli in sottomaschera

text:
ciao a tutti

Vorrei trovare su due controlli in sottomaschera a maschere continue,
il valore=0

Grazie.


text:

Non si cerca nei controlli, ma nei CAMPI dell'origine della Sottomaschera... usando il Metodo FindFirst membro di DAO.Recordset(nel tuo caso il RecordsetClone).

Poi se sei stato bravo ed i controlli si chiamano come i campi... hai finito.

@Alex


text:

grazie Alex


text:

    Dim rsCheck As DAO.Recordset

    Set rsCheck = SM_DettCarichi.Form.RecordsetClone

       rsCheck.FindFirst "Quantità=0"

        If Not rsCheck.NoMatch Then
          Me!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark
          Me!SM_DettCarichi.SetFocus
          Me!SM_DettCarichi.Form!Quantità.SetFocus
        End If

con uno ci sono, ma io devo
verificare anche il campo Prezzo=0.

con 2 campi come va fatto?
Grazie


title: data protetta

author: Massimo

text:
Ho creato un DB che  funziona come demo per 30gg dopo si blocca
automaticamente.
Il mio problema č questo.
Al momento della prima apertura, imposta la data corrente  in una tabella
che determina la durata ed l'inzio del conteggio dei 30gg.
Ad ogni avvio viene verificato la data impostata  con quella corrente,
passati i 30gg non permette piů di aprirsi a meno chč non si inserisca un
codice che si genera tra una combinazione tra la partta iva e la ragione
sociale.
Volevo chiedere č possibile far si che alla prima apertura del DB scriva
direttamente su codice questa data anzichč in una tabella in maniera che i
piů esperti non rovistino nelle tabelle con conseguente " CRAK" del DB ?
Saluti Massimo
NB se ci fosse un altro sistema alternativo " che ben Venga "
Di nuovo Massimo.


title: data protetta

author: Giorgio Valsangiacomo

text:
"Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
news:99lgvn$6s8$1...@lacerta.tiscalinet.it...
> Ho creato un DB che  funziona come demo per 30gg dopo si blocca
> automaticamente.
> Il mio problema è questo.
> Al momento della prima apertura, imposta la data corrente  in una tabella
> che determina la durata ed l'inzio del conteggio dei 30gg.
> Ad ogni avvio viene verificato la data impostata  con quella corrente,
> passati i 30gg non permette più di aprirsi a meno chè non si inserisca un
> codice che si genera tra una combinazione tra la partta iva e la ragione
> sociale.
> Volevo chiedere è possibile far si che alla prima apertura del DB scriva
> direttamente su codice questa data anzichè in una tabella in maniera che i
> più esperti non rovistino nelle tabelle con conseguente " CRAK" del DB ?
> Saluti Massimo
>
> NB se ci fosse un altro sistema alternativo " che ben Venga "
>
> Di nuovo Massimo.
>
Ciao,
utilizza questo Modulo di cui non mi ricordo l'autore per nascondere la
tabella, anche se metti nelle opzioni: mostra oggetti nascosti, non apparirà
le puoi mettere su apertura del Menu per esempio.
Function HideTbl(strTable As String, intHide As Integer) As Integer
'Nasconde o Mostra una tabella
'Accetta: intHide: True (-1) nasconde, False (0) rende visibile
'Ritorna: True se OK, False se errore
On Error GoTo HT_ERR
Dim TDef As TableDef, dbs As Database
Set dbs = CurrentDb
Set TDef = dbs.TableDefs(strTable)
Select Case intHide
Case True
If Not (TDef.Attributes And DB_HIDDENOBJECT) Then
TDef.Attributes = TDef.Attributes + DB_HIDDENOBJECT
End If
Case Else
If (TDef.Attributes And DB_HIDDENOBJECT) Then
TDef.Attributes = TDef.Attributes - DB_HIDDENOBJECT
End If
End Select
HideTbl = True
EXIT_HT:
Exit Function
HT_ERR:
HideTbl = False
MsgBox "Error: " & Err & " " & Error, 48
Resume EXIT_HT
End Function
poi su apertura Form mett: =HideTbl("Miatabella";-1)
spero ti sia d'aiuto
Giorgio


title: data protetta

text:
"Giorgio Valsangiacomo" <
es...@ticino.com
> ha scritto nel messaggio
news:99lq97$ee3$1...@news1.sunrise.ch...

Ci provo, penso che se riesco a farla funzionare sia la soluzione migliore
1000 grazie !!
Max


title: data protetta

text:

Ho provato ma non mi funziona, mi dà errore 13


title: data protetta

author: Joseph

text:
Massimo <
ron...@tin.it
> wrote in message
99n5ft$i96$1...@pegasus.tiscalinet.it...

> Ho provato ma non mi funziona, mi dŕ errore 13
>
>
>
Potresti pensare anche a questa soluzione, e cioč prevedere una funzione che
vada a vedere l'esistenza della tabella, e in caso negativo un bel quit
sull'applicazione. Cosě se qualcuno la toglie č peggio che andar di notte
 Ti riporto la funzione presa da
www.sitocomune.com
Ciao
Public Function esiste_tabella(nome_tab As String, _
           Optional nome_dbs) As Boolean
   'Autore: Lbo
   'Accetta:
   ' nome_tab = nome della tabella da cercare
   ' nome_dbs = [Opz.] percorso+nome del database in cui cercare
   'Restituisce: true se la tabella esiste
   Dim dbs As Database
   Dim tdf As TableDef
   If IsMissing(nome_dbs) Then
      nome_dbs = CurrentDb.Name
   End If
   Set dbs = DBEngine.Workspaces(0).Databases(nome_dbs)
   For Each tdf In dbs.TableDefs
      If tdf.Name = nome_tab Then
         esiste_tabella = True
         Exit Function
      End If
   Next tdf
   esiste_tabella = False
End Function


title: data protetta

text:
"Massimo" <
ron...@tin.it
> ha scritto nel messaggio
news:99n5ft$i96$1...@pegasus.tiscalinet.it...

Cioé tipo non corrispondente, strano... Hai messo al posto di Miatabella il
nome della tua tabella con la dta?
Ciao
Giorgio
>


title: data protetta

text:
> > > 1000 grazie !!
> > > Max
> > Ho provato ma non mi funziona, mi dà errore 13
> >
> Cioé tipo non corrispondente, strano... Hai messo al posto di Miatabella
il
> nome della tua tabella con la dta?
> Ciao
> Giorgio
> >
Ho scritto così   Call HideTbl(dati;-1)


title: data protetta

text:
"Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
news:99r35n$sgr$1...@lacerta.tiscalinet.it...

deve essere tra "" cioé: =HideTbl("dati";-1)
Ciao
Giorgio


title: data protetta

text:
"Giorgio Valsangiacomo" <
es...@ticino.com
> ha scritto nel messaggio
news:99r68d$q7h$1...@news1.sunrise.ch...

Già fatto  ma non mi va ugualmente


title: Conteggio tipologie nell'intestazione della maschera

author: Maicol

text:
Un saluto a tutti e ben ritrovati . Ho un quesito forse stupido ma che non
riesco a risolvere spero possiate aiutarmi .
Deve visualizzare i records relativi ai soggetti presenti in un certo
reparto.
es.  REparto     nome       codice      ecc.
Ho creato una query che cerca il reparto anche con una parte centrale della
descrizione perche' mi e' stato richiesto. Ovviamente puo' succedere che
nella maschera associata a tale query mi esce ,qualche volta anche il
personale di piu' reparti perche' magari nella descrizione di questi ultimi
c'e' qualche termine uguale utilizzato come parametro della query .
La domanda e' questa  :come faccio se per esempio mi escono quindici
impiegati appartenenti a tre diversi reparti a vedere in alto nella maschera
una cosa tipo :
trovati 3 reparti.
Sarebbe possibile nella maschera vedere al cambio di reparto uno "spazio"
come e' possibile nel report . Scusate la lunghezza ma temevo di riuscire a
spiegarmi anzi non so se ci sono riuscito.
Grazie a tutti.


author: Carlo Costarella

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:bH999.87670$n04.2...@twister2.libero.it...

Se la query che cerca il reparto con i criteri si chiama "CercaReparto"
questa SQL restituisce il numero di repart:
"SELECT Count(CercaReparto.Reparto) AS ContaReparti
FROM CercaReparto;" Salva la query con il nome "SQContaReparti".
In pratica Conta (conteggio) i reparti filtrati con la prima query.
...un dlookup restituisce il valore da inserire nell'intestazione della
maschera:
Me.MiaForm.Caption = "Reparti trovati: " &
dlookup("ContaReparti","SQContaReparti")
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:cBm99.92307$lu5.2...@twister1.libero.it...

Sono stato fuori per il week end, ho appena letto la tua risposta, ci provo
subito e ti ringrazio.
>
>
>


title: Collegamento tabelle

author: Nexus

text:
Salve a tutti,
forse pongo una domanda banale, ma non so come fare per risolvere il
seguente problema:
dispongo di due database A.mdb e B.mdb; A.mdb contiene la tabella A1 e B.mdb
la tabella B1.
Vorrei collegare la tabella A1 a B1 in modo che tutti i dati in B1 siano
correlati a quelli di A1, ma oltre a questo vorrei aggiungere degli
ulteriori campi solo in B1 senza che questa modifica abbia influenza su A1.
Si puň fare?
Grazie.
Nexus.


title: Creazione DB per dipendenti

author: Serpiko

text:
Salve ragazzi, sono alla gestione di una segreteria del personale ora
dovrei crearmi un DB dove metterci su tutti i dati di ogni singolo
dipendente tipo scheda personale con dati anagrafici ecc... poi a sua
volta per ogni singolo dipendete devo creare altri DB dove inserirci
altri capi tipo punteggi malattie ferie ecc..... e cosi via ora vorrei
sapere se esiste un DB gia pronto da modificare o se mi date una mano
nella realizzazione
Grazie mille
Carl


title: Creazione DB per dipendenti

author: Roberto da casa

text:
"Serpiko" <
pacc_e...@hotmail.com
> ha scritto nel messaggio
news:1148569220.2...@y43g2000cwc.googlegroups.com...
> Salve ragazzi, sono alla gestione di una segreteria del personale ora
> dovrei crearmi un DB dove metterci su tutti i dati di ogni singolo
> dipendente tipo scheda personale con dati anagrafici ecc... poi a sua
> volta per ogni singolo dipendete devo creare altri DB dove inserirci
> altri capi tipo punteggi malattie ferie ecc..... e cosi via ora vorrei
> sapere se esiste un DB gia pronto
Sicuramente esistono e si possono acquistare software per la gestione del
personale.
> da modificare
Normalmente quelli in commercio sono parametrizzabili alla bisogna.
> o se mi date una mano
> nella realizzazione
Questo lo devi decidere tu; se conosci sufficientemente Access questa č
sicuramente la soluzione piů preticabile in questo NG.
Resta il fatto che non dovrai realizzare tanti DataBase, ma un unico
database contenente piů tabelle, tra le quali quella contenente i dati
anagrafici ed un'altra che contiene i periodi di assenza con reltivo motivo.
>
>
> Grazie mille
Prego
>
> Carl
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Creazione DB per dipendenti

text:
Grazie mille roberto per la risposta
allora per la creazione del DB credo che c'è la posso fare solo che ho
dei dubbi su alcune formule del tipo le assenze  per esempio se io
manco dal 27/05/2006 fino al 30/05/2006 totale sono 4 giorni ora com'è
la formula per far capire al DB di calcolarmi 4 giorni?? dalla data di
inizio fino alla fine ??
Grazie mille
poi se ho altri dubbi ti contatto
scusami mica usi msn  cosi possiamo farlo istantaneo e ti faccio vedere
anche il mio lavoro cosi se manca qualche cosa puoi  darci tu
un'occhiata. il mio indirizzo di msn è
pacc_e...@hotmail.com
Ciao Carlo


title: Creazione DB per dipendenti

text:
"Serpiko" <
pacc_e...@hotmail.com
> ha scritto nel messaggio
news:1148731913....@j73g2000cwa.googlegroups.com...
>Grazie mille roberto per la risposta
>
>allora per la creazione del DB credo che c'è la posso fare solo che ho
>dei dubbi su alcune formule del tipo le assenze  per esempio se io
>manco dal 27/05/2006 fino al 30/05/2006 totale sono 4 giorni ora com'è
>la formula per far capire al DB di calcolarmi 4 giorni?? dalla data di
>inizio fino alla fine ??
Se i due campi che contengona le due date sono di tipo Data/ora, è
sufficiente che tu faccia una semplice differenza tra i due campi.
>
>
>Grazie mille
Prego
>
>poi se ho altri dubbi ti contatto
OK
>
>scusami mica usi msn  cosi possiamo farlo istantaneo e ti faccio vedere
>anche il mio lavoro cosi se manca qualche cosa puoi  darci tu
>un'occhiata. il mio indirizzo di msn è
>
pacc_e...@hotmail.com
No, sarebbe contro le regole di questo NG; se lo ritieni opportuno possiamo
continuare a dialogare solamente e pubblicamente su questo NG.
>
>Ciao Carlo



title: Creazione DB per dipendenti

text:
Nessun problema per me per discutere qui era solo per fare la cosa
istantanea, comunque si i campi sono data/ora ma non so come fare la
differenza trai i 2


title: Creazione DB per dipendenti

text:
"Serpiko" <
pacc_e...@hotmail.com
> ha scritto nel messaggio
news:1148936109....@j33g2000cwa.googlegroups.com...
> Nessun problema per me per discutere qui era solo per fare la cosa
> istantanea,
Lo scopo non č rendere istantanea la soluzione che ti serve, ma discutere
pubblicamente il tuo problema cosě che ne possano giovare anche altri
frequentatori che abbiano lo stesso problema.
> comunque si i campi sono data/ora ma non so come fare la
> differenza trai i 2
In una variabile di tipo Data/ora, in un campo calcolato di una query, in
una casella non associata di una maschera o di un report; penso che dovresti
sapere tu in che contesto ti interessa avere quel risultato.



title: query di aggiornamento

text:
>

> massimo19667 <
massim...@inwind.it
> wrote in message

> Z5W98.2323$Jo.5...@twister2.libero.it...

> >

> > >

> > Grazie Antonio, cortesemente puoi darmi qualche diritta i +?. Come devo

> > procedere per inserire quanto suggerisci?

> > Considera che la query di aggiornamento la faccio eseguire dall'interno di

> > un modulo con il comando DOCMD.OPENQUERY "QUERYAGGIORNAMENTO". Aggiungo

> che

> > nei vari tentativi sulla query sono andato in visualizzazione SQL e

> > nell'istruzione UPDATE ho tolto le virgolette alla variabile w_note

> (UPDATE

> > Tabella1 SET Tabella1.[note] = w_note;) col risultato che ora viene

> > interpretata come parametro per cui in esecuzione compare la maschera di

> > immissione del parametro che dovrei perıı eliminare.

>

> Ma scusa eh? Ma visto che sei giıı dentro il codice, ma scriviti la stringa

> SQL lıı dentro e ci metti il valore della variabile, poi la lanci con

> docmd.runsql

>

> Antonio

>

>

Hai perfettamente ragione, e' una procedura che non conoscevo e che ora ho appreso. Ti ringrazio, ciao Max.
------------------------------------------------------------------------
Questo messaggio e` stato inviato da
http://www.inwind.it


title: query di aggiornamento

text:
Vorrei con una query di aggiornamento portare all'euro un campo numerico di
una tabella dove ora i valori sono riferiti alle lire. Probabilmente questo
caso sarà stato sicuramente dibattuto nel ng ma guardando i post precedenti
non ho trovato nulla.
Potete indicarmi il codice SQL. Premetto di non essere utente poco esperto e
non ho mai fatto query di aggiormamento che comportano operazioni
matematiche.
Quesito 2
Ho letto in post precedenti della function per l'arrotondamento all'euro ma
ho anche letto che si poteva usare, inserendolo in un controllo, anche il
comando =ROUND(([nomecampo]/1936,27);2). Questo comando però nel mio A97 non
funziona, ne ho trovato niente sull'help. Sapete dirmi il perchè.
Marco


title: query di aggiornamento

author: Emyr

text:
On Fri, 15 Feb 2002 17:16:27 GMT, "maga58" <
mag...@libero.it
> wrote:
>Vorrei con una query di aggiornamento portare all'euro un campo numerico di
>una tabella dove ora i valori sono riferiti alle lire. Probabilmente questo
>caso sarà stato sicuramente dibattuto nel ng ma guardando i post precedenti
>non ho trovato nulla.
>Potete indicarmi il codice SQL. Premetto di non essere utente poco esperto e
>non ho mai fatto query di aggiormamento che comportano operazioni
>matematiche.
>
usa il generatore di query e selezione query di aggiornamento
in sql si usa UPDATE
>Quesito 2
>Ho letto in post precedenti della function per l'arrotondamento all'euro ma
>ho anche letto che si poteva usare, inserendolo in un controllo, anche il
>comando =ROUND(([nomecampo]/1936,27);2). Questo comando però nel mio A97 non
>funziona, ne ho trovato niente sull'help. Sapete dirmi il perchè.
non preoccuparti tanto come ha più volte spiegato Karl non funziona
correttamente....
>
>Marco
>
Saluti.
Emanuele.


title: query di aggiornamento

text:
Salve a Ng
Ho un db per degli ordini, quando ricevo consegne parziali ho bisogno, solo
per gli ordini in essere, di creare una maschera (continua) che mi mostri
tutti gli ordini in essere e mi permetta di modificare solo la cella
ricevuto.
Ho provato a creare una query di aggiornamento, ma questa non mi da
possibilità di creare una maschera e comunque per quello che faceva non
rispondeva alle mie esigenze.
Qualcuno sa aiutarmi?
Massimo


title: query di aggiornamento

text:
On Wed, 20 Feb 2002 15:04:50 +0100, "Massimo" <
cro...@worldonline.it
>
wrote:

crei una query di selezione appropriata e sulla maschera metti la
proprietà bloccato a si sui record che non vuoi modificare...
Saluti.
Emanuele.


title: Problema con MsXmlServer 4.0

text:
Salve,
sto cercando di recuperare dei valori con Access e VBA da un sito web
tramite XmlServer 4.0 ma a volte l'oggetto, tramite il metodo
.responseText, non mi restituisce nulla.
Vi allego il codice
************************************************************************************************************************************************************************************************************************
Option Compare Database
Private Sub ControllaDomini()
On Error GoTo Err_ControllaDomini

    DoCmd.Hourglass True

    Dim dbs As Database
    Dim rst As Recordset
    Dim strSQL As String

    Set dbs = CurrentDb()
    strSQL = "SELECT Domini.*, ServerWhois.strServer FROM Domini INNER
JOIN ServerWhois ON Domini.idServerWhois = ServerWhois.idServer;"
    Set rst = dbs.OpenRecordset(strSQL)

    If (rst.EOF) Then
        MsgBox "Nessun Record."
    Else
        While (Not (rst.EOF))
            If CDate(rst.Fields.Item("LastCheck").Value) <> CDate(Now)
Then
                strHtmlResponse = ""
                While strHtmlResponse = ""
                    strHtmlResponse =
GetDomainInfo(rst.Fields.Item("Dominio").Value,
rst.Fields.Item("strServer").Value)
                Wend
                rst.Edit
                rst.Fields.Item("DataRegistrazione").Value =
GetDomainDetail(strHtmlResponse, "creat")
                rst.Fields.Item("DataScadenza").Value =
GetDomainDetail(strHtmlResponse, "expir")
                If (rst.Fields.Item("DataRegistrazione").Value <>
"Unknown") _
                    And (rst.Fields.Item("DataScadenza").Value <>
"Unknown") Then
                        rst.Fields.Item("LastCheck").Value = Now()
                End If
                rst.Update
                DoCmd.Requery

            End If
            rst.MoveNext
        Wend
    End If
    ' Close the recordset and the database.
    rst.Close
    dbs.Close
Exit_ControllaDomini:
    DoCmd.Hourglass False
    Exit Sub
Err_ControllaDomini:
    MsgBox Err.Description
    Resume Exit_ControllaDomini

End Sub
    Function GetDomainInfo(strDomain, strServer)
        Dim serverXMLHTTP, sXMLStream

        Set serverXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")

        strURL = "
http://we.register.it/whoisit2.html?query=
" &
strDomain & "&server=" & strServer

        serverXMLHTTP.Open "GET", strURL, False
        serverXMLHTTP.Send

        If serverXMLHTTP.Status = 200 Then
            sXMLStream = serverXMLHTTP.responseText   ' Retrieve from
serverB.
        End If
        GetDomainInfo = sXMLStream
        serverXMLHTTP.abort
        Set serverXMLHTTP = Nothing

    End Function
    Function GetDomainDetail(strHtmlResponse, strParam)
        HTML_lines = Split(strHtmlResponse, vbLf)
        Dim strValue
        trov = False
        For i = LBound(HTML_lines) To UBound(HTML_lines)
            Line = Trim(HTML_lines(i))
            If InStr(Line, strParam) > 0 Then
               trov = True
               Exit For
            End If
        Next

        If trov Then
            Line = Trim(HTML_lines(i))
             strValue = Line
        End If

        If strValue = "" Then strValue = "Unknown"
        GetDomainDetail = strValue
    End Function
Private Sub Comando1_Click()
   Call ControllaDomini
End Sub
************************************************************************************************************************************************************************************************************************
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Scusate l'errore

author: gg

text: Scusate l'errore nell'oggetto del post precedente


title: Cancellare oggetti di un database esterno

author: Guido Rifesser

text:
Salve,
qualcuno mi sa dire come faccio a cancellare degli oggetti di un
database esterno. Ho provato con docmd.deleteobject pero non riesco a
fare il riferimento al database esterno.
Grazie in anticipo
gigi
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Karl Donaubauer

text:
Guido Rifesser ha scritto:
> qualcuno mi sa dire come faccio a cancellare degli oggetti di un
> database esterno. Ho provato con docmd.deleteobject pero non riesco a
> fare il riferimento al database esterno.
Vedi la mia risposta in dcdma un minuto fa.
--
;-)
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Come convertire le fatture in formato xml

author: Lo

text:
Salve a tutti,
in previsione delle nuove modifiche di legge che obbligheranno alla fatturazione elettronica anche fra privati, vorrei capire come fare a convertire i miei documenti in formato xml.
Non so proprio da che parte iniziare, se dal pdf, dalla maschera o da una query e poi cosa è necessario fare...
Sono proprio acerba e ignorante da questo punto di vista...
E' una cosa fattibile o bisogna essere un guru?
Qualcuno mi può illuminare?
Grazie mille per un vostro gentilissimo contributo.
Lo


author: RobertoA

text:

L'xml e' un file formato testo
Quindi puoi semplicemente aprire un file testo, con estensione xml, e ci
scrivi dentro, una roba del tipo:

num_file=freefile()
open nome_file for output as #num_file
print #num_file,"PRIMA RIGA DEL FILE XML"
print #num_file,"SECONDA RIGA DEL FILE XML"
print #num_file,"ULTIMA RIGA DEL FILE XML"
close num_file

Oppure vai di libreria xml (nei riferimenti devi avere il msxml60.dll),
ad esempio:

http://forum.masterdrive.it/microsoft-office-access-vba-23/vba-lettura-creazione-file-xml-40982/

Spero di averti 'illuminato'
E ciao


author: BFS

text:
Il 25/10/2017 16:01, Lo ha scritto:

qui trovvi tutte le specifiche tecniche
http://www.fatturapa.gov.it/export/fatturazione/it/normativa/f-2.htm

personalmente genero un file di testo direttamente leggendomi i dati
delle fatture

ultimamente per gli xml uso msxml60.dll che chiude i tag in automatico

ciao


text:

Ciao, io ho sempre usato il secondo sistema
Sono pero' sempre stato tentato dall'usare la scittura diretta del file
di testo per averne il pieno controllo
Tu li hai provati entrambi, puoi dirci quale sistema ritieni il millliore?


text:

diciamo che con la scrittura del file di testo ho fatto più errori di
distrazione con mancati tag non chiusi o con Maiuscole/Minuscole
usando la dll il codice risulta più pulito

ciao


text:

Grazie mille per le preziose informazioni anche se ancora non riesco a fare perfettamente mente locale. Negli esempi vedo i dati e non il nome del campo della maschera... o sbaglio? Non ho capito come faccio a dargli il nome del campo della mia maschera affinché mi prenda il valore di tale campo...
Chiedo venia per la mia ignoranza sulla lettura del codice xml...


author: Davide La Mantia

text:
Il giorno mercoledì 25 ottobre 2017 16:27:02 UTC+2, RobertoA ha scritto:
> Il 25/10/2017 16:01, Lo ha scritto:
CUT
>
> Oppure vai di libreria xml (nei riferimenti devi avere il msxml60.dll),
> ad esempio:
>
CUT

Onestamente usare le istruzioni di questa libreria mi sembra infinitamente più complicato che scrivere a mano i tag...

Ciao


text:

Si
Pero' e' anche quello un sistema
Poi usera' lui quello che piu' gli aggrada


title: Errore di accesso al percorso/file

author: Marco

text:
Salve a tutti
Uso Access XP. Ho verificato che, utilizzando la creazione guidata di un
report o di una maschera, arrivato all'ultimo passaggio (scelta del layout)
e premuto "avanti" la spia del disco fisso rimane accesa per un paio di
minuti e mi viene alla fine restituito il messaggio "Errore di accesso al
percorso file". Stesso messaggio mi si presenta cercando di creare un
database da un modello (ho provato con "Gestione ordini"). Il problema si
presenta insomma quando avvio una creazione guidata. Qualcuno sa darmi
qualche dritta?
Grazie.


title: Come caricare immagini su controlli di schermata continua ?

text:
Vorrei visualizzare su una schermata continua una serie di tasti o di
picturbox la cui immagine sia caricata dinamicamente in base ad un campo nel
db
Esempio, la mia riga contiene 10 tasti/picturebox, nel record attuale sono
presenti i campi FILE1, FILE2, FILExx, FILE10 che contengono il percorso per
arrivare all'immagine da visualizzare sui tasti/picturebox
Una schermata visualizza circa 5/6 record contemporaneamente e quindi 5/6
righe orizzontali da 10 immagini ognuna
Come fare per far caricare le picturebox o controlli ole in modo da
visualizzare le immagini il cui percorso e' memorizzato nei campi FILE1,
FILE2 .... di ogni record ?
Ciao e grazie
RobertoA


author: ALESSANDRO Baraldi

text:

Con A<2007 l'unico modo è quello di usare Campi OLE e trovi un'esempio in
questo Demo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=80
Con A2007 se non sbaglio supporta immagini in controlli Associati, quindi
dovrebb essere
semplice, basta salvare il Path come collegamento nel controllo associato.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
>> Vorrei visualizzare su una schermata continua una serie di tasti o di
>> picturbox la cui immagine sia caricata dinamicamente in base ad un campo
> nel
>> db
>> Esempio, la mia riga contiene 10 tasti/picturebox, nel record attuale
>> sono
>> presenti i campi FILE1, FILE2, FILExx, FILE10 che contengono il percorso
> per
>> arrivare all'immagine da visualizzare sui tasti/picturebox
>> Una schermata visualizza circa 5/6 record contemporaneamente e quindi 5/6
>> righe orizzontali da 10 immagini ognuna
>> Come fare per far caricare le picturebox o controlli ole in modo da
>> visualizzare le immagini il cui percorso e' memorizzato nei campi FILE1,
>> FILE2 .... di ogni record ?
>> Ciao e grazie
>> RobertoA
>
> Con A<2007 l'unico modo č quello di usare Campi OLE e trovi un'esempio in
> questo Demo:
>
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=80
>
> Con A2007 se non sbaglio supporta immagini in controlli Associati, quindi
> dovrebb essere
> semplice, basta salvare il Path come collegamento nel controllo associato.
Era proprio quello che mi serviva
Purtroppo pero' non riesco ad usare  il sistema via oggetto ole
Il db sul quale Acces lavora e', Firebird, via odbc
E pur avendo definito sul db il campo come blob, Access si rifiuta di
memorizzarci qualsiasi cosa, butta fuori un errore del tipo
"ERRORE DI COMUNICAZIONE CON IL SERVER OLE O CON IL CONTROLLO ACTIVEX"
Ho gia' provato a modificare tutte le impostazioni possibili sulla
definizione del campo (dimensione, charset, ...) ma niente
Ciao e grazie
RobertoA


text:
> Era proprio quello che mi serviva
> Purtroppo pero' non riesco ad usare  il sistema via oggetto ole
> Il db sul quale Acces lavora e', Firebird, via odbc
> E pur avendo definito sul db il campo come blob, Access si rifiuta di
> memorizzarci qualsiasi cosa, butta fuori un errore del tipo
> "ERRORE DI COMUNICAZIONE CON IL SERVER OLE O CON IL CONTROLLO ACTIVEX"
> Ho gia' provato a modificare tutte le impostazioni possibili sulla
> definizione del campo (dimensione, charset, ...) ma niente
> Ciao e grazie
> RobertoA
La stessa schermata, provata in collegamento su tabella importata dentro
Access, funziona correttamente
Quindi credo il problema sia sulla comunicazione tra Access ed il db, forse
il driver odbc


title: ALTER TABLE

author: Murisottero

text:
Buongiorno a tutti!
Ho la necessità di modificare le caratteristiche di un campo di una tabella.
Questo campo deve passare da "Duplicati non ammessi" a "No" nella sezione
Indicizzato. E' possibile effettuare questa modifica da SQL (ALTER
TABLE...)?
Grazie!
Alder


title: ALTER TABLE

author: Giorgio Prx

text:
"Murisottero" <
ald...@virgilio.it
> ha scritto nel messaggio
news:HSdOa.27778$xK6.7...@news1.tin.it...

Ciao Alder
Nel tuo caso non devi modificare un campo della tabella ma cancellare
l'indice relativo a quel campo quindi ....
Currentdb.Execute "DROP INDEX [NomeIndice] ON [NomeTabella]"
Se non l'hai cambiato [NomeIndice] di solito è uguale al nome del campo
indicizzato.
Ciao Giorgio.


title: ALTER TABLE

text:
Grazie mille!
Ciao e buona giornata.
Alder
"Giorgio Prx" <
giorgio...@tiscali.it
> ha scritto nel messaggio
news:bebs1g$pp4$1...@lacerta.tiscalinet.it...



title: Prestazioni

author: BiBi

text:
Le relazione devono essere salvate sul FE (dove ci sono i collegamenti
alle tebelle) o BE (dove ci sono veramente le tabelle) per ottimizzare
le prestazioni?
Stavo aggiungendo un modulo al mio FE che utilizza una nuova
tabbella.... dopo averla collegata verifico il collegamento aprendola
e mi accorgo che passano alcuni secondi prima di vedere la tabella
vuota aperta. Riprovo pensando che fosse causa di un eventuale
pesantezza di traffico di rete e verifico che passa + di 1 sec prima
di aprirla.... apro una tabella con 90.000 record... impiega lo stesso
tempo! Con il debuger vedo che l'unica cossa che  legge è la tabella
delle relazioni... per questo vi pongo la suddetta domanda.
Ciao bb


title: Mantenere le impostazioni di pagina

author: Salvatore Renzo Calabrese

text:
Non riesco a mantenere costanti le impostazioni di pagina dei reports quando
lavoro su PC diversi con lo stesso DB.
Come devo fare per non doverle reimpostare tutte le volte,
Grazie
--
Salvatore Renzo Calabrese
www.recal.it


title: Mantenere le impostazioni di pagina

text:
Salvatore Renzo Calabrese ha scritto:
> Non riesco a mantenere costanti le impostazioni di pagina dei reports
> quando lavoro su PC diversi con lo stesso DB.
> Come devo fare per non doverle reimpostare tutte le volte,
Manca la tua versione di Access. Spesso si tratta di A00 e
http://support.microsoft.com/?id=240826
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Mantenere le impostazioni di pagina

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:2hoajfF...@uni-berlin.de...

 Si tratta di Access 2000.
Grazie per le informazioni
--
Dott. Salvatore Renzo Calabrese
via Milano, 2
25126 Brescia
ITALY
www.recal.it


author: diego

text:
buona sera a tutto il ng, una spiegazione per favore, ho letto il
modulo publicato da AntonGal sul S.C. sezione General Faq 6.32 dal
titolo appunto "Rimuovere il pulsante di chiusura (X), il menu e i
pulsanti di ridimensionamento di Access."
mi aiutate a capire come va richiamata la funzione? non l'ho capito
proprio, in calce l'auore dice che la funzione va richiamata con
l'istruzione "LockAppWindow Screen.ActiveForm"
io non faccio altro che copiare ed incollare tutto il codice da lui
pubblicato in un modulo,
poi sull'evento Open di una form Splash passo la chiamata ma mi da il
messaggio d'errore "La maschera specificata nell'espressione immessa
deve essere la finestra attiva", ma che vuol dire?
Ho abche provato allo stesso modo con una form che nn si chiude, ma nn
cambia la sostanza.
Mi aiutereste a capire come si deve impostare?
Grazie
Saluti
Diego


title: Rimuovere il pulsante di chiusura (X), il menu e i pulsanti di ridimensionamento di Access.

author: ciroteo

text:

ciao a me piace di più questa soluzione proposta da karl
www.donkarl.com/it?FAQ1.12


author: Access

text:

Prova a richiamare listruzione cosi:
LockAppWindow forms!NomeTuaMaschera
--
Ciao
Access


text:
> Prova a richiamare listruzione cosi:
>
> LockAppWindow forms!NomeTuaMaschera
>
> --
> Ciao
funziona proprio così..Grazie a buon rendere spero


title: riferimento di un campo in una form ....

author: Alessia

text:
buongiorno a tutti .....
domanda stupidissima lo so, ma sembra che una cosa che ho fatto mille volte
oggi nn mi riesca, sbaglio io??????
Uso A2000
In una Form "Movimenti €" devo aggiungere il riferimento di un campo
"SommaEntrata" che si trova in un'altra Form "Entrata€"
io procedo in questo modo ....
= Forms![Entrata€]![SommaEntrata]
Access decide di cambiarla così:
=Maschere!Entrata€!SommaEntrata
ovviamente mi dà errore .....
Grazie ed a presto ....
Alessia
--
Posted from  [80.16.202.2]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Alex

text:
"Alessia" <
les...@hotmail.com
> wrote in message
news:4584c5ae52e341feaed...@mygate.mailgate.org...
> In una Form "Movimenti €" devo aggiungere il riferimento di un campo
> "SommaEntrata" che si trova in un'altra Form "Entrata€"
>
> io procedo in questo modo ....
>
> = Forms![Entrata€]![SommaEntrata]
>
> Access decide di cambiarla così:
>
> =Maschere!Entrata€!SommaEntrata
>
Mi sembrano corrette entrambe, in alternativa:
Forms("Entrata€").controls("SommaEntrata")
Mi viene il dubbio che tu debba spostare il Focus prima.....???
Mah.
Ciao @Alex
--
Posted from  [146.133.1.30]



author: Alessia Mucci

text:
>
> Mi sembrano corrette entrambe, in alternativa:
> Forms("Entrata€").controls("SommaEntrata")
>
> Mi viene il dubbio che tu debba spostare il Focus prima.....???
> Mah.
> Ciao @Alex
mah mah e mah, nn vuole funzionare .... ho provato anche ad aprire il DB da un
altro PC, nn si sa mai, niente ...
continua a darmi errore.
Altre idee????
grazie
Ale
--
Posted from  [80.16.202.2]



author: Roberto dal portatile

text:
"Alessia " <
les...@hotmail.com
> ha scritto nel messaggio
news:4584c5ae52e341feaed...@mygate.mailgate.org...
> buongiorno a tutti .....
> domanda stupidissima lo so, ma sembra che una cosa che ho fatto mille
volte
> oggi nn mi riesca, sbaglio io??????
> Uso A2000
>
> In una Form "Movimenti ?" devo aggiungere il riferimento di un campo
> "SommaEntrata" che si trova in un'altra Form "Entrata?"
>
> io procedo in questo modo ....
>
> = Forms![Entrata?]![SommaEntrata]
>
> Access decide di cambiarla così:
>
> =Maschere!Entrata?!SommaEntrata
>
> ovviamente mi dà errore .....
>
> Grazie ed a presto ....
>
> Alessia
>
>
Ti dà errore perché, usando il generatore di espressione, la parola Forms,
per un noto bug di A2000, viene convertita in Maschere.
Mi risultava però (non sono certo perché non uso A2000) che, se scrivi a
manina santa nell'origine controllo la frase  =
Forms![Entrata?]![SommaEntrata]  non dovresti avere problemi. Se invece il
problema c'é comunque, devi usare del codice VBA generato a fronte
dell'evento "su corrente" della maschera; se il controllo si chiama Pippo
prova con:
Me!Pippo = Forms![Entrata?]![SommaEntrata]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: cerco guru in zona

author: ciaccio

text:
devo realizzare, per uso personale, un database, in Office XP, abbastanza
semplice, secondo me, per la mia attività (sono un libero professionista).
Io sono capace a fare un minimo, creare tabelle, anche cose appena appena
più complesse. Ho un'idea su cosa voglio, ma la realizzazione, anche se la
presumo non così difficile, per me diventa problematica. Non è il mio
lavoro.
Quello che vorrei fare è trovare qualcuno, in zona geografica vicina a me,
con il quale consultarmi, che mi aiuti e mi risolva i problemi per me
insormontabili, e che anche per il futuro mi aiuti con eventuali problemi o
sviluppi ulteriori.
Non sto chiedendo aiuto gratuito, ma retribuito. Non posso-voglio impegnare
capitali, per ciò, ma comunque il lavoro verrebbe riconosciuto. E poi magari
ci potrebbero essere altri sviluppi, magari significativi anche
economicamente.
I particolari poi in privato, alla mia email:
luro...@libero.it
la zona: compresa tra Chivasso, Vercelli e Biella
Spero di trovare qualcuno. Inviatemi un'email e un numero di telefono, non
cellulare, per favore.
Grazie per l'attenzione


title: Inserire un carattere su una stringa

author: AMR-Giuseppe

text:
Ciao a tutti
Ho bisogno di inserire uno o più caratteri  in un valore
di un campo tramite una query di aggiornamento esempio:
il valore  00000035
deve diventare  000000,35
oppure  0,35
oppure  000,35
con questa funzione  "," & mid([Campo1];1)  riesco solo
a sostituire un carattere , mentre io vorrei proprio aggiungerlo
o all'inizio o in qualsiasi punto , non so che funzione usare
Aspetto un aiuto
Ciao e grazie anticipato
Giuseppe


title: Inserire un carattere su una stringa

author: Antonio Biso

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:rL60a.185745$AA2.7...@news2.tin.it...
> Ciao a tutti
>
> Ho bisogno di inserire uno o piů caratteri  in un valore
> di un campo tramite una query di aggiornamento esempio:
>
> il valore  00000035
> deve diventare  000000,35
> oppure  0,35
> oppure  000,35
>
> con questa funzione  "," & mid([Campo1];1)  riesco solo
> a sostituire un carattere , mentre io vorrei proprio aggiungerlo
> o all'inizio o in qualsiasi punto , non so che funzione usare
Sě, ma il criterio su dove inserire la , quale č?
La prima cifra diversa da 0?
Se cosě, devi farti una funzione:
function impizza (x as string) as string
dim i as integer
for i = 1 to len(x)
  if mid(x,i,1) <> "0" then
    exit for
  end if
next i
impizza = left(x,i-1) & "," & mid(x,i)
end function
Poi con la query metti in aggiornamento
impizza([campodaaggiornare])
Antonio


title: Inserire un carattere su una stringa

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:c170a.85258$ZE.23...@twister2.libero.it...



title: Inserire un carattere su una stringa

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:c170a.85258$ZE.23...@twister2.libero.it...
> "AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> news:rL60a.185745$AA2.7...@news2.tin.it...
> > Ciao a tutti
> >
> > Ho bisogno di inserire uno o più caratteri  in un valore
> > di un campo tramite una query di aggiornamento esempio:
> >
> > il valore  00000035
> > deve diventare  000000,35
> > oppure  0,35
> > oppure  000,35
> >
> > con questa funzione  "," & mid([Campo1];1)  riesco solo
> > a sostituire un carattere , mentre io vorrei proprio aggiungerlo
> > o all'inizio o in qualsiasi punto , non so che funzione usare
>
> Sì, ma il criterio su dove inserire la , quale è?
> La prima cifra diversa da 0?
> Se così, devi farti una funzione:
>
> function impizza (x as string) as string
> dim i as integer
> for i = 1 to len(x)
>   if mid(x,i,1) <> "0" then
>     exit for
>   end if
> next i
> impizza = left(x,i-1) & "," & mid(x,i)
> end function
>
> Poi con la query metti in aggiornamento
> impizza([campodaaggiornare])
>
> Antonio
>
Il criterio é  inserire la virgola  dopo due caratteri a partire da destra
es:  00000035   diventa   000000,35


title: Inserire un carattere su una stringa

author: Fabio

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:rL60a.185745$AA2.7...@news2.tin.it...

Suppongo ti arrivi una stringa formattata il cui significato è un numero in
cui ci sono 2 cifre decimali...
tanto per capirci un tipico output di valore "decimal" di un programma RPG
su AS400...
io molto semplicemente faccio così
Risultato = Val(Stringa) / 10^2
Chiaramente anzichè usare la potenza sul 10 sui può inserire 100 ma così
posso sostituire il 2 con una
variabile che indica il numero di decimali da ottenere.
ciao
Fabio


title: Inserire un carattere su una stringa

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:ai70a.185993$AA2.7...@news2.tin.it...
>
> > La prima cifra diversa da 0?
> > Se cosě, devi farti una funzione:
> >
> > function impizza (x as string) as string
> > dim i as integer
> > for i = 1 to len(x)
> >   if mid(x,i,1) <> "0" then
> >     exit for
> >   end if
> > next i
> > impizza = left(x,i-1) & "," & mid(x,i)
> > end function
> >
> > Poi con la query metti in aggiornamento
> > impizza([campodaaggiornare])
> >
> > Antonio
> >
>
> Il criterio é  inserire la virgola  dopo due caratteri a partire da destra
> es:  00000035   diventa   000000,35
Allora č piů semplice:
modifichi con
left([campo];len([campo])-2) & "," & right([campo];2)
Antonio


title: Inserire un carattere su una stringa

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:5z80a.84417$YG2.2...@twister1.libero.it...

Grazie funziona benissimo,
visto che ci siamo ti chiedevo  e  per  levarla ( la virgola o altro
carattere )
Ciao e grazie ancora
Giuseppe


title: Inserire un carattere su una stringa

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:Xfc0a.188300$AA2.7...@news2.tin.it...
>
> > left([campo];len([campo])-2) & "," & right([campo];2)
> >
> > Antonio
> >
> >
> Grazie funziona benissimo,
> visto che ci siamo ti chiedevo  e  per  levarla ( la virgola o altro
> carattere )
>
Se ce n'è una sola sfrutti la funzione instr, che ti da il numero di
posizione del carattere cercato nella stringa e con quello la ricostruisci
con le left e mid.
Lasciamo per esercizio al volenteroso lettore l'applicazione del consiglio
Antonio


title: Creazione Pannello di Comando

author: SuperPippo宰at Home

text:
Ciao...
è appena nato un DB... complimenti..direte voi. !! :-)
ed ora la mia necessità è quella di avere le idee chiare
per procedere...bene !!
Il Db anagrafico è composto da 2 tabelle in relazione 1>molti
con l'uso di una sottomaschera ...
il mio intento è creare le varie query di ricerca su tutto il DB
e chiaramente fare poi dei report di stampa...
pensavo di fare un pannello di comando in cui inserire dei
bottoni 1 per aprire la mask di inserimento dati
un altro bottone dovrebbe aprire una mask di Ricerca
ed un'altro una mask di Stampe..
il mio dubbio è come far eseguire le ricerche ... è possibile
sulla stessa maschera principale ???
è corretto il procedimento ?
ringrazio per l'aiuto...


title: Tanti campi in uno

author: Arturo Verde

text:
Salve,
ho un problema.
In un DB access per una biblioteca ho tre tabelle: TITOLO / AUTORE /
TITOLO - AUTORE (relazionata)
Un titolo può avere più autori, quindi voglio fare una query che dia 2
campi:
Campo1: titolo
Campo2: gli autori separati da virgole.
Qualcuno può aiutarmi?
Grazie.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.372 / Virus Database: 207 - Release Date: 20/06/2002


title: Tanti campi in uno

author: Roberto da casa

text:
"Arturo Verde" <artur...@xyzClanius.com> ha scritto nel messaggio
news:agehhp$em1$1...@lacerta.tiscalinet.it...
> Salve,
> ho un problema.
>
> In un DB access per una biblioteca ho tre tabelle: TITOLO / AUTORE /
> TITOLO - AUTORE (relazionata)
>
> Un titolo può avere più autori, quindi voglio fare una query che dia 2
> campi:
> Campo1: titolo
> Campo2: gli autori separati da virgole.
>
> Qualcuno può aiutarmi?
>
> Grazie.
>
Non credo con una query riesci ad ottenere ciò che vuoi.
Però puoi farlo creandoti una tabella di appoggio (tblAppoggio) in cui
registrare i risultati che desideri.
Se la tabella TITOLO ha una struttura simile a questa:
IDTitolo                Contatore e chiave primaria
Titolo                    Testo
ecc. ecc.
Se la tabella AUTORE ha una struttura simile a questa:
IDAutore                Contatore e chiave primaria
Autore                    Testo
ecc. ecc.
Se la tabella TITOLO_AUTORE ha una struttura simile a questa:
ID                            Contatore e chiave Primaria
IDTitolo                    Numerico
IDAutore                  Numerico
Se la tabella TITOLO_AUTORE è in relazione uno-a-molti con la tabella TITOLO
in base ai campi IDTitolo ed in relazione uno-a-molti con la tabella AUTORE
in base ai cami IDAutore.
Se la struttura della tabella tblAppoggio è la seguente:
IDTitolo                Numerico e Chiave primaria
Titolo                    Testo
Autori                    Testo
Puoi popolare la tabella tblAppoggio con il seguente codice VBA DAO:
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblAppoggio;"
DoCmd.SetWarnings True
Dim rstTitolo As Recordset
Dim rstTitolo_Autore As Recordset
Dim rstAppoggio As Recordset
Dim Autori As String
Set rstTitolo = CurrentDb.OpenRecordset("TITOLO")
Set rstTitolo_Autore = CurrentDb.OpenRecordset("TITOLO_AUTORE")
Set rstAppoggio = CurrentDb.OpenRecordset("tblAppoggio")
rstTitolo.MoveFirst
Do Until rstTitolo.EOF
    rstAppoggio.AddNew
    rstAppoggio!IDTitolo = rstTitolo!IDTitolo
    rstAppoggio!Titolo = rstTitolo!Titolo
    Autori = ""
    rstTitolo_Autore.MoveFirst
    Do Until rstTitolo_Autore.EOF
        If rstTitolo_Autore!IDTitolo = rstTitolo!IDTitolo Then
            Autori = Autori & DLookup("Autore", _
            "AUTORE", "IDAutore=" & rstTitolo_Autore!IDAutore) _
            & ", "
        End If
    rstTitolo_Autore.MoveNext
    Loop
    rstAppoggio!Autori = Left(Autori, Len(Autori) - 2)
    rstAppoggio.Update
    rstTitolo.MoveNext
Loop
Set rstTitolo = Nothing
Set rstTitolo_Autore = Nothing
Set rstAppoggio = Nothing
Se non usi Access97, ricordati di aggiungere nei riferimenti del tuo
database le librerie DAO, in maniera che nella lista dei riferimenti preceda
i riferimenti alle librerie ADO. Se non lo farai non funzionerà alcunché.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valore del campo

author: Mik Mark

text:
Io ho una casella combinata. Ho bisogno di visualizzare il valore del campo.
Però mi serve il valore non numerico (associato alla casella combinata) ma
il valore reale scelto dall'utente.
Cioè se nella casella ha tre valori, Nico, Tito, Gino; l'utente seleziona
NICO, io voglio visualizzare Nico e non "1".
        Io uso questo codice: me!nome.value che però mi dà il valore del
campo io ho bisogno del contenuto
Grazie
                Mik


title: Valore del campo

text:
"Mik Mark" <
marcheso...@trentino.net
> ha scritto nel messaggio
news:a7cs3d$dp3$1...@news.flashnet.it...

Sia la casella combinata che la query che è la sua origine riga debbono
avere due colonne: dichiara  a zero la larghezza della prima colonna (quella
che contiene l' "1", tanto per capirci); così facendo nella casella
combinata vedrai Nico e non "1".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valore del campo

author: ciakky

text:
Mik Mark wrote:
> Io ho una casella combinata. Ho bisogno di visualizzare il valore del campo.
> Perň mi serve il valore non numerico (associato alla casella combinata) ma
> il valore reale scelto dall'utente.
>
> Cioč se nella casella ha tre valori, Nico, Tito, Gino; l'utente seleziona
> NICO, io voglio visualizzare Nico e non "1".
>
>         Io uso questo codice: me!nome.value che perň mi dŕ il valore del
> campo io ho bisogno del contenuto
>
> Grazie
>                 Mik
>
>
>
usa un dlookup("campo_nomedeltizio", "Tabella che contiene i datidei
tizi","idcampo =" &me!nome.value


title: Passare criteri da una maschera a una query

author: Andrea

text:
Ciao a tutti,
scusate la mia ignoranza, ma vorre fare una maschera per inserire dei
criteri
da passare a una query in modo che questa abbia di volta in volta un
risultato diverso a seconda del filtro passato.
Quindi, avrei bisogno di sapere come posso passare a una query (magari
usando VBA) stringhe o valori numerici da usare come criteri di filtro
naturalmente negli opportuni campi.
Grazie
Andrea


author: pietro

text:
Prepari una maschera senza origine con i controlli che ti servono per
filtrare.
Nella query nei criteri del campo da filtrare devi mettere il riferimento
alla maschera che deve essere aperta nel momento di selezione.
Quindi nei criteri metti:
FORMS![maschera_xyz]![controllo_xyz]


author: Luciano

text:
Andrea ha scritto nel messaggio <8h3al1$o21$
2...@nslave2.tin.it
>...

Costruisci dinamicamente la tua stringa SQL in base lle selezioni da
maschera, poi la salvi come querydef oppure la passi direttamente come
recordsource della sottomaschera o dell'oggetto che usi per visualizzare il
risultato.
Oppure metti nella query dei filtri in base ai parametri cine hai in
maschera e fai un bel requery ad ogni aggiornamento.
Saluti.
Luciano


title: Maledette DATE : problema del valore NULL

author: cinzia

text:
Ciao,
ho il seguente problema.
Da un VB faccio delle INSERT TO in un DB access.
Se la data e` nella variabile tutto  ok.
Ma se il valore e` NULL mi da errore.
Allora ho pensato di modificare il campo Valido se ...
Gli ho messo IS NULL
in questo caso non mi accetta piu` le date.
Uffą!
Soluzioni...
Quindi riepilogando
DataNascita              Data/Ora   (gg/mm/aa)
Valido se  Is null
Come fo a dirgli che e` valido pure se e` una data?
Vanno bene anche altre soluzioni! :)
grazie a priori
Cinzia


text:
cinzia <
cinzia.ma...@tin.it
> wrote in message
8tbvpt$qok$1...@nslave3.tin.it...
> Ciao,
> ho il seguente problema.
> Da un VB faccio delle INSERT TO in un DB access.
> Se la data e` nella variabile tutto  ok.
> Ma se il valore e` NULL mi da errore.
> Allora ho pensato di modificare il campo Valido se ...
> Gli ho messo IS NULL
> in questo caso non mi accetta piu` le date.
> Uffà!
> Soluzioni...
> Quindi riepilogando
> DataNascita              Data/Ora   (gg/mm/aa)
> Valido se  Is null
> Come fo a dirgli che e` valido pure se e` una data?
> Vanno bene anche altre soluzioni! :)
Ma tu che vuoi fare?
Vuoi accettare un inserimento mancante della data o no?
Perchè se è così, ti basta schiaffarci una data di default se il valore è
null, altrimenti non fai andare avanti l'utente finchè non inserisce
qualcosa...
Altriemnti ancora lasci il campo null e poi, nelle successive elaborazioni,
gestirai il caso di campo null in qualche maniera...
Antonio


author: Tore Marche

text:
valido se =  is not null
devi testare il valore della data che non deve essere Null, quindi :
If IsNull(data) then
else
   insert .......................
end if
cinzia ha scritto:
> Ciao,
> ho il seguente problema.
> Da un VB faccio delle INSERT TO in un DB access.
> Se la data e` nella variabile tutto  ok.
> Ma se il valore e` NULL mi da errore.
> Allora ho pensato di modificare il campo Valido se ...
> Gli ho messo IS NULL
> in questo caso non mi accetta piu` le date.
> Uffà!



text:
Ciao,
grazie per le risposte, ma purtroppo non vorrei scrivere per le 5/6 date che
devo inserire codice che dice if not is null (data) else...
Volevo capire come poter sfruttare mejo quel campo valido se...
ovvero dirgli che e` valido se e` NULL oppure se e` una data.
Per la data prestabilita, non credo che sia un buon principio di
programmazione di base di date, anche se ti ringrazio per il suggerimento.
:) :) :)
A sto punto mi riduco a scrivere Nmila righe di codice "inutile" per dirgli
che se gli do null vuol dire che non lo voglio... ;)
Grazie a tutti e due. :)
A presto
Cinzia


text:
cinzia <
cinzia.ma...@tin.it
> wrote in message
8tc46n$28r$1...@nslave3.tin.it...
> Volevo capire come poter sfruttare mejo quel campo valido se...
> ovvero dirgli che e` valido se e` NULL oppure se e` una data.
Ma scusa eh? Se il controllo è associato ad un campo data automaticamente ti
accetta solo date e il fatto che uno lasci il campo vuoto no?
Qualunque altro controllo che tu voglia afre, lo devi fare esplicitamente da
codice...
> A sto punto mi riduco a scrivere Nmila righe di codice "inutile" per
dirgli
> che se gli do null vuol dire che non lo voglio... ;)
Il codice non è mai inutile!!!
Antonio


title: VBA: eliminazione tabella ODBC

author: ringo

text:
Il seguente codice sembra funzionare nel senso che non dà nessun
errore solo che non fa quello che dovrebbe fare:
eliminare una tabella di nome POL presente in un db mysql...
  strSQLDrop = "DROP TABLE IF EXISTS POL ;"
    strConnection =
"ODBC;DSN=sample-MySQL;DATABASE=sample_db;SERVER=10.176.14.80;PORT=3306;OPTI
ON=0;STMT=;;TABLE=POL"
    Dim dbs As DAO.Database
    Set dbs = CurrentDb
    Dim query1 As DAO.QueryDef
    Set query1 = dbs.CreateQueryDef("")
    With query1
        .Connect = strConnection
        .ODBCTimeout = 120
        .ReturnsRecords = False
        .SQL = strSQLDrop
        .Execute
    End With
qualcuno mi puo' dare una dritta?
grazie!
ringo


title: errore di run-time 3219

author: luigi onofrio

text:
ho un applicativo per la gestione di appuntamenti, ho modificato
Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non ricordo
chi) quando inserisco un appuntamento su click del pulsante "inserisci"
mi da il seguente errore di run-time 3219 - operazione non valida.
facendo il debug mi evidenzia giallo la seguente riga
Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
cause?
risoluzioni?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: errore di run-time 3219

author: MA

text:
luigi onofrio wrote:
> ho un applicativo per la gestione di appuntamenti, ho modificato
> Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non
> ricordo chi) quando inserisco un appuntamento su click del pulsante
> "inserisci" mi da il seguente errore di run-time 3219 - operazione
> non valida. facendo il debug mi evidenzia giallo la seguente riga
> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
>
> cause?
> risoluzioni?
>
> grazie
hai dichiarato il recordset rs come DAO.recordset?
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: errore di run-time 3219

text:
MA ha scritto:
> luigi onofrio wrote:
> > ho un applicativo per la gestione di appuntamenti, ho modificato
> > Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non
> > ricordo chi) quando inserisco un appuntamento su click del pulsante
> > "inserisci" mi da il seguente errore di run-time 3219 - operazione
> > non valida. facendo il debug mi evidenzia giallo la seguente riga
> > Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
> >
> > cause?
> > risoluzioni?
> >
> > grazie
> hai dichiarato il recordset rs come DAO.recordset?
dove? nei riferimenti?
si, non va bene? che devo fare?



title: errore di run-time 3219

author: sv

text:
luigi onofrio ha scritto:
> MA ha scritto:
> > luigi onofrio wrote:
> > > ho un applicativo per la gestione di appuntamenti, ho modificato
> > > Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non
> > > ricordo chi) quando inserisco un appuntamento su click del pulsante
> > > "inserisci" mi da il seguente errore di run-time 3219 - operazione
> > > non valida. facendo il debug mi evidenzia giallo la seguente riga
> > > Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
> > >
> > > cause?
> > > risoluzioni?
> > >
> > > grazie
> > hai dichiarato il recordset rs come DAO.recordset?
> dove? nei riferimenti?
> si, non va bene? che devo fare?
Ciao Luigi
Leggi un attimo qui:
http://support.microsoft.com/kb/208379/it
--
sv



title: errore di run-time 3219

author: Alessandro Baraldi

text:
luigi onofrio ha scritto:
> ho un applicativo per la gestione di appuntamenti, ho modificato
> Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non ricordo
> chi) quando inserisco un appuntamento su click del pulsante "inserisci"
> mi da il seguente errore di run-time 3219 - operazione non valida.
> facendo il debug mi evidenzia giallo la seguente riga
> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
>
> cause?
> risoluzioni?
>
> grazie
Credo sia il mio Demo....!
E' una Linked_Table nel tuo progetto...?
Prova ad usare il Tipo Dynaset...!
@Alex


title: errore di run-time 3219

text:
Alessandro Baraldi ha scritto:
> luigi onofrio ha scritto:




> @Alex
Alessandro! :-)) scusa la mia ignoranza, ma stai parlando ostrogoto per
me, se non mi spiegni più semplicemente, non capisco niente!
questo tipo dynaset cosa è e come lo metto in pratica?
grazie
anche se non rispondi, Auguri di buon natale!!!!



title: errore di run-time 3219

text:
luigi onofrio wrote:
> Alessandro Baraldi ha scritto:
>
>> luigi onofrio ha scritto:
>
>>> ho un applicativo per la gestione di appuntamenti, ho modificato
>>> Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non
>>> ricordo chi) quando inserisco un appuntamento su click del pulsante
>>> "inserisci" mi da il seguente errore di run-time 3219 - operazione
>>> non valida. facendo il debug mi evidenzia giallo la seguente riga
>>> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
>>>
>>> cause?
>>> risoluzioni?
>>>
>>> grazie
>
>
>> Credo sia il mio Demo....!
>
>> E' una Linked_Table nel tuo progetto...?
>
>> Prova ad usare il Tipo Dynaset...!
>
>> @Alex
>
> Alessandro! :-)) scusa la mia ignoranza,
Non sei ignaorante, si chiama proprio Alessandro...
> ma stai parlando ostrogoto
> per me, se non mi spiegni più semplicemente, non capisco niente!
> questo tipo dynaset cosa è e come lo metto in pratica?
sostituisci dbOpenTable con Dynaset
> grazie
> anche se non rispondi, Auguri di buon natale!!!!
--



title: errore di run-time 3219

author: Marco Antonioli

text:
"luigi onofrio" <
onofrio...@tin.it
> wrote in message
news:emb7sv$tlm$
1...@news.newsland.it
> ho un applicativo per la gestione di appuntamenti, ho modificato
> Form_agenda_lite scaricato dalla rete sul sito di uno di voi (non ricordo
> chi) quando inserisco un appuntamento su click del pulsante "inserisci"
> mi da il seguente errore di run-time 3219 - operazione non valida.
> facendo il debug mi evidenzia giallo la seguente riga
> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
>
> cause?
> risoluzioni?
>
> grazie
Come dice Alessandro credo sia la tabella collegata.
Prova a ricollegarla.
Strumenti/Utilità Database/Gestione Tabelle Collegate
Ciao
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errore di run-time 3219

text:
MA ha scritto:



> sostituisci dbOpenTable con Dynaset

ho provato ma adesso mi da errore "2466" - riferimento alla proprietà
Dynaset non valido nell'espressione.
poi ho notato che se le tabelle sono incorporate nel DB, funziona
perfettamente con il codice originale (con DBopentable) mentre se divido
il DB in BE e FE, mettendo il BE sul server centrale, mi da l'errore 3219
con dbopentable e l'errore 2466 con dynaset.



title: errore di run-time 3219

text:
Marco Antonioli ha scritto:



ci ho provato, gli ho riassegnato il percorso, ma fa la stessa cosa.
se apro la tabella collegata posta sul server, si apre normalmente



title: errore di run-time 3219

text:
luigi onofrio ha scritto:

Devi anche leggere l'Help e non andare a tentoni....!
dbOpenTable è un parametro da assegnare al Type di Recordset, se
guardi l'Help vedrai che è possibile assegnare altri parametri, certo
che se hai messo Dynaset non andrà mai perchè
non esiste, dovrai fare lo sforzo di leggere l'help ed il nome delle
costanti assegnate al DataType ed usare quella giusta....!!!
@Alex


title: errore di run-time 3219

author: Karl Donaubauer

text:
luigi onofrio wrote:
> MA ha scritto:
> ...
>>>>> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
> ...
>> sostituisci dbOpenTable con Dynaset
>
> ho provato ma adesso mi da errore "2466" - riferimento alla proprietą
> Dynaset non valido nell'espressione.
>...
Sostituisci dbOpenTable con dbOpenDynaset.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: errore di run-time 3219

text:
Karl Donaubauer ha scritto:
> luigi onofrio wrote:
> > MA ha scritto:
> > ...
> >>>>> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
> > ...
> >> sostituisci dbOpenTable con Dynaset
> >
> > ho provato ma adesso mi da errore "2466" - riferimento alla proprietà
> > Dynaset non valido nell'espressione.
> >...
> Sostituisci dbOpenTable con dbOpenDynaset.
Grazie Karl!  funziona!
nella guida in linea alla voce dbOpenDynaset vi è la seguente spiegazione:
Apre un oggetto Recordset di tipo dynaset simile a una tabella del set di
record corrente di tipo keyset di ODBC.
mentre alla voce dbOpenTable vi è la seguente spiegazione:
Apre un oggetto Recordset di tipo tabella. Solo per le aree di lavoro di
Microsoft Jet.
E devo dire la verità, io non ci ho capito niente!
non ci avrei mai arrivato alla soluzione che il difetto dipende dalla
divisione del DB in BE e FE con il BE sito in un altro PC/server (ai
voglia di dire Alex di leggere la guida in linea!, non ci avrei mai
arrivato! almeno io, che non ho la cultura di alex)
Grazie karl  e Auguri di buon natale!
luigi



title: errore di run-time 3219

text:
luigi onofrio wrote:
> Karl Donaubauer ha scritto:
>>> ...
>>>>>>> Set rs = CurrentDb.OpenRecordset("tblAppuntamenti", dbOpenTable)
>>> ...
>> Sostituisci dbOpenTable con dbOpenDynaset.
>
> Grazie Karl!  funziona!
> nella guida in linea alla voce dbOpenDynaset vi è la seguente
> spiegazione: Apre un oggetto Recordset di tipo dynaset simile a una
> tabella del set di record corrente di tipo keyset di ODBC.
> mentre alla voce dbOpenTable vi è la seguente spiegazione:
> Apre un oggetto Recordset di tipo tabella. Solo per le aree di lavoro
> di Microsoft Jet.
> E devo dire la verità, io non ci ho capito niente!
> ...
La KB è un po' più chiaro:
http://support.microsoft.com/kb/138769/it
Mi piace il titolo creato dalla macchina di traduzione:
"Impossibile ACC:..."!
--
:-)



title: errore di run-time 3219

text:
Karl Donaubauer wrote:
> ...La KB è un po' più chiaro...
*grrr*
Dopo tanti anni ho letto che la maggioranza scrive _la_ KB
e poi questo stupido sbaglio: chiaro --> chiara


title: Ordinamento

author: EUROPSAN

text:
Salve ragazzi ho un quesito da porvi:
In un report posso ordine i record in base ad un campo calcolato nel report
stesso ?
Grazie
Gian Luca
--


title: Ordinamento

author: Antonio Biso

text:
EUROPSAN <
in...@europsan.it
> wrote in message
sASe6.5658$092....@twister1.tin.it...
> Salve ragazzi ho un quesito da porvi:
>
> In un report posso ordine i record in base ad un campo calcolato nel
report
> stesso ?
Sě, andando nella finestra ordinamento e raggruppamento
Antonio


title: Ordinamento

author: Lbo

text:
>In un report posso ordine i record in base ad un campo calcolato nel report
>stesso ?
crea una query in cui sia inclusa un'espressione simile al campo
calcolato sul report, ordina la query in base a quell'espressione e
usala come sorgente dato del report.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: aspettare il caricamento dei record in una maschera ADP - MSDE

author: Sib

text:
Ciao a tutti,
ho il problema di aspettare che la maschera carichi tutti i record dopo un
requery da codice prima di proseguire, qual e' il modo piu' semplice e
corretto?
poi ho un altro piccolo problema, ho una maschera che viene aperta filtrata,
e ogni volta che inserisco un record mi dice che il record e' stato inserito
ma non lo mostra perche' non corrisponde ai criteri, ed effettivamente non
lo motra. Inutile dire che invece il record corrisponde perfettamente ai
criteri tanto e' vero che se chiudo e riapro la maschera con lo stesso
filtro il record inserito magicamente compare, un bel fastidio. Cosa posso
fare?
Grazie a tutti
Ciao
Sib


author: skizzato

text:

Per la prima domanda non mi è chiaro, ma se Access sta caricando i dati
mica puoi interromperlo o no?
Per la seconda, credo sia sufficiente fare il Tua_Form.requery
sull'evento click (? se usi un pulsante) con cui inserisci il record.


text:
"skizzato" <
skiz...@libero.it
> ha scritto nel messaggio
> Sib wrote:
> > ho il problema di aspettare che la maschera carichi tutti i record dopo
un
> > requery da codice prima di proseguire, qual e' il modo piu' semplice e
> > corretto?
> > poi ho un altro piccolo problema, ho una maschera che viene aperta
filtrata,
> > e ogni volta che inserisco un record mi dice che il record e' stato
inserito
> > ma non lo mostra perche' non corrisponde ai criteri, ed effettivamente
non
> > lo motra. Inutile dire che invece il record corrisponde perfettamente ai
> > criteri tanto e' vero che se chiudo e riapro la maschera con lo stesso
> > filtro il record inserito magicamente compare, un bel fastidio. Cosa
posso
> > fare?
>
> Per la prima domanda non mi è chiaro, ma se Access sta caricando i dati
> mica puoi interromperlo o no?
Forse non mi sono spiegato bene.
negli adp il caricamento della maschera non arresta ne l'utente ne'
l'esecuzione del codice.
in pratica mentre continui a lavorare, nel frattempo access si carica i
record.
ora se nel mio codice faccio un requery, access inizia a caricare i record,
ma siccome il codice prosegue con una funzione di ricerca tra i record della
maschera, non trova il record che dovrebbe esserci perche' non l'ha ancora
caricato.
Io vorrei aspettare (da codice) che access finisca di caricare i record per
poi proseguire.
> Per la seconda, credo sia sufficiente fare il Tua_Form.requery
> sull'evento click (? se usi un pulsante) con cui inserisci il record.
Questo non impedisce la visualizzazione del messaggio (sbagliato tra
l'altro)
Ciao
Sib


author: Giorgio prx

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:n65Ba.10754$g92.2...@news2.tin.it...

Ciao Sib
Per risolvere i due problemi che esponi io utilizzo questo metodo:
1 ) Creare una funzione in un modulo BAS che restituisce il recordset.
--------------------------------------
Function Apri_Tb(ByVal Nome_Tb) As ADODB.Recordset
    Dim Tb1 As ADODB.Recordset
    Dim Cn As ADODB.Connection
    Set Tb1 = New ADODB.Recordset
    Set Cn = CurrentProject.Connection
    Cn.CommandTimeout = 0
    Tb1.CursorLocation = adUseClient
    '------ Il Tipo di cursore adUseClient carica tutti i recordset sul lato
client
    Tb1.LockType = adLockOptimistic
    Tb1.Open Nome_Tb, Cn
    Set Apri_Tb = Tb1
    Set Tb1 = Nothing
    Set Cn = Nothing
End Function
---------------------------------------
2) Ammettiamo di utilizzare il form dei clienti dove nella proprietà
RecordSource c'è
    SELECT * From Clienti WHERE ...... Order By ....
    Sostituisci la select con
    SELECT TOP 0 * From Clienti
    In questo modo in fase di apertura non verranno inviati record al form e
in fase di progettazione vedi i nomi dei campi nelle proprietà origine
controllo.
    Nel form dichiari la variabile
--------------------------------------
    Dim Rs As ADODB.Recordset      'Recordset x origine record del form
--------------------------------------
    E nell'evento Form_Load() inserisci ...
---------------------------------------
    Set Rs = Apri_Tb("SELECT * FROM Clienti WHERE .....  Order By ....")
    Set Me.Recordset = Rs
---------------------------------------
Questo metodo è valido solo per i form principali e non per i subform che
hanno altre problematiche.
Ciao Giorgio.


text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > Ciao a tutti,
> > ho il problema di aspettare che la maschera carichi tutti i record dopo
un
> > requery da codice prima di proseguire, qual e' il modo piu' semplice e
> > corretto?
> > poi ho un altro piccolo problema, ho una maschera che viene aperta
> filtrata,
> > e ogni volta che inserisco un record mi dice che il record e' stato
> inserito
> > ma non lo mostra perche' non corrisponde ai criteri, ed effettivamente
non
> > lo motra. Inutile dire che invece il record corrisponde perfettamente ai
> > criteri tanto e' vero che se chiudo e riapro la maschera con lo stesso
> > filtro il record inserito magicamente compare, un bel fastidio. Cosa
posso
> > fare?
> Per risolvere i due problemi che esponi io utilizzo questo metodo:
>
> 1 ) Creare una funzione in un modulo BAS che restituisce il recordset.
>
> --------------------------------------
> Function Apri_Tb(ByVal Nome_Tb) As ADODB.Recordset
>
>     Dim Tb1 As ADODB.Recordset
>     Dim Cn As ADODB.Connection
>     Set Tb1 = New ADODB.Recordset
>     Set Cn = CurrentProject.Connection
>     Cn.CommandTimeout = 0
>     Tb1.CursorLocation = adUseClient
>     '------ Il Tipo di cursore adUseClient carica tutti i recordset sul
lato
> client
>     Tb1.LockType = adLockOptimistic
>     Tb1.Open Nome_Tb, Cn
>     Set Apri_Tb = Tb1
>     Set Tb1 = Nothing
>     Set Cn = Nothing
>
> End Function
> ---------------------------------------
e' un artificio interessante, ma io speravo che ci fosse un'istruzione
specifica capace di attendere il caricamento del recordset nella maschera.
> 2) Ammettiamo di utilizzare il form dei clienti dove nella proprietą
> RecordSource c'č
>     SELECT * From Clienti WHERE ...... Order By ....
>     Sostituisci la select con
>     SELECT TOP 0 * From Clienti
>     In questo modo in fase di apertura non verranno inviati record al form
e
> in fase di progettazione vedi i nomi dei campi nelle proprietą origine
> controllo.
>
>     Nel form dichiari la variabile
> --------------------------------------
>     Dim Rs As ADODB.Recordset      'Recordset x origine record del form
> --------------------------------------
>     E nell'evento Form_Load() inserisci ...
> ---------------------------------------
>     Set Rs = Apri_Tb("SELECT * FROM Clienti WHERE .....  Order By ....")
>     Set Me.Recordset = Rs
> ---------------------------------------
in che modo questo evita la visualizzazione del messaggio quando inserisco
un record?
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:xXpBa.19967$g92.4...@news2.tin.it...
> "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > > Ciao a tutti,
>
> in che modo questo evita la visualizzazione del messaggio quando inserisco
> un record?
>
> Sib
Ciao Sib
A mio parere c'è un bug nelle maschere dei progetti ADP dove in presenza del
filtro WHERE passano al server l'opzione
WITH CHECK OPTION (vedi book on line di Sql Server) o proprietà della vista.
Opzione che non viene passata con l'apertura di un recordset via VBA.
Ciao Giorgio.


text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > > "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > > > Ciao a tutti,
>
> >
> > in che modo questo evita la visualizzazione del messaggio quando
inserisco
> > un record?
> >
> > Sib
>
> Ciao Sib
> A mio parere c'è un bug nelle maschere dei progetti ADP dove in presenza
del
> filtro WHERE passano al server l'opzione
> WITH CHECK OPTION (vedi book on line di Sql Server) o proprietà della
vista.
>
> Opzione che non viene passata con l'apertura di un recordset via VBA.
Capisco,
questo pero' non spiega ancora la cosa perche' il record che inserisco
rispetta perfettamente il filtro impostato.
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:tvFBa.25359$g92.5...@news2.tin.it...

Ciao Sib
Non saprei cosa dirti, non ho mai approfondito il problema in quanto ho solo
una maschera che lavora caricando tutto il recordset (circa una ventina di
record) dal server per tutte le altre (nella prospettiva di lavorare con
reti lente tipo Vpn ecc.) prelevo solo un record alla volta tramite pulsanti
di spostamento personalizzati.
Ciao Giorgio.


text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
cut
> > Capisco,
> > questo pero' non spiega ancora la cosa perche' il record che inserisco
> > rispetta perfettamente il filtro impostato.
> >
> > Sib
> >
>
> Ciao Sib
> Non saprei cosa dirti, non ho mai approfondito il problema in quanto ho
solo
> una maschera che lavora caricando tutto il recordset (circa una ventina di
> record) dal server per tutte le altre (nella prospettiva di lavorare con
> reti lente tipo Vpn ecc.) prelevo solo un record alla volta tramite
pulsanti
> di spostamento personalizzati.
>
> Ciao Giorgio.
Certo il tuo e' un buon metodo, soprattutto nel caso che descrivi.
Io in effetti ho adottato l'architettura degli adp piu' per un problema di
solidita' che di prestazioni.
grazie lo stesso.
Ciao
Sib


title: DLookUp e DCount con ADO

author: Fabio

text:
Ciao a tutti, riposto una domanda alla quale non ho avuto ancora risposta
anche perchč adesso ho qualche indicazione in piů.
Sto convertendo un programma dal formato "mdb" a "adp" usando ADO per
l'accesso ai dati a un server MSDE.
Ho notato che se in una maschera ci sono dei controlli calcolati che usano
funzioni tipo DCount o DLookUp oppure se uso queste funzioni anche
nell'evento SuCorrente del Form la maschera si pianta in apertura e mi manda
in crash il sistema.
Appena tolgo questi controlli tutto funziona regolarmente.
Ho provato anche in altri PC e il problema č matematico sotto Win98 mentre
con Win2k o WinXP funziona tranquillamente senza modificare niente!!
Ciao e grazie, FABIO
PS: Accetto qualsiasi risposta anche se mi dite che non ne avete la piů
pallida idea o anche se mi consigliate di abbandonare l professione per
dedicarmi alla cultura della canna da zucchero nel Sahara...


title: DLookUp e DCount con ADO


title: importazione di un file .dbf

author: Nicola

text:
avrei bisogno di importare un file dbf in modo automatico senza l'uso
di FILE IMPORTA, magari tramite un tasto posto su una maschera popup.
tra i omandi di vb e le macro nn ho trovato nulla di utile, sapete
consigliarmi?
grazie a tutti
Nicola


title: importazione di un file .dbf

author: Alessandro Cara

text:

proprio certo di non aver trovato nulla. Prova a cercare TransferText sull'help
dall'help:
DoCmd.TransferText [tipotrasferimento][, nomefilespecifiche], nometabella,
nomefile[, nomicampo][, nometabellaHTML][, tabellacodici]
--
a.cara
Togli qualcosa dall'email


title: importazione di un file .dbf

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3F6C305B...@blunet.it...

ho seguito il tuo consiglio, mi son visto per bene il comando in questione,
solo che la tabella non viene importata in quanto mi dice DI SOLA LETTURA.
ci sono metodi alternativi?
grazie per la risposta
Nicola


title: importazione di un file .dbf

author: Harry Evans

text:
> > > avrei bisogno di importare un file dbf in modo automatico senza l'uso
> > > di FILE IMPORTA, magari tramite un tasto posto su una maschera popup.
> > > tra i omandi di vb e le macro nn ho trovato nulla di utile, sapete
> > > consigliarmi?
> > proprio certo di non aver trovato nulla. Prova a cercare TransferText
> sull'help
> > dall'help:
> > DoCmd.TransferText [tipotrasferimento][, nomefilespecifiche],
nometabella,
> > nomefile[, nomicampo][, nometabellaHTML][, tabellacodici]
> ho seguito il tuo consiglio, mi son visto per bene il comando in
questione,
> solo che la tabella non viene importata in quanto mi dice DI SOLA LETTURA.
> ci sono metodi alternativi?
Se il dbf è è sempre lo stesso e si tratta di importalo periodicamente, puoi
collegarlo all'mdb e quando hai bisogno lo tratti come una normale tabella.
Il fatto che ti dica di sola lettura potrebbe essere perchè il dbf è su un
cd o è stato copiato da un cd con gestione risorse (e quindi mantiene
l'attributo di sola lettura), anche se penso che dovrebbe essere importabile
comunque.


title: importazione di un file .dbf

text:
"Harry Evans" <
harry.ev...@tin.it
> ha scritto nel messaggio
news:3p1cb.150696$R32.4...@news2.tin.it...

no lo creo da HD quindi non è di sola lettura, forse dipende dal fatto ke
non ho installato il programma DB che gestisce questo tipo di file.
Nicola


title: errore run time 2452

author: stwe

text:
mistero oggi non funziona più una maschera stupida per il calendario, mi
genera l'errore 2452 che non ho trovato da nessuna parte...
e mi restituisce il seguente codice:
Private Function LoadedAsSubForm()
    Dim strName As String
    On Error Resume Next
    ' This action will trigger a runtime
    ' error if the form isn't loaded as a subform.
=>    strName =
Me.Parent.Name
    LoadedAsSubForm = (Err.Number = 0)
    Err.Clear
End Function
=> è il punto indicato da VB
altra cosa strana è che in una versione precedente del db funziona, stessi
riferimenti alle librerie, stesso codice e stessa maschera (tutto preso dal
manuale del programmatore di access 2000)
grazie per l'eventuale interessamento
by
stwe


title: Immagini alternate campo maschera

author: micpis

text:
Salve, vorrei realizzare una sorta di animazione alternando in un campo di una maschera la visualizzazione di due immagini .png.
In poche parole a seguito dell'azione su attivato in uno specifico campo X vorrei far visualizzare in un'altro campo Y, della maschera in questione, una volta l'immagine 1 e dopo un paio di secondi l'immagine 2 all'infinito fin tanto che non esco dal campo X.
Un grazie in anticipo agli amici della NG.
Saluti Michele


title: Immagini alternate campo maschera

text:
Se attivi il controllo attivi il TimerInterval e su evento Timer cambi le immagini...
Ovviamente devi farlo sia su dopo aggiornamento di quel controllo che su evento Current di Maschera.

Chiaramente solo in maschera singola.

Il codice lo provi a scrivere tu...

@ALEX


title: Immagini alternate campo maschera

text:

Accidenti scusa Alex, ho appunto dimenticato un particolare, il controllo su attivato è in una sotto maschera mentre il campo dove vorrei far comparire le immagini è nella maschera principale.
In questo caso è sempre valido il tuo consiglio.
Grazie
Michele


title: problema collegamento

author: Francesco

text:
In un piccola database che ho cercato di costruire o inserito la funzione
presente nel Sito comune per collegare le tabelle alle maschere e tutto
funziona correttamente l'ho consegnato a chi di dovere e per un mese tutto
ok improvvisamente quando l'operatore ha cercato di creare un collegamento
con il file delle maschere si è bloccato tutto e mi dà un messaggio di
errore in corrispondenza di public function getpathpart (strPath As
string) e in particolare in If Mid$(strPath, intCounter,1)= "\" Then.
Vista la mia poca esperienza non saprei dove mettere le mani se qualcuno
può aiutarmi grazie.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: problema collegamento

author: MA

text:
"Francesco" <
fpera...@libero.it
> ha scritto nel messaggio
news:boe2h4$uet$1...@news.newsland.it...
> In un piccola database che ho cercato di costruire o inserito la funzione
> presente nel Sito comune per collegare le tabelle alle maschere e tutto
> funziona correttamente l'ho consegnato a chi di dovere e per un mese tutto
> ok improvvisamente quando l'operatore ha cercato di creare un collegamento
> con il file delle maschere si è bloccato tutto e mi dà un messaggio di
> errore in corrispondenza di public function getpathpart (strPath As
> string) e in particolare in If Mid$(strPath, intCounter,1)= "\" Then.
> Vista la mia poca esperienza non saprei dove mettere le mani se qualcuno
> può aiutarmi grazie.
>
Sicuro che i riferimenti siano tutti ok?
Guarda DAO 3.6
MAssimiliano


title: problema collegamento

text:
> Sicuro che i riferimenti siano tutti ok?
> Guarda DAO 3.6
> MAssimiliano
Grazie seguirň il tuo consiglio l'unica cosa che mi chiedo come puň essere
che per un periodo tutto funzioni correttamente poi improvvisamente si
blocca e in piů se  prendo maschera e tabelle  e le porto in un altro pc
con lo stesso sistema operativo funziona tutto ok



title: problema collegamento

text:
"Francesco" <
fpera...@libero.it
> ha scritto nel messaggio
news:boe352$su$1...@news.newsland.it...
> > Sicuro che i riferimenti siano tutti ok?
> > Guarda DAO 3.6
> > MAssimiliano
>
> Grazie seguirò il tuo consiglio l'unica cosa che mi chiedo come può essere
> che per un periodo tutto funzioni correttamente poi improvvisamente si
> blocca e in più se  prendo maschera e tabelle  e le porto in un altro pc
> con lo stesso sistema operativo funziona tutto ok
Hai installato qualcosa?
MAssimiliano


title: problema collegamento

text:
> Hai installato qualcosa?
> MAssimiliano
Il problema è proprio questo l'operatore mi ha detto che non ha fatto
nulla ha solo cercato di creare un collegamento da mettere sul desktop io
mi fido e continuo a non capire. Anch'io comunque mi sono fatto la stessa
domanda



title: Come acquisire documento da scanner per programma usato via terminal server?

author: RobertoA

text:
Sto pensando di usare TsPlus per attivare un terminal server su pc1
Sempre su pc1 verra' installato e reso operativo il programma X2
realizzato col prode Access

Il programma X2 verra' utilizzato da pc2 e pc3 via browser web,
collegandosi al web server attivo su pc1 e messo a disposizione da TsPlus

Il programma X2 tra le altre funzionalita', dispone anche della
possibilita' di acquisire immagini via scanner, ed il pc2 avendo uno
scanner collegato via usb necessita' di usare far acquisire delel
imamgini che poi verranno memorizzate dentro programma X2

La domanda e': stante il fatto che pc2 utilizza il programma X2
attraverso un browser web, come fare per consentire a X2 di avviare la
scansione (sullo scanner che pc2 ha colelgato in locale via usb) e
'prendersi' il risultato?


title: Costanti

author: Franco

text:
Come si utilizzano le costanti del tipo VbKey da codice?
grazie


title: Costanti

author: Karl Donaubauer

text:
Franco wrote:
> Come si utilizzano le costanti del tipo VbKey da codice?

p.e. come qui:
http://www.donkarl.com/it?FAQ4.10

http://www.donkarl.com/it?FAQ4.18

http://www.donkarl.com/it?FAQ4.23

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


title: Costanti

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


title: Problema con generazione query

author: Stefano B.

text:
Su una maschera ho una campo (che chiamo DataScadenza) in cui inserisco una
data, ad esempio 06/01/2001
Premo un pulsante e genero una query con il seguene metodo
Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
DoCmd.DeleteObject acQuery, "SCADENZARIO"
strSQL = "SELECT  Scadenzario.DataScadenza "
strSQL = strSQL + " FROM Scadenzario "
strSQL = strSQL + " WHERE DataScadenza>=#" & Me.DataScadenza & "# "
 Set db = CurrentDb
        Set qdf = db.CreateQueryDef("SCADENZARIO", strSQL)
        qdf.Close
        Set qdf = Nothing
        db.Close
        Set db = Nothing
DoCmd.OpenQuery "SCADENZARIO"
Vado a vedere la struttura della query generata, E MI RITROVO I VALORI DEL
MESE E DELL'ANNO INVERTITI
cioè  ".... [CampoData]=#01/06/2001#....."
Come posso ovviare a questo problema?
Grazie
Stefano B.


title: Problema con generazione query

author: Roberto dal portatile

text:
"Stefano B." <
stefano....@gvpartner.it
> ha scritto nel messaggio
news:9765bq$14...@news.edisons.net...

Vai sul Sito Comune (link qui sotto), Sezione Queries, "Problemi con le date
nelle stringhe SQL." di Ferderico Luciani.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: GIF Animate in Form Access

text:
Non c'e' modo di mettere una GIF animata su una form
access ?

So che e' possibile spachettare la GIF in tutti i suoi
frame e poi

con un timer isualizzarli uno dopo l'altro in un
picturebox.

Ma non mi piace per niente.

Qualcuno sa se esiste qualche ActiveX FREE che gestisce le
GIF animate?

Grazie & Ciao

Marco S.


title: GIF Animate in Form Access

author: Miro

text:
""Marco.S."" <
ura...@libero.it
> ha scritto nel
  messaggio
news:000801c011c5$3090cf40$539a0f97@pkk
...

Si devi registrare il file Gif98.dll

e poi fare riferimento alla libreria appena registrata
  Ciao


title: GIF Animate in Form Access

author: Marco Serra

text:
Marco S. ha scritto:
>>Non c'e' modo di mettere una GIF animata su una form access ?
>>So che e' possibile spachettare la GIF in tutti i suoi frame e poi
>>con un timer isualizzarli uno dopo l'altro in un picturebox.
>>Ma non mi piace per niente.
>>Qualcuno sa se esiste qualche ActiveX FREE che gestisce le GIF animate?
>>Grazie & Ciao
>>Marco S.

Miro ha risposto:
>Si devi registrare il file Gif98.dll
>e poi fare riferimento alla libreria appena registrata Ciao

Ho fatto una ricerca sulla rete e non l'ho trovato.
Potresti darmi qualche riferimento?
E' Freeware?
Grazie 1000
Ciao
Marco S.
--
Posted from [212.210.92.253]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: GIF Animate in Form Access

text:
""Marco Serra"" <
Marco...@ausl.bologna.it
> ha scritto nel messaggio
news:02ae01c01268$d20956a0$6702...@internal.ausl.bologna.it...
> Marco S. ha scritto:
> >>Non c'e' modo di mettere una GIF animata su una form access ?
> >>So che e' possibile spachettare la GIF in tutti i suoi frame e poi
> >>con un timer isualizzarli uno dopo l'altro in un picturebox.
> >>Ma non mi piace per niente.
> >>Qualcuno sa se esiste qualche ActiveX FREE che gestisce le GIF animate?
> >>Grazie & Ciao
> >>Marco S.
>
> Miro ha risposto:
> >Si devi registrare il file Gif98.dll
> >e poi fare riferimento alla libreria appena registrata Ciao
>
> Ho fatto una ricerca sulla rete e non l'ho trovato.
> Potresti darmi qualche riferimento?
> E' Freeware?
>
> Grazie 1000
> Ciao
> Marco S.
>
>
>
> --
> Posted from [212.210.92.253]
> via Mailgate.ORG Server -
http://www.Mailgate.ORG
Mi sono sbagliato il file si chiama Gif89.dll ed è in c:\windows\system
ciao.


title: GIF Animate in Form Access

text:
>>Mi sono sbagliato il file si chiama Gif89.dll ed è in c:\windows\system
Io non ce l'ho sul mio PC.
Me lo potresti postare per piacere?
Grazie 1000



title: Casella combinata

author: Danilo

text:
Mi sto perdendo in complicati tentativi:
Ho un maschera i cui record vengono selezionati attraverso una comboBox con
il codice:
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[CodDisegno] = '" & Me![CmbCodDisegno] & "'"
    Me.Bookmark = rs.Bookmark
nell'evento AfterUpdate della comboBox
Come posso fare in modo che, salvando un nuovo record, dopo il requery
obbligatorio sulla combo la maschera mi rimanga sul record salvato?
Grazie.
Danilo.


title: Casella combinata


title: Casella combinata

author: Roberto da casa

text:
"Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
news:Lz6w9.99192$%M1.25...@twister2.libero.it...

Immagino che volevi scrivere Me.RecordsetClone e non Me.Recordset.Clone.
Penso che dovrebbe bastare, prima di effettuare il requery, di memorizzarti
il rs.Bookmark per poi reimpostarci il  Me.Bookmark dopo ave effettuato il
requery.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella combinata

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:49bw9.100220$%M1.25...@twister2.libero.it...
>
> "Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
> news:Lz6w9.99192$%M1.25...@twister2.libero.it...
> > Mi sto perdendo in complicati tentativi:
> >
> > Ho un maschera i cui record vengono selezionati attraverso una comboBox
> con
> > il codice:
> >
> >     Dim rs As Object
> >     Set rs = Me.Recordset.Clone
> >     rs.FindFirst "[CodDisegno] = '" & Me![CmbCodDisegno] & "'"
> >     Me.Bookmark = rs.Bookmark
> >
> > nell'evento AfterUpdate della comboBox
> >
> > Come posso fare in modo che, salvando un nuovo record, dopo il requery
> > obbligatorio sulla combo la maschera mi rimanga sul record salvato?
> >
> > Grazie.
> >
> > Danilo.
>
> Immagino che volevi scrivere Me.RecordsetClone e non Me.Recordset.Clone.
>
> Penso che dovrebbe bastare, prima di effettuare il requery, di
memorizzarti
> il rs.Bookmark per poi reimpostarci il  Me.Bookmark dopo ave effettuato il
> requery.
>
> --
> Roberto
>
Hai ragione il metodo è RecordsetClone ma io ho scritto Recordset.Clone e
non mi ha dato errore!
Ora provo la tua soluzione ma facendo io il requery della combo non devo
operare sulla combo per sincronizzare maschera e combo di selezione?
Danilo


title: Casella combinata

text:
"Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
news:tOcw9.99855$RO.25...@twister1.libero.it...

Penso di si, ma per darti certezza dovrei vedere in che contesto stai
operando; per te è facile: hai davanti il database che conosci perché lo hai
fatto tu, ma io mi devo fidare solamente della mia sfera di cristallo. ;-)
>
> Danilo



title: Arrotondamento Euro

author: Enrico Virginio

text:
Ma....ho postato precedentemente per chiedere una formula da utilizzare in una
query di aggiornamento per convertire dei prezzi in Lire in Euro ed ecco qua:
Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Sinceramente non ci ho capito una mazza !!!
CHI MI AIUTA ???
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Arrotondamento Euro

author: Emyr

text:
On Wed, 2 Jan 2002 11:59:17 +0000 (UTC), "Enrico Virginio"
<
nor...@libero.it
> wrote:
>Ma....ho postato precedentemente per chiedere una formula da utilizzare in una
>query di aggiornamento per convertire dei prezzi in Lire in Euro ed ecco qua:
>
>Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
>' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
>'varNr: numero da arrotondare
>'varPI: numero di decimali (due predefinito)
>varNr = Nz(varNr, 0)
>   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
>(10 ^ varPl)
>End Function
>
>
>Sinceramente non ci ho capito una mazza !!!
>CHI MI AIUTA ???
per usarla scrivi
arrotondaeuro(10,45433434,4) per arrotondare alla 4 cifra
arrotondaeuro(10,45433434,3) per arrotondare alla 3 cifra
arrotondaeuro(10,45433434) per arrotondare alla 2 cifra
e cosi via
come pure arrotondaeuro(numero,4) arrotonda alla 4 cifra)
Saluti.
Emanuele.


title: Collegamento ODBC DB Lotus Notes.... Allegati???

text:
Ciao a tutti,
ho cercato di fare ricerche di ogni genere per risolvere il problema,
ma non ho trovato post sull'argomento.
In poche parole, ho linkato una tabella di notes su access,
utilizzando NotesSQL come suggerito in molti post, funziona tutto alla
perfezione, vedo le tabelle e ci faccio quello che voglio... manca
solo una cosa fondamentale, l'ALLEGATO. Premetto che non so come
funziona un DB Notes, ma l'applicazione della quale devo importare il
DB su access, da la possibilità all'utente di caricare all'interno di
un record un allegato e questo allegato non riesco a trovarmelo sulla
tabella linkata in access. In realtà non sono sicuro che l'allegato
venga caricato effettivamente sul record come oggetto, ma sono sicuro
che non venga salvato nel fileSystem, quindi non so dove altro
potrebbe essere.
Non è che qualcuno ha un'idea di come possa pescare questo allegato?
Non escludo che sia sbagliato l'approccio, ma non conoscendo
minimamente notes, speravo che si potesse pescare gli allegati
direttamente con access.
Vi ringrazio anticipatamente
Daniele


author: antonio

text:
<
dani...@gmail.com
> ha scritto nel messaggio
news:1178788488....@e51g2000hsg.googlegroups.com...

Vi ringrazio anticipatamente
Daniele
----------------  RISPOSTA  -----------------
Ciao Daniele,
solo oggi ho avuto modo di vedere il tuo messaggio e provo a dirti qualcosa,
anche se non ti risolve il problema.
Alcuni anni fa mi sono occupato di Notes. Quest'obbrobrio di prodotto può
essere programmato con uno script simile al VisualBasic, ma fatto moooooolto
male. Le varie classi definite fanno acqua da tutte le parti e, se non è
proprio lineare quello che vuoi fare, trovi una montagna di difficoltà.
Questo fino alla release 5, dopo la quale decisi di abbandonarlo.
Potresti forse tentare una strada diversa per giungere ad un risultato
accettabile.
Se hai i privilegi di Amministratore del database, crea un nuovo form nel
quale vai ad inserire i campi che ti interessano e quindi anche il campo
Body (di solito viene chiamato così) che dovrebbe contenere l'allegato, che
tra l'altro potrebbe essere definito come incorporato o collegato. Sperando
che sia incorporato..., definisci sul form che sei andato a creare un
pulsante che esegua una routine di script che puoi costruirti un passo alla
volta, cercando di capire qualcosa dagli esempi presenti nell'help (anche
questo obbrobrioso come il prodotto base).
Questa routine dovrebbe definire i vari oggetti di notes stesso e, quando
finalmente avrai a disposizione l'oggetto allegato, potresti scriverlo sul
disco affinchè poi possa essere catturato da Access.
E' un'impresa ardua, ma è l'unica cosa che posso suggerirti.
Ciao
Antonio


author: Ganimede

text:
Ciao,
> Alcuni anni fa mi sono occupato di Notes. Quest'obbrobrio di prodotto può
> essere programmato con uno script simile al VisualBasic, ma fatto moooooolto
> male. Le varie classi definite fanno acqua da tutte le parti e, se non è
> proprio lineare quello che vuoi fare, trovi una montagna di difficoltà.
Mi sembri drastico... è una logica differente, diversa dal
relazionale: è un db destrutturato.
E' un prodotto eccezionale ed unico nel suo genere. Secondo me non lo
conosci affatto.
Miao.


text:
"Ganimede" <
newto...@yahoo.com
> ha scritto nel messaggio
news:1179049673....@w5g2000hsg.googlegroups.com...
Ciao,


Miao.
-------------  RISPOSTA  ----------------
Hai ragione!!! Non sono mai riuscito ad innamorarmi di questo prodotto,
forse perchè orientato più ai non programmatori e meno a chi ha il concetto
di struttura persino quando mangia.
Comunque un po' l'ho conosciuto ed i problemi che ho avuto con le varie
classi poco e male documentate, nonchè piene di errori non mi hanno certo
invogliato a proseguire nel suo studio.
Per quel che ho potuto vedere io, se intendi fare una cosa semplice, la fai
in meno tempo di quanto ce ne vorrebbe con un altro prodotto, ma guai se ti
venissero in mente implementazioni per migliorarne le caratteristiche...
quello che prima era una magnificenza di semplicità diventa di colpo un
qualcosa tanto ingarbugliato e problematico.
Ciao
Antonio


text:
Ciao,
> Hai ragione!!! Non sono mai riuscito ad innamorarmi di questo prodotto,
> forse perchè orientato più ai non programmatori e meno a chi ha il concetto
> di struttura persino quando mangia.
Ancora sbagli a mio parere, secondo me è proprio orientato allo
sviluppo
e alle personalizzazioni che possono avvenire da semplice al
complesso: form, viste e azioni (per il semplice) linguaggio @ e
agenti (per il medio) e html, jsp, Java, Lotus Script (per il
complesso)
Un architettura singolare: un application server (realmente
multipiattaforma: lo scrivi una volta e funziona su AS/400, Windows,
OS/2, Linux, Solaris, HP-UX, S/390, ecc. e sposti tutto da una
piattaforma all'altra senza procuparti i nulla ... se non quando i
programmatori ti mettono i path fisici nel codice... bsta un form per
i parametri) basata su un database destrutturato completamente
orientato alla rete: web, smtp, pop3, ldap, nntp, ecc. con il quale
realizzare applicationi fruibili dal client proprietario (Lotus Notes
per Windows, Mac e Linux) dal web, da dispositivi mobile di ogni tipo.
Fortemente orientato ai processi documentali e di workflow...
l'indicizzazione full-text di Notes non ha rivali.
Detto questo se ci devei sviluppare una gestione ordini ... mhhmmm
forse non è lo strumento adatto specie se ci progetta e analizza non
riesce a svincolari dela modello relazionale (gran parte dei problemi
dei progetti andati male è dovuto a questo) anche se IBM a partire
dalla 6.5 ha introdotto nativamente un db relazione... il suo DB/2.
Le similitudini con Access sono notevoli cmq :-)
> Per quel che ho potuto vedere io, se intendi fare una cosa semplice, la fai
> in meno tempo di quanto ce ne vorrebbe con un altro prodotto, ma guai se ti
> venissero in mente implementazioni per migliorarne le caratteristiche...
> quello che prima era una magnificenza di semplicità diventa di colpo un
> qualcosa tanto ingarbugliato e problematico.
Guarda, nel 99 abbiamo sviluppato un sistema di automazione della
forza vendite per 50 agenzie sparse per l'europa (una media di 150
utenti connessi) con interfaccia web. Gli agenti caricvano gli ordni,
proponevano clienti e articoli prospect, vedevano le statistiche di
bollettao e fatturato il tutto all'interno di una piramide di workflow
con vari ruli in funzione dell'area, del cliente, prodotto, fatturato,
ecc. che poi dialogava con l'erp aziendale SAP R/3.
Nel db c'erano 600.000 documenti ed in certi momenti sentivo la
mancanza di un motore relazionale, avevo proposto di usare un rdbms
esterno a cui accedere via odbc o jdbc ma la cosa fu bociata
dall'alto ... cmq è un sistema ancora in funzione.
Sinceramente l'idea di gestire un worflow complesso come quello via
ASP mi avrebbe preoccupato non poco e solo l'idea di disegnare tutta
l'interfaccia utente mi avrebbe fatto perdere molto tempo
Io mi occupo di sistemi, architetture e di portare avanti i pogetti...
non sono un grande programmatore ma tutti quelli che venivano dal VB o
dal Java/html una volta spigato loro la logica del db destrutturato,
gli oggetti del mondo Lotus e le sue classi/metodi sono stati
mediamente operativi in pochissimi giorni.
Sicuramente è un mondo che oggi è penalizzato dagli attegiamenti di
IBM e dalla gente che lo svenduto per quello che non era e non ha
capito le sue potenzialità... probabilemnte non sono molte le aziende
italiane che saprebbero sfruttarlo.
Miao.