text:

Grazie Alex, ho provato a guardare il tutorial ma credo che forse mi sono espressa male io sto già gestendo le tabelle di SQL con ODBC e uso Access come Client. Il problema era nel codice VB che tra la situazione postata in cui il codice non da errore progetto adp e SQL, nella versione ODBC e accdb ho dovuto adattarlo così risolvendo il problema.
Sto avendo diversi problemi nell'adattare il codice tra le due situazioni ma con un po' di pazienza ci sto riuscendo.
Private Sub Comando45_Click()
Dim n As Integer
Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset

Set DBCorrente = CurrentDb 'per aprire un collegamento sul DBCorrente
Set Tabella = DBCorrente.OpenRecordset("Select * FROM Programmazione", dbOpenDynaset)
' MsgBox b
 Testo1 = 0
 Testo92 = 0
 Testo2 = 0
 Testo93 = 0
 Testo3 = 0
 Testo4 = 0
 Testo5 = 0
 Testo6 = 0
 Testo7 = 0
 Testo50 = 0
 Testo94 = 0
 Testo52 = 0
 Testo54 = 0
 Testo56 = 0
   B = TestoDATA
Do Until Tabella.EOF
    'MsgBox Tabella.Fields("comm")
    Tabella.Edit
    P = Tabella.Fields("Pausa")
    'MsgBox p

    If P = 0 Then '1

     D = Tabella.Fields("Data_PARTENZA")

     p1 = Tabella.Fields("Tempo_UT_ore")
      'MsgBox p1
     p2 = Tabella.Fields("Tempo_AppProgettoGG")
     p3 = Tabella.Fields("Tempo_AppMaterialiOre")
     p7 = Tabella.Fields("Tempo_UT_ore1")
     p4 = Tabella.Fields("Tempo_PROD_ore")
     p5 = Tabella.Fields("Tempo_SALD")
     p6 = Tabella.Fields("Tempo_LUCIDATURA")
     X = Tabella.Fields("Fine_UT")
        If D & "" = "" Then '2
        'MsgBox "non avviata"

        Else '2
        'MsgBox Tabella.Fields("Data_PARTENZA")
             a = Tabella.Fields("Data_PARTENZA")
             f = DateDiff("d", a, B)
            ' MsgBox f
                                    If f >= 0 Then
                                        Testo1 = Testo1 + Tabella.Fields("Tempo_UT_ore")
                                        Testo92 = Testo92 + Tabella.Fields("Tempo_UT_ore1")
                                        Testo2 = Testo2 + Tabella.Fields("Persone_UT")
                                        Testo93 = Testo93 + Tabella.Fields("Persone_UT1")
                                        Testo3 = Testo3 + Tabella.Fields("Tempo_PROD_ore")
                                        Testo4 = Testo4 + Tabella.Fields("Persone_PROD")
                                        Testo5 = Testo5 + Tabella.Fields("Tempo_SALD")
                                        Testo6 = Testo6 + Tabella.Fields("Personale_SALD")
                                        Testo7 = Testo7 + Tabella.Fields("Tempo_LUCIDATURA")
                                        Testo8 = Testo8 + Tabella.Fields("Personale_LUCIDATURA")
                                    End If
           If f > 0 Then '3

                If Tabella.Fields("Tempo_UT_ore") > Tabella.Fields("Persone_UT") * 8 Then '4

                    Tabella.Fields("Tempo_UT_ore") = Tabella.Fields("Tempo_UT_ore") - Tabella.Fields("Persone_UT") * 8
                Else '4
                    Tabella.Fields("Tempo_UT_ore") = 0
                    Tabella.Fields("Persone_UT") = 0
                End If '4

                      If p1 = 0 Then '5
                                 If Tabella.Fields("Tempo_AppProgettoOre") > 8 Then '6
                                     Tabella.Fields("Tempo_AppProgettoGG") = Tabella.Fields("Tempo_AppProgettoGG") - 1
                                 Else '6
                                     Tabella.Fields("Tempo_AppProgettoGG") = 0

                                 End If '6
                      If p2 = 0 Then '7
                                 If Tabella.Fields("Tempo_AppMaterialiOre") > 8 Then '8
                                     Tabella.Fields("Tempo_AppMaterialiGG") = Tabella.Fields("Tempo_AppMaterialiGG") - 1
                                 Else '8
                                     Tabella.Fields("Tempo_AppMaterialiGG") = 0

                                 End If '8
                      If p3 = 0 Then
                                If Tabella.Fields("Tempo_UT_ore1") > Tabella.Fields("Persone_UT1") * 8 Then

                                 Tabella.Fields("Tempo_UT_ore1") = Tabella.Fields("Tempo_UT_ore1") - Tabella.Fields("Persone_UT1") * 8
                                Else '4
                                    Tabella.Fields("Tempo_UT_ore1") = 0
                                    Tabella.Fields("Persone_UT1") = 0
                                End If '4
                      If X = True Then
                      'MsgBox X
                         If p7 = 0 Then
                                If Tabella.Fields("Tempo_PROD_ore") > Tabella.Fields("Persone_PROD") * 8 Then

                                Tabella.Fields("Tempo_PROD_ore") = Tabella.Fields("Tempo_PROD_ore") - Tabella.Fields("Persone_PROD") * 8
                                Else
                                    Tabella.Fields("Tempo_PROD_ore") = 0
                                    Tabella.Fields("Persone_PROD") = 0
                                End If
                         If p4 = 0 Then
                                If Tabella.Fields("Tempo_SALD") > Tabella.Fields("Personale_SALD") * 8 Then

                                 Tabella.Fields("Tempo_SALD") = Tabella.Fields("Tempo_SALD") - Tabella.Fields("Personale_SALD") * 8
                                 Else
                                    Tabella.Fields("Tempo_SALD") = 0
                                    Tabella.Fields("Personale_SALD") = 0
                                 End If
                         If p5 = 0 Then
                                If Tabella.Fields("Tempo_LUCIDATURA") > Tabella.Fields("Personale_LUCIDATURA") * 8 Then

                                 Tabella.Fields("Tempo_LUCIDATURA") = Tabella.Fields("Tempo_LUCIDATURA") - Tabella.Fields("Personale_LUCIDATURA") * 8
                                 Else
                                    Tabella.Fields("Tempo_LUCIDATURA") = 0
                                    Tabella.Fields("Personale_LUCIDATURA") = 0
                                 End If
                         If p6 = 0 Then
                                 If Tabella.Fields("Tempo_FINITURA") > 8 Then
                                     Tabella.Fields("Tempo_FINITURA") = Tabella.Fields("Tempo_FINITURA") - 8
                                 Else
                                     Tabella.Fields("Tempo_FINITURA") = 0
                                    Tabella.Fields("Completata") = True
                                 End If

                     End If
                     End If
                     End If
                     End If
                     Else
                      Tabella.Fields("Data_PARTENZA_off") = B
                      'MsgBox X & "1111"
                     End If
                     End If
                     End If
                     End If
                     'testo1 = testo1 + Tabella.Fields("Tempo_UT_ore

                     Else

           End If '3

        End If '2
     Tabella.Fields("Numero_GG_pausa") = 0
    Else
    Tabella.Fields("Numero_GG_pausa") = Tabella.Fields("Numero_GG_pausa") + 1
    End If '1
  Testo50 = Testo50 + Tabella.Fields("Tempo_UT_ore")
  Testo94 = Testo94 + Tabella.Fields("Tempo_UT_ore1")
  Testo52 = Testo52 + Tabella.Fields("Tempo_PROD_ore")
  Testo54 = Testo54 + Tabella.Fields("Tempo_SALD")
  Testo56 = Testo56 + Tabella.Fields("Tempo_LUCIDATURA")

n = n + 1
    'vai al dato successivo
    Tabella.MoveNext
Loop

'Chiusura Tabella
Tabella.Close
'Chiusura DB
DBCorrente.Close
MsgBox "Numero di record aggiornati: " & n
Forms!Programmazione.Requery
End Sub


title: collegare maschere con word

author: Ing. Pietro Conoscenti

text:
Carissimi amici,
aiutatemi a risorvere questo problema!
Ho una maschera con i relativi record e desidero che da essa venga aperto un
file di word gią compilato con i valori presenti del record attivo nella
maschera.
Ciao Pietro


title: collegare maschere con word

author: Sergio MAZZA

text:
"Ing. Pietro Conoscenti" <
pie...@ctonline.it
> ha scritto nel messaggio
news:8gqh2v$ak5$1...@serv1.iunet.it...

Hai gią provato con la stampa unione (di Word)?
Ciao.


title: collegare maschere con word

text:
Ing. Pietro Conoscenti ha scritto
> aiutatemi a risorvere questo problema!
> Ho una maschera con i relativi record e desidero che da essa venga aperto
un
> file di word già compilato con i valori presenti del record attivo nella
> maschera.
Se devi stampare più documenti Word con in ognuno i dati di ogni record
allora la soluzione è quella suggerita da Mazza. Se invece desideri stampare
un solo documento con solo i dati contenuti in quella specifica maschera
allora devi ricorre ai segnalibri in Word e nella maschera devi aggiungere
un pulsante che richiami la seguente routine routine che faccia il lavoro.
Per dovere di correttezza, non è farina del mio sacco!
Avevo anche io questo problema e gentilmente mi è stata suggerita la
soluzione da Dott. Mario Salvetti, Responsabile settore sviluppo software
Agenzia per la Protezione dell' Ambiente Torino, che approfitto per
ringraziarlo e grazie anche agli amici del newsgroup.
Private Sub Comando10_Click()
Dim appWd As Word.Application
Dim WordDoc As Word.Document
        Set appWd = New Word.Application
        appWd.Visible = True
        Set WordDoc = appWd.Documents.Open("D:\documenti\docsProva.doc")
    With appWd
        .ActiveDocument.Bookmarks("Cognome").Select
        .Selection.InsertAfter Nz(Me!Cognome)
        .ActiveDocument.Bookmarks("Nome").Select
        .Selection.InsertAfter Nz(Me!Nome)
        .ActiveDocument.Bookmarks("Indirizzo").Select
        .Selection.InsertAfter Nz(Me!Indirizzo)
        .ActiveDocument.Bookmarks("Città").Select
        .Selection.InsertAfter Nz(Me!Città)
        .WindowState = wdWindowStateMaximize
    End With
Set appWd = Nothing
End Sub


title: importare file xls da cartella a scelta

author: Zut

text:
Vorrei dare la possibilitï¿œ di importare un file xls facendoglielo
scegliere a piacere dell'utente.
In pratica:

DoCmd.TransferSpreadsheet acImport, 8, "xxx", "dove_pare_a_me", True,
"a1:ac100"

Grazie


title: importare file xls da cartella a scelta

text:
Usa il FileDialog per definire il File... è ben documentato inserendo i riferimenti alla LIB OFFICE.

@Alex


title: importare file xls da cartella a scelta

text:
Il 10/12/2013 18.01, @Alex ha scritto:
> Usa il FileDialog per definire il File... � ben documentato inserendo i riferimenti alla LIB OFFICE.
>
> @Alex
>

Mi sembra per� di capire che se un utente ha una versione runtime non
funziona


title: importare file xls da cartella a scelta

text:
Non funziona se l'utente non ha installato OFFICE.
Il RUNTIME di Access spesso è separato da OFFICE in quanto ci sono versioni LITE di Office che non contemplano Access.

Non conosco la tua situazione, ma se usi le API la cosa si risolve...

http://support.microsoft.com/kb/161286

@Alex


title: report?

author: sb

text:
Ho la necessità di eseguire un report di dati su un file word. Per
intenderci inserire dati di una tabella access o query in un documento word,
stamparlo e ritornare alla maschera di access, il tutto premendo un bottone?
In alternativa, il modello word lo posso inserire in un report di access,
esso è composto da una quindicina di pagine?


title: report?

text:
" sb" <
s...@sb.co
> ha scritto nel messaggio
news:eR%p9.38651$Fz.11...@news1.tin.it...

perchè non ti crei un report come è fatto il documento di word e usi quello?


title: report?

text:
siccome è composto da 15 pagine per ogni record non so come fare. qualche
idea?


title: rendere effettiva una relazione

author: Manaus

text:
Salve,
ho creato due tabelle, progetti e attività
ad ogni progetto deve corrispondere una serie di attività, perciò ho letto
l'help e ho creato una relazione (chiave primaria nel nome del progetto).
Poi ho creato una maschera dei progetti e  una sottomaschera delle attività.
Ora però, sfogliando i progetti, nel campo delle attività mi appare il nome
del progetto, non le attività.... come faccio a collegare univocamente un
gruppo di attività ad un nome di progetto?
thank you very muccch
m.
--
------
Massimo Nardini
Torino - Italy
www.designparade.com
www.yrand.com


title: rendere effettiva una relazione

author: Roberto dal portatile

