title: Da VBA Access cambiare il valore di una cella di un foglio Excel filtrata

text:
Salve a tutti,

da un pulsante di una form di Access, devo cambiare il valore di una cella di un foglio Excel. Dopo aver aperto il file, mediante codice VBA, ho usato questo metodo per l'applicazione del filtro

ws.Range("A8", "I10000").AutoFilter Field:=1, Criteria1:="31/01/2012"
ws.Range("A8", "I10000").AutoFilter Field:=2, Criteria1:="Pippo srl"

Il tutto funziona correttamente. Preciso che Excel estrarrà sempre una sola riga all'interno della tabella poichè con quei due filtri impostati non posso avere più di un valore. Vorrei fare in modo che nella 3° colonna della riga rimasta, dopo l'applicazione del filtro, venga messo il valore "OK"

Il problema è che se io inserisco

ws.cells(9,3) = "OK"

Dove 9 è la riga rimasta dall'applicazione del filtro ma non quella reale della tabella poichè cambierà sempre in base ai valori che inserisco, anzichè applicare il valore OK, alla cella rimasta, lo inserisce all'interno della 9° riga della tabella, ovvero quella nascosta dal filtro stesso. Come faccio per poterla inserire non nella 9° riga ma all'interno di quella rimasta dopo l'applicazione del filtro?

Cordiali saluti

SIMONEB


title: pulsante stampa e chiudi maschera - non chiude maschera

author: pfmarro

text:
salve
ho un pulsante che registra i dati della maschera legata
e stampa un report
e poi chiude la maschera

non capisco perche' qualche volta
registra
stampa
ma non chiude la maschera

come posso fare?


text:
Magari se mostri il codice...

@Alex


text:
Il giorno giovedì 20 maggio 2021 alle 12:12:43 UTC+2 @Alex ha scritto:
> Magari se mostri il codice...
>
> @Alex
ecco il codice

che a volte una volta stampato l'etichetta non chiude la maschera

Private Sub pRegistra_Click()
  Dim Risposta As Integer
  Dim bControlloCampiPesatura As Boolean

  'Chiede conferma prima di procedere
   On Error GoTo pRegistra_Click_Error

  Risposta = MsgBox("Confermi registrazione?", vbQuestion + vbYesNo, "Salvataggio?")

  If Risposta = vbNo Then
     Exit Sub
  Else
     bControlloCampiPesatura = ControlloCampiPesatura

     If bControlloCampiPesatura = False Then
        MsgBox ("Insert data")
     Else
        Select Case UCase(OpenArgs)
          Case "NUOVO"
               Set db = CurrentDb

               Set rs = db.OpenRecordset("BigBag", dbOpenDynaset, dbSeeChanges)
               rs.AddNew
               With rs
                    ' i vari campi
                    ' ....
                    .Update
               End With

          Case "MODIFICA"
               With Me.Recordset
                    .Edit
                    ' i vari campi
                    ' ....
                    .Update
               End With
        End Select

        'Stampo etichetta
        Dim stDocName As String
        Dim strSQL As String
        strSQL = ""

        Dim i As Integer

        Debug.Print txtNCopie
        If IsNull(txtNCopie.Value) Then
           txtNCopie.Value = 1
        Else
           If txtNCopie.Value = "" Or Not IsNumeric(txtNCopie) Then
              txtNCopie.Value = 1
           Else
              If txtNCopie.Value > 3 Then txtNCopie.Value = 1
           End If
        End If

        For i = 1 To txtNCopie
            stDocName = "etRPet_FR_noLegata"
            DoCmd.OpenReport stDocName, acNormal
        Next

     End If ' If bControlloCampiPesatura = False Then
  End If ' If Risposta = vbNo Then

  If bControlloCampiPesatura = False Then
     ' rimango nella maschera
     Exit Sub
  Else
     ' chiudo la maschera
     DoCmd.Close
  End If

pRegistraFine:
  ' chiudo la maschera

   On Error GoTo 0
   Exit Sub

pRegistra_Click_Error:

 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure pRegistra_Click of Documento VBA Form_BigBag_Pesatura"

End Sub


text:
Senza indentazione sarebbe improbabile...

La maschera viene chiusa solo se passi per l'ultimo ELSE... e solo se non hai spostato il FOCUS... quindi, questo:
DoCmd.Close
lo modificherei cosi:
DoCmd.Close acForm,Me.Name

poi verifica perchè la dove scrivi:
pRegistraFine:
' chiudo la maschera

Quì la maschera non la chiude nessuno...

@Alex


title: Come costruire un campo calcolato... AIUTO

author: Ivan Piffer

text:
Salve a tutti...
Voglio dire subito che non ho una grande abilita' nella gestione dei
cicli...
HO una tabella in Access cosi':
Macchina Corsia shaft IQS Qualita Pezzatura Lunghezza Volume Peso
peso_cor Colore Faccetta durezza
1  2 22056 3 1  80.1 103  274  206  75  452   4    0
1  2 22057 4 1  82.5 108  317  247  78  430   1    0
1  2 22058 1 1  86.2 104  370  250  68  444   1    0
1  2 22059 3 1  81.2 105  299  243  81  458   2    0
1  2 22060 2 1  82.6 107  329  240  73  463   8    0
1  2 22099 4 1  81.4 100  291  255  88  453   4    0
1  2 22100 2 1  77.0 110  260  203  78  453   5    0
1  2 22101 2 1  75.6 106  243  198  82  449   2    0
1  2 22102 4 1  82.5 103  310  245  79  459  20    0
1  2 22103 2 1  79.7 108  296  223  75  442   1    0
1  2 22104 4 1  72.7 108  221  174  79  442   1    0
1  2 22138 4 1  75.5 108  245  178  73  437   2    0
1  2 22139 3 1  71.0 106  200  153  77  447   2    0
1  2 22140 2 1  74.8 105  240  192  80  443   1    0
Vorrei fare in modo che quando nella 3a colonna (shaft) la differenza
tra due record consecutivi e' maggiore di 10 si venga ad incrementare
di una unita' un nuovo campo (che potrei chiamare PIANTA)
Riferendomi all'esempio succederebbe nel record 6 e nel record  12
(ultimo campo....)
1  2 22056 3 1  80.1 103  274  206  75  452   4    0 1
1  2 22057 4 1  82.5 108  317  247  78  430   1    0 1
1  2 22058 1 1  86.2 104  370  250  68  444   1    0 1
1  2 22059 3 1  81.2 105  299  243  81  458   2    0 1
1  2 22060 2 1  82.6 107  329  240  73  463   8    0 1
1  2 22099 4 1  81.4 100  291  255  88  453   4    0 2
1  2 22100 2 1  77.0 110  260  203  78  453   5    0 2
1  2 22101 2 1  75.6 106  243  198  82  449   2    0 2
1  2 22102 4 1  82.5 103  310  245  79  459  20    0 2
1  2 22103 2 1  79.7 108  296  223  75  442   1    0 2
1  2 22104 4 1  72.7 108  221  174  79  442   1    0 2
1  2 22138 4 1  75.5 108  245  178  73  437   2    0 3
1  2 22139 3 1  71.0 106  200  153  77  447   2    0 3
1  2 22140 2 1  74.8 105  240  192  80  443   1    0 3
Un'altro calcolo poi all'interno della stessa pianta (ad esempio i
primi 5 record) vorrei un altro campo (chiamato frutto) che incrementa
di una unita'....
Sempre riferendomi all'esempio... (ultimo campo)
1  2 22056 3 1  80.1 103  274  206  75  452   4    0 1 1
1  2 22057 4 1  82.5 108  317  247  78  430   1    0 1 2
1  2 22058 1 1  86.2 104  370  250  68  444   1    0 1 3
1  2 22059 3 1  81.2 105  299  243  81  458   2    0 1 4
1  2 22060 2 1  82.6 107  329  240  73  463   8    0 1 5
1  2 22099 4 1  81.4 100  291  255  88  453   4    0 2 1
1  2 22100 2 1  77.0 110  260  203  78  453   5    0 2 2
1  2 22101 2 1  75.6 106  243  198  82  449   2    0 2 3
1  2 22102 4 1  82.5 103  310  245  79  459  20    0 2 4
1  2 22103 2 1  79.7 108  296  223  75  442   1    0 2 5
1  2 22104 4 1  72.7 108  221  174  79  442   1    0 2 6
Mi date una mano ? (sono 4000 record da mettere in ordine!!!).
Grazie a tutti
Ivan
PS: Scrivetemi per cortesia anche via email a
ivan_...@yahoo.com


author: Luciano (DOC)

text:
Ivan Piffer ha scritto nel messaggio ...
>Vorrei fare in modo che quando nella 3a colonna (shaft) la differenza
>tra due record consecutivi e' maggiore di 10 si venga ad incrementare
>di una unita' un nuovo campo (che potrei chiamare PIANTA)
Devi farti un recordset e ciclare i record usando due variabili per
confrontare ogni record col precendente.
Poi, se si verificano le condizioni che vuoi tu fai un update.
Guarda l'help di
recordset
do ....loop
update
if ...then ...else
>PS: Scrivetemi per cortesia anche via email a
ivan_...@yahoo.com
Mai!:-)
Saluti.
Luciano
(DOC)


text:
Mi dispiace, ma il mio server di posta e' impazzito. (non ho postato 3 volte
lo stesso messaggio)
Ivan
--
Posted from [212.11.68.4]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Pulsante ESC

author: Fabio

text:
Salve,
vorrei con un macro o non so in che altro modo fare eseguire ad un pulsante
di comando la funzione che fa il tasto ESC della tastiera.
Potete aiutarmi?
Grazie Fabio


title: Pulsante ESC

author: Alessandro Baraldi

text:
"Fabio" <
fab...@libero.it
> wrote in message
news:BGxrf.98835$
65.28...@twister1.libero.it

Vedi la Macro SendKeys documentata nell'Help
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Pulsante ESC

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:a18efd0d8cbdad6efd...@mygate.mailgate.org
[CUT]
Volevo dire AutoKeys che emula SendKeys....!



title: Pulsante ESC

author: Roberto da casa

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio
news:BGxrf.98835$65.28...@twister1.libero.it...

A fronte dell'evento "Su clic" del pulsante di comando genera la seguente
riga di codice VBA:
SendKeys "{ESC}"
> Grazie
Prego
> Fabio
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Pulsante ESC

author: Sergio MAZZA

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio
news:BGxrf.98835$65.28...@twister1.libero.it...

Se devi emulare l'annullamento dei dati inseriti, puoi utilizzare il metodo
Undo;
--- tratto dall'help ---
Il metodo Undo offre un'alternativa all'utilizzo dell'istruzione SendKeys
per inviare il valore del tasto ESC in una routine evento.
Esempio
Nell'esempio riportato di seguito viene indicato come utilizzare il metodo
Undo nella routine evento Modifica di un controllo per forzare il ripristino
al valore originale di un campo Cognome, se tale campo è stato modificato.
Private Sub LastName_Change()
    Me!LastName.Undo
End Sub---
Ciao.
--
Sergio MAZZA


title: Criterio multiplo con DLookup

author: cix

text:
ciao a tutto il NG.
Ho un problemino che non riesco a risolvere.
In una maschera di dialogo ho scritto il seguente codice:
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
If DLookup("[Provenienza merce]", "Generale", "'1 Cliente'") <> 3 Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
If DLookup("[Provenienza merce]", "Generale", "'2 Vettore'") <> 3 Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
If DLookup("[Provenienza merce]", "Generale", "'3 A mezzo Sael'") <> 3 Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 0
DoCmd.Close
End Sub
in sostanza vorrei capire dove è l'errore dato che nel controllo "Costo
chiamata" della maschera "Riparazione e chiusura" mi viene restituito sempre
il valore "0".
I criteri della DLookup provengono da un campo"Provenienza merce" (testo)
della tabella "Generale".
Eventualmente si potrebbe unire i criteri (1 Cliente e 2 Vettore) in una
stringa unica dato che mi devono restituire il medesimo valore "18"? Io però
non conosco il giusto modo per scrivere la stringa.
Grazie in anticipo a chi ha la pazienza di rispondermi.
cesare


title: Criterio multiplo con DLookup

author: Giorgio prx

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:lzHD9.12067$3l.3...@twister1.libero.it...

