mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: calcolare 5 mesi 'interi'

Salve a tutti. In A97,
ho una query che estrae gli altri 2 informazioni:
[data_ingresso]
[data_uscita]
Dovrei creare un campo calcolato che visualizzi solo i record in cui la
permanenza (uscita-ingresso) č superiore a 5 mesi.
I 5 mesi non devono perň essere considerati come 150 gg, ma come ad es. dal
2 febbraio al 2 luglio, a prescindere dal numero di gg contenuti in un mese.
Per rendere le cose piů complesse il DB sul quale lavoro č stato prodotto da
una procedura VB e i campi di cui sopra non sono in formato data, ma testo
(!)
Qualcuno č in grado di aiutarmi?
Grazie a tutti in anticipo.
Giancarlo


Credo di aver risolto con la funzione DateAdd, giusto?
Giancarlo.

 (!)
L'ultimo problema non è un problema.
Cioè se c'hai una stringa di testo in formato valido per essere una data
cioè
"01-12-03" o "01/12/2003" e così via, quando la usi in un contesto di date
(esempio con funzioni sulle date) le trasforma lui in vere date.
Fermo restando che con CDate forzi il cambiamento di tipo.
Per il resto basta trasformare il ragionamento che faresti tu in un
algoritmo
se l'anno finale è uguale all'anno iniziale
  se mese finale - mese iniziale > 5 OK
  altrimenti
    se mese finale - mese iniziale = 5 allora
      se giorno finale >= giorno iniziale OK
      altrimenti NOK
    altrimenti NOK
altrimenti
  riapplica tutti i passi precedenti ma usando come mese finale
mesefinale+12
Tutto questo va scritto in una funzione che prende come parametri le due
date e restituisce quello che vuoi tu (OK e NOK per esempio)
Se non riesci a scriverlo tu, caso mai ci riprovo io...
Antonio

 Giancarlo
Dovresti raccontarci in quale forma una data è contenuta nei due campi di
tipo testo.
Ad esempio la data 1° luglio 2003 come è rappresentata?
01/07/2003
oppure
01072003
oppure
07/01/2003
oppure in altra maniera; insomma dicci come.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Giancarlo.


 permanenza (uscita-ingresso) è superiore a 5 mesi.
Ho preparato una Tabella1 con i campi:
cod     contatore
data1   testo di 8
data2   testo di 8
Ho riempito i campi con questi valori:
1      01022003       01072003   (cinque mesi esatti)
2      01022003       02072003   (cinque mesi meno un giorno)
3      01022003       02082003   (sei mesi meno un giorno)
Ho scritto questa query:
SELECT Tabella1.cod, Tabella1.data1, Mid([data1],1,2) AS giorno1,
Mid([data1],3,2) AS mese1, Tabella1.data2, Val(Mid([data2],1,2)) AS
giorno2, Val(Mid([data2],3,2)) AS mese2
FROM Tabella1
WHERE (((Val(Mid([data2],1,2)))>Val(Mid([data1],1,2))) AND
((Val(Mid([data2],3,2)))>Val(Mid([data1],3,2))+5)) OR
(((Val(Mid([data2],1,2)))<=Val(Mid([data1],1,2))) AND
((Val(Mid([data2],3,2)))>=Val(Mid([data1],3,2))+5));
e il risultato è che mi seleziona solo il primo e terzo record, come
desiderato.
Vedi se ti va bene.
Ciao
Riccardo
Newsgroup: it.comp.appl.access
Titolo: importare anche i gruppi in un nuovo db

Salve a tutti,
mi trovo nella necessità di dover importare tutti gli oggetti
(forms,query,report,macro) in un nuovo db per cercare di risolvere il
problema di un possibile db corrotto .. o almeno sulla buona strada
per esserlo...!!
Violevo sapere se e come è possibile importare anche i Gruppi con i
vari collegamenti agli oggetti!!
Grazie per le info


Cosa sarebbero i Gruppi che dici...?
Se ti riferisci alla gestione Utenti, direi che è esattamente il
contrario che devi fare, vale a dire creare un DB basato sul file MDW
già esistente...
COsa intendi...?
@Alex

 ha scritto nel messaggio 
news:e0e79c74-20a2-4a45...@s20g2000yqh.googlegroups.com...


@Alex
ma in questo caso dubito fortemente della corruzione di un mdw....
oh poi tutto può succedere...anche che il pc prenda fuoco improvvisamente! 
:-))
comunque nell'importazione se scegli avanzate - puoi importare relazioni ed 
eventuali barre...
ciao
-- 
Roberto da Parma 


Dimenticavo di dire che il mio file è un Mdb.
Per "Gruppi" intendo dire proprio i Gruppi...cosi sono chiamati nel
mio Access :-)
Sotto agli Oggetti (Tabelle,Maschere,Query,ecc) c'è una barra Gruppi
dove è possibile creare cartelle per inserirci i collegameneti dei
vari oggetti....giusto questo o no? :-)
Ora, dato che devo fare questa importazione su un nuovo db, queste
cartelle della Barra Gruppi non riesco ad importarle in automatico.
Dato che sono diverse cartelle con molti collegamenti (il db è
abbastanza ampio...) mi chiedevo se c'era un modo o devo per forza
ricrearle tutte manualmente!!
Spero di essere stato piu chiaro stavolta
Un saluto a tutti e un grazie per le risp

Newsgroup: it.comp.appl.access
Titolo: Ricerca Codice e Aggiornamento Maschera

VI PREGO AIUTATEMI o mio padre mi uccide :-)
Si tratta di un semplice DB per la gestione magazzino
ma io non ho ne esperienza ne tempo.... purtroppo.  :-)
La mia richiesta è un po' strana: siccome il DB
sara' usato da mio padre... (di DB ne sa quanto
un pittbull) avrei bisogno di un paio di dritte per renderlo
il  piu' semplice possibile.
Domanda n°1:
La ricerca del codice se possibile dovrebbe essere immediata,
quindi senza maschere aggiuntive (vedi ricerca STD di access)
Quello che ho in mente è di scrivere in una casella di testo vuota
il codice da cercare, un bottone associato oppure il tasto invio
avvia la ricerca e mi visualizza nella maschera tutti i campi riguardanti
quel record (se lo trova) oppure quello che piu' gli somiglia.
COSA NE PENSATE? SI PUO' FARE?
Domanda n°2:
Ho 2 campi che vengono moltiplicati, il risultato viene scritto in un altro
campo che vorrei si aggiornasse in seguito ad una modifica dei suddetti
valori (vedi "modifica e invio") fatta sul momento all'interno della stessa
maschera di visualizzazione.
COME CAVOLO SI FA?????????????? ho perso ormai una settimana
e non ci riesco.
C'è qualche anima buona mi aiuta?
Vi ringrazio anticipatamente
BIX

 ha scritto nel messaggio