text:
"Manaus" <
bz...@bz.it
> ha scritto nel messaggio
news:8n3ufs$2hg$1...@sirmdpsin16.inwind.it...
> Salve,
> ho creato due tabelle, progetti e attività
> ad ogni progetto deve corrispondere una serie di attività, perciò ho letto
> l'help e ho creato una relazione (chiave primaria nel nome del progetto).
> Poi ho creato una maschera dei progetti e  una sottomaschera delle
attività.
> Ora però, sfogliando i progetti, nel campo delle attività mi appare il
nome
> del progetto, non le attività.... come faccio a collegare univocamente un
> gruppo di attività ad un nome di progetto?
>
> thank you very muccch
> m.
>
Prova a fare così:
TabellaProgetti:
IdProgetto                Contatore e chiave primaria
NomeProgetto          Testo
<altri campi>
TabellaAttività            Contatore e chiave primaria
IdProgetto                  Numerico
<altri campi>
Metti in relazione uno-a-molti le due tabelle in base ai due campi chiamati
IdProgetto.
Nella sottomaschera, che naturalmente ha come "Origine record"
TabellaAttività, non inserire alcun controllo associato al campo IdProgetto.
Nelle proprietà "Collega campi secondari" e "Collega campi master" del
controllo sottomaschera della maschera principale indica IdProgetto.
Ciao
Roberto


title: Group by o distinct

text:
ciao a tutti

in RowSource meglio Group by o distinct?
Grazie


title: Group by o distinct

author: Karl Donaubauer

text:
Salve,

Francodellavalle28 ha scritto:
> in RowSource meglio Group by o distinct?

Non importa.

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


title: Group by o distinct

text:

grazie Karl


title: Problemino

author: Paolo

text:
Ho una necessità di questo tipo, non riesco a far eseguire dei comandi DOS
tipo ren, copy, move, ecc. da Access. Che comando devo usare?
Scusate l'ingnoranza, ma non so proprio coma fare.
Grazie


title: Problemino

author: sittinghorse

text:
"Paolo" <
mon...@libero.it
> ha scritto nel messaggio
news:sVw48.8775$6e5.2...@twister2.libero.it...

Una strada carina per risolverti il problema potrebbe essere quella di
usare, all'interno del codice del tuo db, le api di windows. Ad esempio per
risolverti il problema di cancellare o spostare un file potresti usare
queste due api:
Dichiari questo aggancio alle api in questo modo:
Public Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA"
(ByVal lpFileName As String) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal
lpExistingFileName As String, ByVal lpNewFileName As String) As Long
poi nella sezione del codice associata all'evento che tu generi (ad esempio
il click sul bottone) puoi utilizzare l'api richiamandola in questo modo:
se vuoi cancellare un file:
    gRetValLong = DeleteFile(nomefile)
    in nome file ovviamente ci va il percorso e il nome completo del file;
in gretvallong ti torna il valore dell'api (ti dice se tutto è andato a buon
fine o no)
se vuoi spostare un file
    gRetValLong = Movefile (posizione vecchia, posizione nuova)
    dove posizione vecchia sarà la stringa che contiene l'attuale posizione
del file incluso il nome del file stesso e posizione nuova sarà la stringa
che conterrà la nuova posizione del file compreso il nome del file stesso.
Se non sbaglio, ma non ne sono certo, con questa stessa procedura puoi anche
cambiare nome al file basta assegnare alla stringa posizione nuova un nome
file diverso. (provaci non ne sono sicuro). Comunque se cerchi in internet
ci sono un sacco di siti dove trovare spiegazioni più dettagliate in merito
all'uso delle api.
Ciao e in bocca al lupo da sittinghorse.


title: Problemino

text:
Paolo ha scritto:
> Ho una necessità di questo tipo, non riesco a far eseguire dei comandi DOS
> tipo ren, copy, move, ecc. da Access. Che comando devo usare?
È meglio usare VBA dove possibile:
Name, FileCopy, Kill ecc. (cerca <F1> "File" o come si chiama in Italiano
;-)
Altrimenti dipende un po quale Windows usi. In genere
Shell Environ("COMSPEC") & " /C " & comando, 0
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Problemino

author: Emyr

text:
On Sat, 26 Jan 2002 12:17:12 GMT, "sittinghorse"
<
sittin...@libero.it
> wrote:
>
>"Paolo" <
mon...@libero.it
> ha scritto nel messaggio
>news:sVw48.8775$6e5.2...@twister2.libero.it...
>> Ho una necessità di questo tipo, non riesco a far eseguire dei comandi DOS
>> tipo ren, copy, move, ecc. da Access. Che comando devo usare?
>> Scusate l'ingnoranza, ma non so proprio coma fare.
>> Grazie
>>
>>
>Una strada carina per risolverti il problema potrebbe essere quella di
>usare, all'interno del codice del tuo db, le api di windows. Ad esempio per
>risolverti il problema di cancellare o spostare un file potresti usare
>queste due api:
>
CUT...
potrei sapere dove trovare le specifiche o che libro conprare per
avere le definizioni delle API?
Saluti.
Emanuele.


title: Problemino

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:hgi75u8hpkske203j...@4ax.com...

Libri sulle api di windows ne trovi parecchi in libreria ma ne ho sempre e
solo visti di molto costosi.
In internet ho trovato, ad esempio, questo sito; dai uno sguardo per vedere
se qualcosa ti interessa.
http://www.vbapi.com/ref/funcc.html
Saluti sittinghorse


title: Problemino

text:
On Mon, 28 Jan 2002 10:04:27 GMT, "sittinghorse"
<
sittin...@libero.it
> wrote:
CUT...
>> potrei sapere dove trovare le specifiche o che libro conprare per
>> avere le definizioni delle API?
>> Saluti.
>> Emanuele.
>
>Libri sulle api di windows ne trovi parecchi in libreria ma ne ho sempre e
>solo visti di molto costosi.
>In internet ho trovato, ad esempio, questo sito; dai uno sguardo per vedere
>se qualcosa ti interessa.
>
http://www.vbapi.com/ref/funcc.html
grazie....
Saluti.
Emanuele.


title: Estrapolare il primo valore di un determinato recordset

author: vuLCan Karayan

text:
Salve a tutti.
TabellaEsistente:
Campo A
Se creo un recordset in questo modo:
DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
Campo= " & Valore
Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
come posso estrapolare e memorizzare il valore più alto di un determinato
valore


text:
Scusate, CTRL+INVIO, azz...
Riposto:
Salve a tutti.
Ho due tabelle:
TabellaEsistente:
Campo A
Campo B
Campo C
Campo D
TabellaTemporanea:
Campo B
Campo C
Se creo un recordset in questo modo:
DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
Campo= " & Valore
Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
come posso estrapolare e memorizzare nelle variabili ValoreB ValoreC
variabili il record della TabellaTemporanea che contiene, ad esempio, il
CampoC piů alto?
Devo usare OrderBy... ma non ho capito bene come posso "estrapolare" i
valori..
Grazie per l'aiuto.


