title: Cambiare i riferimenti al volo

author: Roberto dalla campagna

text:
<
alte...@mailcity.com
> ha scritto nel messaggio
news:1119528153.4...@f14g2000cwb.googlegroups.com...
> Salve a tutti, ho un paio di problemi con i riferimenti di un db di
> Access97.
>
> Ho un db che utilizza i riferimenti al dao3.6, word ed excel.
> Ho un ambiente misto di macchine win98 e winxp, e che tra l'altro hanno
> versioni diverse di word ed excel.
> Se modifico il db su una macchina con versione di excel o word
> successive, il db non funziona dicendo che manca un riferimento. E fin
> qui tutto normale.
>
> Il vero problema e' relativo al riferimento al Microsoft Dao3.6 che da
> problemi copiando il db da una macchina ad un altra. Succede che dia
> errore su una dichiarazione (es Dim db as Database) pur essendo
> correttamente indicato tra i riferimenti.
> Unica soluzione toglierlo dai riferimenti, chiudere tutto, riaprire e
> rimetterlo.
In alternativa a quanto suggerito da SunRex nella lista dei riferimenti
sposta più in alto possibile il riferimento a DAO 3.6, comunque prima dei
riferimento alle librerie Microsoft ADO.
>
> Ho pensato ad un problema di versioni diverse del dao3.6 o
> installazioni in cartelle diverse sui vari pc, ma tendo ad escluderlo
> in quanto ho personalmente installato la stessa versione di Access su
> tutte le macchine e nella stessa cartella. Scanso equivoci ho
> ricontrollato la versione su tutti i pc, casomai fosse stata modificata
> da qualche aggiornamento.
>
> A questo punto direi che si tratta delle differente versioni del
> sistema operativo...
>
> Vabbeh, passiamo al sodo: e' possibile cambiare i riferimenti da
> codice, magari alla prima apertura del db?
prova a dare uno sguardo a questo vecchio thread:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/686ed2d313acc461/b4c7085ec3986375?q=riferimenti+group:it.comp.appl.access+author:Alessandro+author:Baraldi&rnum=7&hl=it#b4c7085ec3986375
>
> Grazie a tutti e scusate il disturbo.
> Ciao
> mau_rizio
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Cambiare i riferimenti al volo

text:
Ci avevo gia' provato, non da' piu' quell'errore ma altri appena si usa
una funzione tipo Date(), Format$, ecc. ecc.
Ciao
mau_rizio


title: Cambiare i riferimenti al volo

text:
> In alternativa a quanto suggerito da SunRex nella lista dei riferimenti
> sposta più in alto possibile il riferimento a DAO 3.6, comunque prima dei
> riferimento alle librerie Microsoft ADO.
Lo metto come terza voce in quanto le prime 2 (visual basic for
application e access 8.0 object library) non possono essere modificate.
> prova a dare uno sguardo a questo vecchio thread:
>
>
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/686ed2d313acc461/b4c7085ec3986375?q=riferimenti+group:it.comp.appl.access+author:Alessandro+author:Baraldi&rnum=7&hl=it#b4c7085ec3986375
>
L'avevo gia' vista anche se c'e' qualcosa che non mi torna... io con le
librerie di excel e word ho il problema inverso.
Il fatto e' che il problema e' con il dao3.6, i riferimenti a word ed
excel riesco a cambiarli a livello di codice.
Ciao e grazie.
mau_rizio


title: richiamare sub dinamica

author: Franco dellavalle

text:
ciao a tutti
non riesco a richiamare una sub dinamica,
ho fatto in questo modo

Dim stCtrl As String

stCtrl =
Screen.ActiveControl.Name

stCtrl = Right(stCtrl, Len(stCtrl) - 3)
stCtrl = "ShowAll" & Left(stCtrl, Len(stCtrl) - 1) & "i"

Call stCtrl(Me)
Ma ho errore di compilazione;
prevista Sub, Function o Property.

Grazie


title: richiamare sub dinamica

author: Davide La Mantia

text:

Call funziona solo con un identificatore diretto, non con un valore stringa (per chiarimenti vedi:
https://msdn.microsoft.com/en-us/VBA/Language-Reference-VBA/articles/call-statement
)

Usa:

Application.Run

Ciao


title: richiamare sub dinamica

text:
Magari questo, ma da valutare per le limitazioni imposte:
https://support.office.com/en-us/article/CallByName-Function-49ce9475-c315-4f13-8d35-e98cfe98729a

Alterativa sempre valida EVAL

Public Function NomeFuction()
...
End Function

Utilizzo:
?Eval("NomeFuction()")

Ovviamente se ha parametri si possono passare anche i parametri usando i Doppi Apici come delimitatori o il chr(34) ma suggerico la risoluzione eplicita.

@Alex


title: richiamare sub dinamica

text:

grazie Alex


title: richiamare sub dinamica

text:

grazie Davide


title: Blocca Sottomaschera

author: Gianluigi Agostini

text:
Buongiorno.
Utilizzo A00 su W98 SR2.
Ho una maschera Ordini che contiene una sottomaschera DettaglioOrdini.
Vorrei che se il campo flag "Chiuso" è su 1, tutti i campi fossero bloccati.
Ho scritto il seguente codice, che funziona solo per la maschera, e che NON
blocca la sottomaschera. Se tolgo l'apice alla riga della sottomaschera, mi
viene restituito l' errore 2450 "impossibile trovare la sottomaschera...."
Private Sub Form_Current()
'
With CodeContextObject
    If .chiuso = "-1" Then
       .AllowEdits = False
       .CMDSbloccaDDT.Visible = True
       '    Forms![FrmSmTblRDDT].AllowEdits = False
    Else
       .AllowEdits = True
       .CMDSbloccaDDT.Visible = False
       '    Forms![FrmSmTblRDDT].AllowEdits = True
    End If
End With
'
End Sub
In generale, il sistema che ho utilizzato per bloccare la maschera è
appropriato o c'è di meglio?
Come fare per bloccare anche la sottomaschera?
Grazie
Gianluigi Agostini


title: Blocca Sottomaschera

author: Roberto da casa

text:
"Gianluigi Agostini" <
agostini....@tin.it
> ha scritto nel messaggio
news:%kg77.6122$Pb6....@news1.tin.it...

Hai provato a sostituire le due righe di codice in questione con:
Forms![NomeMascheraPrincipale]![FrmSmTblRDDT].AllowEdits = True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Blocca Sottomaschera

text:
> Hai provato a sostituire le due righe di codice in questione con:
>
> Forms![NomeMascheraPrincipale]![FrmSmTblRDDT].AllowEdits = True
>
> --
> Roberto
Sě; Access mi morde dicendomi che il campo 'FrmSmTblRDDT' a cui si fa
riferimento nell'espressione (Errore 2465).
Ti riscrivo il codice che utilizzo, e che non va sulle righe della
sottomaschera.
Private Sub Form_Current()
With CodeContextObject
    If .chiuso = "-1" Then
       .AllowEdits = False
       .CMDSbloccaDDT.Visible = True
       Forms![FrmDDT]![FrmSmTblRDDT].AllowEdits = False
       Forms![FrmDDT]![FrmSmTblRDDT].AllowAdditions = False
    Else
       .AllowEdits = True
       .CMDSbloccaDDT.Visible = False
       Forms![FrmDDT]![FrmSmTblRDDT].AllowEdits = True
       Forms![FrmDDT]![FrmSmTblRDDT].AllowAdditions = True
    End If
End With
End Sub
In generale comunque non ho ancora capito la sintassi di come fare
riferimento alla sottomaschera e ai suoi controlli da un evento generato
nella maschera. In questo caso ho anche provato a far eseguire il codice
anche dall'evento current della sottomaschera. Quando carica la maschera
principale, anche la sottomaschera si blocca se il flag č a -1; poi perň
sfogliando i record, sembra che l'evento current della maschera non abbia
effetto su quello della sottomaschera, e la sincronizzazione dello stato di
blocco dei record si perde.....
Ancora grazie, per il precedente ed il nuovo aiuto...
Gianluigi Agostini


title: Blocca Sottomaschera

author: Roberto dal portatile

text:
"Gianluigi Agostini" <
agostini....@tin.it
> ha scritto nel messaggio
news:A1v77.13061$Pb6....@news1.tin.it...
> > Hai provato a sostituire le due righe di codice in questione con:
> >
> > Forms![NomeMascheraPrincipale]![FrmSmTblRDDT].AllowEdits = True
> >
> > --
> > Roberto
>
> Sì; Access mi morde dicendomi che il campo 'FrmSmTblRDDT' a cui si fa
> riferimento nell'espressione (Errore 2465).
>
> Ti riscrivo il codice che utilizzo, e che non va sulle righe della
> sottomaschera.
>
> Private Sub Form_Current()
> With CodeContextObject
>     If .chiuso = "-1" Then
>        .AllowEdits = False
>        .CMDSbloccaDDT.Visible = True
>        Forms![FrmDDT]![FrmSmTblRDDT].AllowEdits = False
>        Forms![FrmDDT]![FrmSmTblRDDT].AllowAdditions = False
>     Else
>        .AllowEdits = True
>        .CMDSbloccaDDT.Visible = False
>        Forms![FrmDDT]![FrmSmTblRDDT].AllowEdits = True
>        Forms![FrmDDT]![FrmSmTblRDDT].AllowAdditions = True
>     End If
> End With
> End Sub
>
> In generale comunque non ho ancora capito la sintassi di come fare
> riferimento alla sottomaschera e ai suoi controlli da un evento generato
> nella maschera. In questo caso ho anche provato a far eseguire il codice
> anche dall'evento current della sottomaschera. Quando carica la maschera
> principale, anche la sottomaschera si blocca se il flag è a -1; poi però
> sfogliando i record, sembra che l'evento current della maschera non abbia
> effetto su quello della sottomaschera, e la sincronizzazione dello stato
di
> blocco dei record si perde.....
>
> Ancora grazie, per il precedente ed il nuovo aiuto...
> Gianluigi Agostini
>
Nel far riferimento, dalla maschera principale, ad una sottomaschera o ad un
controllo in essa contenuto, non occorre far riferimento al nome della
sottomaschera bensì al nome del controllo sottomaschera della maschera
principale che contiene la sottomaschera.
Quindi, se la maschera principale si chiama Paperino e contiene un controllo
sottomaschera chiamato Pippo, che contiene una sottomaschera chiamata Pluto,
che a sua volta contiene un controllo chiamato Topolino, per far riferimento
dalla maschera Paperino al controllo Topolino non devi scrivere:
[Forms]![Paperino]![Pluto]![Topolino]
bensì
[Forms]![Paperino]![Pippo]![Topolino]
o ancora meglio
Me![Pippo]![Topolino]
Se poi, dalla maschera principale, devi fare riferimento ad una proprietà
della sottomaschera Pluto (come nel tuo caso) non devi scrivere :
[Forms]![Paperino]![Pluto].AllowEdits
bensì
[Forms]![Paperino]![Pippo].Form.AllowEdits
o ancora meglio
Me![Pippo].Form.AllowEdits
Usando poi l'autocomposizione per inserire nella maschera principale il
controllo sottomaschera, normalmente il controllo sottomaschera e la
sottomaschera hanno lo stesso nome, ciò non toglie che la regola è quella
scritta qui sopra.
Se il nome del controllo sottomaschera (non della sottomaschera) contenuto
nella maschera FrmDDT si chiama FrmSmTblRDDT, la sintassi corretta dovrebbe
essere:
Me![FrmSmTblRDDT].Form.AllowEdits = False
Me![FrmSmTblRDDT].Form.AllowAdditions = False
Naturalmente, se il controllo sottomaschera  contenuto nella maschera FrmDDT
non si chiama FrmSmTblRDDT, tra parentesi quadre scrivi il vero nome di
questo controllo.



title: Blocca Sottomaschera

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9jm4tq$62bo$1...@stargate1.inet.it...
........
>
> Me![FrmSmTblRDDT].Form.AllowEdits = False
> Me![FrmSmTblRDDT].Form.AllowAdditions = False
>
> Naturalmente, se il controllo sottomaschera  contenuto nella maschera
FrmDDT
> non si chiama FrmSmTblRDDT, tra parentesi quadre scrivi il vero nome di
> questo controllo.
>
> --
> Roberto
Perfetto!
Grazie
Gianluigi Agostini


title: [OT] Lavoro a Cervia

author: Lorenzo Coronati

text:
Se qualcuno sta nei dintorni di Cervia e ha la possibilita'
di seguire un mio cliente, si faccia vivo.
lorenzo....@libero.it
Bai
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in
internet che sia in grado di recuperare le
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--


title: [OT] Lavoro a Cervia

author: Luciano (DOC)

text:
Lorenzo Coronati ha scritto nel messaggio
<
3c497ec7...@powernews.libero.it
>...
>Se qualcuno sta nei dintorni di Cervia e ha la possibilita'
>di seguire un mio cliente, si faccia vivo.
Hai provato a postare su it.investigazioni.private?:-)
Saluti.
Luciano


title: [OT] Lavoro a Cervia

text:
Scrisse "Luciano (DOC)" <
lucia...@sitocomune.com
>:
>Hai provato a postare su it.investigazioni.private?:-)
Si, ma tanto quelli non hanno ancora trovato il Bettini,
figuriamoci!



title: Report con righe verticali

text:
Buongiorno a tutti ... ho già controllato sui post precedenti relativi all'argomento , ma o non ho capito niente io o proprio non c'è un post che risolva il mio problema ( strano !! ) in ogni caso vi espongo il quesito che mi stà facendo impazzire :

