text:
Giorgia ha scritto:
> "Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
> news:b_nDl.18745$VA5....@tornado.fastwebnet.it...
>> Giorgia ha scritto:
>>> "Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
>>> news:n1nDl.18648$VA5....@tornado.fastwebnet.it...
>>>> Giorgia ha scritto:
>>>> [cut]
>>>>> [CUT]
>>>>> Io propenderei per il textBox che consenta la ricerca anche nel corpo
>>>>>> della ragine sociale, ari i.e. scrivo "fulgid" e mi fa vedere: La
>>>>>> fulgida, Pulizie fulgida, Subito fulgida, Puliamo cantine e le
>>>>>> rendiamo fulgide.
>>>>> Mi sembra proprio quello che desidereri fare.
>>>>> Ho giï¿œ variato la combo in una textbox ma guardando nella guida la
>>>>> proprietï¿œ Text...non riesco a capire dove mi possa servire.

ehhhh  bambina/ragazza/signora/madre/nonna mia (selezionare quello che
si avvicina) come dicevo in qualche post iniziale sul form in sola
lettura dovresti:
1) catturare l'evento di selezione  (form click?, non lo consiglio forse
meglio il doubleclick)
2) Prelevare i dati
3) passarli alla form chiamante (forms!nomeformchiamante!datocheinteressa)
3) Chiudere il form in sola lettura
Questi scansafatiche della Microsoft ancora non hanno compreso come si
fa un vero prodotto!
--
ac


title: funzione per orario progressivo

text:
il problema č questo:
devo fare un progressivo su delle ore in una maschera.
  durataminuti       tempo progressivo
     124                 2.07.33
      45                 2.53.50
     126                 5.03.26
      45                 5.49.43
ho risolto cosě:
sitocomune   modulo
Function CreaTotProgr(KeyName As String, KeyValue, NomeCampo As String) As
Long
Dim RS As DAO.Recordset
Dim Totale As Long
Totale = 0
On Error GoTo Err_CreaTotProgr
Set RS = CodeContextObject.RecordsetClone
' Cerca il record corrente.
Select Case RS.Fields(KeyName).Type
' Il tipo dati della chiave č Numerica?
    Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
    DB_DOUBLE, DB_BYTE
        RS.FindFirst "[" & KeyName & "] = " & KeyValue
' Il tipo dati della chiave č Data/ora?
    Case DB_DATE
        RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' Il tipo dati della chiave č Testo?
    Case DB_TEXT
        RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
    Case Else
        MsgBox "ERRORE: Tipo dati della chiave non valido!"
        Exit Function
End Select
Do Until RS.BOF
Totale = Totale + RS(NomeCampo)
RS.MovePrevious
Loop
Bye_CreaTotProgr:
         ' Restituisci il risultato.
         CreaTotProgr = Totale
         Exit Function
Err_CreaTotProgr:
         Totale = 0
         Resume Bye_CreaTotProgr
End Function
e nell'origine controllo (tempo progressivo)
=CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/1400
ora nasce un secondo problema:
                durataminuti       tempo progressivo
     124                 2.07.33
      45                 2.53.50
     126                 5.03.26
      45                 5.49.43
..................................
     110                 18.04.07
     210                 21.40.07
     360                  3.50.24
passa al giorno successivo io vorrei
                         24.90.31
ho trovato nel sitocomune questa funzione ma non so come usarla
mi aiutate?
Public Function SommaOrari(Orario1, Orario2) As String
   ' Orario1 e Orario2 possono essere in formato testo
   ' restituisce una stringa con la somma superando le 24 ore
   Dim ora1 As String, ora2 As String, min1 As String, min2 As String,
s_min, sec1 As String, sec2 As String, s_sec
   Dim o, m, s
   ora1 = Mid(Orario1, 1, 2): ora2 = Mid(Orario2, 1, 2) ' Separo ore
   min1 = Mid(Orario1, 4, 2): min2 = Mid(Orario2, 4, 2) ' minuti
   sec1 = Mid(Orario1, 7, 2): sec2 = Mid(Orario2, 7, 2) ' secondi
   ' Calcolo il riporto per i secondi e per i minuti
   s_sec = (Val(sec1) + Val(sec2)) \ 60 ' =1 se sec1 + sec2 > 59 altrimenti
=0
   s_min = (Val(min1) + Val(min2) + s_sec) \ 60 ' =1 se min1 + min2 > 59
altrimenti =0
   o = Val(ora1) + Val(ora2) + s_min: If o < 10 Then o = "0" & o
   m = (Val(min1) + Val(min2) + s_sec) Mod 60: If m < 10 Then m = "0" & m
   s = (Val(sec1) + Val(sec2)) Mod 60: If s < 10 Then s = "0" & s
   SommaOrari = o & ":" & m & ":" & s
End Function
                   grazie mille
ciao


title: funzione per orario progressivo

author: Roberto da casa

text:
"T@Roberto" <
tas...@libero.it
> ha scritto nel messaggio
news:FQiI9.65962$3l.18...@twister1.libero.it...
> il problema č questo:
> devo fare un progressivo su delle ore in una maschera.
>
>   durataminuti       tempo progressivo
>
>      124                 2.07.33
>       45                 2.53.50
>      126                 5.03.26
>       45                 5.49.43
>
> ho risolto cosě:
> sitocomune   modulo
>
> Function CreaTotProgr(KeyName As String, KeyValue, NomeCampo As String) As
> Long
> Dim RS As DAO.Recordset
> Dim Totale As Long
> Totale = 0
>
[CUT]
>
> e nell'origine controllo (tempo progressivo)
>
> =CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/1400
>
> ora nasce un secondo problema:
>                 durataminuti       tempo progressivo
>
>      124                 2.07.33
>       45                 2.53.50
>      126                 5.03.26
>       45                 5.49.43
> ..................................
>      110                 18.04.07
>      210                 21.40.07
>      360                  3.50.24
> passa al giorno successivo io vorrei
>                          24.90.31
> ho trovato nel sitocomune questa funzione ma non so come usarla
> mi aiutate?
>
[CUT]
Invece di usare l'altra funzione del SitoComune, nell'origine controllo
della casella di testo non associata in cui vuoi visualizzare il totale
progressivo di durataminuti nella forma hh:mm, invece di scrivere:
 =CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/1400
scrivi:
=Int(CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/60) & ":" &
Format(CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")-(Int(CreaTotProgr("I
DCICLO";[IDCICLO];"durataminuti")/60)*60);"00")
>
>                    grazie mille
> ciao
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: funzione per orario progressivo

text:
>
> Invece di usare l'altra funzione del SitoComune, nell'origine controllo
> della casella di testo non associata in cui vuoi visualizzare il totale
> progressivo di durataminuti nella forma hh:mm, invece di scrivere:
>
>  =CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/1400
>
> scrivi:
>
> =Int(CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")/60) & ":" &
>
Format(CreaTotProgr("IDCICLO";[IDCICLO];"durataminuti")-(Int(CreaTotProgr("I
> DCICLO";[IDCICLO];"durataminuti")/60)*60);"00")
perfetto
grazie su di te ci si può sempre contare !!!!!!


title: funzione per orario progressivo

text:
"T@Roberto" <
tas...@libero.it
> ha scritto nel messaggio
news:_woI9.67269$3l.18...@twister1.libero.it...
>
[CUT]
>
> perfetto
> grazie su di te ci si puň sempre contare !!!!!!
Beh, tra omonimi bisogna pur darsi una mano. ;-)



title: funzione per orario progressivo

author: Luciano (DOC)

text:
Roberto da casa ha scritto nel messaggio
<2YoI9.67384$
3l.18...@twister1.libero.it
>...
>Beh, tra omonimi bisogna pur darsi una mano. ;-)
Li' per li' avevo letto tra ominidi....:))
Saluti.
Luciano


title: Come si lanciano le API da Access???

author: Adriano Venturini

text:
Coem si lanciano le API a Access?
se devo sialogare con un programma
che ne fa uso, cosa devo leggere,studiare?
Avete qualche URL, risorsa da visitare?
Grazie
Adriano


title: Come si lanciano le API da Access???

author: Jonathan Canova

text:
"Adriano Venturini" <
adriano.vent...@tiscalinet.it
> ha scritto nel
messaggio news:9rc4sg$3cu$1...@nreadb.inwind.it...
> Coem si lanciano le API a Access?
Guarda il thread
R: [?] Stampare una sola riga e fermare la stampante
per un esempio.
--
Cordiali saluti,
Jonathan Canova
www.aladinoinformatica.com


title: tabelle in relazione

author: -Cri-

text:
Buongiorno a tutti,
ho una conoscenza (mooolto) base di access e leggiucchiando un po' in questo
ng mi sono fatta un'idea di come potrei risolvere il problema che mi si
pone... qualcuno mi dice se sono sulla strada giusta o se sono completamente
fuori? :-)
La situazione è questa: devo creare un db in cui registrare le disponibilità
di molte (si spera!) persone a fare delle specifiche funzioni in un
oratorio.
Ad esempio, devo segnare che il signor mario rossi è disponibile come
allenatore sportivo e/o per pulire il giardino, e in quali giorni e orari è
disponibile.
Io avrei pensato di creare una tabella anagrafica, una con le varie funzioni
e una con i giorni della settimana. Poi metterei in relazione molti a molti
l'anagrafica e le funzioni (ogni persona può fare + funzioni e ogni compito
può essere svolto da più persone) e ancora molti a molti le funzioni e i
giorni della settimana, in modo da poter per esempio programmare che se +
persone danno disponibilità per pulire il bar al martedì, allora si sceglie
quello come giorno, e così via...
Dite che ci sono + o meno, oppure sto sbagliando tutto?
Grazie.
-Cri-


title: tabelle in relazione

text:
"-Cri-" <
puffetta....@iol.it
> ha scritto nel messaggio
news:4475abe5$0$36921$4faf...@reader3.news.tin.it...

Più o meno ci sei.
Io non creerei alcuna tabella con i giorni della settimana, ma mi limiterei
a creare una tabella anagrafica ed una tabella delle funzioni e le metterei
tra loro in relazione molti-a-molti tramite una terza tabella che, oltre a
contenere l'ID della tabella anagrafica e l'ID delle funzioni, deve
contenere sette campi  boolea no(uno per ogni giorno della settimana) che
imposterei a Vero per i giorni della settimana di disponibilità e a Falso
per i giorni della settimana di non sisponibilità.
> Grazie.
Prego
> -Cri-
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Problema su copie report

author: Max Ghetti

text:
Buona domenica a tutti,
Ho un pulsante sulla maschera "MENU_STAMPE" che lancia il report "Rep".
Poiche lo devo stampare in 5 copie, sono andato nel codice e ho ripetuto
per 5 volte la riga "openReport ..." (premetto che
è la prima volta che opero sul codice).
Pero' dovrei, ad ogni copia, scrivere una cosa diversa a pie' di pagina
( "copia per pippo",Copia per pluto").
Mi potreste aiutare passo per passo ? Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Problema su copie report

author: Paolo P

text:
"Max Ghetti" <
maxg...@libero.it
> ha scritto nel messaggio
news:eb4c89e649018e05d80...@mygate.mailgate.org...
> Buona domenica a tutti,
> Ho un pulsante sulla maschera "MENU_STAMPE" che lancia il report "Rep".
> Poiche lo devo stampare in 5 copie, sono andato nel codice e ho ripetuto
> per 5 volte la riga "openReport ..." (premetto che
> č la prima volta che opero sul codice).
> Pero' dovrei, ad ogni copia, scrivere una cosa diversa a pie' di pagina
> ( "copia per pippo",Copia per pluto").
> Mi potreste aiutare passo per passo ? Grazie
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
La cosa piů immediata che mi viene in mente (se le 5 cose che devi scrivere
a pič pagina sono uguali tutte le volte che stampi)
Docmd.OpenReport "tuoreport", acViewDesign
Me!Controllochetiinteresse="Copia per pluto"
Docmd.Close,acSaveYes
Docmd.openReport "tuoReport"
Tric e branca dovrebbe andare.
Se invece le cose da scrivere sono diverse col pulsante apri un inputbox che
ti chiede cosa scrivere nel pičpagina e su ok fai eseguire il codice di
prima  con Me!ControlloCheTiInteressa= RispostaDell'InputBox
Paolo


title: Problema su copie report

text:
Si, le 5 cose che devo scrivere a piè pagina sono uguali tutte le volte
che stampo.
Ho provato a inserire il tuo codice sull'evento Click del pulsante della
maschera
che lancia il report.
 Docmd.OpenReport "REP_PROVA", acViewDesign
 Me!pippo="Copia per fornitore"
 Docmd.Close,acSaveYes
 Docmd.openReport "REP_PROVA"
e a mettere a pie' di pagina del report "REP_PROVA", una casella di
testo
dal nome "Dicitura" con origine controllo  =[pippo] ( forse qui
sbaglio...)
Il risultato è che clikko sul pulsante della maschera mi viene :
"Errore di run time 2465: Impossibile trovare il campo Pippo a cui si
fa riferimento nell'espressione"
Non ho ben capito l'uso del ME!
Grazie comunque per la risposta.



title: Problema su copie report

author: Emyr

text:


si pippo era il nome del controllo non la sua origine controllo
Saluti.
Emanuele.


title: Problema su copie report

text:
Scusa sempre l'ignoranza, ma non riesco proprio a capire.
Sul click del pulsante "STAMPA" ho messo come routine evento:
 Dim pippo as String
 Docmd.OpenReport "REP_PROVA", acViewDesign
 Me!pippo="Copia per fornitore"
 Docmd.Close,acSaveYes
 Docmd.openReport "REP_PROVA"
... con l'idea di ripetere questo blocco 5 volte e ogni volta cambiare
il valore di pippo
Dove per pippo intendo una variabile che contiene il valore che dovro
passare
al nome della casella di testo "Dicitura" nel REP_PROVA.
Come faccio alla casella di testo a fargli assumere il valore di Pippo
senza avere l'errore che ti segnalavo prima ? Se non devo mettere
=[pippo] sull'Origine controllo, dove lo devo mettere ?
Rispondimi come risponderesti ad un bimbo di 5 anni....
GRAZIE MILLE



title: Problema su copie report

text:
"Max Ghetti" <
maxg...@libero.it
> ha scritto nel messaggio
news:128a458ca3f84155703...@mygate.mailgate.org...

Invia i tuoi i post in coda al messaggio precedente, se no costringi chi
legge ad aprirsi tutti i report precedenti :-)
I controlli possono essere associati ad un campo di tabella o query oppure
non associati. Nel caso siano associati assumono il "valore" del
corrispondente campo della tabella, in caso contrario assumono il valore che
gli dai tu.
Puoi dargli un valore scrivendo nell'origine controllo ="QuelloCheVuoi"
(comprese le virgolette) oppure assegnarglielo tramite VBA con
Me!pippo="QuelloCheVuoi"., dove pippo cme diceva Emyr è il nome del
controllo e non la sua origine dati. Scrivere Me!Pippo="QuelloCheVuoi"
equivale a scrivere Me!pippo.value="QuelloCheVuoi", cioè appunto assegnare
un valore a Pippo.
Quindi l'origine di Pippo deve essere vuota, poichè il "valore" (cioè la
stringa di testo) che Pippo deve assumere gliela passi ogni volta con la
riga di programma Me!pippo="QuelloCheVuoi".
Come insegnante sono un pò confusionario, ma anche tu come allievo non
scherzi :-)
Prova che ce la fai
Paolo