text:
> Ho due tabelle:
>
> TabellaEsistente:
> Campo A
> Campo B
> Campo C
> Campo D
>
> TabellaTemporanea:
> Campo B
> Campo C
>
> Se creo un recordset in questo modo:
>
> DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
> Campo= " & Valore
> Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
>
> come posso estrapolare e memorizzare nelle variabili ValoreB ValoreC
> variabili il record della TabellaTemporanea che contiene, ad esempio, il
> CampoC più alto?
> Devo usare OrderBy... ma non ho capito bene come posso "estrapolare" i
> valori..
Ecco come sto procedendo...
Dim rs2 As Recordset
Set rs2 = CurrentDb.OpenRecordset("SELECT TOP 1 TabellaTemporanea.IDRecord,
TabellaTemporanea.DataArrivo FROM TabellaTemporanea ORDER BY
TabellaTemporanea.DataArrivo DESC;")
datDataUltimaDistinta = DLookup("DataArrivo", "rs2")
Sembra tutto ok.
rs2 è un dominio, dico bene?
Eppure mi viene comunicato che Access non ha trovato la query o tabella :(
Non è possibile usare un DLookUp su un recordset creato come sopra?


text:
Sigh.
Ho risolto con una query.
Pensavo di poter fare tutto da codice...
Ciauz


author: VT @ work

text:
On Mon, 21 Mar 2005 19:35:36 GMT, "vuLCan Karayan" <
nos...@nospam.it
>
wrote:
>> Ho due tabelle:
>>
>> TabellaEsistente:
>> Campo A
>> Campo B
>> Campo C
>> Campo D
>>
>> TabellaTemporanea:
>> Campo B
>> Campo C
>>
>> Se creo un recordset in questo modo:
>>
>> DoCmd.RunSQL "SELECT * INTO TabellaTemporanea FROM TabellaEsistente WHERE
>> Campo= " & Valore
>> Set rs = CurrentDb.OpenRecordset("TabellaTemporanea")
>>
>> come posso estrapolare e memorizzare nelle variabili ValoreB ValoreC
>> variabili il record della TabellaTemporanea che contiene, ad esempio, il
>> CampoC piů alto?
>> Devo usare OrderBy... ma non ho capito bene come posso "estrapolare" i
>> valori..
Senza usare tabelle temporanee o recordset, ti basta scrivere:
ValoreC=DMax("CampoC","TabellaEsistente","Campo=" & Valore)
>
>
>Ecco come sto procedendo...
>Dim rs2 As Recordset
>Set rs2 = CurrentDb.OpenRecordset("SELECT TOP 1 TabellaTemporanea.IDRecord,
>TabellaTemporanea.DataArrivo FROM TabellaTemporanea ORDER BY
>TabellaTemporanea.DataArrivo DESC;")
>
>datDataUltimaDistinta = DLookup("DataArrivo", "rs2")
>
>Sembra tutto ok.
>rs2 č un dominio, dico bene?
>Eppure mi viene comunicato che Access non ha trovato la query o tabella :(
>
>Non č possibile usare un DLookUp su un recordset creato come sopra?
>
No: tutte le funzioni Dxxxxx richiedono come parametro "Dominio" una
stringa (quindi anche una variabile di tipo stringa) che contiene il
nome della tabella su cui effettuare l'operazione.
Tu invece hai usato come dominio una variabile di tipo recordset che
non indica una tabella, bensě un oggetto di tipo "Insieme di record"
che č tutta un'altra cosa.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400:
http://www.faq400.com/
---------------------------------------------


author: fidirico (lavoro)

text:
"vuLCan Karayan" <
nos...@nospam.it
> ha scritto nel messaggio
news:cmF%d.682595$b5.30...@news3.tin.it...
[CUT]
> Ecco come sto procedendo...
> Dim rs2 As Recordset
> Set rs2 = CurrentDb.OpenRecordset("SELECT TOP 1
TabellaTemporanea.IDRecord,
> TabellaTemporanea.DataArrivo FROM TabellaTemporanea ORDER BY
> TabellaTemporanea.DataArrivo DESC;")
>
> datDataUltimaDistinta = DLookup("DataArrivo", "rs2")
>
> Sembra tutto ok.
> rs2 è un dominio, dico bene?
> Eppure mi viene comunicato che Access non ha trovato la query o tabella :(
>
> Non è possibile usare un DLookUp su un recordset creato come sopra?
Come ti ha già detto Vincenzo, non puoi usare DLookup ma puoi semplicemente
fare riferimento al campo che ti interessa con la sintassi:
datDataUltimaDistinta = rs2!DataArrivo
Inoltre, al posto di Top con Order By puoi usare Max; ad es:
Set Rs2 = CurrentDb.OpenRecordset("select Max(TabellaTemporanea.DataArrivo)
As MaxData from TabellaTemporanea")
e in tal caso il riferimento al campo diventerebbe:
datDataUltimaDistinta = rs2!MaxData
--
Ciao
Galliano.


title: splash screan

author: frcavallaro

text:
Salve a tutti,
vorrei che avviando il mio DB apparisse una immagine,
dopo ue secondi, si chiude e si apre la mascera pincipale.
Ho creato una maschera con incorporata una immagine,
nelle proprieta Intervallo Timer ho indicato 2000,
adesso cosa scrivo su "Evento Timer"?
Mi unicate un esempio pratico di codice?
Maschera di avvio: "Splash",
Maschera da avviare dopo 2 secondi: "Mashera1"
Grazie a tutti!


title: splash screan

text:
Ops ho la tastiera che fa le bizze!
"frcavallaro" <
frcav...@tin.it
> ha scritto nel messaggio
news:5F2de.1315643$35.49...@news4.tin.it...
Salve a tutti,
vorrei che avviando il mio DB apparisse una immagine,
dopo due secondi, si chiude e si apre la mascera pincipale.
Ho creato una maschera con incorporata una immagine,
nelle proprieta Intervallo Timer ho indicato 2000,
adesso cosa scrivo su "Evento Timer"?
Mi indicate un esempio pratico di codice?
Maschera di avvio: "Splash",
Maschera da avviare dopo 2 secondi: "Maschera1"
Grazie a tutti!


title: splash screan

author: Carlo Costarella

text:
"frcavallaro" <
frcav...@tin.it
> ha scritto nel messaggio
news:5C3de.1315839$35.49...@news4.tin.it...

La maschera Splash deve essere la prima a comparire e questo lo puoi fare o
con una macro Autoexec o impostando le opzioni di Avvio.
Su evento timer di questa maschera puoi scrivere:
Me.TimerInterval = 0
DoCmd.OpenForm "Maschera1"
DoEvents
DoCmd.SelectObject acForm, "Maschera1"
DoCmd.Close acForm, "Splash"
Ciao, Carlo


title: splash screan

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:N54de.1315908$35.49...@news4.tin.it...

Grazie Carlo, chiaro e conciso.


title: Trasformare una cifra in lettere (cc postali)

author: sd

text:
Salve a tutti,
ho trovato sul sito comune un MDB che
serve a automatizzare la stampa dei bollettini
postali. In tale MDB c'è una funzione che
trasforma una cifra numerica in lettere
(es. 10.000 = diecimilalire/).
Ora dovrei usare tale funzione nel query builder
ma non sò come scriverla...
Ho provato con :
Lire: EuroCheque([titcli.totrata];" ";" ";1)
ma non mi restituisce la stringa...
Avete qualche suggerimento?
Grazie
saluti
sdamy
***Ecco la funzione*****
Public Function EuroCheque(ByVal vValue As Variant, ByRef sNumberValue As
String, ByRef sCaseValue As String, Optional ByVal Language As Byte) As Long
    On Error GoTo EuroChequeError
    Dim sTempCaseValue As String
    'Controlli su vValue
    If IsNull(vValue) Then GoTo EuroChequeError
    If vValue = vbNullString Then GoTo EuroChequeError
    If Not IsNumeric(vValue) Then GoTo EuroChequeError
    If LongCur2Str(CCur(Int(vValue)), sTempCaseValue, Language) Then GoTo
EuroChequeError
    sCaseValue = StrConv(sTempCaseValue & "/" & Right$(Format$(vValue, ""),
0), vbProperCase)
    sNumberValue = Format$(vValue, "#,##0.00")
    Exit Function
EuroChequeError:
    sNumberValue = "Error"
    sCaseValue = "Error"
    EuroCheque = 1
End Function
' *** Questa parte inserita in una maschera trasforma una cifra in lettere
****
Private Sub importo_Change()
Dim sNumberValue As String, sCaseValue As String, cmblanguage As String
    cmblanguage = 1
    EuroCheque Me.importo.Text, sNumberValue, sCaseValue, cmblanguage
    Me.lettere = sCaseValue
End Sub


author: Antonio Biso

text:
sd <
sd...@tiscalinet.it
> wrote in message
9uim4b$108$1...@pegasus.tiscalinet.it...
> Salve a tutti,
>
> ho trovato sul sito comune un MDB che
> serve a automatizzare la stampa dei bollettini
> postali. In tale MDB c'è una funzione che
> trasforma una cifra numerica in lettere
> (es. 10.000 = diecimilalire/).
>
> Ora dovrei usare tale funzione nel query builder
> ma non sò come scriverla...
>
> Ho provato con :
> Lire: EuroCheque([titcli.totrata];" ";" ";1)
> ma non mi restituisce la stringa...
>
> Avete qualche suggerimento?
> Grazie
>
> saluti
> sdamy
Il problema è che la funzione è congegnata per assegnare il risultato ad una
variabile passata per riferimento e così non puoi usarla nella query.
Devi modificarla in modo da far sì che sia la funzione a restituire il
valore.
Esempio
function somma(a as long, b as long) as long
somma = a + b
end function
Nella query, fare un campo calcolato così funziona
Totale: Somma([campo1],[campo2])
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:dilP7.242028$sq5.11...@news.infostrada.it...

grazie... proverò a trasformare
la funzione
grazie!!!
sdamy


title: accordi milanesi per cena di domani

author: skipper

text:
Ehm... probabilmente domani pioverà... c'è qualche altro milanese che viene
alla cena?
Visto che sono solo motomunito, un passaggio non sarebbe sgradito.
skipper dixit...


title: accordi milanesi per cena di domani

author: Pablitomf

text:
skipper ha scritto:

Vedi? Se stavi al Sud, andavi a cena in barca... :)
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: accordi milanesi per cena di domani

author: ciroteo

text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:cauqr8$g77$1...@news.newsland.it...

skipper se vuoi posso passare io.
Dimmi dove preferisci che passi a prenderti.
Hai i miei riferimenti in privato se non sbaglio.


title: accordi milanesi per cena di domani

text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:cauqr8$g77$1...@news.newsland.it...

skipper ti ho scritto in privato. X me non c'è problema a passare, se ci
fosse qualcun altro che si vuole aggregare facciamo una macchinata.
x pablitomf ... lascia fare che skipper ci viene veramente fino in costiera
con la barca ...


title: controllo su web ed import risultati

author: Cahal

text:
E' possibile in un db access, tramite VBA, connettersi ad un sito web
(protetto da login e pwd) avendone ovviamente accesso... controllare dei
dati o fare delle query.. prendere i risultati ed elaborarli in qualche
modo? fantascienza?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: controllo su web ed import risultati

author: Sergio MAZZA

text:
"Cahal" <
xx...@xx.com
> ha scritto nel messaggio
news:eat40c$h78$1...@news.newsland.it...
> E' possibile in un db access, tramite VBA, connettersi ad un sito web
> (protetto da login e pwd) avendone ovviamente accesso... controllare dei
> dati o fare delle query.. prendere i risultati ed elaborarli in qualche
> modo? fantascienza?
No, non è fantascienza; ma ci devi lavorare un po' su.
Qui un esempio per aprire la pagina ed effettuare il login:
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/b836b577f50092b1/7a5b948394321e23?lnk=gst&q=login+web&rnum=1#7a5b948394321e23
Poi si tratta di fare una pagina web dinamica che accetta dei parametri e
restituisce una tabella.
Con questo codice scorri le celle/righe tabella:
'---
Dim oBrws As New SHDocVw.InternetExplorer
Dim oDoc As Object 'Document
Dim oTbl As Object 'Table
Dim oTblRw As Object 'TableRow
Dim oTblCll As Object 'TableCell
oBrws.Navigate2 "
http://indirizzoWebCheRestituisceUnaTabella
"
Do
    If oBrws.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
Set oDoc = oBrws.Document
For Each oTbl In oDoc.getElementsByTagName("TABLE")
  For Each oTblRw In oTbl.Rows
    For Each oTblCll In oTblRw.Cells
      Debug.Print oTblCll.innerText
    Next oTblCll
  Next oTblRw
Next oTbl
Set oTbl = Nothing
Set oTblRw = Nothing
Set oTblCll = Nothing
Set oDoc = Nothing
Set oBrws = Nothing
'---
Ciao.
--
Sergio MAZZA


title: controllo su web ed import risultati

text:
Sergio MAZZA ha scritto:
> Qui un esempio per aprire la pagina ed effettuare il login:
>
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/b836b577f50092b1/7a5b948394321e23?lnk=gst&q=login+web&rnum=1#7a5b948394321e23
ti ringrazio per la risposta..
ho guardato al tuo codice ma credo di essermi perso qualcosa..
questi due oggetti ad esempio:
Dim oApp As InternetExplorer
Dim oDocument As IHTMLDocument
non esistono... InternetExplorer e IHTMLDocument
non li vedo nel mio access...
ho bisogno di installare qualcosa di particolare?
poi quel tuo script, apre realmente una pagina di explorer o e' tutto
trasparente?
ti ringrazio per la disponibilita'.
Ciao.



title: controllo su web ed import risultati

text:
"Cahal" <
xx...@xx.com
> ha scritto nel messaggio
news:eauvk9$m82$1...@news.newsland.it...
>
> ti ringrazio per la risposta..
> ho guardato al tuo codice ma credo di essermi perso qualcosa..
> questi due oggetti ad esempio:
>
> Dim oApp As InternetExplorer
> Dim oDocument As IHTMLDocument
>
> non esistono... InternetExplorer e IHTMLDocument
> non li vedo nel mio access...
>
> ho bisogno di installare qualcosa di particolare?
Devi inserire i riferimenti alla libreria Microsoft Internet Control;
> poi quel tuo script, apre realmente una pagina di explorer o e' tutto
> trasparente?
Qual'è la differenza tra "apre realmente una pagina" e "tutto trasparente"?
Intendi se viene aperta e visualizzata la finestra del browser (in questo
caso IE) o no?
> ti ringrazio per la disponibilita'.
> Ciao.
Ciao.
--
Sergio MAZZA


title: controllo su web ed import risultati

text:
Sergio MAZZA ha scritto:
> > non esistono... InternetExplorer e IHTMLDocument
> > non li vedo nel mio access...
> Devi inserire i riferimenti alla libreria Microsoft Internet Control;
ehm... qual'e' la procedura corretta?
> Intendi se viene aperta e visualizzata la finestra del browser (in questo
> caso IE) o no?
esatto... io non voglio che l'utente veda IE che viene aperto e tutti gli
eventuali magheggi che ci faccio su...
grassie.
Ciao



title: controllo su web ed import risultati

text:
"Cahal" <
xx...@xx.com
> ha scritto nel messaggio
news:eav3de$1aa$1...@news.newsland.it...
>
> ehm... qual'e' la procedura corretta?
?!? Mhmm... Prevedo un bagno di sangue.
Apri un modulo, poi (menù) Strumenti - Riferimenti - e cerchi la libreria
indicata.
> esatto... io non voglio che l'utente veda IE che viene aperto e tutti gli
> eventuali magheggi che ci faccio su...
Allora fa quello che chiedi.
> grassie.
> Ciao
Aggiungo che ti conviene già da subito prevedere la gestione degli errori
(vedi help attivabile con ALT-F11 poi F1 alla voce: Istruzione On Error) per
eliminare le variabili oggetto create:
es.
sub Qualcosa
on error goto Qualcosa_err '<-- se c'è un errore vai a
...codice VBA...
exit sub '<-- fine routine
Qualcosa_err: '<-- se c'è un errore entra qui
    msgbox err.number & " " & application.accesserror(err.number)
    Set oTbl = Nothing
    Set oTblRw = Nothing
    Set oTblCll = Nothing
    Set oDoc = Nothing
    Set oBrws = Nothing
end sub
Ciao.
--
Sergio MAZZA


title: controllo su web ed import risultati

text:
Sergio MAZZA ha scritto:
> ?!? Mhmm... Prevedo un bagno di sangue.
> Apri un modulo, poi (menù) Strumenti - Riferimenti - e cerchi la libreria
> indicata.
grande!!!
..purtroppo non ho granche' esperienza su piattaforme Windows..
ma ora ho la necessita' di fare sta roba e sono vincolato dalla
piattaforma.. ;(
grazie di tutto.
faccio un po' di test e spero che tutto funzioni come si deve ;)



title: Incollare dati in una sottomaschera in visualizzazione foglio dati

author: Carlo

text:
Salve,
     vorrei creare una Privare Sub associata ad un pulsante che mi
incolli i dati copiati da Excel in una sottomaschera in
visualizzazione foglio dati.
Ovvero convertire quello che farei a mano in codice Visual Basic, e
cioè:
Se (nella clipboard sono presenti dati) allora {
     seleziona la riga del nuovo record nella sottomaschera
"DatiGrezzi"
     incolla i dati dalla clipboard
     Messaggio: "Dati incollati correttamente"
} altrimenti {
     messaggio: "Non ci sono dati da incollare"
} fine Se
Ho tradotto in italiano la funzione IF THEN per spiegarmi meglio.
Grazie


author: ALESSANDRO Baraldi

text:
"Carlo" <
carlo.l...@alice.it
> ha scritto nel messaggio
news:17dcc016-420d-4557...@f3g2000hsg.googlegroups.com...

} altrimenti {

} fine Se

Grazie
Mi sembrava di averti già risposto su ICLVB.... cosa non ti era chiaro...?
Per controllare se la ClipBoard contiene dati devi perforza di cose
ricorrere alle API
se sei capace la cosa è semplice altrimenti è più complessa.
Detto questo se la ClipBoard contiene dati l'azione di INCOLLA viene
effettuata nel controllo
con lo stato ATTIVO(FOUCS) se esegui un normale Paste... non è possibile
dividere i dati
in pezzi e metterli ognuno nel campo giusto... se non ricorrendo sempre alle
API e costruendosi un
PARSER della stringga testo recuperata dalla CLIPBOARD.
Fai una cosa semplice, effettua il COPY da dove vuoi quindi torna in Access
e su Click di un Button
che userai per Test scrivi:
On Error Resume Next
   Me!NomeTextBox.SetFocus
   DoCmd.RunCommand acCmdPaste
Vedi che ti ha incollato e vedi se è quello che volevi..., la strada API è
l'ultima alternativa
Ti allego un esempio di come leggere la CLIPBOARD:
Dim hStrPtr As Long, lLength As Long, sBuffer As String
OpenClipboard Me.hwnd
hStrPtr = GetClipboardData(CF_TEXT)
If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
               sBuffer = Space$(lLength)
               CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
               MsgBox sBuffer, vbInformation
        End If
End If
CloseClipboard
Saluti
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Come assicurarsi che un file di testo sia stato 'chiuso' ?

author: RobertoA

text:
Vorrei realizzare una sorta di printer server
Un programma A che verifica la presenza di file di testo dentro una
directory
Se ne trova li prende uno ad uno e li manda in stampa
Il test presenza file avviene una decine di volte al secondo
Supponiamo questi files vengano creati dal programma B, che fra
creazione/scrittura/chiusura ci mette circa 10 secondi per ogni file
La domanda e': come fa il programma A a sapere che il file e' stato
completato e quindi 'chiuso' ?
E' possibile rilevare che un file creato da 'altri' non e' ancora stato
scritto completamente?
(creare il file in altro luogo e poi copiarlo nell directory non vale)


text:
Prova ad aprirlo in scrittura e gestisce l'errore... se è in fase di scrittura sarà bloccato...

Errore 70.

https://support.microsoft.com/it-it/help/291295/macro-code-to-check-whether-a-file-is-already-open

@Alex


author: Graziano

text:

Rinomina il file con altro nome
Se da errore vuol dire che è aperto
Può essere un idea.

Ciao
Graziano


text:

Si, grazie
Ora provo


text:

Ora provo
Grazie


title: casella di riepilogo con selezione

author: Laura

text:
si può fare in modo che il primo dei dati elencati in una casella di
riepilogo risulti già selezionato all'apertura della maschera che la
contiene?
grazie


title: casella di riepilogo con selezione

author: AleC

text:

Imposti il ValorePredefinito (DefaultValue) al valore contenuto nella
colonna associata nella riga che ti interessa venga selezionata
all'apertura.
Es:
Per la tabella
ID   Campo1 Campo2
1    a      23
2    b      34
3    c      45
Orgine riga: Tabella 1
Colonna associata : 1
Valore predefinito : 2
Viene selezionata la riga 2 b 34
Con la creazione guidata imposti quasi tutti i parametri, devi solo
alla fine impostare il Valore predefinito. Se questo può cambiare ad
ogni apertura della Form, lo imposto condizionalmente nell'evento Load
della Form.
Ciao
AleC


title: casella di riepilogo con selezione

author: Roberto da Parma

text:
"Laura" <
la.a...@tiscali.it
> ha scritto nel messaggio
news:48cfcf77$0$11381$5fc...@news.tiscali.it...

Usa la proprietà Valore predefinito della casella di riepilogo
Ciao
--
Roberto da Parma


title: casella di riepilogo con selezione

text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:0b9a566f-cb79-45de...@d45g2000hsc.googlegroups.com...






Ciao
AleC
Un pò più striminzita la mia risp....ma sono arrivato ben 6 min prima!
:-)))



title: casella di riepilogo con selezione

author: Karl Donaubauer

text:
Laura wrote:
> si puņ fare in modo che il primo dei dati elencati in una casella di
> riepilogo risulti gią selezionato all'apertura della maschera che la
> contiene?
Se non vuoi mostrare un certo Id come gią mostrato da Alec
ma una certa riga, vedi:
Casella combinata/di riepilogo - Selezionare una riga
www.donkarl.com/it?FAQ4.12
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: casella di riepilogo con selezione

text:
> Ciao
> AleC
>
> Un pò più striminzita la mia risp....ma sono arrivato ben 6 min prima!
>
> :-)))
>
> Ciao
>
Solo perché non fanno i controlli antidoping
:D