news:a75oej$q8j$1...@pegasus.tiscalinet.it...

Forse per il primo problema basta una casella combinata...digiti i primi chr
dell'articolo e poi scorri....


Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Importa dati

Ho importato dei dati da un file di testo a larghezza fissa:
il campo "importo" è stato impostato automaticamente in "numerico", una
volta che lo trasformo in "valuta - euro" inserisce la virgola con 2 zeri
dietro, anzichè considerare le ultime due cifre (questo perchè nel file di
testo non è presente la virgola).
Es:   nel file di testo è presente  10521 ( ? 105,21) nel database 10521
(numerico) e 10521,00 (valuta ?).
Come posso fare??
Grazie

Forse il modo più facile, una volta importata la tabella, è fare una
query di aggiornamento. Selezioni la tua tabella, metti il solo campo di
importo e nella voce "aggiorna a" scrivi: [importo]/100. Ciao

 importo e nella voce "aggiorna a" scrivi: [importo]/100. Ciao
Va bene tutto, ma (e te l'han già detto) non è più facile fare doppio click
sulla riga che ti interessa e rispondere a quella?
Newsgroup: it.comp.appl.access
Titolo: Usare lo stesso recordset in maschere differenti

Grazie a Sunrex ho risolto il problema del filtro all'interno di un
recorset.
Apro un altro post perchè l'argomento è differente e perchè mi interessava
conoscere le modalità e la sintassi per
clonare un recordset e far si che questo nuovo recordset alimenti una nuova
maschera
In soldoni:
1) Ho la form MyFormA che prende i dati da una stringa SQL
    "SELECT * FROM MyTable WHERE [CampoA] = -1 ORDER BY NomeUtente"
2) Grazie ai vostri consigli, ho imparato a filtrare questo recordset
    Me.Filter = "[CampoB] = -1"
    Me.FilterOn = True
    Me.Requery
    Me.Refresh
La domanda è questa:
come si può utilizzare il nuovo recordset ottenuto in una nuova maschera
MyFormB senza specificare la stringa SQL?
Corregetemi se sbaglio ma adesso il recordset dovrebbe essere
"SELECT * FROM MyTable WHERE [CampoA] = -1 AND [CampoB] = -1 ORDER BY
NomeUtente"
ma vorrei passare, invece della stringa, il recordset attivo in MyFormA
Sto provando tentando di dichiarare
Dim rsClonato as DAO.Recordset
Set rsClonato = ???
Come posso settare rsClonato in modo che contenga il recordset di MyFormA?

> Come posso settare rsClonato in modo che contenga il recordset di MyFormA?
Sto provando così..
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    DoCmd.OpenForm "FormB"
    Set Forms("FormB").Recordset = rs
Ma non funzia...
Dove sbaglio?

 Dove sbaglio?
YEAH! Risolto...
Scrivere sul NG mette in moto i neuroni... :)
Ecco come ho fatto, era semplicissimo:
DoCmd.OpenForm "FormB"
Set Forms![FormB].Recordset = Forms![FormA].Recordset
Ciao.


[CUT]
Ciao vuLCan Karayan
secondo me sbagli approccio cioè filtri e rifiltri sempre lo stesso record.
Io faccio così di solito.
Mettiamo di avere una tblFilm (ma potrebbe essere anche una qry) tipo
IDFilm
Nome testo
Categoria testo
Disponibile si/no
La maschera principale frmA la collego alla tbl o qry che mi interessa.
Una prima serie di filtri la faccio sulla frmA usando combo o pulsanti di
opzione
Esempio di pulsanti di opzione (due pulsanti)
Private Sub OpzioniDiFiltro_AfterUpdate()
Select Case OpzioniDiFiltro
Case 1
OpzioniDiFiltro = 1
'Non disponibile
Me.RecordSource = "SELECT * FROM tblFilm WHERE Disponibile = 0"
Case 2
OpzioniDiFiltro = 2
'Disponibile
Me.RecordSource = "SELECT * FROM tblFilm WHERE Disponibile = -1"
Case 3
OpzioniDiFiltro = 3
'Tutti i film
Me.RecordSource = "SELECT * FROM tblFilm"
End Select
End Sub
Chiaramente la puoi fare più complessa.
Esempio utilizzando una combo da cui estrai dei valori per esempio le
categorie
Private Sub cmbCategorie_AfterUpdate()
Dim strSQL As String
Dim strFiltro As String
strFiltro = cmbCategorie.Value
strSQL = "SELECT * FROM tblA  WHERE Categoria LIKE '" & strFiltro & "*'
ORDER BY Nome"
Me.RecordSource = strSQL
End Sub
QUando hai individuato il record che ti interessa puoi aprire una popup con
il solo record per visualizzare i dettagli del film
che ti interessa tipo autore attori foto della locandina
ti dichiari in un modulo
Public intFilm As Integer
Private Sub cmdApriDettaglio_Click()
intFilm=IDFilm
DoCmd.OpenForm ("frmB"), , , "IDFilm = " & intFilm & ""
End Sub
Ciao
SunRex
Newsgroup: it.comp.appl.access
Titolo: Codici diversi -Win98,A2000-

All'interno della maschera Anagrafe ho un campo Codice che viene generato
automaticamente prendendo le prime due lettere  del campo Nome e Cognome.
Vorrei essere avvisato qualora questo codice fosse gia' esistente in un
altro record. Cosa posso fare?
Ringarzio anticipatamente

 altro record.
Non capisco se questo codice è un campo in una tabella o solo un campo
calcolato nella maschera. Per la prima variante:
BeforeUpdate del campo nella maschera:
If Not IsNull(DLookup("Codice ", "NomeTabella", "Codice = '" & Me!Codice &
"'")) _
  And Me!Codice <> nz(Me!Codice.OldValue) Then
    Beep
    MsgBox Me!Codice & " già esiste.", vbOKOnly, "Doppio!"
    Cancel = True
End If
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com


______
Basta indicizzare il campo impostando "duplicati non ammessi"
ciao Riccardo


Grazie di nuovo

