title: Ricerca con Access2000

author: Michele

text:
Saluti a tutti,
ho creato un db di pratiche per il mio ufficio, tutto funziona bene ma come
faccio a creare una maschera dove posso inserire i parametri per una ricerca
(anche di valori parziali) e far visualizzare il risultato in una casella di
riepilogo per poi scegliere il record  giusto e quindi visualizzarlo?
E' possibile farlo?
Grazie in anticipo


title: Ricerca con Access2000

author: Roberto da casa

text:
"Michele" <
mi...@inwind.it
> ha scritto nel messaggio
news:Fim56.8773$FF1.5...@twister1.tin.it...

Ipotizziamo che la tabella che contiene le pratiche si chiami Pratiche e che
questa contenga fra l'altro i campi IDPratica (Contatore e chiave primaria)
e NomePratica (di tipo testo) sul quale vuoi fare la ricerca.
Creati una query di selezione (chiamala Query1) che abbia il seguente codice
SQL:
SELECT Pratiche.IDPratica, Pratiche.NomePratica
FROM Pratiche
WHERE (((Pratiche.NomePratica) Like
IIf(IsNull([Forms]![Maschera1]![ChiaveRic]),Null,"*" &
[Forms]![Maschera1]![ChiaveRic] & "*")));
Creati una maschera a visualizzazione Maschera singola, che abbia come
Origine record la tabella Pratiche e chiamala Maschera2.
Creati un'altra maschera a visualizzazione Maschera singola non associata ad
alcuna tabella e chiamala Maschera1.
In Maschera1 inserisci una casella di testo non associata e chiamala
ChiaveRic; in Maschera1 inserisci anche una casella di riepilogo e chiamala
Elenco; Elenco deve avere 2 colonne (alle quali assegni una opportuna
larghezza), come Origine riga Query1 e come Larghezza la somma della
larghezza delle due colonne.
A fronte dell'evento "Dopo aggiornamento" di ChiaveRic genera il seguente
codice VBA:
Me!Elenco.Requery
A fronte dell'evento "Su clic" di Elenco genera il seguente codice VBA:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Maschera2"
    stLinkCriteria = "[IDPratica]=" & Me![Elenco].Column(0)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
A questo punto apri Maschera1 e digita nella casella di testo la tua chiave
di ricerca e premi il tasto Invio: nella casella di riepilogo ti
compariranno i nomi di tutte le pratiche che nel campo NomePratica
contengono la tua chiave di ricerca; clicca con il mouse la riga della
casella di riepilogo che contiene il nome della pratica che vuoi
visualizzare, ti si dovrebbe aprire una maschera che te la mostra.
Era quello che volevi fare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Ricerca con Access2000

author: sib

text:
Michele <
mi...@inwind.it
> wrote in message
Fim56.8773$FF1.5...@twister1.tin.it...
> Saluti a tutti,
> ho creato un db di pratiche per il mio ufficio, tutto funziona bene ma
come
> faccio a creare una maschera dove posso inserire i parametri per una
ricerca
> (anche di valori parziali) e far visualizzare il risultato in una casella
di
> riepilogo per poi scegliere il record  giusto e quindi visualizzarlo?
Non so se sia adatto alle tue esigenze, ma prova a dare un'occhiata alla
sezione suggerimenti del mio sito.
Sib
PS Presto, questo materiale, dovrebbe essere disponibile anche sul sito
comune.
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Ricerca con Access2000

text:
In article <Hds56.251837
$
hk4.12...@news.infostrada.it
>,

Grazie infinite
il tuo suggerimento mi ha fatto capire molte cose
e funziona come volevo.
Adesso provo a modificarlo in modo che da poter
inserire più chiavi di ricerca.
Ciao ciao
Sent via Deja.com
http://www.deja.com/


title: Stampanti

author: LINUX

text:
Devo poter assegnare la stampante corretta al report prima di lanciarlo ,
avevo trovato la soluzione attraverso il codice prelevato da questo sito
sulla scelta stampanti che in pratica settava come predefinita una stampante
prima di fare openreport , ora con 2003 non funziona più !
In effetti la stampante di default cambia ( interroganto con
getdefaultprinter()) ma i report vengono stampanti con l'unità predefinita
all'avvio dell'aplicazione è vano ogni tentativo di settaggio se non
cambiandolo dal menù di access , come posso imporre una stampante per una
determinata stampa ?
Grazie
Flavio


title: Stampanti

author: Silver

text:
LINUX ha scritto:
> come posso imporre una stampante per una
> determinata stampa ?
Io uso questa funzione.
Non so dirti se il codice è migliorabile ma fa il suo lavoro.
In pratica gli dai in pasto il nome del report da aprire e l'eventuale
filtro da applicare ai dati
La funzione cerca nella tabella tb_printer il nome della stampante
associata al report (l'assegnazione avviene con una query tramite una
maschera) e se lo trova cambia la stampante predefinita e apre il
report, altrimenti dà un avviso e restituisce false
Public Function scegli_stampa(rep As String, cond As String) As Boolean
Dim oldprn As String
Dim newprn As String
scegli_stampa = False
oldprn = Application.Printer.DeviceName
newprn = nz(dlookup("stampante","tb_printer","nomep=" & Chr(34) & rep &
Chr(34) & ""),"a")
If newprn = "a" Then
	MsgBox "Non hai impostato la stampante per questo report",
vbExclamation, "ATTENZIONE"
	GoTo chiudi
End If
Set Application.Printer = Application.printers(newprn)
DoCmd.OpenReport rep, , , cond
Set Application.Printer = Application.printers(oldprn)
scegli_stampa = True
chiudi:
End Function


title: Stampanti

text:
Grazie Silver
Il tuo suggerimento è stato prezioso , modificando poche righe
il programma a ripreso a funzionare anche su 2003 !!!
API e Dichiarazioni e il comando è sotto il naso !!!
Set Application.Printer = Application.printers(newprn)
ancora Grazie
"Silver" <cra...@TOGLIMIhotmail.com> ha scritto nel messaggio
news:ovThj.45971$8j3....@tornado.fastwebnet.it...



title: per antonio bisio

author: guggenheim

text:
"guggenheim" <
gugge...@iol.it
> ha scritto nel messaggio
news:CNl9a.7978$pG1.1...@news1.tin.it...
> nell'help di questa funzione ho trovato il codice evidenziato qui di
seguito
> il mio problema è che i dati risiedono in una tabella "dati" nel campo
> "flusso"
>
> tab dati
> cod flusso    flusso
> 0                    -1000
> 1                    +300
> 2                    +400
> 3                    +100
> ' Flussi di cassa positivi per i quattro anni successivi.
> Values(1) = 22000 : Values(2) = 25000
> Values(3) = 28000 : Values(4) = 31000
Qui, invece di questo assegnamento con valori costanti, farai l'assegnamento
sulla base della tua tabella.
Apri un recordset sulla tabella, lo scorri tutto e per l'i-esimo record
assegni un valore all'iesimo componente della matrice.
Poi applichi la funzione
Antonio
la tabella si chiama dati composta dai campi cod flusso e flusso
quello che hai scritto può essere chiaro per un'esperto.
Ho capito la logica, ma non so come applicarla. Potresti scrivermi il codice
grazie
Gugge


title: Rotellina Mouse

author: Anto