title: 2 form

author: Cholo

text:
è possibile aprire contemporaneamente lo stesso Form (naturalmente in
visualizzazione singolo record) gestendo due record diversi?
mi servirebbe per poterli vedere ad esempio affiancati o per
copiar/incollare dei dati da un record all'altro...


title: 2 form

author: Sergio MAZZA

text:
Cholo wrote:
> č possibile aprire contemporaneamente lo stesso Form (naturalmente in
> visualizzazione singolo record) gestendo due record diversi?
> mi servirebbe per poterli vedere ad esempio affiancati o per
> copiar/incollare dei dati da un record all'altro...
Prova con:
Docmd.OpenForm "primaForm"
Docmd.OpenForm "secondaForm",,,"id<>" & forms!primaForm!id
Ciao.
--
Sergio MAZZA


title: 2 form

text:
> Prova con:
> Docmd.OpenForm "primaForm"
> Docmd.OpenForm "secondaForm",,,"id<>" & forms!primaForm!id
ma io vorrei aprire lo stesso form su 2 record diversi... una cosa del tipo:
DoCmd.OpenForm "Machera", , , "[Cod]=0001", acFormEdit,,
DoCmd.OpenForm "Machera", , , "[Cod]=0002", acFormEdit,,
ma in questo modo ovviamente la seconda mi apre la maschera nella stessa
finestra delle prima.


title: 2 form

author: Lorenzo(pyx)

text:

Ciao,
In dinamico puoi sempre clonare la tua maschera principale,
in realta' l'oggetto clonato non esiste fisicamente ovvero la
sua esistenza e' temporanea ma puo' venire spostato su un
record diverso dalla maschera matrice.
Questo un esempio del metodo, comandato da un pulsante:
Dim newmaschera As New Collection
Private Sub clona_Click()
    Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
    Set nuova_maschera = New Form_TUA_MASCHERA_PRINCIPALE
    nuova_maschera .Visible = True
    newmaschera.Add nuova_maschera
End Sub
Ciao
Lorenzo


title: 2 form

author: ALESSANDRO Baraldi

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:_e9Od.22784$lB4.6...@twister1.libero.it...

Mi permetto di Aggiungere un pezzetto a quanto già chiaro:
Aperta la Sessione della Form puoi imporre l'uso della proprietà
Filter sulla NuovaSessione in modo da limitare il Record a quello
desiderato.
[Dal codice di Lorenzo]
Dim newmaschera As New Collection
 Private Sub NuovaIstanza(optional Criterio as string=vbnullstring)
     Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
     Set nuova_maschera = New Form_TUA_MASCHERA_PRINCIPALE
     nuova_maschera .Visible = True
     If Criterio<>vbNullstring then
          nuova_maschera.Filter=criterio
          nuova_maschera .FilterOn=True
     End if
     newmaschera.Add nuova_maschera
 End Sub
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: 2 form

text:
> Dim newmaschera As New Collection
>
>  Private Sub NuovaIstanza(optional Criterio as string=vbnullstring)
>      Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
>      Set nuova_maschera = New Form_TUA_MASCHERA_PRINCIPALE
>      nuova_maschera .Visible = True
>      If Criterio<>vbNullstring then
>           nuova_maschera.Filter=criterio
>           nuova_maschera .FilterOn=True
>      End if
>      newmaschera.Add nuova_maschera
>  End Sub
perfetto...
chiedo solo un'altra cosa: con questo metodo è possible passare anche degli
argomenti (OpenArgs) alla nuova maschera, come si fa con OpenForm?
se non è possibile come posso farlo in altro modo??
grazie


title: 2 form

text:
"Cholo" <m.mag...@NOSPAMlibero.it> ha scritto nel messaggio
news:ckqOd.24419$QG6.4...@twister2.libero.it...
> > Dim newmaschera As New Collection
> >
> >  Private Sub NuovaIstanza(optional Criterio as string=vbnullstring)
> >      Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
> >      Set nuova_maschera = New Form_TUA_MASCHERA_PRINCIPALE
> >      nuova_maschera .Visible = True
> >      If Criterio<>vbNullstring then
> >           nuova_maschera.Filter=criterio
> >           nuova_maschera .FilterOn=True
> >      End if
> >      newmaschera.Add nuova_maschera
> >  End Sub
>
> perfetto...
> chiedo solo un'altra cosa: con questo metodo č possible passare anche
degli
> argomenti (OpenArgs) alla nuova maschera, come si fa con OpenForm?
> se non č possibile come posso farlo in altro modo??
>
> grazie
Non con quel metodo, ma se dichiari delle Variabili Public nella Form
puoi accedere tranquillamente a quelle dell'istanza.



title: 2 form

text:
> Non con quel metodo, ma se dichiari delle Variabili Public nella Form
> puoi accedere tranquillamente a quelle dell'istanza.
come?


title: 2 form

text:

Riprendendo l'ultima parte di codice:
Private Sub NuovaIstanza(optional Criterio as string=vbnullstring)
     Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
     Set nuova_maschera = New Form_TUA_MASCHERA_PRINCIPALE
     nuova_maschera .Visible = True
     If Criterio<>vbNullstring then
          nuova_maschera.Filter=criterio
          nuova_maschera .FilterOn=True
     End if
     newmaschera.Add nuova_maschera
 End Sub
Come vedi Alessandro ha usato
          nuova_maschera.Filter=criterio
          nuova_maschera .FilterOn=True
Quindi ha definito alcune proprieta' dell'istanza. In modo
analogo puoi definirne altre.
Se la dichiarazione
Dim nuova_maschera As Form_TUA_MASCHERA_PRINCIPALE
La porti al di fuori della routine, l'oggetto e' richiamabile da
altre routine all'interno del modulo maschera dopo che ovviamente
e' stata inizializzata dalla Sub di cui sopra.
Ciao
Lorenzo


title: [Otissimo] - Scusate...

author: Dettolo

text:
Salve a tutti e scusate l'OT,
ma non so piu' a chi chiedere.
qualcuno conosce qualche prog per creare animazioni parlanti?
tempo fa ne avevo uno di cui non ricordo il nome, che dati dei
soggetti(foto, o soggetti predefiniti del prog), potevi farli parlare con un
wav, o fargli assumere delle espressioni predefinite.....
conoscete qualcosa di simile?


title: [Otissimo] - Scusate...

author: Carlo Costarella

text:
"Dettolo" <
andf...@hotmail.com
> ha scritto nel messaggio
news:Emwxf.28296$av6....@tornado.fastwebnet.it...

Usa i personaggi della guida di office che puoi liberamente modificare,
distribuire crearne di nuovi e fargli dire quello che vuoi.
Per fare questo esistono dei software gratuiti messi a disposizione da
Microsoft.
Ciao, Carlo


title: Evento su clic

author: lucky

text:
Maschera con sottomaschera e con ancora sottomaschera in cui visualizzo un
elenco in maschera continua.
Non capisco perchè associando all'evento su clic di un controllo di
quest'ultima non mi succede niente mentre se lo associo all'evento su
attivato tutto è ok. Unico problema che il primo dell'elenco è già attivo e
quindi devo disattivarlo e attivarlo.
Come posso risolverlo? L'ideale sarebbe riuscire (e capire) il Su Clic.
Grazie
--------------------------------
Inviato via
http://usenet.libero.it


title: Access asp e decimali

author: Marco

text:
Ciao,
avrei da porvi un quesito...(forse banale, forse OT)
all'interno di una tabella di access 2000 imposto un campo in formato Euro
e gli attribuisco 2 posizioni decimali.
Vado poi a richiamare il contenuto del campo via web utilizzando un
recordset di asp...bene, se non fosse che perdo tutte le cifre decimali
impostate a zero per la formattazione del campo.
La stessa cosa succede se il campo è numerico o valuta.
Ringrazio tutti voi per la disponibilità e in maniera particolare chi
sarà così gentile da rispondermi.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Access asp e decimali

text:
"Marco" <
atom...@libero.it
> ha scritto nel messaggio
news:ahjlk3$g4v$1...@news.newsland.it...
> Ciao,
> avrei da porvi un quesito...(forse banale, forse OT)
> all'interno di una tabella di access 2000 imposto un campo in formato Euro
> e gli attribuisco 2 posizioni decimali.
> Vado poi a richiamare il contenuto del campo via web utilizzando un
> recordset di asp...bene, se non fosse che perdo tutte le cifre decimali
> impostate a zero per la formattazione del campo.
> La stessa cosa succede se il campo è numerico o valuta.
>
> Ringrazio tutti voi per la disponibilità e in maniera particolare chi
> sarà così gentile da rispondermi.
>
> --
Ho provato con CCur(), FormatCurrency() e FormatNumber(); il risultato é:
CCur: 12,23 - FormatCurrency: L. 12 - FormatNumber: 12,23
CCur: 23,45 - FormatCurrency: L. 23 - FormatNumber: 23,45
CCur: 12 - FormatCurrency: L. 12 - FormatNumber: 12,00
CCur: 44,2 - FormatCurrency: L. 44 - FormatNumber: 44,20
CCur: 55,01 - FormatCurrency: L. 55 - FormatNumber: 55,01
CCur: 0 - FormatCurrency: L. 0 - FormatNumber: 0,00
La cosa strana è che FormatCurrency mi ritorna il valore in Lire pur avendo
impostato localmente (sviluppo sul server) la valuta Euro. Il campo di
tabella è impostato a precisione doppia, valuta con 2 decimali.
Ciao.
--
Sergio MAZZA


title: Access asp e decimali

text:
> CCur: 12,23 - FormatCurrency: L. 12 - FormatNumber: 12,23
> CCur: 23,45 - FormatCurrency: L. 23 - FormatNumber: 23,45
> CCur: 12 - FormatCurrency: L. 12 - FormatNumber: 12,00
> CCur: 44,2 - FormatCurrency: L. 44 - FormatNumber: 44,20
> CCur: 55,01 - FormatCurrency: L. 55 - FormatNumber: 55,01
> CCur: 0 - FormatCurrency: L. 0 - FormatNumber: 0,00
Con FormatNumber() il problema č risolto.
Grazie per l'aiuto.
Ciao.
Marco



title: Il risultato di una Funzione

author: marioP

