text:

ciao Alex e grazie,
il report ora funziona.

Per quanto riguarda la sottomaschera
su apertura della stessa ho inserito:

    If givemenamecontrol = "Report A" Then
        strSQL = "SELECT " _
          & "IdEmailFornitore, " _
          & "IdFornitore, " _
          & "EmailFornitore, " _
          & "Invio_a As InvioDoc, " _
          & "InvA " _
          & "FROM TbEmailFornitori " _
          & "ORDER BY EmailFornitore"
        Me.RecordSource = strSQL
    Else
        strSQL = "SELECT " _
          & "IdEmailFornitore, " _
          & "IdFornitore, " _
          & "EmailFornitore, " _
          & "Invio_b As InvioDoc, " _
          & "InvA1 As InvA " _
          & "FROM TbEmailFornitori " _
          & "ORDER BY EmailFornitore"
        Me.RecordSource = strSQL

    End If


title: Dare ad una casella di testo il valore di un'altra

text:
Salve a tutti.
Ho messo un pulsante in una sottomaschera. Quando lo premo si apre una
finestra di inserimento record in tale sottomaschera. Per assegnare il nuovo
record devo fare in modo che in una casella di controllo della maschera di
inserimento, venga riportato l'IDRecord presente nella maschera che accoglie
la sottomaschera. Spero di non far ridere nessuno ma io ho provato cosě:
Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "InserModifica"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , , acNewRec
    Me![IDRicetta] = Forms![M_Ricette Bagnato]![IDRicetta]
Exit_Comando31_Click:
    Exit Sub
Err_Comando31_Click:
    MsgBox Err.Description
    Resume Exit_Comando31_Click
End Sub
Ovviamente io ci ho aggiunto
Me![IDRicetta] = Forms![M_Ricette Bagnato]![IDRicetta]
e ovviamente non funziona.
Mi dice "Impossibile assegnare un valore all'oggetto.".
Me![IDRicetta] č la maschera di inserimento e M_Ricette Bagnato č la
maschera che contiene la sottomaschera.
Vorrei vedere la sintassi corretta. Vediamo se riesco a capire.
Grazie
Ciao
Stefano


author: sv

text:
r4gtl ha scritto:





> End Sub

Basta mettere Forms![M_Ricette Bagnato]![IDRicetta] come valore
predefinito del controllo "IDRicetta".
Il problema č che quando tu scrivi
.
.
DoCmd.GoToRecord , , acNewRec
.
.
il record ancora non č stato creato.
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Davide Leonardi

text:
"Me" non č la maschera di inserimento, ma la sottomaschera su cui si trova
il pulsante Comando31
Invece di  Me![IDRicetta] prova a scrivere Forms(stDocName).Form![IDRicetta]
"r4gtl" <
stefa...@interfree.it
> ha scritto nel messaggio
news:44ad2c7c$0$3115$4faf...@reader1.news.tin.it...



title: Sequenza date

author: MarcoGi

text:
Avrei un piccolo problema: desidererei fare in modo che in una tabella il
campo Data2 (di tipo Data/Ora) non possa precedere il campo Data1.
Ho tentato varie formule nel riquadro “valido se” della tabella
corrispondente, ma il messaggio afferma che la sintassi SQL non è corretta.
Qualcuno sa se è possibile mantenere la corretta sequenzialità delle date e
in che modo?

Grazie
Marco


title: Sequenza date

author: Pablitomf

text:
MarcoGi <
magi...@tin.it
> ha scritto:

> Avrei un piccolo problema: desidererei fare in modo che in una tabella il
> campo Data2 (di tipo Data/Ora) non possa precedere il campo Data1.
> Ho tentato varie formule nel riquadro â  valido seâ   della tabella
> corrispondente, ma il messaggio afferma che la sintassi SQL non Ãš corretta.
> Qualcuno sa se Ãš possibile mantenere la corretta sequenzialitÃ  delle
date e
> in che modo?
>
> Grazie
> Marco

ti sei reso conto vero che ti sei spiegato con i piedi? cosa hai detto
nella tua richiesta?

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: Sequenza date

author: Karl Donaubauer

text:
MarcoGi wrote:
> Avrei un piccolo problema: ...

Vedi la mia risposta in mpioa.
I multupost non servono. Al massimo usa un crosspost.

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


title: Query per me impossibile, e per voi ?

author: pabel

text:
Salve, ho questo problema che devo cercare di risolvere.
Devo recuperare una infinità di dati da un file di excel, questo file è
composto da x colonne riguardanti l'anagrafica di molti donatori di sangue
questo file è cosi composto:
Nome
cognome
data nascita
via
città
ecc.
dataDonazione1
dataDonazione2
dataDonazione3
ecc.
di queste date donazione ce ne sono 50 colonne, per quanto riguarda
l'importazione, non ci sono problemi, visto che per gestire tutto questo mi
servono due tabelle, una per l'anagrafica donatori e una per le donazioni,
il problema diventa per me difficile o addirittura impossibile nel momento
che tento di creare un query di creazione tabelle o di accodamento o a campi
incrociati, non so quale pesce pigliare, qualcuno mi indicherebbe quale è la
strada giusta, o devo crearmi la tabella (donazioni) e trascrivere tutti i
dati delle donazioni manualmente per ogni cliente ?
Ringrazio tutti voi per il vostro come sempre indispensabile aiuto.
Pabel


title: Query per me impossibile, e per voi ?

author: MA

text:
Anche per me.
Che razza di subject.
MAssimiliano


title: Query per me impossibile, e per voi ?

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:wsIUb.4014$HO2....@news.edisontel.com...
> Anche per me.
> Che razza di subject.
> MAssimiliano
>
>
Va bene il subject non sarą di tuo gradimento, ma almeno dimmi se hai capito
il mio problema e se č possibile fare qualcosa.
Pabel


title: Query per me impossibile, e per voi ?

text:
"pabel" <
gio...@hotmail.com
> ha scritto nel messaggio
news:oPIUb.263407$_P.90...@news4.tin.it...
>
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:wsIUb.4014$HO2....@news.edisontel.com...
> > Anche per me.
> > Che razza di subject.
> > MAssimiliano
> >
> >
> Va bene il subject non sarà di tuo gradimento,
Non è un problema mio, ma dell'intero Ng ed è condicio sine qua non
per la discussione sul Ng.
Riposta con un subject significativo e non è un mio capriccio, credimi
MAssimiliano


title: Query per me impossibile, e per voi ?

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:H2JUb.4027$HO2....@news.edisontel.com...

Allora io le regole di Roberto da casa le ho lette e rilette, ma a quanto
pare non riesco a capirle, quindi ti chiedo due cose:
1 cosa avresti scritto tu nel subject ?
2 Il mio problema, cosa per me più importante , si è capito, è quindi
risolvibile, o tu sei solo specializzato nelle regole ?
Pabel


title: Query per me impossibile, e per voi ?

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:wsIUb.4014$HO2....@news.edisontel.com...
> Anche per me.
> Che razza di subject.
> MAssimiliano
>
>
Va bene il subject non č di tuo gradimento, ma almeno dimmi se hai capito il



title: Query per me impossibile, e per voi ?

text:
> > Anche per me.
> > Che razza di subject.
> > MAssimiliano
> >
> >
> Va bene il subject non è di tuo gradimento, ma almeno dimmi se hai capito
il
> mio problema e se è possibile fare qualcosa.
> Pabel
Per quanto mi riguarda, non va bene
MAssimiliano


title: Query per me impossibile, e per voi ?

author: Alessandro Cara

text:

che ne diresti di "importazione file excel" oppure "estrazione valori da file
excel" oppure....  me ne vengono in mente almeno una decina.
Rispondendo alla domanda. Per me e' possibile, non la query, ma risolvere il
problema. ;<)
--
a.cara
Togli qualcosa dall'email


title: pulsanti con testo e immagine

author: massimiliano

text:
E' possibile creare dei pulsanti con testo e immagini?
Grazie a tutti!!
--------------------------------
Inviato via
http://usenet.libero.it


title: pulsanti con testo e immagine

author: Roberto da casa

text:
"massimiliano" <
massimo...@operamail.com
> ha scritto nel messaggio
news:195Z43Z173Z186Y...@usenet.libero.it...
> E' possibile creare dei pulsanti con testo e immagini?
>
> Grazie a tutti!!
Creati un file immagine .bmt che abbia le dimensioni del tuo pulsante di
comando e che contenga l'immagine ed il testo desiderati, quidi scrivi il
percorso completo del file .bmt nella proprietą Immagine del pulsante di
comando ed imposta ad Incorporata la proprietą Tipo immagine.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Richiesta aiuto

author: Sc.El. Riese Pio X

text:
Salve, sto annaspando in access per costruire un registro automatizzato per
gli insegnanti della mia scuola (elementare).
All'inserimento delle valutazioni delle varie prove in un campo vado a
visualizzare la percentuale di risposte esatte e fin qui tutto bene, ma ho
bisogno di un ulteriore campo che interagendo con il campo percentuale mi
visualizzi le valutazioni come NON SUFF. - SUFF. - BUONO - DIST. - OTTIMO.
Chi mi aiuta?
(sono ai "primi passi") Grazie.


title: Richiesta aiuto

author: All Eyez On Me

text:
Sc.El. Riese Pio X <ri...@NOSPAMlibero.it> wrote in message
iqtF7.18684$sq5.9...@news.infostrada.it...

Studiati la funzione iif che ti permettera di assegnare al tuo campo un
valore in base al risulato di alti campi
es: iif([percentuale]>60;[responso]="suff";[responso]="insuff")
AEOM


title: Richiesta aiuto

text:
Ti ringrazio, vado a cercarmi informazioni sulla funzione.
Alberto.
All Eyez On Me <
fish...@tiscalinet.it
> wrote in message
9s5qvo$jbq$1...@pegasus.tiscalinet.it...



title: Richiesta aiuto

author: Antonio Biso

text:
Sc.El. Riese Pio X <ri...@NOSPAMlibero.it> wrote in message
muvF7.19284$sq5.9...@news.infostrada.it...
> Ti ringrazio, vado a cercarmi informazioni sulla funzione.
> Alberto.
Vai a cercarti anche informazioni su come si quota correttamente!!!
Antonio


title: Richiesta aiuto

author: Clan degli A.

text:
>Vai a cercarti anche informazioni su come si quota correttamente!!!
>Antonio
Ma č solo un povero pollastro!!
--------------------------------
Inviato via
http://usenet.iol.it


title: Verificare se un report è stato stampato.

author: Ceschetti

text:
Ho il seguente problema:
apro un report in anteprima per visualizzarlo, poi volendo posso anche
stamparlo.
Nel caso che lo stampassi vorrei che quando chiudo il report mi si attivi
una routine per salvare su di una tabella i dati principali del report
appena stampato.
La routine per salvare i dati l'ho fatta, ma non so come verificare se è
stata avviata la stampa del report.
Esiste un controllo tale?
Grazie.
MH


author: Salvatore

text:
"Ceschetti" <
M...@libero.it
> ha scritto nel messaggio
news:sw_Eb.203478$e6.76...@twister2.libero.it...

C'è l'evento su stampa, ma il problema è che si verifica prima della stampa
e dell'anteprima di stampa. Potresti però far partire, con un comando da una
maschera, prima la stampa e subito dopo la tua routine.
Ciao
Salvatore


author: ALESSANDRO Baraldi

text:
"Ceschetti" <
M...@libero.it
> ha scritto nel messaggio
news:sw_Eb.203478$e6.76...@twister2.libero.it...

Non credo, ma puoi eliminare i menù predefiniti e utilizzando un MenùPopup
personalizzato non fai altro che inserire la tua Routine prima o dopo la
chiusura del
Report o la Stampa o quello che vuoi.
Chiaramente se usi una versione >97 puoi eliminare il Pulsante di chiusura e
gestirla
sempre dal Popup(menu di scelta Rapida per capirci ma personalizzato).
Ciao.
@Alex.


text:
Grazie dei suggerimenti.
Ho adottato questa tecnica. Faccio aprire il report in modalità "PopUp",
eliminando così la possibilità di effettuare una stampa da pulsante.
Faccio comparire contestualmente una finestra di messaggio dove chiedo se il
report va stampato o meno. A quel punto se si pigia "si" stampo il report e
avvio la procedura per salvare i dati in tabella.
Ciao.
MH
"Ceschetti" <
M...@libero.it
> ha scritto nel messaggio
news:sw_Eb.203478$e6.76...@twister2.libero.it...



title: PDFCreator

author: Femto

text:
Ciao Ng, ho utilizzato l'esempio presente nel sito comune per l'utilizzo del
programma in oggetto e funziona a meraviglia, ora copio il file access in un
altro pc, dove ho installato il prg in oggetto...fin qui nulla di
strano...ora provo a stampare sul pc2, chiamiamolo cosě, e mi da un errore
di compilazione sulla seguente riga presente nel modulo modulocreapdf:
Dim tmpPrinter As Printer
mi dice tipo non definito....
qualche idea?
Grazie
Femto


title: PDFCreator

text:

Versione di Access < XP --> niente oggetto Printer?
v.a.
www.donkarl.com/it
 FAQ 5.1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: PDFCreator

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3g0o4cF...@individual.net...

...ciao...uso la versione Xp di Access
Femto


title: Re: ricerca in più campi

author: sbariabilo

text:
Per  Bruno: ti ho mandato  il mio indirizzo email, ciao sbariabilo.
--
sbariabilo
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-767682.html
Inviato via
http://www.itsistemi.net


title: Re: ricerca in più campi

text:
Come si fà la ricerca di un record o più record testo in più campi diversi?
e in più aggiungere un opzione, cerca per:(A,oppureB?)
Grazie anticipatamente a chi mi risponde.
--
sbariabilo
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-769025.html
Inviato via
http://www.itsistemi.net


title: Re: ricerca in più campi

author: Bruno Campanini

text:
"sbariabilo" <
sbariabi...@no-mx.itsistemi.net
> wrote in message
news:sbariabi...@no-mx.itsistemi.net...
>
> Per  Bruno: ti ho mandato  il mio indirizzo email, ciao sbariabilo.
Ma io non l'ho ricevuto.
Č corretto
massimil...@libero.it
?
Ciao
Bruno


title: Re: ricerca in più campi

text:
Sarei grato se qualcuno mi sa dare questa indicazione si può cercare lo stesso testo in più campi? grazie
--
sbariabilo
------------------------------------------------------------------------



title: Re: ricerca in più campi

text:
Bruno ti ho inviato la mia mail non l'hai ricevuta?
se puoi manadare la soluzione al mio problema te ne sarei grato .
Paolo



title: Re: ricerca in più campi

text:
"sbariabilo" <
sbariabi...@no-mx.itsistemi.net
> wrote in message
news:sbariabi...@no-mx.itsistemi.net...
>
> Bruno ti ho inviato la mia mail non l'hai ricevuta?
> se puoi manadare la soluzione al mio problema te ne sarei grato .
> Paolo
>
>
> --
> sbariabilo
Continuo a non ricevere nulla.
Ma puoi darmelo qui il tuo indirizzo.
Bruno


title: Re: ricerca in più campi

text:
"sbariabilo" <
sbariabi...@no-mx.itsistemi.net
> wrote in message
news:sbariabi...@no-mx.itsistemi.net...
>
> Sarei grato se qualcuno mi sa dare questa indicazione si può cercare lo
> stesso testo in più campi? grazie
>
>
> --
> sbariabilo
Se devi cercare su tutti i campi della tabella
TextTable la stringa "Bruno":
--------------------------------------------
Private Sub Command14_Click()
Dim db As Database, RS As Recordset
Dim TDef As TableDef, i
Set db = CurrentDb
Set RS = db.OpenRecordset("TextTable")
Set TDef = db.TableDefs("TextTable")
Do Until RS.EOF
    For Each i In TDef.Fields
        If RS(i.Name) = "Bruno" Then
            MsgBox i.Name
        End If
    Next
    RS.MoveNext
Loop
End Sub
----------------------------------------------
Ciao
Bruno


title: Re: ricerca in più campi

text:
Bruno postami perchè forse non ho capito il tuo indirizzo
sbaria...@yahoo.it



title: Re: ricerca in più campi

text:
E una buona routine ma deve essere molto modificata.



title: Re: ricerca in più campi

text:
Bruno, per il momento sono riuscito a modificare la routin in modo che mi chiede di inserire con un inputbox il numero("che ho inserito come testo per semplificare le cose") che io cerco.
Ora questa routine mi dice con un msgbox solo in quali campi  č il numero che io cerco
e vuole ogni volta OK quindi al posto del msgbox di risposta e possibile avere il risultato in una query?
'Se devi cercare su tutti i campi della tabella
'TextTable la stringa "Bruno":
Dim db As Database, RS As Recordset
Dim TDef As TableDef, i
Dim st As String
Set db = CurrentDb
Set RS = db.OpenRecordset("Archivio estrazioni")
Set TDef = db.TableDefs("Archivio estrazioni")
st = InputBox("inserisci numero da cercare")
If st = "" Then
Exit Sub
Else
Do Until RS.EOF
For Each i In TDef.Fields
If RS(i.Name) = st Then
MsgBox i.Name
End If
Next
RS.MoveNext
Loop
End If
End Sub



title: Re: ricerca in più campi

text:
"sbariabilo" <
sbariabi...@no-mx.itsistemi.net
> wrote in message
news:sbariabi...@no-mx.itsistemi.net...
> Bruno, per il momento sono riuscito a modificare la routin in modo che mi
> chiede di inserire con un inputbox il numero("che ho inserito come testo
> per semplificare le cose") che io cerco.
> Ora questa routine mi dice con un msgbox solo in quali campi  č il numero
> che io cerco
> e vuole ogni volta OK quindi al posto del msgbox di risposta e possibile
> avere il risultato in una query?
Guarda un po' se questa puņ andare.
L'esito della ricerca viene salvato in una tabella
avente campi corrispondenti.
================================
Private Sub RicercaPerCampi_Click()
'
' Bruno Campanini    08-02-06    Access 2003
' db2.mdb, Form: Form4, Button: Ricerca per Campi
'
' La tabella NumTable ha N campi numerici
' denominati Num1, Num2, ... NumN.
' La tabella NumTable_Ricerca ha N+1 campi numerici
' denominati Position, Num1, Num2, ... NumN.
' La procedura riporta in NumTable_Ricerca (nei record
' e nei campi corrispondenti) l'esito
' della ricerca su NumTable.
'
Dim db As Database, RS As Recordset, RS_1 As Recordset
Dim i As Field, TDef As TableDef
Dim Scelta As String
Dim j As Long, k As Integer, FoundItem As Boolean
Set db = CurrentDb
Set RS = db.OpenRecordset("NumTable")
Set RS_1 = db.OpenRecordset("NumTable_Ricerca")
Set TDef = db.TableDefs("NumTable")
Scelta = InputBox("Numero da ricercare")
If Not IsNumeric(Scelta) Then
    Exit Sub
End If
db.Execute "DELETE NumTable_Ricerca.* " & _
           "FROM NumTable_Ricerca;"
Do Until RS.EOF
    j = j + 1
    k = 0
    For Each i In TDef.Fields
        k = k + 1
        If RS(i.Name) = Scelta Then
            If Not FoundItem Then
                RS_1.AddNew
                FoundItem = True
            Else
                RS_1.MoveLast
                RS_1.Edit
            End If
            RS_1("Position") = j
            RS_1("Num" & k) = Scelta
            RS_1.Update
        End If
    Next
    FoundItem = False
    RS.MoveNext
Loop
End Sub
=============================
Ciao
Bruno


title: Re: ricerca in più campi

text:
Bruno la provo e ti farò sapere Grazie



title: if is null

author: francesco

text:
ho inserito su clic di un comando la seguente funzione:
If [casellacombinata123]is null then msgbox "il valore del campo è nullo",
vbinformation
DoCmd.Close acForm, "nomemaschera"
tuttavia la maschera si chiude e il msg box non compare in alcun modo. come
mai? ciao grazie
--------------------------------
Inviato via
http://usenet.libero.it


title: if is null

author: Neo

text:
"francesco" <
ga...@libero.it
> ha scritto nel messaggio
news:81Z72Z126Z200Y1...@usenet.libero.it...

la sintassi per l'utilizzo della funzione IsNull è:
if Isnull(casellacombinata123) then msgbox .....
docmd.close....
la maschera si chiude ugualmente perchè la chiusura è all'esterno del
comando If e viene comunque eseguito indipendentemente dall'esito del
controllo (if)
se vuoi che chiuda solo se il dato è nullo devi scrivere:
if isnull(casella) then
    msgobx "e......"
    docmd.close....
end if
se invece vuoi che si chiuda solo se il dato non è nullo
if isnull(casella) then
    msgbox..
else
    docmd.close
end if
ciao


title: if is null

text:
ho scritto sull'evento clic di un comando:
If IsNull([Testo133]) Then
    MsgBox "CAMPO 133 VUOTO", vbInformation
Else
    DoCmd.Close
End If
If MsgBox("VUOI USCIRE NONOSTANTE SIA VUOTO?", vbYesNo) = vbYes Then
    DoCmd.Close acForm, "ore lavorate anticipo"
End If
End Sub
EFFETTIVAMENTE MI COMPARE IL MESSAGGIO CAMPO133 VUOTO; MI COMPARE ANCHE VUOI
USCIRE UGUALMENTE? IL PROBLEMA E' CHE SE IL CAMPO 133 NON E' VUOTO IL
MESSAGGIO VUOI USCIRE UGUALMENTE MI COMPARE LO STESSO, A MASCHERA GIA'
CHIUSA, E CLICCANDO SIA SU SI CHE SU NO AVVIENE LA STESSA COSA IL MESSAGGIO
SI CHIUDE.
COME POSSO OVVIARE A QUESTO PROBLEMA? CIOE' IO VORREI CHE NELL'IPOTESI IN
CUI IL CAMPO 133 FOSSE NON NULL, CON UNA DATA INSERITA IL MESSAGGIO VUOI
USCIRE UGUALMENTE NON MI COMPARISSE. CIAO E GRAZIE



title: if is null

text:
"francesco" <
ga...@libero.it
> ha scritto nel messaggio
news:81Z72Z126Z200Y...@usenet.libero.it...
> ho scritto sull'evento clic di un comando:
>
> If IsNull([Testo133]) Then
>     MsgBox "CAMPO 133 VUOTO", vbInformation
> Else
>     DoCmd.Close
> End If
> If MsgBox("VUOI USCIRE NONOSTANTE SIA VUOTO?", vbYesNo) = vbYes Then
>     DoCmd.Close acForm, "ore lavorate anticipo"
> End If
>
> End Sub
>
> EFFETTIVAMENTE MI COMPARE IL MESSAGGIO CAMPO133 VUOTO; MI COMPARE ANCHE
VUOI
> USCIRE UGUALMENTE? IL PROBLEMA E' CHE SE IL CAMPO 133 NON E' VUOTO IL
Perchè stai strillando?!?!
NELL'IPOTESI IN
> CUI IL CAMPO 133 FOSSE NON NULL, CON UNA DATA INSERITA IL MESSAGGIO VUOI
> USCIRE UGUALMENTE NON MI COMPARISSE. CIAO E GRAZIE
If IsNull([Testo133]) Then
  MsgBox "CAMPO 133 VUOTO", vbInformation
  If MsgBox("VUOI USCIRE NONOSTANTE SIA VUOTO?", vbYesNo) = vbYes Then
     DoCmd.Close acForm, "ore lavorate anticipo"
  end if
Else
  DoCmd.Close
End If
Antonio


title: togliere messaggi di avviso

author: Claudia G

text:
Private Sub Form_Close()
    DoCmd.RunSQL "update Nominativi set data_call=now() where ID= " &
Me.ID_Nominativo  'aggiorna la data/ora nella tabella Nominativi
End Sub
come si fa ad annullare il messaggio di avviso dell'inserimento dei dati???
ogni volta che chiudo la mascera mi dice sempre se accettare l'inserimento
dei dati
io vorrei che per default accettasse
come faccio a togliere il messaggio???


title: togliere messaggi di avviso

author: All Eyez On me

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:bda2up$cps$1...@lacerta.tiscalinet.it...

prima del runsql metti docmd.setwaringings=false e dopo l'sql
docmd.setwaringings=true
ciao, AEOM


title: togliere messaggi di avviso

text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:2o0Ka.240563$g92.5...@news2.tin.it...

DoCmd.SetWarnings = False 'evita il messaggio di avviso
    DoCmd.RunSQL "update Nominativi set data_call=now() where ID= " &
Me.ID_Nominativo  'aggiorna la data/ora nella tabella Nominativi
    DoCmd.SetWarnings = True 'riabilita gli avvisi
mi da errore nella compilazione come mai???????
scusate ma postato nel messaggio sbagliato....


title: togliere messaggi di avviso

author: Massimo Tin

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:bda4t6$e1e$1...@lacerta.tiscalinet.it...

DoCmd.SetWarnings False
.....
DoCmd.SetWarnings True
senza =
ciao Max


title: togliere messaggi di avviso

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:bda4t6$e1e$1...@lacerta.tiscalinet.it...

togli = scusa, la fretta
Ciao, AEOM


title: togliere messaggi di avviso

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:bda4t6$e1e$1...@lacerta.tiscalinet.it...
>
> DoCmd.SetWarnings = False 'evita il messaggio di avviso
>     DoCmd.RunSQL "update Nominativi set data_call=now() where ID= " &
> Me.ID_Nominativo  'aggiorna la data/ora nella tabella Nominativi
>     DoCmd.SetWarnings = True 'riabilita gli avvisi
>
> mi da errore nella compilazione come mai???????
Claudia, cerca di utilizzare un po' anche l'help on line dove avresti
trovato la sintassi giusta del comando
Antonio


title: access. rete e identificazione utente

author: ced

text:
ho fatto (grazie anche al vostro aiuto) un programmino per la memorizzazione
di dati su access,
Il problema che ho adesso č che siccome i dati sono tanti, devo distribuire
il lavoro a piů utenti,
E' possibile inserire in ogni record un identificativo automatico , che sia
testo o numerico, indicante l'utente che immette i dati?
come si fa?  :-))((
e come mi regolo con il numero progressivo dei record che non devono essere
uguali
Vi ringrazio per le vostre sicure risposte elementari che mi darete.
grazie!


title: access. rete e identificazione utente

author: Lorenzo Coronati

text:
Scrisse "ced" <
onof...@tin.it
>:
>E' possibile inserire in ogni record un identificativo automatico , che sia
>testo o numerico, indicante l'utente che immette i dati?
Vedi currentuser sull'help
>e come mi regolo con il numero progressivo dei record che non devono essere
>uguali
ID contatore? Prova a spiegarti meglio.
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in
internet che sia in grado di recuperare le
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--


title: access. rete e identificazione utente

author: CED

text:
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3b333ff1...@news.libero.it...
> Scrisse "ced" <
onof...@tin.it
>:
> >E' possibile inserire in ogni record un identificativo automatico , che
sia
> >testo o numerico, indicante l'utente che immette i dati?
> Vedi currentuser sull'help
>
> >e come mi regolo con il numero progressivo dei record che non devono
essere
> >uguali
> ID contatore? Prova a spiegarti meglio.
non è un ID contatore ma un ID numerico incrementale univoco .
> --
> <<Ragazzi, sapete indicarmi una utility in
> internet che sia in grado di recuperare le
> password da un database access e da un system mdw?
> intendevo, gratuita...>>
no non ne conosco mi dispiace!
> --


title: access. rete e identificazione utente

text:
Scrisse "CED" <
onof...@tin.it
>:
>> >e come mi regolo con il numero progressivo dei record che non devono
>essere
>> >uguali
>> ID contatore? Prova a spiegarti meglio.
>
>non č un ID contatore ma un ID numerico incrementale univoco .
Hai gia' visto sul sito comune la faq su come gestire una
numerazione atuomatica?
Oppure ti stai ponendo il problema di assegnare un id in un
sistema multiutente concorrente?
>> --
>> <<Ragazzi, sapete indicarmi una utility in
>> internet che sia in grado di recuperare le
>> password da un database access e da un system mdw?
>> intendevo, gratuita...>>
>
>
>no non ne conosco mi dispiace!
ROTFL!


title: SITO COMUNE aggiornato

author: Luciano (DOC)

text:
La befana (non Biso, quella vera!:-) ha portato un dono agli accessisti, un
nuovo aggiornamento del SC.
Saluti.
Luciano
www.sitocomune.com
www.verynews.com


title: SITO COMUNE aggiornato

author: ciroteo

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> ha scritto nel messaggio
news:347cthF...@individual.net...

;-)


title: SITO COMUNE aggiornato

author: Rita

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> ha scritto nel messaggio
news:347cthF...@individual.net...

Grazie e buon anno Luciano
Ciao
Rita ?


title: SITO COMUNE aggiornato

author: giorgio

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> wrote in message
news:347cthF...@individual.net...

Sito fantastico per tutti, ma per i meno esperti sarebbe auspicabile la
proposizione degli esempi anche nel formato access 2000, ove non presenti,
in quanto la semplice conversione a volte crea degli errori che per un
"profano" rendono inusabile l'esempio stesso.
Anche se molto diffuso access 97 appartiene alla "preistoria
dell'informatica" e comunque non reperibile ad un nuovo utente di access.
ciao


title: SITO COMUNE aggiornato

author: Oscar Manfredini

text:
"giorgio" <
> Sito fantastico per tutti, ma per i meno esperti sarebbe auspicabile la
> proposizione degli esempi anche nel formato access 2000, ove non presenti,
> in quanto la semplice conversione a volte crea degli errori che per un
> "profano" rendono inusabile l'esempio stesso.
> Anche se molto diffuso access 97 appartiene alla "preistoria
> dell'informatica" e comunque non reperibile ad un nuovo utente di access.
Fai un esempio di conversione dalla realese '97 che genera errori.
Ciao.


title: SITO COMUNE aggiornato

text:
"giorgio" <
georgeNO-S...@libero.it
> ha scritto nel messaggio
news:347r1gF...@individual.net...
> Sito fantastico per tutti, ma per i meno esperti sarebbe auspicabile
Chi la vo' cotta e chi la vo cruda, si dice a roma.
C'e' chi si lamenta che il materiale e' troppo difficile e chi si lamenta
che e' troppo facile. In medio stat virtus, no?
Saluti.
Luciano


title: SITO COMUNE aggiornato

text:
"Rita" <
demo...@inwind.it
> ha scritto nel messaggio
news:EUxDd.19042$_E5.4...@twister2.libero.it...
> Grazie e buon anno Luciano
Buon anno a te!
> Rita ?
Dubbi di identita'?:-)
Saluti.
Luciano


title: SITO COMUNE aggiornato

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> wrote in message
news:347vcnF...@individual.net...

Accontentare tutti è impossibile.
Ciao


title: SITO COMUNE aggiornato

text:
"Oscar Manfredini" <XX...@Nospam.it> wrote in message
news:0TyDd.19182$_E5.4...@twister2.libero.it...

      Inserire un'icona nella SysTray di Windows e creare un Menů Popup
Runtime personalizzato con le API.
ciao


title: SITO COMUNE aggiornato

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> ha scritto nel messaggio
news:347vctF...@individual.net...

Ahaha sarebbe una fortuna! Scherzo...
M'è scappata una digitazione velox
Ciao
Rita


title: SITO COMUNE aggiornato

text:
"giorgio" <
>       Inserire un'icona nella SysTray di Windows e creare un Menù Popup
> Runtime personalizzato con le API.
Fallo presente all'autore: lo documenterà nelle note.
Io uso Access 'XP, ma penso sia più razionale pubblicare gli esempi sul S.C.
nel formato '97: il primo a 32 bit (quindi non preistorico) e ancora molto
diffuso.
Ciao.


title: SITO COMUNE aggiornato

author: access il top

text:
"giorgio" <
georgeNO-S...@libero.it
> ha scritto nel messaggio
news:34806bF...@individual.net...

secondo me è un sito fantastico.


title: SITO COMUNE aggiornato

text:
"access il top" <
negrinel...@yahoo.it
> wrote in message
news:41ded349$0$8207$5fc...@news.tiscali.it...

Siamo in due.  ;-)