text:
Salve a tutti , ma sopratutto a "lau" che ha provato ad aiutarmi ma la mia
ignoranza ha fatto si che il risultato fosse insufficiente.
Mi spiego
ho avuto il link dove trovare la mia risposta, ma era in inglese, allora
molto gentilmente LAU mi ha tradotto la prima parte, ma essendo poco esperto
non sono riuscito a concludere molto.
Pertanto chiunque più esperto mi volesse illuminare  sarà Santificato.
Trascrizione di Ieri
NOTA: per testare il codice in questo articolo, serve anche il codice
> dell'AddressOf
> In Access 97, la rotella del mouse Intelli ha l'effetto di scorrere,
> sfogliare i records. Spesso può essere necessario trovare quanti
> records, in avanti o indietro, l'utente ha spostato usando la rotella.
> Con una funzione da richiamare che funziona ogni volta che viene mossa
> la rotella, possiamo stabilire quando la rotella è attivata, ed ottenere
> il numero di "tick" che la stessa ha fatto.
>
> Salva il file frmMouseWheel.txt sull'hard disk. Poi carica questo file
> di testo come nuova form usando il metodo LoadFromText dalla finestra di
> Debug in un nuovo database.
>
> Chiama
>
Application.LoadFromText(acForm,"frmMouseWheel","F:\website\frmMouseWheel.tx
t")
> dove    "f:\website" è il luogo in cui si trova il file di testo
> contenente il seguente codice sulla mia macchina.
> Metti questo codice in un nuovo modulo e compila e salva tutti i moduli.
>


title: Rotellina Mouse

author: Carlo Costarella

text:
"Anto" <
antoni...@sigmatre.com
> ha scritto nel messaggio
news:tjNra.37755$K35.1...@news2.tin.it...
> Salve a tutti , ma sopratutto a "lau" che ha provato ad aiutarmi ma la mia
> ignoranza ha fatto si che il risultato fosse insufficiente.
>
> Mi spiego
> ho avuto il link dove trovare la mia risposta, ma era in inglese, allora
> molto gentilmente LAU mi ha tradotto la prima parte, ma essendo poco
esperto
> non sono riuscito a concludere molto.
>
> Pertanto chiunque più esperto mi volesse illuminare  sarà Santificato.
>
CUT
in privato (sempre che sia giusto l'indirizzo) ti ho mandato un db completo
con tutto il codice necessario.
Fammi sapere.
Ciao, Carlo


title: Rotellina Mouse

text:
L'ho appena scaricato e dopo pranzo mo lo studio.
Intanto ti ringrazio e che Dio ti Benedica
Antonio
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:Z6Ora.38202$K35.1...@news2.tin.it...



title: Query somma

author: Jupiter

text:
Ciao
ho una tabella in access cosï¿œ composta, e vorrei per ogni record fare la
somma in automatico dei voti, da porre poi come somma totale nell'utlimo
campo di ogni record.
id    nome    cognome   voto1     voto2    voto3    totaleVoti
1     franco  rossi       5         0        1           6
2     lucio   bianchi     6         0        0           6
3     elena   verdi       3         0        4           7
come potrei procedere?
grazie!


title: Query somma

author: CIDI

text:
"Jupiter" <no.thanks.@it> ha scritto nel messaggio
news:Cf47m.36255$1s6....@twister2.libero.it...
> Ciao
>
>
>
> ho una tabella in access cos� composta, e vorrei per ogni record fare la
> somma in automatico dei voti, da porre poi come somma totale nell'utlimo
> campo di ogni record.
>
>
> id    nome    cognome   voto1     voto2    voto3    totaleVoti
> 1     franco  rossi       5         0        1           6
> 2     lucio   bianchi     6         0        0           6
> 3     elena   verdi       3         0        4           7
>
>
>
> come potrei procedere?
vedi:
www.donkarl.com/it?FAQ4.11
ciao
Daniele


title: Query somma

author: Karl Donaubauer

text:
Jupiter wrote:
> ...
> ho una tabella in access cosï¿œ composta, e vorrei per ogni record
> fare la somma in automatico dei voti, da porre poi come somma
> totale nell'utlimo campo di ogni record.
>
> id    nome    cognome   voto1     voto2    voto3    totaleVoti
> 1     franco  rossi       5         0        1           6
> 2     lucio   bianchi     6         0        0           6
> 3     elena   verdi       3         0        4           7
> ...
Per totaleVoti basta un campo calcolato nella query:
totaleVoti: Nz(voto1)+Nz(voto2)+Nz(voto3)
Non sono sicuro se poi parla di una somma incrementale.
In questo caso aggiungi un altro campo calcolato:
SumInc: DSum("Nz(voto1)+Nz(voto2)+Nz(voto3)";"Tabella";"id<=" & id)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: fare riferimento ad Etichetta anzichè ad altro controllo per creare griglia nel report

author: Bruno - S95

text:
Access 2003 / 2010

Ciao, ho utilizzato il seguente codice per creare in automatico nel corpo
report una griglia per tutti i controlli di un record, con altezza riferita
al controllo più alto.
I controlli devono essere trasparenti e senza bordi.
Vorrei fare la stessa cosa per le etichette che si trovano in
SezioneIntestazione di pagina, ma non so come modificare il codice per far
riferimento all'etichetta.
Vorrei un aiutino.
Bruno
----------

Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)

 'Routine che permette la visualizzazione della griglia in report tabulare
Dim ctl As Control
Dim altezza As Double
Dim daMargine As Double
altezza = 0
'Cerco l'altezza massima
For Each ctl In Me.Corpo.Controls
    If ctl.ControlType = acTextBox Then
        If ctl.Height > altezza Then
            altezza = ctl.Height
        End If
    End If
Next ctl
daMargine = 0
'Disegno i rettangoli attorno ad ogni campo
For Each ctl In Me.Corpo.Controls
    If ctl.ControlType = acTextBox Then
        Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B
        daMargine = daMargine + ctl.Width
    End If
Next ctl

End Sub


text:
Bruno - S95 wrote:
> Access 2003 / 2010
>
> Ciao, ho utilizzato il seguente codice per creare in automatico nel
> corpo report una griglia per tutti i controlli di un record, con
> altezza riferita al controllo più alto.
> I controlli devono essere trasparenti e senza bordi.
> Vorrei fare la stessa cosa per le etichette che si trovano in
> SezioneIntestazione di pagina, ma non so come modificare il codice
> per far riferimento all'etichetta.
> ... Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
>
> 'Routine che permette la visualizzazione della griglia in report
> tabulare Dim ctl As Control
> Dim altezza As Double
> Dim daMargine As Double
> altezza = 0
> 'Cerco l'altezza massima
> For Each ctl In Me.Corpo.Controls
>    If ctl.ControlType = acTextBox Then
>        If ctl.Height > altezza Then
>            altezza = ctl.Height
>        End If
>    End If
> Next ctl
> daMargine = 0
> 'Disegno i rettangoli attorno ad ogni campo
> For Each ctl In Me.Corpo.Controls
>    If ctl.ControlType = acTextBox Then
>        Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B
>        daMargine = daMargine + ctl.Width
>    End If
> Next ctl
>
> End Sub

Se capisco bene intendi questo nell'evento Print
dell'intestazione pagina:

Dim ctl As Control
Dim altezza As Double
Dim daMargine As Double

altezza = 0

'Cerco l'altezza massima
For Each ctl In Me.Section(acPageHeader).Controls
    If ctl.ControlType = acLabel Then
        If ctl.Height > altezza Then
            altezza = ctl.Height
        End If
    End If
Next ctl

daMargine = 0

'Disegno i rettangoli attorno ad ogni campo
For Each ctl In Me.Section(acPageHeader).Controls
    If ctl.ControlType = acLabel Then
        Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B
        daMargine = daMargine + ctl.Width
    End If
Next ctl

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


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

Mille grazie per l'aiuto Karl.

Bruno


title: Testbox con solo maiuscole..

author: Alberto

text:
Ancora io,scusate..Avrei bisogno di creare un Testbox che accetti solo
lettere maiuscole,o meglio man mano che inserisco le lettere me le
trasformi in maiuscolo,e non accetti numeri..Conosco la proprietà
vbUppercase che mi trasforma la stringa,ma vorrei sapere se esiste
un'altro metodo!!Thanks!
Inviato da
www.mynewsgate.net


title: Testbox con solo maiuscole..

author: Pablitomf

text:
Alberto ha scritto:

> Inviato da
www.mynewsgate.net
nel formato del campo ci metti il segno > (per i caratteri usa L)
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Testbox con solo maiuscole..

author: ALESSANDRO Baraldi

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:ce3835$3j2$1...@news.newsland.it...
> Alberto ha scritto:
>
> > Ancora io,scusate..Avrei bisogno di creare un Testbox che accetti solo
> > lettere maiuscole,o meglio man mano che inserisco le lettere me le
> > trasformi in maiuscolo,e non accetti numeri..Conosco la proprietą
> > vbUppercase che mi trasforma la stringa,ma vorrei sapere se esiste
> > un'altro metodo!!Thanks!
>
> > Inviato da
www.mynewsgate.net
>
> nel formato del campo ci metti il segno > (per i caratteri usa L)
>
> --
> Pablitomf (Maurizio Facciuti)
MMmmm, io direi che non soddisfa la richiesta mi sembra di capire che
preferirebbe gestire la digitazione.
Su evento Key_Press della TextBox chiama la seguente funzione:
Private Sub Testo0_KeyPress(KeyAscii As Integer)
   KeyAscii = CkDgtWord(KeyAscii)
End Sub
'*************** METTERE IL CODICE IN UN MODULO *************************
Public Function CkDgtWord(KeyAscii As Integer) As Integer
'Verifica se il TASTO PREMUTO č una lettera
'Va inserita nell'EVENTO KEY_PRESS
'65-90(Maiuscole) 97-122(Minuscole)
   CkDgtWord = 30
   If (KeyAscii >= 97 And KeyAscii <= 122) then KeyAscii =KeyAscii -32
   If ((KeyAscii >= 65 And KeyAscii <= 90) ) Then CkDgtWord = KeyAscii
   Select Case KeyAscii
      Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn, vbKeyShift
         CkDgtWord = KeyAscii
      Case vbKeyEscape, vbKeySpace, vbKeyDelete, vbKeyNumlock
         CkDgtWord = KeyAscii
   End Select
End Function
'***************                         FINE CODICE
*************************
Ciao.
@Alex.


title: Periodo partendo dalla settimana e dall'anno

author: pang

text:
Inserendo in numero settimana e l'anno c'è il meodo di farsi ritornare il
periodo.
Esempio:
2nda settimana del 2004
risultato:
05/01/2004
11/01/2004
p.


author: giorgio rancati

text:
"pang" <
pangN...@email.it
> ha scritto nel messaggio
news:EELld.326918$35.15...@news4.tin.it...

si, utilizzando le funzioni DateAdd e Datepert
es..
-----------------
Dim Anno As Integer
Dim Sett As Integer
Dim Dal As Date
Dim Al As Date
Anno = 2004
Sett = 2
Dal = DateAdd("ww", Sett - 1, "1/1/" & Anno)
Al = Dal + (7 - DatePart("w", Dal, vbMonday))
If Sett > 1 Then
   Dal = Dal - (DatePart("w", Dal, vbMonday)) + 1
End If
Debug.Print Dal, Al
-----------------
Risultato
---------------------------
05/01/2004    11/01/2004
----------------------------
Ciao Giorgio


text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:cn83nj$t2g$1...@lacerta.tiscalinet.it...
>
> "pang" <
pangN...@email.it
> ha scritto nel messaggio
> news:EELld.326918$35.15...@news4.tin.it...
[CUT]
Aggiungi solo un controllino per l'ultima settimana dell'anno
-------
If Year(Al) > Anno Then
   Al = "31/12/" & Anno
End If
--------


title: Lampeggio casella testo

author: Rcapoint

text:
Ciao a tutti, volevo sapere se qualcuno di voi poteva indicarmi come fare
lampaggiare una scritta, pensavo di inserire un qualcosa sull'evento timer
ma non ho capito come poter indicare al programma di lampeggiare con la
frequenza che ho impostato nel timer.
grazie anticipatamente.


title: Lampeggio casella testo

author: beppe

text:

Su timer immetti questo
me.nomecasella.forecolor= NOT me.nomecasella.forecolor
me.nomecasella.backcolor= NOT me.nomecasella.backcolor
imposti il testo nero e lo sfondo bianco di partenza e oplaaaa.
Ciao Beppe
--------------------------------
Inviato via
http://usenet.libero.it


title: Lampeggio casella testo

text:
"Rcapoint" <
rcap...@ibanordest.it
> ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Cosě a braccio:
Intervallo Timer = 500
Su Timer:
If Me.TuoControllo.BackColor = 255 Then
Me.TuoControllo.BackColor = 16777215
Else
Me.TuoControllo.BackColor = 255
End If
Ciao, Carlo


title: Lampeggio casella testo

author: Antonio Ganci

text:

Ho creato un'etichetta e poi ho impostato come intervallo timer 500 e
nell'evento timer ho scritto il seguente codice:
Dim visibile As Boolean
Private Sub Form_Timer()
 Me.Scritta.Visible = visibile
 visibile = Not visibile
End Sub
visibile e' una variabile della maschera che viene impostata a vero o falso
per dare l'effetto lampeggiamento alla scritta.
Scritta e' il nome dell'etichetta.
Fammi sapere se funziona.
Saluti, Antonio.


title: Lampeggio casella testo

text:
"Rcapoint" <
rcap...@ibanordest.it
> ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Ovviamente puoi fare lo stesso sul testo:
If Me.TuoControllo.ForeColor = 0 Then
Me.TuoControllo.ForeColor = 255
Else
Me.TuoControllo.ForeColor = 0
End If
Ciao, Carlo


title: Lampeggio casella testo

text:
"Rcapoint" <
rcap...@ibanordest.it
> ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Ringrazio tutti per le risposte date, la soluzione migliore mi è parsa
quella di Carlo Costarella, siete dei grandi.


title: Lampeggio casella testo

author: Maurizio Borrelli

text:
> "Rcapoint" [...]:
> volevo sapere se qualcuno di voi poteva indicarmi come fare
> lampaggiare una scritta, pensavo di inserire un qualcosa sull'evento timer
> ma non ho capito come poter indicare al programma di lampeggiare con la
> frequenza che ho impostato nel timer.
Option Compare Database: Option Explicit
Const mc_lBlinkingSpeed = 550
Private m_bBlinking   As Boolean
Private m_lBackColor  As Long
Private m_lForecolor  As Long
Private Sub Comando1_Click()
  m_bBlinking = Not m_bBlinking
  With Me
    If (m_bBlinking = True) Then
      .TimerInterval = mc_lBlinkingSpeed
    Else
      .TimerInterval = 0
      With .Testo1
        .ForeColor = m_lForecolor
        .BackColor = m_lBackColor
      End With
    End If
  End With
End Sub
Private Sub Form_Load()
  With Me
    .TimerInterval = 0
    With .Testo1
      m_lBackColor = .BackColor
      m_lForecolor = .ForeColor
    End With
  End With
End Sub
Private Sub Form_Timer()
  Dim lTemp As Long
  If (m_bBlinking = True) Then
    With Me.Testo1
      lTemp = .BackColor
      .BackColor = .ForeColor
      .ForeColor = lTemp
    End With
  End If
End Sub
Private Sub Form_Unload( _
  ByRef Cancel As Integer)
  Me.TimerInterval = 0
End Sub
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Protezione DB

author: Giuseppe

text:
Ciao a tutti,
nell'intento di proteggere un archivio realizzato con access , l'ho
convertito in MDE.
Tuttavia così facendo non è possibile entrare in modalità struttura ma
continuano a vedersi le tabelle, le query ecc, proprio quelle che non volevo
si vedessero per eviatre copiature.
C'è qualche soluzione per evitare che si vedano ?
Grazie per l'aiuto
ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Protezione DB

author: Valerio Valentini

text:
"Giuseppe" <
raggiodis...@libero.it
> ha scritto nel messaggio
news:82Z58Z7Z117Y11...@usenet.libero.it...
> Ciao a tutti,
> nell'intento di proteggere un archivio realizzato con access , l'ho
> convertito in MDE.
> Tuttavia così facendo non è possibile entrare in modalità struttura ma
> continuano a vedersi le tabelle, le query ecc, proprio quelle che non
> volevo
> si vedessero per eviatre copiature.
> C'è qualche soluzione per evitare che si vedano ?
>
> Grazie per l'aiuto
> ciao
>
Gli MDE servono perchè non ti possano modificare codice, form, ecc...
Se il tuo problema è solo che non vedano tabelle, basta che gli metti la
proprietà nascoste, ma se parli di sicurezza dei dati allora:
www.sitocomune.com
 sezione general 6.3
http://www.donkarl.com/it/
 sezione 1.18
Ciao Valerio.


title: Protezione DB

text:
Il 05 Lug 2006, 08:01, "Valerio Valentini" <
val...@accessgroup.it
> ha
scritto:

Ciao Valerio,
ti ringrazio per le info tutto ok. Ho risolto alla grande il mio problema
grazie a te.
Dopo aver messo la proprietà nascosta, la tabella non è più visibile; il
processo è reversibile ? Come ?
Ti ringrazio
ciao
giuseppe



title: Protezione DB

author: MA

text:

Non puoi + vederle.
Mai più!!!
...
scherzo. Vai nelle
opzioni e seleziona visualiiza oggetti nascosti e di sistema
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: automazione word errore 426

author: ciroteo

text:
Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
pigliare.
Il seguente codice è un riadattamento di una routine che mi ha sempre
funzionato.
Ho semplicemente inserito un recordset.
A volte sul click mi si blocca e mi restituisce un messaggio di errore n.426
"il computer o server remoto non esiste"
e mi lascia nel taskmanager un'istanza di word da 18 mega che devo
manualmente interrompere.
Se non ho capito male dovrei aver usato il late binding, ma i riferimenti
word ci sono lo stesso.
Private Sub Comando69_Click()
    Dim wordApp As Object, wordDoc As Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
    Dim percorso As String, nprot As String
    Dim fileexist As String, template1 As String, template As String
    nprot = Me![nprotocollo]
    percorso = "j:\protocollomaster\1\" & nprot & ".doc"
    fileexist = nprot & ".doc"
    template1 = DLookup("[nomefile]", "modelli", "[IDmodello] =" &
Me.modello)
    template = "j:\protocollomaster\" & template1
    Dim MyFile, MyPath, MyName
    MyFile = Dir(percorso)
    If MyFile = fileexist Then
    MsgBox ("Il documento è già presente")
    Me![Comando69].HyperlinkAddress = percorso
    ElseIf MyFile <> file Then
    If MsgBox("Il documento non è presente " & Chr(10) & "verrà creato
ora.", 276, "Attenzione") = vbYes Then
    On Error GoTo gestErrori
    If Err.Number = 429 Then
    Set wordApp = GetObject(, "Word.Application")
    blOpen = False
    Err.Number = 0
    End If
    If IsNull(Me.oggetto) Then
    MsgBox "Attento all'oggetto", vbCritical, "oggetto mancante"
    Me.oggetto.SetFocus
    Else
    Dim Rst As DAO.Recordset
    Dim Record As String, SQL As String
    Dim Tbl As String * 1, Tbl1 As String * 1
    SQL = "SELECT * FROM tbl_dettaglio_uscita WHERE IDprotocollo=" &
Me.Idprotocollo & " ;"
    Set Rst = CurrentDb.OpenRecordset(SQL)
'    If Not Rst.BOF Then 'se il recordset non è vuoto
            Tbl = vbCrLf
'
        With Rst
            Totale = 0 '
            .MoveLast
            .MoveFirst
            While Not .EOF
           Record = Record & Tbl & !destinatario1 & Tbl & _
                    !ufficio & " " & vbCrLf & !referente_ufficio & Tbl & _
                     vbCrLf & !via & "," & !civico & " " & vbCrLf & _
                      vbCrLf & "fax. " & !fax & vbCrLf & _
                    !cap & " " & !citta & " (" & !provincia & ")" & vbCrLf
            .MoveNext
            Wend
        End With
        Rst.Close: Set Rst = Nothing
    Set wordApp = CreateObject("Word.Application")
    Set wordDoc = wordApp.Documents.Add(template)
    With wordDoc
        .Bookmarks("mittente").Select
        wordApp.Selection.Text = Me![mittente]
        wordApp.Selection.Range.Font.Bold = False
        .Bookmarks("destinatario").Select
        wordApp.Selection.Text = Me![destinatario] & vbCrLf &
Me![referente_ufficio] & " " & vbCrLf & "Fax:" & Me![fax] _
        & vbCrLf & Me![via] & ", " & Me![civico] & vbCrLf & Me![cap] & " - "
& Me![citta] & " - " & "(" & Me![provincia] & ")"
        With wordApp.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(10#)
        End With
        .Bookmarks("nprotocollo").Select
        wordApp.Selection.Text = nprotocollo
        .Bookmarks("oggetto").Select
        wordApp.Selection.Text = oggetto
        .Bookmarks("datadoc").Select
        wordApp.Selection.Text = Format(datadoc, "dd.mm.yyyy")
        wordApp.Selection.Range.Font.Bold = False
        .Bookmarks("record").Select
        wordApp.Selection.Text = Record
        With wordApp.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(10#)
        End With
        wordApp.Visible = True
        wordApp.Activate
        .SaveAs FileName:=percorso
    End With
    wordApp.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
    End If
    If Not blOpen Then
    wordDoc.Close savechanges:=True
    wordApp.Application.Quit
    End If
    End If
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
    End If
End Sub
--
ciroteo
MC
http://www.marco5x.net/usenet/index.html
http://www.freewebz.com/iosononiubbo/iosononiubbo.htm#quotare


title: automazione word errore 426

author: namor

text:
ciroteo ha scritto:
> Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
> pigliare.
> Il seguente codice è un riadattamento di una routine che mi ha sempre
> funzionato.
> Ho semplicemente inserito un recordset.
> A volte sul click mi si blocca e mi restituisce un messaggio di errore n.426
> "il computer o server remoto non esiste"
[CUT]
Togli 'On Error ...' e vedi su che riga si ferma.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: automazione word errore 426

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:d71d8v$m1i$1...@news.newsland.it...
> ciroteo ha scritto:
>
>> Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
>> pigliare.
>> Il seguente codice è un riadattamento di una routine che mi ha sempre
>> funzionato.
>> Ho semplicemente inserito un recordset.
>> A volte sul click mi si blocca e mi restituisce un messaggio di errore
>> n.426
>> "il computer o server remoto non esiste"
>
> [CUT]
>
> Togli 'On Error ...' e vedi su che riga si ferma.
> Namor
>
totale = 0 ...
come vedi è il tuo esempio riadattato ... ;-)



title: automazione word errore 426

author: Alessandro Baraldi

text:
ciroteo ha scritto:
> Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
> pigliare.
> Il seguente codice è un riadattamento di una routine che mi ha sempre
> funzionato.
> Ho semplicemente inserito un recordset.
> A volte sul click mi si blocca e mi restituisce un messaggio di errore n.426
> "il computer o server remoto non esiste"
> e mi lascia nel taskmanager un'istanza di word da 18 mega che devo
> manualmente interrompere.
> Se non ho capito male dovrei aver usato il late binding, ma i riferimenti
> word ci sono lo stesso.
> Private Sub Comando69_Click()
>     Dim wordApp As Object, wordDoc As Object
>     Dim blOpen As Boolean
>     On Error Resume Next
>     blOpen = True
>     Dim percorso As String, nprot As String
>     Dim fileexist As String, template1 As String, template As String
>     nprot = Me![nprotocollo]
>     percorso = "j:protocollomaster1" & nprot & ".doc"





>             Tbl = vbCrLf

>             While Not .EOF

>             .MoveNext
>             Wend
>         End With



>     End If



> End Sub
Cosa sarebbe Totale....???
Sbaglio o non è dichiarata...???
Se può esserti utile, visto che usi Bookmarks OMONIMI
dei Controlli puoi semplificare con questa routine da riadattare
alle tue esigenze, serve per evitare di scrivere tante righe
quanti sono i Bookmarks, nel mio caso anche il nome CAMPO di
origine è "casualmente" OMONIMO e con queste 8 righe semplifico
tutto:
For Each fld In Me.RecordsetClone.Fields
      If Me.Controls(fld.Name).TAG <> "EXCLUDE" Then
         If Not IsNothing(Me.Controls(fld.Name).Value) Then
            If wordDoc.Bookmarks.Exists(fld.Name) Then
               wordDoc.Bookmarks(fld.Name).Select
               wordApp.Selection.TypeText Text:=Me.Controls(fld.Name).Value
            End If
         End If
      End If
   Next
Ciao
@Alex
--



title: automazione word errore 426

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:d71kf4$p1l$1...@news.newsland.it...

eheh ... il solito colpetto di fino ... grazie alex proverò questa tua
soluzione.


title: automazione word errore 426

text:
ciroteo ha scritto:
> >> Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
> >> pigliare.
> >> Il seguente codice è un riadattamento di una routine che mi ha sempre
> >> funzionato.
> >> Ho semplicemente inserito un recordset.
> >> A volte sul click mi si blocca e mi restituisce un messaggio di errore
> >> n.426
> >> "il computer o server remoto non esiste"
> >
> > [CUT]
> >
> > Togli 'On Error ...' e vedi su che riga si ferma.
> > Namor
> >
> totale = 0 ...
> come vedi è il tuo esempio riadattato ... ;-)
E che te ne fai di quel totale? La variabile non è dichiarata e non è
usata in nessun altro posto. Che sia un residuo di precedenti versioni
della sub?
Dal tipo di errore sembrerebbe un oggetto, più che una variabile.
Prova anche a cambiare il nome, totale è così generico che potrebbe
collidere con qualche parola riservata. Prova SpesaTotale, TotaleGiorni,
ecc...
Ciao.
Namor



title: automazione word errore 426

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:d7237d$131$1...@news.newsland.it...
> ciroteo ha scritto:
>
> > >> Ciao a tutti, scusate la lunghezza del post ma non so più che pesci
> > >> pigliare.
> > >> Il seguente codice è un riadattamento di una routine che mi ha sempre
> > >> funzionato.
> > >> Ho semplicemente inserito un recordset.
> > >> A volte sul click mi si blocca e mi restituisce un messaggio di
errore
> > >> n.426
> > >> "il computer o server remoto non esiste"
> > >
> > > [CUT]
> > >
> > > Togli 'On Error ...' e vedi su che riga si ferma.
> > > Namor
> > >
>
> > totale = 0 ...
> > come vedi è il tuo esempio riadattato ... ;-)
>
> E che te ne fai di quel totale? La variabile non è dichiarata e non è
> usata in nessun altro posto. Che sia un residuo di precedenti versioni
> della sub?
> Dal tipo di errore sembrerebbe un oggetto, più che una variabile.
> Prova anche a cambiare il nome, totale è così generico che potrebbe
> collidere con qualche parola riservata. Prova SpesaTotale, TotaleGiorni,
> ecc...
> Ciao.
> Namor
>
non hai capito, era il rimasuglio di una tua versione riadattata ...
risolto! Grazie ancora.
p.s. come è possibile sapere a cosa corrisponde l'errore numero tal dei
tali?


title: automazione word errore 426

text:
Prova questo:
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/bc8fe597aa10eafe
Namor


title: automazione word errore 426

text:
<
na...@inwind.it
> ha scritto nel messaggio
news:1117096580.8...@f14g2000cwb.googlegroups.com...
>
> Prova questo:
>
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/bc8fe597aa10eafe
> Namor
>
grazie ottimo link ... avrei potuto cercare io ... ma questo caldo mi
impigrisce ! ;-)