text:
Ragazzi che ignoranza!...
Non ho mai usato una Function.
All'interno del modulo di una Form ho scritto un bel pò di codice.
Ad un certo punto, per rendere più chiara la "manutenzione" di questo codice
richiamo una funzione chiamata TariffaBase.
Scrivo questa lunghissima Public Function TariffaBase() all'inizio del
modulo.
Al termine di questa funzione scrivo TariffaBase = Valore1 + Valore2 +
Valore3 etc
Terminata la funzione, ed ottenuto il risultato il codice va sul punto
successivo a dove ero rimasto
cioè la chiamata della funzione.
Mi aspetto di trovare il risultato ottenuto puntando col mouse sul nome dell
funzione....
Invece... niente. Che domanda stupida!
Come faccio a farmi "dire" il risultato ? Ho provato con un interrogatorio
di 6 ore, le torture, ma niente!
Non me lo dice!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Il risultato di una Funzione

author: PBsoft

text:
> Ragazzi che ignoranza!...
C'č sempre da imparare.
> Non ho mai usato una Function.
Allora sei ancora vergine :-)
> All'interno del modulo di una Form ho scritto un bel pň di codice.
> Ad un certo punto, per rendere piů chiara la "manutenzione" di questo
> codice richiamo una funzione chiamata TariffaBase.
> Scrivo questa lunghissima Public Function TariffaBase() all'inizio del
> modulo.
> Al termine di questa funzione scrivo TariffaBase = Valore1 + Valore2 +
> Valore3 etc
> Terminata la funzione, ed ottenuto il risultato il codice va sul punto
> successivo a dove ero rimasto
> cioč la chiamata della funzione.
> Mi aspetto di trovare il risultato ottenuto puntando col mouse sul
> nome della funzione....
> Invece... niente. Che domanda stupida!
> Come faccio a farmi "dire" il risultato ? Ho provato con un
> interrogatorio di 6 ore, le torture, ma niente!
> Non me lo dice!
Se il tuo intento č quello di conoscere il valore di ritorno della funzione
durante un'operazione di debug, allora puoi agire in diversi modi.
Ad esempio, eseguendo il codice passo passo, quando arrivi all'attribuzione
del valore di ritorno (TariffaBase = Valore1 + ......), ti fermi all'istruzione
successiva (che dovrebbe essere End Function) e posizioni il cursore sopra
la parola "TariffaBase" presente alla riga precedente. Nel tooltip dovresti
poter leggere il valore che cerchi.
Se invece il tuo problema č che il valore calcolato non viene ritornato,
allora facci capire meglio il contenuto di questa funzione.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: Il risultato di una Funzione

author: Alessandro Baraldi

text:
marioP ha scritto:

La devi assegnare ad una variabile...!
Dim lngRet as Long
lngRet=TariffaBase()
ora in lngRet hai il valore usabile, a meno di errori nella Function.
Per testare se funziona io uso un MsgBox NomeFunzione() oppure il Debug
con un BreackPoint nella Function
Ciao
@Alex


title: Il risultato di una Funzione

text:



La Function Functiona
 Ho provato ad assegnare il suo risultato ad una variabile:
Ho fatto così:
codice codice codice...
TariffaBase ( Chiama la funzione che seguo passo passo e funziona)
TariffaBase = Val1 + Val2 +Val 3 (Punto il mouse su TariffaBase e leggo il
risultato esatto)
End Function (Torna al punto precedente)
MiaVariabile = TariffaBase (Punto il mouse....Omertà assoluta! Nessuno dice
niente, nessuno sa niente.
Non solo... Il codice, leggendo il nome della funzione, ritorna a
rieseguirla!)
Non è che ho omesso le due parentesi dopo il Nome funzione?
> lngRet=TariffaBase() ????????

Non è che non ho messo le parente



title: Il risultato di una Funzione

text:
[CUT]
> La Function Functiona
>  Ho provato ad assegnare il suo risultato ad una variabile:
> Ho fatto così:
> codice codice codice...
> TariffaBase ( Chiama la funzione che seguo passo passo e funziona)
> TariffaBase = Val1 + Val2 +Val 3 (Punto il mouse su TariffaBase e leggo il
> risultato esatto)
> End Function (Torna al punto precedente)
> MiaVariabile = TariffaBase (Punto il mouse....Omertà assoluta! Nessuno dice
> niente, nessuno sa niente.
> Non solo... Il codice, leggendo il nome della funzione, ritorna a
> rieseguirla!)
> Non è che ho omesso le due parentesi dopo il Nome funzione?
> > lngRet=TariffaBase() ????????
>
>
>
> Non è che non ho messo le parente
Non saprei cosa dire, se posti la Funzione possiamo vedere...!
@Alex


title: Il risultato di una Funzione

author: MA

text:
marioP wrote:
> Il 26 Lug 2006, 21:16, "Alessandro Baraldi" <
ik2...@libero.it
> ha
> scritto:
>>
>>> Invece... niente. Che domanda stupida!
>>> Come faccio a farmi "dire" il risultato ? Ho provato con un
>>> interrogatorio di 6 ore, le torture, ma niente!
>>> Non me lo dice!
La lampada in facci aha sempre il suo fascino... non so l'efficiacia però...
>>
>
>> La devi assegnare ad una variabile...!
>>
>> Dim lngRet as Long
>>
>> lngRet=TariffaBase()
>
>> ora in lngRet hai il valore usabile, a meno di errori nella Function.
>>
>> Per testare se funziona io uso un MsgBox NomeFunzione() oppure il
>> Debug con un BreackPoint nella Function
>>
>> Ciao
>> @Alex
> La Function Functiona
>  Ho provato ad assegnare il suo risultato ad una variabile:
> Ho fatto così:
> codice codice codice...
> TariffaBase ( Chiama la funzione che seguo passo passo e funziona)
> TariffaBase = Val1 + Val2 +Val 3 (Punto il mouse su TariffaBase e
> leggo il risultato esatto)
> End Function (Torna al punto precedente)
> MiaVariabile = TariffaBase (Punto il mouse....Omertà assoluta!
> Nessuno dice niente, nessuno sa niente.
> Non solo... Il codice, leggendo il nome della funzione, ritorna a
> rieseguirla!)
> Non è che ho omesso le due parentesi dopo il Nome funzione?
>> lngRet=TariffaBase() ????????
>
>
>
> Non è che non ho messo le parente
Dubito che chiamando la madre o la figlia si commuova!!!
In ogni caso lo schema dovrebbe essere
In un modulo a parte
Function MiaFct()
Dim MioVal1 as Integer
Dim MioVal2 as Integer
Dim MioVal3 as Integer
Mioval1 = 1
MioVal2 = 2
MioVal = 3
MiaFct = Mioval1+Mioval2+Mioval3
end function
Poi nella tua maschera
Private sub MioButton_click()
    Me.MioTextbox = MiaFct
end sub
>
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Il risultato di una Funzione

text:

1) IN un Modulo A PARTE necessariamente?
2)In questo caso il codice del Button è gia in funzione da un pezzo...
è all'interno di questo codice che richiamo la function (che è nello stesso
modulo ma in disparte
per non fare confusione).
Domanda:
All'interno della Function, a seconda dei vari IF, vi sono diversi risultati
restituiti:
per esempio:
If Pippo > Pluto then
         TariffaBase= Val1 + Val2
ElseIf Pippo < Pluto
         TariffaBase= Val3+ Val4
end if
Insomma il risultato dipende dal punto in cui decido di uscire
dalla Function e catturare il risultato che m'interessa.
Per esempio
If Pippo > Pluto then
         TariffaBase= Val1 + Val2
end if
Exit Function oppure GOTO FineFunction
E' un problema? Non credo!!!!!!!

 3) E' una questione di inserire argomenti tra le parentesi?
Quando l'ho dichiarata come Public Function TariffaBase()
non vi era nessun argomento quindi....
Ho esaurito le ipotesi e le risorse...Non so che pensare



title: Il risultato di una Funzione

text:
marioP ha scritto:
[CUT]
> 1) IN un Modulo A PARTE necessariamente?
No non è necessario, è solo un modo.
Visto che il problema potrebbe essere la Function credo che l'unica sia
Postarla
per intero altrimenti stiamo solo facendo "supposte" e con questo caldo
la glicerina
si scioglie velocemente.
@Alex


title: Il risultato di una Funzione

text:

No se dichiarata Public, ma se è public è + comodo metterlo da parte (è +
ordinato)
>
> 2)In questo caso il codice del Button è gia in funzione da un pezzo...
> è all'interno di questo codice che richiamo la function (che è nello
> stesso modulo ma in disparte
> per non fare confusione).
> Domanda:
> All'interno della Function, a seconda dei vari IF, vi sono diversi
> risultati restituiti:
> per esempio:
>
> If Pippo > Pluto then
>          TariffaBase= Val1 + Val2
> ElseIf Pippo < Pluto
>          TariffaBase= Val3+ Val4
> end if
> Insomma il risultato dipende dal punto in cui decido di uscire
> dalla Function e catturare il risultato che m'interessa.
>
> Per esempio
> If Pippo > Pluto then
>          TariffaBase= Val1 + Val2
> end if
> Exit Function oppure GOTO FineFunction
>
> E' un problema? Non credo!!!!!!!
Infatti
>
>  3) E' una questione di inserire argomenti tra le parentesi?
> Quando l'ho dichiarata come Public Function TariffaBase()
> non vi era nessun argomento quindi....
Assolutamente no.
>
> Ho esaurito le ipotesi e le risorse...Non so che pensare
Dovrebbe andare.
Ma come la richiami? Cioè dopo del TariffaBase valorizzato ocme ti serve che
te ne fai?
>
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--



title: Il risultato di una Funzione

text:

Scusa Alex, ma la function è un romanzo tipo I Promessi sposi...Non vorrei
Therdiarti.
semmai il problema sta nel modo in cui la function passa il risultato al
codice originario.
Riperto, Io leggo il risultato di TariffaBase al termine della Funzione ma
non me lo ritrovo...
(e questo si era capito...)
Ti mando l'ultima parte
......Codice Originario attivato da Button......
........................................................................
TariffaBase ' Chiama la Funzione che è scritta all'inizio del modulo
Public Function TariffaBase()
....................................................
Set ctl = Me.Arrivo ' E' la ListBox
Dim val0, val1, val2, val3, val4, val5 as integer

 For Each VociElenco In ctl.ItemsSelected
            If ctl.Column(1, VociElenco) = "d0" Then
            Val0 = rsTBase!EuroT_Base 'Restituisce Euro TariffaBase in base a
descrizioni
  ElseIf ctl.Column(1, VociElenco) = "d2" Then

      Val2 = rsTBase!EuroT_Base2

  ElseIf ctl.Column(1, VociElenco) = "d3" Then

      Val3 = rsTBase!EuroT_Base3

   ElseIf ctl.Column(1, VociElenco) = "d4" Then

      Val4 = rsTBase!EuroT_Base4

   ElseIf ctl.Column(1, VociElenco) = "d5" Then

      Val5 = rsTBase!EuroT_Base5
   End If

 Next VociElenco
 TariffaBase = Val0 + Val1 + Val2 + Val3 + Val4 + Val5 (Leggo il risultato =
800)
GoTo FineFunction
..............................................
.................................................
FineFunction
End Function
          Nel codice di Button eravamo rimasti a:
TariffaBase (se punto il mouse non leggo niente.)
                            se inserisco:
Dim RisultatoTariffaBase As Integer
RisultatoTariffaBase = TariffaBase (Non legge niente e torna alla funzione)
Questo 3D è diventato un imponente Loop



title: Il risultato di una Funzione

author: Alessandro Cara

text:
marioP wrote:
[cut]
> Dim val0, val1, val2, val3, val4, val5 as integer
questa e' sballata. Solo val 5 e' integer
[cut]
>  TariffaBase = Val0 + Val1 + Val2 + Val3 + Val4 + Val5 (Leggo il risultato =
> 800)
qui e' dura che ti ritorni qualcosa. Strano che non va' in errore
Per gli integer il defaulto e' 0 per i variant e' null
--
ac


title: Il risultato di una Funzione

text:
Alessandro Cara wrote:
P.S.
Inoltre per come e' fatta la funzione non hai bisogno di val1,.....,
valN. Ti e' sufficiente una sola variabile
--
ac


title: Il risultato di una Funzione

author: MARIOp

text:

>Effettivamente finora non ne ho fatto niente!
Mi aspettavo intanto di leggerla puntandoci su con il mouse
Successivamente, dopo qualche Do...Loop
chiamerò un altra Funzione TariffaPLUS.
Al termine della routine avviata con Button
avrò un Totale = TariffaBase + TariffaPlus
Ho provato anche:
TariffaBase (Chiamata della Funzione)
Msgbox TariffaBase() (Che fa? Torna alla funzione come se la stessi
richiamando)



title: Il risultato di una Funzione

text:

A proposito di dichiarazioni... Non ho detto a TariffaBase che tipo è
quindi è un Variant. Potrebbe nascere qui qualche problema?
Innescato dai Variant / Integer di val 1 val2 ?
Il risultato me lo dà senza errori...



title: Il risultato di una Funzione