Newsgroup: it.comp.appl.access
Titolo: Importare file txt in ACCESS con VBA

    Voglio importare la seguente tabella in formato txt in Access:
        Riga1 Riga2 Riga3
           1       2        3
           2       2        3
           3      2         3
    Grazie 

 ha scritto nel messaggio news:4684b065$0$4784$4faf...@reader4.news.tin.it...

Metodo TransferText (vedi help)...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio 
news:f62ea6$jvm$1...@tdi.cu.mi.it...

    Sto provando con la seguente riga di codice , ma mi da errore ?
        Private Sub Comando0_Click()
        Dim stAppName As String
     stAppName = "C:\LAVORO\QU\TABELLA02.txt"
     DoCmd.TransferText stAppName = acImportFixed
     End Sub
    Grazie 


Ciao
-- 
Roberto da Parma

 ha scritto nel messaggio 
news:4684fd81$0$4788$4faf...@reader4.news.tin.it...


    Grazie
Devi leggere la tipologia dei parametri da passare.
Il nome del file è in formato stringa quindi devi delimitarlo tra doppie virgolette (") o passargli una variabile stringa che 
contenga il nome del file:
DoCmd.TransferText acImportDelim, , "TABELLA02.txt",  "C:\LAVORO \QU\TABELLA02.txt"
(oppure)
Dim nomeFile as string
nomeFile = "TABELLA02.txt"
DoCmd.TransferText acImportDelim, , nomeFile,  "C:\LAVORO \QU\TABELLA02.txt"
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Maschere: proprietà "Visible" di un controllo.

Salve a tutti,
in una maschera (Tabulare) ho un controllo  collegato ad un campo (Memo) di
una tabella
che viene aggiornata da una query.
Può capitare che questo campo non contenga nulla, di conseguenza il
controllo collegato ad esso nella maschera, risulta vuoto.
Vorrei che se il controllo fosse vuoto lo stesso sia non visibile.
Nella proprietà "su corrente" della maschera ho inserito il seguente codice:
If Me.Controllo = "" then
me.Controllo.Visible = False
End If
...non funziona.
Suggerimenti ?
Grazie Luca

 ha scritto nel messaggio 
news:KORVe.61157$4g5.3...@news4.tin.it...

Nelle maschere tabellari una proprietà applicata ad un controllo, si 
riflette su tutti i record di quel controllo.
Se hai una versione superiore alla 97, puoi utilizzare la formattazione 
condizionale per cambiare almeno il colore del controllo.
Comunque il tuo codice andrebbe modificato così:
If isnull(Me.Controllo) or Me.Controllo =  "" then
me.Controllo.Visible = False
else
Me.Controllo.Visible = true
End If
Ciao, Carlo


Scrivi cosi' , a me funziona:
If IsNull(Me.Controllo) Then
    Me.Controllo.Visible = False
Else
    Me.Controllo.Visible = True
End If
Usa "IsNull" e poi metti la dicitura "Else" altrimenti una volta che trova
un record nullo, lui lo rende invisibile ma la proprieta' rimarra' settata a
"Non Visibile" anche per gli tutti altri records, anche quelli che hanno
qualcosa.
Ciao, Fammi sapere
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.appl.access
Titolo: Avvio maschera a pieno schermo

Ho fatto un programmino in access. Quando mando in esecuzione la maschera 
principale, questa (e le altre) non mi compaiono a pieno schermo. Come devo 
fare x impostare in automatico la esecuzione a pieno schermo?
Grazie,,
domenico
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
Share information about yourself, create your own public profile at 
http://profiles.msn.com
.
--
Posted from [193.204.185.24] by way of 
f252.law7.hotmail.com
 [216.33.236.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

usa docmd.maximize in caricamento della maschera
Saluti
Paolo


 domenico


 ha scritto nel messaggio
news:8rirla$r3h$1...@nread2.inwind.it...

usa il comando docmd.maximize in apertura della maschera.
ciao mario
Newsgroup: it.comp.appl.access
Titolo: Stringa caratteri senza spazi e con X

Buongiorno,
sono nuovo ad Access e avrei bisogno di fare la seguente operazione.
L'utente scriveil codice cliente a cui è associato un nome cliente per esteso. Di questo nome prendo solo 10 caratteri e tolgo gli spazi. Fin qui tutto bene. Vorrei però che contemporaneamente, se il nome è minore di 10 caratteri, si tolgano gli spazi e si mettano tante X per arrivare a 10.
Ad esempio:
 
Nome cliente: ABC 123 => ABC123XXXX
 
Riesco a fare le due funzioni, sostituzione spazi e scrittura delle X, separatamente, ma non riesco a comporle in un'unica istruzione.
 
Grazie in anticipo
 
 


left(replace(varnome," ","")&"xxxxxxxxxx",10)
o
left(replace(varnome," ","x")&"xxxxxxxxxx",10)
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

 
 
p.s.
se ci sono spazi in mezzo al nome che vuoi mantenere la precedente non 
va' bene


Vedi se questa funziona...
 
REPLACE(TuoTesto," ","") & STRING(10-Len(REPLACE(TuoTesto," ","")),"X")
 
Io Userei una Funzione:
 
Function FillText(StrIn As String, Optional TotLen As Byte = 10, Optional Char As String = "X")
    On Error GoTo Err_Handler
    Dim strOut As String
    If Len(StrIn) = 0 Then Exit Function
    If Len(TotLen) < 1 Then Exit Function
    If Len(Char & vbNullString) = 0 Then Exit Function
 
    strOut = Replace(StrIn, " ", vbNullString)
    strOut = strOut & String(TotLen - Len(strOut), Char)
    FillText = strOut
 
    Exit Function
Err_Handler:
    MsgBox Err.Number & vbNewLine & Err.Description, vbInformation, "FillText"
End Function
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: Collegare tabella SQL server

Ho cercato di collegare una tabella sql server 2005 ad access 2003 ma mi 
chiede per forza di usare odbc. Non ci sono altri modi?
Grazie. 

 Grazie.
Se vuoi Linkarle devi usare ovviamente ODBC...!
Se non vuoi linkarle ma vuoi accedere al DB puoi anche usare OLE_DB
per aprire una connessione ADO, cosa che però è meno performante visto
che Access poi converte in DAO in modo implicito.
@Alex

 che Access poi converte in DAO in modo implicito.
Non capisco allora perchè la libreria ado sia di default mentre la dao 
bisogna caricarla! Sembra che vogliano farti usare ado e poi convertono in 
dao? E come è possibile se dao uno non l'ha caricata?
Grazie.

 Grazie.
E' una discussione annosa che risale alla produzione da parte di MS
della versione A2000.... per la quale MS voleva spostare la strategia
di mercato su ADO con i progetti ADP, salvo poi ripiegare dalla
versione A2007.
In effetti solo con i progetti ADP(linkati a SQL_Server) l'uso di OLE
ed ADO è nativo senza il transito per JET, per i progetti MDB invece
la conversione implicita a DAO è nativa.
L'uso delle librerie di DAO non è obbligatorio, Access infatti nel suo
VBA ingloba per i processi nativi la conversione, sei tu che nel caso
in cui devi usare OGGETTI DAO come Recordset o Database o altri DEVI
inserire i riferimenti.
@Alex
Newsgroup: it.comp.appl.access
Titolo: Ricerca per anno

Ho una tabella che contenente + fatture di anni diversi devo ricercare tutte
le fatture di un dato ANNO (A1 č una data Esempio 19/03/2004).
Questa select mi segnala errore. Dove sbaglio e come posso fare?
Grazie
SELECT *
FROM Fattura
WHERE year(Fattura.data) = #" & Year(A1) & "#
ORDER BY [Fattura].[NumeroFattura];
In visual basic:
strquery = "SELECT * From Fattura WHERE year(Fattura.data) = #" &
Year(datafatt.Text) & "# ORDER BY Fattura.NumeroFattura"
Grazie

 ha scritto nel messaggio
news:vgz6c.77001$Kc3.2...@twister2.libero.it...

SELECT *
FROM Fattura
WHERE year(Fattura.data) = " & Year(A1)
ORDER BY [Fattura].[NumeroFattura];
In visual basic:
strquery = "SELECT * From Fattura WHERE year(Fattura.data) = " &
Year(datafatt) & " ORDER BY Fattura.NumeroFattura"
Ciao.
--
Sergio MAZZA

 > le fatture di un dato ANNO (A1 è una data Esempio 19/03/2004).


 Esempio tra 1/1/2004 e 10/2/2004 = 41 giorni.
[CUT]
Per prima cosa quando rispondi scrivi DOPO e non prima del testo dei
messaggi precedenti.
Poi, se devi selezionare le fatture dell'anno 2002 prova con:
SELECT *
FROM Fattura
WHERE year([Fattura].[data])= 2002
ORDER BY [Fattura].[NumeroFattura];
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 >
Segui il suggerimento di Roberto per quanto riguarda lo scrivere la tua
risposta.
Veramente la traduzione del mio suggerimento non č come l'hai scritta tu ma
č cosě:
ipotizzando che A1 = #31/12/2001#
"SELECT * FROM Fattura " & _
"WHERE year(Fattura.data) = " & Year(A1) & " ORDER BY
[Fattura].[NumeroFattura];"
Diventa:
"SELECT * FROM Fattura " & _
"WHERE year(Fattura.data) = 2001 ORDER BY [Fattura].[NumeroFattura];"
Secondo quesito:
datediff("d",cdate("1/1/2004"),cdate("10/2/2004"))
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Ancora operazioni su date

Come faccio a validare l'immissione delle date (una superiore
all'altra)
Ho provato con una cosa del genere,ma non funziona
Trovata nella guida di Access 2000:
Public Function convalida()
Dim strNomeTabella As String, strRegolaConvalida As String
Dim strMessErrore As String
Dim intX As Integer
strNomeTabella = "impiegati"
strValidoSe = "Data2 > Data1"
strMessErrore = "Immettere una data finale successiva alla data
iniziale."
intX = ImpostaConvalidaTabella(strNomeTabella, strValidoSe,
strMessErrore)
Function ImpostaConvalidaTabella(strNomeTabella As String, _
 strValidoSe As String, strMessErrore As String) _
 As Integer
 Dim dbs As Database, tdf As TableDef
 Set dbs = CurrentDb
 Set tdf = dbs.TableDefs(strNomeTabella)
 tdf.ValidationRule = strValidoSe
 tdf.ValidationText = strMessErrore
End Function
Inoltre il codice per attivare una checkbox in caso di data= o < alla
data odierna...
un consiglio?
Grazie

On Thu, 31 May 2001 07:58:16 GMT, 
borto...@tiscalinet.it
 (Max)
wrote:
Dopo una folgorante illuminzione mi è venuta in mente una soluzione
molto più semplice
Dopo l'aggiornamento
If Me!Data2 < Me!data1 Then
    MsgBox "Inserisci una data finale superiore alla data iniziale"
End If
Anche se non è una convalida vera e propria...(anzi se qualcuno posta
qualche riga efficace a tal proposito..)
Altro problema...con cui non so da che parte iniziare...
Se data2 è uguale o precedente alla data odierna una checkbox dovrebbe
cambiare in si
qualche suggerimento....
Grazie ancora...

 ha scritto nel messaggio
news:3b161050...@News.CIS.DFN.DE...

Come evento, anziché usare "Dopo aggiornamento" di un controllo usa l'evento
"Prima di aggiornare" della maschera. Con il codice VBA che andrai a
generare potrai effettuare in cascata tutte le verifiche di convalida che ti
servono; se una delle verifiche di convalida non viene soddisfatta, potrai
inviare messaggi di errore ed annullare l'evento di registrazione (Cancel =
True) e/o con Undo annullare le modifiche fatte nei controlli; potrai
inoltre spostare il fuoco sul controllo errato.
Un esempio di questa tecnica la trovi sul Sito Comune (link qui sotto),
Sezione Forms, nella FAQ di Federico Luciani intitolata "Confermare il
salvataggio dei dati".
Naturalmente dovrai sostituire la parte che scambia messaggi con l'operatore
con le righe di codice che effettuano le verifiche di convalida (e potrai
metterne quante te ne servono).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie.ho sfogliato diverse volte il sitocomune...mi sache devo stare
più attento, adesso faccio un giro e se ho problemi..mi faccio
risentire..grazie Ancora!
Max
Newsgroup: it.comp.appl.access
Titolo: come realizzare query

Salve,
ho 2 tabelle.
TabProd  con campi  IdProdotto, PrezzoAcquisto, PrezzoVendita
TabOperazioni  con campi  NumeroOperazione, IdProdotto, Quantità
Nella TabellaOperazioni  viene memorizzato quale prodotto è stato venduto
ed in quale quantità.
Es.   Prodotto         Quantita'
                   1                    3
                   2                    1
                   1                    2
Riesco a ricavare il guadagno per ogni singolo prodotto con la seguente
query:
select TabProd.IdProdotto
sum (TabOperazioni.Quantità)*(TabProd.PrezzoVendita -
TabProd.PrezzoAcquisto) as Guadagno
from TabProd, TabOperazioni
where (TabProd.IdProdotto=TabOperazioni.IdProdotto)
group by TabProd.IdProdotto
come posso fare per ottenere il guadagno complessivo (cioè la somma di
'Guadagno') ?
Grazie
 Simone

 'Guadagno') ?