Ciao cix, il terzo parametro della funzione dlookup è il criterio di
estrazione e seque la sintassi della clausola SQL WHERE (senza mettere
WHERE) ovvero, poniamo che il campo su cui applicare il criterio sia [Tipo
Trasporto] ....
If DLookup("[Provenienza merce]", "Generale", "[Tipo Trasporto]='1
Cliente'") <> 3 then
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
e per una selezione su più valori ....
If DLookup("[Provenienza merce]", "Generale", "[Tipo Trasporto]='1 Cliente'
OR [Tipo Trasporto]='2 Vettore'") <> 3 then
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
Ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:arniem$so$1...@lacerta.tiscalinet.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:lzHD9.12067$3l.3...@twister1.libero.it...
> > ciao a tutto il NG.
> > Ho un problemino che non riesco a risolvere.
> > In una maschera di dialogo ho scritto il seguente codice:
> >
> > [CUT]
> >
> >
>
> Ciao cix, il terzo parametro della funzione dlookup è il criterio di
> estrazione e seque la sintassi della clausola SQL WHERE (senza mettere
> WHERE) ovvero, poniamo che il campo su cui applicare il criterio sia [Tipo
> Trasporto] ....
> If DLookup("[Provenienza merce]", "Generale", "[Tipo Trasporto]='1
> Cliente'") <> 3 then
> Forms![Riparazione e Chiusura]![Costo chiamata] = 18
> e per una selezione su più valori ....
> If DLookup("[Provenienza merce]", "Generale", "[Tipo Trasporto]='1
Cliente'
> OR [Tipo Trasporto]='2 Vettore'") <> 3 then
> Forms![Riparazione e Chiusura]![Costo chiamata] = 18
>
> Ciao Giorgio.
>
>
>
Ciao Giorgio,
innanzitutto grazie per l'aiuto.
Ho scritto il codice in questo modo:
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
If DLookup("[Provenienza merce]", "Generale", "[Provenienza merce]='1
Cliente'OR [Provenienza merce]='2 Vettore'") <> 3 Then Forms![Riparazione e
Chiusura]![Costo chiamata] = 18
If DLookup("[Provenienza merce]", "Generale", "[Provenienza merce]='3 A
mezzo Sael'") <> 3 Then Forms![Riparazione e Chiusura]![Costo chiamata] = 0
DoCmd.Close
End Sub
il problema continua a persistere, continua a rendermi il valore 0 con ogni
criterio.
Forse è meglio che io cerchi di spiegarmi meglio:
Mediante un bottone apro la maschera di dialogo che ha il codice in
questione, dalla maschera "Riparazione e Chiusura" e richiamo un record
della tabella "Generale" tramite il controllo "Entrata n°". In questa
tabella ho altri campi, tra i quali [Provenienza merce] nel quale ci possono
essere solo 3 valori: 1 Cliente, 2 vettore o 3 A mezzo Sael.
 Se il valore è 1 Cliente o 2 Vettore, nel campo [Costo chiamata]della
maschera [Riparazione e Chiusura] devo avere il risultato 18.
Se invece il valore è 3 A mezzo Sael, nel campo [Costo chiamata]della
maschera [Riparazione e Chiusura] devo avere il risultato 0.
Forse c'è un errore nel primo parametro "[Provenienza merce]"?
Ormai sto fondendo, magari mi perdo nel classico bicchier d'acqua.
HELP ME!!
grazie1000
cesare


title: Criterio multiplo con DLookup

author: giaconet

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:eTID9.11986$2B1.3...@twister2.libero.it...
>
> "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> news:arniem$so$1...@lacerta.tiscalinet.it...
> >
> > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > ciao a tutto il NG.
> > > Ho un problemino che non riesco a risolvere.
> > > In una maschera di dialogo ho scritto il seguente codice:
> > >
> > > [CUT]
> > >
> > >
> >
> > [CUT]
> >
> > Ciao Giorgio.
> >
> >
> >
> Ciao Giorgio,
> innanzitutto grazie per l'aiuto.
> Ho scritto il codice in questo modo:
>
> Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
> Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
> entrata Riparazione e Chiusura]
> Forms![Riparazione e Chiusura].FilterOn = True
> Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
> If DLookup("[Provenienza merce]", "Generale", "[Provenienza merce]='1
> Cliente'OR [Provenienza merce]='2 Vettore'") <> 3 Then
Forms![Riparazione e
> Chiusura]![Costo chiamata] = 18
> If DLookup("[Provenienza merce]", "Generale", "[Provenienza merce]='3
A
> mezzo Sael'") <> 3 Then Forms![Riparazione e Chiusura]![Costo
chiamata] = 0
> DoCmd.Close
> End Sub
Allora, con calma
DLookUp(campo,tabella, criterio)
campo è il campo che vuoi tirare fuori dalla tabella
tabella è il nome della tabella
criterio è il criterio che ti permette di selezionare un record nella
tabella
prendiamo ad esempio uno dei tuoi LookUp
DLookup("[Provenienza merce]", "Generale", "[Provenienza merce]='1
Cliente')
[Provenienza merce] è il campo che vuoi ottenere
Generale è la tabella
[Provenienza merce] = '1 Cliente' è il criterio
non ti sembra un po' strano chiedere a uno: "scusa quanto vale
[Provenienza merce] nella tabella Generale nel/nei record dove
[Provenienza merce] = '1 Cliente'?"
>
> il problema continua a persistere, continua a rendermi il valore 0 con
ogni
> criterio.
> Forse è meglio che io cerchi di spiegarmi meglio:
> Mediante un bottone apro la maschera di dialogo che ha il codice in
> questione, dalla maschera "Riparazione e Chiusura" e richiamo un
record
> della tabella "Generale" tramite il controllo "Entrata n°". In questa
> tabella ho altri campi, tra i quali [Provenienza merce] nel quale ci
possono
> essere solo 3 valori: 1 Cliente, 2 vettore o 3 A mezzo Sael.
>  Se il valore è 1 Cliente o 2 Vettore, nel campo [Costo chiamata]della
> maschera [Riparazione e Chiusura] devo avere il risultato 18.
> Se invece il valore è 3 A mezzo Sael, nel campo [Costo chiamata]della
> maschera [Riparazione e Chiusura] devo avere il risultato 0.
> Forse c'è un errore nel primo parametro "[Provenienza merce]"?
> Ormai sto fondendo, magari mi perdo nel classico bicchier d'acqua.
> HELP ME!!
> grazie1000
> cesare
>
Ok, l'errore è che il criterio è sbagliato. La ricerca la devi fare sul
campo che ti definisce il record di "Riparazione e chiusura" selezionato
in quel momento. Immagino che il campo Entrata sia quello giusto (ma non
si capisce bene): il criterio diventa
"[Entrata n°] = " &
nomeControlloEntrataNumeroNellaMascheraRiparazioneEChiusura
dove ovviamente questo nome assurdo deve essere sostituito dal vero nome
che ha il controllo nella tua maschera.
Bye
giaconet


title: Criterio multiplo con DLookup

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:eTID9.11986$2B1.3...@twister2.libero.it...
>
> "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> news:arniem$so$1...@lacerta.tiscalinet.it...
> >
> > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > ciao a tutto il NG.
> > > Ho un problemino che non riesco a risolvere.
> > > In una maschera di dialogo ho scritto il seguente codice:
> > >
> > > [CUT]
> > >

Vediamo se ho capito, a te interessa testare il campo [Provenienza merce] e
se uguale a '3 A mezzo Sael'  nel campo [Costo chiamata] della maschera
[Riparazione e Chiusura] devi inserire il valore 0 antrimenti 18.
Se il campo [Provenienza merce] è nella maschera [Riparazione e Chiusura] la
funzione Dlookup non serve, e puoi utilizzare..
IF Forms![Riparazione e Chiusura].[Provenienza merce]="3 A mezzo Sael" Then
Forms![Riparazione e Chiusura]![Costo chiamata]=0
ELSE
Forms![Riparazione e Chiusura]![Costo chiamata] =18
END IF
Altrimenti Con Dlookup ....
If  "" & DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" &
Me![Trova n°entrata Riparazione e Chiusura])="3 A mezzo Sael"  Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 0
ELSE
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
END IF
Come vedi la condizione per trovare il campo [Provenienza merce] dalla
tabella [Generale] è [Entrata n°]  che è la stessa condizione che usi per
filtrare i record della maschera [Riparazione e Chiusura].
Ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:arod5k$fbf$1...@lacerta.tiscalinet.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:eTID9.11986$2B1.3...@twister2.libero.it...
> >
> > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > news:arniem$so$1...@lacerta.tiscalinet.it...
> > >
> > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > > ciao a tutto il NG.
> > > > Ho un problemino che non riesco a risolvere.
> > > > In una maschera di dialogo ho scritto il seguente codice:
> > > >
> > > > [CUT]
> > > >
Scusa correggi
IF Forms![Riparazione e Chiusura].[Provenienza merce]="3 A mezzo Sael" Then
Con
IF Forms![Riparazione e Chiusura]![Provenienza merce]="3 A mezzo Sael" Then
Ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:arod5k$fbf$1...@lacerta.tiscalinet.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:eTID9.11986$2B1.3...@twister2.libero.it...
> >
> > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > news:arniem$so$1...@lacerta.tiscalinet.it...
> > >
> > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > > ciao a tutto il NG.
> > > > Ho un problemino che non riesco a risolvere.
> > > > In una maschera di dialogo ho scritto il seguente codice:
> > > >
> > > >[CUT]
> >
>
> Vediamo se ho capito, a te interessa testare il campo [Provenienza merce]
e
> se uguale a '3 A mezzo Sael'  nel campo [Costo chiamata] della maschera
> [Riparazione e Chiusura] devi inserire il valore 0 antrimenti 18.
> Se il campo [Provenienza merce] è nella maschera [Riparazione e Chiusura]
la
> funzione Dlookup non serve, e puoi utilizzare..
>
> IF Forms![Riparazione e Chiusura].[Provenienza merce]="3 A mezzo Sael"
Then
> Forms![Riparazione e Chiusura]![Costo chiamata]=0
> ELSE
> Forms![Riparazione e Chiusura]![Costo chiamata] =18
> END IF
>
> Altrimenti Con Dlookup ....
> If  "" & DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" &
> Me![Trova n°entrata Riparazione e Chiusura])="3 A mezzo Sael"  Then
> Forms![Riparazione e Chiusura]![Costo chiamata] = 0
> ELSE
> Forms![Riparazione e Chiusura]![Costo chiamata] = 18
> END IF
> Come vedi la condizione per trovare il campo [Provenienza merce] dalla
> tabella [Generale] è [Entrata n°]  che è la stessa condizione che usi per
> filtrare i record della maschera [Riparazione e Chiusura].
>
> Ciao Giorgio.
>
Ciao, scusa se non ero stato chiaro. L'ipotesi giusta era la tua seconda: il
CAMPO "Provenienza merce" è nella TABELLA "Generale" e i dati vengono
inseriti precedentemente tramite la MASCHERA "Accettazione" nella quale ho
il corrispettivo CONTROLLO [Provenienza merce].N.B. la maschera
"Accettazione" non è aperta quando apro la maschera "Riparazione e chiusura"
per richiamare il record che mi interessa.
Ho fatto un copia e incolla del tuo codice aggiungendo solo gli apicini (')
al criterio in quanto è testo. il codice è il seguente:
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
If "" & DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" &
Me![Trova n° entrata Riparazione e Chiusura]) = "'3 A mezzo Sael'" Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 0
Else
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
End If
DoCmd.Close
End Sub
Non mi da nessun errore, solo che mi restituisce sempre il valore 18 nel
controllo [Costo chiamata]. Ti può essere d'aiuto sapere che l'origine di
questo controllo è un campo valuta nella TABELLA "Generale"?
Ciao e grazie per la pazienza.
Cesare


title: Criterio multiplo con DLookup

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:m%PD9.13894$3l.3...@twister1.libero.it...
>
> "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> news:arod5k$fbf$1...@lacerta.tiscalinet.it...
> >
> > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > news:eTID9.11986$2B1.3...@twister2.libero.it...
> > >
> > > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > > news:arniem$so$1...@lacerta.tiscalinet.it...
> > > >
> > > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > > > ciao a tutto il NG.
> > > > > Ho un problemino che non riesco a risolvere.
> > > > > In una maschera di dialogo ho scritto il seguente codice:
> > > > >
> > > > >[SUPER CUT]
Non devi aggiungere i singoli apici in quel contesto perchè è il confronto
con il risultato di ritorno della funzione Dlookup, comunque...
Ripartiamo da 0
Posta un'esempio di un record tabella Generale tipo...
[Id_record] (Identificativo record numerico contatore ) Valore = 1
[Provenienza merce] (Codice provenienza merce testo Valore = '3 A mezzo
Sael'
[Costo chiamata] (Importo costo della chiamata) Valore = 18
[Id_record] (Identificativo record numerico contatore ) Valore = 2
[Provenienza merce] (Codice provenienza merce testo Valore = ''1 Cliente'
[Costo chiamata] (Importo costo della chiamata) Valore = 0
quindi posta il nome del controllo che hai a disposizione nel form per
identificare un record di questa tabella es. [Provenienza merce].
Ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:arqdmm$80o$1...@lacerta.tiscalinet.it...

Ciao,
se ho capito bene quello che vuoi è un esempio di record ( ti posto solo i
campi che sono interessati):
Nome della  tabella: [Generale]
[Entrata n°] (Identificativo record numerico contatore ) Valore = 1
[Provenienza merce] (Provenienza della merce testo) Valore = '3 A mezzo
Sael'
[Costo chiamata] (Importo costo della chiamata Valuta) Valore = 0
oppure
[Entrata n°]  (Identificativo record numerico contatore ) Valore = 2
[Provenienza merce] (Provenienza della merce testo) Valore = '1 Cliente'
[Costo chiamata] (Importo costo della chiamata Valuta) Valore = 18
oppure
[Entrata n°] (Identificativo record numerico contatore ) Valore = 3
[Provenienza merce] (Provenienza della merce testo) Valore = '2 Vettore'
[Costo chiamata] (Importo costo della chiamata Valuta) Valore = 18
Per identificare il record [Entrata n°] della tabella [Generale], nel form
[Riparazione e chiusura] uso una casella di testo (controllo) che che si
chiama "Entrata n° ". L'identificazione (ricerca) del record  avviene
attraverso una maschera di dialogo che si chiama:[Trova n° entrata
Riparazione e Chiusura] e il codice per cercare il recordo è nell'evento
"dopo aggiornamento".
il codice attuale (evidentemente errato) della maschera di dialogo è il
seguente:
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
If "" & DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" &
Me![Trova n° entrata Riparazione e Chiusura]) = "'3 A mezzo Sael'" Then
Forms![Riparazione e Chiusura]![Costo chiamata] = 0
Else
Forms![Riparazione e Chiusura]![Costo chiamata] = 18
End If
DoCmd.Close
End Sub
Mi vergogno di abusare così della tua pazienza, se la cosa sta diventando
troppo pesante per la mia inesperienza, lasciamo perdere, capisco che non è
facile trattare con chi non ne sa niente.
comunque grazie.
cesare


title: Criterio multiplo con DLookup

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:NhaE9.17950$2B1.5...@twister2.libero.it...
>
> "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> news:arqdmm$80o$1...@lacerta.tiscalinet.it...
> >
> > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > news:m%PD9.13894$3l.3...@twister1.libero.it...
> > >
> > > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > > news:arod5k$fbf$1...@lacerta.tiscalinet.it...
> > > >
> > > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > > news:eTID9.11986$2B1.3...@twister2.libero.it...
> > > > >
> > > > > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel
> messaggio
> > > > > news:arniem$so$1...@lacerta.tiscalinet.it...
> > > > > >
> > > > > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > > > > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > > > > > ciao a tutto il NG.
> > > > > > > Ho un problemino che non riesco a risolvere.
> > > > > > > In una maschera di dialogo ho scritto il seguente codice:
> > > > > > >
> > > > > > >[SUPER CUT]
> >

Quindi se si deve assegnare al controllo [Costo chiamata] del form
[Riparazione e Chiusura] il valore contenuto nel campo [Costo chiamata]
della tabella [Generale] identificato da [Entrata n°]=Me![Trova n°entrata
Riparazione e Chiusura].....
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me.[Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
Forms![Riparazione e Chiusura]![Costo chiamata] = Nz(Dookup("[Costo
chiamata]","Generale","[Entrata n°]=" & Me.[Trova n° entrata Riparazione e
Chiusura]) ,0)
 DoCmd.Close
End Sub
Se il form [Riparazione e Chiusura] ha come origine record la tabella
Generale la funzione dlookup non serve a nulla perchè il costo della
chiamata è contenuto nel record cercato quindi il problema è la ricerca del
record e non il valore del costo della chiamata, non è consigliabile usare
il nome del controllo uguale al nome del campo collegato ad esso, questo
genera ambiguità, se il nome del campo è [Costo chiamata] chiamerai il
controllo [txCosto chiamata], fai anche attenzione al punto e al punto
esclamativo, Me.[Trova n°entrata Riparazione e Chiusura] punta al controllo
e Me![Trova n°entrata Riparazione e Chiusura] punta al campo della tabella
sottostante.
Ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:arri15$sre$1...@lacerta.tiscalinet.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:NhaE9.17950$2B1.5...@twister2.libero.it...
> >
> > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> > news:arqdmm$80o$1...@lacerta.tiscalinet.it...
> > >
> > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > news:m%PD9.13894$3l.3...@twister1.libero.it...
> > > >
> > > > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel
messaggio
> > > > news:arod5k$fbf$1...@lacerta.tiscalinet.it...
> > > > >
> > > > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > > > news:eTID9.11986$2B1.3...@twister2.libero.it...
> > > > > >
> > > > > > "Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel
> > messaggio
> > > > > > news:arniem$so$1...@lacerta.tiscalinet.it...
> > > > > > >
> > > > > > > "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> > > > > > > news:lzHD9.12067$3l.3...@twister1.libero.it...
> > > > > > > > ciao a tutto il NG.
> > > > > > > > Ho un problemino che non riesco a risolvere.
> > > > > > > > In una maschera di dialogo ho scritto il seguente codice:
> > > > > > > >
> > > > > > > >[SUPER CUT]
> > >
> > > >
> Quindi se si deve assegnare al controllo [Costo chiamata] del form
> [Riparazione e Chiusura] il valore contenuto nel campo [Costo chiamata]
> della tabella [Generale] identificato da [Entrata n°]=Me![Trova n°entrata
> Riparazione e Chiusura].....
>
>[CUT]
purtroppo non sono riuscito ad esprimermi bene.
devo assegnare al controllo [Costo chiamata] del form [Riparazione e
Chiusura] un valore che cambia a seconda di quello che c'è nel campo
[Provenienza merce]della tabella [Generale] identificato da [Entrata
n°]=Me![Trova n°entrata Riparazione e Chiusura].
Se nel campo [Provenienza merce]della tabella [Generale] c'è "1 Cliente",
nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il codice
mi deve restituire il valore "18" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
Se nel campo [Provenienza merce]della tabella [Generale] c'è "2 Vettore",
nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il codice
mi deve restituire il valore "18" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
Se nel campo [Provenienza merce]della tabella [Generale] c'è "3 A mezzo
Sael", nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il
codice mi deve restituire il valore "0" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
ciao
cesare


title: Criterio multiplo con DLookup

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:x8uE9.21523$2B1.5...@twister2.libero.it...

In questo caso dovrebbe funzionare la seguente Dlookup
If DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" & Me.[Trova
n°entrata Riparazione e Chiusura])="3 A mezzo Sael" Then Forms![Riparazione
e Chiusura].[Costo chiamata] = 0
If DLookup("[Provenienza merce]", "Generale", "[Entrata n°]=" & Me.[Trova
n°entrata Riparazione e Chiusura])="2 Vettore" Then Forms![Riparazione e
Chiusura].[Costo chiamata] = 0
ecc..
Ti consiglio di inserire un break nel codice al primo Dlookup e controllare
il valore dei controlli (gioco di parole) nella finestra di Debug
Per curiosità quale è l'origine record del form [Riparazione e Chiusura] ?
Alla prossima, ciao Giorgio.


title: Criterio multiplo con DLookup

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:aru3ms$531$1...@lacerta.tiscalinet.it...

ciao, l'origine record del form [Riparazione e Chiusura] è una select fatta
su due tabelle:
SELECT [Generale].[Entrata n°], [Generale].[Ragione Sociale], [Anagrafica
Clienti].[Città], [Anagrafica Clienti].[Provincia], [Anagrafica
Clienti].[Telefono], [Anagrafica Clienti].[Fax], [Anagrafica
Clienti].[Cellulare], [Generale].[Difetto riscontrato],
[Generale].[Preventivo accettato], [Generale].[Data accettazione
preventivo], [Generale].[Intervento], [Generale].[Stato della lavorazione],
[Generale].[Tecnico], [Generale].[Costo intervento], [Generale].[Parti
sostituite], [Generale].[Costo chiamata], [Generale].[Totale costo],
[Generale].[Data intervento], [Generale].[Data avviso merce pronta],
[Generale].[Note2] FROM [Anagrafica Clienti] INNER JOIN Generale ON
[Anagrafica Clienti].[Ragione Sociale]=[Generale].[Ragione Sociale];
 adesso vado a provare i tuoi codici. Ti saprò dire come vanno
per adesso grazie ancora.
cesare


title: Richiesta consiglio prodotto OLAP

text:
Salve, scrivo al ng per un consiglio.
Ho sviluppato un datawarehouse che alimenta un DB MS-Access su cui poi
ho inserito una serie di query che compongono alcune Viste.
Avrei bisogno di un prodotto OLAP free (e magari Open Source ed ancor
meglio se in Java) la cui parte lato server acceda il suddetto DB
mentre la parte lato Client produca i cubi (e le statistiche, i grafici
ecc.) in base alle query contenute nel DB stesso.
Il colloquio client-server può avvenire indifferentemente in modo
tradizionale o via internet (ad esempio lato client jsp e lato server
incapsulato in un application server).
Qualcuno conosce e può consigliare pertanto un prodotto siffatto?
Grazie mille.


title: Richiesta consiglio prodotto OLAP

author: Pippo

text:
<
pio...@inwind.it
> ha scritto nel messaggio
news:1112717942.8...@l41g2000cwc.googlegroups.com...




Grazie mille.
Non so se esite un prodotto OLAP free di costosi quanti ne vuoi.
Puoi utilizzare comunque la crezione automatica del cubo OLAP presente su
Microsoft Query accessibile anche da un foglio excel da carica dati esterni,
e creare tanti cubi per quante sono le viste presenti nel tuo db. (Puoi
impostare anche connessioni dsn-less o comunemente ODBC). e utilizzare un
esempio di codice seguente:
Private Sub Form_Load()
' open a connection to OLAP Services on the local PC
 Dim gConnection As Connection
 Set gConnection = New Connection
 gConnection.ConnectionString = _
 "LOCATION=C:\MySales.cub;" & _
 "SOURCE_DSN=""Provider=MSOLAP;DATA SOURCE=LocalHost;INITIAL" &_ " "
"CATALOG=FoodMart"";" & _
 "CREATECUBE=CREATE CUBE MySales(" & _
 " DIMENSION Time TYPE TIME," & _
 " LEVEL Year TYPE YEAR," & _
 " DIMENSION Product," & _
 " LEVEL [All Products] TYPE All," & _
 " LEVEL [Product Family]," & _
 " LEVEL [Product Department]," & _
 " MEASURE [Unit Sales] Function SUM);;" & _
 "INSERTINTO=INSERT INTO MySales(" & _
 " Time.Year," & _
 " Product.[Product Family]," & _
 " Product.[Product Department]," & _
 " Measures.[Unit Sales])" & _
 " SELECT " & _
 " Sales.[Time:Year]," & _
 " Sales.[Product:Product Family]," & _
 " Sales.[Product:Product Department]," & _
 " Sales.[measures:Unit Sales]" & _
 " FROM Sales" & _
 " WHERE Sales.[Time:year]='1997'"
 gConnection.Provider = "msolap"
 gConnection.Open
 gConnection.Close
End Sub
Spero di esserti stato utile
Ciao
Peppe


title: Richiesta consiglio prodotto OLAP

author: Vjger

text:
"Pippo" <
NaP...@libero.it
> wrote in message
> Non so se esite un prodotto OLAP free di costosi quanti ne vuoi.
> Puoi utilizzare comunque la crezione automatica del cubo OLAP presente su
> Microsoft Query accessibile anche da un foglio excel da carica dati esterni,
> e creare tanti cubi per quante sono le viste presenti nel tuo db. (Puoi
> impostare anche connessioni dsn-less o comunemente ODBC). e utilizzare un
> esempio di codice seguente:
>
>
Ti ringrazio molto per la tua risposta. Sono però alla ricerca di un
prodotto che non richieda molta fase di sviluppo ma che sfrutti quella
già effettuata nel DB Access.
Domanda: i cubi prodotti da MS-Query sono anche manipolabili? Si
possono spostare (trascinando i campi) i dati e consentire quindi
raggruppamenti diversi?
Ciao


title: Richiesta consiglio prodotto OLAP

text:
"Vjger" <
pio...@inwind.it
> ha scritto nel messaggio
news:18d20286.05040...@posting.google.com...

Certo che sì, l'utilizzo è propio quello. Immagina una Pivot di excel, un
cubo replica la stessa cosa. Puoi trascinare campi e selezionare viste ed
ulteriori aggreazioni per dimensione e misure.
Ciao


title: Richiesta consiglio prodotto OLAP

text:
Non conosco Excel benissimo (indi, non so cos'è una Pivot).
Comunque, ho provato a caricare il DB Access da Excel, così come
spiegato nell'help (Dati -> Carica Dati Esterni -> Crea Nuova Query ->
Nuova origine dati) e, quando all'atto della creazione dell'origine
dati, seleziono tale DB, all'OK ricevo il seguente messaggio:
"Troncamento a destra della stringa di dati. su colonna numero 1
(TABLE_CAT)".
Suggerimenti?


title: Richiesta consiglio prodotto OLAP

text:
<
pio...@inwind.it
> ha scritto nel messaggio
news:1112868091.7...@o13g2000cwo.googlegroups.com...


Suggerimenti?
Hai connesso il DB con stringa DSN che include spazi? Se si prova a
sostiruire gli spazi con underscore, o a non lasciare spazi.
Altra causa potrebbe essere un memo file come colonna 1
Apparentemente potrebbere essercene altre fai una ricerca su google per
"String data, right truncated on column number 1 [TABLE_CAT]" ci sono
diversi risultati
Ciao
P.S. dai un occhio qui:
http://groups.google.it/groups?q=comportare+in+un+newsgroup&hl=it&lr=&group=it.comp.appl.access&selm=KDc%25d.2683%24IN.64420%40twister2.libero.it&rnum=3


title: [OT] MiniCISA Mediolanensis

author: ciroteo

text:
Ciao a tutti!
Vista la presenza di MA in centro a Milano per questa mattina, nella
speranza che il suo aereo sia in perfetto orario, si terrà una mini
Cisa nella zona del centro.
Questo il programma:
- routine di cotoletta alla milanese
- debug di risotto allo zafferano
- recordset guidato tra le guglie del Duomo
ovviamente è un evento organizzato in due ore, chiunque volesse
partecipare è ben accetto.
Saluti a tutti!
M


title: [OT] MiniCISA Mediolanensis

text:
"ciroteo" <
matteo...@gmail.com
> ha scritto nel messaggio
news:1185781541.8...@w3g2000hsg.googlegroups.com...


Saluti a tutti!
M
[risposta]
E bravi!
Ciao.
--
Sergio MAZZA


title: [OT] MiniCISA Mediolanensis

author: Marco Papo

text:
"ciroteo" <
matteo...@gmail.com
> ha scritto nel messaggio
news:1185781541.8...@w3g2000hsg.googlegroups.com...


Saluti a tutti!
M
Risp:
OH, finalmente un programma di una convention che mi piace! ;)


title: funzione salva record

text:
Gentili frequentatori mi permetto di chiedere una domanda riguardo alla
funzione di salvataggio automatico di ACCESS quando si passa da un record
all'altro.
Vorrei sapere se esiste un modo per escludere il salvataggio automatico che
Access inserisce ogni qualvolta passo ad un nuovo record dopo averne immesso
uno nuovo. Praticamente siccome ho personalizzato un'applicazione con i
soliti tasti Salva, Modifica, Cancella etc. vorrei che tutte le funzioni
riguardanti i record (sopratutto il salvataggio) fossero gestiti da me
comprese finestre di messaggio di records salvati che Access aziona
automaticamente. Spero solo di aver reso l'idea del problema e aspetto
gentilmente una nuova.
                              Grazie Minus
--------------------------------
Inviato via
http://usenet.libero.it


title: funzione salva record

text:
"minus16" <
min...@libero.it
> ha scritto nel messaggio
news:217Z59Z199Z101Y...@usenet.libero.it...

In una maschera associata (ad una tabella o ad una query) è fisiologico che
al cambiare il record Access salvi il record corrente.
Per evitare di salvare il record corrente, a fronte dell'evento "Prima di
aggiornare" della maschera genera il seguente codice VBA:
Cancel = True
Però normalmente si fa in modo che non possa essere cambiato accidentalmente
il record corrente della tua maschera; per far questo devi impostare a
Record corrente la proprietà Sequenza ed a No la proprietà Pulsanti
spostamento della maschera; naturalmente, così facendo, dovrai inserire
nella maschera, oltre al pulsante per salvare il record corrente, i pulsanti
per spostarsi sul record precedente, per spostarsi sul record successivo e
quello per aggiungere un nuovo record.
Resta comunque il fatto che alla chiusura della maschera, se il record
corrente è stato modificato, verrà comunque salvato.
In aternativa puoi usare una maschera non associata, nel qual caso deciderai
tu quando registrare il record, ma dovrai anche farti carico di popolare la
maschera in fase di lettura con il record corrente e di curare in dettaglio
la registrazione di ogni campo del record da registrare.
Decidi tu quale sia la strada migliore per te, anche tenendo conto di quale
sia la tua conoscenza del codice VBA.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: INSERT TO:errore di sintassi

author: Giulio Severini

text:
Sull'evento DOPO AGGIORNAMENTO della casella combinata ccCentriImpiego
ho messo il seguente codice:
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " &
"(NomeCentroImpiego)" & "VALUES (" & Me.ccCentriImpiego.Column(1)" &
");"
ma mi da errore di sintassi. Non so come deve terminare l'istruzione.
Mi date un aiutino per favore? Grazie :)