text:
marioP wrote:
> Il 27 Lug 2006, 13:10, Alessandro Cara <
al...@puntablunet.it
> ha scritto:
>
>>Alessandro Cara wrote:
>>P.S.
>>
>>Inoltre per come e' fatta la funzione non hai bisogno di val1,.....,
>>valN. Ti e' sufficiente una sola variabile
>>
>
> A proposito di dichiarazioni... Non ho detto a TariffaBase che tipo è
> quindi è un Variant. Potrebbe nascere qui qualche problema?ù
NO
> Innescato dai Variant / Integer di val 1 val2 ?
> Il risultato me lo dà senza errori...
?
Function MyFunz()
	MyFunz = "x"
	msgbox Myfunz()
         ' nun se po fa'.  E' una chiamata ricorsiva
         msgbox MyFunz
         'forse se po' fa
end function
--
ac


title: Il risultato di una Funzione

text:

Ragazzi ragazzi ragazzi
Che idiozia Che idiozia Che idiozia
l'errore stava nel fatto che mettevo nel codice il NomeFunzione
e successivamente cercavo di assegnare il risultato ad una variabile.
Cioè scrivevo:
Codice codice codice
.........................................
TariffaBase
VarRisultatoTariffaBase= TariffaBase
a questo punto il codice rieseguiva la Funzione in quanto in effetti la
chiamavo 2 volte.
Invece ho scritto:
Codice codice codice
.........................................
VarRisultatoTariffaBase = TariffaBase (la chiamo una volta sola)
e addirittura
VarRisultatoTariffaBase = TariffaBase+TariffaPlus (e la variabile
restituisce la somma di 2 funzioni)
Era come se io chiamassi al telefono: "Ciccio!!! Vieni qua", Ciccio veniva e
io gli dicevo
"Adesso che sei venuto vai a comprarmi 4 uova".
E lui rispondeva: "Non me le potevi dire al telefono che te le portavo
mentre venivo? Adesso mi tocca andarmene di nuovo e torna qui!..."



title: Il risultato di una Funzione

text:
"marioP" <
mariop...@libero.it
> ha scritto nel messaggio
news:82Z55Z109Z162Y1...@usenet.libero.it...
>
> Ragazzi ragazzi ragazzi
> Che idiozia Che idiozia Che idiozia
> l'errore stava nel fatto che mettevo nel codice il NomeFunzione
> e successivamente cercavo di assegnare il risultato ad una variabile.
> Cioè scrivevo:
> Codice codice codice
> .........................................
> TariffaBase
> VarRisultatoTariffaBase= TariffaBase
> a questo punto il codice rieseguiva la Funzione in quanto in effetti la
> chiamavo 2 volte.
> Invece ho scritto:
> Codice codice codice
> .........................................
> VarRisultatoTariffaBase = TariffaBase (la chiamo una volta sola)
> e addirittura
> VarRisultatoTariffaBase = TariffaBase+TariffaPlus (e la variabile
> restituisce la somma di 2 funzioni)
>
> Era come se io chiamassi al telefono: "Ciccio!!! Vieni qua", Ciccio veniva
> e
> io gli dicevo
> "Adesso che sei venuto vai a comprarmi 4 uova".
> E lui rispondeva: "Non me le potevi dire al telefono che te le portavo
> mentre venivo? Adesso mi tocca andarmene di nuovo e torna qui!..."
Non proprio; era come se chiamassi al telefono: "Ciccio!!! Vieni qua", lui
veniva e tu gli ri-telefonavi e gli dicevi: "Ciccio!!! Vieni qua", lui
veniva e tu gli ri-telefonavi e gli dicevi: "Ciccio!!! Vieni qua", lui
veniva e tu gli ri-telefonavi e gli dicevi: "Ciccio!!! Vieni qua", etc.
etc...
In parole povere; la funzione viene eseguita ogni volta tu la chiami (anche
al telefono)...
Ciao.
--
Sergio MAZZA


title: Il risultato di una Funzione

text:
Il 28 Lug 2006, 13:22, "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto:
> "marioP" <
mariop...@libero.it
> ha scritto nel messaggio
> news:82Z55Z109Z162Y1...@usenet.libero.it...
> >
> > Ragazzi ragazzi ragazzi
> > Che idiozia Che idiozia Che idiozia
> > l'errore stava nel fatto che mettevo nel codice il NomeFunzione
> > e successivamente cercavo di assegnare il risultato ad una variabile.
> > Cioč scrivevo:

Ah Ah Ah! Si č quasi cosě ...Ma non proprio:
infatti quando ho messo il MsgBox suggeritomi da Alessandro Baraldi
mi sono accorto che la seconda volta "Ciccio" le uova me le ha portate!
Cioč la funzione ha restituito il suo valore ma la seconda volta!
E' stato cosě che ho capito...
(probabilmente avrebbe continuato a portarmi uova all'infinito...Colesterolo
a 1000!)



title: QUERY AGGIORNAMENTO

text:
Ho 2 tabelle con identica struttura.
Mi servirebbe gestire linserimento di nuovi records provenienti dalla
seconda tabella e nello stesso tempo, a parita' di chiavi, gestire
l'aggiornamento.
In alternativa quando i records delle 2 tabelle siincontrano (match)
cancellare il rispettivo recors della prima tabella e inserire il
secondo come nuovo
grazie


title: QUERY AGGIORNAMENTO

author: Fabrizio Conti (Panathos)

text:
On 3 Ott, 17:29,
margherita.santare...@gmail.com
 wrote:
> Ho 2 tabelle con identica struttura.
> Mi servirebbe gestire linserimento di nuovi records provenienti dalla
> seconda tabella e nello stesso tempo, a parita' di chiavi, gestire
> l'aggiornamento.
A quanto mi risulta, non avendo Access (almeno, la versione 97 che uso
io) una funzione replace() come mysql, devi provvedere a fare una
query di accodamento escludendo i record già presenti, e poi "gestire
l'aggiornamento" con un'altra query.
Per l'accodamento dei record non presenti, detta velocemente, dovresti
creare una query e mettere a sinistra la tabella coi valori nuovi da
aggiungere, a destra la tabella da riempire. Poi metti in join i campi
chiave e fai un left join (apri il menu di scelta del join e scegli la
seconda opzione).
Trascini il campo "joinato" della tabella di destra nella query, e
metti "is null" come prima condizione, e la esegui. Se hai fatto tutto
correttamente dovresti vedere solo le righe della tabella di sinistra
che non sono presenti nella tabella di destra.
Poi aggiungi gli altri campi che vuoi accodare, e trasformi la query
in una "query di accodamento".
> In alternativa quando i records delle 2 tabelle siincontrano (match)
> cancellare il rispettivo recors della prima tabella e inserire il
> secondo come nuovo
... questa è la replace() di cui sopra.
Con Access devi fare una query di aggiornamento mettendo in inner join
(il join "standard", se non lo modifichi tramite menu) i campi con le
chiavi (sempre che siano univoche, oppure a patto che la non-univocità
non sia un problema...), trascini nella query i campi della tabella di
DESTRA, modifichi la query in "query di aggiornamento"; e a manina in
ogni campo scrivi [tabellasinistra].[nomecampo] in corrispondenza dei
campi che vuoi aggiornare.
ciao,
Panathos


title: sottomaschera a scomparsa

text:
Vorrei che in una maschera continua al click di un tasto venisse
visualizzata una parte di campi altrimenti non visibili...so come fare
questo, ma vorrei che lo spazio tra un record e l'altro si ingrandisse solo
richiamando appunto i campi nascosti e tornasse alle misure precedenti nel
momento in cui diventano di nuovo invisibili...
grazie


title: sottomaschera a scomparsa

author: Karl Donaubauer

text:

Se ti capisco benen non basta rendere visibile o no i controlli.
Devi anche cambiare la posizione (Top) dei controlli, altrimenti
non puoi diminuire l'altezza della sezione (Height). Un esempio:
Prima devi sapere le due altezze giuste della sezione
e le posizioni giuste dei controlli, p.e. con
Debug.Print Me.Section(acDetail).Height
Debug.Print Me!Casella1.Top
ecc.
Poi cambia le posizioni a mano e fai di nuovo i Debug.Print
per leggere tutti valori che sono necessario dalla finestra debug.
Poi nel evento che vuoi scrivi p.e.
If Me!Casella1.Visible = True Then
    Me!Casella1.Visible = False
    Me!Casella1.Top = 1000
    Me.Section(acDetail).Height = 1300
Else
    Me!Casella1.Visible = True
    Me.Section(acDetail).Height = 1800
    Me!Casella1.Top = 1500
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: sottomaschera a scomparsa

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6ata3nF...@mid.individual.net...

scusa la mia ignoranza....ma devo inserire Debug.Print
Me.Section(acDetail).Height in un evento della maschera?


title: sottomaschera a scomparsa

text:
Lory22 wrote:
> "Karl Donaubauer ha scritto:

> ...
> scusa la mia ignoranza....ma devo inserire Debug.Print
> Me.Section(acDetail).Height in un evento della maschera?
Non importa. Una qualsiasi procedura che ti piace p.e.
al click di un bottone.



title: sottomaschera a scomparsa

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6auvnlF...@mid.individual.net...

ok, ho messo Debug.Print Me.Section(acDetail).Height in un bottone nella
stessa maschera dove dovrei misurare la sezione nell'evento click, ma non
succede nulla....


title: sottomaschera a scomparsa

text:
"Lory22" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:484aa989$0$17939$5fc...@news.tiscali.it...

caspita!! ho cercato un pò ma poi ho scoperto questa benedetta finestra
immediata... qui si leggono i valori che vengono restituiti inserendo il
codice debug.print.... tutto ok... per la prima riga della maschera
continua, ma io vorrei che il pulsante dettagli aprisse lo spazio rendendo
visibili i controlli in ogni riga
esempio: per ogni riga è presente il pulsante visualizza dettagli, al click
del quale lo spazio della riga si ingrandisce e diventano visibili i
controlli ..per ogni riga...
grazie


title: sottomaschera a scomparsa

text:
Lory22 ha scritto:

>caspita!! ho cercato un pň ma poi ho scoperto questa benedetta finestra
>immediata... qui si leggono i valori che vengono restituiti inserendo il
>codice debug.print.... tutto ok... per la prima riga della maschera
>continua, ma io vorrei che il pulsante dettagli aprisse lo spazio rendendo
>visibili i controlli in ogni riga
>esempio: per ogni riga č presente il pulsante visualizza dettagli, al click
>del quale lo spazio della riga si ingrandisce e diventano visibili i
>controlli ..per ogni riga...
>grazie
>
Forse potresti ottenere quello che vuoi con una maschera separata (magari pop up). utilizzando doevents per sincronizzare due maschere  o, meglio, utilizzando il pič di maschera per inserire tutti i dettagli, cosě, senza scrivere codice, ad ogni spostamento tra i record, cambiano anche tutti i dettagli.
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: sottomaschera a scomparsa

text:
Lory22 wrote:
>> Karl Donaubauer ha scritto:
> ...
>>>>> Devi anche cambiare la posizione (Top) dei controlli, altrimenti
>>>>> non puoi diminuire l'altezza della sezione (Height). Un esempio:
>>>>> ...
>>>>> Poi nel evento che vuoi scrivi p.e.
>>>>>
>>>>> If Me!Casella1.Visible = True Then
>>>>>    Me!Casella1.Visible = False
>>>>>    Me!Casella1.Top = 1000
>>>>>    Me.Section(acDetail).Height = 1300
>>>>> Else
>>>>>    Me!Casella1.Visible = True
>>>>>    Me.Section(acDetail).Height = 1800
>>>>>    Me!Casella1.Top = 1500
>>>>> End If
>>>> ...
> ...tutto ok... per la prima riga della maschera
> continua, ma io vorrei che il pulsante dettagli aprisse lo spazio rendendo
> visibili i controlli in ogni riga
> esempio: per ogni riga è presente il pulsante visualizza dettagli, al
> click del quale lo spazio della riga si ingrandisce e diventano visibili i
> controlli ..per ogni riga...
Non ti capisco.
Se cambi una proprietà come Visible, Top o Height tutti controlli
o sezioni di una maschera continua cambiano. --> ?
--
cu



title: sottomaschera a scomparsa

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6bc1t3F...@mid.individual.net...

Scusami ho visto solo ora la tua richiesta, si, ho impostato l'evento click
di un pulsante che ho inserito nella riga corrispondente al record, ma al
click del pulsante non viene ampliata soltanto la riga corrispondente al
pulsante cliccato ma tutte le righe di tutti i record...


title: Match tra campi anziche tra records

