mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Maschera complicata

Ciao a Tutti
Ho una maschera  Rsv1  (origine record Query   GruppoTavoleRsv)
una sottomaschera StmRsv1 (origine record Query   GruppoRsv)
+ una casella ri riepilogo, ElencoTavole.(origine riga Query
GruppoTavoleRsv)
per l'evento su clic della casella riepilogo ho la seguente macro:
MostraOgniRecord,
        EcoSchermo,
        VaiAControllo   Nome controllo Tavola
        TrovaRecord     Trova =[Elenco Tavole]
+ un controllo Immagine  ( dove vengono visualizzate le tavole )
il campo che collega la maschera Rsv1 con la sottomaschera StmRsv1 è il
campo Tavola
+ una casella di testo Path  con origine controllo Path e associato
all'evento dopo aggiornamento
la seguente routine:
Private Sub Path_AfterUpdate()
On Error Resume Next
Me![Immagine].Picture = Me![Path]
End Sub
Nella maschera Rsv1 ho la seguente routine per l'evento su corrente
Private Sub Form_Current()
On Error Resume Next
Me![Immagine].Picture = Me![Path]
End Sub
Impostando un valore della casella riepilogo riesco a filtrare i dati
della sottomaschera che così sono sincronizzati con la rispettiva tavola ,
ad ogni nuovo valore della casella riepilogo corrisponde una nuova tavola
dal controllo immagine e un nuovo filtro per la sottomaschera.
Ora il mio problema è questo per aprire questa   maschera da un pulsante di
comando
ho applicato una macro Apri
con Nome maschera  : Rsv1
condizione WHERE : [Tavola]="1" ,2,3, ecc.. ecc. a  seconda della tavola da
aprire
Ma  per  poter aprire sempre la stessa maschera  con delle origini record e
origini riga
diverse a seconda  della query che voglio,
come devo fare ??
Può darsi che non sia stato troppo chiaro ,ma il concetto è che vorrei poter
visualizzare da un unica maschera tutti i  cataloghi disponibili senza fare
per ogni catalogo una maschera
Grazie anticipato a chi mi  saprà aiutare
Ciao Giuseppe

 ha scritto nel messaggio
news:GjN99.4055$ub2....@news1.tin.it...

Credo che prima di tutto devi costruire una maschera con un controllo
"Gruppo opzioni" più un pulsante di comando.
Metterai tante opzioni quante sono le tavole. Inserirai inoltre un controllo
nascosto (Visible = False).
Su click del gruppo di opzioni scriverai:
Select Case Me.GruppoOpzioni
Case 1
me.ControlloNascosto = 1 'o il valore che ti identifica la Tavola
Case 2
Me.ControlloNascosto = 2
Case 3
...
End Select
Su click del pulsante di comando che ti apre la maschera scriverai:
Select Case Me.ControlloNascosto
Case 1
DoCmd.OpenForm "TuoNomeMaschera"
Forms!TuoNomeMaschera.RecordSource =
"TuaQuerySalvataConTavolaUgualeAControlloNascosto"
Forms![TuoNomeMaschera]!TuoNomeFormSottomaschera.Form.RecordSource =
"TuaQuerySalvataCorrispondente"
Forms!TuoNomeMaschera.Requery
Forms![TuoNomeMaschera]!TuoNomeFormSottomaschera.Form.Requey
Case 2
...come sopra, cambiano solo i nome delle query
End Select
Come vedi tutto ruota intorno alla prima scelta del gruppo di opzioni e al
valore che assume il controllo nascosto.
Funzionerà se i nomi dei campi delle tabelle sono uguali. In caso contrario
dovrai impostare la proprietà "ControlSource" per ogni controllo sulla
maschera e la cosa è parecchio complicata.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: IVA Telematica Xml

 
L'elemento <Modulo> è definito nelle specifiche con periodicità 1 ... 5
 
Non capisco per quale ragione: nel caso di liquidazioni mensili, verranno 
generati 3 Righe Modulo.
Mentre per Liquidaz. Trimestrali, un solo Modulo.
 
Qualcuno ci sta lavorando?  (BFS, se ci sei batti un colpo!)
 
Saluti. 
 
 


Modulo
 
Per ciascuna liquidazione periodica deve essere compilato un distinto 
modulo della presente Comunicazione, compilando
il campo “Mod. N.” posto in alto a destra nel quadro VP. Pertanto, i 
contribuenti che effettuano:
 
• esclusivamente liquidazioni periodiche mensili, devono compilare un 
modulo per ciascun mese del trimestre;
 
• esclusivamente liquidazioni periodiche trimestrali, devono compilare 
un unico modulo per il trimestre;
 
• sia liquidazioni mensili che trimestrali (in caso di contabilità 
separate), devono compilare un modulo per ciascun mese e
un modulo per il trimestre (nel particolare caso di anticipazione, ai 
fini compensativi dell’imposta, della liquidazione perio-
dica trimestrale in coincidenza con quella relativa al terzo mese di 
ogni trimestre solare si rinvia alle istruzioni di cui al pun-
to B) del paragrafo “Contribuenti con contabilità separate”).
 
 
leggendo qui io ho capito che in condizioni normali i moduli sono sempre 
tre per chi ha inva mensile e uno per chi ha iva trimestrale
 
 
si sa niente di come vanno scritte le prime righe dei vari xml? non c'è 
ancora alcun file di esempio in giro
ciao
 
 

 ancora alcun file di esempio in giro
 
 
Niente di niente: troveremo i primi esempi dopo il 31/05
 
Saluti da Simone
 
 
 
 

Saluti da Simone 
 
Ho trovato questo esempio in un forum di programmatori. Posto solo la prima parte.
Risulta anche a voi che debba essere così?
 
<?xml version="1.0"?>
<iv:Fornitura xmlns:ds="
http://www.w3.org/2000/09/xmldsig#
" xmlns:iv="urn:www.agenziaentrate.gov.it:specificheTecniche:sco:ivp" xmlns:xsi="
http://www.w3.org/2001/XMLSchema-instance
" xsi:schemaLocation="urn:www.agenziaentrate.gov.it:specificheTecniche:sco:ivp FornituraIvp_2017_v1.xsd">
	<Intestazione>
		<CodiceFornitura>IVP17</CodiceFornitura>
	</Intestazione>
[...]


credo tu l'abbia trrovato qua
https://www.iprogrammatori.it/forum-programmazione/programmatori/file-liquidazione-iva-periodiche-t31087.html
 
 
ma non credo sia corretto
 
BFS
Newsgroup: it.comp.appl.access
Titolo: Messaggi di errore su campo chiave