title: Colore casella di testo "SuFormattazione" corpo di un record

author: andreab

text:
Salute a tutti.
Sto facendo alcune prove per vedere se riesco a impostare il colore di
sfondo di una casella di testo sulla conferma di un valore della query
usata come origine. Il tutto funziona se imposto il colore come
Reports!NomeReports!NomeControllo.[backcolor]= "255" mentre invece se
metto (per esempio) "#009900" (corrisponde secondo la scala
esadecimale al verde) il colore non viene applicato e il codice VBA si
blocca...
Qualcuno cortesemente riesce a darmi una mano?
Grazie anticipatamente.


author: almorel

text:

Ciao,
Ma perchè tratti il Backcolor come una stringa ? Se vedi l'help è un
tipo Long.
Poi se ricordo bene l'esadecimale non si indica con &H ?
Ciao
Alberto


text:

Come vedi Alberto...non è che mi intenda molto!
Diciamo che tratto il backolor così perch' tipicamente uso stringhe ma
evidentemente in questo caso non va bene...
Mi potresti cortesmente indicare come fare per ottenere il risultato
che vorrei ottenere?
Grazie!


text:

Ciao,
prova con &H009900 o con altri numeri, ma senza le virgolette.
Puoi anche usare le costanti VB, es VbGreen, VbRed, VbYellow ed altri.
Vedi l'help.
Ciao
Alberto


text:
....
> Come vedi Alberto...non è che mi intenda molto!
>
> Diciamo che tratto il backolor così perch' tipicamente uso stringhe ma
> evidentemente in questo caso non va bene...
Vabbè io tipicamente ho a che fare con tensioni di Media ed Alta ma
non giro dando scosse a tutti...!
ESISTE L'HELP PER QUESTE COSE SI DEVE LEGGERE...!!!
> Mi potresti cortesmente indicare come fare per ottenere il risultato
> che vorrei ottenere?
>
> Grazie!
Prego.
@Alex


text:
Prendi la mia risposta a livello di battuta, ovvero, se tutti
leggessero l'help i forum non esisterebbero!
Cmq, scherzi a parte, ho provato a leggere l'help ma non ho trovato
quanto mi serviva per risolvere il mio problema, altrimenti non sarei
qui, non avrei chiesto aiuto, mi sarei arrangiato da solo :-D
Se magari al di la di tutto puoi darmi un suggerimento ti ringrazio
(non ho ancora risolto pienamente l'arcano...).
Salute.



author: Geppo

text:
Ciao andreab wrote:
> Prendi la mia risposta a livello di battuta, ovvero, se tutti
> leggessero l'help i forum non esisterebbero!
>
> Cmq, scherzi a parte, ho provato a leggere l'help ma non ho trovato
> quanto mi serviva per risolvere il mio problema, altrimenti non sarei
> qui, non avrei chiesto aiuto, mi sarei arrangiato da solo :-D
>
> Se magari al di la di tutto puoi darmi un suggerimento ti ringrazio
> (non ho ancora risolto pienamente l'arcano...).
cioč? Hai seguito le indicazione di Alberto?
Se non lo hai fatto........ allora ci vuoi fare proprio incavolareeeeee?
:-)
--
Ciao
Geppo


text:
Ci
On 19 Apr, 18:49, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao andreab wrote:
> > Prendi la mia risposta a livello di battuta, ovvero, se tutti
> > leggessero l'help i forum non esisterebbero!
>
> > Cmq, scherzi a parte, ho provato a leggere l'help ma non ho trovato
> > quanto mi serviva per risolvere il mio problema, altrimenti non sarei
> > qui, non avrei chiesto aiuto, mi sarei arrangiato da solo :-D
>
> > Se magari al di la di tutto puoi darmi un suggerimento ti ringrazio
> > (non ho ancora risolto pienamente l'arcano...).
>
> cioè? Hai seguito le indicazione di Alberto?
>
> Se non lo hai fatto........ allora ci vuoi fare proprio incavolareeeeee?
> :-)
>
> --
> Ciao
> Geppo
Figurati se vi voglio far incavolare!! E dopo a me chi mi risolve i
problemi??!!!! :-DD
Dicevo, che si, ho provato a seguire i suggerimenti dati, ma il
problema a questo punto non risiede tanto nel fatto che non riesco a
"colorare" le caselle di testo, ma non riesco a colorarle come voglio,
dato che alcuni indicazioni tipo #009900 funzionano altre no...
E pensare che a me basterebbero 4 colori: 3 tinte graduate di verde e
una rossa...
Posso dire che ho trovato delle combinaizioni di colori abbastanza
soddisfacenti, ma rimane il fatto che non sono riuscito a fare
esattamente quello che mi serve.
Chiudo dicendo che la cosa potrebbe terminare qui, visto che siamo a
livello di didattica ;-) , ma non prima di avervi ringraziato tutti
per avermi risposto.