title: casella di riepilogo con selezione

text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:43486029-9956-4224...@a3g2000prm.googlegroups.com...
> Ciao
> AleC
>
> Un pň piů striminzita la mia risp....ma sono arrivato ben 6 min prima!
>
> :-)))
>
> Ciao
>
Solo perché non fanno i controlli antidoping
:D
:-))))))



title: conversione date con FORMAT

text:
Salve, ho una maschera che voglio aprire filtrata da un range di date inserite a video, la data inserita e'  in forma gg/mm/aa, la data che mi occorre per eseguire il filtro deve essere mm/gg/aa. Ho usato il format per cambiare il formato :
sData = Format(wdata, "mm/dd/yy"). sdata e' la data usata nel filtro, wdata quella di video.
Sdata risulta uguale a wdata, quindi nessuna conversione. Tranne il caso (che ho eseguito per prova) in cui il formato che imposto nel format e'  yy/mm/dd, infatti in tale condizione mi ritrovo la data perfettamente convertita.
Qualcuno sa spiegarmi ?
Grazie.


title: conversione date con FORMAT

author: Vitantonio Tanzi

text:
af0...@wind.it
 ha scritto:

Devi dichiarare sData come stringa (Dim sData as String), se lo dichiari come Date o come Variant (Dim sData) la conversione non avviene.
Penso che ciň succeda perché Format č una funzione che opera su stringhe, con altri tipi di dati effettua una conversione "nascosta" verso il tipo di destinazione che di fatto lascia le cose invariate.
Ciao
Tonio Tanzi


title: Gestione utenti

author: hoyt

text:
Buon giorno a tutto il NG, per gestire l'accesso al DB utilizzo la
seguente routine che ho trovato in questo NG, ma avrei necessità che
all'apertura della form successiva (frmArticolo_) venga visualizzato
il nome dell'utente che è stato autenticato in fase di accesso ...
quindi il domandone è: come faccio a trasportare il nome utente da una
form all'altra considerato che la form di autenticazione usa contolli
non associati ???
Grazie dell'attenzione
Private Sub cmdTest_Click()
    Dim risp
    If IsNull(Me.Utente) Or IsNull(Me.Password) Then Exit Sub
    risp = DLookup("Password", "T_PW", "[Utente] = '" & Me.Utente &
"'")
    If IsNull(risp) Then
      MsgBox "Nome Utente o Password errati!!", vbCritical, "ERRORE"
      Exit Sub
    End If
    If risp <> Me.Password Then
      MsgBox "Nome Utente o Password errati!!", vbCritical, "ERRORE"
      Exit Sub
    Else
      DoCmd.OpenForm "frmArticolo_" & fctResolution
      DoCmd.Close acForm, "PWD"
    End If
End Sub


title: Gestione utenti

text:

Se ho ben capito, vuoi riempire un campo di frmArticolo, poniamo il
campo "utente", col nome che risulta in PWD.Utente.
In tal caso, dopo l'istruzione
   DoCmd.OpenForm "frmArticolo_" & fctResolution
aggiungi
   Forms("frmArticolo_" & fctResolution)!utente = PWD.Utente
e poi dài
   DoCmd.Close acForm, "PWD"
Dovrebbe andare.
Riccardo Baldinotti


title: Gestione utenti

text:

> Riccardo Baldinotti- Nascondi testo citato
>
> - Mostra testo citato -
Purtroppo mi dà il seguente errore:
Errore di run-time '424': Necessario Oggetto.
Come risolvere. Grazie ancora ...


title: Gestione utenti

text:
On 23 Feb, 10:40, hoyt <
d_cremon...@libero.it
> wrote:

Potresti usare openargs:
DoCmd.OpenForm "frm_Articolo", , , , , acDialog, utente
su caricamento della form frm_Articolo
Private Sub Form_Load()
If Len(Me.OpenArgs) > 0 Then
Me.Caption = Me.OpenArgs
End If
End Sub


title: Gestione utenti

text:

> End Sub- Nascondi testo citato
>
> - Mostra testo citato -
... uff ... ancora niente ... non da errori ma neanche il risultato
sperato ... ovvero non succede nulla ... che cosa posso aver
sbagliato ?


title: Gestione utenti

text:

> Come risolvere. Grazie ancora ...- Nascondi testo citato
>
> - Mostra testo citato -
Nella mia istruzione c'era un'imprecisione. Se la tua maschera in cui
è messa la pass si chiama PWD, allora bisogna correggere l'istruzione
così
   Forms("frmArticolo_" & fctResolution)!utente = Forms!PWD!Utente
ma anche con quell'errore non mi esce "Necessario oggetto", ma
"Variabile non definita".
A questo punto dovrei sapere cosa c'è nel valore fctResolution, e se
si tratta di una casella della maschera o di una variabile, e
dichiarata come.
Riccardo Baldinotti


title: Gestione utenti

text:

grazie .... tutto funziona perfettamente ... a quanto pare sono stato
parco di informazioni con te e quindi per rispondere alla tua giusta
domanda: dunque "fctResolution" acquisisce un valore numerico da un
modulo che verifica la risoluzione video ... quindi sulla base della
risoluzione riscontrata permette di aprire forms diverse (p.e.
frmArticolo_1 in caso di risoluzione video 1024*768 ... e così
via) ... ora il passaggio successivo devo individuare un modo che
permetta all'utente loggato di modificare"eventualmente" la sola
propria password ...
Grazie comunque della estrema pazienza ...
Buona serata ... Francesco


title: cancellare tutto tranne gli ultimi 10

author: Remigio

text:
Ciao,
su A2007 sto cercando di realizzare un'istruzione sql che cancelli tutti i record della tabella tmp_protocollo_copia tranne gli ultimi 10 record inseriti.
Il codice da me usato è il seguente:

delete * from tmp_protocollo_copia
WHERE id_tmp_protocollo NOT IN
(SELECT TOP 10 *
FROM (SELECT * FROM tmp_protocollo_copia ORDER BY id_tmp_protocollo DESC))

ma non funziona.
Mi dareste una mano per favore a capire cosa sbaglio?
Grazie e saluti


title: cancellare tutto tranne gli ultimi 10

author: Roberto Zannoni

text: Devi togliere l'asterisco ed esplicitare il campo giusto


title: cancellare tutto tranne gli ultimi 10

text:

DELETE tmp_protocollo_copia.id_tmp_protocollo , *
FROM tmp_protocollo_copia
WHERE (((tmp_protocollo_copia.id_tmp_protocollo) In (SELECT TOP 10 id_tmp_protocollo FROM T1 ORDER BY tmp_protocollo_copia.id_tmp_protocollo DESC)));

Saluti
@Alex


title: cancellare tutto tranne gli ultimi 10

text: Grazie ad entrambi, ma cosa significa 'From T1'?


title: cancellare tutto tranne gli ultimi 10

text:
Ho dimenticato di sostituirlo solo li, gli altri li ho sostituiti,... è il nome della tua tabella...

@Alex


title: cancellare tutto tranne gli ultimi 10

text:
Molte grazie
Oggi provo.

Un saluto a tutti


title: cancellare tutto tranne gli ultimi 10

text:
Molte grazie, oggi provo
Un saluto a tutti


title: Query di eliminazione particolare

author: LucaT

text:
Ho una tabella cosi costituita
caso_controllo -  eta  - CODICE
A                         50         PG01
B                         52         PG01
B                         54         PG01
A                         45         AA01
B                         46         AA01
B                         48         AA01
vorrei eliminare uno dei due record B la cui età si discosta di più da
quella di A
cioe' il risultato dovrebbe essere
caso_controllo -  eta  - CODICE
A                         50         PG01
B                         52         PG01
A                         45         AA01
B                         46         AA01
Grazie a chi vorrà aiutarmi
Luca T


title: formattare i decimali

author: Maurizio

text:
Ciao ragazzi, in una query vorrei formattare un campo somma in maniera
tale che mi dia un decimale dopo la virgola, non mi ricordo come devo
scrivere, mi aiutate?


title: formattare i decimali

text:
"Maurizio" <
mauri...@libero.it
> ha scritto nel messaggio
news:yMmud.493334$35.21...@news4.tin.it...
> Ciao ragazzi, in una query vorrei formattare un campo somma in maniera
> tale che mi dia un decimale dopo la virgola, non mi ricordo come devo
> scrivere, mi aiutate?
Non serve la memoria, ma l'Help....!
Vedi l'istruzione Format.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: formattare i decimali

text:
ALESSANDRO Baraldi ha scritto:
> "Maurizio" <
mauri...@libero.it
> ha scritto nel messaggio
> news:yMmud.493334$35.21...@news4.tin.it...
>
>>Ciao ragazzi, in una query vorrei formattare un campo somma in maniera
>>tale che mi dia un decimale dopo la virgola, non mi ricordo come devo
>>scrivere, mi aiutate?
>
>
> Non serve la memoria, ma l'Help....!
>
> Vedi l'istruzione Format.
>
Nel caso specifico nell'help ho visto la funzione FormatNumber, ma
quando scrivo FormatNumber(Somma[entrate]-[uscite]),1)mi da errore:(


title: formattare i decimali

text:
"Maurizio" <
mauri...@libero.it
> ha scritto nel messaggio
news:yqnud.278095$b5.13...@news3.tin.it...

Ma io non ti ho suggerito FormatNumber....!
Cerca Format.
Ciao



title: formattare i decimali

author: MA

text:
"Maurizio" <
mauri...@libero.it
> ha scritto nel messaggio
news:yqnud.278095$b5.13...@news3.tin.it...

Tra l'altro sono sbagliate le parentesi.
Prova con
Format(somma(nz(entrate)-nz(uscite));"#.##0,0"))
MAssimiliano


title: Inserisci dati letti

author: Networking Manager

