title: Report con conteggio Codici..

text:
ciao a tutti ...vorrei chiedere se è possibile fare una cosa...
ho un Report che ha come origine una Query che ha sua volta origine da una
Tabella.
questo report mi fa un conteggio di codici...
ora mi chiedo... se è possibile che questo report contando e visualizzando i
codici
supponiamo 34  -   48  --- 67---
peschi i dati da un'altra tabella aggiungendo anche il significato dei
codici...
mi spiego meglio...
il report mi conta e mi mostra solo i codici
34      (Scarpe)
48       (Calze)
67       (Pantaloni)
e in un'altro controllo vorrei visualizzare il dettaglio del codice...
preso da un'altra tabella....(Scarpe) etc.etc...
spero di essere riuscito a spiegarmi....
Ciao e grazie....


title: Report con conteggio Codici..

author: Roberto dal portatile

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:akYD7.17321$7A4.1...@news.infostrada.it...

Puoi farlo con la funzione DLookup (vedi help); usala nell'origine controllo
della casella di testo non associate del report dove vuoi visualizzare il
dettaglio del codice.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Report con conteggio Codici..

author: Govardo Libero

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:akYD7.17321$7A4.1...@news.infostrada.it...

Potresti includere nella query di origine il campo descrittivo del codice,
Richiamandolo poi dal relativo controllo sul report.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


title: Report con conteggio Codici..

author: SuperPippo®

text:
"Govardo Libero" <
gov...@libero.it
> ha scritto nel messaggio
news:kTYD7.17604$7A4.1...@news.infostrada.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| news:akYD7.17321$7A4.1...@news.infostrada.it...
| > ciao a tutti ...vorrei chiedere se è possibile fare una cosa...
| > ho un Report che ha come origine una Query che ha sua volta origine da
una
| > Tabella.
| > questo report mi fa un conteggio di codici...
| > ora mi chiedo... se è possibile che questo report contando e
visualizzando
|| >
| Potresti includere nella query di origine il campo descrittivo del codice,
| Richiamandolo poi dal relativo controllo sul report.
|
| --
|                      Angelo
----------------
grazie  Roberto e Govardo... provo e vi farò sapere...
Ciao e grazie........


title: Esempio Database

text:
Salve porgo una nuova domanda.
Ho promesso ad un mio amico di preparargli un database per la gestione della
sua salone di bellezza, dato che sono a corto di idee non è che esiste in
giro uno già pronto da poter trarre spunto!!!(non scopo copiatura).


title: seriale HD

author: Galvy

text:
Caio a tutti, ho letto riletto e cercato di utilizzare l'esenpio che č
presente nel sito comune ma nulla... non riesco ad utilizzarlo.
Qualcuno sarebbe cosě gentile da darmi qualche dritta (magari sognando il
codice sorgente di quel esempio presente nel sito comune) per poer
utilizzare il codice seriale del disco su cui č presenti il db?
Grazie in anticipo a tutti.
Saluti Galvy


title: seriale HD

author: Carlo Costarella

text:
"Galvy" <
ga...@libero.it
> ha scritto nel messaggio
news:kT389.77981$lu5.2...@twister1.libero.it...

Prova con questo codice da inserire in un modulo pubblico:
Option Compare Database
Option Explicit
Declare Function GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String,
ByValnFileSystemNameSize As Long) As Long
Function GetSerialNumber(strDrive As String) As Long
    Dim SerialNum As Long
    Dim Res As Long
    Dim Temp1 As String
    Dim Temp2 As String
    Temp1 = String$(255, Chr$(0))
    Temp2 = String$(255, Chr$(0))
    ' Se vi sono errori Res=0, altrimenti, se tutto e' andato ok, Res=1
    Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0,
Temp2, Len(Temp2))
    GetSerialNumber = SerialNum
End Function
Come funziona. Se chiami Call GetSerialNumber("c:\") otterrai il seriale del
disco C. Cioč la funzione restituisce un valore se gli passi la stringa del
disco di cui vuoi conoscere il seriale.
Un esempio. Se sull'evento click di un pulsante scrivi:
Msgbox "Il numero seriale del disco č: " & GetSerialNumber("c:\")
otterrai una casella messaggio con il numero.
Ciao, Carlo


title: seriale HD

text:
Infinite grazie... mi sei stato infinitivamente utile :)
Grazie ancora alla prox....Saluti Galvy


title: eseguire procedura in fase di progettazione maschera

author: pfm

text:
ho un mia applicazione multilingua

ho creato una tabella Language con i testi in 4 lingue delle label, button e altro. All'aapertura della maschera ciclo sui controlli e modifico in base alla lingua il contenuto.
Ora aggiungento maschere il dizionario ha milti record (circa 2000) e noto che c'e' un rallentamento all'apertura delle maschere.

Pensavo ad un'altra soluzione:
sfruttare per i controlli delle maschere la proprietò Tag dove metto il valore di default (italiano)
Vorrei che in fase di progettazione riuscissi ad eseguire una procedura che mi modifica il valore della caption delle label e me lo traducesse una tantum e mi salvasse la maschera col valore tradotto.

Come posso eseguire una procedura in modalità progettazione maschera?
E' possibile
GRAZIE


text:

Premesso che non ho capito come gestisci i testi tradotti... ma non può essere lento a caricare una maschera che avrà al massimo qualche decina di Controlli da editare....

Ora non si comprende cosa vuoi fare...
Se vuoi assegnare nella proprietà TAG il valore in IT... devi pur sempre leggerlo ed applicarlo...

Qualche cosa non torna.
Puoi descrivere lo scenario delle TABELLA in cui salvi le MULTILINGUE e mostrare il codice con cui recuperi i dati e li applichi...?

@Alex


author: BFS

text:

anche io uso una tabella per le traduzioni con 4 colonne  ITA;FRA;ENG;GER

di default tutte le label sono in italiano
se il parametro della lingua scelta è diversa da ITA ad ogni apertura
maschera/report tutte le label che hanno il tag "DaTradurre" vengono
sostituite leggendo il valore dalla tabella tramite un dlookup

anche su report con 50-60 label da tradurre l'apertura è istantanea
tanto che non mi sono mai posto il problema di soluzioni più performanti
(tipo precaricarmi le parole tradotte in un array all'avvio del programma)

Come hai strutturato la tabella delle traduzioni? che indici hai messo?

hai provato a misurare il tempo di apertura form con e senza
l'operazione di traduzione? che il problema non sia altro.

BFS


text:

grazie a entrambi. vi trasmetto il codice
la mia curiosità sarebbe quella di eseguire da progettazione una procedura che mi eseguisse la traduzione


text:

Quindi faresti la Traduzione delle LABEL, bene, ma c'è molto altro:
1) Le Caption dei Button/OptionGroup/TabControl ecc
2) I MSGBOX informativi di Interazione con l'utente
3) I menù rapidi...
4) I Ribbons
5) I titoli delle Maschere...? (Caption di Form/Report)
&) dimentico qualche altra cosa...

Da tener presente poi che ci sono le convenzioni internazionali i Regional Settings, €/$/Sterlina, e poi Virgola/Punto e tutto quello che compete al Paese di destinazione.

Rimanendo alle cose necessarie: se vuoi vedere questo esempio, ovviamente è BANALE ed assolutamente incompleto, ma se ti sarà utile lo guarderai tu:

http://forum.masterdrive.it/access-79/access-gestione-applicativi-multilingua-49341/

Prevede ovviamente delle Tabelle di storage delle conversioni in relazione alla Lingua, ed un sistema gestione sia delle Label che dei MsgBox vari ed eventuali.

La proprietà TAG non serve a nulla nel mio caso in quanto le CAPTION sono di DEFUALT nella lingua in cui viene sviluppato, e la modifica RUNTIME non le altera.

Di fatto apro un RS sulla Tabella filtrando per OGGETTO[Tipo(Report/Form)e Nome] recuperando tutti i Records... ogni Record è un controllo.

Un ciclo e vengono cambiati tutti.

Questo in sostanza, non è una questione solo di Velocità come accennava anche BSF che dubito possa impattare con una manciata di controlli... ma mi è comodo in quanto non scrivo nemmeno 1 riga di codice in nessuna maschera, e centralizzo la gestione in un solo punto.

Saluti
@Alex


text:

grazie! la analizzo e ti faccio sapere

questo e ayanto faccio

' ------------------------
' DA METTERE NEL FORM_LOAD
' ------------------------
'
'  ' =========== Translate ======================
'  Call Main_Language
'
'  If sLanguage <> "IT" And sLanguage <> "" Then
'     'Traduci (sLanguage)
'     Call CicloTraduci(sLanguage, Me.Name)
'  End If
'  ' =========== Translate ======================
'

'  ' =========== MSGBOX =========================
'  MsgBox Traduzione("Salva e Esci", CurrentProject.Name, Me.Name, ActiveControl.Name, "Msgbox"), _
'         vbOKOnly, _
'         Traduzione("Avviso", CurrentProject.Name, Me.Name, ActiveControl.Name, "Msgbox")
'  ' =========== MSGBOX =========================

Public dbLanguage As Database
Public rsLanguage As Recordset

Public sLanguage As String  ' DA FILE Ini sigla nazione to Translate

Public Function Main_Language()
  Set dbLanguage = CurrentDb
  Set rsLanguage = dbLanguage.OpenRecordset("SELECT * FROM Language", dbOpenDynaset, dbSeeChanges)

  sLanguage = LanguageIni()
  '
  With rsLanguage
       If pfm_SQL_RS_Pieno(rsLanguage) Then
          ' carico il recordset
          .MoveLast
          .MoveFirst
       Else
          MsgBox "Dizionario vuoto"
          sLanguage = ""
       End If
  End With
End Function