text:
Ciao andreab wrote:
---cut---
> Figurati se vi voglio far incavolare!! E dopo a me chi mi risolve i
> problemi??!!!! :-DD
>
> Dicevo, che si, ho provato a seguire i suggerimenti dati, ma il
> problema a questo punto non risiede tanto nel fatto che non riesco a
> "colorare" le caselle di testo, ma non riesco a colorarle come voglio,
> dato che alcuni indicazioni tipo #009900 funzionano altre no...
>
> E pensare che a me basterebbero 4 colori: 3 tinte graduate di verde e
> una rossa...
>
> Posso dire che ho trovato delle combinaizioni di colori abbastanza
> soddisfacenti, ma rimane il fatto che non sono riuscito a fare
> esattamente quello che mi serve.
se ti puo' essere di aiuto puoi scaricare "getcolor", un software che
partendo da un colore, magari presente sul desktop, ti restituisce il
relativo codice.
Lo puoi scaricare qui:
http://www.wincatalog.com/download/getcolor10.zip
> Chiudo dicendo che la cosa potrebbe terminare qui, visto che siamo a
> livello di didattica ;-) , ma non prima di avervi ringraziato tutti
> per avermi risposto.
--
Ciao
Geppo


title: Re: Dati da Tabella Excel

author: Karl Donaubauer

text:
Salve,

Gabriapuglisi ha scritto:
> Salve, usando VBA è possibile collegarsi con una tabella Excel?
> per esempio usando ADO e connettersi ad un Db Esterno...(appunto un foglio Excel?)
> ...Non l'ho mai fatto, ma prima di metterci mano vorrei sapere se questa strada è percorribile.
>

ADO non serve ma si puo "connettere" ad una tabella Excel in diversi
modi, p.e. come tabella collegata, con una query/SQL o con automazione.

Dipende cosa vuoi ottenere.

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

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


title: Re: Dati da Tabella Excel

text:
Ciao Karl
Grazie per la risposta.
Mi serve un'importazione automatizzata dei dati da excell, da far fare di tanto in tanto. Dati da accodare a due tabelle:
Anagrafica e DettagliClienti.
Non solo, un'altro problema è che le RIGHE di excell saranno CAMPI sulle tabelle access.
Es.
Mentre l'utente scrive su excell
NOME
COGNOME
INDIRIZZO
Ovviamente sulla tabella anagrafica sarà un record.
Per questo pensavo a soluzioni da Vba ma non so come interagire con le celle.
Ciao Grazie


title: Re: Dati da Tabella Excel

text:
Salve,

Gabriapuglisi ha scritto:
> ...

Dipende delle strutture esatte, soprattutto se si cambiano, ma hai già
provato di collegare il foglio di Excel come tabella in Access?

Una volta collegato è quasi come una tabella di Access anche se non
normalizzata, con delle righe "inutili" ecc. Poi sarebbe più facile di
tirare fuori o trasporre i dati con delle query o con codice VBA. Fatto
mille volte così.



title: Re: Dati da Tabella Excel

author: GiorgioDaPrato

text:

SE comunque DEVI "mettere mano" al foglio Excel
può essere conveniente renderlo, manualmente,
più idoneo alla importazione (automatica) in Access

Da quel che si vede,
oltre a togliere righe vuote (cosa che si può fare anche in Access)
SE la scrittura dati è uniforme,
aggiungerei una colonna (intestazione a piacere)
le cui righe si riempiono,
con una serie di copia-incolla,
con la diciture
 NOME
 COGNOME
INDIRIZZO
(rispettando la corrispondenza dei dati scritti)
e infine occorre dare un nome alla zona dati comprese le intestazioni.

POI
importazione in una tabella di Access di questa zona dati,
con le intestazioni che diventano i nomi di campo,
E confermando la generazione automatica ID riga
(che "dovrebbe forzare" a mantenere la sequenza delle righe di Excel)

POI
query a campi incrociati che genera la tabella definitiva
con i campi  NOME COGNOME INDIRIZZO
(pivot sulla loro intestazione in Excel)

se la query a campi incrociati
non viene confermata come query di creazione tabella,
due passaggi ...


title: Re: Dati da Tabella Excel

text:

Ciao Karl.
Ho collegato il foglio Excel come mi hai consigliato. tutto ok
Per la trasformazione da RIGHE a CAMPI ho risolto con la registrazione di Una Macro su Excel.
E poi per dialogare via VBA col foglio ho creato una query Fila come l'olio! :-)
Il fine era automatizzare tutto con due clic per l'utente.
Ps. Giorni fa ti ho scritto nella mail del tuo sito.
Hai letto?...


title: Re: Dati da Tabella Excel

text:
Il giorno martedì 14 maggio 2019 10:13:08 UTC+2, GiorgioDaPrato ha scritto:
> Il giorno martedì 14 maggio 2019 06:38:18 UTC+2,
gabria...@gmail.com
 ha scritto:
> > Ciao Karl
> > Grazie per la risposta.
> > Mi serve un'importazione automatizzata dei dati da excell, da far fare di tanto in tanto. Dati da accodare a due tabelle:
> > Anagrafica e DettagliClienti.
> > Non solo, un'altro problema è che le RIGHE di excell saranno CAMPI sulle tabelle access.
> > Es.
> > Mentre l'utente scrive su excell
> > NOME
> > COGNOME
> > INDIRIZZO
> > Ovviamente sulla tabella anagrafica sarà un record.
> > Per questo pensavo a soluzioni da Vba ma non so come interagire con le celle.

Ciao, grazie . Ho risolto (come già scritto a Carlo)
Ma ti rispondo passo passo:
> SE comunque DEVI "mettere mano" al foglio Excel
> può essere conveniente renderlo, manualmente,
> più idoneo alla importazione (automatica) in Access
--------------
    Si , anziché manuale, essendo che dovrebbe farlo l'utente (solitamente poco pratico), ho risolto con una Macro excel.
-------------
> Da quel che si vede,
> oltre a togliere righe vuote (cosa che si può fare anche in Access)
> SE la scrittura dati è uniforme,
> aggiungerei una colonna (intestazione a piacere)
> le cui righe si riempiono,
> con una serie di copia-incolla,
> con la diciture
>  NOME
>  COGNOME
> INDIRIZZO
> (rispettando la corrispondenza dei dati scritti)
> e infine occorre dare un nome alla zona dati comprese le intestazioni.
-------------
questa del NOME DELLA ZONA, comprese le intestazioni non l'ho capita...
a cosa serve il nome alla zona? e come la riconosce poi Access?....
------------
> POI
> importazione in una tabella di Access di questa zona dati,
> con le intestazioni che diventano i nomi di campo,
> E confermando la generazione automatica ID riga
> (che "dovrebbe forzare" a mantenere la sequenza delle righe di Excel)
-------------
La sequenza di righe per fortuna non importa. E' un record solo ogni volta. Molti dati ma un solo recor
-------------
> POI
> query a campi incrociati che genera la tabella definitiva
> con i campi  NOME COGNOME INDIRIZZO
> (pivot sulla loro intestazione in Excel)
---------
in questi giorni ho provato a usare qry a campi incrociati per altri scopi
ma non ho capito perchè deve PER FORZA volere un campo Somma... per forza la procedura guidata vuole campi da elaborare, quando invece a me, (come anche in questo caso) servirebbe solo un inversione di Righe/Campi.

in ogni caso..... grazie !
Hai un risposta per quest'ultimo quesito?...


title: Re: Dati da Tabella Excel

text:
Gabriapuglisi ha scritto:
> ... Ps. Giorni fa ti ho scritto nella mail del tuo sito...

Quindi non hai letto cosa scrivo direttamente sotto l'indirizzo mail sul
sito, soprattutto quello in grassetto. ;-)



title: Re: Dati da Tabella Excel

text:
No. Ci son tornato per leggere il grassetto e non ricordo più dove l'avevo trovata... :-)
Cmq la domanda era 'scottante'. Ed era relativa ad un tuo articolo: l'opzione /decompila/....


title: Re: Dati da Tabella Excel

text:
> -------------
> questa del NOME DELLA ZONA, comprese le intestazioni non l'ho capita...
> a cosa serve il nome alla zona? e come la riconosce poi Access?....
> ------------
ZONA=INTERVALLO DATI

dare un nome alla zona (intervallo tabellare) che contiene i dati
COMPRESA la riga delle intestazioni
(Formule--> definisci nome)
permette ad Access, con l'importazione (automatica) da Excel
di "riconoscere la tabella dati" (nomi campo=intestazioni)

se fai una prova di importazione vedrai che Access propone la scelta
fra foglio dati e intervallo definito di dati ("la zona")
e poi procede spedito ...

> ---------
> in questi giorni ho provato a usare qry a campi incrociati per altri scopi
> ma non ho capito perchè deve PER FORZA volere un campo Somma... per forza la >procedura guidata vuole campi da elaborare, quando invece a me, (come anche in >questo caso) servirebbe solo un inversione di Righe/Campi.

Somma è una delle opzioni di elaborazione di sintesi dati (-->Valore)
disponibili DOPO aver definito il raggruppamento degli stessi
(-->Righe, Colonne)
e ovviamente riguarda solo dati numerici.

Per "tirar su" un valore (di sintesi) NON numerico
si può scegliere una fra le altre opzioni di elaborazione:
Primo (il più appropriato ?)
ma vanno bene anche:
Minimo, Massimo,
Ultimo (il MENO soddisfacente ?)

Queste quattro opzioni confrontano qualsiasi tipo di dato
(numerico, non numerico)


title: Scadenziario

author: RobertOne

text:
Salve a tutto il n.g.
Sono alle prime armi con Access e se gentilmente c'è qualcuno che può darmi
una dritta, vorrei avere un consiglio per costruire uno scadenziario
fornitorii.
Vorrei immettere tutta l'anagrafica dei fornitorii e poi le relative fatture
e soprattutto la possibilità di immettere più acconti per ogni fornitura nel
caso ci sia un pagamento dilazionato. Questo in sintesi.
Grazie per l'attenzione e soprattutto per l'aiuto che vorrete darmi.
Rob.


title: Casella combinata

author: Enea

text:
Come posso fare in modo che nella mia casella combinata compaiano, in uno
dei campi numerici, 5 cifre dopo la virgola e non due?
Grassie...


title: Casella combinata

author: Antonio Biso

text:
"Enea" <
tecnos...@virgilio.it
> ha scritto nel messaggio
news:uBnqb.422498$R32.14...@news2.tin.it...
> Come posso fare in modo che nella mia casella combinata compaiano, in uno
> dei campi numerici, 5 cifre dopo la virgola e non due?
Vedi la funzione format
Antonio


title: Casella combinata

text:
...dunque la casella combinata prende i dati da una query, nella query già è
impostato nel campo in questione un valore standard 1.234,00 con 5 cifre
decimali. Tutti i campi dei tutte le tabelle e di tutte le query son
impostati così, ma quando apro l'elenco della casella combinata li il valore
e con solo due cifre...


title: Casella combinata

author: Gabriele Bertolucci

text:

Devi controllare anche il formato con cui i dati vengono visualizzati
all'interno della combo. Vai a vedere tra le sue proprietà ed imposta il
formato nello stesso modo che hai utilizzato nella definizione dei campi
delle tabelle.
--
Gabriele Bertolucci
PBsoft
www.pbsoft.it


title: Casella combinata

text:
"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:K9sqb.101611$e5.37...@news1.tin.it...
Gabriele, stai rispondendo a tutta una serie di post che violano le norme di
comportamento del NG.
Ti chiedo cortesemente di evitarlo.
Grazie
Antonio


title: Casella combinata

text:
> Gabriele, stai rispondendo a tutta una serie di post che violano le norme
di
> comportamento del NG.
> Ti chiedo cortesemente di evitarlo.
Potrei sapere cosa c'à di sbagliato nel modo in cui io rispondo? Puoi essere
più preciso così posso evitare gli errori che sto facendo?
Grazie per l'aiuto :-)



title: Casella combinata

text:
"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:9UPrb.2010$hV.6...@news2.tin.it...
> > Gabriele, stai rispondendo a tutta una serie di post che violano le
norme
> di
> > comportamento del NG.
> > Ti chiedo cortesemente di evitarlo.
>
> Potrei sapere cosa c'à di sbagliato nel modo in cui io rispondo? Puoi
essere
> più preciso così posso evitare gli errori che sto facendo?
Il tuo modo di rispondere non è affatto sbagliato!!!
Oserei dire che è praticamente da manuale.
Solo che hai risposto a persone che non scrivono DOPO il quoting, non
mettono un subject significativo, quando replicano cancellano tutto il
quoting e così via.
L'unico modo per scoraggiare queste cattive abitudini è non rispondere.
Se vogliono essere aiutati, devono rispettare le norme che ci siamo
autoimposti!!!
Tutto qui...
Antonio