in un controllo di maschera o report metti:
=dsum("Guadagno";"TuaQuery")
Sib

 'Guadagno') ?
Controllo calcolato con "DSUM" in una Form/Report

 ha scritto nel messaggio
news:Pugo8.78616$%g7.25...@twister2.libero.it...


Per non irritare l' NG tutto... la prossima volta scrivi DOPO il quoting.
Maurizio

Newsgroup: it.comp.appl.access
Titolo: data vuota

Qualcuno sa se è possibile e come fare una query sql che mi svuoti un campo
data, ovvero che mi lasci il campo in bianco?
Temo che non sia possible, ma se qualcuno ha un'idea...
grazie
Stefano

Temo che non sia possible, ma se qualcuno ha un'idea...
mah, questa dovrebbe funziona', vedi un po':
Update Tabella set CampoData = null
in sostanza setti il campo a Null.  a mano mi pare funzioni.
--------------------------------------------------
ATTENZIONE!
it.comp.database.access diventera' it.comp.appl.access!
cercalo tra i nuovi ng e linkalo!
-----------------------------------
rimuovere NOSPAM. per mandare email
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
Newsgroup: it.comp.appl.access
Titolo: criterio per query sbagliato

Ciao a tutti.
Ho creato la seguente query: "Query_Costi"  nella quale si trovano i campi
[Cantiere], [Geometra].
Volevo applicare al campo "Cantiere" un crieterio tale per cui lasciando
vuoto il box di riferimento nella relativa maschera, la query restituiva
tutti i record. Pertanto ho scritto:
Like IIf([Forms]![Consultazione totale]![cantiere] Is
Null;"*";[Forms]![Consultazione totale]![cantiere])
Questo criterio funziona quasi perfettamente, purtroppo però qunando
richiedo tutti i record, non vengono visualizzati quelli che hanno il campo
[cantiere] vuoto.
Dove stà l'inghippo? Spero di essere stato abbastanza chiaro
Ciao a tutti!

 ha scritto nel messaggio