Public Function LanguageIni() As String
  LanguageIni = GetStrFromIni(CurrentProject.Path & "\" & "pfm.ini", "International", "Language", "Quale linguaggio")
End Function

Public Function Traduzione(sITaliano As String, sNomeProgetto As String, sNomeMaschera As String, sNomeControllo As String, sTipoControllo As String) As String

   ' Linguaggio
   Dim sSqlAccoda_noLanguage As String

   ' cerco se c'e' già il testo anche NON tradotto

   ' solo se c'e' una stringa
   If Len(Trim(sITaliano)) > 0 Then

      rsLanguage.MoveLast
      rsLanguage.MoveFirst

      'rsLanguage.FindFirst "IT = '" & sITaliano & "'"
      rsLanguage.FindFirst "IT = " & Chr(34) & sITaliano & Chr(34)

      If rsLanguage.NoMatch Then
         'NON trovato - accodo no language"
         sSqlAccoda_noLanguage = "INSERT INTO Language ( IT, Nota, Project, MascheraReport, Controllo, TipoControllo, Sospeso, DateHour ) " & _
                                 "SELECT " & _
                                           Chr(34) & sITaliano & Chr(34) & ", " & _
                                           Chr(34) & " " & Chr(34) & ", " & _
                                           Chr(34) & sNomeProgetto & Chr(34) & ", " & _
                                           Chr(34) & sNomeMaschera & Chr(34) & ", " & _
                                           Chr(34) & sNomeControllo & Chr(34) & ", " & _
                                           Chr(34) & sTipoControllo & Chr(34) & ", " & _
                                           vbTrue & ", " & _
                                           "#" & pfm_SQL_Date(Now) & " " & Time & "#"
         dbLanguage.Execute sSqlAccoda_noLanguage
      Else
         ' trovato - non Traduco se Sospeso
         If rsLanguage!sospeso <> vbTrue Then
            Debug.Print "_ok " & rsLanguage.Fields("IT") & " --> " & sLanguage & " - " & rsLanguage.Fields(sLanguage)
            Traduzione = Nz(rsLanguage.Fields(sLanguage), "")
         End If
      End If
   End If '    If Len(Trim(sITaliano)) > 0
End Function

Public Function CicloTraduci(siglaLingua, sNomeForm As String, Optional bTraduciCtrlNascosti As Boolean = False)

 Debug.Print sNomeForm
 Debug.Print Forms(sNomeForm).Caption

  Dim myCtrl As Control
  Dim sTranslate As String

  ' la caption della Maschera
  Forms(sNomeForm).Caption = Traduzione(Forms(sNomeForm).Caption, CurrentProject.Name, sNomeForm, "Caption Form", "")
  'Forms(sNomeForm).Caption = Traduzione(sStringaITA, CurrentProject.Name, sNomeForm, "Caption Form", "")

  For Each myCtrl In Forms(sNomeForm).Controls

      'Debug.Print "Name: " & myCtrl.Name & ", ControlType: " & myCtrl.ControlType & ", Value: " & myCtrl.value

                                             '       Debug.Print "Progetto: ---> " & CurrentProject.Name
                                             '       Debug.Print "Maschera: ---> " & Me.Name ' nome maschera
                                             '       Debug.Print "Controllo: --> " & myCtrl.Name
                                                   ' Debug.Print "CurrentObjectName --> "; CurrentObjectName ' nome maschera

        With myCtrl
            Debug.Print "myCtrl.Name --> " & myCtrl.Name & " ==> " & _
                        "TypeName: " & TypeName(myCtrl) & " ---> " & .ControlType
            If UCase(myCtrl.Tag) = "NO TRANSLATE" Then
              ' non traduco
              ' ===========
            Else
               Select Case .ControlType
                   Case acLabel
                        ' se bTraduciCtrlNascosti = true -- TRADUCO ANCHE SE NASCOSTI
                        '
                        If myCtrl.Visible = vbTrue Or bTraduciCtrlNascosti Then
                           sTranslate = Traduzione(myCtrl.Caption, CurrentProject.Name, sNomeForm, myCtrl.Name, TypeName(myCtrl))

                           If sTranslate <> "" Then
                               myCtrl.Caption = sTranslate
                           End If
                          ' myCtrl.Caption = Traduzione(myCtrl.Caption)
                          ' myCtrl.Caption = Nz(DLookup("SP", "LANGUAGE", "IT = '" & myCtrl.Caption & "'"), myCtrl.Caption)
                        End If

                   Case acCommandButton
                        Debug.Print myCtrl.Name
                        Debug.Print myCtrl.Caption

                        ' se bTraduciCtrlNascosti = true -- TRADUCO ANCHE SE NASCOSTI
                        '
                        If myCtrl.Visible = vbTrue Or bTraduciCtrlNascosti Then
                           sTranslate = Traduzione(myCtrl.Caption, CurrentProject.Name, sNomeForm, myCtrl.Name, TypeName(myCtrl))

                           If sTranslate <> "" Then
                               myCtrl.Caption = sTranslate
                           End If
                        End If

                   Case acOptionGroup ' frame
                       ' Debug.Print "TypeName: " & TypeName(myCtrl) & " ---> " & .ControlType
                       '
                       ' Debug.Print myCtrl.Name
                       ' Debug.Print myCtrl.Value

                   ' ========================
                   Case acTextBox
                       ' MsgBox ("The control is a Textbox.")
                      '  Debug.Print myCtrl.Name
                      '  Debug.Print myCtrl.Value

               End Select

            End If
        End With
  Next
End Function


author: Massimiliano Amendola

text:
Il giorno domenica 26 maggio 2019 21:41:01 UTC+2, pfm ha scritto:

Crea un modulo a parte e apri la tua form in design view facendo quello che vuoi
MA


text:
> Crea un modulo a parte e apri la tua form in design view facendo quello che vuoi
> MA

grazie ma cosa intendi?
in effetti ho creato un modulo e ho messo le procedure

>apri la tua form in design view facendo quello che vuoi
si puo' eseguire del codice che va a modirifare le proprietà di una maschera quando questa e' aperta in design view?


text:
Ovviamente puoi modificare tutto in modalità Struttura... ma valuta se operi con il RUNTIME perché sviluppi con un metodo che poi non funzionerà... il runtime non consente l'accesso alla struttura.
Questo è uno dei motivi per cui di norma si evita questo, pur fattibile, approccio.

@Alex


text: Grazie come sempre dei suggerimenti. Sono consapevole che è meglio tradurre in runtime. Ma per mia cultura personale come posso eseguire del codice in visualizzazione struttura?


author: Karl Donaubauer

text:
Salve,

Pfm ha scritto:
>>>>> ...
>>>>> ho creato una tabella Language con i testi in 4 lingue delle label, button e altro. All'aapertura della maschera ciclo sui controlli e modifico in base alla lingua il contenuto.
>>>>> Ora aggiungento maschere il dizionario ha milti record (circa 2000) e noto che c'e' un rallentamento all'apertura delle maschere.

Ho diverse applicazioni con più lingue e molto più record nel dizionario
anche col codice chiamato all'apertura ma quasi senza effetto alla
prestazione. La cosa più impotante sarebbe di capovolgere metodo:

Invece di ciclare i controlli e tante volte perlustrare il vocabulario
dovresti aprire un recordset con solo le traduzioni per l'oggetto
attuale (clausola WHERE) e ciclando il recordset una sola volta riempire
i caption ecc. nel oggetto.

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

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


text:
> Ho diverse applicazioni con più lingue e molto più record nel dizionario
> anche col codice chiamato all'apertura ma quasi senza effetto alla
> prestazione. La cosa più impotante sarebbe di capovolgere metodo:
>
> Invece di ciclare i controlli e tante volte perlustrare il vocabulario
> dovresti aprire un recordset con solo le traduzioni per l'oggetto
> attuale (clausola WHERE) e ciclando il recordset una sola volta riempire
> i caption ecc. nel oggetto.
>
> --
> Ciao
> Karl

Concordo sul metodo Karl, è esattamente quello che fa l'esempio che ho proposto.

Saluti

@Alex


text:

grazie e' vero e in affetti per un'altra applicazione ho adottato il metoto di filtro. Resta il fatto che c'e' il problema di possibile duplicazione delle voci da tradurre se questa e' su + mascehre


text: mi resta sempre in sospeso se qualcuno e' riuscito a eseguire in modalità struttura del codice per modificare valori nelle proprietà dei controlli


text:
Scusa ma siccome è banale farlo amche in modalità struttura... quale problema trovi...?
@Alex


text:
Il 28/05/2019 14:09, Karl Donaubauer ha scritto:
> Salve,
>
> Pfm ha scritto:
>>>>>> ...
>>>>>> ho creato una tabella Language con i testi in 4 lingue delle
>>>>>> label, button e altro. All'aapertura della maschera ciclo sui
>>>>>> controlli e modifico in base alla lingua il contenuto.
>>>>>> Ora aggiungento maschere il dizionario ha milti record (circa
>>>>>> 2000) e noto che c'e' un rallentamento all'apertura delle maschere.
>
> Ho diverse applicazioni con più lingue e molto più record nel dizionario
> anche col codice chiamato all'apertura ma quasi senza effetto alla
> prestazione. La cosa più impotante sarebbe di capovolgere metodo:
>
> Invece di ciclare i controlli e tante volte perlustrare il vocabulario
> dovresti aprire un recordset con solo le traduzioni per l'oggetto
> attuale (clausola WHERE) e ciclando il recordset una sola volta riempire
> i caption ecc. nel oggetto.
>

personalmente l'ideale sarebbe Access si adeguasse a ide più moderni
tipo quello di android studio. dove ogni stringa usata nell'applicazione
non è scritta direttamente ma rappresenta un "puntatore/riferimento" a
un valore contenuto in un file xml della lingua scelta.  (file risorsa)

Esempio in un pulsante di stampa non scriverò "Stampa" ma inserirò un
+@stampa. Idem per messaggi di errori o caption di form

in automatico quel +@stampa verrà sostituito dal valore xml della lingua
scelta, nel xml-ita  da "stampa" nel xml-eng da "print" etc in tutti i
punti del programma dove viene usato.
Senza dover scrivere una riga di codice

Aggiungere una lingua ad una applicazione esistente diventa operazione
banale, una semplice aggiunta di un xml con le traduzioni senza dover
modificare l'applicazione

BFS


text: Ma si riesce quando una maschera è aperta in modalità visualizzazione struttura e inserisco  una label eseguire nel codice VB a che mi va modificare la proprietà captions della etichetta e poi Salvo la maschera che è rimasta in visualizzazione struttura?


text:
Ma si... lanci il codice... apri La maschera in modalità Struttura... assegni ad un oggetto Access.Form la maschera aperta e li cicli la collection CONTROLS come faresti normalmente...
Finito di pasticciarla... chiudi la form salvando.

@Alex


text:

Per capirci:

Questo è l'approccio di ciclare tutte le LABEL, ma è solo per un tuo esempio...

Function xTranslation(Lingua As Byte, NomeMaschera as string)
    Dim frm     As Access.Form
    Dim ctl     As Access.Control

    DoCmd.OpenForm "NomeMaschera", acDesign
    Set frm = Forms("NomeMaschera")
    For Each ctl In frm.Controls
        Select Case ctl.ControlType
            Case acLabel
                ' Logica di recupero della Caption esempio con il DLOOKUP...
                ctl.Caption = "Nuova Caption"
            Case Else
                ' Quello che serve
        End Select
    Next
    DoCmd.Close acForm, frm.Name, acSaveYes
End Function

@Alex


title: Ricavare se una Maschera è una sottomaschera

author: scaronic

text:
Spiego la mia esigenza.
Un pulsante  ( apre  una maschera  sempre la stessa )  è posizionato :
caso 1)  in sottomaschere  ,
caso 2) in maschere (senza sottomaschere) ,
a seconda che sia  in una sottomaschera  copia determinati valori di
controlli della sottomaschera ad
esempio
me.mascheraorigine.name
 ,
me.mascheraoriginePrincipale.name
(
me.Parent.name
)
a seconda che sia in una Maschera (senza sottomaschere )
esempio
me.mascheraorigine.name
 ,
me.mascheraoriginePrincipale.name
(non ha senso  in quanto è principale)
vorrei intercettare  questa situazione .
Più in generale , c'è la possibilità di sapere via VBA  se una
maschera è una sottomascherà o no ?


author: Antonio Biso

text:
"scaronic" <
carlo....@gmail.com
> ha scritto nel messaggio
news:61cde493-bbd0-497a...@j28g2000vbp.googlegroups.com...
Spiego la mia esigenza.
Ho come una sensazione di deja vu
Antonio


title: Sottomaschera campi calcolati

author: esmal

text:
Ho il seguente problema:
maschera"A" dove registro gli ordini;
maschera"B" filtrata con dettaglio ordini;
nella maschera"B" ho creato tre campi sub totale a pie' pagina maschera:
-interessi;
-spese;
-importo;
Ho modificato i controlli in =Somma([]), ma invece di ottenere il sub
totale, complessivo per campo, mi viene visualizzato il parziale per record
inserito.
Grazie a tutti per i consigli.


title: Contare i campi

author: C Briglia

text:
Sapete se esiste una funzione che restituisca il numero di record in un
recordset?
Se sě mandatemi un esempio concreto.
Per favore non rispondete 'vedi l'help' perchč nella mia ignoranza che č
abissale questo lo so fare, ma sempre per colpa della medesima, a volte
(diciamo spesso) l'help non riesce a spiegarmi un granchč...
grazie dell'aiuto
bce...@tiscalinet.it


title: Contare i campi

text:
C Briglia ha scritto:
> Sapete se esiste una funzione che restituisca il numero di record in un
> recordset?...
rs.movelast
rs.recordcount
--
HTH
Karl
*********
Access-FAQ (Tedesco):
http://members.eunet.at/donkarl/
APP:
http://www.AccessProfiPool.com


title: Contare i campi

author: AntoGal

text:
C Briglia <
bce...@tiscalinet.it
> wrote in message
85secm$csf$1...@pegasus.tiscalinet.it...
> Sapete se esiste una funzione che restituisca il numero di record in un
> recordset?
Come ti ha già risposto Karl, guarda sull'help movelast e recordcount, gli
esempi concreti li trovi anche là.
Se hai la necessità di contare i records in una query o tabella, senza
aprire un RecordSet, puoi usare:
NumRecords = Dcount("*", "MyTable")
Per approfondimenti, sforzati un pochino sull'help.
> Se sì mandatemi un esempio concreto.
mandatemi? vieni e te lo prendi :-)
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.tin.it/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: Contare i campi

author: Lbo da casa

text:
>Sapete se esiste una funzione che restituisca il numero di record in un
>recordset?
vuoi contare i campi o vuoi contare i record?
per contare i campi
dim rst as recordset
set rst=...
msgbox "Il recordset ha " & (rst.fields.count+1) & " campi."
.count comincia a contare da zero, per cui per un recordset con 3
campi varra' (0, 1, ) 2
per contare i record:
dim rst as recordset
set rst=...
rst.movelast
msgbox "Il recordset ha " & rst.recordcount & " record."
pero' movelast e tutti i move sull'help mi fai il favore di guardarli
perche' con la scusa che uno e' ignorante, poi ignorante ci resta.
tutti cominciano da zero.
--------------------------------------------------
ATTENZIONE!
it.comp.database.access diventera' it.comp.appl.access!
cercalo tra i nuovi ng e linkalo!
-----------------------------------
rimuovere NOSPAM. per mandare email
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: Contare i campi

text:
> msgbox "Il recordset ha " & (rst.fields.count+1) & " campi."
>
> .count comincia a contare da zero, per cui per un recordset con 3
> campi varra' (0, 1, ) 2
>
msgbox "Il recordset ha " & (rst.fields.count) & " campi."
che l'indice inizia da zero e' vero, ma count restituisce il numero corretto
dei campi del recordset; non e' quindi necessario aggiungere uno.
saluti


title: Contare i campi

author: CarloCos

text:
Quello che ti hanno risposto č perfetto, voglio solo aggiungerti una strada
diversa:
Crea una query della tabella con il solo campo che ti interessa contare. Dal
Menů "Visualizza" seleziona "Totali" e nela riga "Formula" della query
scegli conteggio. Esegui la query.
Puoi perferzionarla mettendo nella riga "Criteri" Not is Null per non
contare i record nulli.
La query ovviamente la puoi eseguire da codice e leggerne il risultato con
DlookUp.
A mio avviso, quando si puň, č meglio far lavorare Access.
Ciao, Carlo
--
Posted from
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server -
http://www.mailgate.org


title: Contare i campi

author: Ditta Cerri