title: creare un controllo su una casella contente un codice

author: Susanna

text:
cerchero' di essere il piu' chiaro possibile in una maschera ho tre caselle
che mi creano un codice un altra casella, i valori di questo codice possono
avere dei dupplicati, mi servervirebbe creare un controllo che mi dicesse ke
ho inserito un duplicato per poi verificare una altra serie di cose. e'
possibile tutto cio'?come faccio?
grazie 1000


author: 'Roccia' Max

text:


Possibile e' possibile, ma non ho capito di preciso cosa intendi
fare... magari con un esempio?
A spanne: nell'evento afterupdate di ciascuna casella metti la routine
per creare il codice, dopodiche' cerchi i duplicati utilizzando la
funzione dlookup e se e' tutto a posto lo copi nella casella di testo
del codice.
cia'
Max


author: Sergio MAZZA

text:
"Susanna" <
geom.b...@geo-sit.it
> ha scritto nel messaggio
news:f70c0o$iu4$1...@newsread.albacom.net...

Riprovi ad essere più chiaro...
> grazie 1000
Ciao.
--
Sergio MAZZA


text:
proviamo cosi' io ho tre caselle che chiamero'  1 2 3 dove vado a immetere
dei valori ad sempio:
casella 1 ->  A
casella 2 -> B
casella 3 -> C
poi ho una casella 4 dove mi viene cosi' compilato un codice in automatico
riportando di seguito i tre valori scritti in 1 2 3, il risultato e' questo
ABC
io vorrei un controllo ke mi andasse a cercare i dublicati contenuti nel
medesimo campo e che una volta trovatone uno mi apparisse un messaggio che
mi dicesse ' attenzione valore gia' presente'
cosi' e meglio?


text:
"Susanna" <
geom.b...@geo-sit.it
> ha scritto nel messaggio news:f72p0a$fti$1...@newsread.albacom.net...

Un'anticchia meglio.
Non ho capito in quale casella vuoi il controllo o se lo vuoi prima di scrivere il record in tabella; provo col controllo nella
casella di testo.
Puoi utilizzare l'evento "su uscita" della casella di testo (quella o quelle che vuoi controllare) ed inserire:
'---
If not isnull(me!casella1) then
    if DCount("*","nomeTabella","nomeCampoCasella1='" & me!casella1 & "'")>0 then
        msgbox me!casella1 & ", risulta già inserito."
        cancel=true
    end if
end if
'---
Ciao.
--
Sergio MAZZA


text:
grazie funzione prorprio come volevo io fantastico!!!!
ciao


text:
un' altra cosa ci sarebbe un modo per cambiare le impostazioni del messaggio
che esce ad esempio cambiare la voce in alto, dove appare microsost access,
tipo con scritto attenzione
"Susanna" <
geom.b...@geo-sit.it
> ha scritto nel messaggio
news:f74i30$5n0$1...@newsread.albacom.net...



text:

Quello è il tiolo
nel msgbox hai
messaggio, tipodiiconcina e pulsanti vari, titolo...
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


text:
nel msgbox il messeggio e' giusto e solo il titolo nella parte azzurra in
alto del pulsante ke correi cambiare, ora mi viene fuori scritto microsof
access, poi ho il msgbox giusto ke riporta-  msgbox me!codicecatasto & ",
particella già inserita." e il pulsante ok da cliccare, vorrei solo
modificare l'intestazione anziche' microsoft access, mi piacerebbe ci
venisse scritto attenzione
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f74q6r$fp5$1...@tdi.cu.mi.it...



text:
Susanna wrote:
> nel msgbox il messeggio e' giusto e solo il titolo nella parte
> azzurra in alto del pulsante ke correi cambiare, ora mi viene fuori
> scritto microsof access, poi ho il msgbox giusto ke riporta-  msgbox
> me!codicecatasto & ", particella già inserita." e il pulsante ok da
> cliccare, vorrei solo modificare l'intestazione anziche' microsoft
> access, mi piacerebbe ci venisse scritto attenzione
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:f74q6r$fp5$1...@tdi.cu.mi.it...
> Susanna wrote:
>> un' altra cosa ci sarebbe un modo per cambiare le impostazioni del
>> messaggio che esce ad esempio cambiare la voce in alto, dove appare
>> microsost access, tipo con scritto attenzione
>>
>>
>> "Susanna" <
geom.b...@geo-sit.it
> ha scritto nel messaggio
>> news:f74i30$5n0$1...@newsread.albacom.net...
>>> grazie funzione prorprio come volevo io fantastico!!!!
>>>
>>> ciao
> Quello è il tiolo
> nel msgbox hai
> messaggio, tipodiiconcina e pulsanti vari, titolo...
>
>
> --
msgbox "Tuomessaggio", vbcritical, "Attenzione"



text:
"Susanna" <
geom.b...@geo-sit.it
> ha scritto nel messaggio
news:f74s9k$9dg$1...@newsread.albacom.net...
> nel msgbox il messeggio e' giusto e solo il titolo nella parte azzurra in
> alto del pulsante ke correi cambiare, ora mi viene fuori scritto microsof
> access, poi ho il msgbox giusto ke riporta-  msgbox me!codicecatasto & ",
> particella già inserita." e il pulsante ok da cliccare, vorrei solo
> modificare l'intestazione anziche' microsoft access, mi piacerebbe ci
> venisse scritto attenzione
Per favore scrivi la risposta in coda al testo del messaggio precedente;
come sto' facendo io, grazie.
www.sitocomune.com
 - Sezione ICAA - Come comportarsi in questo NG.
MAssimiliano ti ha indicato il come personalizzare la finestra della MsgBox;
considera che puoi scegliere:
- il testo da visualizzare
- l'icona, quali bottoni e quale dev'essere selezionato di default
- il titolo della finestra
Nell'help del VBA trovi tutto...
Ciao.
--
Sergio MAZZA


text: come al solito siete molto piu' ke esaurienti, grazie grazie e grazie ancora


title: Aahhh! Il sito comune carica solo i frame esterni! A chi chiedo più?

text:
Mi succede questa cosa strana: dipende solo dal mio macinino o cosa?
Ma visto che ci troviamo, vorrei chiedere come impostare questa faccenda:
1) TabellaAnagrafica;
2) TabellaPezzi;
3) mediante QueryPezzi riesco a contare il totale dei pezzi lavorati da ogni
utente giorno per giorno;
4) vorrei inserire questo dato in MascheraAnagrafica: sono riuscito a farlo
solo tramite una sottomaschera, ma non mi sembra una maniera elegante, dato
che mi interessa solo il dato finale della query. Come associo
QueryPezzi.Totale alla casella di testo in MascheraAnagrafica, dato che
l'operazione tramite il generatore di espressioni mi restituisce sempre
#Nome?
Grazie
Stefano


title: problema con combo

author: ferplus

text:
Alla pressione di un tasto faccio apparire una maschera la queale
contiene
una casella combinata(combo1).
seleziono un articolo (es:F1) nella casella combinata, e su invio
vado a inserire quel dato in un'altra maschera (visualizzazione continue)
dovrei inserire un controllo
che
mi vada a controllare se quell' articolo (F1) esiste gia nella maschera
(maschere continue),
 Come posso fare??
io ho provato a fare questo ma non funziona:
prima aggiornamento combo1
If IsNull(DLookup ("[numeroRelazione]", "query", "numeroRelazione=" _
& Chr$(34) & Me!Combo1 & Chr$(34))) Then
    ' spara il dato nella maschera
Else
MsgBox "già esiste"
End if
--
ciao


title: problema con combo

text:
                             rettifica
> io ho provato a fare questo ma non funziona:
> prima aggiornamento combo1
> If IsNull(DLookup ("[articolo]", "query", "articolo=" _



title: problema con combo

author: Alessandro Cara

text:

L'unica cosa che mi viene in mente e' che il valore che passi
(me.combo1)
non e' su "query" (verifica col debug cosa passi e poi verifica su
"query")
poiche' la cosa che fai e' teoricamente giusta
--
a.cara


title: Re: Lista font installate

text:
"Mavic" <
assis...@dgelettroinformatica.it
> wrote in message
news:3Pc0e.27260$
zZ1.7...@twister1.libero.it
> Salve,
>
> potreste indicarmi un modo per riempire una combo con la lista dei font
> installati nel sistema e delle relative dimensioni disponibili ?
>
>
> Grazie.
Scaricati il demo nel mio sito alla sezione [FORMS]
FAQ 1.2  Resize List/Combo_Box.
http://www.mantuanet.it/alessandro.baraldi/
All'interno c'è proprio quello che chiedi.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Re: Lista font installate

author: Mavic


title: Re: Lista font installate

text:
> Scaricati il demo nel mio sito alla sezione [FORMS]
> FAQ 1.2  Resize List/Combo_Box.
>
>
http://www.mantuanet.it/alessandro.baraldi/
>
> All'interno c'è proprio quello che chiedi.
>
> Ciao
> @Alex
>
>
>
Grazie Alex
Ciao.


title: [A97] Come ottenere i totali di pagina di un sottoreport nel report principale

author: VT @ home

text:
Salve a tutti.
Ho un report Report0 che al suo interno ha tre sottoreport:
Report1
Report2
Report3
Ognuno di questi, che può essere stampato anche separatamente dagli
altri, ha delle intestazioni per tutte le colonne e dei totali di
pagina per alcune di esse.
Come è noto le sezioni "Intestazione di pagina pagina" e "Piè di
pagina pagina" di un report non vengono stampate quando questo è
utilizzato come sottoreport.
Per ottenere comunque la stampa delle intestazioni delle colonne del
sottoreport anche nel report, basta definire nel sottoreport un
livello di gruppo su un campo che si mantenga costante su tutti i
record, spostare i controlli dall'"Intestazione di pagina pagina"
nell'intestazione del gruppo ed impostare la proprietà di tale sezione
"RipetiSezione" a Sì.
E per i totali che si trovano nella sezione "Piè di pagina pagina"
come si può fare ?
Purtroppo, nella sezione "Piè di pagina gruppo" non esiste la
proprietà "RipetiSezione" !
E' da ieri che cerco una soluzione, ma senza successo.
Grazie in anticipo.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


author: Luciano (DOC)

text:
VT @ home ha scritto nel messaggio <
3cc2eb7f...@news.tiscalinet.it
>...
>E per i totali che si trovano nella sezione "Piè di pagina pagina"
>come si può fare ?
>Purtroppo, nella sezione "Piè di pagina gruppo" non esiste la
>proprietà "RipetiSezione" !
>E' da ieri che cerco una soluzione, ma senza successo.
>Grazie in anticipo.
Non ho capito esattamente cosa vuoi ottenere, se un totale del sottoreport
sul report potresti mettere una casella nascosta a piedipaginareport del
sottoreport che fa la somma dei piedipaginapagina e riferirti ad essa da un
controllo sul report.
Sempreche' ho capito...:-)
Saluti.
Luciano


author: Roberto da casa

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:3cc2eb7f...@news.tiscalinet.it...
> Salve a tutti.
> Ho un report Report0 che al suo interno ha tre sottoreport:
> Report1
> Report2
> Report3
>
> Ognuno di questi, che può essere stampato anche separatamente dagli
> altri, ha delle intestazioni per tutte le colonne e dei totali di
> pagina per alcune di esse.
> Come è noto le sezioni "Intestazione di pagina pagina" e "Piè di
> pagina pagina" di un report non vengono stampate quando questo è
> utilizzato come sottoreport.
> Per ottenere comunque la stampa delle intestazioni delle colonne del
> sottoreport anche nel report, basta definire nel sottoreport un
> livello di gruppo su un campo che si mantenga costante su tutti i
> record, spostare i controlli dall'"Intestazione di pagina pagina"
> nell'intestazione del gruppo ed impostare la proprietà di tale sezione
> "RipetiSezione" a Sì.
> E per i totali che si trovano nella sezione "Piè di pagina pagina"
> come si può fare ?
> Purtroppo, nella sezione "Piè di pagina gruppo" non esiste la
> proprietà "RipetiSezione" !
> E' da ieri che cerco una soluzione, ma senza successo.
> Grazie in anticipo.
>
> Vincenzo Turturro
Perchè non usi, nell'origine controllo dei controlli inseriti in Report0,
delle DSum per fare le tue somme di colonna relative ai sottoreport?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Cercherò di spiegarmi meglio.
Report0 contiene al suo interno solo e soltanto tre sottoreport
Report1, Report2 e Report3.
Ognuno di questi tre report al suo interno contiene dei totali
progressivi che  vengono (e devono) essere stampati al fondo di
ciascuna pagina.
Progressivi deve essere inteso nel senso che in fondo a pagina 1 si
totalizzano le righe di pagina1, in fondo a pagina 2 le righe di
pagina 1 e di pagina 2 .... in fondo a pagina n le righe di pagina 1,
pagina 2, .... pagina n
Se questi tre report vengono stampati come report a sè stanti, non ci
sono problemi: ogni pagina ha in fondo i suoi totali progressivi.
Ecco uno schema molto scarno:
Report1Pagina1
righe di Report1Pagina1
Report1TotaliDiPagina1
Report1Pagina2
righe di Report1Pagina2
Report1TotaliDiPagina2
Report1Pagina3
righe di Report1Pagina3
Report1TotaliDiPagina3
e così via ...
Se però stampo Report0, i totali di pagina dei sottoreport spariscono,
così come spariscono le intestazioni di pagina.
Poichè il problema si presenta anche con un solo sottoreport, per
semplicità supponiamo che Report0 contenga solo Report1
Io (o meglio: il mio cliente, che gli Dei l'abbiano in gloria !)
vorrei ottenere:
Report0
Report0Pagina1
righe di Report1Pagina1
Report1TotaliDiPagina1
Report0Pagina2
righe di Report1Pagina2
Report1TotaliDiPagina2
Report0Pagina3
righe di Report1Pagina3
Report1TotaliDiPagina3
e così via ...
Grazie per l'interessamento



text:
Come stai ?
Ultimamente partecipo pochissimo al NG, ma comunque vi tengo sotto
controllo !



text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:3cc4641d...@news.tiscalinet.it...
> Come stai ?
Abbastanza bene, grazie.
> Ultimamente partecipo pochissimo al NG, ma comunque vi tengo sotto
> controllo !
E fai bene! :-)
>
> Vincenzo Turturro
Ciao ed un caro saluto ad Anna.
Roberto


title: EAN-8, EAN-13

author: Mauro

text:
Tempo fa RoDAgo (mi pare) mise a disposizione una routine per disegnare codici a barre EAN-8 su un
Report.
Proprio in questi giorni ho avuto la necessità di provarla (nel mio caso non era d'obbligo lo
standard EAN-13) ma purtroppo il lettore di Barcode fa cilecca!
Il lettore è predisposto anche per la lettura di EAN-8 per cui apparentemente c'è qualcosa che non
funziona nella routine.
Qualcuno ha provato quel codice ed è in grado di smentirmi?
Conoscete siti in cui trovare le regole per la creazione dei barcode, magari anche EAN-13?
Grazie a tutti, ciao
Mauro


title: EAN-8, EAN-13

author: RoDAgo

text:
Mauro scrisse...
> Tempo fa RoDAgo (mi pare) mise a disposizione una routine per disegnare
codici a barre EAN-8 su un
> Report.
No, no, era per Codice a barre Interleaved 2x5.
In ogni caso molte stampanti supportano questo tipo di standard, studiati i
manuali e utilizza quelli.
Altra alternativa è l'utilizzo di font che ricostruiscono fedelmente (come
il barcod39.ttf) i vari standard di codici a barre.
> Proprio in questi giorni ho avuto la necessità di provarla (nel mio caso
non era d'obbligo lo
> standard EAN-13) ma purtroppo il lettore di Barcode fa cilecca!
> Il lettore è predisposto anche per la lettura di EAN-8 per cui
apparentemente c'è qualcosa che non
> funziona nella routine.
Predisponilo per l'Interleaved 2x5 e tutto funzionerà correttamente.
> Qualcuno ha provato quel codice ed è in grado di smentirmi?
A me funge!
> Mauro
RoDAgo