title: INSERT TO:errore di sintassi

author: Potone

text:
"Giulio Severini" <
fenic...@hotmail.com
> ha scritto nel messaggio
news:1118074127.6...@g44g2000cwa.googlegroups.com...

probabilmente mancano gli apici che racchiudano il valore (suppongo che sia
una stringa) prova con:
...& "VALUES ('" & Me.ccCentriImpiego.Column(1)" & "')"
ciao,
Mat.


title: INSERT TO:errore di sintassi

text:
Provato. Non va. mi dice 'Previsto fine istruzione'.
Non ho proprio idea di come si termina questa sintassi.....


title: INSERT TO:errore di sintassi

text:
"Potone" <mborroni_NO@SPAM_inwind.it> ha scritto nel messaggio
news:xE_oe.14984$TR5....@news.edisontel.com...

mi accorgo ora che c'è anche una coppia di apici in eccesso dopo .Column(1)
quello che ti serve dovrebbe essere:
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " & _
"(NomeCentroImpiego) SELECT '" & Me.ccCentriImpiego.Column(1) & "'"
in linea generale, comunque, per avere una sintassi corretta almeno dell'SQL
crea una query che faccia quello che ti serve e poi guarda l'sql generato da
access stesso.
ciao
Mat.


title: INSERT TO:errore di sintassi