Salve,
Nel mio Access 97 se tento di inserire un valore duplicato in un campo
chiave compare la descrizione dell'errore, ma in inglese. Come posso fare
per farla comparire in italiano?
Grazie.
Max

 wrote in message
Gnzm6.7732$Y93.1...@news.infostrada.it...

Prima di salvare il record, per esempio sull'evento dopo aggiornamento del
controllo associato al campo chiave, vai a testare se è un duplicato. In
quel caso mandi il tuo messaggio in italiano all'utente e annulli
l'inserimento di quel valore!
Antonio
P.S.
Soluzione 2: installi Access in italiano

 wrote in message
g3Cm6.10790$Y93.3...@news.infostrada.it...

Ho già access in italiano, probabilmente ho installato qualche aggiornamento
in inglese.
Per cercare i duplicati dovrei lanciare la funzione dlookup? Sono riuscito
ad adoperarla in un campo calcolato e in convalida dentro una maschera, ma
dentro ad un modulo non riesco a farla andare. Ho fatto un copia/incolla,
sostituito i ; con le , ma niente da fare.
Qualche idea?
Grazie.
Max

 sostituito i ; con le , ma niente da fare.
Il controllo dove scrivi chiamasi pippo.
app = DLookup("[PippoInTabella]","Tua tabella","[PippoInTabella]='" & pippo
& "'")
if not isnull(app) then
  msgbox "Ciccio, cambia inserimento"
  pippo = ""
  altrocontrollo.setfocus
  pippo.setfocus
end if
Antonio


Grazie, funziona. E' possibile usare questa funzione su un recordset creato
"al volo" via codice con un'istruzione sql?
Ciao.
Max

 "al volo" via codice con un'istruzione sql?
No, la Dlookup funziona solo su domini consistenti in tabelle o query.
Su un recordset però puoi usare una cosa simile e cioè il metodo findfirst.
E' importante che la openrecordset abbia come parametro dbopendynaset se non
la findfirst non funziona.
Poi prepari il criterio di ricerca, quindi, nel tuo caso:
criterio = "[PippoInTabella]='" & pippo & "'"
e poi farai
rst.findfirst criterio
if not rst.nomatch then
  msgbox "Ciccio, cambia inserimento"
end if
Antonio

 wrote in message
ANLp6.126426$Y93.3...@news.infostrada.it...


Newsgroup: it.comp.appl.access
Titolo: Vorrei imparare Access

Dove posso trovare in rete una buona, chiara documentazione su Access?

 Dove posso trovare in rete una buona, chiara documentazione su Access?
http://www.sitocomune.com/
Newsgroup: it.comp.appl.access
Titolo: Aprire Form Popup ... senza Focus

Avrei l'esigenza d'aprire una Formettina "Popup" sopra una maschera di data
entry (una gestione Ordini) mantenendo però il Focus sulla Form chiamante.
In pratica:
Operatore lavora su Form "Ordini" --- dipendentemente da una condizione a
programma viene aperta Form Popup "Calcoli" .
Il Focus rimane su "Ordini".
E' possibile?

 ha scritto nel messaggio
news:MPDV9.12260$ZE.3...@twister2.libero.it...

Alla fine dell'istruzione che ti apre la maschera popup scrivi:
Me.SetFocus
Ciao, Carlo

 Me.SetFocus
Avevo già provato ma non funzia ;-)

 ha scritto nel messaggio
news:JGQV9.14315$YG2.4...@twister1.libero.it...

Ma la maschera principale è anch'essa popup?
La maschera secondaria ha impostata la proprietà "a scelta obbligatoria" su
sì?
Controlla a facci sapere.
Ciao, Carlo

 sì?
No.
Ciao, Max

 ha scritto nel messaggio
news:7%WV9.15680$YG2.4...@twister1.libero.it...

Bene.
Imposta a PopUp la maschera principale e l'istruzione: Me.SetFocus diventa
Forms!Ordini.SetFocus
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Conteggiare da un tabella Calendario i giorni secondo dei criteri

Salve a tutti,
ho una tabella chiamata "TabellaCalendari", che è costituita dai
seguenti campi [Data] che contiene le date di tutti i giorni dell'anno
e [TipoGiorno] che contiene 0 e 1 a secondo se si tratta di un
lavorativo (0) o festivo (1).
Su questa tabella dovrei effettuare alcuni conteggi cioè: sapere nel
mese di gennaio quanti sono i giorni Lavorativi contando, purtroppo
anche il sabato che però ha impostato come Tipogiorno 1. Nel frattempo
ho preparato questa query per chiarirmi un po' le idee.
SELECT TabellaCalendari.Data, Month([Data]) AS Mese, DatePart('w',
[Data],2) AS GiornoDellaSettimana, TabellaCalendari.TipoGiorno
FROM TabellaCalendari
WHERE (((DatePart('w',[Data],2))=1 Or (DatePart('w',[Data],2))=2 Or
(DatePart('w',[Data],2))=3 Or (DatePart('w',[Data],2))=4 Or (DatePart
('w',[Data],2))=5))
GROUP BY TabellaCalendari.Data, Month([Data]), DatePart('w',[Data],2),
TabellaCalendari.TipoGiorno
HAVING (((Month([Data]))=1));
Esiste un modo per tirare fuori questo valore tramite una query, o
devo per forza ricorrere a VBA contandomi i giorni manualmente?
Grazie 1000
Andrea

 ha scritto nel messaggio 
news:dc27393f-2386-404d...@k1g2000prb.googlegroups.com...
Salve a tutti,
ho una tabella chiamata "TabellaCalendari", che č costituita dai
seguenti campi [Data] che contiene le date di tutti i giorni dell'anno
e [TipoGiorno] che contiene 0 e 1 a secondo se si tratta di un
lavorativo (0) o festivo (1).
Su questa tabella dovrei effettuare alcuni conteggi cioč: sapere nel
mese di gennaio quanti sono i giorni Lavorativi contando, purtroppo
anche il sabato che perň ha impostato come Tipogiorno 1. Nel frattempo
ho preparato questa query per chiarirmi un po' le idee.
SELECT TabellaCalendari.Data, Month([Data]) AS Mese, DatePart('w',
[Data],2) AS GiornoDellaSettimana, TabellaCalendari.TipoGiorno
FROM TabellaCalendari
WHERE (((DatePart('w',[Data],2))=1 Or (DatePart('w',[Data],2))=2 Or
(DatePart('w',[Data],2))=3 Or (DatePart('w',[Data],2))=4 Or (DatePart
('w',[Data],2))=5))
GROUP BY TabellaCalendari.Data, Month([Data]), DatePart('w',[Data],2),
TabellaCalendari.TipoGiorno
HAVING (((Month([Data]))=1));
Esiste un modo per tirare fuori questo valore tramite una query, o
devo per forza ricorrere a VBA contandomi i giorni manualmente?
Grazie 1000
Andrea
vedi se puň aiutarti questa faq:
6.28 Conteggio dei giorni lavorativi tra due date
www.sitocomune.com
Daniele
Newsgroup: it.comp.appl.access
Titolo: Ordine (senza disciplina)