text:
Salve!
Su due Recordsets relativi a due Tabelle ho bisogno di "Matchare" (l'accademia della crusca mi perdoni) più campi data di una TabellaB con una data di TabellaA

Qualcosa tipo:
TROVA TabellaB!Data1  in TabellaA!Data  altrimenti
TROVA TabellaB!Data2  in TabellaA!Data  altrimenti
TROVA TabellaB!Data3  in TabellaA!Data  ….
Ho risolto la cosa con un ciclo Do Until  e FindFirst… ma  è venuta fuori una routine un po’ pasticciata soprattutto nel momento in cui ho trovato il match e dovo fargli fare qualcosa....

C’è qualche metodo più specifico che posso usare?
Grazie come sempre!


title: Match tra campi anziche tra records

author: Bruno Campanini

text:
Marco has brought this to us :
> Salve!
> Su due Recordsets relativi a due Tabelle ho bisogno di "Matchare"
> (l'accademia della crusca mi perdoni) più campi data di una TabellaB con una
> data di TabellaA
La Crusca te lo potrà anche perdonare il "Matchare"... purché
semel in anno.
Ma per "anziche" proprio no!
>
> Qualcosa tipo:
> TROVA TabellaB!Data1  in TabellaA!Data  altrimenti
> TROVA TabellaB!Data2  in TabellaA!Data  altrimenti
> TROVA TabellaB!Data3  in TabellaA!Data  ….
> Ho risolto la cosa con un ciclo Do Until  e FindFirst… ma  è venuta fuori una
> routine un po’ pasticciata soprattutto nel momento in cui ho trovato il match
> e dovo fargli fare qualcosa....
>
> C’è qualche metodo più specifico che posso usare?

Prova questa:
============================
Private Sub Command0_Click()
Dim i As Integer, SQL As String, RS As Recordset

For i = 1 To 3
    SQL = "SELECT TabellaA.Data FROM TabellaA WHERE TabellaA.Data "
    SQL = SQL & "In(SELECT TabellaB.Data" & i & " FROM TabellaB;);"
    Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
    If RS.RecordCount > 0 Then
        MsgBox RS![Data]
        Exit For
    End If
Next

End Sub
==============================

Bruno


title: Match tra campi anziche tra records

text:

Salve Bruno,
scusa ma nel tuo esempio non ho capito dove hai messo i Nomi dei Campi Data diversi della TabellaB:
Data1 , Data2, Data3....vedo solo un TabellaB.Data.
Un'altra cosa: essendo Campi Data non occorrono i simboli #?...


title: Match tra campi anziche tra records

text:
Marco explained :

> Salve Bruno,
> scusa ma nel tuo esempio non ho capito dove hai messo i Nomi dei Campi Data
> diversi della TabellaB: Data1 , Data2, Data3....vedo solo un TabellaB.Data.
Abbiamo TabellaA.Data (laddove il campo Data è uno solo), e abbiamo
TabellaB.Data & i laddove, al variare di i da 1 a 3, avremo:
TabellaB.Data1, TabellaB.Data2, TabellaB.Data3.

> Un'altra cosa: essendo Campi Data non occorrono i simboli #?...
Dovessimo scrivere delle date i cancelletti ( # ) sarebbero
indispensabili, non così dovendo solo leggere date,
presumibilmente già formattate.

Bruno


title: Match tra campi anziche tra records

text:

Ciao Bruno,
sulla riga
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
mi dice "caratteri non previsti dopo la fine dell'istruzione SQL
((Al di là di questo continuo a non capire come SQL potrebbe trovare
TabellaB.Data quando il campo nominato Data non esiste in TabellaB.... cmq, al momento mi dà questo errore. Quali sono i caratteri non previsti?!))


title: Match tra campi anziche tra records

text:
Marco expressed precisely :

> Ciao Bruno,
> sulla riga
> Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
> mi dice "caratteri non previsti dopo la fine dell'istruzione SQL
Non so che dirti... da me (Access 2016/64bit) funziona regolarmente.
Tu che versione hai?
Prova ad eliminare nella seconda riga SQL = ... il penultimo ";"
cosicché la stessa termini in ... TabellaB);"

> ((Al di là di questo continuo a non capire come SQL potrebbe trovare
> TabellaB.Data quando il campo nominato Data non esiste in TabellaB.... cmq,
> al momento mi dà questo errore. Quali sono i caratteri non previsti?!))
"TabelleB.Data" & i    diventa "TabellaB.Data1" quando  i = 1
                       diventa "TabellaB.Data2" quando  i = 2
                       diventa "TabellaB.Data3" quando  i = 3

Bruno


title: [OT?] Access \ Systray

author: EmMeCi - Style

text:
Nel caso sia un OT mi scuso anticipatamente!
Su google ho cercato nei vecchi post ma ho solo ottenuto un pò di confusione
... mi rivolgo quindi a voi del NG.
Vorrei creare un DB in Access per gestire una sorta di piccolo CRM.
Il BE risiederà sul server, sui Client attiverò invece i vari FE ma ...
... vorrei che all'avvio della macchina il DB partisse (fin qui tutto ok) ma
che resti attivo in SysTray e agendo su tale icona con il tasto destro del
mouse io possa agire all'interno di un menu dedicato.
...is it possible? (spero ... sarebbe di mio gradimento ... anche perchè non
ho licenze VB in ufficio!!!).
Grazie a tutti per eventuali suggerimenti\idee\informazioni in merito.
--
**********
EmMeCi
**********
ICQ: 228-143-897


title: [OT?] Access \ Systray

author: Roberto da casa

text:
"EmMeCi - Style" <
mcs...@email.it
> ha scritto nel messaggio
news:zkSuf.205$Q62...@news.it.colt.net...

Non sono sicuro di aver ben compreso il tuo problema, ma se devi gestire da
VBA una icona sulla SysTray e relativo menu, vai sul Sito Comune (link qui
sotto) e nella Sezione General leggi la FAQ di Alessandro Baraldi intitolata
"6.113 Inserire un'icona nella SysTray di Windows e creare un Menù Popup
Runtime personalizzato con le API.". Quella soluzione non fa ricorso ad
ActiveX e quindi non ha bisogno di particolari licenze VB.
>
> --
> **********
> EmMeCi
> **********
> ICQ: 228-143-897
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: [OT?] Access \ Systray

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:mcTuf.111661$65.32...@twister1.libero.it...

Ottimo,
potrebbe fare al caso mio ... verifico in giornata.
Tante grazie per ora!
Buona giornata,



title: Controllo record in tbl relazionata

author: fid

text:
La mitica tbl clienti ha relazionata la puntuale tbl prodotti.
Elenco tutti i clienti in una maschera e puntanto un nome apro altra
maschera con i prodotti.Se per caso non ha prodotti, al posto di aprire la
maschera è possibile avere un msgbox che indica la mancanza di record?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Controllo record in tbl relazionata

author: Pablitomf (Maurizio Facciuti)

text:
"fid" <
fe_l...@yahoo.it
> ha scritto nel messaggio
news:eg4qpb$nf7$1...@news.newsland.it...
> La mitica tbl clienti ha relazionata la puntuale tbl prodotti.
> Elenco tutti i clienti in una maschera e puntanto un nome apro altra
> maschera con i prodotti.Se per caso non ha prodotti, al posto di aprire la
> maschera è possibile avere un msgbox che indica la mancanza di record?
> grazie
>
Una roba del genere...
        Dim CLI as integer
        CLI = Tua_variabile_cliente
        Dim rst As Recordset
        Set rst = CurrentDb.OpenRecordset("SELECT Descrizione,
campo_Relazionato, FROM tabella_prodotti WHERE campo_Relazionato='" & CLI &
"';")
        If rst.EOF = true Then
            msgbox "Non vi sono Record per questo Cliente"
        Else End If
        rst.Close
        Set rst = Nothing
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: n posizione di un record in masch. continua

text:
In una maschera continua, come si fa a sapere
qual'è la posizione di un record.
Devo su un codice:
Private sub testo_change
qui ho la riga che trova il record
me.recordsetclone.findfirst "cognome like ""& me.testo & """
me.bookmark.me.recordsetclone
qui devo mettere una variabile con la posizione del record sopra
variabile=posizione del record trovato
end sub


author: Riccardo

text:
rr12rr <
NOSPAM...@usa.net
> wrote in message 3A0A4E29...@usa.net...

_______
forse con
variabile=me.currentrecord
ciao Riccardo


text:
penso che possa andare
ho testato il me current record su una maschera a parte
con un click e una casella di testo
quindi io con mouse seleziono il record e poi al click mi scrive
la posizione esatta del record
mi auguro che funzioni anche quando la selezione del
record avviene direttamente da codice (con il like e poi il bookmark)
thank you


title: Tempi di risposta eccessivi!!!!

author: Tore Marche

text:
Salve!!!

Accedo a Sql server 7.0 da Access 97 tramite ODBC, il BE si trova su
un servet NT 4.0 con 256 Mb ram, il FE su un PC NT 4.0 con 128 Mb ram.

La query con la quale accedo e la seguente, funziona tutto regolarmente
ma i tempi di  risposta sono un po’ eccessivi, dove pensate che sbaglio?

Private Sub Pulsante_Click()

Dim MioDb As Database, MIOSET As Recordset

Dim SQLIstr As String

SQLIstr = "select nome_campo1, nome_campo2 ect, ect  "

SQLIstr = SQLIstr & "Where nome_campo1 = 'pippo'  "

SQLIstr = SQLIstr & "order by nome_campo1;"

 Set MioDb = DBEngine.Workspaces(0).Databases(0)

 Set MIOSET = MioDb.OpenRecordset(SQLIstr, dbOpenDynaset, dbSQLPassThrough)

' Tempo di  elaborazione 3 secondi

Forms![nome_scheda]![ricerca].RowSource = SQLIstr

' Tempo di  elaborazione 10 secondi

MIOSET.Close

End sub

Grazie anticipatamente.


title: Tempi di risposta eccessivi!!!!

author: Fabio Montagner

text:
Hai provato a crearti una View (order by è
possibile se usi "select top 100 percent * from TuaTabella" in Sql7 ed usare
quella per accedere ai dati?


title: Tempi di risposta eccessivi!!!!

text:
Intanto grazie per la risposta,

Scusami ma non t'ho capito...

Ciao.

Fabio Montagner ha scritto:




title: Tempi di risposta eccessivi!!!!

text:
In sql7 ti crei una "View" (es.: select top 100
percent * from tuatabella order by Nomecampo) e la chiami ad es.
MiaView.

Via ODBC puoi collegare la View, che viane "vista"
da Access come se fosse una tabella.

Quindi applichi il filtro "where . . " all'interno
di Access, però hai fatto fare l'ordinamento a sql7 e questo ti fa recuperare un
pò di tempo.

Se non sbaglio con Access2000 puoi collegarti ad
una Stored Proc ed inviando i dati per il filtro, puoi velocizzare ulteriormente
le prestazioni in risposta (questa devo ancora provarla bene).

PS: attenzione che se in una view usi il "top 100
percent . . . . order by" puoi usare i dati in sola lettura.

"Tore Marche" <
sma...@numera.it
> wrote in message
news:39D2E326...@numera.it
...



title: verificare esistenza campo in tabella

author: francesco

text:
Ciao rieccomi con un nuovo problema. Data una tabella devo verificare
l'esistenza di un campo all'interno di essa. Se il campo esiste, riportare
il valore in una textbox della maschera.
grazie
Franciros

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


title: verificare esistenza campo in tabella

author: Paolo

text:
francesco wrote:
> Ciao rieccomi con un nuovo problema. Data una tabella devo verificare
> l'esistenza di un campo all'interno di essa. Se il campo esiste, riportare
> il valore in una textbox della maschera.
Puoi fare riferimento ai campi di una tabella con
nomedellatabella.fields(numerocampo).name quindi scoprire tutti i nomi dei
campi della tabella.
Lo si usa quando per esempio si vogliono fare confronti di strutture o
altro.
Lo uso anche nel mio programma per confrontare i database mdbcompare (se ti
interessa l'mde lo trovi in
http://www.sysprogress.com
)
Ciao


title: verificare esistenza campo in tabella

author: Davide (Sib)

text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
> Ciao rieccomi con un nuovo problema. Data una tabella devo verificare
> l'esistenza di un campo all'interno di essa. Se il campo esiste, riportare
> il valore in una textbox della maschera.
O come dice Paolo o, più semplicemente;
On error resume next
Me.TuoControllo=rs!TuoCampo
Se tuo campo non esiste l'errore non blocca il codice e passa all'istruzione
successiva.
Davide


title: Numerare righe su report

author: Nicoletta

text:
ho un report con associata una query che mi estrae es. 100 righe.
in corpo_format filtro talune righe (es. 10) (.printsection=false se altre
righe precedenti soddisfano delle condizioni), ma voglio numerare quelle che
stampo (es. 90)
il metodo di contare le righe spiegato nell'help non mi aiuta, perchč non
tiene conto di quelle filtrate.
ho provato a contarle con una variabile statica quando formatcount=1 ma ho
problemi in anteprima se per es. vado a fondo stampa e ritorno indietro o
anche se poi stampo dall'anteprima.
qualcuno conosce qualche altro metodo?
ciao e grazie
nicky


title: Numerare righe su report

author: @Alex (Alessandro Baraldi)

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:mfYQa.61663$qa5.1...@news2.tin.it...
> ho un report con associata una query che mi estrae es. 100 righe.
> in corpo_format filtro talune righe (es. 10) (.printsection=false se altre
> righe precedenti soddisfano delle condizioni), ma voglio numerare quelle
che
> stampo (es. 90)
> il metodo di contare le righe spiegato nell'help non mi aiuta, perchè non
> tiene conto di quelle filtrate.
> ho provato a contarle con una variabile statica quando formatcount=1 ma ho
> problemi in anteprima se per es. vado a fondo stampa e ritorno indietro o
> anche se poi stampo dall'anteprima.
> qualcuno conosce qualche altro metodo?
>
> ciao e grazie
> nicky
>
Nicoletta hai letto il post precedente al tuo...???
Chiedete la stessa cosa, non è che poi volete
soluzioni diverse...???
Leggi e cerca sul SitoComune c'è pure un esempio.
@Alex.


title: Numerare righe su report

text:
mi spiace, ma sul sito non ho trovato quello che cercavo.
mi spiego meglio, il post precedente deve contare i record in una query, io
la query la ottengo con tanti record, poi in fase di stampa, se una riga
precedente soddisfa determinate condizioni, non devo stampare quelle
successive (tale filtro non posso proprio inserirlo nella query, te lo
assicuro)
però devo contare quelle stampate
ciao
nicky
"@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
news:hpYQa.177873$lK4.5...@twister1.libero.it...



title: Numerare righe su report

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:1EYQa.61917$qa5.1...@news2.tin.it...
> mi spiace, ma sul sito non ho trovato quello che cercavo.
> mi spiego meglio, il post precedente deve contare i record in una query,
io
> la query la ottengo con tanti record, poi in fase di stampa, se una riga
> precedente soddisfa determinate condizioni, non devo stampare quelle
> successive (tale filtro non posso proprio inserirlo nella query, te lo
> assicuro)
> però devo contare quelle stampate
>
> ciao
> nicky
Perdono se ho frainteso, ma continuo a non capire cosa devi ottenere.
Se fosse possibile un esempio o una spiegazione meno ermetica........!
Mi ricordi Ungaretti............ o Quasimodo, non sò se hai la Gobba...?
Scherzi a parte........!
Ciao.
@Alex.


title: Numerare righe su report

text:
"@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
news:eIYQa.177857$Ny5.5...@twister2.libero.it...
>
> "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> news:1EYQa.61917$qa5.1...@news2.tin.it...
> > mi spiace, ma sul sito non ho trovato quello che cercavo.
> > mi spiego meglio, il post precedente deve contare i record in una query,
> io
> > la query la ottengo con tanti record, poi in fase di stampa, se una riga
> > precedente soddisfa determinate condizioni, non devo stampare quelle
> > successive (tale filtro non posso proprio inserirlo nella query, te lo
> > assicuro)
> > perň devo contare quelle stampate
> >
> > ciao
> > nicky
>
>
> Perdono se ho frainteso, ma continuo a non capire cosa devi ottenere.
>
> Se fosse possibile un esempio o una spiegazione meno ermetica........!
> Mi ricordi Ungaretti............ o Quasimodo, non sň se hai la Gobba...?
>
> Scherzi a parte........!
>
> Ciao.
> @Alex.
>
>
giuro di non avere nessuna gobba
non ho approfondito per non tediare il gentile lettore, ma visto che insisti
...
la query mi estrae le timbrature dei dipendenti della mia azienda.
devo sapere se i dipendenti sono presenti ad una determinata ora, quindi
devo fare un ragionamento su entrate o uscite e sul giorno attuale piů
giorno precedente (per eventuali turni di notte).
tutto questo ragionamento č fatto da una funzione (piuttosto lunga ecco
perchč non puň essere una nella query) che esamina piů righe restituite
al termine di tale ciclo, formatto il corpo o il pič di gruppo per stampare
i miei dati, e vorrei anche stampare un contatore che mi indica il numero di
riga, perň incombono i problemi che ho postato prima
ciao
nicky


title: Numerare righe su report

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:qPYQa.62025$qa5.1...@news2.tin.it...
> "@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
> news:eIYQa.177857$Ny5.5...@twister2.libero.it...
[CUT]
> >
>
> giuro di non avere nessuna gobba
> non ho approfondito per non tediare il gentile lettore, ma visto che
insisti
Meglio per te, per la gobba.....!
> la query mi estrae le timbrature dei dipendenti della mia azienda.
> devo sapere se i dipendenti sono presenti ad una determinata ora, quindi
> devo fare un ragionamento su entrate o uscite e sul giorno attuale più
> giorno precedente (per eventuali turni di notte).
> tutto questo ragionamento è fatto da una funzione (piuttosto lunga ecco
> perchè non può essere una nella query) che esamina più righe restituite
> al termine di tale ciclo, formatto il corpo o il piè di gruppo per
stampare
> i miei dati, e vorrei anche stampare un contatore che mi indica il numero
di
> riga, però incombono i problemi che ho postato prima
>
> ciao
> nicky
>
Ora ho capito bene.
Ora ti ripropongo la soluzione che ti avevo proposto all'inizio.
Sul SitoComune c'è una Routinetta che se la inserisci come funzione
nella Query ti Numera in modo progressivo un Campo aggiunto da te
che è ovviamente un Campo calcolato.
Cosa succede in questo caso, la tua Funzione complessissima che però
viene richiamata dalla QRY come criterio ti filtra i dati ed hai così un
Recordset
composto da supponiamo 15 Record(che ovviamente soddisfano la Funzione di
calcolo).
Se aggiungi alla tua Qry un Campo Calcolato chiamato
ProgressivoRiga=GetRecNum()
ottieni, PROPRIO COME TI DISSI AL 1° POST quello che mi hai ribadito.
La funzione di seguito realizza il tutto, la devi mettere in un Modulo
Generico di Database.
Giura di provarla prima di dirmi chenon va bene................!!!! ;-)
Ciao.
@Alex.
Public Function GetRecNum() As Long
'==========================================================================
'Name      : GetRecNum()
'Purpose   :
'Author    : Maurizio Borrelli
'Date      : 01 febbraio 2002
'Called by :
'Calls     :
'Inputs    :
'Output    : Posizione assoluta del record corrente+1
'==========================================================================
  On Error GoTo erh
  With CodeContextObject.RecordsetClone
    If Not (.BOF And .EOF) Then
      .Bookmark = CodeContextObject.Bookmark
      GetRecNum = .AbsolutePosition + 1
    End If
  End With
ext:
  Exit Function
erh:
  GetRecNum = 0
End Function


title: Numerare righe su report

text:
"@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
news:bXYQa.177909$Ny5.5...@twister2.libero.it...
>
> "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> news:qPYQa.62025$qa5.1...@news2.tin.it...
> > "@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
> > news:eIYQa.177857$Ny5.5...@twister2.libero.it...
> [CUT]
> > >
> >
> > giuro di non avere nessuna gobba
> > non ho approfondito per non tediare il gentile lettore, ma visto che
> insisti
>
> Meglio per te, per la gobba.....!
>
> > la query mi estrae le timbrature dei dipendenti della mia azienda.
> > devo sapere se i dipendenti sono presenti ad una determinata ora, quindi
> > devo fare un ragionamento su entrate o uscite e sul giorno attuale piů
> > giorno precedente (per eventuali turni di notte).
> > tutto questo ragionamento č fatto da una funzione (piuttosto lunga ecco
> > perchč non puň essere una nella query) che esamina piů righe restituite
> > al termine di tale ciclo, formatto il corpo o il pič di gruppo per
> stampare
> > i miei dati, e vorrei anche stampare un contatore che mi indica il
numero
> di
> > riga, perň incombono i problemi che ho postato prima
> >
> > ciao
> > nicky
> >
>
>
> Ora ho capito bene.
> Ora ti ripropongo la soluzione che ti avevo proposto all'inizio.
>
> Sul SitoComune c'č una Routinetta che se la inserisci come funzione
> nella Query ti Numera in modo progressivo un Campo aggiunto da te
> che č ovviamente un Campo calcolato.
> Cosa succede in questo caso, la tua Funzione complessissima che perň
> viene richiamata dalla QRY come criterio ti filtra i dati ed hai cosě un

proverň senz'altro, anche se a prima vista mi sembra di non essere riuscita
a spiegarmi bene.
a mio parere non posso inserire una funzione nella query, perchč io ottengo
dalla query questi dati
matr 1, ent 15 lug 22:30
matr 1, usc 15 lug 23:45
matr 1, ent 16 lug 00:45
matr 1, usc 16 lug 05:15
solo al termine dell'esame delle cinque righe ordinate posso capire se il
dipendente č presente alle 23:00 (prima della mensa) e alle 1:00 dopo la
mensa (per esempio), in questo caso devo stampare la mia riga numerata,
quindi non posso mandare n informazioni ad una funzione che mi ritorna un
risultato per ogni riga!
ciao
nicky


title: Numerare righe su report

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:v8ZQa.62176$qa5.1...@news2.tin.it...
[CUT]
> >
>
> proverò senz'altro, anche se a prima vista mi sembra di non essere
riuscita
> a spiegarmi bene.
> a mio parere non posso inserire una funzione nella query, perchè io
ottengo
> dalla query questi dati
> matr 1, ent 15 lug 22:30
> matr 1, usc 15 lug 23:45
> matr 1, ent 16 lug 00:45
> matr 1, usc 16 lug 05:15
>
> solo al termine dell'esame delle cinque righe ordinate posso capire se il
> dipendente è presente alle 23:00 (prima della mensa) e alle 1:00 dopo la
> mensa (per esempio), in questo caso devo stampare la mia riga numerata,
> quindi non posso mandare n informazioni ad una funzione che mi ritorna un
> risultato per ogni riga!
>
> ciao
>
> nicky
>
Quindi dove realizzi l'elaborazione, direttamente nel REPORT...???
Forse hai ragione, ma c'è qualcosa che non mi torna nel tuo modo
di gestire il controllo.
In ogni caso :
> matr 1, ent 15 lug 22:30
> matr 1, usc 15 lug 23:45
Il dipendente secondo me è dentro perchè la timbratura dell'uscita
c'è ed è maggiore dell'entrata.....!!!!!!???
Sbaglio qualcosa....????????????????
---------------------------------------------------------------------
CONSIDERAZIONI PERSONALI
---------------------------------------------------------------------
In realtà però secondo me avresti avuto più successo se avessi
organizzato la tabella in modo Orizzontale in modo da non dover
ricorrere a confronti Verticali.
Ogni Dipendente ha al massimo 4 timbrature se Turnista, forse 6
se giornaliero.
IdDipendente
1°Ent
1°Uscita
2°Ent
2°Uscita
3°Ent
3°Uscita
In questo modo ci stanno tutte le combinazioni, ed in più
hai una facilitazione di verifica che non devi più scorrere i 4
Record Successivi o precedenti, hai tutto nello stesso.
Ti ho suggerito questo perchè da noi fanno così, e credo in
molti altri posti..................!!!!
@Alex.


title: Numerare righe su report

author: Giorgio Prx

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:mfYQa.61663$qa5.1...@news2.tin.it...
> ho un report con associata una query che mi estrae es. 100 righe.
> in corpo_format filtro talune righe (es. 10) (.printsection=false se altre
> righe precedenti soddisfano delle condizioni), ma voglio numerare quelle
che
> stampo (es. 90)
> il metodo di contare le righe spiegato nell'help non mi aiuta, perchè non
> tiene conto di quelle filtrate.
> ho provato a contarle con una variabile statica quando formatcount=1 ma ho
> problemi in anteprima se per es. vado a fondo stampa e ritorno indietro o
> anche se poi stampo dall'anteprima.
> qualcuno conosce qualche altro metodo?
>
> ciao e grazie
> nicky
>
>
Ciao Nicoletta
Per questi casi utilizzo un metodo simile al tuo solo che incremento
direttamente un controllo e non ho problemi di sorta.
Nel mio esempio il controllo si chiama T_Contatore di tipo Casella di testo
e non ha origine controllo.
-------------------
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    'Azzero il controllo al primo record
    'In questo modo viene azzerato anche passando dalla visualizzazione alla
stampa
    If Me.CurrentRecord = 1 Then
       Me.T_Contatore = Null
    End If
    'Controllo se il record deve essere stampato
    If MiaFunzione()=False Then
       Cancel = True
       Exit Sub
    End If
    'Se stampo incremento il controllo di 1
    If Me.FormatCount = 1 Then
       Me.T_Contatore = Nz(Me.T_Contatore, 0) + 1
    End If
End Sub
---------------
Ciao Giorgio


title: Numerare righe su report

author: Francesco R.

text:
"@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
news:IjZQa.177995$Ny5.5...@twister2.libero.it...
>
> "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> news:v8ZQa.62176$qa5.1...@news2.tin.it...
> [CUT]
> ---------------------------------------------------------------------
> CONSIDERAZIONI PERSONALI
> ---------------------------------------------------------------------
>
> In realtà però secondo me avresti avuto più successo se avessi
> organizzato la tabella in modo Orizzontale in modo da non dover
> ricorrere a confronti Verticali.
>
> Ogni Dipendente ha al massimo 4 timbrature se Turnista, forse 6
> se giornaliero.
> IdDipendente
> 1°Ent
> 1°Uscita
> 2°Ent
> 2°Uscita
> 3°Ent
> 3°Uscita
> In questo modo ci stanno tutte le combinazioni, ed in più
> hai una facilitazione di verifica che non devi più scorrere i 4
> Record Successivi o precedenti, hai tutto nello stesso.
>
> Ti ho suggerito questo perchè da noi fanno così, e credo in
> molti altri posti..................!!!!
>
> @Alex.
---------------------------------------------------------------------
RI-CONSIDERAZIONI PERSONALI
---------------------------------------------------------------------
Nella mia azienda hanno appena installato un sistema di rilevazione che
dispone di due antennine ravvicinate, una per l'entrata ed una per l'uscita.
Ho notato che molto spesso, se il dipendente indugia un pò con la tesserina,
vengono registrate due timbrature.
Inoltre se un dipendente deve assentarsi per un qualsiasi motivo, le
timbrature aumentano ed è difficile stabilire un numero massimo.
...la soluzione "un record, una timbratura" mi piace di più, pazienza se è
più complicato gestirle.
Ciao a tutti.


title: Numerare righe su report

text:
"@Alex (Alessandro Baraldi)" <
ik2...@libero.it
> ha scritto nel messaggio
news:IjZQa.177995$Ny5.5...@twister2.libero.it...

purtroppo le ragioni del tipo di query non sono limitate al presente o
assente (davvero non posso dimostrarti perchè sono costretta a ragionare in
quel modo, fidati, anche perchè non sono la sola ad aver prodotto il
risultato), senza addentrarmi le timbrature possono essere anche 30!, in
quanto è interessata nache la produzione (inizio attrezzaggio, inizio
lavorazione, cambio utensile, inizio commessa AAAA, fine commessa AAAA, etc,
etc.)
si, la funzione sta nel report e non può essere altrimenti, voglio solo
poter contare le righe del report in maniera ottimale
nicky


title: Numerare righe su report

text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bf1rkt$h26$1...@lacerta.tiscalinet.it...

ci ho provato, ma se visualizzo in anteprima, e clicco sul navigatore ultima
pagina, poi vadi indietro, il contatore va a pu... ramengo.
nicky


title: Numerare righe su report

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:hv_Qa.63023$qa5.1...@news2.tin.it...
>
> "Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
> news:bf1rkt$h26$1...@lacerta.tiscalinet.it...
> >
> > "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> > news:mfYQa.61663$qa5.1...@news2.tin.it...
> >
> >
> >
> ci ho provato, ma se visualizzo in anteprima, e clicco sul navigatore
ultima
> pagina, poi vadi indietro, il contatore va a pu... ramengo.
>
> nicky
>
Umm.. a me non succede ma forse non ho capito il problema o  non parliamo
della stessa cosa.
Ciao Giorgio.


title: Numerare righe su report

author: cidi

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:mfYQa.61663$qa5.1...@news2.tin.it...
> ho un report con associata una query che mi estrae es. 100 righe.
> in corpo_format filtro talune righe (es. 10) (.printsection=false se altre
> righe precedenti soddisfano delle condizioni), ma voglio numerare quelle
che
> stampo (es. 90)
> il metodo di contare le righe spiegato nell'help non mi aiuta, perchè non
> tiene conto di quelle filtrate.
> ho provato a contarle con una variabile statica quando formatcount=1 ma ho
> problemi in anteprima se per es. vado a fondo stampa e ritorno indietro o
> anche se poi stampo dall'anteprima.
> qualcuno conosce qualche altro metodo?
>
> ciao e grazie
> nicky
>
>
Inserisci  una casella di testo e nell'origine controllo: =1
somma parziale "su tutto"
Mi scuso per l'intrusione
Saluti Daniele


title: Numerare righe su report

text:
"cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio
news:FK8Ra.65020$qa5.1...@news2.tin.it...
>
> "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> news:mfYQa.61663$qa5.1...@news2.tin.it...
> > ho un report con associata una query che mi estrae es. 100 righe.
> > in corpo_format filtro talune righe (es. 10) (.printsection=false se
altre
> > righe precedenti soddisfano delle condizioni), ma voglio numerare quelle
> che
> > stampo (es. 90)
> > il metodo di contare le righe spiegato nell'help non mi aiuta, perchč
non
> > tiene conto di quelle filtrate.
> > ho provato a contarle con una variabile statica quando formatcount=1 ma
ho
> > problemi in anteprima se per es. vado a fondo stampa e ritorno indietro
o
> > anche se poi stampo dall'anteprima.
> > qualcuno conosce qualche altro metodo?
> >
> > ciao e grazie
> > nicky
> >
> >
>
> Inserisci  una casella di testo e nell'origine controllo: =1
> somma parziale "su tutto"
> Mi scuso per l'intrusione
> Saluti Daniele
>
>
Ciao Daniele
In questo modo conta anche le righe che vengono filtrate nell'evento
Corpo_Format
Ciao Giorgio.


title: Numerare righe su report

text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bf35to$t2g$1...@lacerta.tiscalinet.it...
>
> "cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio
> news:FK8Ra.65020$qa5.1...@news2.tin.it...
> >
> > "Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
> > news:mfYQa.61663$qa5.1...@news2.tin.it...
> > > ho un report con associata una query che mi estrae es. 100 righe.
> > > in corpo_format filtro talune righe (es. 10) (.printsection=false se
> altre
> > > righe precedenti soddisfano delle condizioni), ma voglio numerare
quelle
> > che
> > > stampo (es. 90)
> > > il metodo di contare le righe spiegato nell'help non mi aiuta, perchè
> non
> > > tiene conto di quelle filtrate.
> > > ho provato a contarle con una variabile statica quando formatcount=1
ma
> ho
> > > problemi in anteprima se per es. vado a fondo stampa e ritorno
indietro
> o
> > > anche se poi stampo dall'anteprima.
> > > qualcuno conosce qualche altro metodo?
> > >
> > > ciao e grazie
> > > nicky
> > >
> > >
> >
> > Inserisci  una casella di testo e nell'origine controllo: =1
> > somma parziale "su tutto"
> > Mi scuso per l'intrusione
> > Saluti Daniele
> >
> >
>
> Ciao Daniele
> In questo modo conta anche le righe che vengono filtrate nell'evento
> Corpo_Format
>
> Ciao Giorgio.
>
>
Ciao Giorgio
grazie per il chiarimento, anche se l'avevo immaginato che il mio era un
suggerimento che non poteva essere preso in considerazione per la presenza
in questo 3d di .... GROSSI CALIBRI :-)  però, ho pensato ...non si sa
mai.....il caldo, fa brutti scherzi alla memoria :))))
un caldo saluto
Daniele