title: SITO COMUNE aggiornato

author: Roberto da casa

text:
"giorgio" <
georgeNO-S...@libero.it
> ha scritto nel messaggio
news:347r1gF...@individual.net...
>

E gli uenti che continuano ad usare Access 97 che facciamo, li obblighiamo
ad acquistare l'upload?
In informatica è vero che tra le varie versioni di un prodotto esiste, entro
certi limiti,  la compatibilità ascendente ma non è vero il contrario,
quindi, nei limiti del possibile, si pubblicano gli esempi in Access 97.
Non capisco che prolemi tu abbia a convertirli: magari è ti dimentichi solo,
in certi casi, di aggiungere al database i riferimenti alla libreria DAO.
Se hai altri problemi raccontaceli.
>
> ciao
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: SITO COMUNE aggiornato

author: ALESSANDRO Baraldi

text:
> Sito fantastico per tutti, ma per i meno esperti sarebbe auspicabile la
> proposizione degli esempi anche nel formato access 2000, ove non presenti,
> in quanto la semplice conversione a volte crea degli errori che per un
> "profano" rendono inusabile l'esempio stesso.
> Anche se molto diffuso access 97 appartiene alla "preistoria
> dell'informatica" e comunque non reperibile ad un nuovo utente di access.
>
> ciao
Premetto che la versione A2K la usano solo 3 persone, o meglio 3
programmatori
per la valanga di BUGS e inaffidabilità che offre, e se proprio occorre fare
il
passo andrebbe fatto verso A_XP, ma allora i poveretti come me che usano
ancora
A97 non potrebbero fare un DownVersion, mentre chi come te ha versioni
superiori
con un minimo di conoscenza fanno tutto.
PROBLEMA:
Non sò se il Demo al quale ti riferisci sia mio, non hai datoun riferimento.
In ogni caso l'unica differenza che si ha tra A97 e A2k/AXP relativi alla
funzionalità
di inserire l'ICONA nella Try Bar è l'uso del SubClassing, che per A97 non
prevede
la funzione Nativa AddressOf che viene Emulata grazie alla Routine AddrOf
presente
nel modulo dedicato.
Quindi ti basta modificare la chiamata del SubClassing e tutto funziona.
Se specificavi meglio il DEMO ti davo già la riga da modificare.
Ciao.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: SITO COMUNE aggiornato

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> ha scritto nel messaggio
news:347cthF...@individual.net...

Ottimo incremento.
Ciao Luciano.



title: SITO COMUNE aggiornato

text:
"Roberto da casa" <
r.masso...@libero.it
> wrote in message
news:8_ADd.19862$H%6.80...@twister1.libero.it...

La mia non vuole essere una critica, ma soltanto un miglioramento.
La mia richiesta era solo di affiancare alla ver97 la ver00 in quanto più
compatibile con le altre versioni, xp e 03.
Chi ha bisogno dell'esempio forse non ha tutte le capacità o conoscenze per
fare le eventuali modifiche necessarie.
Chi acquista un pc oggi non trova in commercio che access 2003; con questo,
chi ha già una versione di access non "deve" essere obbligato ad acquistare
l'upgrade, ma al contempo chi acquista un pc adesso non può essere
penalizzato nella consultazione degli esempi del sito .
E' una semplice opinione.
ciao


title: SITO COMUNE aggiornato

text:
[CUT]
> La mia non vuole essere una critica, ma soltanto un miglioramento.
> La mia richiesta era solo di affiancare alla ver97 la ver00 in quanto più
> compatibile con le altre versioni, xp e 03.
> Chi ha bisogno dell'esempio forse non ha tutte le capacità o conoscenze
per
> fare le eventuali modifiche necessarie.
> Chi acquista un pc oggi non trova in commercio che access 2003; con
questo,
> chi ha già una versione di access non "deve" essere obbligato ad
acquistare
> l'upgrade, ma al contempo chi acquista un pc adesso non può essere
> penalizzato nella consultazione degli esempi del sito .
> E' una semplice opinione.
>
> ciao
Non è penalizzato, pensa che quel sito è gestito dalle stesse persone
che rispondono a questo NG.
La domanda assolutamente legittima che hai posto relativamente
al tuo problema, e la soluzione che ti ho dato nei post sotto sono la
dimostrazione che i sostenitori del Sito sono attivi e consapevoli
di quanto dici.
Purtroppo le versioni del SW saranno sempre in evoluzione, così come
si spera che il pubblico che si avvicina ad Access usi i Demo del Sito
come stimolo per apprendere, in quanto sono solo dei DEMO.
Se dai uno sguardo ci sono molti esempi pubblicati per A_XP, ma
sono sicuro che tu non riesci ad aprirli con A2K.
A2K ha avuto poco sviluppo in quanto troppo pieno di errori o Bugs
pertanto quasi nessuno sviluppa con A2K.
Sono sempre opinioni sulle quali si può fare Natale del 2006.
Leggi il post con la soluzione e vedrai che risolvi il problema.
Ciao



title: SITO COMUNE aggiornato

text:
"giorgio" <
georgeNO-S...@libero.it
> ha scritto nel messaggio
news:348abtF...@individual.net...