text:
Lbo da casa <
l...@NOSPAM.blunet.it
> wrote in message
3882388d...@news.interbusiness.it...
> >Sapete se esiste una funzione che restituisca il numero di record in un
> >recordset?
>
> vuoi contare i campi o vuoi contare i record?
>
> per contare i campi
>
> dim rst as recordset
> set rst=...
> msgbox "Il recordset ha " & (rst.fields.count+1) & " campi."
>
> .count comincia a contare da zero, per cui per un recordset con 3
> campi varra' (0, 1, ) 2
>
> per contare i record:
>
> dim rst as recordset
> set rst=...
> rst.movelast
> msgbox "Il recordset ha " & rst.recordcount & " record."
>
> pero' movelast e tutti i move sull'help mi fai il favore di guardarli
> perche' con la scusa che uno e' ignorante, poi ignorante ci resta.
> tutti cominciano da zero.
Come scrisse il saggio egizio Ptahhotep 4000 anni fa':
"... perche' non esistono saggi per nascita."
Ciao, Sib


title: Contare i campi

text:
"CarloCos" <
carl...@brutium.it
> wrote in message
000301bf60ed$142a5ee0$43d0fea9@carlocos450...
> Quello che ti hanno risposto č perfetto, voglio solo aggiungerti una
strada
> diversa:
>
> Crea una query della tabella con il solo campo che ti interessa contare.
Dal
> Menů "Visualizza" seleziona "Totali" e nela riga "Formula" della query
> scegli conteggio. Esegui la query.
> Puoi perferzionarla mettendo nella riga "Criteri" Not is Null per non
> contare i record nulli.
>
> La query ovviamente la puoi eseguire da codice e leggerne il risultato con
> DlookUp.
> A mio avviso, quando si puň, č meglio far lavorare Access.
Secondo me tutto questo č un po' macchinoso.
Dcount permette di contare tutti i record (con l'asterisco), o solo quelli
aventi un certo campo "not Null", semplicemente specificando
Dcount("IDcliente", ecc...  si risparmia una query ed il Dcount non č piů
lungo di un Dlookup.



title: Sito Su Access - Utilità

author: Carmelo

text:
Salve a tutti,
vi segnalo questo sito che tratta l'argomento
dei DataBase e in particolare su Access.
Il sito è ben fatto (anche vista l'affluenza dei visitatori)
e tratta per sezioni, tutti i vari argomenti
(Tabelle, Maschere, Report, Query, Macro e Moduli) di Access.
Inoltre vengono trattati anche gli argomenti su SQL
e Visual Basic for Applications.
Il sito è esente da pubblicità, quindi si può navigare molto velocemente.
Sono presenti anche delle sezioni riguardanti le FAQ
ed è presente anche una pagina in cui,
è possibile chiedere aiuto e informazioni su i DataBase.
Inoltre il sito è stato recensito dalla rivista informatica PC WORLD ITALIA.
Se non altro vi consiglio di visitarlo.
L'indirizzo è
http://web.tiscali.it/programmazione/
Grazie per aver letto.
Cordiali saluti.


title: Tabelle Collegate

text:
Buongiorno
Ho una tabella collegata a diverse applicazioni (mdb) dove funziona
perfettamente.
La collego in un'altra applicazione e quando cesco di utilizzarla
(anche solo) con doppio click mi ritorna il sequente messaggio popup:
Titolo : Impossibile utilizzare nell'espressione la funzione immessa .
Testo : * E' stata utilizzata una funzione DoEvents, LBound, UBound,
Spc o Tab
           * E' stata utilizzata una funzione di aggregazione, come
Count, in una griglia di struttura o in un controllo
             o un campo calcolato.
Qualcuno sa cosa significa ?
Grazie
MArco


title: Tabelle Collegate

author: MA

text:

Guarda i riefrimenti sono saltati
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: rilevare txtbox vuote

author: BC

text:
Ho necessità di rilevare se alcune caselle di testo sono vuote o no per poi
attivare/ disattivare dei pulsanti
Ho provato in vari modi (uno dei quali è riportato qui sotto)
ma funziona all'andata (if) ma non al ritorno(elseif)
Sub AttivaPulsanti()
If Not IsNull(Me.RicCognome) Or Not IsNull(Me.RicNome) Then 'IsNull
(Me.RicCognome)Or'
   Me.CmdApri_Select.Enabled = True
   Me.CmdFiltra.Enabled = True
ElseIf IsNull(Me.RicCognome) Or IsNull(Me.RicNome) Then    'IsNull
(Me.RicCognome)Or'
   Me.CmdApri_Select.Enabled = False
   Me.CmdFiltra.Enabled = False
   End If
End Sub
 mi sapreste suggerire un metodo più efficiente ..
grazie
BC


title: rilevare txtbox vuote

author: Nick

text:
BC ha detto: in data 26/09/2005 15.31:

l'elseif in questo caso non  è  necessario (non so se l'hai messo solo
per fare un esempio)
quindi
Sub AttivaPulsanti()
If Not IsNull(Me.RicCognome) Or Not IsNull(Me.RicNome) Then 'IsNull
  (Me.RicCognome)Or'
     Me.CmdApri_Select.Enabled = True
     Me.CmdFiltra.Enabled = True
Else
     Me.CmdApri_Select.Enabled = False
     Me.CmdFiltra.Enabled = False
     End If
  End Sub
ciao
Nick


title: rilevare txtbox vuote

author: Alessandro Baraldi

text:
"Nick" <senz...@chedetesul.NG> wrote in message
news:P1TZe.21593$
Jr.3...@twister2.libero.it
[CUT]
>
> Sub AttivaPulsanti()
> If Not IsNull(Me.RicCognome) Or Not IsNull(Me.RicNome) Then 'IsNull
>   (Me.RicCognome)Or'
>      Me.CmdApri_Select.Enabled = True
>      Me.CmdFiltra.Enabled = True
> Else
>
>      Me.CmdApri_Select.Enabled = False
>      Me.CmdFiltra.Enabled = False
>      End If
>   End Sub
>
>
> ciao
> Nick
Forse potrebbe bastare questo:
Me.CmdApri_Select.Enabled = Not IsNull(Me.RicCognome) Or Not
IsNull(Me.RicNome)
Me.CmdFiltra.Enabled = Not IsNull(Me.RicCognome) Or Not
IsNull(Me.RicNome)
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: rilevare txtbox vuote

text:
> Forse potrebbe bastare questo:
>
> Me.CmdApri_Select.Enabled = Not IsNull(Me.RicCognome) Or Not
> IsNull(Me.RicNome)
> Me.CmdFiltra.Enabled = Not IsNull(Me.RicCognome) Or Not
> IsNull(Me.RicNome)
>
> @Alex
>
.... purtroppo come dicevo funziona bene solo 'all'andata' cioč quando si
inserisce un testo i pulsanti sono attivi ma quando ritornano vuoti...
restano attivi....


title: rilevare txtbox vuote

text:
"BC" <
briglia...@tiscali.it
> wrote in message
news:4338cebb$0$8500$
5fc...@news.tiscali.it
[CUT]
> .... purtroppo come dicevo funziona bene solo 'all'andata' cioè quando si
> inserisce un testo i pulsanti sono attivi ma quando ritornano vuoti...
> restano attivi....
Il problema deriva che quando cancelli il contenuto
non è più verificata la condizione NULL, devi inserire
anche il controllo della lunghezza in AND alle altre:
Len(Me!RicNome)>0
Ciao



title: rilevare txtbox vuote

text:
grazie, proverň
bc


title: DefaultValue

author: Alessandro Carli

text:
Un saluto a tutto il NG.
Ho il seguente problema.
Vorrei che alcuni dati inseriti all'interno di caselle di controllo di una
maschera mi apparissero come valori di default in altre caselle di controllo
inserite in un'altra maschera.
Credo si possa fare associando i valori che assumono le caselle di controllo
a delle variabili ('pubbliche'???) per poi richiamarle come valori di
default nelle caselle dell'altra maschera.
Se questa procedura è esatta, e mi scuso per la banalità, come faccio a
dichiarare delle variabili da utilizzare in differenti maschere?
Se invece questa procedura non è esatta, sarei grato se potessi avere
qualche indicazione seguire.
Ringrazio per la collaborazione.
Un saluto
Alessandro Carli


title: DefaultValue

author: Giuseppe

text:
"Alessandro Carli" <
carl...@tin.it
> ha scritto nel messaggio
news:8vvt2c$ll9$1...@nslave3.tin.it...

una soluzione del genere:
DoCmd.OpenForm "Dettagli", acNormal, , , acFormAdd
Forms!Dettagli!Titolo.DefaultValue =  Forms!frmPercentuale!Giorno
provata con Access 2000 , mi sembra una strada non percorribile (spero di
essere smentito)
un diverso tentativo in due break :
apertura di una seconda maschera e copia dei valori dalla prima alla
seconda.
Private Sub Comando13_Click()
 DoCmd.OpenForm "Dettagli", acNormal, , , acFormAdd
 DoCmd.GoToControl "Titolo"
 Forms!Dettagli!Titolo = Forms!frmPercentuale!Giorno
 Forms!Dettagli!User = Forms!frmPercentuale!mData
 ....................
End Sub
e copiare , con apposito codice ,  i nuovi valori nei controlli dei record
successivi
giuseppe


title: Casella di riepilogo

author: Benedetto

text:
Scusate se mi introduco con una questione così banale ma non riesco proprio
a capire questa dinamica:
Se in una semplicissima maschera inserisco una casella di riepilogo, il dato
che vado a selezionare non viene memorizzato nella tabella destinazione. Se
però trasformo la casella di riepilogo in combo box allora magicamente il
dato viene scritto nella tabella.
Anche creando la casella di riepilogo con la creazione guidata e
selezionando il campo in cui memorizzare il dato questo in realtà non
succede. Come potrei fare per avere una casella di riepilogo che memorizza
il dato?
Grazie
Ciao
Benedetto


title: Casella di riepilogo


title: Casella di riepilogo

author: Roberto da casa

text:
"Benedetto" <
deva...@libero.it
> ha scritto nel messaggio
news:jwcma.33304$iy5.9...@twister2.libero.it...

Nella proprietà origine controllo della casella di riepilogo scrivi il nome
del campo nel quale vuoi registrare il valore contenuto in una delle colonne
della casella di riepilogo.
Verrà registrato il valore relativo alla colonna indicata nella proprietà
Casella associata della casella di riepilogo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella di riepilogo

author: massimo

text:
On 13 apr 2003, "Benedetto" <
deva...@libero.it
> wrote in
news:Pxima.34474$
iy5.1...@twister2.libero.it

> Se in una semplicissima maschera inserisco una casella di
> riepilogo, il dato che vado a selezionare non viene memorizzato
> nella tabella destinazione. Se però trasformo la casella di
> riepilogo in combo box allora magicamente il dato viene scritto
> nella tabella.
Non ho capito perché non accade. Hai per caso attivato la proprietà
MultiSelect (aka selezione multipla)? Dalla guida di Access...
  Quando si fa clic su un valore in una casella di riepilogo se la
  casella di riepilogo è associata, Access inserisce il valore
  selezionato nel campo a cui è associata la casella di riepilogo. Se
  la colonna associata è diversa dalla colonna visualizzata
  nell'elenco, viene inserito il valore dalla colonna associata e non
  il valore selezionato.


title: Record che non si salvano

author: Bucketful

text:
Ho una maschera la cui origine dati è una tabella.
Questa maschera la utilizzo per l'immissione dati e la lancio tramite
il comando
DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, acWindowNormal
associato ad un pulsante.
Non riesco a capire perchè la chiave primaria della maschera si
incrementa, mentre i record non vengono salvati nella relativa tabella.
Solamente la prima immissione risulta salvata!
Help me!!! :)
Grazie a tutti...
--
Ciao.
Buck


title: Record che non si salvano

author: Sergio MAZZA

text:
"Bucketful" <
buck...@gmail.com
> ha scritto nel messaggio
news:mn.f35c7d748...@gmail.com...

Come fai a dire che i dati inseriti nei controlli non sono stati salvati?
Hai aperto la tabella?
I controlli sono tutti associati?
Ciao.
--
Sergio MAZZA


title: Record che non si salvano

author: Bucketful Work

text:
Sembra che Sergio MAZZA abbia detto :
> Come fai a dire che i dati inseriti nei controlli non sono stati salvati?
> Hai aperto la tabella?
Si Sergio, ho controllato il contenuo della tabella.
C'è solamente il primo record che ho inserito. Gli altri non vengono
memorizzati nonostante la chiave primaria si incrementi.
--
Buck


title: Record che non si salvano

text:
Sembra che Sergio MAZZA abbia detto :
> Come fai a dire che i dati inseriti nei controlli non sono stati salvati?
> Hai aperto la tabella?
Si Sergio, ho controllato il contenuo della tabella.



title: Record che non si salvano

text:
"Bucketful Work" <
buck...@gmail.com
> ha scritto nel messaggio news:mn.f3e87d741...@gmail.com...
>
> Si Sergio, ho controllato il contenuo della tabella.
Hai controllato i se le caselle di testo sono associate?
> C'è solamente il primo record che ho inserito. Gli altri non vengono memorizzati nonostante la chiave primaria si incrementi.
>
> --
> Buck
Se ancora non hai risolto devi essere più dettagliato nel descrivere tabelle/maschere e procedura che fai e il risultato che vuoi
ottenere...
Ciao.
--
Sergio MAZZA


title: Record che non si salvano

author: antonio

text:
"Bucketful Work" <
buck...@gmail.com
> ha scritto nel messaggio
news:mn.f3e87d741...@gmail.com...
> Sembra che Sergio MAZZA abbia detto :
>> Come fai a dire che i dati inseriti nei controlli non sono stati salvati?
>> Hai aperto la tabella?
>
> Si Sergio, ho controllato il contenuo della tabella.
> C'č solamente il primo record che ho inserito. Gli altri non vengono
> memorizzati nonostante la chiave primaria si incrementi.
>
> --
> Buck
>
>
Da quello che dici tu dovrebbe succedere qualcosa del genere:
prima di aprire la maschera, aprendo la tabella trovi
ID = 123
Campo1 = "PIPPO"
Campo2 = "PLUTO"
dopo aver chiuso la maschera di Add, aprendo la tabella trovi
ID = 124
Campo1 = "PIPPO"
Campo2 = "PLUTO"
e nessuna traccia dell'ID 123.
Questa situazione č piů facile che avvenga se accedi alla tabella tramite
una query in cui sono impostati particolari criteri di selezione. In ogni
caso, non credo che si sia incrementata la chiave, piuttosto penso che sia
stato generato un nuovo record e magari eliminato quello vecchio.
Fossi in te proverei ad aggiungere nella tabella un campo "DataCreazione" di
tipo Data/Ora e con valore predefinito "Now()" e cosě potrai vedere se č
stata "sporcata" la chiave sul primo record o se ne č stato generato uno
nuovo.
Ciao
Antonio


title: Record che non si salvano

author: Linda

text:
Scriveva Sergio MAZZA lunedì, 30/04/2007:
> Se ancora non hai risolto devi essere più dettagliato nel descrivere
> tabelle/maschere e procedura che fai e il risultato che vuoi ottenere...
Sergio allora, ora faccio così mi ricostruisco la maschera associata
alla tabella e ti faccio sapere.
Ciao


title: Record che non si salvano

text:
Scriveva Sergio MAZZA lunedì, 30/04/2007:
> Se ancora non hai risolto devi essere più dettagliato nel descrivere
> tabelle/maschere e procedura che fai e il risultato che vuoi ottenere...
Sergio allora, ora faccio così mi ricostruisco la maschera associata
alla tabella e ti faccio sapere.
Ciao
--
Buck


title: Record che non si salvano

text:
"Linda" <
cib...@tiscali.it
> ha scritto nel messaggio news:mn.f4567d74d...@tiscali.it...
> Sergio allora, ora faccio così mi ricostruisco la maschera associata alla tabella e ti faccio sapere.
Sarebbe un buon inizio...
> Ciao
Ciao.
--
Sergio MAZZA


title: Record che non si salvano

text:
"Bucketful Work" <
buck...@gmail.com
> ha scritto nel messaggio news:mn.f4557d74d...@gmail.com...
>
> Sergio allora, ora faccio così mi ricostruisco la maschera associata alla tabella e ti faccio sapere.
Sì, fai come ha fatto Linda...
> Ciao
>
> --
> Buck
Ciao.
P.S. Mi sa di dejavu...Mah...
--
Sergio MAZZA


title: Record che non si salvano

text:
Scriveva Sergio MAZZA lunedì, 30/04/2007:
> Ciao.
> P.S. Mi sa di dejavu...Mah...
Lo è, mi sono giocata il nick!!!
--
Buck


title: Record che non si salvano

text:
"Bucketful Work" <
buck...@gmail.com
> ha scritto nel messaggio news:mn.f46d7d745...@gmail.com...
>
> Lo è, mi sono giocata il nick!!!
Cioé? Hai perso?
> --
> Buck
Ciao.
--
Sergio MAZZA


title: Record che non si salvano

text:
Sergio MAZZA scriveva il 30/04/2007 :
> Cioé? Hai perso?
No ;).
Per un paio di post ho usato Linda, poi fa più "fico" usare un nick,
allora in onore di un mio chitarrista preferito, Buckethead, mi son
creata Bucketful.
Ma on lo dire a nessuno, preferisco l'anonimato... :D
--
Buck