Ho 4 array, MM1, MM2, MM3, MM4. In ognuno di essi, nella medesima posizione 
(MM1 (0,0), MM2(0,0), ecc) c'� una data. Devo mostrare a video in ordine 
cronologico inverso la prima riga di ciascuno dei 4 array.
Help me....mi sono incartato:-)
Saluti.
Luciano

 Saluti.
Di che tipo e' l'elemento dell'array? e qual'e' il formato della data?
--
ac

 e qual'e' il formato della data?
Ma che ti frega, cosa cambia?:-)
Scherzo, � una data presa as is, con una select da sqlserver.
Saluti.
Luciano

 Luciano
Se i dati arrviano da SQL_S allora nell'estrazione li estrai già
nell'ordine DESC che servono, visto che un'array è difficile da
gestire...!
Altrimenti invece di usare 4 Array, usa 4 RS_TEMP ADO(che emulano 4
Temp_Table) con i quali puoi ordinare, filtrare e giocare....
Forse non ho capito la cosa...!
@Alex

 Forse non ho capito la cosa...!
Metti in conto anche che io non mi sia spiegato cos� bene:-)
Saluti.
Luciano

 Luciano
Stiamo parlando di Access vero non di Web... ?
Stiamo parlando di Access>97 vero...?
Se parliamo di A97 usa invece dei 4 Array 4 TempTable sulle quali
con :
SELECT TOP 10 * FROM TT1 ORDER BY Campo
estrai come vuoi i dati...
TI crei
TT1 Tabella Temporanea 1
TT2 Tabella Temporanea 2
TT3 Tabella Temporanea 3
TT4 Tabella Temporanea 4
Riempi con DAO con i dati che avresti voluto mettere nei 4 Array e poi
fai tutto quello che serve...!
Se parliamo di A>=2002 ADO ti mette a disposizione un Recordset in
memoria che funziona come una TempTable, che riempirai al posto
dell'Array, avrai 4 RS_TEMP in memoria, li ordini, filtri ecc...
quindi recuperi...!
Trovi un bell'esempio di Giorgio quì:
http://www.riolab.org/viewrisorsa.asp?id=45
Insomma gli Array sono a mio avviso l'ultima cosa che userei in questo
caso...
@Alex

 Stiamo parlando di Access vero non di Web... ?
:-)
Saluti.
Luciano

 Luciano
Mascalzone.... ;-)
@Alex

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

Come è possibile memorizzare in un database di access dei dati contenuti
in un foglio excel ?
Grazie e saluti.
Maurizio.

Selezionare il file.
Ciao
Max

Newsgroup: it.comp.appl.access
Titolo: Interfacciare un registratore di cassa con porta seriale

Ciao a tutti.
Devo collegare un registratore di cassa Sweda con un database mdb con
Windows Xp.
Ho provato con due tecniche:
A) - utilizzando un driver (Barba.exe - che lavora in ms-dos) che
funziona tranquillamente in Windows 98, ma che non mi funziona con
windows Xp. In teoria dovrei chiamare l'eseguibile con una shell che a
sua volta dati i comandi presenti in un file di testo li trasmette al
registratore di cassa.
B) - utilizzando i comandi mscomm.
Con quest'ultima tecnica con una porta mi va sempre in errore (la porta
risulta essere già aperta o chiusa) mentre con la com2 non mi da
segnali di vita. 
Qualcuno è in grado di aiutarmi?

 ha scritto nel messaggio 
news:1166214055.6...@80g2000cwy.googlegroups.com...


-----------------------------------------------
Questo link potrebbe esserti di aiuto:
http://www.granite.ab.ca/access/serialport.htm
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: colore rosso per sabati e domeniche

E' possibile evidenziare in rosso i sabati e le domeniche di un calendario
access?
--
grazie mille ciao


Function Colora(TipoGiorno As Variant) As Boolean
If Me.tipo_giorno = TipoGiorno Then
Colora = -1
   Else
   Colora = 0
End If
End Function
fai un campo con l'origine cintrollo =colora("F"), lo sfondo rosso e nel
formato
;"غغغغغغغغغغغغغغغغغغغغغغغغغغغغغ"
devo dire che lىidea è nata da un magnifico esempio che ho trovato sul sito
comune
--------------------------------
Inviato via 
http://usenet.libero.it

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

Ciao a tutti.
Ci riprovo.
Ho creato un Db usando Ado, Fino ad ora avevo usato DAO.
Dopo di che tramite il developer mi creo il pacchetto per l'installazione su
pc che non anno Office.
Niente problemi fino a quando usavo DAO. Oggi utilizzando ADO mi viene
chiesto il famoso file Dep per la librerie msado15.dll ( ADO 2.7 )
Dove devo andare a pescarla ??'
Ho provato a fare senza ma quando vado ad installare l'applicativo mi viene
restituito l'errore un errore.
Molto probabilmente non riesce a registrare la Dll.
Come fare ??
Grazie Grazie Molte
Enrico Pietrobon

 wrote in message
news:aC9bc.7475$rM4.2...@news4.tin.it...

Usa i due link sotto, per trovare le informazioni che ti servono.
ciao
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/dataaccess.asp
http://support.microsoft.com/default.aspx?scid=kb;en-us;259379

Newsgroup: it.comp.appl.access
Titolo: Aprire report con dati relativo a record corrente

Access 00/XP
Ciao a tutti
    Sapreste indicarmi come aprire da pulsante su form un report contenente 
i dati relativi al record corrente, avente come riferimento chiave primaria 
campo una data.
Mille grazie, Bruno 

 riferimento chiave primaria campo una data.
Stampare solo il record corrente
www.donkarl.com/it?FAQ5.9
e per la sintassi della data vedi
www.donkarl.com/it?FAQ6.8
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

 ha scritto nel messaggio 
news:661rppF...@mid.individual.net...

----------------
Risolto con
DoCmd.OpenReport "Rpt_MOS", acViewPreview, "", 
"[Qry_MOS]![Data_MOS]=[Forms]![frm_Data_MOS]![Data_MOS]", acNormal
    DoCmd.Maximize
Gazie, Bruno
Newsgroup: it.comp.appl.access
Titolo: visualizzazione (e stampa) errata su monitor esterno