DEVO e dico DEVO stampare un report di una fattura che ha già nel corpo la classica griglia che DEVE essere così e non posso cambiare cioè una serie di linee verticali che delimitano le colonne dei dati della fattura : oggetto , qtà , prezzo ecc.

La fattura viene popolata da una query che riporta tutti i dati di fattura : n° fatt , data e cliente che vengono ripetuti nelle righe della query , tante volte quante sono le righe di fattura ( o per meglio dire , tante volte quanti sono gli articoli citati nella fattura).

Ecco il problema , se inserisco semplicemente i campi delle righe della fattura nel corpo dove sono già disegnate le righe che delimitano le colonne  , il report genera tante pagine quante sono le righe e su ogni pagina mi ripete i dati di intestazione della fattura , ma nel corpo mi inserisce una riga degli articoli per ogni pagina : ho 10 articoli , trovo 10 pagine con un rigo per ogni pagina.

In più il campo descrizione è un campo memo perchè la descrizione può essere di poche lettere oppure una descrizione di più righe , col campo memo tutto mi si riscala automaticamente.

Cosa vorrei ? Riuscire agenerare il report con le righe verticali che DEVONO essere così e popolare le colonne con i dati delle righe della fattura .

Spero di essere stato chiaro e accetto molto volentieri chiunque mi aiuti a risolvere qs. problema.
Vi ringrazio anticipatamente.


title: Report con righe verticali

author: BFS

text:

e hai cercato male...argomento trito e ritrito

sull'evento "su pagina" del tuo report scrivi ad esempio

Dim fattura As Report
Set fattura = Report_Fattura

'per ogni riga verticale che vuoi ottenere usa il comando line
fattura.Line (100, 100)-(100, 7000)

vedrai che ti apapre una bella linea verticale

la guida in linea di access:

espressione.Line(flag, x1, y1, x2, y2, colore)

espressione   Obbligatorio. Espressione che restituisce uno degli
oggetti indicati nell'elenco Si applica a.

flag  Elemento Integer obbligatorio.

x1  Elemento Single obbligatorio. Valore che indica la coordinata del
punto iniziale della linea o del rettangolo. Le proprietà relative alle
proporzioni (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight e ScaleWidth)
dell'oggetto Report specificato nell'argomento oggetto determinano
l'unità di misura utilizzata. Se si omette tale argomento, la linea
inizia dalla posizione indicata dalla proprietà CurrentX.

y1  Elemento Single obbligatorio. Valore che indica la coordinata del
punto iniziale della linea o del rettangolo. Le proprietà relative alle
proporzioni (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight e ScaleWidth)
dell'oggetto Report specificato nell'argomento oggetto determinano
l'unità di misura utilizzata. Se si omette tale argomento, la linea
inizia dalla posizione indicata dalla proprietà CurrentY.

x2  Elemento Single obbligatorio. Valore che indica la coordinata del
punto finale per la linea da disegnare. Questo argomento è obbligatorio.

y2  Elemento Single obbligatorio. Valore che indica la coordinata del
punto finale per la linea da disegnare. Questo argomento è obbligatorio.

colore  Elemento Long obbligatorio. Valore che indica il colore RGB
(rosso, verde, blu) utilizzato per disegnare la linea. Se si omette
questo argomento, viene utilizzato il valore della proprietà ForeColor.
È inoltre possibile utilizzare la funzione RGB o QBColor per specificare
il colore.

ciao
BFS


title: Report con righe verticali

text: Ok ora ci prova , per il momento ti ringrazio molto.


title: Report con righe verticali

text:
Scusa devi avere pazienza , ma non mi funziona perchè io sono molto a digiuno di codice VBA. Mi puoi spiegare meglio tutta la sintassi ?
soprattutto quella del metodo LINE '
Grazie mille


title: Report con righe verticali

text:

crea un report vuoto e chiamalo fattura.
nell'evento su pagina del report incolla

Dim fattura As Report
Set fattura = Report_Fattura

fattura.Line (100, 100)-(100, 7000)

salva e apri il report
vedrai che ottieni una bella linea verticale che parte da x1=100 y1=100
  a x2=100 a y2=7000

con lo stesso concetto creati tutta la tua bella griglia dati

ciao
BFS


title: Colori maschera

text:
Un saluto a tutti. Qualche giorno fa ho chiesto come avrei dovuto fare
per cambiare colore di sfondo alla mia maschera su una condizione.
Ho ricevuto, come sempre, la gentile attenzione di qualcuno di voi, che
ha corretto il mio "artigianale" tentativo di riuscirci da solo, con
questo codice:
Private Sub Data_uscita_AfterUpdate()
If Not IsNull(Me.Data_uscita) Then
Me.Corpo.BackColor = 8421504
Else
Me.Corpo.BackColor = 5610858
End If
End Sub
Che funziona perfettamente, messo anche nell'evento Current della
maschera.
Mi sono reso conto in un secondo momento, come spesso accade, che "Data
uscita" non era l'unica condizione affinchè la maschera si scurisse
segnalando che quel record era dismesso, avevo anche "Data Spedizione"
Ho risolto creando per la casella di testo lo stesso evento dopo
aggiornamento e mettendo:
Private Sub Form_Current()
If Not IsNull(Me.Data_uscita) Or Not IsNull(Me.Data_spedizione)
Me.Corpo.BackColor = 8421504
Else
Me.Corpo.BackColor = 5610858
End If
End Sub
Essendo un pò perfezionista ed avendo visto che la mia maschera ha
anche due campi scadenziari, vorrei che ad una prima scadenza la
maschera diventasse arancione e rossa alla seconda scadenza.
Ora, per la vostra ilarità posto il codice che ho provato:
Private Sub Form_Current()
If Not IsNull(Me.Data_uscita) Or Not IsNull(Me.Data_Spedizione) Then
Me.Corpo.BackColor = 8421504
Else
Me.Corpo.BackColor = 5610858
End If
If Not Me.PrimaScad <= Date() - 3 Then
Me.Corpo.BackColor = 33023
Else
Me.Corpo.BackColor = 5610858
End If
If Not Me.SecondaScad <= Date() - 3 Then
Me.Corpo.BackColor = 255
Else
Me.Corpo.BackColor = 5610858
End If
End Sub
Se qualcuno, ripresosi dalle risate, volesse essere così gentile da
indicarmi la Via, si guadagnerebbe eterna riconoscenza......


title: Colori maschera

author: wlady

text:
T_A_O ha scritto:

non so cosa esattamente tu voglia fare, ma il codice è corretto e
sicuramente funzionante. Tieni conto però che, così facendo, se
vengono soddisfatte più condizioni delle varie IF che hai messo, sarà
l'ultima quella che avrà effetto.
P.S.: grazie per il momento ironico :)
ciao


title: Colori maschera

text:
wlady ha scritto:

Non va....non va......grazie per la risposta wlady ma proprio non
va....vorrei che scorrendo i records della maschera, ad esempio con la
rotella del mouse, si evidenziassero i records prossimi alla scadenza,
so che esistono modi sicuramente molto più eleganti per ottenere
questo risultato, ma mi basta che ad un'occhiata questi siano
individuabili, anche per le operazioni connesse alle scadenze.
Il discorso riguardante le If non lo avevo preso in considerazione,
quindi su un report dismesso, quindi grigio, se comunque raggiungesse
la data vicina alla scadenza cambiarebbe colore così come l'ho scritto
io mi sembra di capire....
Ovviamente io invece vorrei che l'uscita (o il trasferimento)
escludessero la possibilità della scadenza.
Come posso dare un ordine di priorità agli eventi?
Sto prendendo le misure per la tua statua nel mio giardino......


title: Colori maschera

author: sv

text:
T_A_O ha scritto:
[cut]


Prova un diverso approccio al problema utilizzando SelectCase.
Una cosa di questo genere:
Dim intA As Integer
If (Prima tua condizione) Then intA  1
If (Seconda tua condizione) Then intA  2
If (Terza tua condizione) Then intA  3
.
.
.
Select Case intA
Case 1
MsgBox "Questa è la prima condizione"
Case 2
MsgBox "Questa è la seconda condizione"
Case 3
MsgBox "Questa è la terza condizione"
.
.
.
End Select
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Colori maschera

text:
sv ha scritto:

Proverò ad adattare ciò che mi hai scritto al mio problema, purtroppo
solo ora sto cominciando a capire il funzionamento delle if (forse...)
con il select case non mi sono mai cimentato, ti ringrazio comunque
molto per il suggerimento.


title: Colori maschera

text:
T_A_O ha scritto:

Ultima versione riveduta e corretta con l'If
Private Sub Form_Current()
If Not Me.PrimaScad <= Date + 3 Then
Me.Corpo.BackColor = 33023
Else
Me.Corpo.BackColor = 5478760
End If
If Not Me.SecondaScad <= Date + 3 Then
Me.Corpo.BackColor = 255
Else
Me.Corpo.BackColor = 5478760
End If
If Not IsNull(Me.Data_uscita) Or Not IsNull(Me.Data_spedizione)
Me.Corpo.BackColor = 5855577
Else
Me.Corpo.BackColor = 5478760
End If
End Sub
Ho messo per ultima la condizione fondamentale, cioè la dismissione ed
ho cambiato la condizione per la scadenza perchè quella di prima mi
avrebbe indicato quelli già scaduti da tre giorni.
In ogni caso ancora non funziona.
Non ho messo nessun codice in Primascad e Secondascad perchè non so su
che evento potrei inserirlo, quindi il codice è solo su current della
maschera e....non va....


title: Colori maschera

text:
T_A_O ha scritto:

Eccomi ancora qui...spero che qualcuno ancora mi legga...
Ho provato ad adattare il SelectCase che mi ha suggerito SC in questo
modo
Private Sub Form_Current()
Dim intA As Integer
If (Not IsNull(Me.Data_uscita)) Then intA 1
If (Not IsNull(Me.Data_spedizione)) Then intA 2
If (Me.PrimaScad <= Date + 3) Then intA 3
If (Me.SecondaScad <= Date + 3) Then intA 4
SelectCase intA
Case1
Me.Corpo.BackColor = 5855577
Else
Me.Corpo.BackColor = 5478760
Case2
Me.Corpo.BackColor = 5855577
Else
Me.Corpo.BackColor = 5478760
Case3
Me.Corpo.BackColor = 33023
Else
Me.Corpo.BackColor = 5478760
Case4
Me.Corpo.BackColor = 255
Else
Me.Corpo.BackColor = 5478760
End Select
End Sub
Sul terzo rigo, evidenziando intA mi dice "Errore di compilazione,
prevista Sub, Function o Property"
Siate clementi......


title: Colori maschera

text:
T_A_O ha scritto:
[cut]


> SelectCase intA





Effettivamente manca il segno = (uguale).. (ero sicuro di averlo inserito).
Essendo intA un integer abbiamo:
 Dim intA As Integer
 If (Not IsNull(Me.Data_uscita)) Then intA = 1
 If (Not IsNull(Me.Data_spedizione)) Then intA = 2
 If (Me.PrimaScad <= Date + 3) Then intA = 3
 If (Me.SecondaScad <= Date + 3) Then intA = 4
.
.
.



title: Colori maschera

text:
sv ha scritto:

Ehm.....Su "SelectCase intA", settimo rigo, mi da sub o function non
definita....ci sto perdendo la salute... ma un giorno diventerò
bravissimo e non vi scoccerò più (sembra vero eh... :)


title: Colori maschera

text:
T_A_O ha scritto:
> sv ha scritto:

> Ehm.....Su "SelectCase intA", settimo rigo, mi da sub o function non
> definita....ci sto perdendo la salute... ma un giorno diventerň
> bravissimo e non vi scoccerň piů (sembra vero eh... :)
Vedi che deve essere Case (spazio) 1 e non Case1...



title: Colori maschera

text:
sv ha scritto:

> > definita....ci sto perdendo la salute... ma un giorno diventerò
> > bravissimo e non vi scoccerò più (sembra vero eh... :)
>
>
> Vedi che deve essere Case (spazio) 1 e non Case1...
>
> --
> rgrds
> SC
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
Fatto, ho separato anche Select Case che infatti ora non ringhia
più....in compenso ora mi dice blocco else senza if...
Se ogni tanto mi facessi i fatti miei invece di farmi venire queste
idee così creative.....
Porta pazienza ancora un pò SC, non mi mollare...


title: Colori maschera

text:
T_A_O ha scritto:
> sv ha scritto:

> > > definita....ci sto perdendo la salute... ma un giorno diventerň
> > > bravissimo e non vi scoccerň piů (sembra vero eh... :)
> >
> >
> > Vedi che deve essere Case (spazio) 1 e non Case1...
> >
> Fatto, ho separato anche Select Case che infatti ora non ringhia
> piů....in compenso ora mi dice blocco else senza if...
> Se ogni tanto mi facessi i fatti miei invece di farmi venire queste
> idee cosě creative.....
> Porta pazienza ancora un pň SC, non mi mollare...
Sarebbe stata una cosa giusta vedere un po' nell'Help :-))
Allora scrivi il tutto cosě:
 Private Sub Form_Current()
 Dim intA As Integer
 If (Not IsNull(Me.Data_uscita)) Then intA 1
 If (Not IsNull(Me.Data_spedizione)) Then intA 2
 If (Me.PrimaScad <= Date + 3) Then intA 3
 If (Me.SecondaScad <= Date + 3) Then intA 4
 Select Case intA
 Case 1
 Me.Corpo.BackColor = 5855577
 Case 2
 Me.Corpo.BackColor = 5855577
 Case 3
 Me.Corpo.BackColor = 33023
 Case 4
 Me.Corpo.BackColor = 255
 Case Else
 Me.Corpo.BackColor = 5478760>
 End Select
 End Sub