title: EAN-8, EAN-13

text:
Chiedo scusa per l'imprecisione RoDAgo: è proprio come dici...
MOLTE GRAZIE!!!
Ciao, Mauro


title: EAN-8, EAN-13

text:
Dimenticavo!
Non sapevo esistessero fonts per Barcode, conosci dei links da cui poterli scaricare?
Ciao RoDAgo.
Mauro


title: EAN-8, EAN-13

author: ema

text:
Mio cuggino mi ha detto che Mauro <
maur...@libero.it
> scrisse:
> Dimenticavo!
> Non sapevo esistessero fonts per Barcode, conosci dei links da cui poterli scaricare?
>
magari, se non e` gia` stato fatto, li postate al web master da mettere
sul sito comune? (sempre che la licenza lo permetta...)
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX x rispondere    ICQ #8814554
I politici hanno una loro etica.  Tutta loro.  Ed e' una tacca piu'
sotto di quella di un maniaco sessuale.
		-- Woody Allen


title: EAN-8, EAN-13

author: Paolo Bottoni

text:
"ema" wrote
> > Non sapevo esistessero fonts per Barcode, conosci dei links da cui
poterli scaricare?
> >
> magari, se non e` gia` stato fatto, li postate al web master da mettere
> sul sito comune? (sempre che la licenza lo permetta...)
http://www.barcodemall.com/a1barcode/software.html
http://www.adams1.com/pub/russadam/share.html
http://www.jhcloos.com/fonts/
 (type 1)
Ma qualcuno le dovrebbe provare prima.
Io non le ho mai adoperate, controllando meglio in Corel Draw ho visto che
lí ne avevo parecchie.
Paolo


title: vedere moduli in altro database

author: Alessandro Cappelli

text:
ho una serie di applicativi sviluppati in accesse e siccome (come capiterà a
tutti) delle funzioni utente si ripetono da applicativo ad applicativo
vorrei poter radunare queste funzioni in un unico modulo in un database a sé
stante o meno..
ho fatto un po' di ricerce sul SC e nell'help in linea ma non ho trovato
niente......
qualcuno sa darmi la dritta giusta....
(basta non mi becchi in un occhio)
:)
grazzzie


title: vedere moduli in altro database

author: The-real-Isaac

text:
"Alessandro Cappelli" <
acap...@iname.com
> ha scritto nel messaggio
news:9q9bio$msl$1...@nreadb.inwind.it...

Crei un database - es. "CodiciComuni.mdb" - con le funzioni che vuoi rendere
comuni (ovviamente tutte public). Le puoi anche suddividere in più moduli.
In ognuno degli altri database imposterai poi un riferimento a
"CodiciComuni.mdb" (nella stessa maniera in cui imposti gli altri
riferimenti tipo DAO, Word etc).
Ciao
--
Alberto


title: vedere moduli in altro database

text:
>
> Crei un database - es. "CodiciComuni.mdb" - con le funzioni che vuoi
rendere
> comuni (ovviamente tutte public). Le puoi anche suddividere in più moduli.
> In ognuno degli altri database imposterai poi un riferimento a
> "CodiciComuni.mdb" (nella stessa maniera in cui imposti gli altri
> riferimenti tipo DAO, Word etc).
>
si avevo immaginato qualcosa del genere ma ho fatto delle prove e non riesco
a chiamare le funzioni
in cap.mdb ho un modulo di nome Modulo1 con una funziona prova()
Sub ProvaCollegamentoModuliEsterni()
    Dim db As Database
    Set db = DBEngine.OpenDatabase("d:\documenti\access\cap.mdb")
    ' .....  come chiamo la funzione prova() ???
End Sub
...forse una soluzione è importare il modulo che contiene le funzioni comuni
ogni volta che si apre un database dal database 'comune'


title: vedere moduli in altro database

text:
"Alessandro Cappelli" <
acap...@iname.com
> ha scritto nel messaggio
news:9qbnb3$dip$1...@nreada.inwind.it...

Allora (scusa se sono troppo elementare e dico delle cose banali che
probabilmente sai già):
1) In un database crei solo dei moduli - quanti ne vuoi - con tutte le
"public function" e "public sub" che vuoi (tra cui anche la famigerata
"public function Prova()")
2) Nel database in cui vuoi utilizzare la funzione apri un modulo qualsiasi
e scegli Strumenti/Riferimenti; schiacci il pulsante "sfoglia"; come tipo
file selezioni "*.mdb"; selezioni il tuo "cap.mdb" e ti accerti che la
relativa casellina sia spuntata
3) Quando ti serve, chiami normalmente la funzione (es.: "strCap = Prova").
4) La cosa può non funzionare se ci sono conflitti dovuti a:
- la presenza di un'altra function o sub "Prova" (sia private che public)
all'interno del modulo da cui effettui la chiamata
- la presenza di un'altra function o sub "Prova" (in questo caso public)
all'interno di uno dei moduli di codice che vedi nella finestra "Moduli" del
database da cui effettui la chiamata.
Io lavoro normalmente così - senza problemi - sia in A97 che in A00
Ciao,
--
Alberto


title: vedere moduli in altro database

text:
> Allora (scusa se sono troppo elementare e dico delle cose banali che
> probabilmente sai già):
> 1) In un database crei solo dei moduli - quanti ne vuoi - con tutte le
> "public function" e "public sub" che vuoi (tra cui anche la famigerata
> "public function Prova()")
> 2) Nel database in cui vuoi utilizzare la funzione apri un modulo
qualsiasi
> e scegli Strumenti/Riferimenti; schiacci il pulsante "sfoglia"; come tipo
> file selezioni "*.mdb"; selezioni il tuo "cap.mdb" e ti accerti che la
> relativa casellina sia spuntata
> 3) Quando ti serve, chiami normalmente la funzione (es.: "strCap =
Prova").
> 4) La cosa può non funzionare se ci sono conflitti dovuti a:
> - la presenza di un'altra function o sub "Prova" (sia private che public)
> all'interno del modulo da cui effettui la chiamata
> - la presenza di un'altra function o sub "Prova" (in questo caso public)
> all'interno di uno dei moduli di codice che vedi nella finestra "Moduli"
del
> database da cui effettui la chiamata.
> Io lavoro normalmente così - senza problemi - sia in A97 che in A00
>
Ecco !!
non avevo messo a fuoco il significato della parola "riferimenti"
ero tutto preso dall'idea che si facesse da codice
Grazie.....


title: vedere moduli in altro database

text:
> Ecco !!
> non avevo messo a fuoco il significato della parola "riferimenti"
> ero tutto preso dall'idea che si facesse da codice
>
> Grazie.....
>
si puň fare anche da codice...
adesso l'ho visto
:)


title: help su rate/fattura

author: giacoMouse

text:
salve,
per gestire le fatture del mio db ho creato la classe Fatture in
relazione alla classe Rate (uno a molti)
non ho problemi per quello che riguarda l'inserimento dei dati della
fattura tramite maschera, nemmeno per l'inserimento della prima rata
(presente come sottomaschera di InserimentoFattura) che prende ed
elabora i dati Importo e Scadenza dal form "sopra".
il problema che ho riscontrato e che non riesco a fare in modo che i
dati Importo e Scadenza si propaghino alle rate successive relative
alla stessa IDFattura.
cosi se pes:
IDFattura = 5
Nome = ...
Data = Date()
NumRate = 3
ScadenzaRata = 30 giorni
Importo = 10000
.....
IDRata = 10
IDFattura = 5
ScadenzaRata = Data()+Forms!InserimentoFAttura!ScadenzaRata
Importo =
Forms!InserimentoFattura!Importo/Forms!InserimentoFattura!NumRate
...
Ora vorrei che IDRata = 11 relativo ad IDFattura 5 dopo aver cliccato
su "Aggiungi nuovo record" abbia Importo = Importo di IDRata
precedente e Scadenza = ScadenzaPrecedente +
Forms!InserimentoFAttura!ScadenzaRata
ho provato con after_upload, on load, on exit, settando come valore
predefinito ma non mi funziona alcun metodo e penso che la soluzione
sia una stupidata ma ci sto girando intorno.
qualcuno, se ha capito il problema, puo aiutarmi?
grazie anticipatamente
-giacomo-


title: help su rate/fattura

text:
giacoMouse wrote:
>
> salve,
> per gestire le fatture del mio db ho creato la classe Fatture in
> relazione alla classe Rate (uno a molti)
> non ho problemi per quello che riguarda l'inserimento dei dati della
> fattura tramite maschera, nemmeno per l'inserimento della prima rata
> (presente come sottomaschera di InserimentoFattura) che prende ed
> elabora i dati Importo e Scadenza dal form "sopra".
> il problema che ho riscontrato e che non riesco a fare in modo che i
> dati Importo e Scadenza si propaghino alle rate successive relative
> alla stessa IDFattura.
[cut]
e' lo stesso problema che aveva Debore maniero 3d "dati ripetuti" de 5/9
attenzione il 3d e' pieno di [OT]
--
a.cara


title: help su rate/fattura

text:
On Fri, 13 Sep 2002 11:41:30 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>e' lo stesso problema che aveva Debore maniero 3d "dati ripetuti" de 5/9
>attenzione il 3d e' pieno di [OT]
mmer#?!a, il subject un po' fuorviante mi ha fatto cancellare i post
relativi a quel 3d che ricordo di aver visto (troppa fretta).
esiste mica una copia raggiungibile via web del newsgroup?
e OT questo argomento?


title: help su rate/fattura

text:

nun te preoccupa'
secondo me Debora Maniero e' in grado di postarti il codice
--
a.cara


title: help su rate/fattura

author: MA