ciao, vediamo se qualcuno ha lo stesso problema
il capo usa un portatile toshiba portege m200: se lo collega al monitor 
esterno i grafici dell'applicazione (e le relative stampe) vengono 
tranciati sulla destra (in pratica si vede gennaio-ottobre)
se invece usa il display del computer sono visualizzati e stampati 
correttamente...
il driver video è aggiornato
a conferma di quanto sopra non ci sono problemi quando uso il programma sul 
mio pc desktop con monitor
any idea? vanno bene anche link a siti in inglese ;)
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\

 
dimenticavo... windows xp sp2 e access 2003


 ha scritto nel messaggio 
news:Xns9AAD7BE90B4D6am...@194.177.97.96...

Io per prima cosa cambierei lo user name perchè mi sento offeso quando lo 
leggo.
Ciao
Antonio

 dimenticavo... windows xp sp2 e access 2003
Verifica le risoluzioni dei due monitor. Forse il monitor esterno non
supporta la risoluzione usata dal portatile, o forse basta solo correggere
le impostazioni usando i tastini sul monitor e il menù On screen display.
(larghezza e posizione orizzontale, o H-Sync e H-Phase)
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
grazie per il prezioso contributo alla discussione


 
uhm...
il display del laptop č un 1400x1050 ma viene usato a 1024x768 sennň 
il boss non vede piů niente (nota 1)
il monitor esterno č 1280x1024 ma viene usato anche lui a 1024x768
oggi ho trovato un driver FORSE piů nuovo, sul sito toshiba u.s.a.
farň qualche esperimento giocando con le risoluzioni (non ci avevo pensato, 
grazie per il tip)
nota 1: NON sono stato io a suggerirgli quel modello, le fece un mio ex 
collega che pensava solo al fatto che il modello era figo


Newsgroup: it.comp.appl.access
Titolo: Sottomaschera per query parametrica

E' possibile utilizzare una sottomaschera per mostrare il recordset prodotto
da una query parametrica?
Di più: possono i parametri essere raccolti attraverso caselle di testo
inserite nella maschera stessa in cui è inserita la sottomaschera?
Io non ci salto fuori, qualcuno mi aiuta?
Grazie :)
Enrico

"Enrico" <xa...@liberoOOOOO.it> wrote in message
news:LGCC7.15984$Qj6.1...@news.infostrada.it...

Si, se la tua SubForm è ha come origine dati una Qry in cui inserisci
come criteri di Selezione le TextBox nella Form_Principale.
Ovviamente dovrai effettuare il Requery ad ogni modifica dei campi TxtBox.
Nella Qry dovrai tener conto che all'apertura, forse, le txtbox possono
avere valore Nullo, quindi il criterio dovrà essere:
Like "*" & Forms![Nome_FormPrinc]![TuaTxtBox] 
Ciao @Alex
-- 
Posted from  [62.98.31.198] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Funzione DateAdd

ciao a tutti,
in una macro con apri maschera ho messo in funzione Where:
[ora]=DateAdd("n";-1;[Maschere]![Maschera Dati]![ora])
e funziona correttamente ma se invece di 1 min metto 2 min o 5 o 10 non funziona sia con - che con +, praticamente funziona solo il minuto.
Qualche idea del perchè?

aggiungo...
[ora]=DateAdd("s";-30;[Maschere]![Maschera Dati]![ora]) funziona
[ora]=DateAdd("s";-60;[Maschere]![Maschera Dati]![ora]) funziona
[ora]=DateAdd("s";-90;[Maschere]![Maschera Dati]![ora]) funziona
[ora]=DateAdd("s";-120;[Maschere]![Maschera Dati]![ora]) non funziona
Newsgroup: it.comp.appl.access
Titolo: Eliminare filtro nella sottomaschera

Ho una maschera con varie pagine una per l'anagrafica, un'altra dove ho il
problema con una sottomaschera dove eseguo vengono visualizzati i vari
record agganciati alla persona dell'anagrafica. e fin qui tutto bene.
Il problema sussiste quando eseguo un filtro nella sottomaschera e fin li
funziona ma se voglio tornare a vedere tutti i record di quella persona non
posso rivederli
Ho provato con
        DoCmd.ShowAllRecords
ma questo mi azzerrra il filtro che seleziona la maschera principale
Allora ho provato con
    Me.Requery
questo per vedere se funziona nella query e non si muove
Come posso fare per eliminare il filtro solo nella sottomaschera e non anche
nella maschera principale
Grazie

 ma questo mi azzerrra il filtro che seleziona la maschera principale
Ma il codice suddetto dove si trova? Nella form principale o nella sottoform?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

Devi usare le proprietà FilterOn e Filter ....!
Prova con FilterOn=False
La proprietà è ovviamente di maschera, quindi se la chiami dalla
Parent
sarà:
Me!NomeSubForm.Form.FilterOn=False
Ciao
@Alex

 Ma il codice suddetto dove si trova? Nella form principale o nella
sottoform?
Temo si tratti di un bug storico di Access: se rimuovi un filtro in una
SubForm elimina anche (eventuali) filtri nella Form principale...
Ciao, Simone

 ha scritto nel messaggio
news:1148114656.0...@i40g2000cwc.googlegroups.com...

Prova con FilterOn=False

Me!NomeSubForm.Form.FilterOn=False
Ciao
@Alex
Grazie a quanti mi hanno risposto
Il comando dia del filtro che il togli filtro è sulla sottoform
Comunque dal consiglio di Alex ho messo
      Me.FilterOn = False
e ho risolto il tutto
Di nuovo grazie dell'attenzione

Newsgroup: it.comp.appl.access
Titolo: ciclo for che scorre tutte le tabelle e le svuota