--



title: Colori maschera

text:
sv ha scritto:

> > > > definita....ci sto perdendo la salute... ma un giorno diventerò
> > > > bravissimo e non vi scoccerò più (sembra vero eh... :)
> > >
> > >
> > > Vedi che deve essere Case (spazio) 1 e non Case1...
> > >
>
>
>
> > Fatto, ho separato anche Select Case che infatti ora non ringhia
> > più....in compenso ora mi dice blocco else senza if...
> > Se ogni tanto mi facessi i fatti miei invece di farmi venire queste
> > idee così creative.....
> > Porta pazienza ancora un pò SC, non mi mollare...
>
> Sarebbe stata una cosa giusta vedere un po' nell'Help :-))
>
> Allora scrivi il tutto così:

Lo stavo facendo adesso, non avevo mai saputo che selezionando
l'istruzione con l'F1 ti forniva le spiegazioni...ho sempre solo usato
l'help facendo le ricerche.
Ora mi rimetto al lavoro, grazie mille (anche 2000...)


title: Colori maschera

text:
T_A_O ha scritto:

Allora, funziona tutto correttamente ora ma.....non era ciò che
volevo.
Praticamente così ho quasi tutti i record arancioni o rossi, anche
quelli scaduti da tempo immemore....
Proverò a cercare di risolvere da solo, ormai è una questione di
puntiglio...
Se la tua pazienza non si fosse esaurita ed avessi ancora voglia di
aiutarmi provo a riepilogarti il mio problema.
Se data_uscita è compilato (not null) maschera grigia
Se data-Spedizione è compilato maschera grigia
in subordine (cioè se ne data uscita ne data spedizione sono
compilati) e prima scadenza o seconda scadenza avverranno da quì a tre
giorni maschera rispettivamente arancio o rossa.
Grazie ancora.


title: Colori maschera

text:
[Cut]
> > > > Fatto, ho separato anche Select Case che infatti ora non ringhia
> > > > piů....in compenso ora mi dice blocco else senza if...
> > > > Se ogni tanto mi facessi i fatti miei invece di farmi venire queste
> > > > idee cosě creative.....
> > > > Porta pazienza ancora un pň SC, non mi mollare...
> > >
> > > Sarebbe stata una cosa giusta vedere un po' nell'Help :-))
> > >
> > > Allora scrivi il tutto cosě:
> > >
> > >  Private Sub Form_Current()
> > >  Dim intA As Integer
> > >  If (Not IsNull(Me.Data_uscita)) Then intA  = 1
> > >  If (Not IsNull(Me.Data_spedizione)) Then intA  = 2
> > >  If (Me.PrimaScad <= Date + 3) Then intA  = 3
> > >  If (Me.SecondaScad <= Date + 3) Then intA  = 4
> > >
> > >  Select Case intA
> > >
> > >  Case 1
> > >  Me.Corpo.BackColor = 5855577
> > >  Case 2
> > >  Me.Corpo.BackColor = 5855577
> > >  Case 3
> > >  Me.Corpo.BackColor = 33023
> > >  Case 4
> > >  Me.Corpo.BackColor = 255
> > >
> > >  Case Else
> > >  Me.Corpo.BackColor = 5478760>
> > >  End Select
> > >  End Sub
> > >
[cut]
> >
> > Lo stavo facendo adesso, non avevo mai saputo che selezionando
> > l'istruzione con l'F1 ti forniva le spiegazioni...ho sempre solo usato
> > l'help facendo le ricerche.
> > Ora mi rimetto al lavoro, grazie mille (anche 2000...)
> Allora, funziona tutto correttamente ora ma.....non era ciň che
> volevo.
> Praticamente cosě ho quasi tutti i record arancioni o rossi, anche
> quelli scaduti da tempo immemore....
> Proverň a cercare di risolvere da solo, ormai č una questione di
> puntiglio...
> Se la tua pazienza non si fosse esaurita ed avessi ancora voglia di
> aiutarmi provo a riepilogarti il mio problema.
> Se data_uscita č compilato (not null) maschera grigia
> Se data-Spedizione č compilato maschera grigia
> in subordine (cioč se ne data uscita ne data spedizione sono
> compilati) e prima scadenza o seconda scadenza avverranno da quě a tre
> giorni maschera rispettivamente arancio o rossa.
> Grazie ancora.
Ma queste sono proprio le condizioni che devi considerare a monte. Da
quello che capisco hai quattro controlli e su i valori che prendono devi
impostare le varie If.
If controllo1>0 And... Or...    Then intA=1
If controllo2<0 And... Or...    Then intA=2
.
.
.
Se nessuna condizione č soddisfatta allora
Case Else
.
.
End Select



title: Colori maschera

text:
sv ha scritto:
> [Cut]
>
> > > > > Fatto, ho separato anche Select Case che infatti ora non ringhia
> > > > > più....in compenso ora mi dice blocco else senza if...
> > > > > Se ogni tanto mi facessi i fatti miei invece di farmi venire queste
> > > > > idee così creative.....
> > > > > Porta pazienza ancora un pò SC, non mi mollare...
> > > >
> > > > Sarebbe stata una cosa giusta vedere un po' nell'Help :-))
> > > >
> > > > Allora scrivi il tutto così:
> > > >
> > > >  Private Sub Form_Current()
> > > >  Dim intA As Integer
> > > >  If (Not IsNull(Me.Data_uscita)) Then intA  = 1
> > > >  If (Not IsNull(Me.Data_spedizione)) Then intA  = 2
> > > >  If (Me.PrimaScad <= Date + 3) Then intA  = 3
> > > >  If (Me.SecondaScad <= Date + 3) Then intA  = 4
> > > >
> > > >  Select Case intA
> > > >
> > > >  Case 1
> > > >  Me.Corpo.BackColor = 5855577
> > > >  Case 2
> > > >  Me.Corpo.BackColor = 5855577
> > > >  Case 3
> > > >  Me.Corpo.BackColor = 33023
> > > >  Case 4
> > > >  Me.Corpo.BackColor = 255
> > > >
> > > >  Case Else
> > > >  Me.Corpo.BackColor = 5478760>
> > > >  End Select
> > > >  End Sub
> > > >
>
> [cut]
>
>
> > >
> > > Lo stavo facendo adesso, non avevo mai saputo che selezionando
> > > l'istruzione con l'F1 ti forniva le spiegazioni...ho sempre solo usato
> > > l'help facendo le ricerche.
> > > Ora mi rimetto al lavoro, grazie mille (anche 2000...)
>
>
> > Allora, funziona tutto correttamente ora ma.....non era ciò che
> > volevo.
> > Praticamente così ho quasi tutti i record arancioni o rossi, anche
> > quelli scaduti da tempo immemore....
> > Proverò a cercare di risolvere da solo, ormai è una questione di
> > puntiglio...
> > Se la tua pazienza non si fosse esaurita ed avessi ancora voglia di
> > aiutarmi provo a riepilogarti il mio problema.
> > Se data_uscita è compilato (not null) maschera grigia
> > Se data-Spedizione è compilato maschera grigia
> > in subordine (cioè se ne data uscita ne data spedizione sono
> > compilati) e prima scadenza o seconda scadenza avverranno da quì a tre
> > giorni maschera rispettivamente arancio o rossa.
> > Grazie ancora.
>
> Ma queste sono proprio le condizioni che devi considerare a monte. Da
> quello che capisco hai quattro controlli e su i valori che prendono devi
> impostare le varie If.
>
> If controllo1>0 And... Or...    Then intA=1
> If controllo2<0 And... Or...    Then intA=2
> .
> .
> .
> Se nessuna condizione è soddisfatta allora
>
> Case Else
> .
> .
>
> End Select
>
>
> --
> rgrds
> SC
>
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
eccomi ritornato...TAO mandami questo db che te lo metto a posto io :)


title: Colori maschera

text:
wlady ha scritto:

Grazie per la gentile (e apprezzata) offerta wlady ma non posso
proprio, è un db aziendale con dati sensibili.
Ora mi sono rimesso al lavoro, proverò a fare le modifiche passo passo
per cercare di capire dov'è l'inghippo, a questo punto credo sia solo
un problema di definire le piorità in maniera logica
> > > Se data_uscita è compilato (not null) maschera grigia
> > > Se data-Spedizione è compilato maschera grigia
> > > in subordine (cioè se ne data uscita ne data spedizione sono
> > > compilati) e, prima scadenza o seconda scadenza avverranno da quì a tre
> > > giorni, maschera rispettivamente arancio o rossa.
Aggiungo: in tutti gli altri casi maschera verde.
Prima e seconda scad sono campi che si autocompilano dopo aggiornamento
di un campo data di ricevimento  con DateAdd rispettivamente a 60 e 90
gg.
Sono tutte caselle di testo e, non so se possa essere rilevante, lavoro
in access 2003
Un saluto.


title: Colori maschera

text:
T_A_O ha scritto:

Credo che il problema stia nel fatto che, mentre per datauscita e
datasped., che sono caselle dove posso mettere sull evento after update
la condizione di cambio colore in quanto vi è simultaneità tra il
loro aggiornamento ed il cambio colore della maschera in grigio, oltre
che sul current della maschera, in prima e seconda scad, i cui valori
vengono aggiornati all'atto dell'inserimento del record per poi
rimanere invariati fino alla scadenza, non trovo nessun evento dove
potrei inserire la routine per il cambio colore, ho la routine solo sul
current della maschera quindi, facendo l'esperimento, cancellando tutto
e mettendo solo su current il cambio colore se la data primascad è <=
+3, praticemente mi diventano arancioni quasi tutti i records, anche
quelli che non corrispondono alla condizione impostata.
Credo che la select case sviluppata con l'aiuto di SC vada bene, ma ho
bisogno di mettere una condizione anche su un evento, non saprei quale,
di prima e seconda scad.
Non so se la mia analisi, per quanto possa risultare comprensibile, sia
anche esatta, se abbia focalizzato il problema.
Se è così, qui davvero mi fermo perchè non so proprio come potrei
ovviare al problema, se ci fosse ancora qualcuno disposto a perdere un
pò di tempo per chiarirmi le idee ed indicarmi una strada, mi farà
davvero un grande piacere.
Un saluto a tutti.


title: Una query per "non trovato"

author: Zorro

text:
Ciao a tutti,
come si imposta una query del tipo :
2 tabelle : Anagra1 e Anagra2 , voglio sapere quali sono i codici clienti di
Anagra2 che non ci sono in Anagra1
Grazie mille a tutti.
Zorro.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Una query per "non trovato"

author: Carlo Costarella

text:
"Zorro" <
spammercaga...@mail.it
> ha scritto nel messaggio
news:194Z130Z244Z250...@usenet.libero.it...
> Ciao a tutti,
> come si imposta una query del tipo :
> 2 tabelle : Anagra1 e Anagra2 , voglio sapere quali sono i codici clienti
> di
> Anagra2 che non ci sono in Anagra1
> Grazie mille a tutti.
> Zorro.
>
>
Autocomposizione query ricerca dati non corrispondenti.
Ciao, Carlo


title: Query...

author: Roberto

text:
Come faccio a passare il valore di una variabile
globale ad una query?!?


title: Query...

text:
"Roberto" <
robyr...@inwind.it
> ha scritto nel messaggio
news:L%LL8.12114$86.2...@twister1.libero.it...
> Come faccio a passare il valore di una variabile
> globale ad una query?!?
>
>
Assegna il valore della variabile ad una funzione e nella riga dei crieri
scrivi il nome della funzione: TuaFunzione()
In un modulo pubblico:
Global MiaVariabile as string '(o quello che vuoi)
Public Function TuaFunzione() as string '(o il tipo di dati che ti serve)
TuaFunzione = MiaVariabile
End Function
Ciao, Carlo


title: inizializzazione tasto F2

author: Gennaro Scognamiglio

text:
Posso impostare il tasto F2 per salvare un record.
Grazie mille


title: inizializzazione tasto F2

text:
Gennaro Scognamiglio ha scritto nel messaggio ...
>Posso impostare il tasto F2 per salvare un record.
Onore a te....:-)
Saluti.
Luciano


title: inizializzazione tasto F2

author: Emyr

text:


vedi autokeys
Saluti.
Emanuele.


title: Differenza quantità

author: Giorgio A.

text:
Saluti a tutti.
Per cortesia un aiuto
Ho una maschera (FrmInsEntrata) con relativa tabella (TblEntrata) con un
campo chiamato "Articolo" e uno chiamato "QtaEntrata"
e
una seconda maschera (FrmInsUscita) con relativa tabella (TblUscita) con un
campo chiamato "Articolo" e uno chiamato "QtaUscita"
Come fare per trovare la differenza dello stesso prodotto tra QtaEntrata e
QtaUscita?
Grazie 1000 e buon fine settimana
Giorgio


title: Differenza quantità

author: Alessandro Baraldi

text:
Giorgio A. ha scritto:

Quando si posta lo stesso messaggio su + NG è opportuno segnalarlo per
evitare inuili perdite di tempo..... tanto chi segue ICAA segue anche
il NG della MS.....
Ti ho già risposto.
@Alex


title: Differenza quantità