news:Jzulc.166469$Kc3.5...@twister2.libero.it...

Questa cosa scrivila sotto un campo calcolato fatto così
nz([cantiere];"-")
Antonio

Newsgroup: it.comp.appl.access
Titolo: casella di riepilogo tornare al primo elemento

buongiorno a tutti
 
con questo codice deseleziono tutti gli elementi che avevo selezionato in una casella di riepilogo, il problema è che resta selezionato l'ultimo elemento in fondo alla casella di riepilogo, qualcuno sa dirmi che istruzione usare per dare il focus al primo elemento alla fine del ciclo for? Grazie.
 
 
***
    Dim iCount As Integer
    For iCount = 0 To Me!ElencoTombini.ListCount
        Me!ElencoTombini.Selected(iCount) = False
    Next iCount
***

Il primo:
 
Me!TuaCasella = Me!TuaCasella.ItemData(0)
 
@Alex


è rimasto all'ultimo anche se un bordo tratteggiato risalendo a mano con la barra verticale è effettivamente sul primo elemento 
sempra che lo seleziona ma non riporta su i valori resta all'ultimo in fondo.
 
boo.


Stranissimo...
Prova ad aggiungere
 
Me!TuaListbox.Selected(1) = True
 
@Alex


confermo solo questa riga sostuita alla precedente funziona e si posiziona sul secondo elemento
quindi ho messo Me!TuaListbox.Selected(0) = True e si posiziona correttamente sul primo
 
grazie.

 grazie.
 
Mmmmm verifica con un Debug, se, oltre a VEDERE SELEZIONATO il 1° Item, effettivamente il Valore della ListBoc si è aggiornato al Valore del 1° o se è rimasto il valore precedente...
Qualche cosa non torna.
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: installazione Runtime XP su pc con win95 e Office 97 .. problemi

Ciao a tutti,
ehm... ho riscontrato un problema che mi ha "incastrato" cioč non ha fatto
funzionare il db su alcuni PC.
Ho sviluppato il tutto con Office XP Developer, ho creato il pacchetto di
installazione comprendendo il Runtime e dividendo il db in FE e BE.
Funziona ovunque meno che su quei PC e appare la seguente scritta:
"Impossibile trovare la DLL Mso 7 rt
impossibile utilizzare l'opzione/runtime della riga di comando a meno che
non sia stato installato Microsoft Office 97 Developer Edition tools"
Come ne esco? Ne sapete qualcosa?
Grazie tantissime,
Alessio


Non è possibile usare un runtime Xp su win 95.
Stefano (kabisa)
Newsgroup: it.comp.appl.access
Titolo: VIsualizzazione messaggi

Ciao sapete dirmi perchè nonstante abbia messo il messaggio
DoCmd.SetWarnings False
nell'istruzione VBA, a volte mi viene posta la stessa domanda, ad es., "La
query di AGGIORNAMENTO che sta per essere eseguita modificherà i dati
nella tabella.Eseguire query di comando?SI  -  NO  -  ANNULLA"?
Ciao Grazie
Carla

 ha scritto nel messaggio
news:iA5_b.6247$gk.3...@news3.tin.it...

Probabilmente lo hai riattivato prima di eseguire la query...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: pulsante che non funziona sotto acc.runtime2010

Ciao,
ho creato una maschera in access2003. su questa maschera ho messo un
pulsantone con questo codice:
Private Sub avanti_Click()
On Error GoTo Err_avanti_Click
    DoCmd.GoToRecord , , acNext
Exit_avanti_Click:
    Exit Sub
Err_avanti_Click:
    MsgBox Err.Description
    Resume Exit_avanti_Click