text:
Avendo un file di testo esterno formato da record con un unico campo di 8
caratteri, come faccio a leggere ogni record e aggiungere i primi 2
caratteri in un campo della mia tabella PIPPO e gli altri 6 caratteri in un'
altro campo ???
Avrei necessita anche di saltare la prima riga, in quanto è l'intestazione
del file.
Ed in ultimo svuotare od eliminare il file di testo appena letto ???
Sergio


title: Inserisci dati letti

author: Roberto - Syd

text:
"Networking Manager" <
est...@estral.it
> ha scritto nel messaggio
news:a0f63c$g95$1...@fe2.cs.interbusiness.it...

Puoi fare quello che t'interessa in diversi modi, io ti suggerisco questo
fai una routine che legge il file e via via che lo leggi inserisci i dati
nella tabella e alla fine cancelli il file.
Sub LeggiArchiviaFile()
    Dim db as DAO.Database
    Dim rsPippo as DAO.Recordset
    Dim lNumFile as Long
    Dim sRecord as String
    set db = currentdb
    set rsPippo = db.openrecordset("PIPPO")
    lNumFile = FreeFile
    Open NomeFileDiTesto For Input as #lNumFile
        do while not EOF(#lNumFile)
            Line Input #lNumFile, sRecord
            if sRecord = RecordValido Then
                with rsPippo
                    .addnew
                    .fields("NomeDelCampo2Caratteri")=left(sRecord,2)
                    .fields("NomeDelCampo6Caratteri")=mid(sRecord,3)
                    .update
                end with
            end if
        loop
    close #lNumFile
    Kill NomeDelFilediTesto
End Sub


title: Inserisci dati letti

author: Sib dal portatile

text:
"Networking Manager" <
est...@estral.it
> ha scritto nel messaggio

Se vai sul menu file e scegli Carica dati esterni - Importa ti si aprirà una
finestra tipo "Sfoglia". A questo punto scegli come tipo di file i file di
testo e seleziona il file che devi importare. Quando lo hai trovato clicca
su "Importa", vedrai che tutte le operazioni ti verranno piuttosto intuitive
(esclusione prima riga, dimensione campi, ecc).
Poi avrai anche la possibilita' di salvare le impostazioni di importazione
in modo da potere, in futuro, automatizzare la procedura.
Vedi l'help in linea per maggiori dettagli.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: re tabella e relazioni

author: tommy

text:
Ciao al NG.
access/97 win 98 oppure xp.
Ho una tabella "articoli" con un campo contatore ID_Articolo
Ho tantissime altre tabelle collegate uno a molti con integrità
referenziale.
Bene! Oggi creo una nuova tabella e vano nella finestra relazioni.
Creo il join uno a molti con la tabella nuova e tabella "articoli" e applico
integrità referenziale.
Mi esce una casella di messaggio che non posso creare la relazione x' ce ne
sono troppe.
Quante se ne possono creare?
ciao a tutti.


title: chimare evento con combinazione tsti

author: nao

text:
ciao ng, è possibile chiamare un evento assegnato ad un bottone anche
tramite pressione di una composizione di tasti, es: CTRL+i
come devo fare?
grazie 1000
Nao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: chimare evento con combinazione tsti

author: Pablitomf (Maurizio Facciuti)

text:
nao ha scritto:

> come devo fare?
> grazie 1000
> Nao

nella form :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acCtrlMask) > 0 And (KeyCode = 73) Then
        ...Tuo evento
        KeyCode = 0
    End If
End Sub
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: chimare evento con combinazione tsti

text:
Pablitomf (Maurizio Facciuti ha scritto:
> nao ha scritto:
> > ciao ng, è possibile chiamare un evento assegnato ad un bottone anche
> > tramite pressione di una composizione di tasti, es: CTRL+i
> > come devo fare?
> > grazie 1000
> > Nao
> > --------------------------------
> > Inviato via
http://arianna.libero.it/usenet/
> nella form :
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
>     If (Shift And acCtrlMask) > 0 And (KeyCode = 73) Then
>         ...Tuo evento
>         KeyCode = 0
>     End If
> End Sub
Ovviamente il KeyCode = 73 è proprio la pressione di "i"... se vuoi sapere
di altri tasti, basta che all'inizio del codice usi (giusto per conoscerne
il valore) un Msgbox KeyCode. ;-)



title: chimare evento con combinazione tsti

author: Nao

text:
                    Il 28 Mar 2006, 12:20,
maurizio...@accessgroup.it
 (Pablitomf (Maurizio
Facciuti)) ha scritto:

Scusa la mia ignoranza in materia, ma non mi funziona.
Ho incollato il tuo codice nel vbasic della form, ma non funziona niente,
dove sbaglio?
grazie



title: chimare evento con combinazione tsti

text:
                    Il 28 Mar 2006, 12:20,
maurizio...@accessgroup.it
 (Pablitomf (Maurizio
Facciuti)) ha scritto:

Risolto, nelle proprietà della form era settato a no la proprietà: anteprima
tasti
ciao Nao



title: chimare evento con combinazione tsti

text:
nao ha scritto:
> Risolto, nelle proprietą della form era settato a no la proprietą: anteprima
> tasti
> ciao Nao
Grazie č! ;-|
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno



title: prova

author: Manu

text: prova


title: somme in un report

author: dario

text:
ciao a tutti.
non so come risolvere il problema che di seguito vi espongo.
 1)
ho 2 tabelle (fatture clientie pagamenti fatture clienti) collegate da un
relazione uno a molti
2)
estraggo i dati tramite una query che in base all'IDfattura estrae i dati
della fattura e i relativi pagamenti
SELECT [fatture clienti].IDfatturac, [fatture clienti].ANNO, [fatture
clienti].[numero FATTURA], [fatture clienti].[DATA FATTURA], [pagamenti
fatture clienti].FATTURATO, [pagamenti fatture clienti].PAGAMENTO,
[pagamenti fatture clienti].[IN DATA], [pagamenti fatture
clienti].riferimento, [fatture clienti].imponibile, [fatture clienti].iva
FROM [fatture clienti] INNER JOIN [pagamenti fatture clienti] ON [fatture
clienti].IDfatturac = [pagamenti fatture clienti].IDfatturac
WHERE ((([fatture clienti].CLIENTE)=[Forms]![scelta
cliente]![CasellaCombinata0]))
ORDER BY [fatture clienti].ANNO, [fatture clienti].[numero FATTURA];
3)
genero un report raggruppato per ogni fattura clienti con la sua bella
intestazione e pič pagina, che mi mostra i pagamenti associati ad ogni
singola fattura.
4) il report mi mostra il totale fattura, il totale dei pagamenti per la
fattura e il saldo di quella fattura, oltre alla somma dell'importo di tutte
le fatture estratte e alla somma di tutto quanto ho pagato per  quelle
fatture
PROBLEMA
se ho 2 o piů pagamenti per una fattura, la somma dell'importo di tutte le
fatture aumenta perchč vengono sommati i "doppioni" del totale fattura
estratti dalla query
COME FACCIO A FAR ESTRARRE ALLA QUERY SOLAMENTE 1 VOLTA PER FATTURA
L'IMPORTO TOTALE DELLA STESSA?
grazie Dario


title: Converti numeri in lettere

author: Gianni Liburdi

text:
Salve a tutti!
Ho bisogno di aiuto!
C'è qualcuno che ha una procedura per convertire le cifre (soprattutto
valuta) in lettere? Vi prego, ne ho un bisogno disperato!
Grazie di nuovo!


title: Converti numeri in lettere

author: Massimo

text:
se intendi 12 >>> dodici
vai sul sito comune e trovi un esempio perfetto.
"Gianni Liburdi" <
g.li...@mediacad.it
> ha scritto nel messaggio
news:9k67n4$lpt$1...@serv1.albacom.net...



title: Converti numeri in lettere

author: Arturo

text:
"Gianni Liburdi" <
g.li...@mediacad.it
> ha scritto nel messaggio
news:9k67n4$lpt$1...@serv1.albacom.net...
> Salve a tutti!
> Ho bisogno di aiuto!
> C'č qualcuno che ha una procedura per convertire le cifre (soprattutto
> valuta) in lettere? Vi prego, ne ho un bisogno disperato!
>
> Grazie di nuovo!
>
Copia questa funzione in un modulo nuovo e salvalo. Poniamo che tu abbia un
campo numerico in una tabella chiamato Campo1, per avere il valore in
lettere (ad esempio in una query,  una maschera o un report) basta che tu
scriva:
Num2Lett ([campo1])
Ciao, Arturo
'---------------------------------------------------------------------------
------
Function Num2Lett(par As Variant) As String
         Dim Buf As String, RetVal As String, i  As Integer, cifra
         Static Unita(10)  As String, c As Integer, tmp As String
         Static Decine(1 To 10)  As String, n As Integer, pos As Integer
         Static dieci(10 To 19)
         On Error Resume Next
         Unita(0) = "ZERO"
         Unita(1) = "UNO"
         Unita(2) = "DUE"
         Unita(3) = "TRE"
         Unita(4) = "QUATTRO"
         Unita(5) = "CINQUE"
         Unita(6) = "SEI"
         Unita(7) = "SETTE"
         Unita(8) = "OTTO"
         Unita(9) = "NOVE"
         Unita(10) = "DIECI"
         Decine(1) = "DIECI"
         Decine(2) = "VENTI"
         Decine(3) = "TRENTA"
         Decine(4) = "QUARANTA"
         Decine(5) = "CINQUANTA"
         Decine(6) = "SESSANTA"
         Decine(7) = "SETTANTA"
         Decine(8) = "OTTANTA"
         Decine(9) = "NOVANTA"
         Decine(10) = "CENTO"
         dieci(11) = "UNDICI"
         dieci(12) = "DODICI"
         dieci(13) = "TREDICI"
         dieci(14) = "QUATTORDICI"
         dieci(15) = "QUINDICI"
         dieci(16) = "SEDICI"
         dieci(17) = "DICIASSETTE"
         dieci(18) = "DICIOTTO"
         dieci(19) = "DICIANNOVE"
         Const MILLE = "MILLE"
         Const MIL = "MILIONE"
         Const MILS = "MILIONI"
         Const MILA = "MILA"
         Buf = Trim$(Str$(Int(par)))
         i = Len(Buf)
         cifra = 0
         RetVal = " "
         pos = 0
         tmp = ""
         While i >= 1
               tmp = Mid$(Buf, i, 1) & tmp
               i = i - 1
               If Len(tmp) = 3 Then
                  GoTo CnvNum
Ret:
                     If Left$(RetVal, 7) = "UNOMILA" Then
                        RetVal = "MILLE" + Mid$(RetVal, 8, Len(RetVal) - 8)
                     End If
                     If Left$(RetVal, 10) = "UNOMILIONI" Then
                        RetVal = "UNMILIONE" + Mid$(RetVal, 11,
Len(RetVal) - 11)
                     End If
                  tmp = ""
               End If
         Wend
         If Len(tmp) < 3 Then
            GoTo CnvNum99
Ret99:
         End If
         Num2Lett = RetVal
         Exit Function
CnvNum:
  pos = pos + 1
  'If tmp = "000" And pos = 1 Then
   'Retval = "MILA" & Retval
  ' GoTo Ret:
  'End If
  If Right$(tmp, 2) = "00" And pos = 2 And tmp <> "000" Then
     RetVal = "MILA" & RetVal
  End If
  If Right$(tmp, 2) = "00" And pos = 3 And tmp <> "000" Then
     RetVal = "MILIONI" & RetVal
  End If
  n = Val(Right$(tmp, 2))
  If n < 20 Then
     If pos = 2 And n > 10 Then
        RetVal = dieci(n) & "MILA" & RetVal
     ElseIf pos = 3 And n > 10 Then
        RetVal = dieci(n) & "MILIONI" & RetVal
     ElseIf n > 10 Then
        RetVal = dieci(n) & RetVal
     ElseIf n <= 10 And n > 0 Then
        If pos = 2 Then
           RetVal = Unita(n) & "MILA" & RetVal
        ElseIf pos = 3 Then
           RetVal = Unita(n) & "MILIONI" & RetVal
        Else
           RetVal = Unita(n) & RetVal
        End If
     End If
     n = Val(Left$(tmp, 1))
     If n = 1 Then
        RetVal = "CENTO" & RetVal
     End If
     If n > 1 Then
        RetVal = Unita(n) & "CENTO" & RetVal
     End If
     GoTo Ret:
  End If
     If pos = 2 Then
        RetVal = "MILA" & RetVal
     ElseIf pos = 3 Then
        RetVal = "MILIONI" & RetVal
     End If
  n = Val(Mid$(tmp, 3, 1))
  If n > 0 Then
   RetVal = Unita(n) & RetVal
  End If
  n = Val(Mid$(tmp, 2, 1))
  RetVal = Decine(n) & RetVal
  n = Val(Mid$(tmp, 1, 1))
  If n = 1 Then
     RetVal = "CENTO" & RetVal
  End If
  If n > 1 Then
     RetVal = Unita(n) & "CENTO" & RetVal
  End If