> La mia non vuole essere una critica,
Dal tono da te usato in questo e nei messaggi precedenti mi sembra invece
che la tua sia proprio una critica.
> ma soltanto un miglioramento.
Del tutto interessato, che tiene conto dei tuoi bisogni e se ne "sbatte" di
quelli degli altri. ;-)
> La mia richiesta era solo di affiancare alla ver97 la ver00 in quanto più
> compatibile con le altre versioni, xp e 03.
Forse non hai riflettuto sul fatto che gli esempi non sono realizzati da un
ente "istituzionale" che si prefigge di coprire l'universo degli utenti
Access, ma sono invece la spontanea pubblicazione di esperienze fatte da
utilizzatori: naturalmente quell'esperienza è stata fatta con una
determinata versione di Access ed a mio avviso l'autore ha solo l'obbligo di
renderla nota e non ha invece l'obbligo di rendere le soluzioni "pronte
all'uso" per tutte le versioni di Access: non credo sia scandaloso se chi ha
bisogno di una soluzione debba metterci un po' del suo per renderla
funzionante.
Ciò non toglie che in alcuni casi di una soluzione sul Sito Comune si
pubblichi sia la versione per Access 97 che quella per una versione
successiva di Access. Altre volte infine non viene pubblicata la versione
per Access 97, in quanto non viene inviata dall'autore e non è possibile
ottenerla da una semplice conversione; in questi tempi, ad esempio, vengono
pubblicate delle soluzioni sull'uso delle API esclisivamente in Access XP:
fino ad ora nessun utente Access 97 si è lamentato: penso che chi vorrà
usare tali soluzioni sa benissimo cosa ha da fare.
> Chi ha bisogno dell'esempio forse non ha tutte le capacità o conoscenze
per
> fare le eventuali modifiche necessarie.
Molto strano il tuo modo di pensare; pretendi che l'autore di una soluzione
(o chi aggiorna il Sito Comune) si faccia carico di dare la "pappa pronta"
per tutte le versioni di Access, mentre l'utente non dovrebbe neppure
preoccuparsi di mettersi in grado di studiare l'applicativo almeno quel
tanto da capire come realizzare la compatibilità ascendente tra le varie
versioni; dire che questo è un modo egocentrico di ragionare è sicuramente
un eufemismo.
> Chi acquista un pc oggi non trova in commercio che access 2003;
Esatto!
Però in libreria e on line esitono tutte le risorse per studiare
l'applicativo e per realizzare la compatibilità ascendente tra le varie
versioni.
O forse è chiedere troppo?
> con questo,
> chi ha già una versione di access non "deve" essere obbligato ad
acquistare
> l'upgrade, ma al contempo chi acquista un pc adesso non può essere
> penalizzato nella consultazione degli esempi del sito .
Basta studiare un po' e nessuno è penalizzato.
Se frequenti da qualche tempo il NG sai come la penso a proposito di chi
vuole usare applicativi come Access senza studiare almeno i suoi
fondamentali.
Stiamo parlando di applicativi informatici e non di videogiochi usati da
parte di bambini al limite analfabeti pigiando sui pulsanti di una
playstation.
Sono più di quarant'anni che vivo con ruoli diversi nel mondo
dell'informatica e ti posso garantire che l'informatica non è un hot-dog da
azzannare in piedi e di corsa in un fastfood; se negli ultimi anni i
prodotti informatici sono più abbordabili e fruibili anche da un univirso di
persone più vasto, non toglie che ancora, per usarli, sia necessario
studiare ed usare la propria intelligenza e creatività.
Insomma non condivido che sia per forza la montagna ad andare da Maometto: è
molto più semplice che sia Maometto ad andare alla montagna.
O sbaglio?
Resta il fatto che se vuoi unirti alle persone che aggiornano il Sito
Comune, e così realizzare le tue idee innovative, siamo pronti a valutare
tale opportunità.
> E' una semplice opinione.
Anche la mia è solamente un opinione, ma forse meno egoista della tua.



title: SITO COMUNE aggiornato

text:
"Roberto da casa" <
r.masso...@libero.it
> wrote in message
news:fQ7Ed.22482$H%6.89...@twister1.libero.it...

Non capisco quale sia il tono a cui ti riferisci, e dove hai colto che
volevo solo criticare.
Se rileggi la prima riga del primo post:
Sito fantastico ( mi sembra un complimento)
sarebbe auspicabile ( con un condizionale, non si impone nulla).
Alcune comunità inglesi di access adottano la doppia versione e per questo
l'ho proposto.
Fare una richiesta non mi sembra da Egoista, ne sono un egoista per natura.
Tempo addietro ci sono state delle proposte per il miglioramento del sito e
da esterno mi sembra che alcune siano state bocciate sul nascere (
direttamente qui) e altre sono state accettate.
Se non lo si vuole fare, implementare ect, basta dire di NO, tutti gli altri
argomenti pur validi e veri non sono pertinenti.
ciao


title: SITO COMUNE aggiornato

text:
"giorgio" <
georgeNO-S...@libero.it
> ha scritto nel messaggio
news:34d7q9F...@individual.net...

> Non capisco quale sia il tono a cui ti riferisci, e dove hai colto che
> volevo solo criticare.
Affermare che il Sito Comune pubblica gli esempi in Access 97 che
"appartiene alla 'preistoria dell'informatica'" se non è una critica cosa è?
Fra l'altro senza considerare che con qualsiasi versione di Access
successiva ad Access 97 puoi aprire quegli esempi, certo quindi la scelta
fatta non è certo limitativa.
> Se rileggi la prima riga del primo post:
> Sito fantastico ( mi sembra un complimento)
a me è sembrato semplicemente un modo come un altro per applicare la tecnica
del bastone e la carota (vi dico che siete stati bravi ma non avete fatto a
sufficienza); e a me la tecnica del bastone e la carota mi ha sempre dato ai
nervi.
> sarebbe auspicabile ( con un condizionale, non si impone nulla).
Già, ma tu con altre frasi l'hai posto come un forte limite di utilizzo del
Sito Comune da parte di chi possieda una versione di Access successiva ad
Access 97, e questo a mio avviso non risponde a verità.
> Alcune comunità inglesi di access adottano la doppia versione e per questo
> l'ho proposto.
Per alcune FAQ, dove in qualche modo sono arrivate al webmaster, lo si fa
anche nel Sito Comune.
> Fare una richiesta non mi sembra da Egoista, ne sono un egoista per
natura.
Non so se per natura tu sia un egoista (non ti conosco e non posso
affermarlo o negarlo), ma le tue affermazione lo lasciano intendere visto
che hai evidenziato (perché ti interessa) che mancando a volte la versione
A2000 degli esempi si richiede a quegli utilizzatri un po' più di lavoro per
aprire quei database, ma poi non hai evidenziato il fatto che esistono
esempi redatti solo con versioni successive ad Access 97: quelli in effetti
non potranno comunque essere aperti da chi possiede solo Access 97.
Se pensare solo a risolvere i propri problmi senza pensare a come risolvere
i problemi degli altri non è egoismo allora cosa è?
> Tempo addietro ci sono state delle proposte per il miglioramento del sito
e
> da esterno mi sembra che alcune siano state bocciate sul nascere (
> direttamente qui) e altre sono state accettate.
Sono state accettate le modifiche di utilità comune e che non comportavano
un ulteriore aggravio di tempo per chi deve tenere aggiornato il Sito
Comune.
Puoi stare tranquillo che, se verranno inviate dall'autore più versioni
dello stesso esempio, verranno pubblicate tutte come già avviene.
> Se non lo si vuole fare, implementare ect, basta dire di NO,
Anche in questo caso stai distorcendo laverità: io ritengo non valida solo
la tua proposta (ma non decido da solo, quindi la decisione finale potrebbe
non coincidere con il mio pensiero), ma, come hai evidenziato tu, altre
proposte sono state accettate.
> tutti gli altri
> argomenti pur validi e veri non sono pertinenti.
E' il tuo punto di vista che rispetto ma non condivido assolutamente, ma mi
sembra di averlo dimostrato.
Comunque penso che molti frequentatori si stiano annoiando con le nostre
chiacchiere, quindi per quanto mi riguarda esco dal thread.



title: SITO COMUNE aggiornato

text:
Dai bollettini pubblicati, se non ci saranno proroghe, ma per essere certi
si deve contattare direttamente la Microsoft, il 16 gennaio 2005 scade
l'ultimo supporto per Office 97 che comprende anche Access 97. Di fatto
quindi, chi ha inventato Access 97 lo dismette e ne dichiara la fine.
Peraltro, per fortuna, non esiste ancora nessuna legge che obbliga alla
rottamazione forzata del software dismessso; e in questo senso è da
intendersi l'appartenenza di Access 97 alla "preistoria dell'informatica".
Un conto è ricordare gli antenati e rispettarli, un'altro è venerali
all'infinito, di questo passo tra 50, 100 anni chi ci sarà...., parlerà
ancora solo di Access 97, e l'economia non gira.
Con queste premesse, ritengo che chi pubblica OGGI una soluzione, un lavoro,
una demo, lo debba fare funzionante innanzitutto con il software del
momento, nello specifico Access 2003 di Office 11, e successivamente o
contemporaneamente renderlo campatibile con le versioni precedenti, politica
seguita la data casa produttrice, Microsoft. (scelta che in alcuni casi si è
rivelata più dannosa per il software in generale rispetto alla progettazione
ex novo dello stesso, ma che porta agli utillizzatori anche alcuni
vantaggi).
Per quanto riguarda invece le risposte di un Webmaster, più che
argomentazioni, le considero come reiterate offese personali e del tutto
gratuite.
distinti saluti giorgio


title: Problema con Sottomaschera da query con Between e DatePart

author: StefanoLG

text:
Prima di tutto mi presento : mi chiamo Stefano e questo è il mio primo
messaggio, ho iniziato ad usare access da un po’ ho anche fatto tre corsi e mi
rendo conto, che più si va avanti, e più si vorrebbe sfruttarne le possibilità,
ma in alcuni casi senza un aiuto esterno diventa difficile, infatti è una
settimana buona che mi scervello sul problema e siccome proprio non ci cavo il
classico ragno dal buco mi sono deciso a scrivervi.

Ho già cercato nel sito che tra l’altro conoscevo da tempo ma non ho
trovato nulla che mi potesse aiutare ho anche fatto altre ricerche ma niente,
quindi :

sto costruendo un database con access 2000 in cui c’è una tabella
(TabellaPrimanota) che archivia i dati delle fatture e ricevute fiscali dei
clienti.

Per la ricerca, stampa di rapporti ecc. nel database c’è un maschera
(MascheraVisualizzaReportPrimanotaCorrispettiviClienti)

In questa maschera c’è una struttura a schede in ogni scheda ci sono
delle caselle combinate non associate ma che come origine riga hanno
un’istruzione SQL che fa riferimento alla TabellaPrimanota (in particolare al
campo DataDocumento nella tabella) e che servono da criteri nelle query che a
loro volta fanno da origine dati per delle sottomaschere all’interno delle
schede.

In ogni scheda quindi, ci sono delle caselle combinate e una
sottomaschera.

La
prima scheda
 ha due
caselle combinate che come origine riga hanno un’istruzione SQL che prende i
dati dal campo DataDocumento nella TabellaPrimanota, preso pari pari come data
GG/MM/AA (Formato : Data in cifre) (
SELECT TabellaPrimanota.DataDocumento FROM
TabellaPrimanota GROUP BY TabellaPrimanota.DataDocumento ORDER BY
TabellaPrimanota.DataDocumento;
 ) c’è anche la sottomaschera con la query
che utilizza l’operatore Between con le due caselle combinate come criterio per
selezionare solo i documenti nell’intervallo delle due caselle combinate e qui
funziona tutto bene.

(
Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![DataDocumentoDA]
And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![DataDocumentoA]
)

Ci sono poi dei tasti che aprono dei report anche loro hanno come origine
dati la stessa query e anche loro funzionano bene.

Per non avere una lista infinita nelle caselle combinate ho pensato di
suddividere la data in tre caselle combinate la prima che mostra solo il giorno
la seconda il mese e la terza l’anno.

Ho costruito una
seconda
scheda
 con sei caselle combinate e ad ogniuna ho inserito una istruzione
SQL

con la funzione DatePart per
mostrare solo il giorno

(
SELECT
DatePart("d",TabellaPrimanota!DataDocumento) AS Espr1 FROM TabellaPrimanota
GROUP BY DatePart("d",TabellaPrimanota!DataDocumento);
), il mese e l’anno,
ho copiato e rinominato la query della prima scheda e gli ho cambiato il
criterio calcolando l’intervallo di date usando i nuovi campi :

(
Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoDA] &
"/" &
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![MeseDA] &
"/" &
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![AnnoDA] And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoA] &
"/ " &
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![MeseA] & "/
" &
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![AnnoA]
).

Qui ho avuto i primi problemi; quando apro
la maschera (MascheraVisualizzaReportPrimanotaCorrispettiviClienti) appare un
messaggio che dice così :
Espressione
digitata non correttamente o troppo complessa per essere valutata.Un’espressione
numerica, ad esempio, può contenere troppi elementi complessi.Semplificare
assegnando parti dell’espressione a variabili.
 e la sottomaschera appare
bianca. il fatto strano è che la query funziona perché se imposto i valori nelle
caselle combinate e apro la query mi mostra tutti i record nell’intervallo; di
più
se con un tasto all’interno della
scheda faccio aprire una maschera con origine dati la stessa query la maschera
riporta tutti i record dell’intervallo.

Ho provato a modificare la query aggiungendo tre campi che con delle
espressioni prendano solo il valore

del giorno
Espr2:
DatePart("g";TabellaPrimanota!DataDocumento)

del mese
Espr3:
DatePart("m";TabellaPrimanota!DataDocumento)

e dell’anno
Espr4:
DatePart("aaaa";TabellaPrimanota!DataDocumento)

A questi campi ho assegnato dei criteri che sono :

per il campo Espr2 :

Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoDA] And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoA]

Per il campo Espr3
:

Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![MeseDA] And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![MeseA]

Per il campo Espr4
:

Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![AnnoDA] And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![AnnoA]

In
questo caso non appare più il messaggio di errore ma nella sottomaschera
all’interno della scheda

non vengono
mostrati tutti i record
 infatti se seleziono un intervallo di date che va
dal 1 gennaio 2008 al 4 Aprile 2008 non vengono mostrati i record dei mesi
precedenti Aprile con giorno superiore al 4; anche la query dopo aver inserito i
dati nelle caselle combinate

si
comporta nello stesso modo e anche una maschera aperta per mezzo di un tasto di
comando si comporta nell’identico modo

In sostanza la prima query
QueryPrimanotaGMAPROVA_001
 non funziona
all’interno di una sottomaschera dentro una scheda ma funziona come query e
funziona in una maschera a parte.