End Sub
che mi porta avanti di un record. funziona correttamente.
su un'altro PC ho installato accessruntime2010, tutti i pulsanti e report
della maschera funzioano ma quel pulsante no. si comporta come se fossi
all'ultimo record e cercassi di avanzare di uno e mi dice che non si pu�
fare.
come mai? dipende dalle versioni diverse? ci sono problemi simili noti?
grazie ciao
t.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Ho anche io un problema simile, stavo per postare anche io.
Il mio problema è il seguente: su una maschera c'è un pulsante che
prima di aprire un report ha un'istruzione del tipo:
If isnull(me.nomecampo) then
me.nomecampo.value="Aperto"
end if
in pratica se il campo è vuoto viene scritto come valore "Aperto",
serve per filtrare poi i record in un secondo momento.
Su un PC in particolare questa operazione non viene eseguita, il punto
strano è che all'interno della routine relativa all'evento click del
pulsante, ci sono molte istruzioni, fra le quali l'apertura di un
report che va a buon fine.
Altro problema della mia maschera è che ci sono dei campi che devono
assumere dei valori predefiniti che non vengono compilati, ma solo da
quel PC che ha una versione di Office uguale ad altri sul quale non si
verificano questi problemi.
Grazie in anticipo per l'eventuale aiuto.
Ciao

 Ciao
mi consola il fatto che non sia un problema solo mio.
non so se può essere utile: tutte e due le macchine che uso (sia quella
con l'access2003 sia quella con access runtime 2010 sono xp sp3. magari
non c'entra nulla... magari no... chi lo sa? speriamo che qualcuno ci
venga in soccorso
ciao ciao 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Non so se può esservi utile ma io ho messo un mio semplice gestionale
in rete e ogni tanto qualcuno mi contatta perché qualcosa non funziona
e spesso sono proprio i pulsanti. Io pensavo fosse legato all’utilizzo
di macro ma da quello che dite mi pare che non ci sia una regola…
Newsgroup: it.comp.appl.access
Titolo: Testare il valore NULL è possiblie ?

Vorrei applicare un filtro soltanto se una check box è di valore True
o  False mentre se ha valore Null non vorrei applicare nulla ma :
If checkbox.value <> Null  Then .........
mi da sempre valore falso, qualunque sia il valore della checkbox.
Qualche consiglio ?
Grazie
Stefano Silvi

 ha scritto nel messaggio
news:+bs4OdQfSG4Bvu...@4ax.com...

if isnull(me.miocontrollo) then ...
ma sei sicuro di dover controllare se un checkbox ha valore nullo?
Ciao
Silvio


Mi serve per la query: check cliccato cerco i valori true, check non
cliccata cerco i valori false e check null non controllo questo campo.
Hai quelche altra idea per ottenere questo ?
Grazie per l'aiuto
Ciao 
Stefano

 Hai quelche altra idea per ottenere questo ?
Dunque, partiamo dal presupposto che un checkbox non dovrebbe essere null
(uso il condizionale) e per fare ciň basta mettere come valore predefinito
Vero o Falso, a seconda delle tue esigenze, nel controllo nella maschera (e
ti togli il problema sopra esposto).
Altrimenti, se le alternative fossero tre (quelle che tu vorresti testare
con vero, falso e null), userei un gruppo opzioni con tre pulsanti opzione e
mi andrei a controllare i valori di questi.
Se, invece, non vuoi cambiare, usa nei criteri della query, in riferimento
al campo opportuno:
- is null se cerchi solo i valori nulli
- not is null se cerchi solo i valori non nulli
Ciao
Silvio

Qualche consiglio ?
if IsNull(checkbox.value)  Then .........

 cliccata cerco i valori false e check null non controllo questo campo.
Non vorrei dire cacchiate, ma se si tratta di un campo del tipo Si/No, questo
non puo' avere valore Null, di default e' sempre False (a meno di impostare a
True come valore predefinito).
In ogni caso, se non ti interessa conttrollare il campo, evita di impostarci un
criterio!
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: OrderDateFrom - OrderDateTo

 
Buona sera 
 
è normale che per avere il risultato della ricerca  tra due date su una maschera  devo immettere il formato data  con Mese/Giorno/Anno
invece del normale nostro Giorno/Mese/Anno ?
 
le due caselle di testo hanno formato Data in cifre (12/11/2015) 12 novembre 2015.
 
l'istruzione del pulsante Search è questa :
Sub Search()
Dim StrCriteria, task As String
 
Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
    MsgBox "Prego inserisci date range", vbInformation, "Date range richieste"
    Me.OrderDateFrom.SetFocus
 
Else
 
    StrCriteria = "([DataSpedizione] >= #" & Me.OrderDateFrom & "# and [DataSpedizione] <= #" & Me.OrderDateTo & " #)"
    task = "select * from AMRTblCostiOrdini where (" & StrCriteria & ") order by [DataSpedizione]"
    DoCmd.ApplyFilter task
    Me.TxtTotal = FindRecordCount(task)
 
End If
 
End Sub
 
Grazie 
Giuseppe

Ovviamente Si, JET usa accezione anglosassone.
 
@Alex

 @Alex
 
Ma allora perché nelle proprietà delle caselle testo nel formato posso scegliere Data estesa,Data Breve,Data in cifre , e sono nel formato 
giorno mese anno (12/Novembre/2019) 
c'è un sistema per far funzionare l'accezione italiana ?
 
Ciao 
Giuseppe  

 Giuseppe
 
Stai dicendo una cosa che non ha nulla a che vedere con il dato reale, ed erronea di concetto...!
 
La Proprietà FORMATO agisce SOLO sulla visualizzazione del dato non sul valore dello stesso che invece rimane inalterato...
Interfaccia Utente(Maschere ecc...) sono condizionate dai Regional Settings, mentre i dati nel Database sono altra cosa, ed il database ha l'accezione anglosassone.
 
@Alex

Buongiorno 
 
Tutto bene  
ma perché  se io inserisco la data  iniziale in formato anglosassone  10/01/2019 ( ottobre 1 2019 )  e la data finale  10/31/2019 ( ottobre 31 2019)
dopo il Search la data finale cambia automaticamente e diventa 31/10/2019 ovvero accezione Italiana .
 
c'è una spiegazione ?
 
puoi vedere il risultato :
https://we.tl/t-80ycrrhUY5
 
 
Saluti 
Giuseppe
 


Perchè non hai capito quello che ti ho spiegato, e non c'era nulla da studiarem e continui a confondere JET con l'interfaccia(form).
 
La spiegazione è sempre quella data sopra.
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: file ACCDE (Errore 40230)

Salve. Vi è capitato questo errore?
Me lo dà sulla creazione del file ACCDE.
Uso Win 7 Con Access 2010.
In un altro PC uso Win 8 Access 2010:
qui crea il file ACCDE e lo legge.
 
Una volta copiato questo file sul PC Win 7
NON apre il file! mi dice che devo cancellare il VBA
e altre fesserie non vere!


MA LA SECONDA domanda è più inquietante!
Ho eseguito la procedura indicata da Karl
.......
........ Ma allora a che serve creare il file ACCDE?...
Newsgroup: it.comp.appl.access
Titolo: Copiare dati da Access a Word

Buonasera a tutti,
vorrei sapere come trasportare dei dati presenti in una query di access
in un foglio Word. Ho fatto una sorta di diario giornaliero di lavoro e
vorrei salvare i dati in un file .doc attraverso una macro di
Access2000.
Dove posso reperire tali informazioni e magari uno script ad hoc ???
Chi mi puo' dare una mano ???
Grazie per l'attenzione Ciccio.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Sull'help dai uno sguardo al Metodo OutputTo.
Se poi invece di VBA preferisci usare le macro, sull'help dai un'occhiata
all'azione OutputSu.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Aggiungo al suggerimento di Roberto anche un giro su www.sitocomune.com...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Maschere continue che si muovono!

Il mio problema e' semplice ma non riesco a risolverlo:
Ho una maschera che contiene una sottomaschera settata a maschere continue.
In questa sottomaschera ho un campo si/no
faccio un esempio:
prima                         dopo
1 errrr no                   2 tttttt  si
2 tttttt  no                   3 trtrtt  no
3 trtrtt  no
se io metto il visto nella seconda riga e passo in un'altra maschera,
ritornando nella precedente non mi vengono visualizzati i tre record ma solo
il secondo e il terzo. La maschera continua scala cioe' di una o piu'
posizioni in alto a seconda della posizione in cui metto il visto.Per cui
sembra che manchi un record!
Ho provato a fare me.refresh o me.requery, ma non cambia niente.
C'e'  qualcuno che puo' aiutarmi??
grazie e spero di essere stato abbastanza chiaro!! :)

 ha scritto nel messaggio