GoTo Ret:
CnvNum99:
  pos = pos + 1
  n = Val(tmp)
  If n < 20 Then
     If pos = 2 And n > 0 Then
        If n > 10 Then
           RetVal = dieci(n) & "MILA" & RetVal
        Else
           RetVal = Unita(n) & "MILA" & RetVal
        End If
     ElseIf pos = 3 And n > 0 Then
        If n > 10 Then
           RetVal = dieci(n) & "MILIONI" & RetVal
        Else
           RetVal = Unita(n) & "MILIONI" & RetVal
        End If
     ElseIf n > 0 Then
        RetVal = dieci(n) & RetVal
     End If
     GoTo Ret99:
  End If
     If pos = 2 Then
        RetVal = "MILA" & RetVal
     ElseIf pos = 3 Then
        RetVal = "MILIONI" & RetVal
     End If
  n = Val(Right$(tmp, 1))
  If n > 0 Then
     RetVal = Unita(n) & RetVal
  End If
  n = Val(Left$(tmp, 1))
  If n > 1 Then
     RetVal = Decine(n) & RetVal
  End If
     GoTo Ret99:
End Function


title: Converti numeri in lettere

text:
Grazie mille!
Non so veramente come ringraziarti per il codice!
Grazie di nuovo!


title: Converti numeri in lettere

text:
"Gianni Liburdi" <
g.li...@mediacad.it
> ha scritto nel messaggio
news:9k6hvq$33a$1...@serv1.albacom.net...
> Grazie mille!
> Non so veramente come ringraziarti per il codice!
> Grazie di nuovo!
De nada.
Arturo


title: SQLserver2005 e Visual Studio 2005 (OT)

text:
Oggi ho paartecipato alla convention Microsoft  per la presentazione di
SQL 2005 & Visual Studio 2005 & Biz Talk.
La dimostrazione e l'organizzazione (tenendo conto di più di 2000
partecipanti) mi è sembrata , oltre ogni previsione , il servizio di
navettta ineccepibile ,  la sala  che con tale numero di partecipanti
ha retto  molto bene , a  "odori umani"  , rumore, telefonini .
Un complimenti alla organizzazione che ha retto molto bene  !!
Vorrei sapere da qualcun altro " access dipendente" (come Me)  una sua
valutazione sugli strumenti di sviluppo  , che promettono tempi di
sviluppo dell'applicazione contenuti .
Il punto forte di access è sempre stato il tempo di sviluppo del data
base ..
Grazie


title: SQLserver2005 e Visual Studio 2005 (OT)

author: TheMax

text:
carlo....@gmail.com
 wrote:
> Oggi ho paartecipato alla convention Microsoft  per la presentazione
> di SQL 2005 & Visual Studio 2005 & Biz Talk.
>
> Un complimenti alla organizzazione che ha retto molto bene  !!
Mi associo... anche se i due panini mi hanno lasciato un tantino con un
languorino :-)
> Vorrei sapere da qualcun altro " access dipendente" (come Me)  una sua
> valutazione sugli strumenti di sviluppo  , che promettono tempi di
> sviluppo dell'applicazione contenuti .
Parlo ovviamente di uso di Access come FE
Allora, IMHO (e parzialmente anche del Dott. Comm. Illlustrissimo Altissimo
Giorgio Rancati ) Access ha un grosso vantaggio (che da questo punto di
vista VS sta imitando) che consente di sviluppare mooolto rapidamente
oggetti complessi.
Il data binding delle maschere esiste già da molto, i report, le
sottomaschere ed i menù a tendina sono oggetti che consentono con pochissimo
(praticamente 0) codice di sviluppare un'applicazione dall'interfaccia
gradevole ed abbastanza affidabile.
Poi, in access non puoi sviluppare al 100% OOP (ad oggetti), non esiste il
compilatore, devi installare access piuttosto che il run-time (vero che di
la si installa il framework), hai una gestione della memoria diversa,
insomma, sono due cose diverse.
Io le uso entrambe e devo dire che in termini di produttività,
un'applicazione basata sui dati la sviluppi molto più velocemente con Access
che con VS. Poi possiamo parlare di applicazioni "enterprise" in cui fai la
condivisione dei sorgenti, lavori in team in cui ognino fa solo una cosa,
puoi avere un'applicazione che non usa un db ed allora ecco farmi pendere
l'ago della bilancia verso VS.
Poi ad esempio potresti voler usare la tua applicazione sul web, e se hai
sviluppato classi piuttosto che maschere, con due click trasformi una win
form in una web form (con la mia grafica, se prendi una form di maurizio, ci
metti due giorni a farla funzionare sul web per farla così bella).
Morale... prova e vedi che cosa cambia = conoscili entrambi e poi scegli
oppure tieni il piede su due scarpe come faccio io.
> Grazie
Ciao,
Massimo


title: Il nome della Query

author: Greg

text:
Condivido quanto scoperto oggi, magari voi lo sapevate già e allora chiedo venia :)

Quando apro un query il nome della tabella/query sottostante l'ho trovato sempre case-insensitive
Select * from turni e Select * from TURNI funzionano allo stesso modo

se però ciclo sull'insieme delle query/tabelle (per sapere se esiste) il confronto va fatto tenendo conto di maiuscolo
e minuscolO

For x = 0 To DB.QueryDefs.Count - 1
    If DB.QueryDefs(x).Name = "turni" Then k = "si"
Next

Se l'oggetto query si chiama Turni il test fallisce

--
Greg


title: Il nome della Query

author: Bruno Campanini

text:
Greg expressed precisely :

Con Access 2016/64bit ENG su Win10 CU la
ricerca non è case-sensitive né, mi sembra,
lo sia mai stata in precedenza.

Tu che cosa stai usando?

Bruno


title: Il nome della Query

text:
Il 29/04/2017 21:44:09 Bruno Campanini ha scritto:

> Con Access 2016/64bit ENG su Win10 CU la
> ricerca non è case-sensitive né, mi sembra,
> lo sia mai stata in precedenza.
>
> Tu che cosa stai usando?
>
> Bruno

Sto usando il vecchio 2003

--
Greg


title: Il nome della Query

text:
Greg pretended :

Prova così:

Dim i
For Each i in CurrentDB.QueryDefs
    If UCase(i.Name)="TURNI" Then
        MsgBox i.Name
    End If
Next

Bruno


title: Il nome della Query

text:
Il 30/04/2017 10:21:00 Bruno Campanini ha scritto:

> Dim i
> For Each i in CurrentDB.QueryDefs
>     If UCase(i.Name)="TURNI" Then
>         MsgBox i.Name
>     End If
> Next

Oh ma non c'è bisogno di inserire una conversione, adesso che lo so scrivo il nome corretto. Grazie

--
Greg


title: function annidate, sino a che punto è possibile?

text:
.. non sapevo si potessero *annidare* in questo modo delle funzioni.
Dovevo ricavare, su aggiornamento di un altro field e su un campo non
associato , il nome del mese.
Dopo averlo ricavato, dovevo rendere la prima lettera maiuscola.
Solo che non mi riusciva in automatico , da Vba, di rintracciare
nessun evento  "Su", in quanto , aggiornando la field da Vba non
associata, non accadeva nessun evento.
Nè aggiornamento, nè modifica, nè nient'altro.
Ho quindi provato per puro gioco , del tipo " vediamo che  succede",
a mettere assieme le due funzioni e
non so come , e con mia meraviglia, dopo diverse prove il tutto
funziona.
fields:
DataAttività ( associato)
MeseNum ( non associato)
MeseTxt ( Associato)
Code:
Sub DataAttività_afterupdate
Me.MeseNum = Month(Me.DataAttività) ' Ricava il numero del mese in
base alla data
Me.MeseTxt = StrConv(MonthName(Me.MeseNum, False), vbProperCase) '
Ricava il nome del mese e rende la prima lettera Maiuscola.
Adesso mi chiedo: è una casualità o con un po' di attenzione e di
*creatività* e annidando più funzioni , si puo' creare del codice  più
pulito e più funzionale?
Ciao
Pietro


author: Alessandro Cara

text:
don.pete...@gmail.com
 ha scritto:

che significato ha per te "annidare piu' funzioni"? In quello che hai
scritto non mi sembra di vedere alcun annidamento
questo e' un annidamento
funza
   call funzb
exit funz
funzb
   call funzc
exit funz
o quest'altro ( in questo caso si chiama ricorsivita')
funza
  call funza
exit funz
anche se per come la ho
scritta genera un "out of memory" in poco tempo
--
ac


text:
On 9 Ago, 22:33, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
>
don.petergabr...@gmail.com
 ha scritto:

perdonami , sono sicuramente *per il momento* molto meno *saputo* di
te , ma non ci vedo nessuna differenza
funzA(FunzB, ParametriB, parametriB) , parametriA)
Sto chiedendo ad una funzione A di analizzare una funzione B e di
restituirmela
in base ai parametri A
esattamente come :
funzA
 call funzB
exit funzA
Wikipedia:In informatica viene detto annidamento (nesting in inglese)
l'inserimento di una struttura di controllo all'interno di un'altra
Vero è che le *strutture di controllo* afferiscono  ai  controlli dei
flussi di esecuzione, ma sii buono. Intendevo chiedere fino a quale
livello si potessero *il termine lo lascio scegliere a te* mettere
assieme più funzioni.
Ho passato due momenti molto distinti nella mia vita; il primo, nel
quale prendevo sempre 4 in matematica, il secondo, nel quale prendevo
sempre 10 con lode.
La costante era che io ero sempre lo stesso.La variabile, chi
insegnava in quel momento.
Con molta simpatia ( non potrei non averne, in fondo sei sempre qui a
rispondere a chi chiede aiuto) ma se ti fossilizzi sul tuo *sapere* e
non aiuti a capire
la differenza tra una cosa e la sua apparente similitudine, non dai in
realtà nessun contributo al sapere.
Rispondere * non hai capito un accidenti* non ti eleva da nessuna
parte, e di contro , non *spiega* niente a chi ha posto la domanda.
Sai un sacco di cose.E potresti essere punto di riferimento di tanti,
me compreso.
Con simpatia e con tanto, tanto, rispetto
Pietro


text:
don.pete...@gmail.com
 ha scritto:
[cut]
http://tinyurl.com/6kkwyn
--
ac


author: Carlo Costarella

text:
<
don.pete...@gmail.com
> ha scritto nel messaggio
news:e57a0ed2-254f-4d01...@w7g2000hsa.googlegroups.com...






Ciao
Pietro
[risposta]
ciao Pietro
la casualità dipende dalla tua preparazione nel senso che se sei addivenuto
ad un risultato esatto per "tentativi" ed usando una sintassi corretta ma a
te sconosciuta, si può parlare di casualità; altrimenti un corretto
risultato lo si ottiene applicando la giusta sintassi e senza alcuna
casualità, anzi in modo spesso rigido e predeterminato.
Quanto alle funzioni interne al sistema come "StrConv", "MonthName" o
"Month" (vbProperCase è una costante) queste possono essere usate, combinate
tra loro, in un unico costrutto sintattico e finalizzato ad un risultato
voluto oppure essere usate separatamente (come hai fatto tu nell'esempio).
Il risultato spesso non cambia.
Per esempio il tuo codice poteva essere scritto anche così:
Me.MeseTxt = StrConv(MonthName(Month(Me.DataAttività), False), vbProperCase)
ottenendo direttamente la valorizzazione di Me.MeseTxt ma senza la
valorizzazione di Me.MeseNum...questo significa che se a te serve la
valorizzazione di Me.MeseNum hai scritto bene il codice altrimenti andava
scritto per come ho riportato (sono possibili anche altre strade).
Scrivere codice "più pulito e più funzionale" è una pratica caldamente
consigliata ma questo vuol dire seguire e conoscere a fondo il linguaggio di
sviluppo, mai affidandosi al caso.
Per esempio l'annidamento di vari If...Then...Else (istruzioni) in un unico
ciclo non è sempre consigliato a causa della difficoltà di lettura e di
costrutto ma questo non vuol dire che non si possa usare...basta sapere
quello che si fa.
Così per i cicli di For...Next o While...Wend annidati.
Stesso discorso per i report e sottoreport annidati o per le query
annidate...
Ciao, Carlo


text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto
cut
>> Ciao
>> Pietro
> che significato ha per te "annidare piu' funzioni"? In quello che hai
> scritto non mi sembra di vedere alcun annidamento
>
Penso si riferisse a:
Me.MeseTxt = StrConv(MonthName(Me.MeseNum, False), vbProperCase)
...MonthName "annidata" in StrConv...cioč passa una funzione che restituisce
una stringa come parametro di un'altra funzione.
In fondo si parla di strutture annidate...
Ciao, Carlo


text:
<
don.pete...@gmail.com
> ha scritto
cut
>Rispondere * non hai capito un accidenti* non ti eleva da nessuna
>parte, e di contro , non *spiega* niente a chi ha posto la domanda.
Sinceramente non mi sembra che abbia voluto dire questo!
Di certo non lo ha scritto.
Ciao, Carlo


text:
Carlo Costarella ha scritto:
> "Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto
> cut
>>> Ciao
>>> Pietro
>> che significato ha per te "annidare piu' funzioni"? In quello che hai
>> scritto non mi sembra di vedere alcun annidamento
>>
>
> Penso si riferisse a:
> Me.MeseTxt = StrConv(MonthName(Me.MeseNum, False), vbProperCase)
> ...MonthName "annidata" in StrConv...cioè passa una funzione che restituisce
> una stringa come parametro di un'altra funzione.
> In fondo si parla di strutture annidate...
Si, vero. Ma poiche' Roberto da Parma, in un'altro post, gli aveva
inviato una soluzione annidando:Left,Mid,Instr,Len gli ho fatto una
semplice domanda per "capire" (io) cosa intendesse per annidamento.
Ma credo si sia "offeso" perche' in quel 3d, avendomi fatto una domanda
sulla ubound gli ho *spiegato* in modo forse troppo didascalico il codice.
Ed anche stavolta, forse, non ha completamente digerito funzA(funzA(x)).
Pero' "siamo" bravi. In pochi giorni e' passato dai bastoncini al
calcolo differenziale  ;<)
Ma tant'e'. Panta rei
--
ac