title: Numerare righe su report

author: Filippo Campolmi

text:
"Nicoletta" <
for...@virgilio.it
> wrote in message
news:mfYQa.61663$
qa5.1...@news2.tin.it

Ciao,
volevo chiederti se il tuo report termina con la stampa solamente dei
record
filtrati oppure se continua e mostra anche i record scartati
volendo ricominciare il conteggio.
Io ho creato un piccolo Db che ha la stessa esigenza, ed in maniera
semplice
sono riuscito a contare i record filtrati.
Se č quello che stai cercando, sarņ contento di aiutarti.
Saluti Filippo.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Nessun Record - Form vuota

author: Pivo

text:
ciao, di seguito vi posto il codice che sto provando ad utilizzare per
gestire l'apertura di una maschera. Il problema si verifica quando non c'è
nessun record da visualizzare, la maschera è completamente vuota (sarebbe
bello non aprirla nemmeno, in questo caso) ma quel che è peggio è che il
pulsante di chiusura non mi appare e non appaiono nemmeno i bottoni che
dovrebbero esserci (tra cui quello che ne gestisce la chiusura) e la
maschera è a scelta obbligatoria!
Tutto impallato, unico rimedio ALT+F4.
Non so se serve per la vostra analisi, ma la maschera ha una sottomaschera.
Come dovrei fare?
*******************************************************
Private Sub Comando38_Click()
On Error GoTo Err_Comando38_Click
If Me.CasellaEvento = Null Then GoTo esci1
If Me.CasellaEvento <> Null Then GoTo vai1
vai1:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Form_d_posti"
    stLinkCriteria = "[IDEVENTO]=" & "'" & Me![CasellaEvento] & "'"
    If stLinkCriteria = Null Then GoTo messaggio
    If stLinkCriteria = Null Then GoTo vai