text:
"Giorgio A." <
interne...@aliceposta.it
> ha scritto nel messaggio
news:4480a2ad$0$14788$4faf...@reader4.news.tin.it...
> Saluti a tutti.
>
> Per cortesia un aiuto
>
> Ho una maschera (FrmInsEntrata) con relativa tabella (TblEntrata) con un
> campo chiamato "Articolo" e uno chiamato "QtaEntrata"
> e
> una seconda maschera (FrmInsUscita) con relativa tabella (TblUscita) con
> un campo chiamato "Articolo" e uno chiamato "QtaUscita"
>
> Come fare per trovare la differenza dello stesso prodotto tra QtaEntrata e
> QtaUscita?
Fermo restando quanto ti hanno detto Alessandro Baraldi e Giorgio Rancati
nell'altro NG e che sottoscrivo, al fine esclusivamente didattico puoi
ottenere in una maschera il saldo tra entrate ed uscite usando la funzione
DSum, ovvero, se il campo articolo e di tipo Numerico, nell'origine
controllo di una casella di testo non associata inserita in una maschera
puoi scrivere:
= DSum("QtaEntrata"; "TblEntrata"; "Articolo =" & Me!Articolo) -
DSum("QtaUscita"; "TblUscita"; "Articolo =" & Me!Articolo)
Dove Articolo è anche il nome di una casella di testo che contiene il codice
prodotto di cui vuoi determinare la giacenza.
Se invece il campo Articolo è di tipo testo, nell'origine controllo della
casella di testo non associata scriverai:
= DSum("QtaEntrata"; "TblEntrata"; "Articolo ='" & Me!Articolo & "'") -
DSum("QtaUscita"; "TblUscita"; "Articolo ='" & Me!Articolo "'")
> Grazie 1000 e buon fine settimana
Prego.
Ricordati comunque di seguire i consigli di normalizzazione ricevuti da
Alessandro e Giorgio
>
> Giorgio
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Differenza quantità

text:
Per cortesia, un ulteriore domanda
In questa maschera chiamata "ARCH_MAG ( ho un campo chiamato "DIFF_QTA" non
associato e in origine controllo
ho la seguente espressione:
=[QTA_ENTRATA]-[QTA_USCITA]
In una tabella chiamata "ENTRATE" (collegata alla maschera di cui sopra) ho
un campo chiamato "DIFFERENZA", si può inserire il valore dell'espressione
risultante nella maschera?
Se si, presumo da codice
Come fare?
Grazie e saluti
Giorgio


title: Differenza quantità

text:
"Giorgio A." <
interne...@aliceposta.it
> ha scritto nel messaggio
news:44817e79$0$36928$4faf...@reader3.news.tin.it...
> Per cortesia, un ulteriore domanda
>
> In questa maschera chiamata "ARCH_MAG ( ho un campo chiamato "DIFF_QTA"
> non associato e in origine controllo
> ho la seguente espressione:
> =[QTA_ENTRATA]-[QTA_USCITA]
>
> In una tabella chiamata "ENTRATE" (collegata alla maschera di cui sopra)
> ho un campo chiamato "DIFFERENZA", si puň inserire il valore
> dell'espressione risultante nella maschera?
>
> Se si, presumo da codice
> Come fare?
Per prima cosa in una maschera non ci sono i campi ma ci sono i controllo: i
campi sono contenuti solamente nelle tabelle e nelle query.
Ciň premesso, una delle regole fondamentali dei database relazionali č
quella di non memorizzare in una tabella un campo calcolato: quindi il modo
piů semplice per risolvere il tuo problema č quello di eliminare il campo
DIFFERENZA dalla tabella ENTRATE e continua a calcolarti al volo il valore
della differenza in un controllo non associato al momento che ti serve.
>
> Grazie e saluti
Prego



title: Differenza quantità

text:
Grazie Roberto
Buon fine settimana


title: perche toglie gli zeri?

author: Angelo Gaidano

text:
qualcuno sa spiegarmi come mai, se importo dei dati da un file txt con
la procedura carica dati esterni mi tiene i numeri che iniziano con
degli 0 mentre se uso transfertext mi toglie gli zero davanti al numero?
grazie in anticipo


title: perche toglie gli zeri?

author: Sergio MAZZA

text:
"Angelo Gaidano" <
aga...@tin.it
> ha scritto nel messaggio
news:39411DA2...@tin.it...

Quando importi i file con la procedura manuale, hai salvato la specifica? Se
sì, la puoi riutilizzare con il         DoCmd.TransferText acImportFixed,
"nomeSpecifica", "Prova", "NomeFile.txt"...
Ciao.


title: perche toglie gli zeri?

author: Sirio

text:
Gli zeri davanti ai numeri rimangono in due casi:
- quando importi i numeri in un campo di testo
- quando li importi in un campo numerico per cui è stato definito un formato
particolare, tipo "00000000"
Controlla, nella tabella in cui ci sono gli zeri, se il tipo del campo è
testo o numerico.


title: Conflitto (?) tra bookmarks in maschera e sottomaschera

author: Maril