news:8rk8h2$4k7$1...@nslave3.tin.it...


Newsgroup: it.comp.appl.access
Titolo: ricerca stringa ...

so che molti saranno in ferie, ma  se qualche anima pia mi potesse dire xč
non mi funzia piů questa sintassi, mi darebbe un grande aiuto.
E' il criterio x ricercare nella  qrytblscadenze del testo passato tramite
il controllo testodacercare.
[Maschere]![Visualizza scadenze]![testodacercare] Like "*" &
[qrytblscadenze].[tipologia] & "*"

 ha scritto nel messaggio
news:bs94kg$g9g$1...@news.flashnet.it...

Ciao ciroteo
prova  con: Forms![Visualizza scadenze]![testodacercare] Like "*" &
[qrytblscadenze].[tipologia] & "*"
Ciao Daniele

 ha scritto nel messaggio
news:ZJbGb.2309$VW.8...@news3.tin.it...

grazie e auguri!
Newsgroup: it.comp.appl.access
Titolo: trovare una data in una stringa

 End Sub
Potrei non aver capito il tuo problema, ma una data contenuta all'interno di
un campo di tipo Testo o di tipo Memo chiamato Note è comunque una stringa
di tipo Testo contenuta all'interno di un campo di tipo Tetso o Memo, quindi
sarà come ricercare all'interno del campo Note una qualsiasi altra striga;
io quindi non crerei funzioni utente particolari per effetuare la ricerca ma
utilizzerei l'operatore Like (vedi help) o la funzione intrinseca InStr
(vedi help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:BsQTb.11887$U4.4...@twister1.libero.it...

Roberto, lui non deve cercare una particolare data ma stabilire se
all'interno c'è una stringa che può essere una data valida.
Pertanto dovrebbe ciclare su tutte le singole "parole" (parola = stringa di
caratteri compresa tra due spazi) e applicare la funzione isdate e vedere se
ad un certo punto ritorna true.
Antonio

Newsgroup: it.comp.appl.access
Titolo: ultimo record nella sottomaschera

ciao a tutti
ho machera con due caselle combinate con sottomaschera.
La sottomaschera è collegata alle due caselle combiante
tramite collega campi master e secondari Id;data
come le due combo.
 
la sequenza è la seguente:
seleziono la prima casella combinata dove ho l'id
poi la seconda dove ho la data.
 
Con la selezione della data la sottomaschera si attiva sul primo record,
mentre io vorrei che mi mostrasse l'ultimo.
 
Grazie
 
 
 

Usa il metodo GotoRecord, leggi la guida...
 
Sub GoToRecord([ObjectType As AcDataObjectType = acActiveDataObject], [ObjectName], [Record As AcRecord = acNext], [Offset])
    Membro di Access.DoCmd
 
 
@Alex

CUT.....

Grazie @Alex

Newsgroup: it.comp.appl.access
Titolo: SetFocus

Salve a tutti,
non riesco a settare il fuoco su un campo defiito, all'apertura di una
maschera.
Nell'evento della maschera ho inserito il seguente codice:
forms!miamaschera!miocampo.setfocus
cosa sbaglio? Qual'è la procedura corretta?
Grazie, Filippo.

 cosa sbaglio? Qual'è la procedura corretta?
Potresti anche andare in Visualizza-Ordine di Tabulazione e mettere come
primo controllo da tabulare miocontrollo
Antonio


Per non riesco intendevo che non funzionava, nessun messaggio di errore, ho
provato ad inserire solo [campo].setfocus come mi hai suggerito ed
effettivamente funziona, non so come mai inserissi tutto il percorso, mi
sembrava di ricordare che si usasse così, forse però non dall'evento della
stess maschera.
Grazie Antonio, Filippo.
Ops, per sbaglio ti ho risposto privatamente e non nel newsgroup.

 Ops, per sbaglio ti ho risposto privatamente e non nel newsgroup.
Sì ho visto...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Sessini multiple su stesso pc

Non vorrei fare una domanda troppo stupida...ma ho un dubbio!
Vorrei aprire più sessioni dello stesso database sullo stuesso pc.
Ma dopo avere aperto la prima, tutte le altre non sortiscono effetto
alcuno se non richiamare la finestra di database già aperta.
Come mai non si riesce?
A dire la verità mi succede con qualsiasi file di office!!!
E se voglio aprire 10 volte lo stesso file??????
Grazie...e scusate per la domanda forse un po' banale!!
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ciao
Dopo aver aperto la prima istanza del db, per le successive invece di
cliccare sul file mdb apri prima access da solo e poi seleziona 'apri
database esistente'.
Ciao.
-Marco-
-- 
namor at inwind punto it


 -Marco-
Già provato ma non mi apre più nient'altro che la sessione corrente!
Da te funziona?
-- 


 Da te funziona?
Si, funziona.
Riporto i passi:
- apro una prima volta il db con doppio click sul file mdb
- apro access (Avvio-Programmi-Access)
- scelgo 'apri file esistente' e indico lo stesso file mdb di prima
Ripeto altre 2 volte gli ultimi due punti e ho a video quattro istanze
dello stesso mdb.
Ciao.
-Marco-
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 


Marco Pizzamiglio ha scritto:






 Sì scusa avevi ragione....sbagliavo io a non aprire access nuovamente ma
facevo apri file all'interno della stessa vecchia sessione.
Ovviamente ora funziona!
Grazie ciao
-- 

Newsgroup: it.comp.appl.access
Titolo: controllo presenze. strumenti identificativi,consiglio

ciao.
mi trovo a voler creare un db per la gestione delle presenze del lavoro.
mi trovo nel dubbio su che strumento usare per identificare la persona 
che sta immettendo i dati.
per ora ho pensato a
- badge (comodi ma possono essere prestati)
- lettore di impronte digitali (ho visto modelli da 40 euro, ma sono 
affidabili? o è meglio andare su quelli che costano 200 euro?)
- barcode personale(in questo modo l'utente si deve impegnare un pochino 
di più per fregare il programma e quindi funzionerebbe da deterrente,è 
comodo e impossibile da ricordare a vista)
Voi quale mi consigliereste?

[omissis]
In questo newsgroup parliamo di Access, in tutte le sue sfaccettature, quindi 
il tuo post è completamente off-topic.
Se proprio non sai resistere alla tentazione di scrivere senza sapere dove 
ti trovi, almento facci la cortesia di inserire un bel "[OT]" nel subject 
del post.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

"Silver" <cra...@TOGLIhotmail.com> ha scritto nel messaggio news:QOsbg.4682$mJ1...@tornado.fastwebnet.it...

Tenendo presente il consiglio di Gabriele, ti rispondo per portare l'esperienza che sto vivendo nell'Ente dove lavoro.
Il modo di "fregare" il programma esiste sempre:
- se hai la vigilanza privata e ti fai amico uno dei vigili (specie se porti bene la minigonna!) hai accesso libero in entrambe le 
direzioni (entrata/uscita);
- se hai dei badge per visitatore, io entro e dichiaro di "averlo scordato a casa" e mi faccio fare il badge da visitatore quindi 
non risulto essere entrato in ritardo o uscito per fare i cacchi miei;
- se sei amico (o hai sempre una predisposizione ad abbigliamento "corto" o trasparente) hai sicuramente con te il badge da (come lo 
chiamiamo noi) "fantasma" regalato dal collega con la bava alla bocca;
- con lo stesso badge "fantasma" puoi fare "il trenino" perché i sensori non si sognano di chiudersi all'improvviso rischiando una 
causa all'Ente;
e se proprio sei sfigato passi dall'entrata principale senza "badgiare".
Lascia stare che è tempo perso...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Problemi con Evento: prima di aggiornare

Ciao a tutti. Nel database che sto realizzando ho una maschera con tre campi
di cui uno č la differenza del contenuto (numerico) degli altri due. Vorrei
ottenere un messaggio di segnalazione quando questa differenza č negativa.
Ho provato con una semplice macro che genera una msgbox ma funziona solo
dopo l'aggiornamento. Nel senso che se all'evento "Dopo aggiornamento"
associo la macro tutto funziona corretamente. Perņ se la macro la associo
all'evento "Prima di aggiornare", viene comunque attivata solo dopo che il
contenuto della casella č cambiato. Io avrei invece bisogno che il messaggio
compaia anche appena si apre la maschera (sempre che la condizione <0 sia
verificata). Dove sbaglio? Grazie.

 ha scritto nel messaggio
news:af1sil$hbt$1...@lacerta.tiscalinet.it...


 wrote in message
news:af1sil$hbt$
1...@lacerta.tiscalinet.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao a tutti. Nel database che sto realizzando ho una maschera con tre campi

Metti la macro sull'evento SU APERTURA ma della maschera (clic destro
sulla form) quindi apertura della form
Oppure usa questo codice se vuoi (sempre su apertura della maschera)
Il codice:
-----------------------------
Private Sub Form_Open()
   DoCmd.RunMacro "nomemacro"