La seconda query
QueryPrimanotaGMAPROVA_002
non
restituisce i dati con giorno superiore al GiornoA e mese inferiore al
MeseA.

Ho fatto tanti altri tentativi ma non sono riuscito a far funzionare il
meccanismo in nessun modo …. AIUTO!

Spero di essere stato chiaro, se si può posso inviare il file con il
database; vi ringrazio per il vostro aiuto.

Ciao

Stefano


author: Carlo Costarella

text:
"StefanoLG" <
stefan...@yahoo.it
> ha scritto nel messaggio
news:47f9e69d$0$37206$4faf...@reader3.news.tin.it...














meccanismo in nessun modo .. AIUTO!
Spero di essere stato chiaro, se si può posso inviare il file con il
database; vi ringrazio per il vostro aiuto.
Ciao
Stefano
--------------------------------
Ciao Stefano, benvenuto.
Come primo post...niente male.
Imposta il tuo gestore dei NG a scrivere in formato testo e cerca di essere
più conciso.
Prova ad assegnare al between una funzione pubblica.
Per esempio, in un modulo pubblico scrivi:
Public function DimmiDataDA()As date
DimmiDataDA =
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoDA]
End Function
e
Public function DimmiDataA()As date
DimmiDataA =
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![GiornoA]
End Function
Il tuo Between diventa:
Between DimmiDataDA() And DimmiDataA()
Così per gli altri criteri...tutti derivano da funzioni pubbliche.
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftdhg8$cvc$1...@tdi.cu.mi.it...

___________________________________________________________________
Grazie Carlo proverò nei prossimi giorni a mettere in pratica i tuoi
consigli
Ora credo di aver impostato il formato testo : sono andato su Outlook
Express > Strumenti > Account > News >
news.tin.it
 > Proprietà >
Impostazioni avanzate > ho selezionato Testo normale.
Ciao Stefano


text:
"StefanoLG" <
stefan...@yahoo.it
> ha scritto nel messaggio
news:47fb5189$0$37204$4faf...@reader3.news.tin.it...

Fatto, ci ho provato ma non ha funzionato, sono invece riuscito in questo
modo :
Ho aggiunto due campi nella scheda (ProvaDA e ProvaA) uno prende i dati dai
campi GiornoDA MeseDA AnnoDA l'altro da GiornoA MeseA AnnoA
Con Origine Controllo "=DateSerial([AnnoDA];[MeseDA];[GiornoDA])"
Sinceramente sono andato per tentativi alla cieca e con questa funzione
DateSerial la query FUNZIONA, o meglio la query funziona anche in una
sottomaschera all'interno di una scheda mentre prima non sò perchè non
funzionava.
Il criterio nella Query è così diventato "Between
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![ProvaDA]
And
[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![ProvaA]"
Siccome con il Between la query non fa differenza tra data iniziale e data
finale,
se inserico come GiornoDa/MeseDa/AnnoDa 01/01/2008 e come
GiornoA/MeseA/AnnoA 02/02/2008 mi restitusce i documenti nell'intervallo di
date selezionato ma anche invertendo le date cioè GiornoA/MeseA/AnnoA
01/01/2008 e GiornoDa/MeseDa/AnnoDa 02/02/2008 il risultato è lo stesso; ho
modificato il criterio in :
">=[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![ProvaDA]
And
<=[Forms]![MascheraVisualizzaReportPrimanotaCorrispettiviClienti]![ProvaA]"
Così la query restituisce i documenti solo se la data iniale
GiornoDa/MeseDa/AnnoDa e minore della data finale GiornoA/MeseA/AnnoA
altrimenti nella sottomaschera non appare nessun record.
Ora vorrei inserire un avviso (un msgbox) nel caso si verifichi l'aver
selezionato una data iniziale maggiore della data finale ma non ci riesco


text:
"StefanoLG" <
stefan...@yahoo.it
> ha scritto nel messaggio
news:4801f24a$0$35966$4faf...@reader2.news.tin.it...
cut
>
> Fatto, ci ho provato ma non ha funzionato, sono invece riuscito in questo
> modo :
cut
L'importante è che funzioni.
> Ora vorrei inserire un avviso (un msgbox) nel caso si verifichi l'aver
> selezionato una data iniziale maggiore della data finale ma non ci riesco
Tutto dipende da dove vuoi far comparire il messaggio.
Da codice...naturalmente:
if me.MiaDataA < me.MiaDataDa then
msgbox "La data finale deve essere uguale o maggiore della data iniziale"
end if
Lo stesso, ma a posizioni invertite se vuoi farlo rispetto alla data
iniziale.
If me.DataDa > me.DataA then
.....
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftt0hm$3lu$1...@tdi.cu.mi.it...
|
| "StefanoLG" <
stefan...@yahoo.it
> ha scritto nel messaggio
| news:4801f24a$0$35966$4faf...@reader2.news.tin.it...
| cut
| >
| > Fatto, ci ho provato ma non ha funzionato, sono invece riuscito in
questo
| > modo :
|
| cut
| L'importante č che funzioni.
|
| > Ora vorrei inserire un avviso (un msgbox) nel caso si verifichi l'aver
| > selezionato una data iniziale maggiore della data finale ma non ci
riesco
|
| Tutto dipende da dove vuoi far comparire il messaggio.
| Da codice...naturalmente:
| if me.MiaDataA < me.MiaDataDa then
| msgbox "La data finale deve essere uguale o maggiore della data iniziale"
| end if
|
| Lo stesso, ma a posizioni invertite se vuoi farlo rispetto alla data
| iniziale.
| If me.DataDa > me.DataA then
| .....
|
|
| Ciao, Carlo
|
|
Premetto che sui cambi di valore nelle caselle combinate GiornoDA MeseDa
AnnoDA GiornoA MeseA AnnoA ho inserito il Me.Refresh per aggiornare
automaticamente la sottomaschera.
Ci ho provato ma non sembra cosě semplice ho messo il codice che dici in
tutti i campi e in tutti i modi e su tutti gli eventi possibili e
immaginabili ma non funziona
Se perň inserisco un pulsante e metto il codice sull'evento Clik il codice
funziona.
Grazie ancora dell'aiuto che spero di porter ricambiare prima o poi.
Stefano


title: indirizzo IP

author: Ivan

text:
Salve a tutti
Vorrei sapere come posso ottenere con access l'indirizzo IP del PC.
Grazie


title: indirizzo IP

author: Pablitomf

text:
Ivan ha scritto:
> Salve a tutti
> Vorrei sapere come posso ottenere con access l'indirizzo IP del PC.
> Grazie
Ti rispondo a braccio, quindi prendila con le molle :
Dovresti aver registrato il Controllo Microsoft Winsock 6.0 e con il
comando Winsock1.LocalIP ottenere l'IP oppure con Winsock1.LocalHostName
il nome del PC... ( e fai sicuramente prima )
Però puoi provare questo codice, io lo uso e va benissimo :
Option Compare Database
Option Explicit
'Initialisierung der API-Funktionen
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal
wVersionRequired&, lpWSAData As WinSocketDataType) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal HostName$)
As Long
Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias
"RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As
Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.DLL" Alias
"RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Private Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias
"RasEnumEntriesA" (ByVal Reserved$, ByVal lpszPhonebook$, lprasentryname
As Any, lpcb As Long, lpcEntries As Long) As Long
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA"
(ByVal hRasConn As Long) As Long
Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent
As Long, ByVal lpszConiID As String, ByVal dwFlags As Long, ByRef hCon As
Long, ByVal dwReserved As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal
hpvSource&, ByVal cbCopy&)
Dim ConID&
Private Type RASType
dwSize As Long
hRasCon As Long
szEntryName(256) As Byte
szDeviceType(16) As Byte
szDeviceName(32) As Byte
End Type
Private Type RASStatusType
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(16) As Byte
szDeviceName(32) As Byte
End Type
Private Type RASENTRYNAME95
dwSize As Long
szEntryName(256) As Byte
End Type
Dim DFÜName$
Private Type HostDeType
hName As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type
Private Type WinSocketDataType
wversion As Integer
wHighVersion As Integer
szDescription(0 To 256) As Byte
szSystemStatus(0 To 128) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
'Sub zum Beenden der Verbindung
Sub Verbindung_Beenden()
Dim x As Integer
For x = 0 To 1000
RasHangUp (x)
If DFÜStatus = False Then Exit For
Next
End Sub
'Sub zum Aufbauen der Standart Verbindung
Sub Verbindung_Aufbauen()
Dim ConName As String
InternetDial 0, ConName, 2, ConID, 0
End Sub
'Sub zum Bekommen des aktuellen DFÜ Status
Function DFÜStatus() As Boolean
Dim RAS(255) As RASType, RASStatus As RASStatusType
Dim lg&, lpcon&, Result&
RAS(0).dwSize = 412
lg = 256 * RAS(0).dwSize
Result = RasEnumConnections(RAS(0), lg, lpcon)
If lpcon = 0 Then
DFÜStatus = False
Else
RASStatus.dwSize = 160
Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus)
If RASStatus.RasConnState = &H2000 Then
DFÜStatus = True
Else
DFÜStatus = False
End If
End If
End Function
'Sub zum Bekommen der aktuellen IP
Function GetIP() As String
Dim IP$, DNS$, Host$, x As Integer
Dim GetComputer As String
Dim Result%
Dim LoBy%, HiBy%
Dim SocketData As WinSocketDataType
Result = WSAStartup(&H101, SocketData)
If Result <> 0 Then
MsgBox "Es trat ein Problem mit der winsock.dll auf.", , "Fehler"
End If
x = 2
nt:
IP = HostByName$(GetComputer, x)
If Len(IP) = 0 And x >= 0 Then
x = x - 1
GoTo nt
End If
GetIP = IP
CleanSockets
End Function
'Sub zum Bekommen der IP anhand des Hostnamens
Function HostByName(name$, Optional x% = 0) As String
Dim MemIp() As Byte
Dim y%
Dim HostDeAddress&, HostIp&
Dim IpAddress$
Dim Host As HostDeType
HostDeAddress = gethostbyname(name)
If HostDeAddress = 0 Then
HostByName = ""
Exit Function
End If
Call RtlMoveMemory(Host, HostDeAddress, LenB(Host))
For y = 0 To x
Call RtlMoveMemory(HostIp, Host.hAddrList + 4 * y, 4)
If HostIp = 0 Then
HostByName = ""
Exit Function
End If
Next y
ReDim MemIp(1 To Host.hLength)
Call RtlMoveMemory(MemIp(1), HostIp, Host.hLength)
IpAddress = ""
For y = 1 To Host.hLength
IpAddress = IpAddress & MemIp(y) & "."
Next y
HostByName = Left$(IpAddress, Len(IpAddress) - 1)
End Function
Private Sub CleanSockets()
Dim Result&
Result = WSACleanup()
If Result <> 0 Then
MsgBox "Es trat ein Problem mit der winsock.dll auf.", , "Fehler"
End If
End Sub
Poi su quello che ti pare (anche un MsgBox) ti richiami il GetIP()
Ti va bene?
Ciao
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: indirizzo IP

author: Alessandro Baraldi

text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:cjb3ck$dbi$
1...@news.newsland.it
> Ivan ha scritto:
>
> > Salve a tutti
> > Vorrei sapere come posso ottenere con access l'indirizzo IP del PC.
>
> > Grazie
>
> Ti rispondo a braccio, quindi prendila con le molle :
>
> Dovresti aver registrato il Controllo Microsoft Winsock 6.0 e con il
> comando Winsock1.LocalIP ottenere l'IP oppure con Winsock1.LocalHostName
> il nome del PC... ( e fai sicuramente prima )
[CUT]
La soluzione di Winsok funziona anche se quanto usato è prolisso
e si può ridurre, ma vi propongo di appoggiarvi alla piattaforma
SDK attraverso le Classi di WMI
Vi allego uno Script modificato per girare in VB/VBA e il
riferimento alla pagina MS nella quale trovate esposte le
proprietà della Classe....!
'
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_networkadapterconfiguration.asp
Public Function getIP()
   Dim strComputer As String
   Dim objWMIService As Object
   Dim objnetcard As Object
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
   Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled =
True")
   For Each objnetcard In objWMIService.ExecQuery _
              ("Select * From Win32_NetworkAdapterConfiguration Where
IPEnabled = True")
      Debug.Print objnetcard.WINSPrimaryServer
      Debug.Print objnetcard.WINSSecondaryServer
   Next objnetcard
End Function
Saluti
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Access: dati codificati, come decodificarli?

author: kd

text:
Ciao,
ho aperto un file dbm usato da un programma,
ma alcuni dati di una tabella risultano codificati:
ad es. invece di un nome escono una serie di numeri.
Quale metodo usare per capire quale codifica è stata
usata?


text:
"kd" <0...@235.81321> ha scritto nel messaggio
news:498f51c6$0$1121$4faf...@reader2.news.tin.it...

Dovresti chiederlo a chi ha fatto il programma.
Puoi provare con cripta/decripta batabase...ma sarebbe troppo facile.
Ciao, Carlo


text:
Carlo Costarella ha scritto:

Vorrei capire se c'è un modo per decriptare
i dati effettuando un qualche tipo di attacco.
In pratica uso il programma di cui sopra per
lavoro, ma posso accedere ai dati di cui
ho bisogno solo dall'interno dello stesso.
Il problema è che questo software non permette
di effettuare determinate statistiche su un insieme
di dati, quindi mi ritrovo con dei forti limiti
e l'unico modo per risolvere la questione è quello
di usare Access e lavorare direttametne da un file dbm.


text:
"kd" <0...@235.81321> ha scritto
cut
> Vorrei capire se c'è un modo per decriptare
> i dati effettuando un qualche tipo di attacco.
>
> In pratica uso il programma di cui sopra per
> lavoro, ma posso accedere ai dati di cui
> ho bisogno solo dall'interno dello stesso.
>
> Il problema è che questo software non permette
> di effettuare determinate statistiche su un insieme
> di dati, quindi mi ritrovo con dei forti limiti
> e l'unico modo per risolvere la questione è quello
> di usare Access e lavorare direttametne da un file dbm.
>
Difficilmente troverai qualcuno, in questo NG, disposto a violare dati in
qualche modo criptati.
O la cosa si risolve con procedure standard, inserite in Access come cripta
decripta db, oppure devi rivolgerti all'autore del programma.
Ciao, Carlo


text:
Carlo Costarella ha scritto:

Certo che chiederò all'autore del programma
(l'ho contattato ma non mi ha ancora risposto)
ma mi preme precisare che i dati sono i miei!
Non devo violare i dati di altri, ma proprio
quelli che mi appartengono! E' il programma
che uso attualmente per gestire questi dati
che è limitato e non mi permette di fare
alcune operazioni che in questo periodo
mi serve fare!
Evidentemente data la mole di dati (frutto di anni di lavoro)
non posso camibare programma dalla sera alla mattina,
quindi devo cercare di trovare una soluzione.
Ciao.


text:
"kd" <0...@235.81321> ha scritto
cut
> Certo che chiederò all'autore del programma
> (l'ho contattato ma non mi ha ancora risposto)
> ma mi preme precisare che i dati sono i miei!
> Non devo violare i dati di altri, ma proprio
> quelli che mi appartengono! E' il programma
> che uso attualmente per gestire questi dati
> che è limitato e non mi permette di fare
> alcune operazioni che in questo periodo
> mi serve fare!
>
> Evidentemente data la mole di dati (frutto di anni di lavoro)
> non posso camibare programma dalla sera alla mattina,
> quindi devo cercare di trovare una soluzione.
> Ciao.
Se i dati sono tuoi, l'autore del programma è tenuto a fornire una procedura
che permette di avere i dati in chiaro come, per esempio, un file excel o
dbf o altro.
L'autore non ha alcuna proprietà sui dati ma solo quella sul software.
Ora bisogna vedere se tu hai qualche autorizzazione a manipolare (anche per
ricerca) i dati.
Se si tratta di dati sensibili le cose cambiano e di molto...
Ciao, Carlo


text:
Carlo Costarella ha scritto:

Certo che posso manipolare i dati.
Faccio un'attività nel campo medico
e i dati sono relativi ai miei pazienti.
E' chiaro che posso fare delle statistiche.
Se un medico di base ha 1000 pazienti
deve registrare ogni ricetta nel proprio computer,
quindi può e deve fare delle statistiche ad es.
per controllare se ha prescritto in totale troppi
farmaci o troppe analisi. Una tale situazione
porterebbe a degli sprechi circa il budget consentito
da una ASL...
Ci mancherebbe se un medico non possa elaborare
i dati dei propri pazienti... quello che deve
fare è non renderli accessibili ad altri.
Infatti il programma quando è in funzione rende tali
dati assolutamente e completamente in chiaro al medico,
è il file dbm che risulta protetto quando il programma
non funziona. Tale protezione non serve per impedire a
me di vedere i dati, in quanto io li vedo quando uso il
programma, ma per rendere difficile a terze persone
di farlo...
In ogni caso insisterò per capire come gestire 'sto
file.


text:
"kd" <0...@235.81321> ha scritto
>>> Certo che chiederò all'autore del programma
>>> (l'ho contattato ma non mi ha ancora risposto)
>>> ma mi preme precisare che i dati sono i miei!
>>> Non devo violare i dati di altri, ma proprio
>>> quelli che mi appartengono! E' il programma
>>> che uso attualmente per gestire questi dati
>>> che è limitato e non mi permette di fare
>>> alcune operazioni che in questo periodo
>>> mi serve fare!
Il programmatore deve darti la possibilità di esportare, in chiaro, i dati.
Poi li gestisci come meglio credi.
>>> Evidentemente data la mole di dati (frutto di anni di lavoro)
>>> non posso camibare programma dalla sera alla mattina,
>>> quindi devo cercare di trovare una soluzione.
>>> Ciao.
>>
> Certo che posso manipolare i dati.
> Faccio un'attività nel campo medico
> e i dati sono relativi ai miei pazienti.
> E' chiaro che posso fare delle statistiche.
> Se un medico di base ha 1000 pazienti
> deve registrare ogni ricetta nel proprio computer,
> quindi può e deve fare delle statistiche ad es.
> per controllare se ha prescritto in totale troppi
> farmaci o troppe analisi. Una tale situazione
> porterebbe a degli sprechi circa il budget consentito
> da una ASL...
> Ci mancherebbe se un medico non possa elaborare
> i dati dei propri pazienti... quello che deve
> fare è non renderli accessibili ad altri.
> Infatti il programma quando è in funzione rende tali
> dati assolutamente e completamente in chiaro al medico,
> è il file dbm che risulta protetto quando il programma
> non funziona. Tale protezione non serve per impedire a
> me di vedere i dati, in quanto io li vedo quando uso il
> programma, ma per rendere difficile a terze persone
> di farlo...
>
> In ogni caso insisterò per capire come gestire 'sto
> file.
Avevo capito bene...si tratta di dati sanitari.
Intanto fatti un'idea da questi link:
http://www.infogiur.com/news/privacy_medici_base_lettera_garante.asp
http://www.gastronet.it/scientifico/focus/privacy/semplificazione.html
http://www.garanteprivacy.it/garante/doc.jsp?ID=1318699
http://www.altalex.com/index.php?idnot=34807
Ciao, Carlo
P.S. anche io lavoro in sanità.


title: altezza campi di testo di un report

author: Roberto P.

text:
Allora...ho una tabella con alcuni campi.
Devo farne un report che mi affianca tutti i campi orizzontalmente in
modo tabulare.
Il problema è il seguente, sul report le caselle di testo associate ai
vari campi hanno il bordo impostato come continuo affinchè il
risultato finale su carta sia una specie di griglia (tipo excel)  dove
le righe sono i record e le colonne sono i campi.
Avviene che alcuni campi hanno il testo che si estende su più righe e
quindi la casella alla fine risulta più alta di quelle che hanno il
testo su una sola riga e quindi mi sballa la griglia...cioè è brutta
a vedersi.
Posso e come posso fare in modo che su ogni riga l'altezza delle
caselle di testo si allinei a quella che risulta (in base al contenuto)
essere la più grande.
in sintesi, righe diverse possono avere altezza diverse, ma sulla
stessa riga voglio che tutte le caselle abbiano la stessa altezza.
Grazie


title: altezza campi di testo di un report

text:
"Roberto P." <
roberto...@gmail.com
> ha scritto nel messaggio
news:1137420307.6...@z14g2000cwz.googlegroups.com...

Vai sul Sito Comune (link qui sotto) e nella Sezione Reports leggi la FAQ di
Alessandro Cardi intitolata "4.20 Disegnare una griglia in un report
tabellare con righe ad altezza variabile".
>Grazie
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: tabelle db3

author: Roberto-Angelo Azzurro lavoro

text:
Salve a tutti!
Avrei questo piccolo problema:
ho diverse applicazioni access che prelevano dati contabili da alcune tbl
DbIII collegate; normalmente importo e converto i dati per adattarli alle
mie esigenze; adesso perň pensavo di fare anche il contrario, ossia
preparare scritture da esportare, o meglio accodare, alle tabelle in
questione. E' dato di fatto che con questo tipo di collegamento non posso
modificare in alcun modo i dati db, e per quanto ci capisco neanche
collegamento le tbl con Odbc. Esiste una maniera semplice per fare queste
operaziono? escludendo la importazione e successiva esportazione causa la
non perfetta definizione dei campi numerici nell'esportazione.
Grazie!


title: Ottenere i nomi dei computer

author: Filippo

text:
Esiste una funzione in access che mi permette di avere la lista di tutti i
computer in rete?


title: Ottenere i nomi dei computer

author: Sergio MAZZA

text:
"Filippo" <
flo...@virgilio.it
> ha scritto nel messaggio
news:Dn0Ea.85597$g92.1...@news2.tin.it...
> Esiste una funzione in access che mi permette di avere la lista di tutti i
> computer in rete?
>
Con windows scripting host:
Es.
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Debug.print "Dominio = " & WshNetwork.UserDomain
Debug.print "Nome computer = " & WshNetwork.ComputerName
Debug.print "Nome utente = " & WshNetwork.UserName
Set WshNetwork = nothing
Ciao.
--
Sergio MAZZA


title: Ottenere i nomi dei computer

author: Mark

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message
news:bbqb61$man$1...@canarie.caspur.it...

Potresti spiegarti meglio?
Dove si possono trovare informazioni in proposito?
Grazie
Marco Dell'Oca


title: Ottenere i nomi dei computer

text:
"Mark" <
dmsof...@tin.it
> ha scritto nel messaggio
news:K3hEa.54003$pR3.1...@news1.tin.it...
>
>
> Potresti spiegarti meglio?
Da WinNT in poi hai la possibilità di creare degli script (.VB o .JS)
eseguibili (non compilati) da SO. Per Win9x puoi scaricare l'interprete da
MS.
Gli script puoi utilizzarli anche da VB/VBA facendo riferimento all'oggetto
che ti interessa.
> Dove si possono trovare informazioni in proposito?
http://www.microsoft.com/italy/scripting/
E scarichi l'ultima versione 5.6 e la documentazione in italiano...
> Grazie
> Marco Dell'Oca
>
Ciao.
--
Sergio MAZZA


title: Ottenere i nomi dei computer

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bbqb61$man$1...@canarie.caspur.it...

La procedura funziona l'unica cosa che mi da come risultato solo il nome del
mio computer.
A me interesserebbe avere i nomi di tutti i computer in rete.
hai qualche consiglio?


title: Ottenere i nomi dei computer

text:
"Filippo" <
flo...@virgilio.it
> ha scritto nel messaggio
news:Dn0Ea.85597$g92.1...@news2.tin.it...
> Esiste una funzione in access che mi permette di avere la lista di tutti i
> computer in rete?
>
>
>
Salve dopo varie peripezie e occhi gonfi, ecco cosa sono riuscito a fare :
spero che a qualcuno possa servire per amministrare meglio la propria rete.
DomainString = "DOMAIN"
Dim a As String
Set DomainObj = GetObject("WinNT://" & DomainString)
    For Each Groupobj In DomainObj
        If Groupobj.Class = "Computer" Then
        Elenco8.RowSource = Elenco8.RowSource & ";" & Groupobj.Name
    End If
    Next


title: Report per guida telefonica

author: RobertOne

text:
Buona sera a tutto il n.g.
Ho creato una semplicissima guida telefonica. Mi trovo in difficoltà perchè
non so come impostare la stampa della medesima. Vorrei fare in modo di
selezionare la lettera iniziale della pagina da stampare (es. tutti gli
utenti che iniziano per A) successivamente la stampa della pagina ed
all'inizio della medesima riportare la lettera iniziale degli utenti (A).
Grazie per l'attenzione.
Roberto


title: Report per guida telefonica

author: antonio

text:
"RobertOne" <
robe...@robort.it
> ha scritto nel messaggio
news:43400cdf$0$15714$4faf...@reader4.news.tin.it...

Io utilizzerei una maschera di parametri.
Mi spiego meglio...
All'avvio dell'applicazione apri una maschera, senza farla visualizzare,
costituita da una diecina di oggetti PARAM01, PARAM02,... PARAM10 senza
valorizzarli.
Quando fai click sulla lettera c, per esempio, vai a mettere una "c" nel
PARAM01 della predetta maschera.
Il report lo farai derivare da una query che filtra la lettera in base al
solito campo PARAM01 della maschera, quindi nell'esempio avresti solo i
records della lettera "c".
Ciao Antonio
P.S.: Per favore, chi sa qualcosa su come utilizzare responseXML.xml può
darmi qualche dritta ? Grazie


title: Report per guida telefonica

text:
"RobertOne" <
robe...@robort.it
> wrote in message
news:43400cdf$0$15714$
4faf...@reader4.news.tin.it

Non hai provato per caso a vedere i Wizzard dei Database...?
Se non ricordo male ne trovi uno che fa una gestione simile
e che potrebbe essere quanto cerchi.
In alternativa aggiungi un Campo con Left(Cognome) Raggruppalo
nel report, e magari imposta a 2 il numero delle colonne.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Report per guida telefonica

text:
Diciamo che si tratta di fare un report ma non so come poterlo impostare nel
migliore dei modi.
Rob.


title: Origine controllo - #Errore  riga new record

text:
Ciao a tutti,
ho una semplice maschera in cui posso inserire n records, dove ho una
combo da dove seleziono un nominativo e nei successivi campi del
record imposto dei valori attraverso l'assegnazione di alcune funzioni
alla proprietà ORIGINE CONTROLLO basate sul nominativo selezionato.
Funziona tutto perfettamente, tranne il fatto che mi viene stampata in
questi campi "calcolati" la stringa #Errore nell'ultimo record, quello
per interderci per l'inserimento di un nuovo record. Ho provato a
verificare se il campo a cui faccio riferimento è nullo tipo
=iff(IsNull([id_anagrafica);Null;mia_funzione([id_anagrafica];"cap"))
ma ottengo come risultato #Nome
qualche suggerimento???
Grazie


text:
> <
max4...@gmail.com
> ha scritto nel messaggio
> news:1172784578.8...@31g2000cwt.googlegroups.com...

Se quell'istruzione l'hai copiata direttamente dall'applicativo, ha ragione
ad arrabbiarsi perchè l'istruzione è iif e non iff.
Ciao
Antonio


title: aggiornamento dati in tabella

author: Andrea

text:
grazie in anticipo.
Questo č il mio problema:
ho una tabella (TAB1)con questi campi
                 --------------------
campi        codice | descr | flag
                 --------------------
valori         uno     | desc1 |  0
                 uno     | desc2 |  0
                 uno     | desc3 |  1
                 due     | desc1 |  0
                 due     | desc2 |  1
                 due     | desc3 |  0
l'altra tabella (TAB2) con questi campi
                 ----------------------------------
campi        codice | descr1 | descr2 | descr3 |
                 ----------------------------------
valori         uno     | val flag | val flag |val flag |
                 due     | val flag | val flag |val flag |
dove valflag č il valore del campo flag nella TAB1.
la mia domanda č questa:
come faccio a inserire "valflag" nella TAB2?
grazie


title: aggiornamento dati in tabella

author: Roberto dal portatile

text:
"Andrea" <
mans...@libero.it
> ha scritto nel messaggio
news:3b5ff...@news2.prserv.net...
> grazie in anticipo.
>
> Questo è il mio problema:
>
> ho una tabella (TAB1)con questi campi
>
>                  --------------------
> campi        codice | descr | flag
>                  --------------------
> valori         uno     | desc1 |  0
>                  uno     | desc2 |  0
>                  uno     | desc3 |  1
>                  due     | desc1 |  0
>                  due     | desc2 |  1
>                  due     | desc3 |  0
>
>
> l'altra tabella (TAB2) con questi campi
>
>                  ----------------------------------
> campi        codice | descr1 | descr2 | descr3 |
>                  ----------------------------------
> valori         uno     | val flag | val flag |val flag |
>                  due     | val flag | val flag |val flag |
>
> dove valflag è il valore del campo flag nella TAB1.
>
> la mia domanda è questa:
>
> come faccio a inserire "valflag" nella TAB2?
>
> grazie
>
Quando devi trascrivere i dati di TAB1 in TAB2?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aggiornamento dati in tabella

text:
>
> Quando devi trascrivere i dati di TAB1 in TAB2?
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
..penso che il quando non sia importante, nel senso che in tab2 i dati
(tranne il valflag) ci sono già.


title: aggiornamento dati in tabella

text:
"Andrea" <
mans...@libero.it
> ha scritto nel messaggio
news:3b603...@news2.prserv.net...

Scusami ma il quando è importante; il modo in cui deve essere effettuata
un'azione non può prescindere dal contesto in cui ci troviamo.
O sbaglio??
Comunque decidi tu; resta il fatto che io non sono in grado di darti una
soluzione se tu prima mi dai una risposta: stiamo lavorando con un database
relazionale e non con un foglio Excel.



title: aggiornamento dati in tabella

author: andrea

text:
Il 26 Lug 2001, 17:41, "Roberto dal portatile" <
r.ma...@repubblica.it
> ha
scritto:
>Scusami ma il quando è importante; il modo in cui deve essere
effettuata
>un'azione non può prescindere dal contesto in cui ci troviamo.
>O sbaglio??
>Comunque decidi tu; resta il fatto che io non sono in grado
di darti una
>soluzione se tu prima mi dai una risposta: stiamo lavorando
con un
>database
>relazionale e non con un foglio Excel.
>--
>Roberto
scusa, ma forse non ho capito cosa intendi per "quando". Comunque:
i dati
presenti in tab1 vengono importati da un db esterno, una volta che sono
importati, bisogna fare l'aggiornamento della tab2, inserendo il "valflag".
tutte queste operazione vanno eseguite in sequenza.
Grazie
--------------------------------
Inviato via
http://usenet.iol.it


title: aggiornamento dati in tabella

text:
"andrea" <
mans...@libero.it
> ha scritto nel messaggio
news:32Z97Z110Z67Y9...@usenet.iol.it...

Era quello che volevo sapere.
Se i campi codice e descr di TAB1 sono di tipo testo e il campo flag di TAB1
e di tipo numerico.
Se il campo codice di TAB2 è di tipo testo e gli altri tre campi di TAB2
sono di tipo numerico.
Dopo l'importazione  in TAB1 esegui il seguente codice VBA:
Dim rstTAB1 As Recordset
Dim rstTAB2 As Recordset
Dim StrCriteri As String
Set rstTAB1 = CurrentDb.OpenRecordset("TAB1")
Set rstTAB2 = CurrentDb.OpenRecordset _
("TAB2", dbOpenDynaset)
rstTAB1.MoveFirst
Do Until rstTAB1.EOF
StrCriteri = "codice='" & _
rstTAB1!codice & "'"
rstTAB2.FindFirst StrCriteri
If rstTAB2.NoMatch = False Then
rstTAB2.Edit
Select Case rstTAB1!descr
Case "desc1"
rstTAB2!descr1 = rstTAB1!flag
Case "desc2"
rstTAB2!descr2 = rstTAB1!flag
Case "desc3"
rstTAB2!descr3 = rstTAB1!flag
Case Else
MsgBox "Campo descr " & rstTAB1!descr _
& " errato"
End Select
rstTAB2.Update
Else
MsgBox "codice " & rstTAB1!codice _
& " inesistente"
End If
rstTAB1.MoveNext
Loop
Set rstTAB1 = Nothing
Set rstTAB2 = Nothing



title: aggiornamento dati in tabella

text:
funziona tutto, grazie
Andrea
"Roberto dal portatile" <
r.ma...@repubblica.it
> wrote in message
news:9jrf4k$ipk$1...@stargate1.inet.it...
>
> "andrea" <
mans...@libero.it
> ha scritto nel messaggio
> news:32Z97Z110Z67Y9...@usenet.iol.it...
> > Il 26 Lug 2001, 17:41, "Roberto dal portatile" <
r.ma...@repubblica.it
>
> ha
> > scritto:
> >
> ---------------------------------------------



title: aggiornamento dati in tabella

author: Antonio Biso

text:
Andrea <
mans...@libero.it
> wrote in message 3b669...@news2.prserv.net...
> funziona tutto, grazie
> Andrea
Tranne il tuo modo di quotare, direi...
Antonio


title: stop alle elaborazioni in corso...

author: Pasquale Antonacci

text:
OK. In un ciclo loop la cosa e risolvibile ma e mai possibile che se lancio
una query (di quelle che ti impegnano la mcchina per minuti...) l'unica
alternativa per interrompere l'operazione e Alt-Ctrl-Canc? Forse
un'API......
Ciao Lino
--
Posted from
IDENT:ro...@sirio.tno.it
 [138.66.200.5]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Password Utente per Db

text:
Il cliente mi ha chiesto di poter accedere con una Password
Siccome vorrebbe modificarla ogni mese vorrei evitare di impostare la password con la procedura offerta da Access (Aprire in modalità esclusiva etc...)
Mi stavo inventando qualcosa...Una form "ImmettiPass" e una tabella nascosta... ma prima di cimentarmi volevo qualche dritta su questo argomento.
Magari qualcosa di Livello sicurezza basso... tanto non siamo alla NASA!...


title: Password Utente per Db

text:
La procedura di Access ovviamente non può essere usata, ma si può gestire la cosa da VBA...

https://docs.microsoft.com/en-us/previous-versions/office/developer/office2000/aa141813(v=office.10)

Attenzione al fatto che serve aprire in modalità Esclusiva... e qui viene il problemino...

Alternativa è come dicevi una gestione LOCALE sempificata che puoi fare in 2 modi:
1) Tabella Locale
2) Il Registry accessibile da VBA con GetSetting e SaveSetting

Ti crei una Form(LOGIN) che chiede la PWD, la confronti con quanto salvato in Tabella(leggibile con DlookUp) o con GetSetting, e se la metti giusta attivi la possibilità di cambiarla, e la sovrascriverai, oppure chiudi ed apri la Form principale...!

Saluti
@Alex


title: Password Utente per Db

author: BFS

text:

non sei alla NASA ma almeno un minimo di sicurezza impone di non
salvarla in chiaro ma almeno criptarla con un algoritmo decente prima di
salvarla in una tabella che può anche non essere nascosta

O meglio ancora usare l'autenticazione a due fattori

ciao
BFS


title: Password Utente per Db

text:

Ciao F
Mentre studio quanto suggerito da Alex ...
Criptata... Come si fa?....


title: Password Utente per Db

text:

si prende un algoritmo che prende in input la tua password e la
trasforma in una stringa indecifrabile in output
ovviamente è l'output che viene salvato nel campo della tabella

Deve esserci oviamente anche l'algoritmo di decriptazione che in input
riceve la stringa criptata e la trasforma in stringa leggibile da
confrontare con la psw inserita

un esempio ridicolo ma per farti capire il concetto è un algoritmo che
preso in input "topolino" salva nella tabella "onilopot"
Chiunque comprende al volo cosa fa questo algoritomo e quindi le psw
sarebbero facilmente ricavabili

Quindi o questi due algoritmi li inventi tu, ma te lo sconsiglio, o ne
scegli di robusti e conosciuti.
Oppure acquisti la pappa pronta da siti tipo:

https://www.cryptosys.net/

Se poi vuoi aggiungere anche il doppio fattore,
una volta che la psw inserita è corretta invia un sms con un OTP al
cellulare di chi deve fare il login e faglielo inserire sulla maschera
di login

io mi appoggio a skebby per l'invio di sms da codice vba e i costi sono
buoni

tutto va contestualizzato a cosa devi proteggere, ovvio che se è il
database delle ricette della nonna, basta anche una psw in chiaro

ciao
BFS


title: Password Utente per Db

text:
Tieni sempre a fuoco il livello a cui intendi basarti...

Ci sono le API si Windows che fanno un ottimo lavoro anche a livello professionale:

https://stackoverflow.com/questions/40748130/adapt-crypto-api-vba-to-use-with-access-2010-64-bit

https://www.cryptosys.net/apiexcel.html

Il primo link è per 64Bit... il secondo include la compilazione condizionale ed è meno complesso... ma non meno sicuro.

@Alex


title: Password Utente per Db

text:

Buongiorno.
Fatto quasi tutto...
mi sono accorto però che il confronto tra le due stringhe (Form-Tabella), giustamente, non fa distinzione tra maiuscole e minuscole.
Per controllare questa differenza c'è qualche diavoleria da passare alla routine o ci vuole una routine che controlli ogni singolo carattere?


title: Password Utente per Db

text:
Certo come fai il confronto...?

Devi usare questo:
StrComp(str1, str2, vbBinaryCompare)

@Alex


title: Password Utente per Db

author: Bruno Campanini

text:
gabria...@gmail.com
 laid this down on his screen :

Si fa anche così:

1 - stabilisci una PSW anche semplicissima, per esempio 123.
2 - quando la digiti in presenza di estranei puoi anche digitare
    20 o 30 caratteri alfanumerici purché internamente ad essi
    vi sia la sequenza 123, per esempio 1840530412345825444452487...
    Così puoi anche stupire mostrando una memoria di ferro!
    Puoi anche stabilire che la PSW sia intervallata da uno o più
    caratteri che ti inventi al momento: 428142839...
3 - devi poi aver scritto quattro righe di programma che verifichi
    se esiste nel mucchio la sequenza 123 ovvero 1x2y3...

Naturalmente il codice VBA dovrebbe essere protetto come lo è
in un file MDE.

Bruno


title: Password Utente per Db

text:

 Ah ah ah ah ! Buona questa ! :-)
Dovrò studiarci!
Grazie :-)


title: maschera di input ed anno corrente

author: Giuseppe

text:
ciao a tutti,
avrei bisogno che in una mascher adi input del tipo "gg/mm/aaaa" fosse
pre-impostato l'anno corrente.
Sull'evento "su corrente" della maschera scrivo:
Me.Data.InputMask = "00/00/" & Year(Date)
ma la maschera di input di restituisce: __/__/2__5 questo perchè legge i
valori "00" dell'anno come __.
Come posso fare?
Grazie a tutti.
Giuseppe


title: maschera di input ed anno corrente

author: Leonardo

text:

Prova a fare cosi: inserisci sull'evento "Dopo Aggiornamento" del tuo campo
Data della form:
Me.Data = Left(Me.Data, 2) & "/" & Mid(Me.Data, 3, 2) & "/" & Year(Date)
Ciao
> Grazie a tutti.
>
>
> Giuseppe
>

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


title: maschera di input ed anno corrente

text:
"Leonardo" <
ch...@tiscali.it
> ha scritto nel messaggio
news:195Z239Z127Z2Y...@usenet.libero.it...
>                     Il 27 Ago 2005, 11:10, "Giuseppe"
<
gius...@roverenet.it
> ha scritto:
> > ciao a tutti,
> >
> > avrei bisogno che in una mascher adi input del tipo "gg/mm/aaaa" fosse
> > pre-impostato l'anno corrente.
> >
> > Sull'evento "su corrente" della maschera scrivo:
> >
> > Me.Data.InputMask = "00/00/" & Year(Date)
> >
> > ma la maschera di input di restituisce: __/__/2__5 questo perchè legge i
> > valori "00" dell'anno come __.
> >
> > Come posso fare?
> >
>
> Prova a fare cosi: inserisci sull'evento "Dopo Aggiornamento" del tuo
campo
> Data della form:
>
> Me.Data = Left(Me.Data, 2) & "/" & Mid(Me.Data, 3, 2) & "/" & Year(Date)
>
> Ciao
>
> > Grazie a tutti.
> >
> >
> > Giuseppe
grazie,
Il problema è che non è detto che la data sia quella dell'anno corrente, io
vorrei soltanto che la maschera lo proponesse, del tipo: __/__/2005 in
maniera da digitare solo le cifre del girno e del mese se la data ricadesse
nell'anno corrente altrimenti si procede a modifecare le cifre dell'anno.
Grazie ancora
Giuseppe


title: Numerazione in maschera continua

author: Angelo

text:
Ho utilizzato la numerazione proposta da Sib, in una maschera singola tutto
ok , nella maschera continua ho il problema che mentre inserisco i dati di
un record, nella riga successiva mi viene proposto lo stesso numero perchè
il record che stò inserendo ancora non è stato salvato e quindi dmax legge
l'ultimo valore memorizzato in tabella. Come posso fare per risolvere il
problema?
Vi ringrazio anticipatamente Angelo


title: Numerazione in maschera continua

author: Carlo Costarella

text:
"Angelo" <
ange...@tiscalinet.it
> ha scritto nel messaggio
news:V4QF8.70404$zW3.1...@news1.tin.it...

Salva prima il record: me.refresh e poi passa al successivo
Ciao, Carlo


title: Numerazione in maschera continua

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:WkRF8.60629$CN3.1...@news2.tin.it...

Scusami Carlo sono un principiante, siccome la funzione è sul valore
predefinito come faccio a salvare (su quale evento)e solo dopo passare al
record successivo? Appena inserisco un valore, access in foglio dati o
maschera continua prepara il record successio pronto per esserre riempito,
con già presente il valore predefinito.


title: Una query di raggruppamento e una Dsum

author: Ronny

text:
Ciao a tutti,
Ho la seguente tabella di dettaglio :
Nr.Scheda Operazione Importo Assoc. a ft nr.
1 AAA 10 57/2004
1 BBB 25 57/2004
1 CCC 10
3 AAA 15 58/2004
i dati li vedo in maschera continua (da una query di raggruppamento) in
questo modo :
Nr.Scheda Cliente Tot.Importo
1 pippo 45
3 pluto 15
Ora vorrei fare una colonna con importo fatturato in modo che venga :
Nr.Scheda Cliente Tot.Importo Tot.Imp.Ft.
1 pippo 45 35
3 pluto 15 15
praticamente l'importo fatturato è sempre quello della tabella dettaglio
scheda ma dove ho un numero fattura.
Ho provato con Dsum dalla query di raggruppamento ma su ogni riga mi riporta
il totale importo fatturato (in questo caso 50)
Si può fare con la Dsum a livello di query di raggruppamento ??? Mi fate un
esempio ?
Grazie mille e buon week.
Ronny
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Una query di raggruppamento e una Dsum

author: Roberto da casa

text:
"Ronny" <
cippilimerl...@spammercagoni.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...

Si, si può usando la funzione DSum: posta il codice SQL della tua query di
raggruppamento e poi vedremo come modificarlo per ottenere ciò che vuoi
usando una funzione DSum.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Una query di raggruppamento e una Dsum

text:
"Ronny" <
cippilimerl...@spammercagoni.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...

Ti riporto l'SQL della query che devi scrivere ovviamente ristretto ai campi
Nr. scheda e totale importo fattur (premettendo che il campo importo fattura
abbia tipo dati =numerico o valuta)
SELECT Tua_Tabella.Nr.Scheda, Sum(Tua_Tabella.Importo) AS Somma di tutti gli
importi
FROM Tua_Tabella
GROUP BY Tua_Tabella.Nr.Scheda;
Ciao e fammi sapere


title: Una query di raggruppamento e una Dsum

text:
> Si, si può usando la funzione DSum: posta il codice SQL della tua query di
> raggruppamento e poi vedremo come modificarlo per ottenere ciò che vuoi
> usando una funzione DSum.
Ciao Roberto ed innanzitutto grazie per la dispo, eccoti l'Sql della query :
SELECT an_clienti.ID, Sch_testa.nr_scheda, Sch_testa.dt_scheda,
Sch_testa.anno_scheda, Sch_testa.cliente, an_clienti.cognome,
an_clienti.nome, an_clienti.indirizzo_ft, an_clienti.località_ft,
an_clienti.provincia_ft, an_clienti.cap_ft, an_clienti.fiscale,
an_clienti.anamnesi, an_clienti.note1, an_clienti.note2, an_clienti.note3,
Sch_testa.nr_preventivo, Sch_testa.anno_preventivo, Sch_testa.dt_preventivo,
Sum(Sch_detta.importo) AS TotValore, First(Sch_testa.stato) AS PrimoDistato
FROM (an_clienti INNER JOIN Sch_testa ON an_clienti.codice_ft =
Sch_testa.cliente) INNER JOIN Sch_detta ON (Sch_testa.anno_scheda =
Sch_detta.anno_scheda) AND (Sch_testa.nr_scheda = Sch_detta.nr_scheda) AND
(Sch_testa.cliente = Sch_detta.cliente)
GROUP BY an_clienti.ID, Sch_testa.nr_scheda, Sch_testa.dt_scheda,
Sch_testa.anno_scheda, Sch_testa.cliente, an_clienti.cognome,
an_clienti.nome, an_clienti.indirizzo_ft, an_clienti.località_ft,
an_clienti.provincia_ft, an_clienti.cap_ft, an_clienti.fiscale,
an_clienti.anamnesi, an_clienti.note1, an_clienti.note2, an_clienti.note3,
Sch_testa.nr_preventivo, Sch_testa.anno_preventivo, Sch_testa.dt_preventivo;
Grazie mille



title: Una query di raggruppamento e una Dsum

text:
"Ronny" <
aaaa...@aaaa.it
> ha scritto nel messaggio
news:194Z130Z244Z250...@usenet.libero.it...

Ci sarebbe molto da discutere sul modo che hai usato per creare la query di
raggruppamento di cui sopra (mi restano poco comprensibili, ad esempio,
tutti quei campi di raggruppamento); per non perdere molto tempo ti rispondo
facendo riferimento a come hai posto il problema nel tuo primo messaggio.
Se i tuoi dati sono contenuti in una tabella chiamata Tabella1 che ha una
struttura simile a questa:
ID                 Contatore e chiave primaria
NrScheda      Testo
Operazione    Testo
Cliente           Testo
Importo         Valuta
FtNr              Testo
Ciò che ti serve dovresti ottenerlo con una query di raggruppamento che
abbia il seguente codice SQL:
SELECT Tabella1.NrScheda, First(Tabella1.Cliente) AS Cliente,
Sum(Tabella1.Importo) AS TotImporto, CCur(DSum("Importo","Tabella1","Not
IsNull(FtNr) And NrScheda ='" & [NrScheda] & "'")) AS TotImpFt
FROM Tabella1
GROUP BY Tabella1.NrScheda;
Se invece il campo NrScheda fosse di tipo Numerico prova con:
SELECT Tabella1.NrScheda, First(Tabella1.Cliente) AS Cliente,
Sum(Tabella1.Importo) AS TotImporto, CCur(DSum("Importo","Tabella1","Not
IsNull(FtNr) And NrScheda =" & [NrScheda])) AS TotImpFt
FROM Tabella1
GROUP BY Tabella1.NrScheda;



title: oggetto TreeView

author: mikehammer

text:
buona sera a tutti
ho un problema con il TreeView.
Ho modificato il codice da un file di esempi della microsoft
(Actctrls.mdb    Active X control sample database) in modo da
adattarlo alle mie esigenze. Dopo numerosi tentativi ci sono riuscito.
Poi ho copiato sia la maschera che il codice dal database di esempio
al mio database, ma non mi funziona più.
Ho verificato anche i riferimenti dei due database e sono gli stessi.
il messaggio di errore che ricevo e':
- errore di run-time: 13 tipo non corrispondente
e poi
- errore di run-time: 35602 la chiave non e' univoca nell'insieme
qui sotto il codice che da errore
Private Sub Form_Load()

    Dim objTreeView As Object, objListImage As Object, nodNew As Node
    Dim prg As Control, sbr As Control
    Dim intI As Integer
    Dim rstEmployees As Recordset, rstCustomers As Recordset,
rstAnagrafe As Recordset
    Dim db As Database

    Set objListImage = Me!FileImages
    Set objTreeView = Me!Treeview1
    Set db = CurrentDb

    ' Set TreeView control ImageList property
    objTreeView.ImageList = objListImage.Object
    objTreeView.Sorted = True

    ' Add top level node objects to TreeView control
    ' QUI SOTTO SI FERMA E DA ERRORE !!!!!!!
    Set nodNew = objTreeView.Nodes.Add(, , "Employees", "Employees",
"ManyClosed")
    nodNew.ExpandedImage = "ManyOpen"

    Set nodNew = objTreeView.Nodes.Add(, , "Customers", "Customers",
"ManyClosed")
    nodNew.ExpandedImage = "ManyOpen"

    Set nodNew = objTreeView.Nodes.Add(, , "Anagrafe", "Anagrafe",
"ManyClosed")
    nodNew.ExpandedImage = "ManyOpen"
........
cut
Grazie


title: apertura maschera se qry vuota..HELP.ME

author: giainoflower

text:
Salve a tutto il NG
mi sapreste dare un aiuto......PLEASEEEEE
il mio problema è questo:
come faccio a fare aprire una maschera se la mia qry è vuota o un'altra se
invece sono presenti dei dati nella qry???
ho già realizzato la maschera che mi occorre per filtrare la qry....e
testata la qry funziona ma non capisco come realizzare il resto.....ebbene
si sono un novellino...aiutatemi a crescere PLEASEEEE
Vi prego Aiutatemi non ci capisco più nulla...
ciao e Grazie 1000
giaino


title: apertura maschera se qry vuota..HELP.ME

author: Emyr

text:
On Fri, 25 Jan 2002 01:13:35 GMT, "giainoflower" <
gia...@galactica.it
>
wrote:

dim db as database
dim rs as recordset
set db=currentdb
set rs=db.openrecordset("stringa tua query")
dim a as boolean
a=rs.eof
set rs=nothing
set db=nothing
if a = true then
	docmd.openform "Maschera1"
else
	docmd.openform "Maschera2"
endif
Saluti.
Emanuele.


title: apertura maschera se qry vuota..HELP.ME

author: Alessandro

text:
"giainoflower" <
gia...@galactica.it
> wrote in message
news:3j248.3123$761.1...@twister1.libero.it...

Nell'EVENTO Click della Form che aprirà La Form:
Dim rs as Recordset, flEmpty as boolean
set rs=currentdb.Openrecordset("NomeQUERY")
flEmpty=rs.Bof AND rs.EOF
If flEmpty then
   Docmd.OpenForm .....'Query Vuota
Else
   Docmd.OpenForm......'Query non Vuota
End If
Alessandro./[@Alex]/
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Fincature su report su campi adiacenti ad altezza (autonoma) variabile.

author: NON emmedi PROVARCI @nemmenotin.itintesi? OneEDP

text:
Salve NG!
Ho la necessità di imitare un form completo di fincature orizzontali e
verticali.
Fino ad ora il problema non sussisteva perché il modulo era già prestampato.
Il modulo ora deve essere ricreato con qualche espediente.
Sulle fincature verticale che si pò fare?
Provando ad appiccicare i vari campi con bordi il risultato è deludente...
pensavo ad un passaggio con salto mortale in excel (o su word) ma penso che
c'è solo da infognarsi.
Qualcuno ha una dritta? Non vedo soluzioni semplici all'orizzonte.
Grazie.
Daniele