text:
Ciao a tutti.
Chiedo aiuto per un problema con i bookmarks.
Nell'intestazione della form principale (form_00) del mio db ho tre combo
che uso per la ricerca veloce di record, quando devo fare dei controlli o
verifiche sui dati caricati.
1. FindAcc, ricerca con il codice record,
2. FindAlb, ricerca il numero dell' album (album di fotografie)
Ambedue agiscono su controlli che fanno parte della form_00
3. Ho poi FindInv che invece agisce sulla sottomaschera form_07 e cerca il
numero di inventario.
I primi due non mi danno nessun problema. Il terzo nemmeno se usato "da
solo", cioè se faccio solo ricerche con FindInv (una o più di una).
Il problema sorge se, dopo l'uso di FindInv, voglio usare una qualsiasi
delle altre due combo: FindInv blocca l'esecuzione delle altre e non ottengo
nessun risultato; per poter procedere devo passare dalla modalità modifica
(nessun filtro) della mia form alla modalità inserimento dati e poi tornare
alla modalità modifica e quindi fare la ricerca. Riesco ad avere lo stesso
risultato se ad es. vado in struttura e poi ripasso alla visualizzazione
maschera e se chiudo e riapro la maschera.
L'help dice che per poter usare il Bookmark la maschera deve essere
aperta (qui ho l'impressione che stia il nocciolo del problema), ma il
codice di FindInv contiene già le istruzioni per "aprire" la form_00. Ho
provato ad aggiungere un SetFocus alla fine dell'istruzione di FindInv, ma
non va; nemmeno va se questa istruzione la metto all'inizio del codice delle
altre due combo.
Vi sarei molto grata se mi deste qualche suggerimento per risolvere la cosa.
Per brevità riporto solo la fine dell'istruzione legata alla proprietà
AfterUpdate di FindInv, che mi da problemi.
Grazie infinite a tutti e complimenti per l'attività di questo NG.
Marilena
----------------
(...)
If rst.RecordCount = 0 Then
    MsgBox "Album non presente !", vbExclamation, "Nessun risultato"
    gstr = ""
    rst.Close
    Exit Sub
End If
rst.Close
End If
If Me!FindINV = 0 Then
DoCmd.Close acForm, Me.Name
End If
DoCmd.OpenForm FormName:="frm_00", _
WhereCondition:=gstr
Reset
Me!FindINV = ""
End Sub
------------------


title: Raggruppamento in Report....HELP

author: norica

text:
Ho creato un raggruppamento in un report in base ad un criterio : il codice
cliente.
Per ogni codice cliente su ogni pagina vengono stampate dei dati relativi a
quel cliente;
Vorreri inserire su ogni pagina il conteggio delle pagine (pagina n di m)
per ogni cliente non per tutte le pagine del report.....
Nel senso che se ci sono 4 pagine per il cliente X allora su ogni sua pagina
indichi il progressivo etc.etc.

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Raggruppamento in Report....HELP

author: MA

text:
"norica" <
nor...@libero.it
> ha scritto nel messaggio
news:81Z112Z191Z154Y...@usenet.libero.it...
> Ho creato un raggruppamento in un report in base ad un criterio : il
codice
> cliente.
> Per ogni codice cliente su ogni pagina vengono stampate dei dati relativi
a
> quel cliente;
> Vorreri inserire su ogni pagina il conteggio delle pagine (pagina n di m)
> per ogni cliente non per tutte le pagine del report.....
>
> Nel senso che se ci sono 4 pagine per il cliente X allora su ogni sua
pagina
> indichi il progressivo etc.etc.
>
Metti page sul gruppo non sul pič di pagina
MAssimialino


title: Seleziona file e cartella

author: Stefano

text:
Buongiorno,
ho Access 2016. Ho creato un file dove si deve scegliere una cartella
nel campo path_docs e un file nel campo foto_utente.
Come posso fare?
Grazie.

--
Questa email è stata esaminata alla ricerca di virus dal software antivirus Avast.
www.avast.com


title: Seleziona file e cartella

author: RobertoA

text:
Il 31/12/2022 14:41, Stefano ha scritto:
> Buongiorno,
> ho Access 2016. Ho creato un file dove si deve scegliere una cartella
> nel campo path_docs e un file nel campo foto_utente.
> Come posso fare?
> Grazie.
>

Non si capisce cosa stai chiedendo, o meglio io non lo capisco
Fai finta di doverlo spiegare a tua nonna, nel senso cerca di non
tralasciare informazioni che per te possono essere ovvie, ma per tua
nonna non lo sono, e riformula la richiesta


title: Seleziona file e cartella

author: Bruno Rossi

text: Fai una ricerca tramite un motore di ricerca qualsiasi scrvendo "filedialog vba access".


title: Seleziona file e cartella

author: BF Soluzioni

text:
Il 31/12/2022 14:41, Stefano ha scritto:
> Buongiorno,
> ho Access 2016. Ho creato un file dove si deve scegliere una cartella
> nel campo path_docs e un file nel campo foto_utente.
> Come posso fare?
> Grazie.
>

Scusate, sono stato poco chiaro.
Nella form di impostazioni dell'applicazione, Ho un campo che si chiama
path_docs dove dovrei tramite un pulsante aprire una dialog box per
impostare la cartella (es. n:\ditta\documenti\)
In un altro campo, devo invece scegliere un file (foto utente o logo
azienda) sempre scegliendola da una dialog box per restituire il nome
del file (es. n:\ditta\foto\logo\logoazienda.jpg)
Precedente lo avevo fatto con office 2003 ma adesso ho office 2016 e non
riesco più ad aprire il file mdb per poter prendere la procedura già
fatta quindi, devo reimpostarla. Ma qualsiasi prova fatta finora, mi
riporta errori.



title: Seleziona file e cartella

text:
Il 02/01/2023 10:56, BF Soluzioni ha scritto:
> Il 31/12/2022 14:41, Stefano ha scritto:
>> Buongiorno,
>> ho Access 2016. Ho creato un file dove si deve scegliere una cartella
>> nel campo path_docs e un file nel campo foto_utente.
>> Come posso fare?
>> Grazie.
>>
>
> Scusate, sono stato poco chiaro.
> Nella form di impostazioni dell'applicazione, Ho un campo che si chiama
> path_docs dove dovrei tramite un pulsante aprire una dialog box per
> impostare la cartella (es. n:\ditta\documenti\)
> In un altro campo, devo invece scegliere un file (foto utente o logo
> azienda) sempre scegliendola da una dialog box per restituire il nome
> del file (es. n:\ditta\foto\logo\logoazienda.jpg)
> Precedente lo avevo fatto con office 2003 ma adesso ho office 2016 e non
> riesco più ad aprire il file mdb per poter prendere la procedura già
> fatta quindi, devo reimpostarla. Ma qualsiasi prova fatta finora, mi
> riporta errori.
> Grazie.
>
>
Passa il file a qualcuno che possa leggere il formato mdb e te lo
converte in accdb, cosi' avrai tutto il vecchio programma a disposizione

Oppure se ti bastano le due funzioni per selezionare un file ed una
directory dai un'occhiata qua

https://learn.microsoft.com/it-it/office/vba/api/excel.application.filedialog


title: Seleziona file e cartella

author: BFS

text:
Il 02/01/2023 10:56, BF Soluzioni ha scritto:
> Il 31/12/2022 14:41, Stefano ha scritto:
>> Buongiorno,
>> ho Access 2016. Ho creato un file dove si deve scegliere una cartella
>> nel campo path_docs e un file nel campo foto_utente.
>> Come posso fare?
>> Grazie.
>>
>
> Scusate, sono stato poco chiaro.
> Nella form di impostazioni dell'applicazione, Ho un campo che si chiama
> path_docs dove dovrei tramite un pulsante aprire una dialog box per
> impostare la cartella (es. n:\ditta\documenti\)
> In un altro campo, devo invece scegliere un file (foto utente o logo
> azienda) sempre scegliendola da una dialog box per restituire il nome
> del file (es. n:\ditta\foto\logo\logoazienda.jpg)
> Precedente lo avevo fatto con office 2003 ma adesso ho office 2016 e non
> riesco più ad aprire il file mdb per poter prendere la procedura già
> fatta quindi, devo reimpostarla. Ma qualsiasi prova fatta finora, mi
> riporta errori.
> Grazie.
>
>

per certi post ci si mette meno a trovare la soluzione su google che non
a scriverli

ad ogni modo

On Error GoTo errore
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
f.Title = "Selezionare un file"
f.Show
MsgBox f.SelectedItems(1)
Exit Sub
errore:
If Err.Number = 5 Then
     MsgBox "Nessun file selezionato", vbCritical, "errore"
End If

BFS


title: Seleziona file e cartella

text:

Grazie a tutti. Ha funzionato.



title: Consigli per Be su Server

author: bizio

text:
Finora ho sviluppato piccoli applicativi access (divisi in FE e BE)
per uso ufficio dove in una Lan posizionavo il BE su un pc che faceva
da Server e i vari FE sugli altri pc.
Per l'ultimo lavoro realizzato invece dovrei posizionare il db su un
Server (del quale non conosco ancora le caratteristiche, credo su
Oracle!) ma non avendolo mai fatto vorrei, se possibile, un vostro
aiuto.
Il db è in formato accde (Access 2007-crittografato) e all'interno ho
inserito una routine sul click di un pulsante per procedere al Relink
delle Tabelle nel caso all'apertura il db non le trovasse.
Come devo procedere e quali sono le cose che devo sapere?
Esistono dei spazi sul web che mi consentono di fare delle prove?
Non so, qualsiasi vostro suggerimento per me è oro.
Saluti e un grazie fin d'ora


title: Consigli per Be su Server

author: Carlo Costarella

text:
"bizio" <
fabriz...@libero.it
> ha scritto nel messaggio
news:dd0d9c45-b385-4fa3...@q13g2000vbm.googlegroups.com...
Finora ho sviluppato piccoli applicativi access (divisi in FE e BE)
per uso ufficio dove in una Lan posizionavo il BE su un pc che faceva
da Server e i vari FE sugli altri pc.
Per l'ultimo lavoro realizzato invece dovrei posizionare il db su un
Server (del quale non conosco ancora le caratteristiche, credo su
Oracle!) ma non avendolo mai fatto vorrei, se possibile, un vostro
aiuto.
Il db � in formato accde (Access 2007-crittografato) e all'interno ho
inserito una routine sul click di un pulsante per procedere al Relink
delle Tabelle nel caso all'apertura il db non le trovasse.
Come devo procedere e quali sono le cose che devo sapere?
Esistono dei spazi sul web che mi consentono di fare delle prove?
Non so, qualsiasi vostro suggerimento per me � oro.
Saluti e un grazie fin d'ora
_____________________________
Probabilmente ti riferisci ad un database Oracle su macchina server.
Access non ha problemi a usare tabelle Oracle Database...Vanno collegate
usando i driver ODBC che sono normalmente presenti (sembra preferibile usare
quelli forniti da Microsoft)
Per approfondire:
http://www.reo.gov/gis/tools/infobase/LinkAccessToOracle.pdf
Ciao, Carlo


title: Seleziona da elenco

author: Gianluca

text:
In una maschera in visualizzazione "Foglio dati" come riesco ad avere
l'informazione dei record selezionati?
Grazie Gianluca


title: Seleziona da elenco

author: Alessandro Cara

text:

ci dovrebbero essere un paio di proprieta' [A97] SelTop e selHeight
Sono la prima selezionata e il numero di quante selezionate.
--
Alessandro Cara


title: strano comportamento controllo calendario

text:
se clicco una volta funziona e riesco su evento click del calendario a
eseguire un filtro data su una form mentre la seconda volta i giorni non si
cliccano piu ma cosa c'è che non và?
avete avuto anche voi questo problema?
grazie.


author: Oscar Manfredini

text:
"Simba883" <> se clicco una volta funziona e riesco su evento click del

Sul web si trovano vari calendari in puro Access: usali e butta nel cestino
l'ActiveX.
Ne trovi uno per esempio su:
http://www.mantuanet.it/alessandro.baraldi/
"Calendario alternativo all'OCX".
Ciao, Oscar


title: Conversione mdb--->txt

author: TGM

text:
Salve NG!
Ho un "leggero" problemino... ritengo anche di quelli classicissimi e
sicuramente già trattato tempo immemore fa, e magari più e più volte... sono
quindi a voi in prostazione di reverenziale scusa e supplica pietosa...
Dunque:
Access 2k, devo esportare una banale tabella dall'mdb in un file di testo.
Il problema è che alcuni campi numerici con decimali "automatici"
giustamente segano via gli zeri non significativi... 0,84 giustamente
esportato diventa "0,84" (!!)... ora io vorrei ottenere una formattazione di
tipo "0,0000" ovvero vorrei che 0,84 diventi "0,8400". Naturalmente ho già
provato a dire alla proprietà del campo in questione di assumere il formato
0,0000... ed in effetti se visualizzo la tabella, il contenuto del campo in
questione segue quel formato (0,8400)... ma quando poi vado ad eseguire
l'esportazione tutto si perde miseramente e il famoso 0,8400 torna a
diventare 0,84.... evidentemente la proprietà del formato del campo non
viene utilizzata dalla procedura di esportazione "automatica" di access....
quindi la domanda è: se non volessi mettere mano "bit per bit" con un pezzo
di codice che faccia lui 'sta conversione, come posso fare??
Secondo me un modo ci deve pur essere, visto che in analisi numeriche il
numero 0,84 è molto diverso dal numero 0,8400.... e quindi un problema
analogo non è sicuramente stato trascurato dagli sviluppatori di access....
Ringrazio e abbuono un carnet di favori di ricambio....
PS: se possibile rispondetemi anche via mail (
lanu...@tin.it
)
Thanks.
{TGM}


title: Conversione mdb--->txt

text:
>Dunque:
>Access 2k, devo esportare una banale tabella dall'mdb in un file di testo.
>Il problema č che alcuni campi numerici con decimali "automatici"
>giustamente segano via gli zeri non significativi... 0,84 giustamente
>esportato diventa "0,84" (!!)... ora io vorrei ottenere una formattazione
di
>tipo "0,0000" ovvero vorrei che 0,84 diventi "0,8400". Naturalmente ho gią
>provato a dire alla proprietą del campo in questione di assumere il formato
>0,0000... ed in effetti se visualizzo la tabella, il contenuto del campo in
>questione segue quel formato (0,8400)... ma quando poi vado ad eseguire
>l'esportazione tutto si perde miseramente e il famoso 0,8400 torna a
>diventare 0,84....
devi usare la funzione Format e poi devi usare le specifiche di
esportazione indicando che vuoi scaricare il campo in formato
"Testo" e non in formato numerico
Micio


title: Incollare il campo di una tabella su un campo di un'altra

author: sparito

text:
Ad esempio Tabella A contiene due campi con questi record:
Campo1     Campo2
1
2
3
La tabella B contiene questo campo con questi record
Campo1
A
B
C
Vorrei che il contenuto del campo1 della tabella B venisse copiato ed
incollato nel campo 2 della tabella A
In modo da avere questo risultato:
Campo1     Campo2
1                 A
2                 B
3                 C
Senza chiavi primarie o contatori per join, semplice copia e incolla, però
automatico.
E possibile?


author: Karl Donaubauer

text:

Puoi usare codice. Circa:
Dim db As DAO.Database
Dim rsA As DAO.Recordset, rsB As DAO.Recordset
Set db = CurrentDb
Set rsA = db.OpenRecordset("TabellaA", dbOpenDynaset)
Set rsB = db.OpenRecordset("TabellaB", dbOpenDynaset)
Do Until rsA.EOF Or rsB.EOF
    rsA.Edit
        rsA!Campo2 = rsB!Campo1
    rsA.Update
    rsA.MoveNext
    rsB.MoveNext
Loop
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:5gu4a4F...@mid.individual.net...
> Puoi usare codice. Circa:
>
> Dim db As DAO.Database
> Dim rsA As DAO.Recordset, rsB As DAO.Recordset
>
> Set db = CurrentDb
> Set rsA = db.OpenRecordset("TabellaA", dbOpenDynaset)
> Set rsB = db.OpenRecordset("TabellaB", dbOpenDynaset)
>
> Do Until rsA.EOF Or rsB.EOF
>    rsA.Edit
>        rsA!Campo2 = rsB!Campo1
>    rsA.Update
>    rsA.MoveNext
>    rsB.MoveNext
> Loop
provero' intanto grazie!


title: access con allarme

author: SABINA CAMERIN

text:
"ele" <
pap...@yahoo.com
> ha scritto nel messaggio
news:n4Ks5.49824$Wi7.7...@news.infostrada.it...
> ciao a tutti e bentornati dalle vacanze, vorrei sapere se con access è
> possibile impostare un allarme collegato all'orologio del PC.
> Se ad esempio inoltro una pratica in comune e so che devo avere una
risposta
> entro trenta giorni, vorrei riuscire ad impostare una sveglia che mi
ricordi
> la scadenza.
> E' possibile fare una cosa del genere? Devo tenere Access aperto o questa
> fantomatica funzione, arrivato il momento, lancia automaticamente access e
> mi dà la sveglia?
> spero di essere stato sufficientemente contorto
> ciao e grazie
> ele
>
Perchè non usi le Utilità di pianificazione di Windows?
Ciao.


title: access con allarme

author: ele

text:
"SABINA CAMERIN" <
sabina.cameri...@tin.it
> ha scritto nel
messaggio news:8p3m6j$qss$3...@nslave2.tin.it...

Ma con Access è possibile o no?


title: access con allarme

author: Enrico T.S.

text:
ele ha scritto nel messaggio ...
>
.............
>> > ciao a tutti e bentornati dalle vacanze, vorrei sapere se con access è
>> > possibile impostare un allarme collegato all'orologio del PC.
>> > Se ad esempio inoltro una pratica in comune e so che devo avere una
>> risposta
>> > entro trenta giorni, vorrei riuscire ad impostare una sveglia che mi
>> ricordi
>> > la scadenza.
>> > E' possibile fare una cosa del genere? Devo tenere Access aperto o
>questa
>> > fantomatica funzione, arrivato il momento, lancia automaticamente
access
>e
>> > mi dà la sveglia?
>> > spero di essere stato sufficientemente contorto
>> > ciao e grazie
>> > ele
>> Perchè non usi le Utilità di pianificazione di Windows?
>> Ciao.
>Ma con Access è possibile o no?
>
>
Come ti ha anticipato Sabrina devi utilizzare le
utilità di pianificazione in abbinamento con Access,
ovvero ti crei il tuo db con le funzioni, le macro etc etc,
e ti crei inoltre una macro che richiama una forma
la quale a sua volta nell'evento su apertura
controllera' se ci sono o no scadenze per il giorno
(non parliamo ora di come fare cio'), se trova tali scadenze
la form si aprira' con un bel messaggio all'interno ed un
tasto di ok, altrimenti cancelli l'evento , esci dalla maschera
e da access con Docmd.Quit.
A questo punto ti crei la tua pianificazione
giornaliera all'avvio di window dove potrai indicare la macro da eseguire
al lancio , una cosa del genere :
msaccess.exe /RUNTIME "C:\PROGETTO.MDB" /x "Macro Scadenze"
dove "Macro scadenze" sara' il nome della tua macro.
Bye :o)


title: access con allarme

text:
ele ha scritto nel messaggio ...
>
.............
>> > ciao a tutti e bentornati dalle vacanze, vorrei sapere se con access è
>> > possibile impostare un allarme collegato all'orologio del PC.
>> > Se ad esempio inoltro una pratica in comune e so che devo avere una
>> risposta
>> > entro trenta giorni, vorrei riuscire ad impostare una sveglia che mi
>> ricordi
>> > la scadenza.
>> > E' possibile fare una cosa del genere? Devo tenere Access aperto o
>questa
>> > fantomatica funzione, arrivato il momento, lancia automaticamente
access
>e
>> > mi dà la sveglia?
>> > spero di essere stato sufficientemente contorto
>> > ciao e grazie
>> > ele
>> Perchè non usi le Utilità di pianificazione di Windows?
>> Ciao.
>Ma con Access è possibile o no?
>
>
Come ti ha anticipato Sabrina devi utilizzare le



title: trasferisci foglio di calcolo su excel, mi da percorso non valido

author: montanaro®

text:
ho messo:
C:\Desktop\nomefile
qual'è il persorso esatto x esportarlo sul desktop?
grazie


author: Marco Papo

text:
"montanaro®" <
jor...@gmail.com
> ha scritto nel messaggio
news:1190103038....@y42g2000hsy.googlegroups.com...

Il desktop dell'utente Prova è nella cartella:
C:\Documents and Settings\prova\Desktop
Se cambia l'utente cambia il percorso
"C:\Documents and Settings\" & NomeUtente & "\Desktop"
Ciao
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.


text:
On 18 Set, 10:44, "Marco Papo" <
marco.pape...@gmail.com
> wrote:
> "montanaro®" <
jorj...@gmail.com
> ha scritto nel messaggionews:1190103038....@y42g2000hsy.googlegroups.com...
> ho messo:
> C:\Desktop\nomefile
> qual'è il persorso esatto x esportarlo sul desktop?
> grazie
>
> Il desktop dell'utente Prova è nella cartella:
> C:\Documents and Settings\prova\Desktop
>
> Se cambia l'utente cambia il percorso
> "C:\Documents and Settings\" & NomeUtente & "\Desktop"
>
> Ciao
>
> Marco Papettiwww.shortchannel.itIl software di commercio elettronico
OpenSourcewww.mondoideale.com
 - Prodotti naturali e biologici.
occhei, grazie 1000


title: Identificativo del PC

author: Stefano

text:
Esiste la possibilitą di individuare da codice il nome, o una altra
qualsiasi caratteristica univoca che mi dica quale dei 3 PC collegati ad un
database ha effettuato aggiornamenti ???
Grazie a tutti
Stefano


title: [OT] qualcuno ha compiuto gli anni oggi????

author: ciroteo

text:
PAGA DA BERE!
p.s. mi perdonerete ormai č chiaro che č la settimana degli OT ... dal
ritorno della CISA mi sento un un po' come la prima settimana di scuola ...
si "cazzeggia" un attimino...dalla prox giů la testa e pedalare.


author: Gaspare

text:
[CUT]
Azz..Matteo...come hai fatto a "scoprirmi"? Pago...tranquillo...anche se
sono 75 buoni ci vediamo fra poco sotto casa tua (passo con la moto ->
yamaha 600 tt) e ci facciamo una birra al bar ;-)