text:
Infatti guardando la guida in linea del metodo Execute stavo proprio
pensando a questo.
Il tuo codice funziona ma ho problemi con gli indici. Nella tabella
tblCentriImpieghi mi appaiono gli id delle voci e non le voci.
Ecco le cose:
tblCentriImpiego:
idCentro - contatore, PK
NomeCentroImpiego - testo
tblCentriImpiegoUtenti:
idUtente - contatore, PK
idCentroImpiego - numerico, EK
NomeCentroImpiego - testo
La casella di riepilogo si chiama cccentriImpiego ed ha le segg.
caratteristiche:
.numero colonne - 2
.larghezza - 0; 5,741cm
.tipo origine riga - tabella/query
.origine riga - SELECT [tblCentriImpiego].[idCentro],
[tblCentriImpiego].[NomeCentroImpiego] FROM [tblCentriImpiego] ORDER BY
[NomeCentroImpiego];
.colonna associata: 1
.solo in elenco: SI
e sull'evento DOPO AGGIORNAMENTO ha il seg. codice:
Private Sub ccCentriImpiego_AfterUpdate()
Dim dbMIODB As DAO.Database
Set dbMIODB = CurrentDb
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " &
"(NomeCentroImpiego) SELECT '" & Me.ccCentriImpiego.Column(0) & "'"
Set dbMIODB = Nothing
End Sub
mentre la casella di testo su un'altra maschera chiama subSchedaStatus
ha come origine controllo:
=DLookUp("[NomeCentroImpiego]";"tblCentriImpiegoUtenti";"[idUtente] = "
& [Maschere]![frmSchedaPrimoContatto]![id])
Il problema come ho detto è che la casella di testo, se metto
Column(1) mi mostra il valore del campo idCentroImpiego della tabella
tblCentriImpiegoUtenti.
Ma come mai???????
Aiuto :)
e GRAZIE :)


title: INSERT TO:errore di sintassi

text:
"Giulio Severini" <
fenic...@hotmail.com
> ha scritto nel messaggio
news:1118076108.1...@z14g2000cwz.googlegroups.com...
[cut]
>La casella di riepilogo si chiama cccentriImpiego ed ha le segg.
>caratteristiche:
>.numero colonne - 2
>.larghezza - 0; 5,741cm
>.tipo origine riga - tabella/query
>.origine riga - SELECT [tblCentriImpiego].[idCentro],
>[tblCentriImpiego].[NomeCentroImpiego] FROM [tblCentriImpiego] ORDER BY
>[NomeCentroImpiego];
quindi column(0) idCentro, column(1) NomeCentroImpegno
>.colonna associata: 1
>.solo in elenco: SI
>e sull'evento DOPO AGGIORNAMENTO ha il seg. codice:
>Private Sub ccCentriImpiego_AfterUpdate()
perchè dichiari dbMIODB e poi non lo usi? ...va beh
>Dim dbMIODB As DAO.Database
>Set dbMIODB = CurrentDb
l'istruzione che segue accoda una riga senza idutente e idcentro, che senso
ha?
>CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " &
>"(NomeCentroImpiego) SELECT '" & Me.ccCentriImpiego.Column(0) & "'"
forse dovrebbe essere:
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " & _
"(IDCentro, IDUtente, NomeCentroImpiego) " & _
"SELECT " & Me.ccCentriImpiego.Column(0) & ", " &
[Maschere]![frmSchedaPrimoContatto]![id] & _
", '" & Me.ccCentriImpiego.Column(1) & "'"
ho usato [Maschere]![frmSchedaPrimoContatto]![id] come IDUtente, scegli tu
eventualmente il valore corretto
>Set dbMIODB = Nothing
>End Sub
>mentre la casella di testo su un'altra maschera chiama subSchedaStatus
>ha come origine controllo:
=DLookUp("[NomeCentroImpiego]";"tblCentriImpiegoUtenti";"[idUtente] = "
& [Maschere]![frmSchedaPrimoContatto]![id])
>Il problema come ho detto è che la casella di testo, se metto
>Column(1) mi mostra il valore del campo idCentroImpiego della tabella
>tblCentriImpiegoUtenti.
inserivi nella descrizione il campo IDCentro
>Ma come mai???????
>Aiuto :)
>e GRAZIE :)
forse mi sfugge qualcosa, non ho capito bene il "giro" di queste maschere,
comunque quando usi Insert i campi ID... "dovrebbero" essere impostati
sempre.
Ciao,
Mat.


title: INSERT TO:errore di sintassi

text:
[cut]
> l'istruzione che segue accoda una riga senza idutente e idcentro, che
senso
> ha?
> >CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " &
> >"(NomeCentroImpiego) SELECT '" & Me.ccCentriImpiego.Column(0) & "'"
>
> forse dovrebbe essere:
> CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " & _
> "(IDCentro, IDUtente, NomeCentroImpiego) " & _
> "SELECT " & Me.ccCentriImpiego.Column(0) & ", " &
> [Maschere]![frmSchedaPrimoContatto]![id] & _
> ", '" & Me.ccCentriImpiego.Column(1) & "'"
>
ieri sera ero piuttosto cotto, ora sono solo addormentato...
comunque: nell'sql che ho scritto ho incluso anche IDUtente che, essendo
chiave primaria e contatore, non è necessario mettere.
pertanto:
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " & _
"(IDCentro, NomeCentroImpiego) " & _
"SELECT " & Me.ccCentriImpiego.Column(0) & _
", '" & Me.ccCentriImpiego.Column(1) & "'"
dovrebbe essere apposto.
ciao



title: INSERT TO:errore di sintassi

text:
Ciao, scusa se risp solo ora ma ieri Google mi ha detto che non potevo
più inviare messaggi perchè ne avevo mandati troppi e dovevo
ripassare.
Cmq devo sottolineare CON ESTREMO DISPIACERE che la guida in linea non
serve a niente. Ieri sera ho letto la parte relativa ad INSERT TO e non
tornava la sintassi.
Ecco la mia riga di codice:
CurrentDb.Execute "INSERT INTO tblCentriImpiegoUtenti " & "(idUtente,
idCentroImpiego, NomeCentroImpiego) VALUES " & "(Me.idUtente,
[tblCentriImpiegoUtenti]![idCentroImpiego],
Me.ccCentriImpiego.Column(1));"
ora non metto in dubbio che questa riga sia imperfetta ma la guida non
segnala ANCHE le virgole, i punti, i punti e virgola che se non ci sono
non ti fanno funzionare la stringa.
Cmq grazie tantissime :)))


title: INSERT TO:errore di sintassi

text:
"Giulio Severini" <
fenic...@hotmail.com
> ha scritto nel messaggio
news:1118157993.5...@o13g2000cwo.googlegroups.com...
[cut]
>Cmq grazie tantissime :)))
prego.
Comunque per avere certezza che il codice sql funzioni o meglio per evitare
di dovertelo scrivere a mano sfrutta il generatore di query di access e poi
guardati l'sql ed eventualmente adattalo.
Ciao,
Mat.


title: Tipi di dati non corrispondenti...