vai:
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
    GoTo Esci
messaggio:
MsgBox "Nessun record selezionato!", vbInformation, "DB gestione arc"
GoTo Esci
esci1:
MsgBox "Occorre selezionare un Trek", vbInformation, "DB gestione arc"
GoTo Esci
Esci:
Exit Sub
Exit_Comando38_Click:
    Exit Sub
Err_Comando38_Click:
    MsgBox err.Description
    Resume Exit_Comando38_Click
End Sub
*******************************************************


title: Nessun Record - Form vuota

author: LaLo

text:
"Pivo" <
hge...@tiscalinet.it
> ha scritto nel messaggio
news:930t3f$li8$1...@nread1.inwind.it...
> ciao, di seguito vi posto il codice che sto provando ad utilizzare per
> gestire l'apertura di una maschera. Il problema si verifica quando non c'è
> nessun record da visualizzare, la maschera è completamente vuota (sarebbe
> bello non aprirla nemmeno, in questo caso) ....
[CUT]
Se hai un campo chiave sul recordset associato alla maschera, inserisci il
seguente codice sull'evento apertura della maschera stessa:
If IsNull([<nome campo chiave>]) Then
    Msgbox "Nessun record da visualizzare"
    Cancel = True
End If
Ciao
LaLo


title: Nessun Record - Form vuota

author: Karl Donaubauer

text:
Pivo <
hge...@tiscalinet.it
> ha scritto:
> ciao, di seguito vi posto il codice che sto provando ad utilizzare per
> gestire l'apertura di una maschera. Il problema si verifica quando non c'è
> nessun record da visualizzare, la maschera è completamente vuota (sarebbe
> bello non aprirla nemmeno, in questo caso) ma quel che è peggio è che il
> pulsante di chiusura non mi appare e non appaiono nemmeno i bottoni che
> dovrebbero esserci (tra cui quello che ne gestisce la chiusura) e la
> maschera è a scelta obbligatoria!
> Tutto impallato, unico rimedio ALT+F4.
>...
Puoi usare DCount per vedere prima se ci sono record nel
Recordsource della maschera e non aprire la maschera.
Puoi anche spostare i bottoni dal corpo al pie o intestazione della
maschera perché solo il corpo è vuoto se non ci sono record.
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: Nessun Record - Form vuota

author: Sergio MAZZA

text:
"Pivo" <
hge...@tiscalinet.it
> ha scritto nel messaggio
news:930t3f$li8$1...@nread1.inwind.it...

Quello che ti invio è un esempio di come potresti gestire la mancanza di
dati in una form.
'------------------------
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "seRecordsourceVuoto"
    DoCmd.Echo False
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    If Forms(stDocName).RecordsetClone.EOF Then
        If MsgBox("La maschera è vuota, prosegui?", vbInformation + vbYesNo,
"Informazione") = vbYes Then
            Forms(stDocName).SetFocus
        Else
            DoCmd.Close acForm, stDocName
        End If
    Else
        Forms(stDocName).SetFocus
    End If
Exit_Comando0_Click:
    DoCmd.Echo True
    Exit Sub
Err_Comando0_Click:
    DoCmd.Echo True
    MsgBox Err.Description
End Sub
'------------------------
Ah! Il codice è associato ad un bottone (chiamato Comando0) e nell'evento
"su clic"...
Ciao.


title: selezionare l'occorrenza più recente con DLookUp

author: NSantini

text:
Ho da poco tempo "scoperto" la funzione DLookUp e so utilizzarla con buoni
risultati. Ho un nuovo problema.
Ho una tbOperatori con i dati anagrafici, una tbMovimenti dove sono
riportati tutti gli incarichi per ciascun operatore.  Le due tabelle sono
1operatore-molti movimenti. In ciascun movimento ovviamente c'è il campo
[dal] e il campo [al] rispettivamente inizio e fine incarico. Ho una terza
tbVisite anche questa 1operatore-molte visite. In una frScadenzario sono
riportati i record di una qyScadenzario costruita con tbOperatori e tbVisite
e che inserisce solo i record dove il campo [al]> date(). Nel caso di più
incarichi il DLookUp mi riporta solo il primo record di tbMovimenti che
soddisfa il criterio, mentre io desidererei che mi riportasse l'ultimo
record disponibile. Spero di essere stato chiaro per chi vorrà aiutarmi.
Grazie. Saluti
NSAntini


author: Marco Pizzamiglio

text:
NSantini ha scritto:

Usa Dmax() invece che Dlookup().
Vedi l'help <F1> per i dettagli.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:fij7hg$3li$1...@news.newsland.it...
> NSantini ha scritto:
>
>> Ho da poco tempo "scoperto" la funzione DLookUp e so utilizzarla con
>> buoni
>> risultati. Ho un nuovo problema.
>> Ho una tbOperatori con i dati anagrafici, una tbMovimenti dove sono
>> riportati tutti gli incarichi per ciascun operatore.  Le due tabelle sono
>> 1operatore-molti movimenti. In ciascun movimento ovviamente c'è il campo
>> [dal] e il campo [al] rispettivamente inizio e fine incarico. Ho una
>> terza
>> tbVisite anche questa 1operatore-molte visite. In una frScadenzario sono
>> riportati i record di una qyScadenzario costruita con tbOperatori e
>> tbVisite
>> e che inserisce solo i record dove il campo [al]> date(). Nel caso di più
>> incarichi il DLookUp mi riporta solo il primo record di tbMovimenti che
>> soddisfa il criterio, mentre io desidererei che mi riportasse l'ultimo
>> record disponibile. Spero di essere stato chiaro per chi vorrà aiutarmi.
>> Grazie. Saluti
>> NSAntini
>
>
> Usa Dmax() invece che Dlookup().
> Vedi l'help <F1> per i dettagli.
> Ciao.
> -Marco-
Funziona, Grazie 1GB
Ciao
NSantini


title: [semi-ot] decimali a video

author: Ammammata

text:
se scrivo una query con MS SQL Server Management Studio posso impostare
il numero dei decimali dei risultati numerici *senza* usare il comando
FORMAT?

chessò... un parametro "di sistema" a inizio query che me li imposta al
numero che voglio io

n.b. il default è 5 e parlando di quantità (elettrodomestici) non
servono a nulla; inoltre me li allinea a sinistra, che neanche più i
bambini delle elementari lo fanno

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: soluzione alternativa per eliminare record in una sottomaschera

author: nn

text:
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Materiali " & "WHERE IDFornitore= " &
Me!IDFornitore & ";"
DoCmd.SetWarnings True
Me!SubFormMateriali.Requery
a seguito di vs. indicazioni (nel caso specifico robert da casa) per
eliminare
i record che vedo in una sottomaschera (collegata a dei record
secondari),
volevo a titolo di curiosita' ed anche per capire le soluzioni
alternative possibili
con access97,
1 -chiedere se esiste anche un'altra soluzione per fare cio'   ?
leggendo alcuni post vecchi,  ho notato che alcuni usano il
recordsetclone associato a
delete, pero' non ho capito bene se serve solo per eliminare detrminati
record oppure
lo si puo' usare per cancellare tutti i record che vedo nella
sottomaschera .
Inoltre nel codice sopra si fa uso del SetWarnings, che se non sbaglio
non mi fa vedere
la maschera che avvisa che saranno tolti x record:
pero' negli eesmpi in cui si usa il recordsetclone ed il delete tale
accorgimento non
è riportato :
2 - dimenticanza, oppure non serve ?
3- inoltre l'uso del recordsetclone ad esempio associato al delete e'
meno sicuro del metodo sopra
riportato?
oppure sono entrambi la stessa cosa, scritta in modo diverso ?
questo perchè ho letto che, nell'uso di recordsetclone per contare i
record, ad un programmatore
gli dava il problema che un eventuale focus casuale sui record della
sottomaschera, non garantiva piu'
il conteggio esatto;
Quando si usa il recordsetclone, bisogna avere degli accorgimenti
particolari,
che sulla guida non sono indicati ?
E' un modo di programmare, come dire, piu' soggetto ad errori se non si
e' esperti (mio caso)
mentre l'altro metodo (quello di usare la sql) e' forse piu' lungo ma
piu' leggibile e facile da capire ?
In uno si deve esattamente sapere vita e miracoli del recordsetclone,
mentre nella sql si fa un passo
alla volta e quindi facilmente controllabile ?
grazie


author: Antonio Biso

text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
news:3DFE5122...@lycos.it...
> DoCmd.SetWarnings False
> DoCmd.RunSQL "DELETE * FROM Materiali " & "WHERE IDFornitore= " &
> Me!IDFornitore & ";"
> DoCmd.SetWarnings True
> Me!SubFormMateriali.Requery
>
Skippone su sbroscio di domande.
Secondo me la differenza sostanziale č che con il recordsetclone tu hai la
sicurezza che nel recordset ci finisce solo quello che č visualizzato nel
controllo o nella maschera, anche con tutti i filtri applicati.
Se agisci direttamente sulla tabella invece potresti coinvolgere nelle
operazioni che vuoi fare anche record che erano stati esclusi dalla
visualizzazione corrente.
Antonio


text:
Antonio Biso wrote:
> "nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
> news:3DFE5122...@lycos.it...
> > DoCmd.SetWarnings False
> > DoCmd.RunSQL "DELETE * FROM Materiali " & "WHERE IDFornitore= " &
> > Me!IDFornitore & ";"
> > DoCmd.SetWarnings True
> > Me!SubFormMateriali.Requery
> >
>
> Skippone su sbroscio di domande.
da skipper?
non so che significa, ma mi fa ridere solo come vocaboli.
chissa' se ridero' sapendo il significato degli stessi o del concetto che
volevasi a me indirizzare.
comunque accetto ogni punizione (verbale) da super-professori come voi, č il
minimo che io possa
fare.
da un vs. adepto
> Secondo me la differenza sostanziale č che con il recordsetclone tu hai la
> sicurezza che nel recordset ci finisce solo quello che č visualizzato nel
> controllo o nella maschera, anche con tutti i filtri applicati.
> Se agisci direttamente sulla tabella invece potresti coinvolgere nelle
> operazioni che vuoi fare anche record che erano stati esclusi dalla
> visualizzazione corrente.
come se fa con recordsetclone?
grazie


text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
news:3DFF1173...@lycos.it...
>
>
> Antonio Biso wrote:
>
> > "nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
> > news:3DFE5122...@lycos.it...
> > > DoCmd.SetWarnings False
> > > DoCmd.RunSQL "DELETE * FROM Materiali " & "WHERE IDFornitore= " &
> > > Me!IDFornitore & ";"
> > > DoCmd.SetWarnings True
> > > Me!SubFormMateriali.Requery
> > >
> >
> > Skippone su sbroscio di domande.
>
> da skipper?
> non so che significa, ma mi fa ridere solo come vocaboli.
> chissa' se ridero' sapendo il significato degli stessi o del concetto che
> volevasi a me indirizzare.
Skippone significa grande skip. Skip significa più o meno salto in blocco,
perchè ho saltato tutto il tuo mega commento
Sbroscio .... è uno sbroscio, ti da l'idea di una cascata di un sacco di
cose, è onomatopeico
> comunque accetto ogni punizione (verbale) da super-professori come voi, è
il
> minimo che io possa
> fare.
> da un vs. adepto
Con la tua testa sotto i nostri piedi e ci possiamo anche muovere,
ricorda!!!
> > Secondo me la differenza sostanziale è che con il recordsetclone tu hai
la
> > sicurezza che nel recordset ci finisce solo quello che è visualizzato
nel
> > controllo o nella maschera, anche con tutti i filtri applicati.
> > Se agisci direttamente sulla tabella invece potresti coinvolgere nelle
> > operazioni che vuoi fare anche record che erano stati esclusi dalla
> > visualizzazione corrente.
>
> come se fa con recordsetclone?
la proprietà recordsetclone restituisce un recordset che puoi assegnare ad
una variabile recordset e quindi fare quello che ti pare
Antonio


text:
> Con la tua testa sotto i nostri piedi e ci possiamo anche muovere,
> ricorda!!!
sto vedendo per un casco
ma quanto pesi? , quanto hai di piedi ? e in genere che scarpe usi?
dei professori chi č il piu' pesante ?
> > > Secondo me la differenza sostanziale č che con il recordsetclone tu hai
> la
> > > sicurezza che nel recordset ci finisce solo quello che č visualizzato
> nel
> > > controllo o nella maschera, anche con tutti i filtri applicati.
> > > Se agisci direttamente sulla tabella invece potresti coinvolgere nelle
> > > operazioni che vuoi fare anche record che erano stati esclusi dalla
> > > visualizzazione corrente.
ho riletto il tuo suggerimento e devo dire che non ti sfugge proprio nulla
complimenti
>
> > come se fa con recordsetclone?
>
> la proprietą recordsetclone restituisce un recordset che puoi assegnare ad
> una variabile recordset e quindi fare quello che ti pare
intanto ora mi metto il casco, alla prossima riga capirai perchč
che ti scappano un paio di righe di codice ?
qualcosa ho visto, mi sembra pero' un uso limitato solo al record corrente
(n.b. non ho molta pratica con queste variabili, se poi mi fate pure una
passeggiatina
 sulla capa, non ho piu' alcuna speranza in merito alla risoluzione del
problema)
scusa per ogni riga di codice postatami quanti giri vi fate
sulla capa? c'č un campo relazionato del tipo:
n righe di codice = n*x movimentazione pedonale
ciao and grazie


text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
news:3DFF9B04...@lycos.it...
> > > come se fa con recordsetclone?
> >
> > la proprietà recordsetclone restituisce un recordset che puoi assegnare
ad
> > una variabile recordset e quindi fare quello che ti pare
>
> intanto ora mi metto il casco, alla prossima riga capirai perchè
>
> che ti scappano un paio di righe di codice ?
> qualcosa ho visto, mi sembra pero' un uso limitato solo al record corrente
> (n.b. non ho molta pratica con queste variabili, se poi mi fate pure una
> passeggiatina
>  sulla capa, non ho piu' alcuna speranza in merito alla risoluzione del
> problema)
set rst = me.recordsetclone
rst.movefirst
do until rst.eof
...
rst.movenext
loop
Ecco, qui ce n'è tanto di materiale da spulciare sull'help
Poi dipende cosa vuoi fare
> scusa per ogni riga di codice postatami quanti giri vi fate
> sulla capa? c'è un campo relazionato del tipo:
> n righe di codice = n*x movimentazione pedonale
Parliamo piuttosto di cesti natalizi...
Antonio


text:
> Parliamo piuttosto di cesti natalizi...
noto tra l'altro il plurale
ma servono per addobbo estetico  o che altro ?
tendenti ai dolci, al bere ? a cibaria leguminosa?
a a cibaria di maial derivazione ?


text:
"nn" <
NNNOONNVOGL...@lycos.it
> ha scritto nel messaggio
news:3E00D864...@lycos.it...
> > Parliamo piuttosto di cesti natalizi...
>
> noto tra l'altro il plurale
Parlavi di quotazione per righe di codice.
Si fa presto ad arrivare al plurale...
> ma servono per addobbo estetico  o che altro ?
Altro
>
> tendenti ai dolci, al bere ? a cibaria leguminosa?
> a a cibaria di maial derivazione ?
Lo vedi che le sai le cose....
Antonio


title: Combo su sottomaschera in struttura a schede

author: sunrex

text:
Vorrei filtrare i valori di una combo presente in una sottomaschera che fa
parte a sua volta di una struttura a schede
in base al valore presente su un campo di una frm principale
frmOperazioniSuSistemi è la frm principale
frmInsStoricoManutenzioni e la subform nella struttura a chede
IDModello è il valore da passare alla combo che sta sulla frm principale
cmbTipiInterventi è la combo maledetta che sta nella sub form contenuta a
sua volta nella struttura a schede
Finora ho provato a
Impostare la qry direttamente sulla combo  cercando di fargli prendere il
valore dalla frm principale
il cui campo che uso per il filtro si chiama IDModello (funziona solo
all'apertura della frm principale )
[Forms]![frmOperazioniSuSistemi]![IDModello] sui criteri della qry che
alimenta la combo
cioè tradotto in SQL
SELECT DISTINCTROW tblManutenzioni.IDManutenzione, tblManutenzioni.Nome,
tblManutenzioni.IDModello
FROM tblManutenzioni
WHERE
(((tblManutenzioni.IDModello)=[Forms]![frmOperazioniSuSistemi]![IDModello]))
;
Forzare il requery della frm nella struttura a schede dall'evento current
della frm principale (non succede un cazzo)
Private Sub Form_Current()
Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.Requery
End Sub
Forzare il requery della combo maledetta ma questo non me lo fa fare
(propietà o metodo non supportati...etc etc)
Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.cmbTipiInterventi.Req
uery
Mi sorge il dubbio che si possa fare.
SunRex


author: sv

text:
sunrex ha scritto:


> Finora ho provato a


> cioè tradotto in SQL


> Private Sub Form_Current()
> Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.Requery
Sembra che manchi soltanto il riferimento alla sottomaschera.
Prova con:
Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.Form!MiaCombo.Requery
> End Sub
> Forzare il requery della combo maledetta ma questo non me lo fa fare
> (propietà o metodo non supportati...etc etc)
> Forms!frmOperazioniSuSistemi!frmInsStoricoManutenzioni.cmbTipiInterventi.Req
> uery
> Mi sorge il dubbio che si possa fare.
> SunRex
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it