text:
[CUT]
Pardon...la moto l'ha presa mio nipote -> passo con l'ape ;-)


text:
[CUT]
...se vai su questo sito
http://apepiaggio.altervista.org/galleria1.htm
 č la
terza _> quella gialla ...a frappč ;-)


text:
[CUT]
> PAGA DA BERE!
Azz...Matteo -> "mi hai colpito" ! Ad oggi sono 75 buoni :-( ...se aspetti
giù passo con la moto (vecchia ape tricolore) e ci facciamo una bella birra
:-)


text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:N%kpe.993588$b5.43...@news3.tin.it...
>
> [CUT]
>
> ...se vai su questo sito
http://apepiaggio.altervista.org/galleria1.htm
 è
> la terza _> quella gialla ...a frappè ;-)
>
scherzi o fai sul serio?
Io sto impazzendo da tempo perchè vorrei trovare una vecchia vespa da
sistemare. Con namor ad arezzo ne abbiamo viste di tutti i colori, forse in
quelle zone è ancora possibile trovarne.
Qui nelle grandi città ormai sono tutti passati ai moderni scooter, anche
quelli con un tono un po' retrò che però nulla hanno a che vedere con la
mitica vespetta.
io la butto li ... per l'ape piaggio mi sa che non ci entro ...


author: Point Break

text:
[CUT]
> scherzi o fai sul serio?
> Io sto impazzendo da tempo perchè vorrei trovare una vecchia vespa da
> sistemare. Con namor ad arezzo ne abbiamo viste di tutti i colori, forse
> in quelle zone è ancora possibile trovarne.
> Qui nelle grandi città ormai sono tutti passati ai moderni scooter, anche
> quelli con un tono un po' retrò che però nulla hanno a che vedere con la
> mitica vespetta.
> io la butto li ... per l'ape piaggio mi sa che non ci entro ...
>
Ciao Matteo,
vedi che per quanto concerne la vespa (es.
http://www.vespaforever.net/
) qui
ad udine qualcosa trovi...anch'io amo tantissimo le vecchie vespe (quelle 50
montate 125 e super-carrozzate o quelle 125 primavera...non sto qui a
raccontarti la mia storia con le moto...ho il crociato anteriore del
ginocchio sx  "andato" - da ristrutturare -  per una brutta caduta con un
moto enduro...ma ormai fa parte del "passato" :-( ...) ma cosa vuoi fare?
Acquistarla qui e fartela spedire?
Prova un pò in quel sito che ti ho suggerito...magari ti daranno qualche
consiglio "migliore" ;-)
Per i 75 anni si scherza...ne ho appena appena 70 ;-)
Alla prossima  :-)
Gaspare


title: impossibile registrare ocx in windows vista AIUTO!

text:
sembrer� incredibile ma ho un file .ocx che riesco a registrare senza
problemi su windows vista del mio portatile che come account � standard,
riesco a registrare lo stesso ocx su un pc con windows 7 che come account �
administrator
MA! non c'� verso di registrare lo stesso ocx su un computer windows vista
con account administrator non capisco il motivo, perch� sul mio si e quello
no? quale differenza pu� esserci?
qualcuno sa aiutarmi? grazie.


author: Geppo

text:

Forse sul tuo � disabilitato il "Controllo Account Utente"?
> qualcuno sa aiutarmi? grazie.
--
Ciao
Geppo


text:
>
> Forse sul tuo � disabilitato il "Controllo Account Utente"?
>
>> qualcuno sa aiutarmi? grazie.
>
> --
> Ciao
> Geppo
No no, disattivato subito anche su quello del cliente appunto perch� pensavo
fosse quello il motivo, ma nulla! altre idee?
Mi da qualcosa del tipo "impossibile trovare il modulo eecc..."


author: Carlo Costarella

text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4b7946f1$0$824$4faf...@reader5.news.tin.it...

Librerie VB6 runtime mancanti?
Questo ocx a cosa si appoggia?
Normalmente in XP e Vista le librerie vb6 sono gi� presenti..ma a scanso di
errori:
http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=it
Ciao, Carlo


text:
> Librerie VB6 runtime mancanti?
> Questo ocx a cosa si appoggia?
> Normalmente in XP e Vista le librerie vb6 sono gi� presenti..ma a scanso
> di errori:
>
http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=it
>
> Ciao, Carlo
si chiama activelock.ocx ed � quel file che consente di creare db demo 30
giorni attivabile con codice macchina diverso da computer a computer.
pensi che quel service pack da te segnalato possa essermi utile?
Grazie.


text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4b7c2927$0$1110$4faf...@reader2.news.tin.it...

Se ti riferisci a questo ocx:
http://www.activelock.com/it/download.html
direi che � indispensabile.
Ciao, Carlo


text:
>
> Se ti riferisci a questo ocx:
>
http://www.activelock.com/it/download.html
> direi che � indispensabile.
>
> Ciao, Carlo
>
si quello, grazie, credo di aver trovato la versione 1.8 che non richiede
tali librerie e si registra sia in vista che in 7
ciao.


title: Arrotondare

author: Raffaele

text:
Salve, vorrei sapere come fare a creare un comando via codice che mi
arrotondi un numero alle dieci lire.
Ciao!


title: Arrotondare

text:
"Raffaele" <
rad...@libero.it
> ha scritto nel messaggio
news:7uWz6.22668$wG3.1...@news.infostrada.it...
> Salve, vorrei sapere come fare a creare un comando via codice che mi
> arrotondi un numero alle dieci lire.
> Ciao!
>
>
>
Guarda uno dei post precedenti dove è stata data più di una risposta.
Ciao, Carlo


title: Arrotondare

author: Roberto da casa

text:
"Raffaele" <
rad...@libero.it
> ha scritto nel messaggio
news:7uWz6.22668$wG3.1...@news.infostrada.it...
> Salve, vorrei sapere come fare a creare un comando via codice che mi
> arrotondi un numero alle dieci lire.
> Ciao!
>
Usando del codice VBA, alle dieci lire per difetto:
Me!ControlloArrotondato = Int(Me!ControlloDaArrotondare/10)*10
alle 10 lire per eccesso:
Me!ControlloArrotondato = Int(Me!ControlloDaArrotondare/10+ 0.9)*10
alle 10 lire prossime:
Me!ControlloArrotondato = Int(Me!ControlloDaArrotondare/10+ 0.5)*10
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Arrotondare

text:
Grazie Roberto per essere stato cosģ esauriente ed a buon rendere, ammesso
che io ne sia in grado....;-) )
ciao


title: Re: Problema con le date

author: access il top

text:
"Michele" <
mic...@artdecorationsa.com
> ha scritto nel messaggio
news:41f4ba8a$1...@news.bluewin.ch...
> Ciao Raga
>
> In un form ho un campo dove inserisco il mese / anno e' mi restituisce
> sempre il il primo giorno del mese / anno es . 01.02.2005
>
>
> Come  faccio a determinare quale e' l'ultimo giorno del mese
>
> es. 01.02.2005        28.02.2005
> es. 01.02.2004        29.02.2004
>
> Ciao
>
> Grazie
>
>
cerca sul sitocomune trovi parecchi esempi
uno che mi viene in mente č fare questo trucchetto
vuoi l'ultimo giorno di febbraio 2004
ultimogiorno = 01/03/2004 - 1
perň non devi scrivere la data cosě altrimenti ti da errore cerca
nell'help ecc


title: Re: Problema con le date

text:
[cut]
Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Federico Luciani intitolata "Determinare il primo e l'ultimo giorno del
mese"
www.sitocomune.com
Saluti,
--
strano...mavero
mail: mauro . chiarello @ gmail . com
ICQ: 292-118-822
Web: Under Construction
"Un'idea che non sia pericolosa non merita affatto di essere chiamata idea"
Oscar Wilde


title: Re: Problema con le date

author: Michele


title: Re: Problema con le date

author: Nick

text:
"Michele" <
mic...@artdecorationsa.com
> ha scritto nel messaggio
news:41f4ba8a$1...@news.bluewin.ch...

brutalmente potresti andare al primo del mese successivo e togliere 1 gg
con la funzione datediff  (vedi help)
ciao
Nick


title: Re: Problema con le date

text:
"Michele" <
mic...@artdecorationsa.com
> ha scritto nel messaggio
news:41f4ba8a$1...@news.bluewin.ch...

Non sarebbe male se ogni tanto si facesse una capatina sul Sito Comune prima
di postare sul NG.
Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Federico Luciani intitolata "Determinare il primo e l'ultimo giorno del
mese".
>
> Ciao
>
> Grazie
Prego
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Equivalente SQL di format

text:
Qualcuno mi sa dire se in Transact SQL esiste qualche funzione per
sostituire un istruzione del tipo:
Format(var,"00")
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: [OT] access su palmari rugged w10

author: BFS

text:
Ciao a tutti,

qualcuno ha mai provato ad installare Access in uno di questi

https://it.aliexpress.com/item/original-6-Handheld-Terminal-PDA-Windows-10-Rugged-Tablet-PC-Waterproof-Mobile-phone-GPS-1D-2D/32790051601.html

in pratica sono smartphone corrazzati con lettore barcode e windows 10

Non riesco a capire se montano il classico windwos 10 o qualcosa di
"castrato"

esperienze in merito?

grazie
BFS


title: [OT] access su palmari rugged w10

author: Potone

text:

Ciao,
esperienza diretta no, ma sul sito si fa menziona a Windows 10 iot.
Mat.


title: [OT] access su palmari rugged w10

text:

non conoscevo questa versione di windows
ma leggo
http://wincom.blob.core.windows.net/documents/Windows_10_IoT_Platform_Overview.pdf

classic windows applications win32/.net

forse access runtime gira..

BFS


title: [OT] access su palmari rugged w10

text:

Si, "dovrebbe" funzionare.
Questa è la pagina dedicata:
https://www.microsoft.com/en-us/WindowsForBusiness/windows-iot

puoi scaricare le versioni di prova.

Ciao
Mat.


title: [OT] access su palmari rugged w10

text:

sto installando l'iso su virtual box..vedremo
grazie della dritta

BFS


title: [OT] access su palmari rugged w10

text:
Il giorno venerdì 16 marzo 2018 07:17:23 UTC+1, BFS ha scritto:
[Cut]
> sto installando l'iso su virtual box..vedremo
> grazie della dritta
>
> BFS

Perfetto, informa il gruppo su com'è andata poi.
Ciao
Mat.


title: [OT] access su palmari rugged w10

text:

ho scaricato questa iso
https://www.microsoft.com/it-it/evalcenter/evaluate-windows-10-enterprise

di quella che dovrebbe essere Win 10 IOT Enterprise anche se sparisce la
dicutura IOT dal sito dove la si preleva

di fatto installa un windows 10 con funzioni maggiori rispetto a W10 pro
tutti i programmi si installano senza problemi

quindi se questi palmari montano sul serio W10 iot enterprice direi che
sono a cavallo

ho solo il dubbio che possano essere due cose diverse win10 iot
enterprise e win10 enterprise

dal sito non riesco a capirlo

BFS


title: [OT] access su palmari rugged w10

author: Ammammata

text:
Il giorno Thu 15 Mar 2018 10:22:03a, *BFS* ha inviato su
it.comp.appl.access il messaggio news:p8ddvs$15o2$
1...@gioia.aioe.org
.
Vediamo cosa ha scritto:

>
https://it.aliexpress.com/item/original-6-Handheld-Terminal-PDA-Windows

> -10-Rugged-Tablet-PC-Waterproof-Mobile-phone-GPS-1D-2D/32790051601.html

specifiche:

 CPU: Il centro del quadrato

questa mi sfugge...

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


title: [OT] access su palmari rugged w10

text:
Il giorno venerdì 16 marzo 2018 11:58:27 UTC+1, Ammammata ha scritto:
[Cut]
>
> specifiche:
>
>  CPU: Il centro del quadrato
>
> questa mi sfugge...
>
Interessante traduzione di:
CPU: Quad Core

Mat.


title: [OT] access su palmari rugged w10

text:

Non è specificato se è la versione iot Core o Enterprise, se è la Core non puoi farci girare Access, se è la Enterprise si.
L'unico modo per saperlo è contattare il produttore visto che sul sito non è specificato.
Ciao
Mat.


title: [OT] access su palmari rugged w10

text:
Il giorno Sat 17 Mar 2018 04:22:11p, *Potone* ha inviato su
it.comp.appl.access il messaggio news:1982bc87-5590-4496-a0b3-
42ea16...@googlegroups.com
. Vediamo cosa ha scritto:

vero... :(

grazie



title: [OT] access su palmari rugged w10

text:

la versione è enterprice e ho chiesto che provassero a installare il
runtime ma nulla da fare, l'installazione si blocca subito.
quindi, scarto windows e mi metto sotto a sviluppare l'app con android

peccato
BFS


title: [OT] access su palmari rugged w10

author: RobertoA

text:

Forniscono un sdk/esempi per l'uso dello scanner ?


title: [OT] access su palmari rugged w10

text:

nulla.
ho solo chiesto che provassero a scaricare il runtime 2010 ed
installarlo. E mi hanno detto che l'installazione si blocca subito

c'è una versione con android 5 userò quella, Con android studio hai
tutti gli emulatori e ogni progetto puoi decidere a che API google
garantirlo. Andrò sul sicuro con quello

peccato perchè la velocità di sviluppo di access me la sogno con android

BFS


title: Stored Procedure

author: Enrico Pietrobon

text:
Ciao a tutti
Sto impazzendo con questa conversione e ora sono arrivato alle stored
procedure...
premetto che non ho mai lavorato con le SP
Ho una semplicissima Stored del tipo (select * from tabella)
che funziona correttamente.
Voglio applicare questa stored ad una maschera come recordsource...
Che devo fare ?
Ciao
Grazie
Enrico Pietrobon


title: Stored Procedure

text:
"Enrico Pietrobon" <
enrico.p...@tiscali.it
> ha scritto nel messaggio
news:48f85b28$0$41662$4faf...@reader4.news.tin.it...

nella proprietą origine dati: exec tuaSP
oppure da codice
tuaform.RecordSource = "exec tuaSP"
se la tua sp ha anche dei parametri : "exec tuasp " & param1 & "," &
param2.....
ciao
BFS


title: Stored Procedure

text:
BFS ha scritto:
> "Enrico Pietrobon" <
enrico.p...@tiscali.it
> ha scritto nel messaggio
> news:48f85b28$0$41662$4faf...@reader4.news.tin.it...
>> Ciao a tutti
>> Sto impazzendo con questa conversione e ora sono arrivato alle stored
>> procedure...
>>
>>
>> premetto che non ho mai lavorato con le SP
>>
>> Ho una semplicissima Stored del tipo (select * from tabella)
>> che funziona correttamente.
>>
>> Voglio applicare questa stored ad una maschera come recordsource...
>> Che devo fare ?
>>
>> Ciao
>> Grazie
>>
>> Enrico Pietrobon
>
> nella proprietà origine dati: exec tuaSP
> oppure da codice
>
> tuaform.RecordSource = "exec tuaSP"
>
> se la tua sp ha anche dei parametri : "exec tuasp " & param1 & "," &
> param2.....
>
> ciao
> BFS
>
>
>
>
Dunque...
Mi sa che mi manca qualcosa....
Maschera Nuova... (maschera1)
su Form_Open inserisco
maschera1.recordsource "exec pippo"
Non ho provato ma secondo me manca qualcosa...
Ho sabglio.
grazie
Enrico Pietrobon


title: Stored Procedure

text:
"Enrico Pietrobon" <
enrico.p...@tiscali.it
> ha scritto nel messaggio
news:48f85e4a$0$41661$4faf...@reader4.news.tin.it...
> BFS ha scritto:
>> "Enrico Pietrobon" <
enrico.p...@tiscali.it
> ha scritto nel messaggio
>> news:48f85b28$0$41662$4faf...@reader4.news.tin.it...
>>> Ciao a tutti
>>> Sto impazzendo con questa conversione e ora sono arrivato alle stored
>>> procedure...
>>>
>>>
>>> premetto che non ho mai lavorato con le SP
>>>
>>> Ho una semplicissima Stored del tipo (select * from tabella)
>>> che funziona correttamente.
>>>
>>> Voglio applicare questa stored ad una maschera come recordsource...
>>> Che devo fare ?
>>>
>>> Ciao
>>> Grazie
>>>
>>> Enrico Pietrobon
>>
>> nella proprietą origine dati: exec tuaSP
>> oppure da codice
>>
>> tuaform.RecordSource = "exec tuaSP"
>>
>> se la tua sp ha anche dei parametri : "exec tuasp " & param1 & "," &
>> param2.....
>>
>> ciao
>> BFS
>>
>>
>>
>>
> Dunque...
>
> Mi sa che mi manca qualcosa....
>
>
> Maschera Nuova... (maschera1)
> su Form_Open inserisco
>
> maschera1.recordsource "exec pippo"
>
>
>
> Non ho provato ma secondo me manca qualcosa...
> Ho sabglio.
>
> grazie
>
> Enrico Pietrobon
scusa stai lavorando con file adp? Parli di stored procedure (non view)?
Il progetto č connesso alla base dati?
Se si:
dal menu a tendina della tua maschera in modalitą struttura su origine dati
ti appaiono sia view che sp...basta selezionarla!!
se lo fai da codice...l'istruzione č:
maschera1.recordsource="Exec tuasp"
se invece parliamo di viste e non di sp ti basta
maschera1.recordsource="tuaView"
ciao!
BFS


title: Stored Procedure

text:
>>>
>> Dunque...
>>
>> Mi sa che mi manca qualcosa....
>>
>>
>> Maschera Nuova... (maschera1)
>> su Form_Open inserisco
>>
>> maschera1.recordsource "exec pippo"
>>
>>
>>
>> Non ho provato ma secondo me manca qualcosa...
>> Ho sabglio.
>>
>> grazie
>>
>> Enrico Pietrobon
>
> scusa stai lavorando con file adp? Parli di stored procedure (non view)?
> Il progetto è connesso alla base dati?
> Se si:
>
> dal menu a tendina della tua maschera in modalità struttura su origine dati
> ti appaiono sia view che sp...basta selezionarla!!
>
> se lo fai da codice...l'istruzione è:
>
> maschera1.recordsource="Exec tuasp"
>
> se invece parliamo di viste e non di sp ti basta
>
> maschera1.recordsource="tuaView"
>
> ciao!
> BFS
>
Scusami...
Ho dato per socntato molte cose....
Il progetto non è un progetto ADP, ma MDB.
Quindi Niente SP niente query e niente View
Per aprire una tabella Su Sql attualmente faccio questo...
     Dim S As String, DBL As New ADODB.Connection
     Dim t1 As New ADODB.Recordset
     StringaAp = "Stringa per connessione tramite ODBC"
     DBL.Open StringaAp
     S = "Select * From tabella"
     t1.Open S, DBL, adOpenKeyset, adLockOptimistic
     t1!Controllo = xxxx
     t1.Update
     t1.Close
e la cosa funziona perfettamente...
Ora devo aprire delle maschere che anno delle tabelle come recordsource.
Non avendo però collegate fisicamente le tabelle mi è impossibile.
Ho pensato quindi alle SP..
Ma come fare ?
Grazie nuovamente
Enrico Pietrobon


title: Stored Procedure

text:
"Enrico Pietrobon" <
enrico.p...@tiscali.it
> ha scritto nel messaggio
news:48f86336$0$41656$4faf...@reader4.news.tin.it...

non ho idea io mi trovo da dio con gli adp agganciati sqlserver/msde2000 e
2005
vedo le sp e le view come normali oggetti e le posso tranquillamente usare
come origine per le mie maschere...sia associate in struttura che da codice
come ti ho descritto.
La soluzione mdb ->odbc-> sql l'ho abbandonata subito mi dava troppe noie.
Però vedo che in moltissimi la usano quindi se poni meglio la domanda nel
oggetto del post probabilmente qualcuno ti aiuta
ciao,
BFS


title: Stored Procedure

author: Alessandro Cara

text:
Enrico Pietrobon ha scritto:
[cut]
> Ora devo aprire delle maschere che anno delle tabelle come recordsource.
> Non avendo però collegate fisicamente le tabelle mi è impossibile.
Ok le forms sono associate. Probabilmente se al momento dell'apertura
non hai ancora la connesione conviene lasciare vuoto il recordsource.
Le tabelle ad un certo punto le dovrai pur vedere. i.e. una connessione
al db dvrai pur farla.
Una volta fatta la connessione mi sembra che un set form.recordsource =
recordset sia sempre possibile.
--
ac


title: Stored Procedure

text:
Alessandro Cara ha scritto:

le tabelle nel Db non si vedono.
Come già detto utilizzo ADO via ODBC per il collegamento delle stesse.
Lego tranquillamente le tabelle con le istruzioni che ti ho postato prima.
il problema è creare un RecordSource su una maschera...
Questo proprio non ci riesco...
Che poi si possa fare con un SP o con una View... fa nulla...
Enrico Pietrobon


title: Stored Procedure

text:
Enrico Pietrobon ha scritto:
> Alessandro Cara ha scritto:
>> Enrico Pietrobon ha scritto:
>> [cut]
>>> Ora devo aprire delle maschere che anno delle tabelle come recordsource.
>>> Non avendo però collegate fisicamente le tabelle mi è impossibile.
>> Ok le forms sono associate. Probabilmente se al momento dell'apertura
>> non hai ancora la connesione conviene lasciare vuoto il recordsource.
>>
>> Le tabelle ad un certo punto le dovrai pur vedere. i.e. una
>> connessione al db dvrai pur farla.
>>
>> Una volta fatta la connessione mi sembra che un set form.recordsource
>> = recordset sia sempre possibile.
>> --
>> ac
>
> le tabelle nel Db non si vedono.
> Come già detto utilizzo ADO via ODBC per il collegamento delle stesse.
Appunto lo avevi gia' detto.
e allora? C'e' un oggetto *connection*? E' il modo normale di operare in
Asp, che vede solo ADO. Apri la connessione sul DB e poi puoi fare gli
accessi alle tabelle o a tutti gli oggetti presenti (viste,sp,..e tutto
il disponibile) senza la connessione neanche una frattura dello
spaziotempo riesce a farti accedere.
>
> Lego tranquillamente le tabelle con le istruzioni che ti ho postato prima.
>
> il problema è creare un RecordSource su una maschera...
Aridajie ;<) rs.open currentconnection,sql,...blabla
set form.recordset = rs
Ma i suggerimenti che ti avevo dato hai cercato di metterli in pratica?
--
ac


title: Variabili per una query

author: FID

text:
Salve, sto inserendo gli orari ferroviari di una ferrovia locale in un
database, in modo da averli sul pc mentre lavolro. L'origine dati del
report che attualmente uso per la stampa di fogli per i viaggiatori è del
tipo "  SELECT Dispari.Treno, Dispari.Note, Dispari.BariCentro,
Dispari.Capurso FROM Dispari WHERE (((Dispari.Capurso) Is Not Null) AND
((Dispari.Pari)=False) AND ((Dispari.viacasamassima)=False));   ". Se
volessi invece che Dispari.BariCentro e Dispari.Capurso, le due stazioni,
siano da digitare in due text o tanto meglio in 2 combo, in modo da poter
scegliere gli orari da stampare e non avere decine e decine di query e
reoport come fare?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Variabili per una query

author: melo

text:
FID ha scritto:
> Salve, sto inserendo gli orari ferroviari di una ferrovia locale in un
> database, in modo da averli sul pc mentre lavolro. L'origine dati del
> report che attualmente uso per la stampa di fogli per i viaggiatori è del
> tipo "  SELECT Dispari.Treno, Dispari.Note, Dispari.BariCentro,
> Dispari.Capurso FROM Dispari WHERE (((Dispari.Capurso) Is Not Null) AND
> ((Dispari.Pari)=False) AND ((Dispari.viacasamassima)=False));   ". Se
> volessi invece che Dispari.BariCentro e Dispari.Capurso, le due stazioni,
> siano da digitare in due text o tanto meglio in 2 combo, in modo da poter
> scegliere gli orari da stampare e non avere decine e decine di query e
> reoport come fare?
> grazie
dovrai passare a Dispari.BariCentro e Dispari.Capurso le condizioni:
forms!nomemaschera!combo1.value e forms!nomemaschera!combo2.value
dove combo1 e combo2 sono le caselle combinate di nomemaschera dove
selezionerai le stazioni desiderate
ciao



title: importare stringhe da un file txt in tabella access

author: Lisa

text:
Ciao a tutti
il problema è questo
ho un file di testo che si chiama per esempio miofile.txt nella cartella
c:\dati
questo file di testo è composto da una serie di dati in posizioni ben
precise che si ripetono per esempio ogni 8 righi:
Esempio:
                             1            2         3          4          5
6
               1            0            0         0          0          0
0
rigo 1      Società Pinco Pallino
rigo 2
rigo 3      data        25/03/2005                     documento     123456
rigo 4
rigo 5
rigo 6      Fine dati
rigo 7
rigo 8
rigo 9      Società Pinco Pallino
rigo 10
rigo 11    data        15/01/2001                     documento     457874
rigo 12
rigo 13
rigo 14    Fine dati
rigo 15
rigo 16
e cosi via per migliaia di righi.
Ho una tabella con due campi:
DATA
DOC
lo scopo è quello di creare una routine che mi va a leggere il file txt
indicato sopra e mi importi
nel record 1 la data 25/03/2005 che si trova nella posizione 3,10 nel campo
DATA e il valore 123456 che si trova in posizione 3,60 nel campo DOC;
nel record 2 la data 15/01/2001 che si trova nella posizione 3+8,10 nel
campo DATA e il valore 457874 che si trova in posizione 3+8,60 nel campo
DOC;
e cosi via fino alla fine del file txt che potrebbe essere anche di decine
di migliaia di righe ma con valori che si ripetono sempre ogni 8 righi
Grazie del vostro aiuto ....
Lisa


text:
"Lisa" <
kal...@libero.it
> ha scritto nel messaggio
news:CS8ie.11419$795.3...@twister1.libero.it...

Il file di testo è esattamente come lo riporti?
L'importazione è una tantum o deve essere periodica?
Ciao, Carlo


text:
Il file di testo naturalmente non è come riportato ci sono molti più dati
anche se a me ne servono solo due, puo' essere molto lungo anche centomila
righe.
In poche parole come se fossero delle stampe sequenziali di dati che
compaiono sullo schermo e stampate su un file inveced i fare un print
screen.
In effetti l'importazione di questi dati è periodica ma sempre con un file
txt differente.
Una volta importato i dati di un file questo puo' anche venir cancellato per
poi esserene creato a distanza di un mese un altro per importarlo in un
nuovo database.
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:DTfie.907073$b5.39...@news3.tin.it...