author: Roberto da Parma

text:
<
don.pete...@gmail.com
> ha scritto nel messaggio
news:f84d10f2-8035-4040...@8g2000hse.googlegroups.com...











Pietro
Tralasciando il discorso dell'annidamento...sai quanti nidi faccio.... :-)))
Se vogliamo andare a cercare la massima compressione del codice potresti
fare anche così...
StrConv(Format(Me.DataAttività,"mmmm"), vbProperCase)
e ti eviti la casella non associata....
Poi dopo sono tutte "seghe mentali"....rimanendo il fatto che se un codice è
scritto male...è scritto male...
Ciauz
--
Roberto da Parma


author: Sergio MAZZA

text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:tpxnk.15932$0N....@tornado.fastwebnet.it...

Quanto prendi Alessa' per una seduta?
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

«Dammi un centesimo, uno solo».
;<)
--
ac


author: AleC

text:
On 10 Ago, 11:38, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
> Carlo Costarella ha scritto:
>
> > "Alessandro Cara" <
a...@ay-1asistemi.it
> ha scritto

"funz funz" mi assomiglia all'onomatopea di un ritmo musicale...
:=)


text:

Volevo chiedere scusa ad Ac, per averlo frainteso ed aver reagito
nervosamente al suo intervento.
Evidentemente avevo *molta* necessità di staccare dal lavoro e
rilassare la mente.
Grazie invece per i suoi preziosi consigli assieme a queli di tutti
gli altri. Anche quelli giustamente cattedratici.
Servono da sprone a studiare più e meglio.
Pietro


title: [!] Grazie al ng ed ad sito comune

text:
Salve gente,
questo msg per ringraziare il ng e il sito comune per le info trovate
per creare un doc di word97 da access97.
Thanx
mau_rizio


title: Tabelle con password

author: Maurizio

text:
Salve a tutti, vorrei proporre un mio dubbio sull'apertura di una maschera.
Ho creato un pannello comandi(chiedo scusa ma ho usato la creazione
automatica) per aprire delle maschere di un DB e volevo chiedere se fosse
possibile inserire una password di protezione per l'apertura.
Grazie 1K a chi dà qualsiasi(tranne  pochi suggerimenti) per fare chiarezza
al mio dilemma.
A proposito: Roberto, come stai??
Maurizio


title: Tabelle con password

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:CMIk9.16060$Eu.3...@twister1.libero.it...

Scusate, intendevo dire maschere
Maurizio


title: Tabelle con password

author: Maurizio Borrelli

text:
> "Maurizio" news:aWIk9.15481$e31.3...@twister2.libero.it...:
[...]
> > A proposito: Roberto, come stai??
> Scusate, intendevo dire maschere
    Le maschere stanno bene... Come spero di Roberto.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Tabelle con password

author: Roberto da casa

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:CMIk9.16060$Eu.3...@twister1.libero.it...
[CUT]
> A proposito: Roberto, come stai??
> Maurizio
>
Discretamente, grazie.
Roberto


title: Tabelle con password

author: MA

text:
> > > A proposito: Roberto, come stai??
> > Scusate, intendevo dire maschere
>
> Le maschere stanno bene... Come spero di Roberto.
ROTFL
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Molto triste - osservazioni OT

author: simisa

text:
Piccola considerazione, ho richiesto un'aiuto...ho ricevuto 7-8 messaggi di
prese per il culo e cazzate di quoting.
Newbie...quoting...siate piů umani con chi non ha mai frequentato un
news....tutti possono sbagliare.
La cosa piu triste č che alla fine nessuno č riuscito a darmi una risposta a
questo thread:
"Evidenziare il primo dei doppioni in report"
C'č un vero esperto nel chan che possa darmi una mano ?
Grazie mille e scusate.


title: Molto triste - osservazioni OT

author: omasnc

text:
"simisa" <
sim...@tiscalinet.it
> ha scritto nel messaggio
news:MxUab.125327$R32.3...@news2.tin.it...
> Piccola considerazione, ho richiesto un'aiuto...ho ricevuto 7-8 messaggi
di
> prese per il culo e cazzate di quoting.
>
> Newbie...quoting...siate più umani con chi non ha mai frequentato un
> news....tutti possono sbagliare.
>
> La cosa piu triste è che alla fine nessuno è riuscito a darmi una risposta
a
> questo thread:
>
> "Evidenziare il primo dei doppioni in report"
>
> C'è un vero esperto nel chan che possa darmi una mano ?
>
> Grazie mille e scusate.
In questo ng di veri esperti ce ne sono molti (purtroppo non ne faccio
parte): se nessuno ti ha risposto, ci sono varie possibilità:
1) Nessuno ne aveva voglia (questo non è un helpdesk a pagamento e nulla è
dovuto).
2) Nessuno conosce una soluzione al tuo problema (accade continuamente).
3) Il tuo problema era espresso in termini troppo generici o poco
comprensibili (è solo una possibilità, non mi riferisco al tuo messaggio in
particolare).
4) Tutti ce l'hanno con te.
Ciò detto, non lamentarti perchè qualcuno ti ha "redarguato": è capitato ad
ognuno di noi. Come saprai, questo ng non è moderato, pertanto è necessario
che i frequentatori si diano un minimo di autodisciplina, pena lo scadimento
da inestimabile strumento di studio e lavoro a inutile babele. Per capire
ciò che dico basta dare un'occhiata a quello che succede su altri ng. Le
regole da rispettare sono poche e sono sempre le stesse fin da quando hai
fondato i newsgroups negli anni 80: rispettale e se qualcuno ti può aiutare
lo farà.
Ciao
Galliano.


title: Molto triste - osservazioni OT