End sub
------------------------------
oppure:
(togli la macro e scrivi tuo codice)
------------------------------
Private Sub Form_Open()
If (Me.nomecampo.value= <10) Then
 
  MsgBox "Attenzione. Messaggio desiderato
qui.",vbApplicationModal+vbExclamation+vbOKOnly
  'sostituisci il messaggio fra le doppievirgolette con il tuo :-))
End if
------------------------------------
Sostituisci <10 con il mone del tuo controllo desiderato.(il terzo...?)
Ciao , Fabrizio yQy :)


Newsgroup: it.comp.appl.access
Titolo: Filtro

Ho incontrato problemi nella realizzazione di un filtro multiplo
Seleziono da una finestra un elenco di professioni,
passo l'ID selezionato al  where  della finestra da aprire ( fin qui tutto
bene ), avrei pero' la necessita di aggiungere nella prima finestra la
ricerca per cittò  oltre la ricerca x professione.
myPer = Forms!Maschera1.sceltaProfessione.Value
DoCmd.ApplyFilter , "[perfezionamentoID]=" & [myPer]
per fargli digerire il parametro proveniente dlla finestra Maschera1 devo
impostare il where nel seguente modo ,
"[perfezionamentoID]=" & [myPer]   perchè nella forma "[perfezionamentoID]=
[myPer] " non mi vede il parametro passato
gradirei un consiglio mi sto incartando :(
grazie mille a tutti

"[perfezionamentoID]=" & [myPer]  & " [citta] = " & [controlloCitta]

< "[perfezionamentoID]=" & [myPer]  & " [citta] = " & [controlloCitta]
ho provato, ma genera errore(missiong operator in query expression o provato
a questo punto ad inserire
"[perfezionamentoID]=" & [myPer]  & "AND" &  " [citta] = " &
[controlloCitta]
ma a questo punto mi chiede il parametro xControlloCitta
avete qualche idea ?
grazie :((
:)