author: Quintalotto

text:
Ciao a tutti,
su un DB Access che e' utilizzato da 2 anni e' improvvisamente comparso
l'errore "Tipi di dati non corrispondenti nell'espressione criterio".
Succede ogni volta che eseguo un confronto fra date come nella query che
segue:
SELECT Lotti.*, DateValue([etim]) AS Espr1
FROM Lotti
WHERE (((DateValue([etim]))>=Date()-3));
Ovviamente se tolgo il confronto della clausola where funziona.
Se importo la stessa query in una copia del DB di qualche mese fa funziona
senza problemi.
Non dipende dai dati contenuti nella tabella perchè anche importando la
tabelle dalla copia di backup (quello funzionante) la query da errore.
Stessa tabella con stessi dati, stessa query da una parte funziona
dall'altra no.
Evidentemente è cambiato qualcosa nelle variabili ambiente, nelle opzioni,
forse un parametro che gestisce i dati tipo data/ora... ma non sò che cosa.
A proposito eTim è di tipo data /ora... ma forse si era capito.
ciao e grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Tipi di dati non corrispondenti...

author: Antonio Biso

text:
"Quintalotto" <
qu...@lotto.org
> ha scritto nel messaggio
news:c4e1s5$iq7$1...@news.newsland.it...
> Ciao a tutti,
> su un DB Access che e' utilizzato da 2 anni e' improvvisamente comparso
> l'errore "Tipi di dati non corrispondenti nell'espressione criterio".
Sul computer "guasto" prova a vedere se la funzione dateval e date su un
modulo te la riconosce sintatticamente.
Se no prova a vedere sui riferimenti se c'è qualche MANCA
Antonio


title: Tipi di dati non corrispondenti...

text:
Il PC č lo stesso ma sono 2 file diversi.
Ho fatto un errore durante il test di copia della tabella. L'errore č
causato da alcuni record con quel campo a null.
Grazie ugualmente per la pronta risposta.
Ciao



title: relazione aziende e conti correnti bancari

author: peppino

text:
Salve, mi servirebbe una mano.
Ho creato un db con cui gestisco fatture, mandati di pagamento ed altro
di 4 società diverse.
Ho creato le seguenti tabelle: Aziende, Banche, Fatture, Contatti ecc.
Quando emetto una fattura, grazie alla relazione tra le tabelle Aziende
e Banche, nel report fatture indico le coordinate bancarie su cui
effettuare il bonifico.
Una delle 4 società ha ben sei conti correnti, per cui la query mi
restituisce per ogni fattura emessa da questa società sei record.
Come faccio a farmi restituire un solo record con NomeAzienda e
coordinate bancarie del C/C da me scelto?
Grazie anticipate.
Giuseppe.


author: MA

text:

nella tabella fatture c metti oltre al campo che ti relaziona con l'azienda
anche uno che ti relaziona con la tabella delle coordinate
Ovvio che nella combo di scelta metterai un fitro sui cc di quell'azienda
Alla fine nella afttura avrai il campo che ti serve e di cui non metterai il
controllo relativo ma solo quelli delle coordinate
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


title: Modifica del formato dei  records visualizzati da una sottomaschera

author: Aldo Ciarapica

text:
ciao
in una Sottomaschera dove scorrono i records di una tabella (Movimenti)
dovrei evidenziare (BackColor) tutti i records, ovvero i campi relativi ai
records, che corrispondono al valore ottenuto da una routine attivata dalla
maschera principale.
Non posso utilizzare una query che seleziona i records che contengono tale
valore poiché mi è utile vedere i records che immediatamente precedono o
seguono il record selezionato.
Con la mia poca esperienza di VisualAccess ho provato in tutti i modi di
evidenziare i records, riesco solo a rintracciarli (oggetto Recordset con
FindFirst; MoveNext ecc) all'interno della tabella, ma quando tento di
cambiargli il colore del fondo non succede niente. Potete aiutarmi?
Grazie anticipatamente
ALDO


text:
"Aldo Ciarapica" <
ciar...@libero.it
> ha scritto nel messaggio
news:RvqHg.81067$zy5.1...@twister1.libero.it...

http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=98
Ciao.
--
Sergio MAZZA


text:
Gentilissimo Sig. Sergio Mazza
non riesco ad aprire la pagina download nell'indirizzo da te consigliato:
http://www.alessandrobaraldi.it/Public/FilesEsempio/Forms/Evidenzia%20Records%20o%20Range%20di%20celle.zip
mi segnala Pagina non Trovata, hai un altro link da consigliarmi per poter
scaricared la demo?
oppure c'è qualcuno che mi possa mandare il file demo:
N° Faq 26 "Evidenzia Records o Range di celle in viste tabellari (UPD)" ?
grazie
aldo
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ecm57f$j0l$1...@area.cu.mi.it...



text:
"Aldo Ciarapica" <
ciar...@libero.it
> ha scritto nel messaggio news:VGLHg.82951$_J1.7...@twister2.libero.it...
> Gentilissimo Sig. Sergio Mazza
> non riesco ad aprire la pagina download nell'indirizzo da te consigliato:
>
http://www.alessandrobaraldi.it/Public/FilesEsempio/Forms/Evidenzia%20Records%20o%20Range%20di%20celle.zip
> mi segnala Pagina non Trovata, hai un altro link da consigliarmi per poter
> scaricared la demo?
> oppure c'è qualcuno che mi possa mandare il file demo:
> N° Faq 26 "Evidenzia Records o Range di celle in viste tabellari (UPD)" ?
> grazie
> aldo
Non ho sottomano la demo; ti consiglio di contattare il webmaster e fargli presente il problema...
Ciao.
--
Sergio MAZZA


author: cidi

text:
"Aldo Ciarapica" <
ciar...@libero.it
> ha scritto nel messaggio
news:VGLHg.82951$_J1.7...@twister2.libero.it...
> Gentilissimo Sig. Sergio Mazza
> non riesco ad aprire la pagina download nell'indirizzo da te consigliato:
>
http://www.alessandrobaraldi.it/Public/FilesEsempio/Forms/Evidenzia%20Records%20o%20Range%20di%20celle.zip
> mi segnala Pagina non Trovata, hai un altro link da consigliarmi per poter
> scaricared la demo?
> oppure c'è qualcuno che mi possa mandare il file demo:
> N° Faq 26 "Evidenzia Records o Range di celle in viste tabellari (UPD)" ?
> grazie
> aldo
>
Ciao Aldo
il sito di Alex funziona perfettamente:
http://www.alessandrobaraldi.it/index.asp
cerca alla sez. Forms.
quando rispondi scrivi dopo il testo e non prima.
Daniele


text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio news:44efff63$0$47956$4faf...@reader3.news.tin.it...
>
> Ciao Aldo
> il sito di Alex funziona perfettamente:
>
http://www.alessandrobaraldi.it/index.asp
>
> cerca alla sez. Forms.
>
> quando rispondi scrivi dopo il testo e non prima.
>
> Daniele
Diciamo "quasi" perfettamente; il webm(on)ster ha inserito un link errato a quell'esempio...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ecpohk$nvr$1...@area.cu.mi.it...

Ciao Sergio
Hai ragione! non avevo controllato l'ultimo pulsante :-((
ho inviato ad Aldo il file.
Speriamo che il webm(on)ster ci legga e provveda prima
che vada in ferie :)
Daniele


text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:44f08081$0$35078$4faf...@reader4.news.tin.it...

Grazie ho ricevuto il file
sto cercando di capirci ... mi ci vorrà un po di tempo
boh!!! speriamo che ce la faccio
cmq di nuovo grazie siete tutti fantastici
ALDO


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ecpohk$nvr$1...@area.cu.mi.it...

ciao Sergio ho ricevuto il file da Daniele
vi ringrazio tutti
ALDO


text:
"Aldo Ciarapica" <
ciar...@libero.it
> ha scritto nel messaggio
news:z%HIg.85991$_J1.7...@twister2.libero.it...
> ciao Sergio ho ricevuto il file da Daniele
> vi ringrazio tutti
> ALDO
Bene, buon lavoro...
Ciao.
--
Sergio MAZZA


title: Dimensione massima FE

author: Sandrobi

text:
Con Access97, un database che contiene molte maschere con relativo codice e
parecchie query, che compattato arriva a 15/20 Mb e oltre, può dare
problemi? Fino a che limiti ci si può spingere?
Ciao.
Sandro


title: Dimensione massima FE

author: Roberto da casa

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:DC82c.51227$Kc3.1...@twister2.libero.it...

Con Access 97 la dimensione massima di un database è di 1 Gb (2 Gb per le
versioni successive), mi sembra quindi di poter dire che sei largamente un
zona di sicurezza.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Dimensione massima FE

text:
> > Con Access97, un database che contiene molte maschere con relativo
codice
> e
> > parecchie query, che compattato arriva a 15/20 Mb e oltre, può dare
> > problemi? Fino a che limiti ci si può spingere?
> >
> > Ciao.
> > Sandro
>
> Con Access 97 la dimensione massima di un database è di 1 Gb (2 Gb per le
> versioni successive), mi sembra quindi di poter dire che sei largamente un
> zona di sicurezza.
>
> Roberto
Si, il limite di 1Gb l'avevo visto però ho capito che si riferisse
ad un database di dati cioè il BE.
Invece mi è sorto il dubbio per quanto riguarda
il FE perché qando comincia a superare i 20 Mb mi sembra più instabile e
più soggetto a errori irreversibili.
In base alla vs. esperienza volevo capire se ci può essere un collegamento
tra le due cose, oppure si può lavorare su un FE di decine di Mb senza
problemi.
Ciao.
Sandro


title: Dimensione massima FE

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:C5k2c.52228$Kc3.1...@twister2.libero.it...

Il limite di 1 Giga è relativo ad un database Access 97 a prescindere dal
fatto che sia FE, BE o che contenga contemporaneamente sia le tabelle che
gli altri oggetti.
Quanto al fatto che FE di altre 20 Mb presentino criticità o problemi di
instabilità non ne ho mai sentito parlare; ho invece sentito parlare di
problemi con database che contengono "codice mondezza" che si accumula nel
tempo per aggiornamenti continui del codice e/o comunque degli oggetti del
database in generale.
Tale "mondezza" non viene completamente eliminata compattando i database;
per maggiori dettagli vai sul Sito Comune (link qui sotto) e nella Sezione
General leggi la FAQ di RoDAgo intitolata "Ridurre le dimensioni dell'mdb".



title: Prime armi: ancora su analizzatore tabelle.

author: songohan

text:
Ho usato analizzatore tabelle per creare due tabelle Articoli e Ordini da
una tabella chiamata OrdiniArticoli.
Ora vedo che le due tabelle, in rappresentazione Foglio dati, mostrano Fogli
dati secondari. E' questo dunque il vantaggio dell'uso dell'analizzatore?
Perchè, in effetti, se la tabella originale rimane, io non ne vedo
l'utilità. Creando due tabelle mantenendo cmq l'originale io aumento le
dimensioni del database....Ma forse c'è qualcosa che mi sfugge.
Chi mi aiuta?
Grazie mille a tutti voi!


text:
"songohan" <
no...@nowhere.com
> ha scritto nel messaggio
news:xTzO6.11340$h9.10...@news.infostrada.it...

L'analizzatore tabelle ti propone e ti crea una soluzione ti tabelle
alternativa  e sostitutiva a quella delle tabelle che gli dai da analizzare;
chiaramente, se accetti la soluzione da lui proposta, la tabella
OrdiniArticoli dovresti cancellarla e lavorare solamente con le due nuove
tabelle Articoli e Ordini.
E' intuitivo che questa analisi va fatta prima di iniziare a creare query,
maschere e report che usino la tabella OrdiniArticoli.
Quella che ti viene sottoposta dall'analizzatore è una soluzione più
razionale e che rispetta le regole di un database relazionale; ha inoltre
quasi sempre il vantaggio di diminuire la dimensione dell'ingombro dei dati
su disco.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: SimonenomiS

text:
"songohan" <
no...@nowhere.com
> ha scritto nel messaggio
news:xTzO6.11340$h9.10...@news.infostrada.it...

    Ciao,
il disorientamento che provi e quello tipico di chi si trova a muovere i
primi passi all'interno del 'selvaggio' :)) mondo dei DB relazionali.
L'argomento è davvero molto vasto per poter essere riassunto in 2 parole.
Cmq se vuoi farti un'idea a riguardo posso consigliarti di leggere
l'articolo "Teoria e pratica per la normalizzazione delle basi di dati" di
Marco Tonti che trovi nell'area Articoli di
http://www.visual-basic.it/
 .
    Come inizio puo' andare. Per approfondire l'argomento, tuttavia, credo
che niente sia meglio di un buon libro (molti ne trovi recensiti sul sito
comune http:/
www.sitocomune.com/
 ) e di un buon NG; questo, ad ex :)).
    Spero di esserti stato utile, ciao.