text:
simisa wrote:
>
> Piccola considerazione, ho richiesto un'aiuto...ho ricevuto 7-8 messaggi di
> prese per il culo e cazzate di quoting.
capisco il tuo sfogo anche se alcune "prese per il culo" non ti riguardavano
direttamente ma era un "gioco" fra MA e ciroteo. Capisco anche che devi
risolvere un " problema" e quindi potresti non essere nello spirito adatto per
"apprezzare". Per esempio personalmente mi leggo quasi tutte le risposte di MA
perche' a me piace il suo spirito satirico-ironico-umoristico-sarcastico
(qualche volta eccede, ma e' "umano")
Se hai la pazienza ed il tempo di guardarti qualche post con soggetto, che
generalmente io definisco "insulso", ti accorgerai che e' sempre la solita
storia. Oltretutto "normalmente" i "soloni" del NG quei post non li guardano
proprio e se qualcuno ti consiglia di mettere un oggetto piu' adatto lo fa per
te non per lui.
Fra le prese in giro hai comunque ricevuto parecchie informazioni utili
1) Usare la formattazione condizionale
2) Dare un sguardo al sitocomume (
www.sistocomune.com
)
3) Cercare, con un qualsiasi motore di ricerca, cose come "evidenziare righe
report" in questo NG
Non sempre si riceve la risposta "precisa", personalmente non lo faccio "quasi"
mai (ovviamente mi riferisco alle poche cose che conosco), preferisco che il
"postante" ci metta sempre qualcosa di suo.
I partecipanti a questo NG, ti posso assicurare, sono molto "umani" e nella loro
umanita' e' prevista anche la possibilita' del "gioco", il solo aspetto tecnico
qualche volta puo' essere molto noioso, sopratutto alla centesima volta che
rispondi, ad esempio, a come si fa a ricavare un valore da una casella combinata
(una delle domande piu' gettonate)
--
a.cara
Togli qualcosa dall'email


title: Molto triste - osservazioni OT

author: HjKlOp

text:
Guarda se ti puo' essere utile...a me funziona...
' Ipotizziamo di avere una tabella con un elenco valori
' e un report con una casella di testo legata all'unico campo
' Descrizione
Option Compare Database
Option Explicit
Dim matr() As Variant
Dim DinInt As Integer
Dim i As Integer
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
' Formatta le caselle di testo verificando l'indice
    If (matr(DinInt, 1) = 1) Then
        Descrizione.FontBold = True
    Else
        Descrizione.FontBold = False
    End If
    DinInt = DinInt + PrintCount
End Sub
Private Sub Report_Open(Cancel As Integer)
DinInt = 0
MakeSource
End Sub
Private Sub MakeSource()
Dim db As DAO.Database
Dim rc As DAO.Recordset
Dim st As String
Set db = CurrentDb
st = "SELECT Descrizione FROM Valori ORDER BY Descrizione"
Set rc = db.OpenRecordset(st)
' Ridimensionamento dinamico matrice
ReDim matr(rc.RecordCount, 2) As Variant
' Riempio la matrice con i records
For i = 0 To rc.RecordCount - 1
    matr(i, 0) = rc.Fields(0).Value
    matr(i, 1) = 0 ' Indice per il controllo dei record duplicati
    rc.MoveNext
Next i
' Verifico il primo record duplicato e segno l'indice con 1
If UBound(matr, 1) > 1 Then
For i = 0 To UBound(matr, 1) - 1
    If i = 0 Then
        If (matr(i, 0) = matr((i + 1), 0)) Then
            matr(i, 1) = 1
        Else
            matr(i, 1) = 0
        End If
    ElseIf (matr(i, 0) <> matr((i - 1), 0)) And _
   (matr(i, 0) = matr((i + 1), 0)) Then
            matr(i, 1) = 1
    Else
            matr(i, 1) = 0
    End If
Next
End If
' Imposto l'origine record dei controlli e del report
' puoi anche evitarlo se imposti l'origine record dalla
' progettazione report
End Sub


title: Molto triste - osservazioni OT

text:
> ' Imposto l'origine record dei controlli e del report
> ' puoi anche evitarlo se imposti l'origine record dalla
> ' progettazione report
L'origine record deve essere la stessa della query impostata
nella variabile "st" es:
DataSource = st


title: Molto triste - osservazioni OT

text:
"HjKlOp" <
lordl...@yahoo.com
> ha scritto nel messaggio
news:jxcbb.94465$hE5.3...@news1.tin.it...

Ti ringrazio vivamente per l'aiuto, lunedi ti sņ dire.
Grazie


title: Molto triste - osservazioni OT

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3F6C2EFB...@blunet.it...
> simisa wrote:
> >
> > Piccola considerazione, ho richiesto un'aiuto...ho ricevuto 7-8 messaggi
di
> > prese per il culo e cazzate di quoting.
> capisco il tuo sfogo anche se alcune "prese per il culo" non ti
riguardavano
> direttamente ma era un "gioco" fra MA e ciroteo. Capisco anche che devi
[...]
Ringrazio anche te per le delucidazioni, in effetti mi sono comportato come
un'utente da help desk...purtroppo questo problema mi ha portato ad una
crisi di nervi...che lunedi risolverò certamente grazie ad HjLlOp.
Grazie


title: Molto triste - osservazioni OT

text:
> > DataSource = st
Ti ho scritto DataSource invece di RecordSource...VB lapsus.


title: se un campo è vuoto

author: ndb

text:
Devo dare un comando del tipo
Se il campo (e-mail) è <>"" then (cioè se è compilato)
ma non so come dire se non è compilato
ho provato con IF ME.EMAIL ="" THEN... ma non funziona


title: se un campo è vuoto

author: Karl Donaubauer

text:
ndb wrote:
> Devo dare un comando del tipo
> Se il campo (e-mail) č <>"" then (cioč se č compilato)
> ma non so come dire se non č compilato
> ho provato con IF ME.EMAIL ="" THEN... ma non funziona
Prova con
If IsNull(Me!Email) Then
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: se un campo è vuoto

author: Giuli el Dabro

text:
Il /07 nov 2008/, *Karl Donaubauer* ha scritto:
> ndb wrote:
>> Devo dare un comando del tipo
>> Se il campo (e-mail) è <>"" then (cioè se è compilato)
>> ma non so come dire se non è compilato
>> ho provato con IF ME.EMAIL ="" THEN... ma non funziona
>
> Prova con
>
> If IsNull(Me!Email) Then
O meglio ancora IF Nz(Me.email, "") = "" THEN... che funziona sia nel
caso sia null sia nel caso sia = "".


title: se un campo è vuoto

text:
Giuli el Dabro wrote:
>  Karl Donaubauer ha scritto:
>
>> ndb wrote:
>>> Devo dare un comando del tipo
>>> Se il campo (e-mail) č <>"" then (cioč se č compilato)
>>> ma non so come dire se non č compilato
>>> ho provato con IF ME.EMAIL ="" THEN... ma non funziona
>>
>> Prova con
>>
>> If IsNull(Me!Email) Then
>
> O meglio ancora IF Nz(Me.email, "") = "" THEN... che funziona sia nel
> caso sia null sia nel caso sia = "".
Io preferisco di solo usare IsNull() č proibire "" per evitare tutti
i problemi che seguono. Vedi anche
http://groups.google.com/group/it.comp.appl.access/msg/0c522152a04a7f2f
--
cu



title: aggiornamento del back end

author: Barnum Ph.

text:
Ho distribuito ai miei colleghi un programma in access 2000 che comprende
sia il FE che il BE, ed ognuno di loro è completamente autonomo.
A seguito di variazioni aziendali ho dovuto modificare 2 delle 10 tabelle
aggiungendo dei nuovi campi.
Diligentemente mi sono recato sul sito comune dal quale ho preso una serie
di istruzioni per aggiornare il BE.
Riassunto del mio programma:
Nome BE:  Istanze_be.mdb
Vecchio Be da aggiornare Istanze_beold.mdb
Tabelle modificate :  "Anagraficaditta" e "Visite"
- ho creato quindi un nuovo BE con tutte le tabelle nuove e vecchie a 0
record;
- ho creato una maschera con un pulsanto "aggiorna datatabase" che ha la
seguente istruzione
Prima ho dichiarato la fuunzione esistetabella (sitocomune faq general015)
provando solo ad aggiornare una tabella (anagrafica ditta) e non due.
Option Compare Database
 Public Function EsisteTabella(Anagraficaditta As String, Optional
Istanze_beold) As Boolean
   ' restituisce True se la tabella NomeTab del database NomeDbs (opzionale)
esiste
  Dim dbs As Database, tdf As TableDef
  If IsMissing(Istanze_beold) Then
   Set dbs = CurrentDb
  Else
   Set dbs = Opendatabase(Istanze_beold)
  End If
  EsisteTabella = False
  For Each tdf In dbs.TableDefs
   If tdf.Name = NomeTab Then
    EsisteTabella = True
    Exit For
   End If
  Next tdf
  Set dbs = Nothing
  End Function
dopo di che ho inserito la seguente istruzione nella proprietà click del
pulsante di comando:
Private Sub Comando0_Click()
 Set dbsExt = Opendatabase("Istanze_beold.mdb")
 For Each tdf In dbsExt.TableDefs
  If (tdf.Attributes And dbSystemObject) = False And (tdf.Attributes And
dbHiddenObject) = False Then
   If EsisteTabella(tdf.Name) Then
    DoCmd.RunSQL "INSERT INTO " & tdf.Name & " SELECT * FROM " & tdf.Name &
" IN " & "istanze_beold.mdb"
   End If
  End If
  Next tdf
  Set dbsExt = Nothing
End Sub
Allora il problema intanto è che  per la espressione Opendatabase il
programma si arresta avvertendomi che c'è un errore di compilazione e la sub
o function non è definita;
per cui cosa sbaglio?
E' corretta la procedura che ho usato?
Come e dove correttamente inserire l'aggiornamento della seconda tabella
(Visite) ?
così per esempio : Public Function EsisteTabella(Anagraficaditta, Visite As
String, Optional Istanze_beold) As Boolean
Grazie
Ph. Barnum


title: aggiornamento del back end

text:
"Barnum Ph." <
bar...@tin.it
> ha scritto nel messaggio
news:4266a.299638$AA2.11...@news2.tin.it...

Che versione di Access usi?
Sembrerebbe dall'errore che ricevi che usi una versione di Access successiva
ad Access 97.
Non ho letto attentamente le tue routine, ma ho notato che fanno riferimento
alla libreria Microsoft DAO.
Se quindi, come penso, che usi Access 2000 0 2002 deve aggiungere al tuo
database il riferimento alla libreria Microsoft DAO  e fallo in maniera tale
che, nella lista dei riferimenti, preceda il riferimento alla libreria
Microsoft ADO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aggiornamento del back end

text:
>
> Che versione di Access usi?
> Sembrerebbe dall'errore che ricevi che usi una versione di Access
successiva
> ad Access 97.
> Non ho letto attentamente le tue routine, ma ho notato che fanno
riferimento
> alla libreria Microsoft DAO.
> Se quindi, come penso, che usi Access 2000 0 2002 deve aggiungere al tuo
> database il riferimento alla libreria Microsoft DAO  e fallo in maniera
tale
> che, nella lista dei riferimenti, preceda il riferimento alla libreria
> Microsoft ADO.
>
> --
> Roberto
>
Uso access 2000 con l'aggiornamento sr1.
Purtroppo non so come aggiungere al mio database il riferimento alla
libreria DAO, credo di avere capito leggendo qua e là in file di esempio che
sia una semplice riga di routine, ma francamente non so cosa scrivere (
Dim conn As DAO.Connection  potrebbe andare??)
E' un pò tardi e non potrò provare prima di domani sera, comunque grazie per
i tuoi aiuti.
Ph. Barnum


title: aggiornamento del back end

author: stefano (kabisa)

text:
"Barnum Ph." <
bar...@tin.it
> ha scritto nel messaggio
news:iub6a.301484$AA2.11...@news2.tin.it...
>
> >
> > Che versione di Access usi?
> > Sembrerebbe dall'errore che ricevi che usi una versione di Access
> successiva
> > ad Access 97.
> > Non ho letto attentamente le tue routine, ma ho notato che fanno
> riferimento
> > alla libreria Microsoft DAO.
> > Se quindi, come penso, che usi Access 2000 0 2002 deve aggiungere al tuo
> > database il riferimento alla libreria Microsoft DAO  e fallo in maniera
> tale
> > che, nella lista dei riferimenti, preceda il riferimento alla libreria
> > Microsoft ADO.
> >
> > --
> > Roberto
> >
>
>
> Uso access 2000 con l'aggiornamento sr1.
> Purtroppo non so come aggiungere al mio database il riferimento alla
> libreria DAO, credo di avere capito leggendo qua e lą in file di esempio
che
> sia una semplice riga di routine, ma francamente non so cosa scrivere (
> Dim conn As DAO.Connection  potrebbe andare??)
> E' un pņ tardi e non potrņ provare prima di domani sera, comunque grazie
per
> i tuoi aiuti.
> Ph. Barnum
>
 Ciao
basta che vai in un modulo
nella barra in alto vai in strumenti (tools) riferimenti (references) e
metti anche microsoft DAO 3.6 object library
Stefano


title: aggiornamento del back end

text:
"Barnum Ph." <
bar...@tin.it
> ha scritto nel messaggio
news:iub6a.301484$AA2.11...@news2.tin.it...

Per aggiungere un riferimento al tuo database apri la finestra dell'editor
VBA; dal menu Strumenti seleziona il comando Riferimenti... ; si aprirà una
finestra Riferimenti dove cercherai ed abiliterai il riferimento alla
libreria Microsoft DAO; agendo sui pulsanti Priorità sposta il riferimento
alla libreria Microsoft DAO in maniera che preceda il riferimento alla
libreria Microsoft ADO; pigia il tasto OK; chiudi la finestra dell'editor
VBA.



title: Evento su attivato controllo maschera o sottomaschera

author: Nina

text:
Salve a tutti,
ho una casella combinata che ha come prima voce di elenco la voce
"Aggiungi", selezionando la quale apro una mschera per l'inserimento di un
nuovo dato. Ho inserito il seguente codice sull'evento "Su Attivato" della
casella combinata : Me.controllo.requery, per far si che alla chiusra della
maschera di inserimento del nuovo dato, questo venisse mostrato nella
casella combinata.
Ora, se il controllo si trova sulla maschera principale il requery avviene
regolarmente e alla chiusura della maschera di inserimento, mi ritrovo il
dato appena inserito, se il controllo si trova in una sottomaschera, la
casella combinata non mi mostra il dato appena inserito.
Non ottengo alcun messaggio di errore, ma per aggiornare la cbo devo
spostarmi su un altro controllo e poi toranre indietro riattivando il codice
"Su attivato".
Come mai questo diverso comportamento dell'evento su attivato se il
controllo è presente in una maschera o in una sottomaschera? C'è la
posssibiltà di fare il reuqeru di un controllo ogni volta che viene "Aperta
la tendina"?
Grazie a tutti per l'aiuto
Nina


author: aaa

text:
Nina ha scritto:
> Salve a tutti,





> Nina
non so se ho ben capito ma mi sembra cha la soluzione al tuo problema sia
scrivere Forms![AmministrazioneProgramma]![campo1].requery nella maaschera
aperta.
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"aaa" <
mai...@libero.it
> ha scritto nel messaggio
news:d1egbu$daq$1...@news.newsland.it...
> Nina ha scritto:
>
>> Salve a tutti,
>
>> ho una casella combinata che ha come prima voce di elenco la voce
>> "Aggiungi", selezionando la quale apro una mschera per l'inserimento di
>> un
>> nuovo dato. Ho inserito il seguente codice sull'evento "Su Attivato"
>> della
>> casella combinata : Me.controllo.requery, per far si che alla chiusra
>> della
>> maschera di inserimento del nuovo dato, questo venisse mostrato nella
>> casella combinata.
>
CUT
>> Come mai questo diverso comportamento dell'evento su attivato se il
>> controllo è presente in una maschera o in una sottomaschera? C'è la
>> posssibiltà di fare il reuqeru di un controllo ogni volta che viene
>> "Aperta
>> la tendina"?
>
>> Grazie a tutti per l'aiuto
>
>> Nina
>
>
> non so se ho ben capito ma mi sembra cha la soluzione al tuo problema sia
> scrivere Forms![AmministrazioneProgramma]![campo1].requery nella maaschera
> aperta.
Non è esattamente questo quello che vorrei fare. Riepilogo brevemente:
Ho una casella combinata la cui origine dati è una query di unione che
unisce i record presenti nella tabella sedi e come prima voce la voce
"Aggiungi".
Se seleziono aggiungi, viene aperta la maschera sedi per l'inserimento di
una nuova sede. quando chiudo la maschera sedi, e riapro la casella
combinata vorrei vedeere anche la nuova sede inserita. Quindi ho inserito
sull'evento "Sy attivato" della casella combinata il seguente codice:
Private Sub IdSede_GotFocus()
    Me.IdSede.Requery
End Sub
Se la casella combinata si trova su una maschera principale, il requery
avviene, se si trova invece in una sottomaschera il requery non avviene
(sembra che non riaccada l'evento)
Perchè? Vorrei far rieseguire il requery ad ogni apertura della tendina,
visto che la maschera sedi può essere aperta da più punti.
spero di essere stata chiara
Grazie mille
Nina


text:

scusa per il ritardo ma mi sono collegato solo ora.
hai provato a mettere doopo il requery del controllo anche il refresh della
maschera?
ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: posizionarsi su un certo record di una maschera

text:
Salve,
possiedo una maschera in visualizzazione singola con molti record, quando
clicco su un pulsante mi si apre una maschera che mi mostra tali record in
visualizzione continua, ho poi aggiunto un pulsante che mi crea una copia
del record che seleziono, vorrei però che all'uscita della maschera in
visualizzaizone continua, dopo aver creato la copia del record, access si
posizioni sulla copia del record appena creata e ciò non avviene, premetto
che possiedo il codice ti tipo stringa per identificare il record.
Grazie.


text:

Cos'è che fai di più al normale wizard di ricerca di un qualsiasi record
con casella combianata??
fammi sapere
--------------------------------
Inviato via
http://usenet.libero.it


text:
>
> Cos'è che fai di più al normale wizard di ricerca di un qualsiasi record
> con casella combianata??
> fammi sapere
hai ragione ma non riesco a eseguire il codice qui sotto cliccando sul
pulsante nella form in visualizzazione continue e non capisco il perchè
    DoCmd.SelectObject acForm, "prodottiesterni"
    ' Trova il record corrispondente al controllo
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Codice] = '" & Me![cod] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark


text:
Il 16 Dic 2002, 14:12, ">>>---<>---<<< Simba883 >>>---<>---<<<"
<
simb...@libero.it
> ha scritto:
>
> >
> > Cos'è che fai di più al normale wizard di ricerca di un qualsiasi record
> > con casella combianata??
> > fammi sapere
>
>
> hai ragione ma non riesco a eseguire il codice qui sotto cliccando sul
> pulsante nella form in visualizzazione continue e non capisco il perchè
E' necessario andare nell'altra maschera? usa la casella combinata dalla
prima.
Altrimenti su sul sito comune c'è quello che cerchi
ciao MAssimiliano