sapete come posso fare? da codice vba?
grazie

 
Set rst = CurrentDb.OpenRecordset("select name from msysobjects where 
type = 6 or (type=1 and flags =0)")
Do Until rst.EOF
    sSQL = "delete from " & rst.Fields(0)
    docmd.runsql
loop
--
a.cara
n.b. e' DAO

 n.b. e' DAO
urca!  manca la rst.movenext (ovviamente dopo la docmd)
 > --
 > a.cara
 >
 >

 wrote in message
news:c1j0a3$k37$1...@lacerta.tiscalinet.it...


 urca!  manca la rst.movenext (ovviamente dopo la docmd)
ok grazie mille
Newsgroup: it.comp.appl.access
Titolo: aiuto su query

salve
ho una query che raggruppa i dati fattura con le relative righe del tipo
 
select .... from fatture inner join righefattura on fatture.idfattura 
=righefattura.idfattura
 
avrei bisogno che la query però mi restituisse solo UNA riga per SINGOLA 
fattura, quella con valore più alto.
 
in pratica se ho una fattura con 5 righe deve restituirmi solo la quinta 
riga.
questo ovviamente per tutte le fatture
 
qualche idea?
 
grazie
Alex


come prima risposta ti direi prova a creare una query di raggruppamento del risultato che hai mettendo nFattura + data + max riga fattura

Il giorno giovedì 3 marzo 2016 08:37:51 UTC+1, AlexTD ha scritto:

Se le righe sono numerate (e penso lo saranno : dovrebbe esserci un campo
che numera le righe nel loro ordine per cui l' ultima è quella col numero
piu'  grande)  allora  puoi costruire una sub query piu' o meno di questo 
tipo :  
 
select ... from fatture left join on 
(fatture.idfattura = select id_fattura from 
righefattura where max(righe_fattura.numerazione)
Newsgroup: it.comp.appl.access
Titolo: totale di anni,mesi e giorni

ciao a tutti
avevo chiesto  il totale di anni,mesi e giorni
ma nessuna aiuto concreto
riprovo
spiegandomi meglio
      dataInizio      dataFine                     anni   mesi     giorni
1) 01/01/2000 - 31/12/2000 -              anni 1 mesi 0 giorni 0
2) 01/07/2001 - 31/12/2001 -              anni 0 mesi 6 giorni 0
3) 01/01/2002 - 31/12/2002 -              anni 1 mesi 0 giorni 0
4) 01/05/2003 - 31/12/2003 -              anni 0 mesi 8 giorni 0
 ecc
il totale  deve dare                               anni  3 mesi 2  giorni 0
grazie
Rino 

 il totale  deve dare                               anni  3 mesi 2  giorni 0
Non vorrei dire una corbelleria, ma scritto così non ha -secondo me- 
molto senso, a meno che non ti accontenti di un dato approssimato.
Mi spiego,
il totale di anni, mesi, giorni, ha senso se il l'intervallo tra le date 
è continuo e non frutto di 4 (o N) intervalli separati.
In quest'ultimo caso puoi fare così:
Ti trasporti tutti gli intervallli in giorni
1) 365 giorni
2) 184 giorni
3) 365 giorni
4) 245 giorni
totale:
1159 giorni
1159 /365 = 3 anni resto 1159 - 365*3 = 64giorni
a questo punto di quanti giorni vuoi considerare il mese?
30?
31?
1 da 30 e 1 da 31?
in ogni caso
ti avanzeranno sempre da 2 a 4 giorni
e quindi il conto è "impreciso"
a meno che non sia fuorviante la tua indicazione dei giorni, nel senso 
che l'hai indicato ma non li devi considerare.
Allora così le cose cambiano, e puoi fare così:
Ti trasporti tutti gli intervallli in mesi:
1) 12
2)  6
3) 12
4)  8
totale:
38 mesi
38/12= 3 anni, resto 38-36= 2 mesi
che è il risultato che volevi tu.
Cerca la funzione DateDiff.
ciao
stefano

 stefano
stefano intanto ti ringrazio di avermi giŕ dato qualche elemento.
preciso meglio io voglio avere in una maschera che si riferisce a una 
tabella, con 4 campi di questo tipo
1) (campo dataIniziale   es. 03/01/2005 )  - 1 campo dataFinale 31/11/2008) 
risultato in 3 campi diversi cioč: (3 anni in un campo) (10 mesi in un 
campo) e (28 giorni in un campo)
cosě altri.
alla fine vorrei la somma in 3 campi diversi degli anni mesi e giorni
posso provare con la tua risoluzione per quello che cerco?
grazie
rino

 ha scritto nel messaggio 
news:47aa0257$0$37205$4faf...@reader3.news.tin.it...

Newsgroup: it.comp.appl.access
Titolo: domanda impegnativa...per i miei standard

-- 
****************************************************
Davide Lo Vetro
DolceVitaFilm/Videotech
Via Forcella 13, 20144, Milano
T. 02/89401601 - F. 02/89401583
****************************************************
Devo archiviare dati riguardanti dei D1 (videocassette digitali, NDR).
Ho tre tipi di D1:
-D1 flint
-D1 paintbox
-D1 softimage DS
ciascun tipo ha una numerazione progressiva: 1,2,3,etc. etc.
I campi della TABELLA sono:
ID CASSETTA - SOGGETTO - DESCRIZIONE - DATA - TIMECODE IN.
Come mi conviene operare per ottenere alla fine un database in cui poi 
potere avviare una (o piu') query che trovi un record su un qualsiasi
D1. Fare una tabella per ogni singolo D1 e poi usare le relazioni?
Oppure dopo aver inserito i dati fare un' accodamento?
Forse le mie domande sono banali, ma sono un neofita di Access e non 
possiedo conoscenze di VB o simili.
Grazie un saluto a tutti
--
Posted from 
ro...@rizla.energy.it
 [212.51.128.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Oppure dopo aver inserito i dati fare un' accodamento?
Se le informazioni sui vari D1 sono le stesse a prescindere dal tipo. metti
un campo che distingua la tipologia di D1 e che accetti solo F S P
Poi se devi filtrare per tipologia lo farai con quel campo
Antonio

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

Ciao Ng, come si può gestire in problema generato dall’utilizzo 
dell’istruzione SendKeys "{F9}" ?
In particolare quando clicco su un record vuoto, di una sottomaschera 
che ha come origine riga una query? ho provato con error resume ma 
niente di buono, qualche suggerimento?
Grazie anticipatamente
Femto

 Femto
Ma che vuoi gestire? che ti serve fare?... SendKeys con l'F9 non fa altro
che salvare tutto e fare il requery del DB... a te che serve?
-- 
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

 ha scritto nel messaggio 
news:zBlpd.216057$b5.10...@news3.tin.it...

Dicci qualcosa di più sul messaggio di errore e del perchè usi SendKeys 
"{F9}".
Per fare un requey della maschera ti basta me.requery.
Mi pare che anche in SendKeys dovresti usare maiuscolo F9 cioè
SendKeys "+{F9}"
Ciao, Carlo 

 ha scritto nel messaggio 
news:zBlpd.216057$b5.10...@news3.tin.it...

Può darsi che usi SendKeys "{F9}" per fare un recalc dei controlli 
calcolati; in questo caso è importante conoscere il messaggio di errore.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Numerazione fattura

ho un problema: in una maschera devo inserire i numeri di fattura. oviamente
volevo agire sul valore predefinito (permettendo così un'eventuale modifica)
sul sito ho trovato un esempio che calzava a pennello. lo ho trasportato
sulla mia applicazione, ma mi da errore? a che cosa può essere dovuto? al
posto di [contatore] ho messo il mio id e al posto di [mia tabella] il nome
della mia tabella. dove può essere l'errore?
--
___________________________________
Mauro Gallo
www.maurogallo.com
alf...@libero.it

l'esempio riportato è il seguente:
="E" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") &
"/????'"));1;Right(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") & "/????'");4)+1);"0000")
L'effetto finale è quello di ottenere una numerazione del tipo:
 E99/0001
Dove:
 E = Riferimento arbitrario
 99 = Ultime due cifre dell'anno
 / = Separatore
 0001 = Contatore


chiedo scusa se pongo 2 volte la stessa domanda, ma il mio quesito è
importante e penso che sia piuttosto comune tra gli utilizzatori di access.
vi ringrazio se vorrete aiutarmi.
come posso numerare automaticamente il numero delle fatture?


 ha scritto nel messaggio
news:_1%N5.12130$BF.4...@news.infostrada.it...

Se non invii il tipo di errore che ti presenta e l'esempio del tuo codice
rimaneggiato a tue esigenze potresti aspettare parecchio tempo.
Mettiti nei panni di chi potrebbe risponderti e vedi se con le tue
indicazioni si può solo abbozzare una soluzione...
Ciao.

 della mia tabella. dove puň essere l'errore?
Penso che tu possa avere due tipi di problemi:
prima di tutto la mia formula prevede che il campo sia in formato testo,
quindi se hai messo formati diversi ti da errore,
secondo la formula va messa nella proprieta' valore predefinito della
maschera e non della tabella (come spiegato sul sito comune) perche'
altrimenti ti da l'errore "DMax funzione non riconosciuta" o qualcosa del
genere.
Comunque quando poni una domanda come questa, devi sempre spiegare l'errore
che ti da e dove te lo da, altrimenti si puo' solo immaginare:
Ciao, Sib
Newsgroup: it.comp.appl.access
Titolo: Criteri Query key Insensitive

Ciao a tutti !!!
... possibile con Access 97 che esegue una query via ODBC rendere i
criteri della
query Key Insensitive ?
Grazie dell' attenzione !!!
-- 
*  Sgt. Pepper's Lonly Hearts Club Band * We Hope You Have Enjoy The
Show  *
# Il prezzo dei CD musicali è ingiusto ! Ingrassano le
multinazionali,     #
# svuotano i nostri portafogli e uccidono la diffusione della musica.
Non  #
# comprate CD a prezzo pieno. Comprate offerte , CD usati e scaricate
MP3. #
*         I Know It' s only Rock' n' Roll , But I Like It
!                *

query Key Insensitive ?
Eeeh?
--
Lorenzo Coronati
--
<<Io studio ing gestionale e dei non laureati 
che mi sputano in faccia mi faccio beffe.>>
(Andrea "Mr Bad Guy", 10/07/2000)
--


Oh... Lorenzo.. che sei sordo!
;-)))
Silvio