text:
> > >e' lo stesso problema che aveva Debore maniero 3d "dati ripetuti" de
5/9
> > >attenzione il 3d e' pieno di [OT]
> >
> > mmer#?!a, il subject un po' fuorviante mi ha fatto cancellare i post
> > relativi a quel 3d che ricordo di aver visto (troppa fretta).
> > esiste mica una copia raggiungibile via web del newsgroup?
> > e OT questo argomento?
Vai su
www.libero.it
http://usenet.libero.it/cgi-bin/BrowseNews.epl?GRUPPO=it.comp.appl.access&CATEG_PARAM=Computer%20e%20Internet&SOTTOCATEG_PARAM=Software
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Quesito SQL su Access 2000

author: Dan Marino

text:
Ho due tabelle. Libri (con campi Nome e Editore) ed Aziende (con campo ID,
Nome e un booleano chiamato Libri che specifica se questa società fa libri o
altre cose).
Per una maschera di immissione dei libri, mi piacerebbe vedere una casellina
combinata che, quando devo scegliere l'editore, mi faccia vedere SOLO le
società che si occupano di libri, in ordine di importanza. L'ordine di
importanza sarebbe equivalente al numero di libri già catalogati. Cioè: se
dell'editore Pippo ho già inserito 4 libri, dell'editore Paperino 8 e
dell'editore Topolino 6, la casella combinata dovrebbe essere "Paperino /
Topolino / Pippo".
Come debbo strutturare la benedetta query (cui riferire la casella
combinata)? Io avevo pensato a qualcosa tipo
SELECT [Aziende].[ID], [Aziende].[Nome], [libri].[Editore], Count(*) AS
ContaTitoli
FROM Aziende, libri
WHERE ((([Aziende].[Libri])=True) And (([Aziende].[ID])=[libri].[editore]))
GROUP BY [Aziende].[ID], [Aziende].[Nome], [libri].[Editore]
ORDER BY Count([libri].[Titolo]) DESC;
Questo funziona, ma nella combo box compaiono SOLO i nomi delle società di
cui ho già catalogato ALMENO 1 libro. Come faccio a farli comparire tutti?
Aiutateme, ve prego :o)
Grazie in anticipo
	Dan
----------------------------------------
Volevo una canzone come una vergine che va sposa:
tutti a farle il filo intorno perché è bella, perché è ritrosa,
tutti a filo di coltello perché è promessa, perché è gelosa.
 -- Max Manfredi, Fabrizio De André
----------------------------------------
Dan Marino
  ICQ # : 19046982 - Odigo # : 968178 - Yahoo! : daniele_marino
  E-mail :
daniele...@tiscalinet.it
 (urgenti: @
mail.omnitel.it
)
  Web :
http://www.geocities.com/daniele_marino
  Tel : 02.47710693 - Gsm : 0349.6741348 - Fax : 02.70033664
  PGP Key ID : 0x4A0878FE
----------------------------------------
--
Posted from
laguna.tiscalinet.it
 [195.130.224.86]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Quesito SQL su Access 2000

text:
""Dan Marino"" <
daniele...@tiscalinet.it
> ha scritto nel messaggio
news:LOBBJAGOOIKMNJLLGLIDG...@tiscalinet.it...

Io la query la farei così:
SELECT DISTINCT Aziende.IdAziende, Aziende.Nome,
DCount("[Nome]","Libri","[IdAziende]=" & [Aziende].[IdAziende]) AS e
FROM Aziende LEFT JOIN Libri ON Aziende.IdAziende = Libri.IdAziende
WHERE (((Aziende.Libri)=True))
ORDER BY DCount("[Nome]","Libri","[IdAziende]=" & [Aziende].[IdAziende])
DESC;
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: lookup con errore

author: Cataldo Formaro

text:
Avevo un miocontrollo formato testo con:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo = '" &
Maschere!M_Preventivo!SM_Dettagli_Documenti!CodiceArticolo & "' and
ProvenienzaDoc  = '" &
Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento & "'")
Adesso il miocontrollo l'ho trasformato in numerico, e quindi ho cosi
variato  il codice:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo = " &
Maschere!M_Preventivo!SM_Dettagli_Documenti!CodiceArticolo & " and
ProvenienzaDoc  = " &
Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento)
Mi segnala #Nome
Preciso che Codicearticolo è numerico; Numerodocumento è testo.
--
Cataldo Formaro


title: lookup con errore

author: Alessandro Baraldi

text:

E' strano vedere [Maschere] invece di FORMS.... ma se NumeroDocumento
è testo immagino che ProvenienzaDoc sia testo... visto che nel
criterio è così e mancherebbero gli APICETTI...!
Se ho capito male cosa intendi dire con "Numerodocumento è
testo" ....?
@Alex


title: lookup con errore

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f8809c38-aa38-4516...@r15g2000prh.googlegroups.com...


@Alex
Ciao Alessandro,
Intendo "formato" testo es: FAT08-0023
--
Cataldo Formaro


title: lookup con errore

text:
On 10 Dic, 12:05, "Cataldo Formaro" <
formarocata...@alice.it
> wrote:
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggionews:f8809c38-aa38-4516...@r15g2000prh.googlegroups.com...

Allora mancano gli apicetti...
=DLookUp("SommadiQtaCons";"Q_Qta_Cons"; _
  "CodiceArticolo = " & Maschere!M_Preventivo!
SM_Dettagli_DocumentiCodiceArticolo & _
" and ProvenienzaDoc = '" &
 Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento & "'")
Altrimenti ingloba:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons"; _
  "CodiceArticolo = Forms!M_Preventivo!
SM_Dettagli_DocumentiCodiceArticolo
 and ProvenienzaDoc =  Forms!M_Preventivo!SM_Dettagli_Documenti!
NumeroDocumento")
Il 2° dovrebbe applicare la risoluzione dei riferimenti comprensiva di
formattazione..., ma vado a memoria...
@Alex


title: lookup con errore

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1a0d7861-40d7-48db...@f40g2000pri.googlegroups.com...

Allora mancano gli apicetti...

Altrimenti ingloba:


@Alex
a prposito di maschere e forms, scrivo forms e lo corregge in maschere..
provo e ti aggiorno
--
Cataldo Formaro


title: lookup con errore

text:
On 10 Dic, 12:13, "Cataldo Formaro" <
formarocata...@alice.it
> wrote:
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggionews:1a0d7861-40d7-48db...@f40g2000pri.googlegroups.com...

Dipende da dove lo scrivi se interno alla stringa(lui deve leggere
Forms) o se esterno..., se non ricordo male è una caratteristica di
una versione di Access... forse il 2003...!
@Alex


title: lookup con errore

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:eec1f10b-3aed-47ec...@v4g2000vbb.googlegroups.com...


@Alex
Si è la 2003
..
restituisce sempre errore
sia col primo esempio eche con il secondo: errore di sintassi
nell'espressione ..
 tengo a precisare che il lookup l'ho inserito su origine controllo.
--
Cataldo Formaro


title: lookup con errore

author: geppo

text:
Ciao "Cataldo Formaro" <
formaro...@alice.it
> ha scritto nel messaggio
news:493fa75c$0$1094$4faf...@reader1.news.tin.it...
---cut---
> Si è la 2003
> ..
> restituisce sempre errore
> sia col primo esempio eche con il secondo: errore di sintassi
> nell'espressione ..
> tengo a precisare che il lookup l'ho inserito su origine controllo.
Allora sostituisci i ";" con la "," .
> Cataldo Formaro
--
Ciao
Geppo


title: lookup con errore

author: Karl Donaubauer

text:
Cataldo Formaro wrote:
>>> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel
>> ...
>>>> Preciso che Codicearticolo è numerico; Numerodocumento è testo.
>>
>> Allora mancano gli apicetti...
>>
>> =DLookUp("SommadiQtaCons";"Q_Qta_Cons"; _
>> "CodiceArticolo = " & Maschere!M_Preventivo!
>> SM_Dettagli_DocumentiCodiceArticolo & _
>> " and ProvenienzaDoc = '" &
>> Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento & "'")
> ..
> restituisce sempre errore
> ...errore di sintassi nell'espressione ..
> tengo a precisare che il lookup l'ho inserito su origine controllo.
_ non funziona in un'espressione ma solo in VBA e sulla strada da
Mantova è anche fuggito un !. Prova (in una riga) con:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo = " &
Maschere!M_Preventivo!SM_Dettagli_Documenti!CodiceArticolo & " And
ProvenienzaDoc = '" &
Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento & "'")
Se non funziona fai la prova quale delle due espressioni causa l'errore:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo = " &
Maschere!M_Preventivo!SM_Dettagli_Documenti!CodiceArticolo)
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"ProvenienzaDoc = '" &
Maschere!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento & "'")
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: lookup con errore

text:
Ciao "Cataldo Formaro" <
formaro...@alice.it
> ha scritto nel messaggio
news:4940337a$0$1090$4faf...@reader1.news.tin.it...
---cut---
Scusami ma mi sono sbagliato, vanno bene i ";".
Comunque quella che vedo sotto non è esattamente quella che ti ha scritto
@Alex.
> Ciao Geppo,
> l'avevo già provato cosi,
> =DLookUp("SommadiQtaCons","Q_Qta_Cons","CodiceArticolo =
> Forms!M_Preventivo!SM_Dettagli_DocumentiCodiceArticolo and "ProvenienzaDoc
> = Forms!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento"")
>
> Ma continua a segnalarmi errore di sintassi, errore nell'espressione.
Copia e incolla questa:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo =
Forms!M_Preventivo!SM_Dettagli_DocumentiCodiceArticolo" And "ProvenienzaDoc
= Forms!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento")
>
> --



title: lookup con errore

text:
geppo wrote:
> ...
> Copia e incolla questa:
>
> =DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo =
> Forms!M_Preventivo!SM_Dettagli_DocumentiCodiceArticolo" And
> "ProvenienzaDoc =
> Forms!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento")
Anche qui manca un ! da Mantova ;-) e non è integrato l'operatore.
Dalla sintassi dev'essere:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo=
Forms!M_Preventivo!SM_Dettagli_Documenti!CodiceArticolo And
ProvenienzaDoc=Forms!M_Preventivo!SM_Dettagli_Documenti!NumeroDocumento")
--
cu



title: lookup con errore

text:
Ciao "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6qast1F...@mid.individual.net...

Grazie Karl ........effettivamente alla fine ho incollato la sua, ma volevo
postare questa:
=DLookUp("SommadiQtaCons";"Q_Qta_Cons";"CodiceArticolo = '" &
[Maschere]![M_Preventivo]![SM_Dettagli_Documenti]![CodiceArticolo] & "' And
ProvenienzaDoc = '" &
[Maschere]![M_Preventivo]![SM_Dettagli_Documenti]![NumeroDocumento] & "'")
--
Ciao
Geppo


title: lookup con errore

text:

Accccc sarà che è Natale... ma ho proprio ciccato...!
Grazie Karl, ci vuole un bell'occhio in tutto quello scritto.
@Alex


title: Tabella filtrata

author: il barbi

text:
Da una maschera applico un filtro ai record della tabella
sottostante, e a questo punto vorrei ridimensionarla
cancellando tutti i record che non soddisfano al filtro;
c'e' una soluzione semplice?
il barbi


title: Tabella filtrata

author: Carlo Costarella

text:
"il barbi" <
ilb...@tin.it
> ha scritto nel messaggio
news:D60Hb.10732$_P.4...@news4.tin.it...

Sģ. Da codice fai partire una query di eliminazione che avrą nei criteri un
"Not Like TuoFiltro".
Ciao, Carlo


title: Report

author: kismet

text:
Salve a tutti.
C'è qualcuno che sa dirmi se è possibile modificare la formattazione di un
controllo in un report in funzione del valore che assume un altro controllo?
Entrambi i controlli sono associati, sono nella sezione corpo del report ed
i valori che assumono appartengono allo stesso record...
Spero di essermi spiegato. ciao a tutti
kismet


title: Report

author: Alessio Albano

text:
"kismet" <
dk...@tin.it
> ha scritto nel messaggio
news:ad7v8o$2jq$1...@lacerta.tiscalinet.it...
> Salve a tutti.
> C'č qualcuno che sa dirmi se č possibile modificare la formattazione di un
> controllo in un report in funzione del valore che assume un altro
controllo?
> Entrambi i controlli sono associati, sono nella sezione corpo del report
ed
> i valori che assumono appartengono allo stesso record...
Se ho ben capito quello che tu stai chiedendo di fare č un report dinamico
(io lo conosco con questo nome).
Dovrň fare presto un lavoro del genere, quindi anche a me servirebbero tali
info. :)
Se trovo info te le faccio avere (credo tra l'altro di avere un applicativo
sotto mano che usa tali report, quindi posso studiarmeli lě, e poi farti
risapere!)
Alessio


title: Report

text:
"Alessio Albano" <albano...@secoLevami.IT> ha scritto nel messaggio
news:ad80b6$t6k$1...@serv1.iunet.it...

Te ne sarei molto grato ;))))))
Io non sapevo nenche come si chiamassero, ora che l'ho scoperto mi
attrezzerň anch'io.
A presto.
kismet


title: Report

author: Roberto da casa

text:
"kismet" <
dk...@tin.it
> ha scritto nel messaggio
news:ad7v8o$2jq$1...@lacerta.tiscalinet.it...