-------------------------------------------
http://digilander.iol.it/SimonenomiS/
-------------------------------------------


text:
>     Ciao,
> il disorientamento che provi e quello tipico di chi si trova a muovere i
> primi passi all'interno del 'selvaggio' :)) mondo dei DB relazionali.
Già, ehehehehe :-) ma perchè lo chiami selvaggio??
> L'argomento è davvero molto vasto per poter essere riassunto in 2 parole.
> Cmq se vuoi farti un'idea a riguardo posso consigliarti di leggere
> l'articolo "Teoria e pratica per la normalizzazione delle basi di dati" di
> Marco Tonti che trovi nell'area Articoli di
http://www.visual-basic.it/
 .
Ecco, davvero un aiuto che colgo al volo! Strano si trovi sul sito italiano
per il VB...o no?
>
>     Come inizio puo' andare. Per approfondire l'argomento, tuttavia, credo
> che niente sia meglio di un buon libro (molti ne trovi recensiti sul sito
> comune http:/
www.sitocomune.com/
 ) e di un buon NG; questo, ad ex :)).
Di libri ne sto studiando due, uno di Viescas edito dalla MSPress ed un
altro della Talento per le certificazioni MOUS.
Ed inoltre eccomi qui ora :-)
Grazie mille!


text:
> L'analizzatore tabelle ti propone e ti crea una soluzione ti tabelle
> alternativa  e sostitutiva a quella delle tabelle che gli dai da
analizzare;
> chiaramente, se accetti la soluzione da lui proposta, la tabella
> OrdiniArticoli dovresti cancellarla e lavorare solamente con le due nuove
> tabelle Articoli e Ordini.
Ah, ecco mi pareva infatti.....
> E' intuitivo che questa analisi va fatta prima di iniziare a creare query,
> maschere e report che usino la tabella OrdiniArticoli.
Già altrimenti dovrei ridefinire tutte le query :-)
> Quella che ti viene sottoposta dall'analizzatore è una soluzione più
> razionale e che rispetta le regole di un database relazionale; ha inoltre
> quasi sempre il vantaggio di diminuire la dimensione dell'ingombro dei
dati
> su disco.
Ho capito, grazie mille!


title: stringa-testo-data

author: Marina F.

text:
Come dall'oggetto sono riuscita ad estrappolare da un campo testo di una
tabella mediante una query di selezione la parte di testo relativa alla data
esempio 10/12/02.
Ora sul campo della query contenente solo le date dovrei trovare tutti i
record dopo una certa data es:>#20/10/02# solo che essendo un formato testo
non mi riconosce la ricerca.
Qualcuno mi sa indicare una soluzione?
grazie e ciao a tutti


title: stringa-testo-data

author: Maurizio Borrelli

text:
> "Marina F." <1@l1> ha scritto nel messaggio
> news:2T4ba.89$7y3....@twister1.libero.it...
> Come dall'oggetto sono riuscita ad estrappolare da un campo testo di
una
> tabella mediante una query di selezione la parte di testo relativa
alla data
> esempio 10/12/02.
> Ora sul campo della query contenente solo le date dovrei trovare tutti
i
> record dopo una certa data es:>#20/10/02# solo che essendo un formato
testo
> non mi riconosce la ricerca.
[...]
        DateValue([CampoDataTesto])
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------


title: stringa-testo-data

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:b4imgm$203f0a$1...@ID-52090.news.dfncis.de...

Grazie Maurizio però questa funzione nel campo di una query non funziona.
Hai altre idee?
Ciao
Marina
>


title: stringa-testo-data

text:
> "Marina F." <1@l1> ha scritto nel messaggio
> news:L6Nba.7133$7y3.2...@twister1.libero.it...
> > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel
> > messaggio news:b4imgm$203f0a$1...@ID-52090.news.dfncis.de...
> > > "Marina F." <1@l1> ha scritto nel messaggio
> > > news:2T4ba.89$7y3....@twister1.libero.it...
> > > Come dall'oggetto sono riuscita ad estrappolare da un campo testo
> > > di una
> > > tabella mediante una query di selezione la parte di testo relativa
> > > alla data esempio 10/12/02.
> > > Ora sul campo della query contenente solo le date dovrei trovare
> > > tutti i
> > > record dopo una certa data es:>#20/10/02# solo che essendo un
> > > formato testo non mi riconosce la ricerca.
[...]
> >         DateValue([CampoDataTesto])
> Grazie Maurizio perň questa funzione nel campo di una query non
> funziona.
    Perche' dici cio'? Mostraci come la usi.
> Hai altre idee?
    Prima vediamo.



title: stringa-testo-data

author: yronium

text:
Il 12 Mar 2003, 22:19, "Maurizio Borrelli" <
maurizio...@freepass.it
>
ha scritto:
> > "Marina F." <1@l1> ha scritto nel messaggio
> > news:L6Nba.7133$7y3.2...@twister1.libero.it...
> > > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel
> > > messaggio news:b4imgm$203f0a$1...@ID-52090.news.dfncis.de...
> > > > "Marina F." <1@l1> ha scritto nel messaggio
> > > > news:2T4ba.89$7y3....@twister1.libero.it...
> > > > Come dall'oggetto sono riuscita ad estrappolare da un campo testo
> > > > di una
> > > > tabella mediante una query di selezione la parte di testo relativa
> > > > alla data esempio 10/12/02.
> > > > Ora sul campo della query contenente solo le date dovrei trovare
> > > > tutti i
> > > > record dopo una certa data es:>#20/10/02# solo che essendo un
> > > > formato testo non mi riconosce la ricerca.
> [...]
> > > DateValue([CampoDataTesto])
> > Grazie Maurizio però questa funzione nel campo di una query non
> > funziona.
>
> Perche' dici cio'? Mostraci come la usi.
>
> > Hai altre idee?
>
> Prima vediamo.
>
> --
> Ciao :o)
> Maurizio
> --------
> ?SPQR(C)
> X
> --------
>
>
(altra idea)
CDate(testo)
CDate è presente nel generatore di query, e converte una stringa, se questa
rappresenta una data valida, in un tipo di dati Date.
Facci sapere
--------------------------------
Inviato via
http://usenet.libero.it


title: stringa-testo-data

text:
Ecco il mio problema nella tabella dettagli preventivi nel campo Idarticolo
quando viene inserito l'asterisco identifica una descrizione del tipo:
6348/127 DEL 04/06/02 SOSTITUZIONE GRUPPO
dove io con questa query prendo solo la parte che mi interessa e devo fare
la ricerca sulla data ecco la mia query
SELECT [Dettagli PREVENTIVI].IDarticolo, [Dettagli PREVENTIVI].DES,
Left([des],21) AS parteTesto, DateValue(Right([p],Len([p])-13)) AS DataTesto
FROM [Dettagli PREVENTIVI]
WHERE ((([Dettagli PREVENTIVI].IDarticolo)="*"))
WITH OWNERACCESS OPTION;
se inserisco un criterio es: >#31/12/02# nel campo della query  DataTesto mi
da errore "tipo di dati non corrispondenti"
C'è un modo per ovviare
Un Saluto
Marina


title: problema access2002 con win2000!!!!!!

author: Fabio

text:
salve!
ho un programma in accessXP in windows 2000
se installo questo software mentre sono dentro come administrator, tutto ok.
se lo installo entrando come utente diverso, ma con gli stessi diritti di
administrator, mi fa vedere la barra dei menu di accessXP e basta.
qualcuno sa dirmi se ha già incontrato questo problema oppure come
risolverlo?
grazie.
ciao Fabio


title: problema access2002 con win2000!!!!!!

author: Sib

text:
"Fabio" <
fbri...@sidesoft.it
> ha scritto nel messaggio
> salve!
> ho un programma in accessXP in windows 2000
>
> se installo questo software mentre sono dentro come administrator, tutto
ok.
> se lo installo entrando come utente diverso, ma con gli stessi diritti di
> administrator, mi fa vedere la barra dei menu di accessXP e basta.
Che vuoi dire?
cerchi di installarlo piu' volte sulla stessa macchina ai diversi utenti?
e che vuol dire "con gli stessi diritti"? che gli utenti che usi
appartengono al gruppo administrators?
Sib


title: problema access2002 con win2000!!!!!!

text:
ho provato ad installarlo su un PC con Windows 2000.
in administrator funziona benissimo, in un utente che appartiene al gruppo
administrators vede solo la barra dei menu.
cosa si può fare per risolvere il problema?
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:dUOy9.9032$XO.3...@news2.tin.it...



title: problema access2002 con win2000!!!!!!

text:
"Fabio" <
fbri...@sidesoft.it
> ha scritto nel messaggio
> ho provato ad installarlo su un PC con Windows 2000.
> in administrator funziona benissimo, in un utente che appartiene al gruppo
> administrators vede solo la barra dei menu.
> cosa si può fare per risolvere il problema?
scrivi dopo il quoting.
non hai risposto alle mie domande.
comunque vedi se gli utenti hann oi permessi di accesso sulla cartella di
office (in C:\programmi) a volte l'installazione da i permessi sono
all'amministratore.
Sib


title: Verifica collegamento ipertestuale

text:
Ciao a tutti. Vorrei sapere se è possibile verificare la correttezza
di un collegamento ipertestuale. In una tabella ho un campo dove viene
riportato il collegamento ipertestuale ad un altro documento. E'
possibile tramite VBA controllare se il collegamento è funzionante?
Dovrei redigere un report che mi dica quali sono i collegamenti non
funzionanti e quelli mancanti. Mi servirebbe però sapere come fare a
fare la verifica.
Grazie
Ciao
Stefano


title: Verifica collegamento ipertestuale

author: Carlo Costarella

text:
<
rquat...@gmail.com
> ha scritto nel messaggio
news:ff4661e4-8b84-4eab...@20g2000yqt.googlegroups.com...
Ciao a tutti. Vorrei sapere se č possibile verificare la correttezza
di un collegamento ipertestuale. In una tabella ho un campo dove viene
riportato il collegamento ipertestuale ad un altro documento. E'
possibile tramite VBA controllare se il collegamento č funzionante?
Dovrei redigere un report che mi dica quali sono i collegamenti non
funzionanti e quelli mancanti. Mi servirebbe perň sapere come fare a
fare la verifica.
Grazie
Ciao
Stefano
Sě č possibile per esempio usando la funzione Dir.
If Dir("TuoPercorsoFile") > "" then
'il file esiste
else
'il file non esiste.
End if
Ciao, Carlo


title: Verifica collegamento ipertestuale

text:
On 1 Dic, 14:38, "Carlo Costarella" <
carloantoniocostare...@gmail.com
>
wrote:
> <
rquattro...@gmail.com
> ha scritto nel messaggionews:ff4661e4-8b84-4eab...@20g2000yqt.googlegroups.com...
> Ciao a tutti. Vorrei sapere se è possibile verificare la correttezza
> di un collegamento ipertestuale. In una tabella ho un campo dove viene
> riportato il collegamento ipertestuale ad un altro documento. E'
> possibile tramite VBA controllare se il collegamento è funzionante?
> Dovrei redigere un report che mi dica quali sono i collegamenti non
> funzionanti e quelli mancanti. Mi servirebbe però sapere come fare a
> fare la verifica.
> Grazie
> Ciao
> Stefano
>
> Sì è possibile per esempio usando la funzione Dir.
> If Dir("TuoPercorsoFile") > "" then
> 'il file esiste
> else
> 'il file non esiste.
> End if
>
> Ciao, Carlo
Ottimo, grazie. Adesso però non so come fare a metterlo in una query
per redigere poi un report. Ho trovato una funzione su un altro post
ma invece di restituire vero/falso restituisce 0 in qualsiasi caso. La
funzione è questa:
'*********************************************
'Controlla se un File esiste o no, restituisce
'True se esiste False se non esiste.
'NomeFile = percorso completo del File
'*********************************************
Function EsisteFile(NomeFile As String) As Boolean
On Local Error GoTo GestoreErrori
'Controlla l'esistenza del file specificato.
If NomeFile <> "" Then
    EsisteFile = IIf(Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly
Or
vbSystem) <> "", True, False)
Else
    EsisteFile = False
End If
Exit Function
GestoreErrori:
'Sì è verificato un errore: il file non esiste.
EsisteFile = False
End Function
Testato su: Tutti i Sistemi operativi
e la query che ho creato è questa:
SELECT ProdottiChimici.IDProdotto, ProdottiChimici.IDFornitorePC,
ProdottiChimici.Descrizione, ProdottiChimici.Prezzo,
ProdottiChimici.SOV, ProdottiChimici.SchedaSicurezza,
ProdottiChimici.Selezionato, EsisteFile([SchedaSicurezza]) AS Espr1
FROM ProdottiChimici
Come mai non riesco a farla funzionare?


title: Verifica collegamento ipertestuale