Oh... Lorenzo.. che sei sordo!
No, e' che i don't conosc english very well...


 (Andrea "Mr Bad Guy", 10/07/2000)
... allora non hai ancora cominciato a lavorare .
-- 
*  Sgt. Pepper's Lonly Hearts Club Band * We Hope You Have Enjoy The
Show  *
# Il prezzo dei CD musicali č ingiusto ! Ingrassano le


... allora non hai ancora cominciato a lavorare .
Fermo!
Non vorrai mica insinuarmi il dubbio che qualcuno pensi che
queste mirabili citazioni di alcuni luminari del ng siano in
qualche modo da me condivise, eh?
Vabbe'...
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono 
convinti che noi poveri principianti (nel senso 
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--

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

In un programma che gira su access ho notato che in una maschera di gestione
ordini passando con il mause sui controlli espressi in lire automaticamente
apriva una piccola maschera che convertiva il valore in euro.Su che evento
bisogna associare l'azione? e come faccio a fare un riferimento in quanto i
controlli sono diversi ad esempio prezzo articolo, importo, totale.
Grazie a tutti
--


--

 ha scritto nel messaggio
news:_tvL7.158746$sq5.7...@news.infostrada.it...

Sull'help prova a dare uno sguardo a: Evento MouseSpostato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
news:_tvL7.158746$sq5.7...@news.infostrada.it...

Su evento "Su Mouse Spostato" puoi modificare la proprietà "ControlTipText"
del Controllo in questione e passare così il Testo da visualizzare:
Es.:
Private Sub TuatxtBox_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   dim Eurovalore as long
   Eurovalore=Me.TuatxtBox*1936,27
   Me.TuatxtBox.ControlTipText=cstr(Eurovalore)
End Sub
Dovrebbe essere l'effetto a cui ti riferivi.
Ciao @Alex
-- 
Posted from  [62.98.12.66] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

E' proprio quello che mi serviva, anzi molto di più in effetti non avevo
mai usato il ControlTipText in certe situazioni è veramente utile.
Solo una cosa, c'è la possibilità di diminuire il tempo di attesa  per la
visualizzazione del ControlTipText  e i controlli calcolati nelle maschere.
Grazie 1000
Marina
Newsgroup: it.comp.appl.access
Titolo: Visualizzare legami tra record stile relazioni

Ciao a tutti, il problema è il seguente in un form ho 2 sottomaschere
che hanno origini dati diverse posizionate in senso verticale. ho la
necessità di creare una sorta di relazione tra la Sottomaschera A e
quella B sia a livello di record che a livello visivo come quando in
Access si creano le Relazioni deve funzionare alla stessa maniera in
modo tale che visivamente vedo come sono collegati i record.
In alternativa sul click su un determinato record visualizzare la
singola relazione con l'altro record.
Secondo voi è un'assurdità o si può fare? 
Grazie a tutti
Andrea
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto
nel messaggio
news:b8ba174804e82e34cba...@mygate.mailgate.org...

Cosa devi controllare?
spiega cosa vuoi non come (per quello ci facciamo
venire un'idea)
Massimiliano

...

Nella SM di sinistra (A), ho 3 campi: CodiceA, descrizione, Importo, in
quella di destra (B) ho 3 campi: CodiceB, descrizione, CodicePDC.
Quello che a me occorre è il creare un codice univoco derivante dall'unione
del CodiceA con il CodiceB.
esempio:
CodiceA=123
CodiceB=WS451
Codice derivato=123WS451
e da qui il problema di creare un rapprensetazione grafica più o meno chiara
in considerazione del fatto che le righe possono essere moooolte.
Grazie

Andrea

Nella SM di sinistra (A), ho 3 campi: CodiceA, descrizione, Importo, in


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

Facendo un collegamento ipertestuale ad una immagine, mi viene visualizzata
in una pagina htm.
E' possibile modificare i parametri di questa pagina, ad esempio colore di
sfondo o centratura immagine?
Grazie
Carlo

 ha scritto nel messaggio
news:uZaJd.447790$b5.21...@news3.tin.it...

Ciao Carlo,
l'immagine ti viene visualizzata in una pagina htm, perchè l'estensione del
file immagine è associata al Browser predefinito (IE)
Trattandosi di una immagine visualizzata nel browser, non puoi impostare un
colore di sfondo o la centratura, lo potresti fare se visualizzassi
effettivamente un HTM.
Saluti
Cinzia
Newsgroup: it.comp.appl.access
Titolo: Importazione di file testo?

Ho importato un file *.txt. Un campo nel database origine (oracle) numerico
viene trasformato automaticamente (dalla stampa su file) in testo in quanto
i numeri vengono trasformati come ad esempio
123  000  300.00
i doppi spazi tra le migliaia e i punti invece della virgole fanno si che
access non interpreti il campo come numerico o valuta ma bensì come testo.
Tramite query posso eliminare detti doppi spazi e trasformare i punti in
virgole? Ho infatti necessità di manipolare i dati con access in formato
numerico.
grazie in anticipo per l'aiuto
---------------------------------------------------------------
Felice Musicco
Roma
+39 06 5417582
03683389075
email: 
fmu...@micanet.it
pwp: 
www.geocities.com/area51/shire/6356
----------------------------------------------------------------------

virgole? Ho infatti necessità di manipolare i dati con access in formato
per gli spazi ci dovrebbe essere qualcosa sul sito comune.
quello che ti consiglierei e' di scrivere una funzione alla quale dai
in input il campo e che faccia le due operazioni necessarie, togliere
gli spazi e sostituire la virgola:
function adatta(s as string) as double
dim ss as string
dim i as integer
dim appo as string
for i=1 to len(s)
	ss=trim(mid(s,i,1))
	if ss="." then
		ss=","
	end if
	appo=appo & ss
next i
adatta=cdbl(appo)
end function
la richiamerai dentro una query.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
Newsgroup: it.comp.appl.access
Titolo: Conferma Cancellazione ( aiuto ! )

Repubblica di San Marino, 04 gennaio 2002
Ciao a tutti e buon anno.
Come va con l'Euro?
Ho un problema che per molti di voi è di certo una cavolata, ma per me no.
Come posso inserire un messaggio di conferma prima di eliminare un record?
Sono nella maschera con i dati, posizionato sul record da cancellare,
cliccando sul pulsante cmdElimina eseguo la seguente routine evento:
Private Sub cmdElimina_Click()
On Error GoTo Err_cmdElimina_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_cmdElimina_Click:
    Exit Sub
Err_cmdElimina_Click:
    MsgBox Err.Description
    Resume Exit_cmdElimina_Click
End Sub
Chi mi dice come devo modificare questa parte di codice?
Grazie 1000, anzi 2002.
Peo
www.studiopasquali.it

 
  Puoi farlo in pių modi. Ad esempio inserendo le righe di codice:
    	Dim lR As Long
    	lR = MsgBox("Vui davvero eliminare il record?", _
         	vbQuestion Or vbYesNo, "Attenzione!")
    	If lR = vbNo Then Exit Sub
prima dei DoCmd, oppure, piu' elegantemente, andando a gestire l'evento 
BeforeDelConfirm (descritto nell'help in linea) della form.
  Ciao
----------- 
http://digilander.iol.it/SimonenomiS/

 
http://digilander.iol.it/SimonenomiS/
Oppure (meno elegante ma semplice) spuntando la casella
Opzioni-Modifica/trova-ModificaRecord
Paolo


http://digilander.iol.it/SimonenomiS/
forse è più efficiente così
    	If MsgBox("Vui davvero eliminare il record?",  vbQuestion Or
vbYesNo, "Attenzione!") = vbNo Then Exit Sub
Saluti.
Emanuele.

 Repubblica di San Marino, 04 gennaio 2002
Ehem. Peoooo?
Non č una lettera dove si deve mettere l'intestazione luogo e data...
E poi, caso mai, mancava il < lě >...
Antonio

 ha scritto nel messaggio
news:J0AZ7.14096$SE3.5...@twister1.libero.it...


 scusa, sono un pò pollo...
Già...
oltre al fatto che po va con l'apostrofo, non l'accento, e che si scrive
DOPO il quoting!!!
Antonio

 lě inteso come in quel luogo.
Uh?
Oh, non si finisce mai di imparare...
Certo che ... non te la sei fatta sfuggire... chi di spada ferisce...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Somma di data now() +10

Ho un campo data in una querry dove immetto la data e vorrei sostituirlo con
data di oggi + 10 gg come posso fare. Grazie.


Normalmente le query prelevano i dati da una tabella. Non capisco bene cosa
vuol dire "...dove immetto la data".
Usi un criterio?
Esiste un campo data che deve essere impostato a Data + 10 gg?
Se è così aggiungi una nuova colonna che chiamerai per esempio "NuovaData".
NuovaData: [TuoCampoData] + 10
oppure:
NuovaData: Format([TuoCampoData];"gg/mm/aaaa") + 10
Ciao, Carlo

 NuovaData: Format([TuoCampoData];"gg/mm/aaaa") + 10
?
NuovaData: Format([TuoCampoData] + 10;"gg/mm/aaaa") 
-- 
cu
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:b9iacs$jgpd2$2...@ID-46617.news.dfncis.de...

Uso un report basato su una querry che ha un campo ad immissione manuale su
richiesta e vorrei che per default fosse inserito dataoggi + 10 gg salvo
diversamente. Grazie.

 ha scritto nel messaggio
news:b9ojt6$oik$1...@lacerta.tiscalinet.it...

Basta sostituire [TuoCampoData] con Date, senza le quadre e, se lo usi nel
codice senza le parentesi (). Se lo usi nella query devi aggiungere le
parentesi () dopo Date.
Sia nella query che nel valore preefinito di un controllo nel report:
TuoCampo = InputBox("Immetti la data.";"Data di lavoro";Format(Date() +
10;"gg/mm/aaaa"))
Nel codice del report: TuoCampo = InputBox("Immetti la data.","Data di
lavoro",Format(Date + 10;"dd/mm/yyyy"))
Ciao, Carlo

 ha scritto nel
messaggio news:vc0wa.85801$3M4.2...@news1.tin.it...

Grazie mille Carlo!
Mi funziona a dovere la Tua dritta.

Newsgroup: it.comp.appl.access
Titolo: rilevazione suoni

Sapete se esiste qulche funzione per rilevare rumori ambientali 
con il microfono del pc per utilizzare un rumore come segnale 
d'inizio di una sequenza di operazioni invece che premere un 
tasto?
Vorrei creare per un'amica con un bambino piccolo una routine 
che "rilevi" il pianto del bambino e attivi di conseguenza il 
play di una canzone, solo che con i suoni non ho mai lavorato...
grazie 
ciao Laura
--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it

 --
Su access non credo.
Dovresti cercare lo strumento che ti permette di acquisire il suono e vedere se chi lo produce mette a disposizione delle librerie 
che permettono un controllo sul suono acquisito...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: stampa report da record maschera

mi sono posto questa domanda:
Si puo' stampare un report con dati singoli di un record su maschera?
Mi spiego meglio: ho una maschera dove aggiungo dei record con dati vari
specifici,
da questa maschera, ho un pulsante per stampare un report contenente i dati
del record  immesso inteso per solo un record alla volta,
è possibile stampare questo report rifacendomi al record visualizzato al
momento sulla maschera e non creando una query ove chiede con una casella il
record da stampare?
Si?
come?
quale è la formula da inserire e dove?

 ha scritto nel messaggio
news:b3ke95$p99$1...@fata.cs.interbusiness.it...

Controlla nell'help il metodo OpenReport...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Aiuto

Questo è il codice per il pulsante che come vedete apre l'esplora risorse di
windows.
Questo è stato scritto dalla creazione guidata pulsante tranne la stringa
"stAddress" che la ho aggiunta io, come posso fare ad accedere alla cartella
specificata dalla mia variabile?
Private Sub explorer_Click()
On Error GoTo Err_explorer_Click
    Dim stAppName As String
    Dim stAddress As String                <--   si riferisce a un campo
definito nella mia maschera che contiene tipo "c:\windows\...."
    stAppName = "C:\WINDOWS\explorer.exe"
    stAddress = Me.Cartella_server.Value
    Call Shell(stAppName, 1)
Exit_explorer_Click:
    Exit Sub
Err_explorer_Click:
    MsgBox Err.Description
    Resume Exit_explorer_Click
End Sub

 specificata dalla mia variabile?
stAppName = "C:\WINDOWS\explorer.exe /e, "
stAddress = Me.Cartella_server.Value
Call Shell(stAppName & stAddress, 1)
Ciao!
Esteban
Hosted by 
www.seber.it

Grazie tante

ho un problema: ho creato un gruppo di opzioni, con 2 opzioni, SI e NO. Le 
opzioni sono due interruttori. All'interrutore SI è associata una macro che 
apre una nuova maschera, mentre all'interruttore NO non è associato nella 
proprietà  'SuAttivato' nessuna macro, evento, ecc.
Il problema è questo: ogni qualvolta che clicco sulla cornice del gruppo la 
macro associata all'interruttore SI si attiva, e questo non va bene, poichè 
la macro si deve attivare soltanto quando clicco sull'interruttore SI. Come 
posso risolvere questo mio dilemma??? grazie sin da ora!! ciao
-- 
Posted from 
IDENT:ro...@nameserver.ifc.cnr.it
 [131.114.209.127] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Generazione password in query

Risolto il problema della conversione in MD5 delle password, bastava
utilizzare come funzione md5(stringa), dopo aver importato il modulo
opportuno.
Mi rimane il problema della generazione random delle password.
Ho trovato diversi codici, ad esempio il codice che contiene la funzione
passw():
Ma inserita in una query  come espressione  password: passw(), mi genera per
tutti i record la stessa stringa.
Qualcuno mi sa dire come fare in modo per avere una stringa diversa per ogni
record?
Siete a conoscenza di qualche codice con generazione delle strighe più
complesse?
Grazie
codice generazione password
Public Function passw()
Dim ChooseType As Integer
Dim UpperLower As Integer
Dim pwStore As String
Dim pwLength As Integer
Dim pw As String
passw = " "
'Length of password'
pwLength = 8
For I = 1 To pwLength
ChooseType = Round(Rnd)
If ChooseType = 1 Then
'Number'
pwStore = Chr(Int((57 - 48 + 1) * Rnd + 48))
Else
'Alphabet'
UpperLower = Round(Rnd)
If UpperLower = 1 Then
'Upper Case'
pwStore = UCase$(Chr(Int((90 - 65 + 1) * Rnd + 65)))
Else
'Lower Case'
pwStore = LCase$(Chr(Int((90 - 65 + 1) * Rnd + 65)))
End If
End If
pw = pw & pwStore
passw = pw
Next I
End Function

 Siete a conoscenza di qualche codice con generazione delle strighe piů

Mhmm.... (la butto lě) Se gli passi l'id del record?
Ciao.
-- 
Sergio MAZZA

 For I = 1 To pwLength
<--------------------------- Randomize


 ha scritto nel messaggio
news:ceq46j$mla$1...@lacerta.tiscalinet.it...


 Sergio MAZZA
A dire il vero non saprei come fare, la funzione non prevede il passaggio di
parametri, come mi consigli di procedere?
Grazie

Ok funziona.
Sono riuscito a far passare ID del record, facendo alcune modifiche al
codice, le password generate adesso sono diverse, ma in alcuni casi mancano
di alcuni elementi (numeri, Caratteri minuscoli o maiuscoli) che invece
devono esserci, perché le password generate mi servono per creare degli
account x windows 2003 server con complessità password attiva.
Ho sbagliato ad aggiungere qualcosa o dovevo modificarlo in altro modo il
codice.
Il nuovo codice é:
Public Function passw(c)
Dim ChooseType As Integer
Dim UpperLower As Integer
Dim pwStore As String
Dim pwLength As Integer
Dim pw As String
passw = " "
'Length of password'
pwLength = 8
For I = 1 To pwLength
ChooseType = Round(Rnd)
If ChooseType = 1 Then
'Number'
pwStore = Chr(Int((57 - 48 + 1) * Rnd + 48))
Else
'Alphabet'
UpperLower = Round(Rnd)
If UpperLower = 1 Then
'Upper Case'
pwStore = UCase$(Chr(Int((90 - 65 + 1 + s) * Rnd + 65)))
Else
'Lower Case'
pwStore = LCase$(Chr(Int((90 - 65 + 1 + s) * Rnd + 65)))


Non ero andato a fondo nella tua Function...
a) metti Randomize prima dell'istruzione For
b) passa come parametro alla Function un campo qualsiasi della qwery anche
se non ci fai nessun calcolo
e vedrai che stavolta funziona.
Randomize va messo se non vuoi avere sempre la stessa serie di psw.
Ciao.

 devono esserci
vuoi dire che le psw devono contenere almeno un numero, almeno un carattere
minuscolo e almeno un carattere maiuscolo?