title: Record che non si salvano

text:
"Bucketful Work" <
buck...@gmail.com
> ha scritto nel messaggio news:mn.f4777d746...@gmail.com...
>
> No ;).
> Per un paio di post ho usato Linda, poi fa più "fico" usare un nick, allora in onore di un mio chitarrista preferito, Buckethead,
> mi son
Aha! I "Ganzi con le rose"...
> creata Bucketful.
Ah! Beh; Linda e Bucketful; quansi come Dott.Jekill e Mr.Hide...
> Ma on lo dire a nessuno, preferisco l'anonimato... :D
Muto come un pesce... Lesso...



title: [OT] Cercasi Biso disperatamente...

author: Massimiliano Amendola  kksrl

text:
Un pensiero pre weekend, ma il Biso dov'č? che fa?
Maurizio non č che che ultimamente sei passato per Civitavecchia???
Torna, stu nusgrupp aspett  'a te
:..(
 Buon weekend a tutti
MAssimiliano


title: [OT] Cercasi Biso disperatamente...

author: Maurizio Borrelli

text:
    L'ultima volta che ho letto un suo post diceva che si sarebbe preso
un'altra settimana di ferie... Mi sa che lo leggeremo prestissimo.
    (Chissa' che con questo DMQ non riesca ad evocarlo.)
> "Massimiliano Amendola kksrl" news:aopeea$5js$
1...@fe1.cs.interbusiness.it
:
> Un pensiero pre weekend, ma il Biso dov'č? che fa?
> Maurizio non č che che ultimamente sei passato per Civitavecchia???
> Torna, stu nusgrupp aspett  'a te
> :..(
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: [OT] Cercasi Biso disperatamente...

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aopfr9$p8fva$1...@ID-52090.news.dfncis.de...
>     L'ultima volta che ho letto un suo post diceva che si sarebbe preso
> un'altra settimana di ferie... Mi sa che lo leggeremo prestissimo.
>
>     (Chissa' che con questo DMQ non riesca ad evocarlo.)
Se non avessi aggiunto questo in parentesi avrei pensato che stessi ballando
in assenza del gatto...
ciao
MAssimiliano
p.s. mi fa piacere che hai smussato un pò gli angoli e stai facendo venir
fuori solo un'enorme disponibilità verso glia altri
Mi sto ricredendo. Ciao


title: [OT] Cercasi Biso disperatamente...

text:
> "Massimiliano Amendola kksrl" news:aopg7q$6tg$
1...@fe2.cs.interbusiness.it
:
> > "Maurizio Borrelli" news:aopfr9$p8fva$
1...@ID-52090.news.dfncis.de
:
> >     L'ultima volta che ho letto un suo post diceva che si sarebbe preso
> > un'altra settimana di ferie... Mi sa che lo leggeremo prestissimo.
> >     (Chissa' che con questo DMQ non riesca ad evocarlo.)
> Se non avessi aggiunto questo in parentesi avrei pensato che stessi
ballando
> in assenza del gatto...
> p.s. mi fa piacere che hai smussato un pò gli angoli e stai facendo venir
> fuori solo un'enorme disponibilità verso glia altri
> Mi sto ricredendo. Ciao
    Io invece resto dell'opinione di prima perche' nessun fatto nuovo e'
intervenuto per farmela cambiare.



title: [OT] Cercasi Biso disperatamente...

author: Ettore Manara

text:
"Maurizio Borrelli" <
> > p.s. mi fa piacere che hai smussato un pò gli angoli e stai facendo
venir
> > fuori solo un'enorme disponibilità verso glia altri
> > Mi sto ricredendo. Ciao
>
>     Io invece resto dell'opinione di prima perche' nessun fatto nuovo e'
> intervenuto per farmela cambiare.
Scusate, erano secoli che non frequentavo questo ng ... cosa mi sono perso??
Ettore


title: [OT] Cercasi Biso disperatamente...

author: Alberto S.

text:
"Massimiliano Amendola kksrl" <
massimilia...@kksrl.com
> ha scritto
nel messaggio news:aopeea$5js$1...@fe1.cs.interbusiness.it...
> Un pensiero pre weekend, ma il Biso dov'è? che fa?
>
[CUT]
La cosa che dà da pensare è che anche Amanda è sparita da un po' di tempo...
--
Alberto


title: [OT] Cercasi Biso disperatamente...

author: Alex

text:

Niente, Maurizio è sempre acido come una "Zitella".....!!
Ciao Maurizio......!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [OT] Cercasi Biso disperatamente...

text:
"Alex" <
> > Scusate, erano secoli che non frequentavo questo ng ... cosa mi sono
perso??
> Niente, Maurizio è sempre acido come una "Zitella".....!!
Incuriosito ho spulciato un pò di post degli ultimi tempi ... non lo
definirei acido bensì in collisione perenne con A. Biso!  :-))
Ciao, Ettore


title: [OT] Cercasi Biso disperatamente...

author: Antonio Biso

text:
"Ettore Manara" <
ettore...@libero.it
> ha scritto nel messaggio
news:Lpls9.53191$RO.13...@twister1.libero.it...

No, no, è proprio acido!!!
Antonio


title: [OT] Cercasi Biso disperatamente...

text:
"Alberto S." <
sartor...@tin.it
> ha scritto nel messaggio
news:aoqu74$ouc47$1...@ID-134626.news.dfncis.de...

Alludi?
Stai insinuando qualcosa?!?!
Antonio


title: [OT] Cercasi Biso disperatamente...

text:
[CUT]
> > > Un pensiero pre weekend, ma il Biso dov'è? che fa?
> > >
> > [CUT]
> >
> > La cosa che dà da pensare è che anche Amanda è sparita da un po' di
> tempo...
>
> Alludi?
> Stai insinuando qualcosa?!?!
>
> Antonio
>
Non mi permetterei mai!
dai, dai : racconta (fin che Fabrizio non sente)
--
Alberto


title: [OT] Cercasi Biso disperatamente...

text:
"Alberto S." <
sartor...@tin.it
> ha scritto nel messaggio
news:ap1nk6$qqslp$1...@ID-134626.news.dfncis.de...
> [CUT]
> > > > Un pensiero pre weekend, ma il Biso dov'è? che fa?
> > > >
> > > [CUT]
> > >
> > > La cosa che dà da pensare è che anche Amanda è sparita da un po' di
> > tempo...
> >
> > Alludi?
> > Stai insinuando qualcosa?!?!
> >
> > Antonio
> >
> Non mi permetterei mai!
Ah ecco...
> dai, dai : racconta (fin che Fabrizio non sente)
Tsk tsk
Gentil hombre gode e tace...
Antonio


title: [OT] Cercasi Biso disperatamente...

text:
[CUT]
> > > > La cosa che dà da pensare è che anche Amanda è sparita da un po' di
> > > tempo...
> > >
> > > Alludi?
> > > Stai insinuando qualcosa?!?!
> > >
> > > Antonio
> > >
> > Non mi permetterei mai!
>
> Ah ecco...
>
> > dai, dai : racconta (fin che Fabrizio non sente)
>
> Tsk tsk
> Gentil hombre gode e tace...
>
> Antonio
>
Ma come?
Non avete discusso di query def, di moduli di classe, dei problemi legati
alle impostazioni internazionali di Windows?
Parli di godimento intellettuale, vero?
E poi lo sai anche tu che il manifesto dice che tutte queste cose devono
transitare per il NG...
Ciao
--
Alberto


title: accodamento a tabella con chiave primaria (e duplicati non ammessi)

author: giannirusso

text:
Buongiorno, ho un database con una tabella Tabella1 con contatore e
chiave primaria (e duplicati non ammessi).

Questa tabella è in relazione uno a molti con un'altra tabella.

Avrei la necessità di accodare (di tanto in tanto) alcuni record da una
tabella Tabella2 che ho creato con gli stessi campi della Tabella1 e
senza chiave primaria.

Quando eseguo viene fuori l'errore violazione di chiave e non capisco
perchè, visto che non accodo nulla al campo contatore chiave primaria
della Tabella1.

Come posso procedere?

Grazie
Gianni


author: BFS

text:

puoi postare la tua struttura della tua tabella1 e della query di
accodamento?

BFS


text:
> puoi postare la tua struttura della tua tabella1 e della query di
> accodamento?
>
> BFS

Tabella Clienti in relazione uno a molti con altra tabella (integrità
referenziale)

IdClienti numerazione automatica chiave primaria
Indirizzo testo breve
CAP testo breve
Citta testo breve
CodiceCliente testo breve
DataInserimento Data/ora

Query ClientiInserireDatabase
INSERT INTO Clienti (Indirizzo, CAP, Citta, CodiceCliente, DataInserimento)
SELECT ClientiInserireDatabase.Indirizzo, ClientiInserireDatabase.CAP,
ClientiInserireDatabase.Citta, ClientiInserireDatabase.CodiceCliente,
ClientiInserireDatabase.DataInserimento
FROM ClientiDaInserireDatabase;

Grazie
Gianni


text:

sembra tutto ok se solo idclienti è campo chiave
il messaggio di errore esattamente cosa dice?

BFS


text:
>
> sembra tutto ok se solo idclienti è campo chiave
> il messaggio di errore esattamente cosa dice?
>
> BFS

IdClienti è campo chiave primaria ed è l'unico campo chiave. L'errore
dice che ci sono 14 (tanti quanti i record da accodare) violazioni di
chiave.

Voglio fare delle prove con un'altra tabella simile, magari riesco a
trovare l'errore.

Grazie
Gianni


text:
> Voglio fare delle prove con un'altra tabella simile, magari riesco a
> trovare l'errore.
>
 >
 > Voglio fare delle prove con un'altra tabella simile, magari riesco a
 > trovare l'errore.
 >

Ho provato a creare una tabella copia di Clienti, lasciando tutto
invariato compresa la chiave primaria e l'accodamento in questa tabella
clone funziona.
A questo punto che il problema sia che la chiave primaria IdClienti
della tabella Clienti è in relazione uno a molti con altra tabella con
integrità referenziale e aggiornamento campi correlati a catena?

Grazie
Gianni


text:

te lo stavo per scrivere
secondo me non è uno a molti
la seconda tabella si aspetta di trovare un id uguale per ogni id della
tua tabella di destinazione a mio avviso

BFS


title: "Cerca" di SitoComune

author: alias

text:
Qualcuno saprebbe dirmi se esiste un rimedio al seguente problema:
quando cerco di far eseguire una ricerca nell'apposita pagina del Sito
Comune invece di darmi un risultato mi chiude definitivamente la pagina
explorer non permettendomi alcunchč.


title: quoting

author: marco

text:
x Pablitomf,
Regola n° 1 per andare daccordo con il resto dell'NG : Scrivere sempre e
solo dopo il quoting, ovvero dopo il messaggio al quale dai seguito,
altrimenti litigherai di sicuro con un po di gente (me compreso ;-) )
......
Scus x rispondere dopo i quoting, non credo di aver capito casa intendi
esattamente,
Io inserisco un messaggio, qualcuno mi risponde, io a questo punto cosa
dovrei fare esattamente?
Non sono esperto di newreader.......


title: quoting

author: Pablitomf

text:
marco ha scritto:

Questo devi fare... rispondere "sotto" al testo di colui al quale
rispondi... come ho fatto io con te in questo caso.
Cmq, visto che ti vedo interessato alle regole (e questo mi fa piacere),
sul nostro caro sitocomune (
www.sitocomune.com
) vi sono le regole di
comportamento dell'NG, spesso richiamate a gran voce da tutti. Dagli uno
sguardo.
Ciao
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: quoting

text:
Il buon Robero da Casa ha postato le regole... ora sono anche quì, leggile
e fanne tesoro.
Buon Lavoro



title: quoting

author: ALESSANDRO Baraldi

text:
"marco" <
mb0...@jumpy.it
> ha scritto nel messaggio
news:cbbd1l$j7a$1...@newsread.albacom.net...

Io direi che non è questione di LITIGARE con nessuno.....!!!
Il fatto è puramente funzionale, oltre che essere una regoletta
banale ma accettata da tutti i partecipanti del NG per migliorare
la comprensibilità del 3D.
La successione temporale delle risposte segue in modo discendente
e quindi successivo...!
Ciao.
@Alex.


title: quoting

text:
ALESSANDRO Baraldi ha scritto:
> Io direi che non è questione di LITIGARE con nessuno.....!!!
ma Marco lo aveva capito da ;-) che si scherzava... ovvio che non si
litiga.



title: metodo acsendreport .... non funziona vmapi.dll ?

text:
da una maschera devo inviare un report usando o il comando macro invia
oggetto oppure il comando vbasic analogo. Il problema e che non riesce
ad inizializzare il client di posta e mi ritorna un errore nella macro o
un messaggio di errore nel listato.
Sulla rete o trovato questa dll Bmapi32.ddl e' quella giustia  se no
dove posso trovare la dll vmapi visto che non la ho e penso che sia la
causa dell'errore ?
Inoltre  ci sono esempi da qualche parte di come creare una lista utenti
da inserire poi nella macro a: o cc: ?
utilizzo office2000 pro e outlook2000 su exchange server
Saluti Roberto


title: Maschere interattive

author: Andrea

text:
Vorrei creare una maschera interattiva, cioè una sequenza di caselle di
riepilogo/combinate che si influenzano tra di loro. Es: una volta che ho
selezionato un certo forntore in una casella di riepilogo, vorrei che
nella successiva casella con i prodotti fossero visualizzabili solo quelli
di quel determinato fornitore.
Grazie Andrea
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Maschere interattive

text:
"Andrea" <
Andrea_...@yahoo.it
> ha scritto nel messaggio
news:b8tkc2$og6$1...@news.newsland.it...
> Vorrei creare una maschera interattiva, cioè una sequenza di caselle di
> riepilogo/combinate che si influenzano tra di loro. Es: una volta che ho
> selezionato un certo forntore in una casella di riepilogo, vorrei che
> nella successiva casella con i prodotti fossero visualizzabili solo quelli
> di quel determinato fornitore.
> Grazie Andrea
>
> --
Devi creare Controlli tipo ComboBox o ListBox con Origine
delle QRY che devi sincronizzare....!
Vale a dire che nei criteri della Qry del controllo a valle deve essere
inserito
nel campo relativo al Criterio precedente il riferimento al controllo
stesso...!
Nel SitoComune trovi alcuni esempi relativi alla sincronizzazione dei
controlli..!
Ciao
@Alex.


title: Maschere interattive

text:
Scisa qual'è il sito comune.
Ciao Andrea
@Alex wrote:



> Ciao
> @Alex.



title: Maschere interattive

author: Roberto da casa

text:
"Andrea" <
aa...@aaaa.it
> ha scritto nel messaggio
news:b951q9$gge$1...@news.newsland.it...
> Scisa qual'è il sito comune.
> Ciao Andrea
Quando rispondi scrivi DOPO e non prima del testo di messaggi precedenti.
Questo è il link del Sito Comune:
http://www.sitocomune.com
[CUT]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: VBA: query & stringhe SQL

author: ringo

text:
Salve a tutti,
per trovare una scorciatoia dovrei fare
la seguente cosa:
1) copiare la stringa sql di una determinata query (querydef definita)
    la query è del tipo SELECT NPC FROM POLCLI WHERE ....