text:
<
rquat...@gmail.com
> ha scritto nel messaggio
news:e8eccb17-57c9-4364...@k36g2000yqe.googlegroups.com...






----------------------------
Ci provo.
Controlla se in [SchedaSicurezza] esiste sempre un percorso di file
valido...se no, escludi il record dalla query.
cambia ....EsisteFile([SchedaSicurezza]) AS Espr1
FROM ProdottiChimici
in... EsisteFile([SchedaSicurezza]) AS Esiste
FROM ProdottiChimici
Metti la spunta su "mostra" in corrispondenza della colonna "Esiste".
La funzione mettila in un modulo pubblico e scrivila così:
Public Function EsisteFile(NomeFile As String) As Boolean
On Error GoTo GestoreErrori
If NomeFile <> "" Then
 EsisteFile = IIf(Dir(NomeFile, vbNormal Or _
 vbHidden Or vbReadOnly Or vbSystem) <> "", True, False)
Else
    EsisteFile = False
End If
Exit Function
GestoreErrori:
EsisteFile = False
End Function
Se tutto funziona la colonna "Esiste" dovrebbe restituire una serie di 0
o -1 oppure vero/falso
Ciao, Carlo


title: Verifica collegamento ipertestuale

author: Karl Donaubauer

text:
rquat...@gmail.com
 wrote:
> ...
>  Ho trovato una funzione su un altro post
> ma invece di restituire vero/falso restituisce 0 in qualsiasi caso. La
> funzione č questa:
> '*********************************************
> 'Controlla se un File esiste o no, restituisce
> 'True se esiste False se non esiste.
> 'NomeFile = percorso completo del File
> '*********************************************
> Function EsisteFile(NomeFile As String) As Boolean
> On Local Error GoTo GestoreErrori
> 'Controlla l'esistenza del file specificato.
> If NomeFile <> "" Then
>     EsisteFile = IIf(Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly
> Or
> vbSystem) <> "", True, False)
> Else
>     EsisteFile = False
> End If
> Exit Function
>
> GestoreErrori:
> 'Sě č verificato un errore: il file non esiste.
> EsisteFile = False
> End Function
>
> Testato su: Tutti i Sistemi operativi
>
> e la query che ho creato č questa:
> SELECT ProdottiChimici.IDProdotto, ProdottiChimici.IDFornitorePC,
> ProdottiChimici.Descrizione, ProdottiChimici.Prezzo,
> ProdottiChimici.SOV, ProdottiChimici.SchedaSicurezza,
> ProdottiChimici.Selezionato, EsisteFile([SchedaSicurezza]) AS Espr1
> FROM ProdottiChimici
>
> Come mai non riesco a farla funzionare?
Se il campo SchedaSicurezza non č un campo testo col percorso
completo del file ma un campo ipertestuale, devi estrarre il percorso:
EsisteFile(HyperlinkPart([SchedaSicurezza];5))
o nel enunciato SQL con comma
EsisteFile(HyperlinkPart([SchedaSicurezza],5))
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Verifica collegamento ipertestuale

text:
On 1 Dic, 17:10, "Carlo Costarella" <
carloantoniocostare...@gmail.com
>
wrote:
> <
rquattro...@gmail.com
> ha scritto nel messaggionews:e8eccb17-57c9-4364...@k36g2000yqe.googlegroups.com...

Ciao Carlo, grazie mille per l'interessamento. Ho fatto come hai detto
ma non cambia nulla. Ho provato a cancellare un'intera cartella di
schede di sicurezza ma la colonna "esiste" riporta solo "0". Ho fatto
una prova. In una maschera che utilizzo solitamente per inserire i
link alle schede di sicurezza, ho messo una casella di testo con la
funzione IsHyperlink per farmi dire se riconosce come collegamento
ipertestuale la stringa che c'è in "SChedaSicurezza" e mi dice di "no"
su tutti i link. Il mio collegamento ipertestuale riporta tutto il
path del file. Forse dipende da quello?


title: Verifica collegamento ipertestuale

text:
On 1 Dic, 17:28, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>
rquattro...@gmail.com
 wrote:
> > ...
> >  Ho trovato una funzione su un altro post
> > ma invece di restituire vero/falso restituisce 0 in qualsiasi caso. La
> > funzione è questa:
> > '*********************************************
> > 'Controlla se un File esiste o no, restituisce
> > 'True se esiste False se non esiste.
> > 'NomeFile = percorso completo del File
> > '*********************************************
> > Function EsisteFile(NomeFile As String) As Boolean
> > On Local Error GoTo GestoreErrori
> > 'Controlla l'esistenza del file specificato.
> > If NomeFile <> "" Then
> >     EsisteFile = IIf(Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly
> > Or
> > vbSystem) <> "", True, False)
> > Else
> >     EsisteFile = False
> > End If
> > Exit Function
>
> > GestoreErrori:
> > 'Sì è verificato un errore: il file non esiste.
> > EsisteFile = False
> > End Function
>
> > Testato su: Tutti i Sistemi operativi
>
> > e la query che ho creato è questa:
> > SELECT ProdottiChimici.IDProdotto, ProdottiChimici.IDFornitorePC,
> > ProdottiChimici.Descrizione, ProdottiChimici.Prezzo,
> > ProdottiChimici.SOV, ProdottiChimici.SchedaSicurezza,
> > ProdottiChimici.Selezionato, EsisteFile([SchedaSicurezza]) AS Espr1
> > FROM ProdottiChimici
>
> > Come mai non riesco a farla funzionare?
>
> Se il campo SchedaSicurezza non è un campo testo col percorso
> completo del file ma un campo ipertestuale, devi estrarre il percorso:
>
> EsisteFile(HyperlinkPart([SchedaSicurezza];5))
>
> o nel enunciato SQL con comma
>
> EsisteFile(HyperlinkPart([SchedaSicurezza],5))
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Ah, grazie. Era proprio questo il problema. Infatti avevo fatto delle
prove, ma non sapevo che i collegamenti ipertestuali fossero così.
Grazie mille a tutti quanti.
Stefano


title: Tabelle origine query

author: Zut

text:
Per delle elaborazioni periodiche ho svariate query molto complesse
formate da altre query ecc..

Prima di lanciare le elaborazioni, ho l'esigenza OGNI VOLTA di risalire
alle tabelle "madri" di ogni singola query per effettuare una serie di
aggiornamenti.

C'è modo di automatizzare la cosa e indicando il nome della query e
ottenere l'elenco delle TABELLE (e non le query precedenti) coinvolte?
Grazie


title: Stampa stesso report su stampanti specifiche diverse

author: TDK

text:
Salve
Ho la necessita di stampare lo stesso report su più stampanti diverse.
Mi spiego meglio, ho un report che genera etichette in base ad una
selezione del reparto (combobox) posta posta su un form che agisce
sulla query di selezione. Ora io dovrei stampare automaticamente le
etichette sulla stampante relativa al reparto scelto, quando estraggo
le etichette per il reparto1 devono venire stampate direttamante sulla
stampante del reparto 1 se estraggo quelle del reparto2 devono andare
sulla stampante del reparto 2 e così via. Come faccio ad impostare da
VBA la stampante su cui devo stampare?
Grazie 1K per l'help


author: Franco

text:
Il 28 Feb 2008, 12:35, "TDK" <
mouse...@libero.it
> ha scritto:
> Salve
>
> Ho la necessita di stampare lo stesso report su piů stampanti diverse.
> Mi spiego meglio, ho un report che genera etichette in base ad una
> selezione del reparto (combobox) posta posta su un form che agisce
> sulla query di selezione. Ora io dovrei stampare automaticamente le
> etichette sulla stampante relativa al reparto scelto, quando estraggo
> le etichette per il reparto1 devono venire stampate direttamante sulla
> stampante del reparto 1 se estraggo quelle del reparto2 devono andare
> sulla stampante del reparto 2 e cosě via. Come faccio ad impostare da
> VBA la stampante su cui devo stampare?
> Grazie 1K per l'help
>
Potresti inserire l'informazione relativa alla stampante direttamente nella
tabella dei reparti, con un campo apposito, ed abbinare la stampa al valore
di quel campo.
Poco tempo fa c'č stata una domanda simile sul NG, prova a sfogliare
indietro.
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Help di Access

author: C Briglia

text:
Sapete se esiste un sistema per stampare (anche su di un file) tutto l'help
di access per poi (... non so se vale la pena) stampare un librone?
grazie
bce...@tiscalinet.it


title: Help di Access

author: sib

text:
C Briglia <
bce...@tiscalinet.it
> wrote in message
86vc7j$jjr$1...@lacerta.tiscalinet.it...
> Sapete se esiste un sistema per stampare (anche su di un file) tutto
l'help
> di access per poi (... non so se vale la pena) stampare un librone?
>
...e qui, molti non riponderanno perche' il subj da' l'impressione di essere
vago e poco attinente, mentre invece tu chiedi informazioni proprio
sull'help, hehehe :-)
Ti rispondo subito:
non ne vale assolutamente la pena.
Inoltre l'help di access e' utile e significativo perche' e' navigabile e
collegato ai vari oggetti da cui e' richiamabile, non ha molto senso
leggerlo sulla carta.
Per imparare access e' meglio un buon libro fatto apposta.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Help di Access

author: Carlo Ve

text:
sib ha scritto nel messaggio ...
>C Briglia <
bce...@tiscalinet.it
> wrote in message
>86vc7j$jjr$1...@lacerta.tiscalinet.it...
>> Sapete se esiste un sistema per stampare (anche su di un file) tutto
>l'help
>> di access per poi (... non so se vale la pena) stampare un librone?
In giro ci sono delle utility apposta per convertire i file in formato hlp
in txt
sinceramente adesso non ricordo il nome,
comunque anche secondo me non ne vale la pena
A volte l'help l'ho trovato molto dispersivo, cercando  un esempio di una
funzione
ti fa l'esempio inserendo anche altre cose che non aiutano a capire
Se vuoi un po' di teoria o di concetti generali di Access molto meglio
leggere un buon libro
e ne trovi quanti ne vuoi,  se invece  ti servono degli esempi sull'uso di
determinate funzioni,  istruzioni o codice di VBA leggiti un po' di msg
arretrati di questo ng e stampati quelli che ti interessano
ne troverai un buon campionario.
Carlo Ve


title: Problema con API: SetWindowPos non ha alcun effetto

author: Michele (Giò)

text:
Buongiorno a tutti
Sto cercando di utilizzare lo stralcio di codice trovato sul sito comune (un pò customizzato) per
eliminare il tasto X da ogni finestra del mio db (funzionalmente parlando, è già disabilitato, ma
vederlo mi da fastidio, uso Acc2002 e WXp) passandogli l'handle direttamente.
Si usa per tale scopo la funzione SetWindowLong con gli opportuni flags del caso
--------------------------------------------------------------------------------------------------
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
---------------
Private Sub ModifyAppWind(FormHwnd As Long)
Dim PrevWinStyle As Long, NewWinStyle As Long
PrevWinStyle = GetWindowLong(FormHwnd, GWL_STYLE)
NewWinStyle = PrevWinStyle And Not WS_SYSMENU And Not WS_MINIMIZEBOX And Not WS_MAXIMIZEBOX
PrevWinStyle = SetWindowLong(FormHwnd, GWL_STYLE, NewWinStyle)
End Sub
-------------------------------------------------------------------------------------------------
solo che utilizzando la sub ModifyAppWind(handle) su ogni form del mio db, il tasto Chiusura non mi
scompare finchè non ri-rendo attiva la form dopo aver fatto perdere il focus su di essa, cliccando
ad esempio su qualsiasi altra parte dell'area.
Su msdn ho visto che per rendere effettive le modifiche di SetWindowLong, occorrerebbe chiamare
SetWindowPos
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/setwindowpos.asp
(da Win32api.txt)
-----------------------------------------------------------------
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
    ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
---------------------------------------------------------------
Chiamando come suggerito dalla pagina msdn questa funzione:
----------------------------------------------
SetWindowPos Forms(FormName).Form.hwnd, Forms(FormName).Form.hwnd, 0, 0, 0, 0, _
SWP_NOMOVE And SWP_NOSIZE And SWP_NOZORDER And SWP_FRAMECHANGED
---------------------------------------------
Forms(FormName).Form.hwnd identifica chiaramente l'handle della finestra di nome FormName
Questa funzione dovrebbe forzare l'aggiornamento delle modifiche alla form, ma non cambia niente.
Qualcuno ha avuto lo stesso problema?
---------------------------
Michele (Giò)
joyl...@alice.it


author: Alessandro Baraldi

text:
Michele (Giò) ha scritto:

Dai un'occhiata a questo, utilizza proprio questa tecnica sulle Form,
ovviamente tu dovrai passare l'Handle corretto:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=10
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1165058342.1...@f1g2000cwa.googlegroups.com...
Dai un'occhiata a questo, utilizza proprio questa tecnica sulle Form,
ovviamente tu dovrai passare l'Handle corretto:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=10
@Alex
Ciao Alex, ho dato un'occhiata al tuo mdb, e ho risolto il problema sostituendo, su tuo modello, gli
"And" della mia SetWindowPos con degli "Or". Mi potresti spiegare in parole povere che cosa ho
realmente cambiato con questa operazione? Per combinare i flags non è solito, come ho già visto,
usare gli And?
Comunque grazie, ora funziona che è una meraviglia.
Michele


text:
Michele (Giò) ha scritto:
[CUT]
> Ciao Alex, ho dato un'occhiata al tuo mdb, e ho risolto il problema sostituendo, su tuo modello, gli
> "And" della mia SetWindowPos con degli "Or". Mi potresti spiegare in parole povere che cosa ho
> realmente cambiato con questa operazione? Per combinare i flags non è solito, come ho già visto,
> usare gli And?
Dipende da cosa devi fare...
L'operatore logico OR si usa per aggiungere alle impostazioni attuali
quelle che ritieni da inserire...!
L'operatore logico AND(con il Not) si usa se devi rimuovere
un'impostazione.
E' la logica Booleana.
> Comunque grazie, ora funziona che è una meraviglia.
>
> Michele
Ciao
@Alex


title: Aiuto su report ...

author: Angelo

text:
Il mio Report č il risultato di una maxi query originata da piů tabelle.
Il problema č che mi si visualizano campi duplicati ed inoltre anche la
medesima pagina viene duplicata piů volte.
Dove devo intervenire???
Grazie
Angelo


title: Aiuto su report ...

author: Roberto da casa

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:ndwV9.51038$AA2.2...@news2.tin.it...

Sulla query: il report si limita a stampare il suo contenuto.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aiuto su report ...

author: vale

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:NrwV9.10522$YG2.3...@twister1.libero.it...
>
> "Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
> news:ndwV9.51038$AA2.2...@news2.tin.it...
> > Il mio Report č il risultato di una maxi query originata da piů tabelle.
> > Il problema č che mi si visualizano campi duplicati ed inoltre anche la
> > medesima pagina viene duplicata piů volte.
> > Dove devo intervenire???
> >
> > Grazie
> > Angelo
>
> Sulla query: il report si limita a stampare il suo contenuto.
>
> --
> Roberto
>
non č proprio cosě,
sul report si puň intervenire con i raggruppamenti delle sezioni, senza
toccare la query.
o sbaglio?
vale


title: Aiuto su report ...

text:
"vale" <
va...@virgilio.it
> ha scritto nel messaggio
news:b06njb$lhkls$1...@ID-168410.news.dfncis.de...

Si, in un report puoi effettuare dei raggruppamenti, ma a mio avviso Angelo
ha basato la query su due o piů tabelle non in join fra di loro, nel qual
caso i raggruppamenti del report nulla possono nei confronti delle miriadi
di righe della query generate dal prodotto cartesiano dei record delle varie
tabelle.



title: Ruotare una scritta

author: Santilli Marco

text:
Voglio ruotare una scritta su un REPORT
Sono andato sotto proprietà - altro - verticale - SI.
Ora la scritta ce l'ho ruotata, solo che non nel verso che voglio
Lui me la imposta che si legge dall'alto verso il basso, cioè da destra
Io voglio che si legge dal basso verso l'alto, cioè da sinistra
C'è un modo????
Ciao e grazieeeeeee


title: Ruotare una scritta

author: MA

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cllvjr$hcu$1...@balena.cs.interbusiness.it...

www.lebans.com
MAssimiliano
>
>


title: Ruotare una scritta

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:JJIfd.28244$B06....@news.edisontel.com...

UN AIUTOOOOOOOOooooooooooooooooooooooooo


title: Ruotare una scritta

author: sv

text:
Santilli Marco ha scritto:

> UN AIUTOOOOOOOOooooooooooooooooooooooooo
Quale??
MAssimiliano ti ha già scritto di consultare
www.lebans.com
.
Aggiungo che puoi scaricarti il file "AccRotextWMF.zip"
e... controlla se fa al caso tuo.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: visualizzazioni a varie risoluzioni

author: elio

text:
Un saluto a tutti.
Vorrei sapere come vi regolate per la creazione delle maschere.....mi spiego
meglio:
una volta creata la maschera a 1024*768 sara' visualizzata in un modo....a
800*600 invece la visualizzazione e' un'altra...(almeno cosi' ho constatato
in un esempio).....nel caso della progettazione dei siti web i flash o
dreamweaver so come regolarmi (si imposta tutto in modo relativo
considerando la "percentuale della pagina " e non i pixel effettivi.....per
le maschere pero' mi sembra che l'impostazione e' solo in cm....quindi
legati ai pixel!!).
Datemi qualche dritta in questo senso.
ciao e grazie
e.


title: visualizzazioni a varie risoluzioni

author: Sergio MAZZA

text:
"elio" <el...@NOSPAMlibero.it> ha scritto nel messaggio
news:9go9e2$ahr$1...@lacerta.tiscalinet.it...

Se non sbaglio sul sito comune (
www.sitocomune.com
) c'è un esempio di
ridimensionamento dei controlli...
Ciao.


title: visualizzazioni a varie risoluzioni

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9gpkbo$7g$1...@canarie.caspur.it...
>Se non sbaglio sul sito comune (
www.sitocomune.com
) c'č un esempio di
> ridimensionamento dei controlli...
> Ciao.
Avevo controllato.....ma sinceramente mi da problemi ma il compilatore
evidenzia in rosso le variabili dichiarate "global" (in tutto se non sbaglio
ce ne sono 3.....e mi da 3 errori).
Esiste una soluzione piu' semplice o visto che sono scarso in programmazione
in vb qualcuno puo' dirmi come risolvere gli errori in quelle dichiarazioni?
Ciao e grazie


title: visualizzazioni a varie risoluzioni

text:
"elio" <el...@NOSPAMlibero.it> ha scritto nel messaggio
news:9h%X6.5825$Rq1.1...@news.infostrada.it...
>
>
> Avevo controllato.....ma sinceramente mi da problemi ma il compilatore
> evidenzia in rosso le variabili dichiarate "global" (in tutto se non
sbaglio
> ce ne sono 3.....e mi da 3 errori).
Di che tipo e con quale versione di access ti stai cimentando?
> Esiste una soluzione piu' semplice o visto che sono scarso in
programmazione
> in vb qualcuno puo' dirmi come risolvere gli errori in quelle
dichiarazioni?
Piů semplice di quella? Non ne ho idea, prova a contattare l'autore del
codice...
> Ciao e grazie
Ciao.


title: run time in vendita?

author: Alez

text:
Ecco un particolar quesito da porre:
Ho due negozi di dischi e ho fatto un Db per la gestione del magazzino.
Avendo però la licenza per Access in uno solo dei due negozi e volendo
utilizzare il Db anche nell'altro, senza pero dover sborsare altre 800mila
per un altra licenza, chiedo se è possibile acquistare solo la run time da
qualche sviluppatore che avesse la apposita versione di Acc.
Conoscenti mi hanno riferito di aver visto su un sito queste run time in
vendita a 50mila, ma non sono riuscito a rintracciarlo.
Grazie per ev. post


title: run time in vendita?

author: Emyr

text:
On Wed, 30 Jan 2002 08:17:39 GMT, "Alez" <
music...@inwind.it
>
wrote:

presumo che il RunTime non sia in vendita....
quello che ti serve e qualcuno che ti rivenda il tuo programma
fornendoti di conseguenza il runtime.....
ad un eventuale controllo mostri la fattura di acquisto del
programma....
chi te lo fattura deve avere ovviamente l'office developer per poter
distribuire i programmi con il runtime....
chiedi al limite chi è disponibile nella tua zona nel NG...
tieni presente che se rivendi il tuo office e compri la versione
developer sei autonomo
Saluti.
Emanuele.


title: run time in vendita?

author: Massimo

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:kjkf5uo3fo38o4fjq...@4ax.com...

Che versione di access hai installato ?
Max


title: run time in vendita?

text:
access 2000.
"Massimo" <
ron...@libero.it
> ha scritto nel messaggio
news:aBS58.6417$ia6.2...@twister2.libero.it...



title: run time in vendita?

text:
On Wed, 30 Jan 2002 17:33:24 GMT, "Alez" <
music...@inwind.it
>
wrote:

in che zona sei?
Saluti.
Emanuele.


title: Per Davide (Sib)

author: Marco M. uff

text:
Credo di aver fatto tutto il necessario, comunque ti specifico:
Tabella: Ditta
Nome Campo: tblDitta "testo 255"
--------
Maschera: FrmDitta
--------
Casella di testo: Ricerca "non associata"
--------
Evento: Su modifica
Evento: Su doppio clic
Evento: Su pressione (errore: rst.FindNext)
--------
Grazie ancora Marco
"aiuta il prossimo tuo come te stesso"


title: Per Davide (Sib)

author: Sib dal portatile

text:
"Marco M. uff" <
iranc...@inwind.it
> ha scritto nel messaggio
news:9j6bk3$mmc$1...@nreadA.inwind.it...
> Credo di aver fatto tutto il necessario, comunque ti specifico:
>
> Tabella: Ditta
> Nome Campo: tblDitta "testo 255"
> --------
> Maschera: FrmDitta
> --------
> Casella di testo: Ricerca "non associata"
> --------
> Evento: Su modifica
> Evento: Su doppio clic
> Evento: Su pressione (errore: rst.FindNext)
> --------
Ancora 2 domande:
La maschera è associata alla tabella Ditta?
Il codice che hai trovato sul sito comune da inserire negli eventi
presuppone che il campo in questione si chiami "Ditta" e non "tblDitta". Hai
provveduto quindi ad adattare il codice?
--
Ciao
Sib
> "aiuta il prossimo tuo come te stesso"
"chi trova un amico trova un tesoro"


title: CERCA FILE SU DISCO

text:
Salve a tutti e buon inizio autunno;
Su una form ho:
1 textbox chiamata PercorsoFile
1 textbox chiamata NomeFile
1 pulsante chiamato Sfoglia
1 pulsante chiamato Cerca
1 listbox chiamata Elenco

quello che voglio fare è che inserendo un nome di un file che  .doc che
voglio cercare su disco mi venga elencato nella listbox (simile al cerca
di windows)

mettendo il codice sotto nell'evento click del pulsante Cerca  mi da un
errore per riferimento non valido FileSearch eppure ho abilitato nei
riferimenti la libreria Microsoft Word library 12.0, ma niente

Mi sapreste dare una dritta?

***********************************************************************
Private Sub Cerca_Click()
Dim i As Long

If IsNull(Me.PercorsoFile) Then
    MsgBox "E' necessario inserire una directory", vbInformation +
vbOKOnly, "Percorso di Ricerca"
Else
    With Application.FileSearch
        .LookIn = Me.PercorsoFile
        .FileName = Me.Nome_File & ".doc"
        If .Execute() > 0 Then
            'MsgBox "Trovati " & .FoundFiles.Count & " file"
                Me.Elenco.RowSource = .FoundFiles(1)
                Me.Elenco.RowSource = Me.Elenco.RowSource & ";" &
FileLen(.FoundFiles(1))
                Me.Elenco.RowSource = Me.Elenco.RowSource & ";" &
FileDateTime(.FoundFiles(1))
            For i = 2 To .FoundFiles.Count
                Me.Elenco.RowSource = Me.Elenco.RowSource & ";" &
FoundFiles(i)
                Me.Elenco.RowSource = Me.Elenco.RowSource & ";" &
FileLen(.FoundFiles(i))
                Me.Elenco.RowSource = Me.Elenco.RowSource & ";" &
FileDateTime(.FoundFiles(i))
            Next i
        Else
            MsgBox "Nessun file trovato"
        End If
    End With
End If
End Sub
*************************************************************************

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: CERCA FILE SU DISCO

text:
Da Office2007 la lIb di FileSearch non è più supportata in VBA, e da
quanto ne so non sono state ripristinate con alternative specifiche.

Se vuoi riempire una List/Combo puoi adattare questo codice:

Public Function FillListFiles(ctl As Access.ListBox, Startpath As
string)
    Dim MyPath As String
    Dim MyName As String
    ctl .RowSource = ""
    MyPath = Startpath
    MyName = Dir(MyPath)
    Do While MyName <> ""
        With ctl
            .RowSource = .RowSource & MyName & ";"
        End With
        MyName = Dir
    Loop
    ctl.RowSource = Left(ctl.RowSource, Len(ctl.RowSource) - 1)
End Function

@Alex


title: CERCA FILE SU DISCO

text:
@Alex ha scritto:
> Da Office2007 la lIb di FileSearch non � pi� supportata in VBA, e da



> @Alex
Ciao Alex mi da un errore riferimenti nella libreria cosa dovrei attivare?