text:
"Lisa" <
kal...@libero.it
> ha scritto nel messaggio
news:6Aqie.103393$IN.17...@twister2.libero.it...
>
> Il file di testo naturalmente non è come riportato ci sono molti più dati
> anche se a me ne servono solo due, puo' essere molto lungo anche centomila
> righe.
> In poche parole come se fossero delle stampe sequenziali di dati che
> compaiono sullo schermo e stampate su un file inveced i fare un print
> screen.
> In effetti l'importazione di questi dati è periodica ma sempre con un file
> txt differente.
> Una volta importato i dati di un file questo puo' anche venir cancellato
> per poi esserene creato a distanza di un mese un altro per importarlo in
> un nuovo database.
>
>
CUT
Bhe, certo che il file di testo è sempre diverso, questo lo avevo capito.
Mi riferivo alla struttura.
Se vuoi costruire un algoritmo che estrae i dati dal file e che vale per
sempre, è necessario che la struttura del file (non i dati in esso
contenuto) sia identica.
In caso contrario dovrai costruire un algoritmo per ogni file.
Puoi dirmi qualcosa su questa struttura? Quale programma la genera?
Qundo dici:..." posizione 3,10 nel campo
DATA e il valore 123456 che si trova in posizione 3,60 nel campo DOC",
significa che in questa posizione troveremo sempre i dati (ovviamente
diversi) che ti interessano.
Quello che voglio dire è che se riusciamo a stabilire il filtro, la griglia
da applicare al file sarà facile costruire l'algoritmo di estrazione.
Una volta mi è capitato di dover estrarre una stringa da un file generato da
un chip e non da un database.
Il file era incasinatissimo ma prima e dopo la stringa che mi interessava
metteva una certa sequenza di caratteri che non si ripeteva mai più in altri
parti del file. In aggiunta il file era formato in continuo e veniva
trasmesso continuamente ad una porta seriale. Una specie di sniffer
(algoritmo) stava in ascolto sulla seriale e non appena individuava la
sequenza specifica incominciava a registrare, per terminare alla lettura
della seconda ricorrenza della sequenza di caratteri individuata. Insomma
cerchiamo di capire la struttura di questo file e poi ci possiamo lavorare.
Ciao, Carlo


text:
Ciao
come avrai capito anche dall'altro mio post il problema è in effetti dato
dal 3270.
Ho gia un programma che mi stampa su file un elenco di dati relativi a
clienti.
I dati relativi ad ogni cliente sono visualizzati su pagine successive e il
programma che ho mi pesca da un database access i numeri identificativi dei
clienti li inserisce in automatico nell'emulatore 3270 il quale mi
visualizza dei dati del cliente e stampa un estratto della posizione del
cliente in un file "stampa su file".
per cui se mi interessa la posizione di 1000 clienti invece di inserire il
codice di ciascuno di essi manualmente nell'emulatore 3270, visualizzare la
schermata relativa e mandarla in stampa su di un file con questo programma
che ho (che non ho fatto io purtroppo) automatizzo il tutto.
In effetti la cosa che a me interessava era che invece di stamparmi l'intera
schermata questo programmino potesse estrami dalla schermata visualizzata
solo alcuni dati, quelli che ti ho indicato prima e me li importasse in
access accanto al numero cliente della tabella.
Siccome non lo fa ed il programma è compilato pensavo di utilizzare il file
che mi creava e con una routine access importare i dati in esso contenuto.
Questo per chiarezza visto che sei cosi gentile (almeno ci capisci qualcosa)
Per rispondere alla tua domanda:
Si la struttuta del file è sempre la stessa cambiano solo i dati che si
troveranno sempre nelle stesse posizioni ad un intervallo diciamo di n righe
l'uno dall'altro
per cui per esempio nella posizione 15,8 troveremo il dato che mi interessa
che avra una lunghezza y
e nella posizione                              15,(8+n) dove n sono le
righe, lo stesso dato ma relativo ad un altro cliente....
In effetti se vuoi lavorare alla grande, visto che tu sei bravo e io no, la
cosa migliore sarebbe un'altra:
importare il dato che si trova esattamente dopo la scritta "AVVISATO IN DATA
" e il dato che si trova dopo la scritta "DOCUMENTO N ".
Ma se riesci gia a risolvere il primo sei grandissimo per me piccola neofita
di access.
Ciao Lisa
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:zBAie.1401494$35.52...@news4.tin.it...



text:
"Lisa" <
kal...@libero.it
> ha scritto nel messaggio
news:MxKie.105155$IN.17...@twister2.libero.it...

cut
Ti ricordo di rispondere alla fine del messaggio precedente e non
all'inizio.
Puoi mandarmi il file o uno spezzone significativo?
Per farlo utilizza pure questo indirizzo.
Ciao, Carlo


title: Formato metel

author: Alfredo Vittoria

text:
Salve a tutti,
qualcuno può mandarmi il tracciato (tipi dicampi + lunghezze) per i listini Metel ?
Grazie
Alfredo


title: Formato metel

author: namor

text:
Alfredo Vittoria ha scritto:

Non so cosa siano i listini Metel, però se apri un motore di ricerca e
provi a scrivere "metel tracciato record", come ho fatto io, magari trovi
qualcosina...
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: Formato metel

author: Gabriele Bertolucci

text:
> qualcuno può mandarmi il tracciato (tipi dicampi + lunghezze) per i
listini Metel ?
http://www.metel.it/
--
Gabriele Bertolucci
PBsoft
www.pbsoft.it


title: Calcolo somma per differenza data

author: luigi corinna

text:
Buon Giorno Access 97
in una maschera non collegata a nessuna origine chiamata rendiconto
ho una casella combinata Id_Corso
con linkata una submaschera importi_corso
nella submaschera una volta selezionato il corso compaiono i relativi
movimenti con importo e data movimento...
nella maschera rendiconto ho due caselle non collegate a nessuna origine
chiamate rispettivamente dal e al dove inserisco
un range di date con cui effettuare una stampa....
io vorrei ottenere una somma degli importi per differenza di data....mi
spiego meglio
nella submaschera importi_corso ho i seguenti movimenti
01/01/04  ? 10
01/06/04 ? 20
01/07/04 ? 30
se nelle caselle Dal metto 01/01/04 e Al 01/06/04
in una casella chiamata differenza vorrei ? 30 cioe' l'importo non preso in
considerazione dal Range...e' possibile
Grazie


title: Calcolo somma per differenza data

author: Roberto da casa

text:
"luigi corinna" <
luigic...@hotmail.com
> ha scritto nel messaggio
news:dhwFc.570859$rM4.23...@news4.tin.it...

Ammesso e non concesso che io abbia capito il tuo problema, dovresti poter
risolvere il tuo problema con una funzione DLookup (vedi help). Ma se i
record (quindi gli importi) non contenuti tra le due date sono più di uno,
cosa vuoi fare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Dalla data Alla data

author: Valentino Padovan

text:
Chiedo un Vosto aiuto perchè non riesco a filtrare il report  "ordini per
cliente" DALLA DATA   , ALLA DATA
La ricerca la eseguo partendo da una Maschera "FiltroOrdini" in cui ha dei
pulsanti di opzione  "FiltroOrdiniOpzioni" il pulsante è l'opzione N°4 .
Inoltre la maschera ha 2 caselle testo  "Dal giorno" "Al Giorno" ed un
pulsante di comando "Visualizza"
Questa maschera viene a comandare una macro in cui nella colonna azzione =
(Apri Report) nella colonna condizione = (FiltroDiOrdiniOpzioni=4)  Nella
colonna argomenti  azione  nella casella Condizione Where NON SO' COME
FORMULARE LA RICHIESTA "PRELEVA I DATI DALLE CASELLE TESTO  DAL GIORNO  AL
GIORNO E FILTRA LE DATE DEL REPORT Grazzie ciao Valentino


title: Dalla data Alla data

author: Antonio Biso

text:
Valentino Padovan <
vsgpa...@virgilio.it
> wrote in message
4mca8.64047$3J1.1...@news2.tin.it...

Figlio mio, come scrivi...
Ci sarà un campo data nella tua tabella?
Il criterio where sarà
between [forms]![filtroordini]![Dal giorno] and [forms]![filtroordini]![Dal
giorno]
Antonio


title: Select - Select for update

author: yVega

text:
    Ciao,
quando faccio una select per fare delle modifiche, al termine devo fare un
update. Se nel frattempo altri accedono a quello stesso record potrebbero
modificare quello stesso record. E' possibile fare una sorta di Select for
update che mi faccia una select bloccandone il record in scrittura a terzi
fino a quando non ho fatto l'update? Avete qualche suggerimento?
    Grazie
--
    yVega
--
[ 1.0#@ 1.07 yrs ]


title: Select - Select for update

author: Luciano (DOC)

text:
yVega <yv...@ELIMINAMItin.it> wrote in message
pBr66.14229$FF1.1...@twister1.tin.it...

Metti un flag sul record, da li' stabilisci l'accesso o meno al record
stesso.
Saluti.
Luciano
(DOC)


title: visualizza record attraverso una casella combinata

author: Tiziano

text:
Ciao a tutti,
sono un neofita di DB...
come faccio a visualizzare solo
certi record di una maschera attraverso una casella combinata?
Grazie
mille!
Ciao Tiziano
--------------------------------
Inviato via
http://usenet.iol.it


author: Leo

text:
"Tiziano" <
tizi...@libero.it
> ha scritto nel messaggio
news:140Z105Z117Z234...@usenet.iol.it...

Dai un occhio, nella sezione 'Forms' di
http://www.sitocomune.com/
, a:
'Filtrare una maschera in base a una o più parole o frasi contenute all'interno di un suo
controllo.'
Ciao
Leo


title: Formato Data estesa

text:
Non riesco ad ottenere in una tabella il formato data estesa,
praticamente devo avere la possibilità di inserire al massimo 4 numeri obbligatori,
prima le ore e poi i minuti esempio 16.20 o anche 16-20 dove il puntino lo mette
in automatico e mi obbliga comunque a scrivere 4 cifre e se ne scrivo di più non le
accetta.
ho provato, in struttura tabella, a mettere un campo con tipo dati data\ora
e poi formato ora breve 24h e maschera di input 00.00,
ma avvisa che è stato messo un valore non valido per il campo;
se metto invece 00-00, lo trasforma in 00\-00 e idem avviso di prima;
se invece metto tipo di dati numero e poi 00-00 accetta i numeri con il difetto
chiaramente che posso inserire i valori superiori a 24 per le ore e superiori a 59 per
iminuti
come si può risolvere il problema?
e possibile eventualmente nel tipo dati numero limitare
la cifra dei primi due numeri e dei secondi 2 numeri rispettivamente
al valore max 23 e 59?
ringrazio in anticipo e auguri a tutto il NG


title: Formato Data estesa

author: Lbo

text:
>Non riesco ad ottenere in una tabella il formato data estesa,
>praticamente devo avere la possibilità di inserire al massimo 4 numeri obbligatori,
>prima le ore e poi i minuti esempio 16.20 o anche 16-20 dove il puntino lo mette
non ho capito bene il formato che ti interessa, ma non credo che sia
possibile ottenere questo tramite le proprietà di formato di un campo
e credo che sia una fgran rottura con la proprietà maschera di una
casella testo.
quello che ti consiglierei è mettere sulla maschera una casella per
ogni valore numerico della data, cioè una per i minuti, una per i
secondi, una per il giorno, una per il mese, una per l'anno.
una gran rottura ma almeno l'utente non ha più giustificazioni per
fare casini.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Formato Data estesa

text:
>Non riesco ad ottenere in una tabella il formato data estesa,
n.b  data estesa x le 24ore inerente solo le ore e i minuti
>praticamente devo avere la possibilità di inserire al massimo 4 numeri obbligatori,
>prima le ore e poi i minuti esempio 16.20 o anche 16-20 dove il puntino lo mette
>
> non ho capito bene il formato che ti interessa, ma non credo che sia
> possibile ottenere questo tramite le proprietà di formato di un campo
> e credo che sia una fgran rottura con la proprietà maschera di una
> casella testo.
>
> quello che ti consiglierei è mettere sulla maschera una casella per
> ogni valore numerico della data, cioè una per i minuti, una per i
> secondi, una per il giorno, una per il mese, una per l'anno.
n.b. come sopra, per data in realtà intendevo solo le ore e i
minuti cioè io in un campo devo scrivere 4 numeri che sono
le ore e i minuti nel formato 18.32


title: Formato Data estesa

text:
Ciao!
Prova a settare nelle "Impostazioni Internazionali" il campo ORA come lo
vorresti fosse!
A big Ciao a tutto il NG
by i800


title: Menu spariti

author: Polluce

text:
Ho giocherellato un po' troppo con le impostazioni d'avvio del db ed
ora non appare piu' il menu strumenti e non posso piu' fare nulla;
sono bloccato! Come rimedio?
Thnkx
--
  ("'-''-/").___..--''"'-._
   `6_ 6  )   '-.  (     ).'-.__.')
   (_Y_.)'  ._   )  `._ '. ''-..-'
  _..'--'_..-_/  /--'_.' ,'
(il),-''  (li),'  ((!.-''
Mailto: mvbo...@lnubb.pbz
Applica ROT13 per rispondere.


title: Menu spariti

author: Fabio Chiaro

text:
"Polluce" <mvbo...@lnubb.pbz> ha scritto nel messaggio
news:e5e8ttohg0qmqaqjf...@4ax.com...

Apri il database tenendo premuto Shift e torna su "Strumenti - Avvio" per
rimettere la barra del menu predefinita
Ciao, FABIO


title: Menu spariti

author: Mrok

text:
"Polluce" <mvbo...@lnubb.pbz> ha scritto nel messaggio
news:e5e8ttohg0qmqaqjf...@4ax.com...

Hai provato a tenere premuto MAIUSC mentre apri il database?