2) prendendo la stringa copiata  dovrei inserire nella stringa SQL select
POL ovvero la stringa
dovrebbe essere:  SELECT NPC , POL FROM POLCLI WHERE ....
3) creare una nuova query con la nuova stringa SQL (questo punto riesco a
risolverlo)
Qualcuno mi pou' dare una dritta?
Grazie!
ringo


title: VBA: query & stringhe SQL

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:ao413b$ljv$1...@serv1.albacom.net...

Se la query di partenza di cui si deve modificare il codice SQL si chiama
Query1.
Se la nuova query da creare e salvare partendo da Query1 si chiama Query2.
Se per creare Query2 occorre aggiungere nella SELECT un campo chiamato POL.
In un modulo del tuo database registrati questa funzione:
Function ObjectExists(ObjectType As String, ObjectName As String) As Integer
     On Error Resume Next
     Dim Found_Object As Integer, Find_Object As String, ObjectNum As
Integer
     Dim db As DATABASE, T As TableDef
     Dim Q As QueryDef, C  As Container
     Dim msg As String
     Found_Object = False
     Set db = CurrentDb()
     Select Case ObjectType
       Case "Tables"
           Find_Object = db.TableDefs(ObjectName).Name
       Case "Queries"
           Find_Object = db.QueryDefs(ObjectName).Name
       Case Else
           If ObjectType = "Forms" Then
               ObjectNum = 1
           ElseIf ObjectType = "Modules" Then
               ObjectNum = 2
           ElseIf ObjectType = "Reports" Then
               ObjectNum = 4
           ElseIf ObjectType = "Macros" Then
               ObjectNum = 5
           Else
                msg = "Object Name """ & ObjectType & """ is an invalid"
                msg = msg & " argument to function ObjectExists!"
                MsgBox msg, 16, "ObjectExists20"
                Exit Function
           End If
           Set C = db.Containers(ObjectNum)
           Find_Object = C.Documents(ObjectName).Name
       End Select
       If Err = 3265 Or Find_Object = "" Then
           Found_Object = False
       Else
           Found_Object = True
       End If
       ObjectExists = Found_Object
   End Function
Invece per creare e salvare Query2, esegui questo codice VBA, che fa
riferimento alle librerie DAO:
Dim MyQueryDef As QueryDef
Dim SQL As String
Dim Conta As Integer
' Se già esiste, cancella Query2
If ObjectExists("Queries", "Query2") = True Then
    CurrentDb().QueryDefs.Delete "Query2"
    CurrentDb().QueryDefs.Refresh
End If
Set MyQueryDef = CurrentDb().QueryDefs("Query1")
SQL = MyQueryDef.SQL
For Conta = 1 To Len(SQL)
    If Mid(SQL, Conta, 4) = "FROM" Then
        Exit For
    End If
Next Conta
SQL = left(SQL, Conta - 1) & ", POL " & Mid(SQL, Conta)
MyQueryDef.Close
Set MyQueryDef = CurrentDb().CreateQueryDef("Query2", SQL)
MyQueryDef.Close
Set MyQueryDef = Nothing
Dovrebbe funzionare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: VBA: query & stringhe SQL

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:fwmp9.14741$%M1.3...@twister2.libero.it...

caccccccccchio!!!
scusa del termine ma X me sei
un mito....
non riesciro mai io ad usare il
codice come lo usi te!!!
ho fatto come hai detto e funziona tutto
alla meraviglia!
grazie!
P.S.: grazie per la scorciatoia!
ringo!


title: VBA: query & stringhe SQL

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:fwmp9.14741$%M1.3...@twister2.libero.it...

scusa la tua soluzione è ottima solo che
mi son dimenticato che il campo POL
andrebbe aggiunto anche nella proposizione GRUOP BY...
infatti il tuo metodo lo dovrei utrilizzare su
circa una 15 query che hanno la strutture:
SELCT NPC
FROM POLCLI
WHERE.............
GROUP BY NPC
non è che potresti fare un strappo
alla regola dicendomi come modificare
il codice per aggiungere il compo POL
al GROUP BY??
.... che aproffittatore che sono.....
bye


title: VBA: query & stringhe SQL

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:fwmp9.14741$%M1.3...@twister2.libero.it...

Roberto ci sono riuscito ad inserire POL nel group by....
grazie ancora!!!
ringo
'**************************************************************************
'***   Costruzione query2 copiando query1 aggiungendo campo pol     *
'**************************************************************************
Dim MyQueryDef As QueryDef
Dim SQL As String
Dim Conta As Integer
' Se già esiste, cancella Query2
If ObjectExists("Queries", "query2") = True Then
    CurrentDb().QueryDefs.Delete "query2"
    CurrentDb().QueryDefs.Refresh
End If
Set MyQueryDef = CurrentDb().QueryDefs("query1")
SQL = MyQueryDef.SQL
For Conta = 1 To Len(SQL)
    If Mid(SQL, Conta, 4) = "FROM" Then
        Exit For
    End If
Next Conta
SQL = Left(SQL, Conta - 1) & ", POL " & Mid(SQL, Conta)
MyQueryDef.Close
Set MyQueryDef = CurrentDb().CreateQueryDef("query2", SQL)
MyQueryDef.Close
Set MyQueryDef = Nothing
'Inserimento POL nel GROUP BY
Set MyQueryDef = CurrentDb().QueryDefs("query2")
SQL = MyQueryDef.SQL
For Conta = 1 To Len(SQL)
    If Mid(SQL, Conta, 1) = ";" Then
        Exit For
    End If
Next Conta
Debug.Print SQL
SQL = Left(SQL, Conta - 1) & ", POL " & Mid(SQL, Conta)
Debug.Print SQL
MyQueryDef.Close
Set loqd = CurrentDb.QueryDefs("query2")
loqd.SQL = SQL
loqd.Close


title: VBA: query & stringhe SQL

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:ao60g6$ab2$1...@serv1.albacom.net...
>
[CUT]
>
> Roberto ci sono riuscito ad inserire POL nel group by....
> grazie ancora!!!
>
> ringo
>
[CUT]
Molto bene; potevi risparmiare qualche istruzione; visto che il carattere da
ricercare era solo ";":  bastava usare la funzione InStr.
Ad ottimizzare c'è sempre tempo: la cosa importante è trovare soluzioni
funzionanti. :-)
Solo al fine di farti capire la tecnica QBF, ti posto qui di seguito la mia
soluzione: io sarei intervenuto aggiungendo una sola riga di codice VBA,
ovvero il tutto sarebbe diventato:
Dim MyQueryDef As QueryDef
Dim SQL As String
Dim Conta As Integer
' Se già esiste, cancella Query2
If ObjectExists("Queries", "Query2") = True Then
    CurrentDb().QueryDefs.Delete "Query2"
    CurrentDb().QueryDefs.Refresh
End If
Set MyQueryDef = CurrentDb().QueryDefs("Query1")
SQL = MyQueryDef.SQL
For Conta = 1 To Len(SQL)
    If Mid(SQL, Conta, 4) = "FROM" Then
        Exit For
    End If
Next Conta
SQL = Left(SQL, Conta - 1) & ", POL " & Mid(SQL, Conta)
'**** NUOVA RIGA PER MODIFICARE GROUP BY ***
SQL = Left(SQL, InStr(SQL, ";")-1) & ", POL;"
'***********************************************



title: VBA: query & stringhe SQL

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:ao5tjo$7po$1...@serv1.albacom.net...
[CUT]
>
>
> caccccccccchio!!!
>
> scusa del termine ma X me sei
> un mito....
>
> non riesciro mai io ad usare il
> codice come lo usi te!!!
>
Non è esatto quello che dici. :-)
Per riuscirci sarebbe sufficiente studiare un po'; lo dimostra il fatto che
la modifica che hai chiesto nel tuo messaggio seguente te la sei realizzata
da solo studiando il codice che ti ho postato.
La tecnica usata nel codice VBA in oggetto si chiama QBF (Query By Form).
Sono stato in grado di darti una soluzione perché avevo appreso la tecnica
QBF studiando un esempio presente sul Sito Comune (link qui sotto).
Se ti interessa vai sul Sito Comune e dalla Sezione Queries scaricati il
database di esempio allegato alla FAQ intitolata "Esempi di utilizzo e
creazione di queries".
Lancia il datase scaricato e seleziona il Topic intitolato Query by Form
(QBF) Using Dynamic QueryDef.
Premendo il pulsante di comando Show Example ti verrà mostrato un esempio
molto interessante realizzato con la tecnica QBF: la creazione di una query
di selezione parametrica che fa riferimento a parametri contenuti in sei
controlli non associati di una maschera non associata. La cosa bella è che
la query di selezione che viene creata contiene al suo interno le costanti
per effettuare la selezione, quindi la maschera, dopo la creazione della
query, può essere chiusa; Non è necessario che risulti aperta durante la
visualizzazione dei dati selezionati, come normalmente invece avviene quando
il filtraggio di una mascchera o di un report avviene tramite una query
parametrica.
> ho fatto come hai detto e funziona tutto
> alla meraviglia!
>
> grazie!
>
> P.S.: grazie per la scorciatoia!
>
> ringo!
--



title: VBA: query & stringhe SQL

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:JLxp9.16307$RO.3...@twister1.libero.it...
>
[CUT]
Mi ero dimenticato di dirti che la spiegazione dettagliata di come č stato
realizzato l'esempio la trovi al link:
http://support.microsoft.com/support/kb/articles/q136/0/62.asp



title: Funzione Val su SQL Server express

author: Morgan

text:
Scusate ragazzi avrei bisogno di una mano....
Sto migrando un db in access 2003 su SQL Server 2005 Express
per ragioni di capacità del db (nemmeno un anno e siamo già a 65 Mega)
Sto convertendo le query di access in pass trought ma mi devo correggere
un po la sintassi.
Veniamo al dunque
La seguente, crea un campo chiamato Valorizza ed è o dovrebbe essere la
traduzione dell'istruzione Iif...
SELECT     FeatureDescription, ResultClassID, SampleID, FeatureID, CASE
WHEN ResultClassID = 0 THEN '0' ELSE '1' END AS Valorizza
FROM         dbo.Vista_Pattern_1
ora il campo valorizza ritorna una stringa ed io vorrei convertitre
questa in un intero.
Su access facevo Valore:Val([Valorizza])
e qui?So che dovrei usare Convert ma non riesco ne a convertire
ne a creare il campo Valore.
Morgan


title: Funzione Val su SQL Server express

author: Cinzia

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:45dd51cd$0$10620$4faf...@reader2.news.tin.it...

Ciao Morgan,
hai provato:
SELECT     FeatureDescription, ResultClassID, SampleID, FeatureID, CASE
  WHEN ResultClassID = 0 THEN 0 ELSE 1 END AS Valorizza
  FROM         dbo.Vista_Pattern_1
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
----------------------------------------


title: Funzione Val su SQL Server express

text:
Cinzia ha scritto:

Cioè se dopo THEN e ELSE non uso le '' allora mi ritorna una valore integer?
Morgan


title: Funzione Val su SQL Server express

author: David Martin

text:
Morgan wrote:
> SELECT     FeatureDescription, ResultClassID, SampleID, FeatureID, CASE
> WHEN ResultClassID = 0 THEN '0' ELSE '1' END AS Valorizza
> FROM         dbo.Vista_Pattern_1
>
> ora il campo valorizza ritorna una stringa ed io vorrei convertitre
> questa in un intero.
Prova a togliere gli apici singoli dai valori che tu decidi di far
restituire al CASE:
-----------------
CASE WHEN ResultClassID = 0 THEN 0 ELSE 1 END AS Valorizza
-----------------
--
David Martin


title: Funzione Val su SQL Server express

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:45dd598b$0$10622$4faf...@reader2.news.tin.it...

Ciao Morgan,
si.



title: Database msacess su pocketPc

author: Pino

text:
Ho provato qualche trial version di sw che converte file mdb in ppc ma non
ho visto se sia possibile mantenere le relazioni fra le tabelle. Mi sembra
che occorra rifare tutto sul ppc (query,maschere,ecc.)
Chiedo se qualcuno abbia avuto modo di trovare qualcosa di meglio nella
rete.
La mia volontà sarebbe di potere usare il mio database msacess con il ppc
Axim. Grazie.


title: RICERCA PER DATA

author: RobertOne

text:
Ciao a tutti.
Non riesco a risolvere forse questo semplice problema. Ho creato un piccolo
database di bilancio familiare. Ho costruito una maschera con integrata una
sottomaschera e vorrei ottenere il seguente risultato. Premetto che immetto
le spese digitando la data nel seguente modo: 08/04/2011.
Vorrei ottenere tutte le spese dell'anno X e del mese Y, nella maschera ho
creato una casella di testo dove immetto l'anno, mentre per i mesi ho creato
una casella combinata non associata dove in origine riga ho già inserito
tutti i mesi di default:
"Gennaio";"Febbraio";"Marzo";"Aprile";"Maggio";"Giugno";"Luglio";"Agosto";"Settembre";"Ottobre";"Novembre";"Dicembre".
In pratica selezionando il mese in lettere dalla combobox, vorrei ottenere
tutte le spese di quel mese, tenendo in considerazione che le date sono
state memorizzate in formato numerico.
Come si deve procedere?
Grazie.
Rob.


title: RICERCA PER DATA

text:

intanto il menu a tendina con i mesi deve avere due colonne con questa
origine:
1;gennaio;2;febbraio...12;dicemnbre
imposti a zero la larghezza della prima colonna
se questa combo si chiama rMese e quella di scelta anno si chiama rAnno
sull'evento dopo aggiornamento di rAnno e rMese richiami una funzione
che ti imposta l'origina dati filtrata:
me.recordsource="select * from tueRegistrazioni where
year(dataregistrazione)=" & me.rAnno & " and month(dataregistrazione)="
& me.rMese
oppure vediti i filtri sulla guida online
ciao
BFS


title: RICERCA PER DATA

text:
"BFS" ha scritto nel messaggio ...
>
> intanto il menu a tendina con i mesi deve avere due colonne con questa
> origine:
>
> 1;gennaio;2;febbraio...12;dicemnbre
>
> imposti a zero la larghezza della prima colonna
>
> se questa combo si chiama rMese e quella di scelta anno si chiama rAnno
>
> sull'evento dopo aggiornamento di rAnno e rMese richiami una funzione che
> ti imposta l'origina dati filtrata:
>
> me.recordsource="select * from tueRegistrazioni where
> year(dataregistrazione)=" & me.rAnno & " and month(dataregistrazione)=" &
> me.rMese
>
>
> oppure vediti i filtri sulla guida online
>
> ciao
> BFS
Intanto grazie per avermi dato le dritte succitate. Per quanto concerne la
questione dei mesi, l'avevo pensata anch'io ma non sapevo come mettere i nr.
equivalenti ai mesi (1=gennaio, 2=febbraio etc.) e questo problema č stato
risolto. Sinceramente credevo che la questione fosse piů semplice invece mi
sto perdendo da stamattina...
Ricapitolando, in una casella di testo, digito l'anno (2011) nella casella
combinata cerco il mese ma non riesco ad ottenere i risultati nella
sottomaschera... Non riesco a mettere in pratica quanto mi suggerisci,
chiedo venia ma sono poco pratico. Come devo fare per ottenere tali
risultati? Ho guardato la questione filtri ma non ho trovato quanto fa al
caso mio.
Grazie.
Rob.


title: RICERCA PER DATA

text:
Il 08/04/2011 18:11, RobertOne ha scritto:
> "BFS" ha scritto nel messaggio ...
>>
>> intanto il menu a tendina con i mesi deve avere due colonne con questa
>> origine:
>>
>> 1;gennaio;2;febbraio...12;dicemnbre
>>
>> imposti a zero la larghezza della prima colonna
>>
>> se questa combo si chiama rMese e quella di scelta anno si chiama rAnno
>>
>> sull'evento dopo aggiornamento di rAnno e rMese richiami una funzione che
>> ti imposta l'origina dati filtrata:
>>
>> me.recordsource="select * from tueRegistrazioni where
>> year(dataregistrazione)="&  me.rAnno&  " and month(dataregistrazione)="&
>> me.rMese
>>
>>
>> oppure vediti i filtri sulla guida online
>>
>> ciao
>> BFS
>
> Intanto grazie per avermi dato le dritte succitate. Per quanto concerne la
> questione dei mesi, l'avevo pensata anch'io ma non sapevo come mettere i nr.
> equivalenti ai mesi (1=gennaio, 2=febbraio etc.) e questo problema è stato
> risolto. Sinceramente credevo che la questione fosse più semplice invece mi
> sto perdendo da stamattina...
>
> Ricapitolando, in una casella di testo, digito l'anno (2011) nella casella
> combinata cerco il mese ma non riesco ad ottenere i risultati nella
> sottomaschera... Non riesco a mettere in pratica quanto mi suggerisci,
> chiedo venia ma sono poco pratico. Come devo fare per ottenere tali
> risultati? Ho guardato la questione filtri ma non ho trovato quanto fa al
> caso mio.
>
> Grazie.
>
> Rob.
>
>
fammi capire...hai una maschera con sottomaschera? quindi tutte le tue
registrazioni dovranno apparire nella sottomaschera giusto?
fai così...metti rAnno e rMese nella tua maschera principale
metti un pulsante "trova" alla cui pressione imposti:
me.miaSottomaschera.form.recordsource="select * from tua
tabellaRegistrazioni where year(dataregistrazione)=" & me.rAnno & " and
month(dataregistrazione)=" & me.rMese
fammi sapere
ciao
BFS


title: RICERCA PER DATA

text:
"BFS" <B...@BFSBFS.it> ha scritto nel messaggio ...>>
>> Grazie.
>>
>> Rob.
> fammi capire...hai una maschera con sottomaschera? SI quindi tutte le tue
> registrazioni dovranno apparire nella sottomaschera giusto? SI
>
> fai così...metti rAnno e rMese nella tua maschera principale
> metti un pulsante "trova" alla cui pressione imposti:
>
> me.miaSottomaschera.form.recordsource="select * from tua
> tabellaRegistrazioni where year(dataregistrazione)=" & me.rAnno & " and
> month(dataregistrazione)=" & me.rMese
>
>
> fammi sapere
>
> ciao
> BFS
Non so come, ma stamattina c'ero quasi riuscito. Digitavo l'anno nella
casella di testo e poi con la combobox cercavo il mese voluto. Mi funzionava
finchè non avevo la necessità di cambiare l'anno. Cambiando l'anno per
ottenere i risultati, dovevo passare con la maschera in visualizza struttura
e poi visualizza maschera ed allora funzionava. Ho pensato che mancasse un
requery ed ho provato. Provato e riprovato, ora non ho più tale condizione e
non riesco più a ricrearla, il colmo! Sinceramente preferirei non avere
pulsanti ma ottenere i risultati della ricerca all'uscita della combobox.
Rob.


title: RICERCA PER DATA

text:
Il 08/04/2011 18:44, RobertOne ha scritto:
> "BFS"<B...@BFSBFS.it>  ha scritto nel messaggio ...>>
>>> Grazie.
>>>
>>> Rob.
>
>
>> fammi capire...hai una maschera con sottomaschera? SI quindi tutte le tue
>> registrazioni dovranno apparire nella sottomaschera giusto? SI
>>
>> fai così...metti rAnno e rMese nella tua maschera principale
>> metti un pulsante "trova" alla cui pressione imposti:
>>
>> me.miaSottomaschera.form.recordsource="select * from tua
>> tabellaRegistrazioni where year(dataregistrazione)="&  me.rAnno&  " and
>> month(dataregistrazione)="&  me.rMese
>>
>>
>> fammi sapere
>>
>> ciao
>> BFS
>
> Non so come, ma stamattina c'ero quasi riuscito. Digitavo l'anno nella
> casella di testo e poi con la combobox cercavo il mese voluto. Mi funzionava
> finchè non avevo la necessità di cambiare l'anno. Cambiando l'anno per
> ottenere i risultati, dovevo passare con la maschera in visualizza struttura
> e poi visualizza maschera ed allora funzionava. Ho pensato che mancasse un
> requery ed ho provato. Provato e riprovato, ora non ho più tale condizione e
> non riesco più a ricrearla, il colmo! Sinceramente preferirei non avere
> pulsanti ma ottenere i risultati della ricerca all'uscita della combobox.
>
> Rob.
>
>
ti basta mettere questo
me.miaSottomaschera.form.recordsource="select * from tua
 > tabellaRegistrazioni where year(dataregistrazione)=" & me.rAnno & " and
 > month(dataregistrazione)=" & me.rMese
nell'evento afterUpdate della combo
ciao
BFS


title: RICERCA PER DATA

text:
"BFS"  ha scritto nel messaggio ...>
> ti basta mettere questo
> me.miaSottomaschera.form.recordsource="select * from tua
> > tabellaRegistrazioni where year(dataregistrazione)=" & me.rAnno & " and
> > month(dataregistrazione)=" & me.rMese
>
> nell'evento afterUpdate della combo
>
> ciao
> BFS
Rieccomi. La tua soluzione è senz'altro più efficace della mia, come ti
dicevo avevo trovato ed ieri in tarda serata sono riuscito ad reimpostarlo
questo modo:
SELECT Generale.Data, Generale.Esercizio, Generale.GrupMer,
Generale.Importo, Year([Data]) AS Espr1, Month([Data]) AS Espr2
FROM Generale
WHERE (((Year([Data]))=[Forms]![Ricerca periodo]![Year]) AND
((Month([Data]))=[Forms]![Ricerca periodo]![Month]));
Questa query è impostata nella subform, ieri mattina quello che mi mancava
era la requery che non sapevo dove impostare ed infine ieri sera, l'ho
impostata sulla subform e funziona.
Grazie ancora per il supporto.
Rob.


title: cambiare da codice VBA il titolo di una form

text:
so che è possibile ma non ricordo come.
mi sapete aiutare? Grazie a tutti.


author: Carlo Costarella

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:n8859.54150$lu5.1...@twister1.libero.it...
> so che è possibile ma non ricordo come.
>
> mi sapete aiutare? Grazie a tutti.
>
>
Su apertura o su corrente o quando vuoi:
Me.Caption = "TuoTitoloMaschera"
Ciao, Carlo


title: Menù editor

text:
E' possibile in Access creare le varie voci tipo Menù Editor di Visual
Basic?

Grazie in anticipo

Radaelli Renzo

--
Posted from
relay1.ssi.enel.it
 [146.133.2.149]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Menù editor

author: Lorenzo Coronati

text:
Scrisse
radaell...@enel.it
:
>E' possibile in Access creare le varie voci tipo Men=F9 Editor di =
>Visual
>Basic?
Si, + o -, vedi l'help su commandbars
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono
convinti che noi poveri principianti (nel senso
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--


title: Power Point

author: Mks

text:
Ciao a TUTTI.
La ditta in cui lavoro mi hanno incaricato di tenere un corso per
principianti di Power Point.
Potete dirmi dove posso trovare (in rete) un piano di lezioni, una scaletta
da seguire e magari un manualetto per principianti ???
Eventuali risposte a:
qa...@flashmail.com
GRAZIE A TUTTI VOI per l'aiuto che mi darete.


title: Power Point

author: Carlo Ve

text:
Mks ha scritto nel messaggio <8ccimc$sv0$
1...@nslave2.tin.it
>...

prova a vedere su
www.manuali.net
Carlo Ve


title: Accesso multiplo al Database

author: fabius

text:
Con un programma in visual basic (con ADO) inserisco informazioni in un
database Access 2000 formato  da due tabelle.
Quali settaggi si devono fare sul database affinchè a questo  possano
accedere in sola lettura altri utenti presenti in rete ?
 (attualmente ho la segnalazione che il file è bloccato).
Grazie per le informazioni


title: Accesso multiplo al Database

author: Alessandro

text:
"fabius" <
fabius_...@yahoo.it
> wrote in message
news:2xsl8.2502$S52....@news2.tin.it...

Guarda le modalità di accesso del Recordset, Pessimistico o Ottimistico.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Modificare Registro di Windows da Access

author: Ettore

text:
Salve a tutti!
Vorrei sapere come poter modificare il Registro di Windows con il codice VBA
di ACCESS.
In sostanza vorrei andare ad azzerare i valori contenuti nelle chiavi MRU1,
MRU2, MRU3 e MRU4 non appena chiudo il mio archivio (cosě il mio capo non
puň capire che ho aperto i miei archivi con il PC aziendale...)
Ho provato con GetSetting, ma sembra non funzionare... mi occorre una
chiamata API ???
Grazie per l'aiuto!


author: Alessandro Cara

text:
Ettore ha scritto:

si ma siccome sono un "capo" non te lo dico.
a.cara
P.S. se il tuo capo sa che esiste un registry etc... io penso che e'
meglio che cominci a cercarti un'altro posto di lavoro. Tanto ti "becca"


author: Luigi - R

text:
"Ettore" <
etto...@hotmail.com
> ha scritto nel messaggio
news:CRmc6.4023$L94....@twister2.tin.it...

A cosa servono queste chiavi?
grazie.


title: Visualizzare nomi utenti DB

author: Knives

text:
Salve,
c'è un modo per visualizzare sulla prima maschera aperta all'avvio il nome
dell'utente che è entrato?
e se poi quel valore voglio utilizzarlo anche per sapere quali sono i redord
inseriti da quell'utente?
Ciao e grazie.


title: Visualizzare nomi utenti DB

text:
MITICO!
ho scoperto la "funzione" CurrentUser!!!!
:)))
"Knives" <x@x.x> ha scritto nel messaggio
news:2eN%b.46989$IT2.1...@news4.tin.it...



title: Visualizzare nomi utenti DB

text:
Knives wrote:
> MITICO!
> ho scoperto la "funzione" CurrentUser!!!!
> :)))
se usi la sicurezza di access va bene altrimenti temo che troverai
sempre "admin".
P.S. quando sei su un follow cerca di rispondere dopo il "quote" (intero
o pezzo del post precedente)
--
a.cara


title: Visualizzare nomi utenti DB

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c1pio0$1j8cif$2...@ID-163946.news.uni-berlin.de...

Grazie del consiglio Ale
Cmq si, uso la sicurezza di access. ho sul DB 2 utenti completi e uno
amministratore e CurrentUser() funziona benissimo.
Ma mi fai sorgere una domanda... a che altri tipi di sicurezza ti riferisci?
ciao


title: query a campi incrociati? o forse no...

author: giaconet

text:
Ciao a tutti.
Devo elaborare una query ma mi sto "arrovogliando" mani e piedi.
Il problema č all'apparenza semplice ma proprio non riesco ad uscirne.
Ho una tabella (la semplifico)
sesso (M,F)
fumo (si,no)
diabete (si,no)
vorrei un riassuntino di questo tipo, che dica cioč per sesso quante
persone hanno quei fattori di rischio
sesso        fumo (si)        diabete (si)   totali
M             172               167              300
F              189               127              350
o di quest'altro tipo (ma a questo punto č ovvio)
sesso        fumo (si)      diabete (si)
M             57%            55%
F              54%            36%
Grazie a tutti
Bye
giaconet


title: query a campi incrociati? o forse no...

author: Giorgio Prx

text:
"giaconet" <
giacone...@inwind.it
> ha scritto nel messaggio
news:bemevf$6q0t4$1...@ID-71483.news.uni-berlin.de...

Ciao giaconet
Sě č una query a campi incrociati ma č piů semplice eseguire il Pivot
manualmente.
-----------------
SELECT
  Sesso,
  SUM(IIF(Fumo,1,0)) AS [Fumo (si)],
  SUM(IIF(Diabete,1,0)) AS [Diabete (si)],
  [Fumo (si)]+[Diabete (si)] AS Totali
FROM Salute
GROUP BY Sesso
------------------
Ciao Giorgio.


title: query a campi incrociati? o forse no...

text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bemjt8$ovu$1...@lacerta.tiscalinet.it...
>
> "giaconet" <
giacone...@inwind.it
> ha scritto nel messaggio
> news:bemevf$6q0t4$1...@ID-71483.news.uni-berlin.de...
> > Ciao a tutti.
> >[CUT]
> > sesso        fumo (si)        diabete (si)   totali
> > M             172               167              300
> > F              189               127              350
> >
> > o di quest'altro tipo (ma a questo punto è ovvio)
> > sesso        fumo (si)      diabete (si)
> > M             57%            55%
> > F              54%            36%
> >
> >
> > Grazie a tutti
> > Bye
> > giaconet
> >
> >
>
> Ciao giaconet
> Sì è una query a campi incrociati ma è più semplice eseguire il Pivot
> manualmente.
> -----------------
> SELECT
>   Sesso,
>   SUM(IIF(Fumo,1,0)) AS [Fumo (si)],
>   SUM(IIF(Diabete,1,0)) AS [Diabete (si)],
>   [Fumo (si)]+[Diabete (si)] AS Totali
> FROM Salute
> GROUP BY Sesso
Grazie.
Geniale al Somma sull'inline if.
Per totali intendevo i totali per sesso e non la somma di quelli affetti
da fumo e diabete, ma è stato semplice ottenerli.
Bye
giaconet


title: Somma Colonna ORE

author: mauro

text:
Con questa escpressione faccio un calcolo fra date e funziona
perfettamente..
Espr1: "" &
(Int(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)) &
"ore" &
Int(((DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)-(Int
(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)))*60) &
"min"
Ora vorrei fare la somma della colonna delle ore lavorate.
Chi mi da una mano ??
Grazie


title: Somma Colonna ORE

author: yQy

text:


Espr2: Somma([Espr1])


title: Somma Colonna ORE

text:
"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:hp299v4qa706k4lup...@4ax.com...

Grazie ma nell'inserire nella query la stringa, alla sua esecuzione mi
restituisce un errore. - IMPOSSIBILE ESEGUIRE UNA QUERY CHE NON INCLUDE
L'ESPRESSIONE "NUMERO" SPECIFICATA COME PARTE DI UNA FUNZIONE DI
AGGREGAZIONE.
Un campo NUMERO è nelle tabelle.
Come mai ?


title: Somma Colonna ORE

author: Roberto da casa

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:Hn%ka.81779$Jg1.1...@news1.tin.it...

Prova a crearti un campo calcolato in questa maniera:
OreLavorate: ([Presenze_Uscita.ORA] - [Presenze_Ingresso.ORA]) * 24
e poi fai il totale di tale campo calcolato; certo non poi fare la somma del
campo calcolato Espr1 che è un campo di tipo Testo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Somma Colonna ORE

author: Mauro

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<Wqbla.24300$
DT4.7...@twister1.libero.it
>...
> "mauro" <
maur...@email.it
> ha scritto nel messaggio
> news:Hn%ka.81779$Jg1.1...@news1.tin.it...
> > Con questa escpressione faccio un calcolo fra date e funziona
> > perfettamente..
> > Espr1: "" &
> > (Int(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)) &
> > "ore" &
> >
>  Int(((DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)-(Int
> > (DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)))*60) &
> > "min"
> >
> > Ora vorrei fare la somma della colonna delle ore lavorate.
> >
> > Chi mi da una mano ??
> >
> > Grazie
>
> Prova a crearti un campo calcolato in questa maniera:
>
> OreLavorate: ([Presenze_Uscita.ORA] - [Presenze_Ingresso.ORA]) * 24
>
> e poi fai il totale di tale campo calcolato; certo non poi fare la somma del
> campo calcolato Espr1 che č un campo di tipo Testo.
Grazie Roby, ma non mi restituisce il risultato sperato. Ora ho la
colonna in formato numerico ma la somma non la fa.
La stringa la metto nel campo nella maschera o nella query ?
Grazie... Ricorda che sono proprio agli inizi...
Ciao


title: Somma Colonna ORE

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.03041...@posting.google.com...
> "Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:<Wqbla.24300$
DT4.7...@twister1.libero.it
>...
> > "mauro" <
maur...@email.it
> ha scritto nel messaggio
> > news:Hn%ka.81779$Jg1.1...@news1.tin.it...
> > > Con questa escpressione faccio un calcolo fra date e funziona
> > > perfettamente..
> > > Espr1: "" &
> > >
(Int(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)) &
> > > "ore" &
> > >
> >
Int(((DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)-(Int
> > >
(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)))*60) &
> > > "min"
> > >
> > > Ora vorrei fare la somma della colonna delle ore lavorate.
> > >
> > > Chi mi da una mano ??
> > >
> > > Grazie
> >
> > Prova a crearti un campo calcolato in questa maniera:
> >
> > OreLavorate: ([Presenze_Uscita.ORA] - [Presenze_Ingresso.ORA]) * 24
> >
> > e poi fai il totale di tale campo calcolato; certo non poi fare la somma
del
> > campo calcolato Espr1 che è un campo di tipo Testo.
>
> Grazie Roby, ma non mi restituisce il risultato sperato. Ora ho la
> colonna in formato numerico ma la somma non la fa.
Cosa hai fatto per fargli fare la domma del campo calcolato della query?
> La stringa la metto nel campo nella maschera o nella query ?
Se alludi dove devi scrivera il codice per fargli fare la somma, io lo
scriverei nell'origine controllo di una casella di testo non associata della
maschera e per fare la somma userei una funzione DSum (vedi help).
> Grazie... Ricorda che sono proprio agli inizi...
> Ciao
--



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<xTlla.26693$
iy5.7...@twister2.libero.it
>...

Ho fatto come dici, pero' il numero che mi restituisce non è una somma
della casella, praticamente se mi sposto sui campi delle ore mentre le
viaualizzo, il valore che dovrebbe essere la somma mi cambia.
Aggiustami ROBBBBY
Grazie


title: Somma Colonna ORE

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.03041...@posting.google.com...
[CUT]
>
> Ho fatto come dici, pero' il numero che mi restituisce non è una somma
> della casella, praticamente se mi sposto sui campi delle ore mentre le
> viaualizzo, il valore che dovrebbe essere la somma mi cambia.
> Aggiustami ROBBBBY
>
> Grazie
Potrei anche provare ad "aggiustarti", ma tu dovresti dire cosa vuoi fare di
preciso (con queries e/o con maschere) e dovresti anche dire quali sono le
strutture delle tabelle che usi (per ora ho solo capito che hai due tabelle
chiamate Presenze_Ingresso e Presenze_Uscita e che ambedue contengon un
campo Data/ora chiamato ORA).



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<T5zla.27954$
DT4.8...@twister1.libero.it
>...
> "Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
> news:dadb67f6.03041...@posting.google.com...
> [CUT]
> >
> > Ho fatto come dici, pero' il numero che mi restituisce non č una somma
> > della casella, praticamente se mi sposto sui campi delle ore mentre le
> > viaualizzo, il valore che dovrebbe essere la somma mi cambia.
> > Aggiustami ROBBBBY
> >
> > Grazie
>
> Potrei anche provare ad "aggiustarti", ma tu dovresti dire cosa vuoi fare di
> preciso (con queries e/o con maschere) e dovresti anche dire quali sono le
> strutture delle tabelle che usi (per ora ho solo capito che hai due tabelle
> chiamate Presenze_Ingresso e Presenze_Uscita e che ambedue contengon un
> campo Data/ora chiamato ORA).
Esatto.
Il problemino č questo, visto che hai deciso di "Aggiustarmi"
Le tabelle sono 2 NOMINATIVI e PRESENZE la relazione tra le due č
l'ID, la tabella PRESENZE invece č strutturata cosě:
NUMERO	    DATA	ORA	I-U
000001	10/04/2003	09:01	 I
La query mi permette di vedere il nominativo legato al codice 000001 e
i giorni che č stato presente (DATA) e l'ora (ORA) di ingresso (I) e
l'ora (ORA) di uscita (U), a questo punto ho delle righe con DATA -
ORA - I - U  piů la formula _ Espr1: "" &
(Int(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60))
& "." & Int(((DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)-(Int(DateDiff("n";[Presenze_Ingresso.ORA];[Presenze_Uscita.ORA];2)/60)))*60)_
 che mi restituisce il calcolo delle ore lavorate, e fin qui' OK, ora
il mio problema č calcolare quante ore ha lavorato il nominativo nelle
date prese in esame.  Se poi ci metto anche un importo il calcolo
varrebbe anche lě,  diaciamo che per ora non avrei il problema
dell'accavallamento del giorno.
Ti ringrazio tantissimo ROBbBy
Ciao


title: Somma Colonna ORE

text:

Scusami ma continuo a non capirci niente; se le tabelle sono due e si
chiamano rispettivamente NOMINATIVI e PRESENZE, che sono allora le tabelle
Presenze_Ingresso e Presenze_Uscita che usi nel determinare il campo
calcolato  Espr1?
Sarebbe bene che dicessi ESATTAMENTE quante e quali siano le tabelle.
Inoltre se provi a postare il codice SQL completo della query che usi
proverň a capirci qualcosa di piů.



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<MoRla.30246$
DT4.8...@twister1.libero.it
>...

Scusami, sono delle query, in una tiro fuori le I di ingresso con
l'ora e nell'altra le U di uscita con l'ora, legate al codice del
nominativo.
> Sarebbe bene che dicessi ESATTAMENTE quante e quali siano le tabelle.
> Inoltre se provi a postare il codice SQL completo della query che usi
> proverň a capirci qualcosa di piů.
Magari posso inviarti il tutto via e-mail se preferisci ?
Grazie ancora


title: Somma Colonna ORE

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.03041...@posting.google.com...
[CUT]
> Magari posso inviarti il tutto via e-mail se preferisci ?
>
> Grazie ancora
No, č contro le regole del NG: non dialogo su Access in privato.



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:_lXla.31572$iy5.9...@twister2.libero.it...

Quindi come procedo ?


title: Somma Colonna ORE

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:T2_la.5499$LB6.1...@news1.tin.it...

Se ritieni opportuno continuare la chiacchierata dovresti fare ciň che ti ho
scritto nel mio messaggio del 12/4/2003 ore 11:55 .



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:NCama.32937$iy5.9...@twister2.libero.it...
>
> "mauro" <
maur...@email.it
> ha scritto nel messaggio
> news:T2_la.5499$LB6.1...@news1.tin.it...
> >
> > "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> > news:_lXla.31572$iy5.9...@twister2.libero.it...
> > >
> > > "Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
> > > news:dadb67f6.03041...@posting.google.com...
> > > [CUT]
> > > > Magari posso inviarti il tutto via e-mail se preferisci ?
> > > >
> > > > Grazie ancora
> > >
> > > No, è contro le regole del NG: non dialogo su Access in privato.
> > >
> > > --
> > > Roberto
> > >
> > > ---------------------------------------------
> > > il Sito Comune di it.comp.appl.access:
> > >
http://www.sitocomune.com
> > > ---------------------------------------------
> > >
> > >
> >
> > Quindi come procedo ?
>
> Se ritieni opportuno continuare la chiacchierata dovresti fare ciò che ti
ho
> scritto nel mio messaggio del 12/4/2003 ore 11:55 .
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Certo caro Roberto, in quella ti dicevo appunto la necessità che ho.
Infatti ti spiegavo delle query, magari se rileggi il post spiegavo come ho
strutturato il db.
Grazie


title: Somma Colonna ORE

text:
Ecco un esempio piu' dettagliato  delle tabelle:
CODICE    tipo  00001
NOME       tipo   ANTONIO BRAMBILLA
e una tabella PRESENZE con i 4 campi
CODICE
DATA
ORA
IN_OUT
La tabella PRESENZE contiene dei record come segue:
00001    -  01/04/03   - 08.00  -  I
00001    -  01/04/03   - 11.00  -  U
00001    -  01/04/03   - 11.30  -  I
00001    -  01/04/03   - 15.00  -  U
00001    -  01/04/03   - 15.25  -  I
00001    -  01/04/03   - 17.00  -  U
00002    -  01/04/03   - 10.00  -  I
00002    -  01/04/03   - 18.00  -  U
Ora devo calcolare il tempo di effettiva presenza del codice 00001 tra gli I
(Ingressi) ed U (Uscite) dello stesso giorno.
Grazie Roberto....


title: Somma Colonna ORE

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:8Aima.9310$LB6.2...@news1.tin.it...

Se la tabella PRESENZE ha la seguente struttura:
ID                Contatore e chiave primaria
CODICE      Testo
DATA          Data/ora
ORA            Data/ora
IN_OUT      Testo
Io mi creerei una tabella chiamata OrePresenza che abbia la seguente
struttura:
ID                    Contatore e chiave primaria
CODICE         Testo
DATA             Data/Ora
OrePresenza    Data/Ora
e nella quale andrei a registrare il risultato che ti serve tramite il
seguente codice VBA:
Dim rst As DAO.Recordset
Dim rstU As DAO.Recordset
Dim Deposito As String
Dim DepCodice As String
Dim DepData As Date
Dim Entrata As Date
Dim OrePresenza As Date
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM OrePresenza;"
DoCmd.SetWarnings True
OrePresenza = #12:00:00 AM#
Deposito = ""
DepCodice = ""
DepData = #12:00:00 AM#
Entrata = #12:00:00 AM#
Set rst = CurrentDb().OpenRecordset("SELECT * " & _
"FROM PRESENZE ORDER BY CODICE,DATA, " & _
"ORA, IN_OUT;")
Set rstU = CurrentDb().OpenRecordset("OrePresenza")
rst.MoveFirst
Do Until rst.EOF
    If Deposito <> "" Then
        If Deposito <> rst!CODICE & _
        Format(rst!DATA, "yyyymmdd") Then
            rstU.AddNew
            rstU!CODICE = DepCodice
            rstU!Data = DepData
            rstU!OrePresenza = OrePresenza
            rstU.Update
            OrePresenza = #12:00:00 AM#
            Entrata = #12:00:00 AM#
        End If
    End If
    DepCodice = rst!CODICE
    DepData = rst!Data
    Deposito = rst!CODICE & Format(rst!Data, _
    "yyyymmdd")
    If rst!IN_OUT = "I" Then
        Entrata = rst!ORA
    Else
        If Entrata <> #12:00:00 AM# Then
            OrePresenza = OrePresenza + _
            (rst!ORA - Entrata)
        End If
        Entrata = #12:00:00 AM#
    End If
    rst.MoveNext
Loop
rstU.AddNew
rstU!CODICE = DepCodice
rstU!Data = DepData
rstU!OrePresenza = OrePresenza
rstU.Update
Set rst = Nothing



title: Somma Colonna ORE

text:
Naturalmente ho fatto in modo di non considerare i record I non seguiti da
un record U e i record U non preceduti da un record I con lo stesso CODICE e
per la stessa DATA.



title: Somma Colonna ORE

author: Simone

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:d_zma.36762$iy5.1...@twister2.libero.it...

Caro Roberto, mi sembra di aver fatto come indicato da te,  ma mi manca
ancoira qualcosa,  non riesco a capire in che punto mettere il codice
descritto da te.
Ricorda che sono quasi a zero su queste cose,  come posso fare ?


title: Somma Colonna ORE

text:
"Simone" <
simone...@libero.it
> ha scritto nel messaggio
news:stYma.25445$T34.7...@news2.tin.it...
[CUT]
> >
> >
> Caro Roberto, mi sembra di aver fatto come indicato da te,  ma mi manca
> ancoira qualcosa,  non riesco a capire in che punto mettere il codice
> descritto da te.
Riporto qui di seguito ciň che hai scritto nel tuo primo messaggio del
thread:
"Ora vorrei fare la somma della colonna delle ore lavorate."
Ebbene, genera il codice VBA che ti ho consigliato a fronte dell'evento che
si genera o andrai a generare al momento che vuoi effettuare tale somma.
Ad esempio se vuoi generare la somma pigiando un pulsante di comando, il
codice VBA lo genererai a fronte dell'evento "Su clic" del pulsante di
comando.
Non saprei cosa dirti d'altro: il database ce lo hai in mano tu, e tu sai
come č fatto e dove inserire le azioni e quando eseguirle.
> Ricorda che sono quasi a zero su queste cose,  come posso fare ?
Tu hai chiesto come effettuare la somma delle ore lavorate partendo da una
tabella che contiene gli orari di timbratura di un cartellino presenze e io
ti ho indicato come farlo.
Cosa pensi che ora io debba fare per aiutarti piů di cosě?



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<d_zma.36762$
iy5.1...@twister2.libero.it
>...

Ho inserito il codice VBA solo che in fase di esecuzione mi
restituisce l'  "errore di compilazione tipo definito dall'utente non
definito" e si evidenzia  "rst As DAO.Recordset"
?
Grazie RobbbbY


title: Somma Colonna ORE

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.03041...@posting.google.com...
[CUT]
>
>
> Ho inserito il codice VBA solo che in fase di esecuzione mi
> restituisce l'  "errore di compilazione tipo definito dall'utente non
> definito" e si evidenzia  "rst As DAO.Recordset"
> ?
> Grazie RobbbbY
Il codice VBA che ti ho suggerito fa riferimento alla libreria Microsoft DAO
quindi, se usi una versione di Access successiva ad Access 97, devi
aggiungere al tuo database i riferimenti a tale libreria.



title: Somma Colonna ORE

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<UQvna.46014$
iy5.1...@twister2.libero.it
>...
> "Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
> news:dadb67f6.03041...@posting.google.com...
> [CUT]
> >
> >
> > Ho inserito il codice VBA solo che in fase di esecuzione mi
> > restituisce l'  "errore di compilazione tipo definito dall'utente non
> > definito" e si evidenzia  "rst As DAO.Recordset"
> > ?
> > Grazie RobbbbY
>
> Il codice VBA che ti ho suggerito fa riferimento alla libreria Microsoft DAO
> quindi, se usi una versione di Access successiva ad Access 97, devi
> aggiungere al tuo database i riferimenti a tale libreria.
Grazie, come si chiama tale libreria ?
Intanto ho evitato l'esecuzione delle righe e sembra che funge.