Se il nome del controllo di cui devi modificare il formato si chiama Pluto.
Se Pluto deve essere stampato in grassetto nel caso in cui il controllo
Pippo abbia il calore "uno" ed in caso contrario va stampato normale.
A fronte dell'evento " Suformattazione" della sezione Corpo del report
genera il seguente codice VBA:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
If Me!Pippo = "uno" Then
    Me!Pluto.FontWeight = 700
Else
    Me!Pluto.FontWeight = 400
End If
End Sub
Cosi è stata modificoato lo spessore del corpo (proprietà FontWeight), ma
puoi modificare qualsiasi altra proprietà del controllo Pluto.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: nascondere record (sopratutto per Sergio Mazza)

author: Luciano

text:
ciao
questa č la tua risposta al problema dell'archiviazione:
Potresti semplicemente creare un campo booleano (Attivo sě/no, predef. sě)
per ogni cliente; cosě da filtrare solo i clienti attivi. Quando vuoi
riattivarlo, modifichi il valore del campo.
Altrimenti dovresti ricrearti tutte le tabelle, con relativi id per le
relazioni, e con delle query di accodamento/eliminazione "parcheggiare" i
dati. Movimento contrario quando devi riattivarlo. Ma mi sembra un po'
complicato e pericoloso...
 Ciao.
> Sergio MAZZA
ciao
vorrei riprendere il discorso sull'archiviazione o meno dei record dei
clienti dismessi. La soluzione che mi prospetti mi sembra molto razionale,
il campo l'ho creato sulla tabella Clienti, ma non so come fare per fare in
modo che quelli che hanno la spunta su "Archiviato" (l'ho chiamato cosě) non
appaiano poi su maschere, query o report. Probabilmente la soluzione č
semplice, visto che tutti i record sono correlati (la query di eliminazione
funziona benissimo), ma non la trovo.
grazie


author: ALESSANDRO Baraldi

text:
"Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
news:iIdgc.6827$l27...@news.edisontel.com...
> ciao
> questa è la tua risposta al problema dell'archiviazione:
>
> Potresti semplicemente creare un campo booleano (Attivo sì/no, predef. sì)
> per ogni cliente; così da filtrare solo i clienti attivi. Quando vuoi
> riattivarlo, modifichi il valore del campo.
> Altrimenti dovresti ricrearti tutte le tabelle, con relativi id per le
> relazioni, e con delle query di accodamento/eliminazione "parcheggiare" i
> dati. Movimento contrario quando devi riattivarlo. Ma mi sembra un po'
> complicato e pericoloso...
>
>  Ciao.
>
> > Sergio MAZZA
>
>
> ciao
> vorrei riprendere il discorso sull'archiviazione o meno dei record dei
> clienti dismessi. La soluzione che mi prospetti mi sembra molto razionale,
> il campo l'ho creato sulla tabella Clienti, ma non so come fare per fare
in
> modo che quelli che hanno la spunta su "Archiviato" (l'ho chiamato così)
non
> appaiano poi su maschere, query o report. Probabilmente la soluzione è
> semplice, visto che tutti i record sono correlati (la query di
eliminazione
> funziona benissimo), ma non la trovo.
>
> grazie
>
Come nasconde i RECORD Sergio non lo fà nessuno....!!!
Sergio si è sparsa la voce che fai sparire i RECORD con classe...??
Anche nella METRO a ROMA....???
Mah....!!!
@Alex.


author: cidi

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c5rto6$t54$1...@lacerta.tiscalinet.it...
>
> > ciao
> > vorrei riprendere il discorso sull'archiviazione o meno dei record dei
> > clienti dismessi. La soluzione che mi prospetti mi sembra molto
razionale,
> > il campo l'ho creato sulla tabella Clienti, ma non so come fare per fare
> in
> > modo che quelli che hanno la spunta su "Archiviato" (l'ho chiamato così)
> non
> > appaiano poi su maschere, query o report. Probabilmente la soluzione è
> > semplice, visto che tutti i record sono correlati (la query di
> eliminazione
> > funziona benissimo), ma non la trovo.
> >
> > grazie
> >
>
>
> Come nasconde i RECORD Sergio non lo fà nessuno....!!!
>
> Sergio si è sparsa la voce che fai sparire i RECORD con classe...??
> Anche nella METRO a ROMA....???
Certo!!   può far sparire di tutto e ritrovarlo con l'aiuto di 'o
"Commissario"
...attualmente è sulle tracce di "Un pasto perduto".....
;)
> Mah....!!!
>
> @Alex.
>
Ciao Daniele


author: Sergio MAZZA

text:
"Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
news:iIdgc.6827$l27...@news.edisontel.com...

Le form le puoi aprire impostandogli una condizione;
es.
DoCmd.OpenForm "Clienti",,,"Archiviato = 0"
Stessa cosa per i report:
es.
DoCmd.OpenReport "Clienti",,,"Archiviato = 0"
Per le query, devi inserire nella riga "condizione", della colonna
"Archiviato", uno 0..
Ciao.
--
Sergio MAZZA


text:
"cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio
news:1Lhgc.94847$rM4.3...@news4.tin.it...
>
> "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> news:c5rto6$t54$1...@lacerta.tiscalinet.it...
> >
> > Come nasconde i RECORD Sergio non lo fà nessuno....!!!
> >
> > Sergio si è sparsa la voce che fai sparire i RECORD con classe...??
> > Anche nella METRO a ROMA....???
>
> Certo!!   può far sparire di tutto e ritrovarlo con l'aiuto di 'o
> "Commissario"
> ...attualmente è sulle tracce di "Un pasto perduto".....
> ;)
>
> > Mah....!!!
> >
> > @Alex.
> >
>
> Ciao Daniele
>
Fate, fate i "sboroni"... Intanto io ho rimediato caffè e cornetto e voi a
bocca asciutta a parlare di vino che è bello che evaporato...
Ciao.
--
Sergio MAZZA


title: Query  e modifica Valori Colonne

author: Zax

text:
Salve ho una query che mi filtra i dati in una tabella e li visualizza in
una maschera. Ho la necessità, secondo il bisogno, di cambiare
contemporaneamente il valore in una a caso delle colonne.
C'è la possibilità attraverso codice di farlo?
vorrei utilizzare il valore che metterò in una casella di testo nella
maschera e trasferirlo in una colonna dei  record visualizzati nella query.
grazie


title: Query  e modifica Valori Colonne

author: SunRex

text:
"Zax" <
z...@zzz.com
> ha scritto nel messaggio
news:42b66c70$0$17099$5fc...@news.tiscali.it...

Ciao Zac spiega meglio, vuoi cambiare il valore di un record o di un record
di un campo(colonna) della qry?
Cmq è abbastanza semplice.Ti carichi il valore in una variabile
Su tutti i record
strNuovoValore=Me.txtTuaCasella
Set db = CurrentDb
Set rs = db.OpenRecordset("TuaQuery")
rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    rs.Fields("TuaCampo") = strNuovoValore
    rs.Update
    rs.MoveNext
Loop
Forms!frmTuaMaschera.Requery
su un solo record è ancora più semplice
Ciao
SunRex


title: Query  e modifica Valori Colonne

text:
> Ciao Zac spiega meglio, vuoi cambiare il valore di un record o di un
record
> di un campo(colonna) della qry?
> Cmq è abbastanza semplice.Ti carichi il valore in una variabile
>
> Su tutti i record
> strNuovoValore=Me.txtTuaCasella
>
> Set db = CurrentDb
>
> Set rs = db.OpenRecordset("TuaQuery")
>
> rs.MoveFirst
>
> Do Until rs.EOF
>
>     rs.Edit
>
>     rs.Fields("TuaCampo") = strNuovoValore
>
>     rs.Update
>
>     rs.MoveNext
>
> Loop
>
> Forms!frmTuaMaschera.Requery
>
> su un solo record è ancora più semplice
>
> Ciao
>
> SunRex
>
>
>
Dovrei cambiare tutta la colonna dei record filtrati in un valore da me
stabilito.
La colonna potrebbe essere diversa di volta in volta secondo le necessità.
Esempio
Colonne: Casa        Inquilino        Figli
                    A            Pippo            5
                    B            Pluto            5
                    C            Minni            4
Vorrei poter cambiare il valore della colonna figli in una a mia scelta, per
esempio 3..
Colonne: Casa        Inquilino        Figli
                    A            Pippo            3
                    B            Pluto            3
                    C            Minni            3
Ovviamente la colonna da cambiare potrebbe anche inquilino e così via...


title: Query  e modifica Valori Colonne

text:
"Zax" <
z...@zzz.com
> ha scritto nel messaggio
news:42b67599$0$17088$5fc...@news.tiscali.it...

Beh allora è il codice che fa al tuo caso :)
SunRex


title: Query  e modifica Valori Colonne

text:
> Beh allora è il codice che fa al tuo caso :)
>
> SunRex
>
>
Io con VBA sono quasi a terra. Non capisco dove fare i cambiamenti per
personalizzare la routine.
queste sono le cose che io ho:
due caselle di testo nella maschera che contiene in visualizzazione foglio
dati una sottomaschera nella quale sono filtrati i dati attraverso una
query.
        1 Casella di Testo chiamata 'CambiaColonna' (contiene tutti i nomi
delle colonne della             query)
        2 Casella di testo chiamata 'CambiaValore'
La routine dovrebbe leggere i valori da queste due caselle per sapere quale
colonna cambiare e quale valore inserire.
La maschera che contiene le due caselle di testo si chiama 'Database Tagli'
la sotto maschera che contiene i dati filtrati  'InsComponenti' (questi sono
i dadi da cambiare)
Potresti aiutarmi?


title: Query  e modifica Valori Colonne

text:
In un pulsate ho inserito questo codice:
Dim strNuovoValore As String
Dim TuoCampo As String
Dim db As Database
Dim rs As DAO.Recordset
strNuovoValore = [CambiaValore]
TuoCampo = [CambiaColonna]
Set db = CurrentDb
Set rs = db.OpenRecordset("InsComponenti")
rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    rs.Fields(TuoCampo) = strNuovoValore
    rs.Update
    rs.MoveNext
Loop
DoCmd.Requery "InsComponenti"
End Sub.
Io verrei che solo i record Filtratti con la query nella sotto maschera
vengano modificati.
Con questo codice mi modifica tutti i record.
Dove sbaglio?


title: Query  e modifica Valori Colonne

text:
"Zax" <
z...@zzz.com
> ha scritto nel messaggio
news:42b6916c$0$17092$5fc...@news.tiscali.it...
> In un pulsate ho inserito questo codice:
> Dim strSQL as String
Dim strVecchioValore As string
> Dim strNuovoValore As String
> Dim TuoCampo As String
> Dim db As Database
> Dim rs As DAO.Recordset
>
> strRVecchioValore='quello che devi modificare, tu sai dove e come
prenderlo
> strNuovoValore = [CambiaValore]
> TuoCampo = [CambiaColonna]
> Set db = CurrentDb
strSQL = "SELECT * FROM NomeDellaqryDellaSottomaschera WHERE  " & TuoCampo &
"  LIKE '" & strNuovoValore & "'*"
> Set rs = db.OpenRecordset(strSQL)
> rs.MoveFirst
>
> Do Until rs.EOF
>
>     rs.Edit
>
>     rs.Fields(TuoCampo) = strNuovoValore
>
>     rs.Update
>
>     rs.MoveNext
>
> Loop
>
Forms!FrmPrincipale!frmSottomaschera.Requery
>
>
> End Sub.
>
> Io verrei che solo i record Filtratti con la query nella sotto maschera
> vengano modificati.
> Con questo codice mi modifica tutti i record.
>
> Dove sbaglio?
Te l'ho modificato guarda se va.
Il problema è che devi filtrare la qry col vecchio  valore prima di lanciare
il loop ed effettuare le modifiche
SunRex
SunRex


title: Query  e modifica Valori Colonne

text:
Io prima di modificarla la sotto maschera la visualizzo già filtrata.
Possiamo sbruttare questi dati già visualizzati per poter fare il
cambiamento solo su i record correnti nella sottomaschera?
Da premettere che prima di arrivare a questi dati ho utilizzato una serie di
filtri a cascata, ricostruirli via codice sarebbe un impresa.


title: Query  e modifica Valori Colonne

text:
Io prima di modificarla la sotto maschera la visualizzo già filtrata.
Possiamo sfruttare questi dati già visualizzati per poter fare il



title: Query  e modifica Valori Colonne

text:


grazie


title: Query  e modifica Valori Colonne


title: Query  e modifica Valori Colonne

text:
Si può sfruttare i dati già visulizzati nella sottomaschera, e su questi
fare il cambiamento?


title: [DEMO] FTP con progressbar

author: Pablitomf

text:
Messo appena adesso On-line... se a qualcuno pu� interessare :
http://www.accessgroup.it/HomeArgomenti.asp?ID=250&Oggetto2=FTP%20:%20Download%20file%20con%20progressbar
Buona serata.
--
Ciao
Pablitomf
-----------------------------------
Propongo 4-4-2 con il Rombo a centrocampo :
De Sanctis
Zuniga-Campagnaro-Contini-Aronica
Maggio-Cigarini-Gargano-Hamsik
Lavezzi-Quagliarella
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it