mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Svuotare con un click tutti i campi di un record

Quale è il modo più semplice per annullare (svuotare), facendo click su un
pulsante di comando, tutti i campi di un record già riempiti in una maschera
di inserimento dati ?
La struttura del mio record è formata da 7 campi.
Nella maschera ho 5 caselle di testo e 2 caselle combinate di ricerca
(collegate ad altre 2 tabelle, in modo da poter scegliere i dati con un
click)
Vorrei tornare alla stessa situazione di quando apro la maschera di
inserimento dati (completamente vuota, posizionato su un nuovo record e
senza aver aggiunto niente nella tabella)
Quale è il comando o il codice da scrivere associato al click del pulsante ?
Mi scuso per l'ignoranza e vi ringrazio per l'assistenza.  Paolo

Paolo S. ha scritto:

Io ho risolto così:
1-ho inseito un pulsante che ho chimato reset;
2-sull'evento "click" del controllo ho annullato i valori di tutti i
controlli che mi interessava resettare; ad esempio
Private Sub Buttonreset_Click()
Me.Control1 = Null
Me.Control2 = Null
...
...
End Sub
Ritengo, col senno di poi, che si possa eseguire anche un ciclo for next
su tutti i controlli della maschera in modo tale che se, in futuro, viene
aggiunto un controllo non ci si debba ricordare di aggiungerlo alla lista
di quelli da azzerare.
-- 
TANNHAUSER
"I've seen things you people wouldn't believe..."
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:durtpd$6vj$1...@news.newsland.it...


 ha scritto nel messaggio 
news:xaeQf.2262$nz4....@tornado.fastwebnet.it...

Dovresti però specificare se il record è già stato registrato o no...
Ciao.
-- 
Sergio MAZZA 

 di inserimento dati ?
Forse sarò ovvio e probabilmente non ho capito, ma non c'è un wizard che te 
lo crea in automatico?

 Ciao !    Paolo
De nada.
Onde evitare di incorrere in meritati strali dall'Olimpo di ICAA, evita di
rispondere all'inizio del messaggio; soprattutto se sono lunghi risulta di
difficile consultazione.;-)


Lo svuotamento della maschera funziona !!!
Ok anche per il consiglio di non rispondere lasciando nella e-mail tutta la
"storia" dei messaggi.
Grazie a TANNHAUSER e a tutti quelli che mi hanno risposto
Ciao  - Paolo.
Newsgroup: it.comp.appl.access
Titolo: UPDATE da altra tabella

Buogiorno a tutti!
Se ho 1 tabella Access Città (id,nome) ed un' altra New
(id,nome,codice) come faccio ad aggiornare il campo New.id della
seconda inserendo il valore di Città.id dove corrisponde appunto il
campo nome?
Ho fatto così:
UPDATE Città, New SET New.id = Città.id
WHERE Città.name=New.name;
 ma funziona naturalmente se il name corrisponde per intero
(Milano=Milano) ma vorrei che la query che mi aggiornasse il dato
anche se Città.nome è soltanto una parte di New.nome.Esempio:
Città.nome = "Milano"      New.nome="Milano,malpensa"
Come devo modificare la mia query?
Grazie.

Grazie.
Prego.
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 ed usare anche in maniera opportuna i caratteri jolly.
Ma se io devo confrontare un campo di una tabella col campo di un'
altra?Se faccio Like "Città.nome" mi confronta appunto la stringa
Città.nome con l' altra ma non il contenuto del campo (che magari è
Roma).Magari non devo usare le " " ma cosa altrimenti?
Ripeto devo confrontare il contenuto di un campo di una tabella con il
contenuto di un campo di un' altra tabelle.Questi contenuti possono
corrispondere anche soltanto in parte.Se questo si verifica devo
ricavare l' id corrispondente.
Ho:
Città (id,nome) e New (id,nome,codice)
New.id è vuoto inizialmente e devo inserire il valore di Città.id dove
Città.nome=New.nome.
Purtroppo non corrispondono completamente e quindi vorrei che il
confronto sia positivo anche se corrisponde una parte (la prima in
genere).Cioè va bene anche se Città.nome = "Milano" e
New.nome="Milano,Malpensa".
Grazie.

Grazie.

Newsgroup: it.comp.appl.access
Titolo: OutputTo  nome file

Buongiorno a tutti
Su click di un bottone vorrei esportare una query in excel tramite il metodo 
OutputTo,
dandogli il nome del file composto da tre campi di una maschera, ma mi dice 
"impossibile salvare i dati di output nel file selezionato"
Un'altra cosa che mi piacerebbe fare, � quella di verificare se nella 
cartella destinataria esiste gi� un file con quel nome.
grazie anticipatamente
Toni
riporto il codice inserito:
Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click
Dim nomefile As String
nomefile = "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " & Me.sez & 
".xls"
If DCount("*", "esportaquery") > 0 Then
DoCmd.OutputTo acOutputQuery, "esportaquery", acFormatXLS, nomefile
Else
MsgBox "In base alla richiesta formulata non ci sono dati da esportare", 
vbExclamation
End If
Exit_Comando20_Click:
    Exit Sub
Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
End Sub

 ha scritto nel messaggio 
news:c4xJm.91987$9f6.1...@twister1.libero.it...

Dal codice sembra che metti degli spazi, non graditi a Windows.
Probabilmente o togli gli spazi o metti tutto tra virgolette:
nomefile = "C:\Questionarioprova\" & Me.ansc & Me.ist & Me.sez & ".xls"
oppure:
nomefile = "'" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " & 
Me.sez & ".xls" & "'"
oppure ancora:
nomefile = """" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " & 
Me.sez & ".xls" & """"
Ciao, Carlo 


o ancora :
nomefile =  chr(34) & ...tutta_la_tua_stringa... & chr(34) 

Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non � andata male.
Ciao, Carlo 


no... � andata benissimo... 1 punto guadagnato visto come ieri ha giocato il 
Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina, Milan, e 
Juve, un calo sia psicologico che fisico � d'obbligo... buono � che c'� la 
sosta...
;-) 

 ha scritto nel messaggio 
news:8VxJm.91196$1s6....@twister2.libero.it...

Beh, psicologicamente dovrebbero stare benone, fisicamente un po' meno.
Comunque in sette giorni potranno smaltire bene l'acido lattico.
Forza ciuccio!
Ciao, Carlo 

 ha scritto nel messaggio 
news:8VxJm.91196$1s6....@twister2.libero.it...

OK Funziona, avevo anche un carattere non valido come separatore nel  campo 
"ansc"
Grazie a tutti ! 

 Grazie a tutti !
Credo che qui avresti dovuto aggiugnere un "Forza Napoli". :-)
Riccardo Baldinotti

 Riccardo Baldinotti
bravo!!!! con questo hai meritato un bonus per un aiuto a gratisse! :D 

 - Mostra testo citato -
Meno male! Con quel che costano i forum oggidì... ;->
Riccardo Baldinotti
Newsgroup: it.comp.appl.access
Titolo: compatta e ripristina DB  errore

ho un DB molto articolato che se eseguo un "compatta e ripristina
database" mi compare il messaggio di errore "impossibile trovare il campo
"Description"" e con la conseguenza che non mi fa fare neanche una "crea
copia di file MDE".
Stò uscendo pazzo! Questo campo "description" non lo trovo da nessuna
parte" come posso agire? si può fare un debug di tutto il DB?
ho riprovato a controllare le ultime query e report che ho fatto ma non mi
danno errori!
S.O.S.
l.
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 ...
 
Il messaggio non si riferisce ad un campo creato da te
ma di solito si tratta di una corruzione in una tabella di
sistema nella quale Access non puo più leggere tutta
l'informazione su un oggetto del DB.
 
Fai una copia di sicurezza del file e prova ad importare tutti
oggetti in un nuovo MDB.
 
Se non riesci, rivela la versione di Access e prova gli altri
metodi di  
http://www.donkarl.com/it?FAQ1.27
.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 
 

Karl Donaubauer ha scritto:

ok! intanto dico che la versione di office professional che stò usando è
la 2003, e ora vado a eseguire il tuo primo consiglio, poi rapporterò!


 l.
 
 
ho risolto! con una stronzata compatibile con i PC!
in pratica ho copiato il DB su un'altra cartella del PC, l'ho aperto,
nessun errore, tutto alla perfezione mah! l'ho sempre detto! a combattere
con i compiuter è uguale a combattere con le donne! puoi starci per una
vita intera ma non riuscirai mai a capirle/i fino in fondo.
l
Grazie DON Karl


Newsgroup: it.comp.appl.access
Titolo: STAMPA ETICHETTE

DUE QUESITI:
1)
Ho la necessità di stampare delle singole etichette su una stampante ad aghi
(es: 1 indirizzo alla volta). Esiste un modo per impostare la lunghezza
della pagina pari alla lunghezza della singola etichetta ?
Per il momento ho aggirato il problema facendo eseguire (tramite un file
*.bat) una stampa in modalità DOS, vorrei sapere se è possibile stampare
anche sotto WINDOWS.
2) Dove posso procurarmi una tabella che indichi il valore dei caratteri ?
 ES:
CHR(13) = ritorno a capo
CHR(10) = avanzamento
Grazie a quanti/chi vorrà rispondere

 CHR(10) = avanzamento
Nel online help cerca con "ANSI".
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com

 Nel online help cerca con "ANSI".
Ho trovato poca roba sull'help online,

Newsgroup: it.comp.appl.access
Titolo: Re:impedire apertura report

Perché usinl'evento Apertura quando il Report ha l'evento dedicato
 che peraltro richiedencodice=0...?
 
 
http://www.fmsinc.com/free/newtips/Access/accesstip45.asp
 
-- 
@Alex
 
 
----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html
 

 come devo fare?
 
Evitare la stampa in assenza di dati
https://www.donkarl.com/it?FAQ5.8
 
 
-- 
Ciao
Karl
*********
http://AccessDevCon.com
 
Access FAQ: 
https://www.donkarl.com/it
 


grazie Alex


grazie Karl
Newsgroup: it.comp.appl.access
Titolo: Inno Setup

Chiedo scusa in anticipo , perchè non so se e questa la sezione
giusta , sto utilizzando inno setup per creare un piccolo setup ,
leggendo sono riuscito a creare l'icone per il wizardimagefile=c:\ecc
ecc e il SetupIconFile=c:\ ecc ecc , non riesco a trovare la
spiegazione per impostare un'icona sul desktop , o meglio mi crea il
collegamento sul desktop , ma non riesco a capire come impostare
un'icona personalizzata , qualcuno mi sa dare una mano?
Grazie in anticipo e chiedo ancora scusa se non è questa la sezione
giusta

 ha scritto nel messaggio 
news:d78255c0-7c22-4ff5...@b1g2000hsg.googlegroups.com...

----
adesso ti scannano!
t. 

 adesso ti scannano!
hehehe Thomas ha proprio ragione... 
prima di postare un messaggio di richiesta è buona cosa leggere intanto i messaggi del ng, per vedere se si è OT con una richiesta...
E, se lo avessi fatto(lolince), avresti trovato la risposta alla tua domanda proprio in un messaggio di ieri... (proprio su una risposta data a  thomas )
Ciao,
Max

On 26 Mar, 12:27, "Massimo Piubelli"

No ragazzi ho letto , ho letto anche le frustate verbali (inter e non
inter) solo che bnon ci ho capito lo stesso , infatti leggendo ancora
forse ho capito .
Uno chiede aiuto dopo che ha letto infatti :-) , cmq sono pronto
lapidatemi pure basta che poi la soluzione è questa Tasks:
desktopicon;IconFilename: {app}\icone\data.ico

 desktopicon;IconFilename: {app}\icone\data.ico
L'italiano a casa vero ;-)
Di che sei interista anche tu ^__^
Ma alla fine ti funziona o no????
Ciao,
Max

On 26 Mar, 13:14, "Massimo Piubelli"

Si funziona , grazie , in effetti simpatizzo per l'inter :-)


...e ci credo.  :-)
-- 
Ciao
Geppo 

 lapidatemi pure
Bene preparati, se ti pizzicano Bruno ed @Alex...  :-)
-- 
Ciao
Geppo 

 Bene preparati, se ti pizzicano Bruno ed @Alex...  :-)
ssssss... non svegliare can che dorme :-)
Newsgroup: it.comp.appl.access
Titolo: modulo nascosto in report

Salve a tutti
Da neofita spero mi passerete la domanda se non proprio pertinente o
mal formulata :-)
Nel modulo di classe di un report costruito in A97 ho inserito il
seguente codice ...
---------------------------------------
Option Compare Database
Option Explicit
Private Sub Report_Close()
DoCmd.Close acForm, "Selezione analisi campione"
DoCmd.ShowToolbar "Stampa", acToolbarNo
End Sub
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Il report non contiene dati." + Chr(10) _
        & "La stampa del report è annullata." + Chr(10) _
        & "Verificare l'origine dei dati per il report per accertarsi
di" + Chr(10) _
        & "aver immesso i criteri corretti ." + Chr(13), vbOKOnly +
vbInformation
    Cancel = True
End Sub
Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize
End Sub
---------------------------------
Dovendo utilizzare lo stesso report in un FE diverso e in A00 ho
pensato bene ( o male non so) di copiare direttamente il report
eliminando nel modulo di classe la chiamata alla barra di stampa
personalizzata :
DoCmd.ShowToolbar "Stampa", acToolbarNo
ciò nonostante quando tento di aprire il report mi compare il
messaggio di errore per la mancanza della barra personalizzata (che
non voglio usare), ma che sembra essere comunque ricercata....e dopo
l'errore il report non viene creato. Io sono matematicamente sicuro di
aver cancellato la riga di comando e di aver salvato il nuovo report.
Questa riga è forse inserita in qualche modulo nascoto creato da A97,
o più verosimilmente commetto qualche errore banale (che ignoro) ?
Mi potete dare qualche dritta ?
Rigrazio anticipatamente per l'aiuto
Andrea

 Mi potete dare qualche dritta ?
Non è che la barra è nella proprietà barra menù del report, nella linguetta
altro?
Antonio

 Antonio
Purtroppo le voci
- barra menu
- barra degli strumenti
- barra menù  scelta rapida
nella linguetta Altro sono vuoti
non so cosa pensare
Newsgroup: it.comp.appl.access
Titolo: Workaround SizeToFit per label in alternativa CommanButton ma con effetti flickering

Buon giorno,
ho necessità runtime di centrare testi contenenti 4-8 righe su una labele e di centrare il contenuto sia in X che in Y.
In modalità struttura potrei eseguire MyLabel.SizeToFit e poi spostarla a piacimento. Ma voglio evitare assolutamente open in design.
Allora utilizzo i CommandButton molto grandi e la centratura risponde alle mie esigenza. C'è un PERO'!
Purtroppo il flickering a schermo intero è (quasi) orrendo anche cond Echo False e Echo True. Niente sfarfalla alla grande (perché il pulsante occupa quasi tutto lo schermo - in pratica simulo sono delle slide comandate da un'altra form)
C'è una possibilità di migliorare l'aspetto e la risposta a video?
Potrei in alternativa usare gli oggetti automazione PowertPoint, ma la cosa mi repelle.
Access 2010 - 2016
Grazie!
Daniele

Maschera o Report...?
Non lo dici... ma nei REPORT sarebbe banale, ci sono gli strumenti nativi per capire l'ingombro dei testi e di conseguenza delle RIGHE sapendo che hai un vbNewLine...
 
Nelle maschere potresti andare a tentativi empirici, calcolando le dimensioni dell'altezza in base alle righe e della larghezza in base ai CHAR...!
Otterresti qualche cosa di molto approssimativo... che poi applicheresti usando le proprietà:
 
Property TopMargin As Integer
    Membro di Access.Label
 
Property LeftMargin As Integer
    Membro di Access.Label
 
Se vuoi invece farlo come si deve, ci sono le API per fare queste cose. 
La cosa non è estremamente impossibile, anzi abbastanza semplice, ma non so se ne vale la pena anchein considerazione delle conversioni 32/64bit ecc...!
 
@Alex


Si tratta di form sorry. Access 32 bit. Win 10 64.
A peggiorare le cose è che per simulare un'ombreggiature "clono" le label con posizione x,y con pochi twips di differenza e colori + scuri. Insomma un accrocchio.
Potresti per favore darmi delle dritte con delle API? Sarebbe fantastico anche se ci fosse qualcosa per l'ombreggiatura... 
Grazie!!
Daniele
Grazie.


Ombreggiare una LABEL...? Non ha hWnd non è gestibile ed oltretutto a livello grafico, l'unico modo per disegnare è usare un Controllo Immagine(si diegna in memoria e poi si copia nel controllo), ma devi avere la Form Popup altrimenti non si genera il Repaint... e non va bene...!(Credimi sulla parola)
 
Se vuoi dare un'occhiata in questo DEMO trovi un po tutto quello che serve, non è affatto banale... ma se ci vuoi lavorare:
 
http://mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=290.html
 
 
@Alex


Ombreggiatura tipo questa 
https://cmv-ds-images.s3.amazonaws.com/wp-content/uploads/innerinsetshadow-6.jpg
 
Ricordo quel link :-)
Grazie!
Newsgroup: it.comp.appl.access
Titolo: troncamento campi

Salve, nel db che uso mi hanno convertito i listini prezzi con 5 decimali
dopo la virgola, e naturalmente non tutti hanno i 5 numeri. Quello che
vorrei fare con una query di aggiornamento è selezionare tutti i prezzi con
i 5 decimali e troncare gl'ultimi tre (so' già che questo abbasserà il
prezzo)
Che criteri devo usare?
Saluti Axel





 ha scritto nel messaggio
news:a11pkh$hrt$1...@pegasus.tiscalinet.it...

Se ho capito il problema, basta creare una query temporanea, in una colonna
arrotondi/tronchi con un'espressione tipo
A:int(tuocampo)
oppure A:round(tuocampo;5)
poi fai funzionare la query e copi e incolli la colonna A sul "tuocampo".
Cancelli la query e hai finito.
Fabio Dalla Villa
 Biella (BI) 13900



è meglio usare la funzione di Karl
Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Saluti.
Emanuele.

 Cancelli la query e hai finito.
Giustamente vorrei usare una query temporanea, però l'espressione int mi
tronca il campo dopo la virgola e l'espressione round, il mio access 2.0 o
anche 97, non la riconosce.
Ciao Axel





 wrote in message
tl4b3ukdk65fevq5q...@4ax.com...

è meglio usare la funzione di Karl, è meglio si! ma dove la sbologno stà
Function?



per poterla usare la devi copiare prima su modulo    vedi tabelle,
query, maschere ed alla fine modulo.... ne crei uno ed incolli la
funzione
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Sito fantastico dedicato ad Access!

E' molto tempo che non frequento quest'area, probabilmente starò postando un
link che tutti conoscono ... però non si sa mai:
Ho trovato molto materiale di livello eccezionale:
http://www.mantuanet.it/alessandro.baraldi/

 ha scritto nel messaggio
news:F_D6d.14784$H11.4...@twister1.libero.it...

Grazie.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------



Guardando un po' i post avresti visto che il suo webmaster è iscritto a
questo NG...
Ciauz
PS

 Grazie.
ehi!!!
ho provato a scaricarlo quell'eempio, ma quando vado a installarlo di da
il seguente errore "Extracting API_Round_RectForm.mdb
CRC failed in API_Round_RectForm.mdb
Unexpected end of archive" che è successo?????
luigi
-- 
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:2s0gqvF...@uni-berlin.de...

da quando occorre iscriversi al ng???? ehhee!!!
per la cronaca Alex non è iscritto, è "solo" una delle indispensabili
colonne portanti!!!

 luigi
Quale Esempio...?
Che versione di Aggiornamento hai...??
E' stato fatto con W2K Access_XP con SP4.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex.
l'esempio taskmanager della sezione API
ho windows XP pro sp2 e accessXP sp2
ciao


 ha scritto nel messaggio
news:cjgfpg$ku0$1...@hulme.interac.it...

Lapsus: volevo dire ha sottoscritto... ;-)
Ciao
PS

 ...
*gd&r*
Karl

 ha scritto nel messaggio
news:2s2u5oF...@uni-berlin.de...

Giuro di SI... sono ISCRITTO...!
Perchè voi no...??
Ciao.


 ciao
Potresti non disporre di una DLL o di una versione
usata da me nello sviluppo....!
Per ora non pubblico la versione MDB per il fatto che
per alcune parti del codice non scritte da me non ho
ancora ottenuto il consenso alla pubblicazione OpenSource.
Appena mi sarà possibile lo farò.


 Ciao.
Credo che Karl volesse intendere  che Enrico fosse
tu stesso sotto mentite spoglie
Qui ci vuole la prova dell'ip
MAssimiliano

 MAssimiliano
Fate pure, questi giochetti non mi appartengono MAI.


 @Alex.
Solo perché non vedo smileys nei tuoi post: Il *gd&r* vuol
dire che un messaggio è inteso come scherzo. Puo darsi
che manca un po' il Biso per il solito livello satirico qui.
-- 
cu
Karl
*********
Access-FAQ 
http://www.donkarl.com/it


E' vero il Biso manca un pò...
non so chi prendere in giro... Pablitomf è troppo semplice.
;-P
MAssimiliano

 che manca un po' il Biso per il solito livello satirico qui.
Non hai notato il KUT stile StrurmTruppen...!!
Non preoccuparti Karl non c'è ASSOLUTAMENTE POSSIBILITA'
che mi offenda per scherzi o battute....!
Ho dimenticato ;-) ma era sottointeso...!!!
Ciao Buon WeekEnd
Alessandro


 Appena mi sarà possibile lo farò.
ok!
aspetto !

Newsgroup: it.comp.appl.access
Titolo: bookmark

Sono certo che per gli esperti è una sciocchezza ma io ci sto impazzendo su.
Proprio non riesco a capire come si utilizza la proprietà bookmark in una 
maschera nella quale devo cambiare ordinamento dei dati rimanendo nel record 
che è visualizzato al momento del cambio di ordinamento.
Sono certo che è la proprietà bookmark che mi serve ma non riesco ad 
impostare una routine correttamente.
Ricapitolando:
Ho un pulsante di comando che tramite la seguente riga di codice cambia 
l'ordinamento dei dati di una maschera
Me.RecordSource = "SELECT * From [NomeTabella] Order By [NomeCampo]"
a questo punto dopo l'esecuzione del comando vorrei tornare al record che 
stavo vedendo prima di premere il pulsante
Qualcuno è in grado di darmi qualche suggerimento??
Grazie in anticipo
Paolo 


Non ne sono sicurissimo, ma se cambi il recordsource non credo che tu 
possa bookmarkare. se hai una chiave univoca ti consiglierei di salvarla 
e poi fare una find o findfirst (dipende dal metodo di accesso) su 
recordset per riposizionarti
-- 
ac
y-1=x

 Qualcuno è in grado di darmi qualche suggerimento??
prima dell'orderby registri in una variabile la chiave primaria del 
record correte.
Dopo l'ordinamento apri un recordset sul'attuale recordset della 
maschera e poi usi il metodo findfirst "campo_pk=" & variabile_id & ""

In teoria ho capito....
ma.. due righe di codice non potresti postarmele?
Grazie
Ciao
"Silver" <cra...@TOGLIMIhotmail.com> ha scritto nel messaggio 
news:uCn5i.2753$nT2....@tornado.fastwebnet.it...


> me.form.orderbyon=true
set rs=me.recordset
rs.findfirst "campo_pk=" & variabile_id & ""
set rs=nothing

Newsgroup: it.comp.appl.access
Titolo: errore all'apertura

Quando provo ad aprire il mio database con doppio click da gestione
risorse, Access mi spara un messaggio del tipo:
Impossibile trovare il file di database 'F:\Rilasci\.mdb'
Verificare che il percorso e il nome di file specificati siano corretti
Se apro prima Access e poi richiamo il mio file tramite il menu
file\apri, lo apre senza problemi. Mi hanno detto che il database deve
sempre rimanere nella stessa directory in cui viene creato, in pratica
e' legato al percorso. E' possibile una cosa del genere? Io credo di no
perche' altrimenti non sarebbe adatto ad un utilizzo dalla rete (ogni
client avra' il disco mappato con una lettera diversa).
Grazie dell'ascolto.
Manuela

 wrote in message
39D9AB4C...@sodalia.it...


e' legato al percorso. E' possibile una cosa del genere? Io credo di no
no, questo riguarda gli allegati.  il percorso degli allegati č fisso,
quello sě.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 quello sě.
OK grazie. Mi hai tolto un dubbio preoccupante.
Manuela

 > e' legato al percorso. E' possibile una cosa del genere? Io credo di no

Newsgroup: it.comp.appl.access
Titolo: RUNTIME - avviso di protezione

con la procedura pachage Wizard dell'office developer xp ho creato un file
di installazione del runtime e di un applicativo access.mde su un altro
computer, ma all'apertura di quest'ultimo mi si aprono le finestre di
avviso di protezione di windows .
Ricordo che dovevo settare qualcosa quando usavo il Pachage wizard ma non
ricordo cosa, e siccome l'office developer ha una guida in linea che è uno
schifo, non riesco a reperire tale informazione o la procedura da seguire
per l'installazione del runtime su un altro PC.
mi potete dare una mano?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.


 > grazie
scusa, ma non ho capito!
cosa č inno setup? puoi essere piů chiaro?
grazie
-- 


 > mi potete dare una mano?
 > grazie
ho visto anche la soluzione sul sito di karl sezione Generale 2.28, ma non
è il settaggio del pachage wizard alla voce "Additional Registry Key" che
intendo io e che non ricordo quale sia.
-- 


 ha scritto nel messaggio 
news:e28dbo$f0n$1...@news.newsland.it...

Ciao,
Basta modifica da registro le voci
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Security\Level
Ci deve essere un valore DWORD da impostare ad 1
comunque adesso non ricordo bene, ma sul lavoro ho 20 postazioni con Runtime 
Access e per superare il problema ho creato due chiavi di registro.
E per i computer collegati in rete LAN è necessario modificare 
l'impostazione Protezione Intranet locale.
.Bat

 ..Bat
ho provato in tutti i modi , ma niente non funziona!


[CUT]
Strano,
come dicevo io ho risolto modificando il regedit le varie Key del Jet 4.0.
Per eseguire la procedura su diversi computer collegati al dominio ho 
esportato due chiavi di nome
Jet.reg e Security.reg.
Jet.reg
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines]
"SystemDB"="system.mdb"
"CompactByPKey"=dword:00000001
"PrevFormatCompactWithUNICODECompression"=dword:00000001
"SandBoxMode"=dword:00000002
ecccc.
....
Security.reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security]
"Level"=dword:00000001
Lunedě cerco la documentazione e ti faccio sapere, spero di trovare la 
soluzione.
Ciao
.Bat

 ..Bat
grazie! aspetto con pazienza.
ma hai mai provato a modificare il registro via Wizard del runtime?
luigi


 ..Bat
AGGIORNAMENTO!!!
FUNZIONA!    tutto ok!
dovevo riavviare il PC per far funzionare le modifiche.
grazie
luigi


No. Non ho mai provato a modificare il registro da Wizard.
Quindi tutto funziona Ok? cosa hai fatto?
ciao
.Bat
Newsgroup: it.comp.appl.access
Titolo: Reprise: Rilevare valore da una tabella da maschera

Come non detto:
=Dlookup("Qta";"Magazzino";"articolo='" & [Form]!Articolo & "' And
Dataarrivo=" & format(DMax("Dataarrivo";"Magazzino";"articolo='" &
[Form]!Articolo & "'");"\#gg/mm/aaaa\#"))
Non funziona :(
Se per esempio ho un carico in data 29/06/04 e uno in data 30/06/04
mi prende effettivamente la qta del 30.
Se invece ho un carico in data 29/06/04 e uno in data 01/07/04 non
mi compare alcun risultato.

"Spider"

Il mistero si infittisce: tutto funziona se le date che popolano il campo
Dataarrivo
sono 2*/**/** oppure 3*/**/**.
Non funziona invece in presenza di date: 0*/**/** e 1*/**/**  :(
Mentre:
=DMax("Dataarrivo";"Magazzino";"articolo='" & [Form]!Articolo & "'")
funziona perfettamente.
In effetti Namor mi aveva suggerito il codice:
=Dlookup("Quantità";"Magazzino";"articolo='" & [Form]!Articolo & "' And
Dataarrivo=" & format(DMax("Dataarrivo";"Magazzino";"articolo='" &
[Form]!Articolo & "'");"\#mm/dd/yyyy\#"))
L'impressione che ho e' che il problema sia proprio in  \#gg/mm/aaaa\#,
d'altra parte, con \#mm/dd/yyyy\# non funziona affatto.
Mah.....

Spider ha scritto:
Continua l'altro thread, non aprirne uno nuovo sennò chi legge il vecchio
post non trova la soluzione.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Namor
Ok, sorry ;)
Newsgroup: it.comp.appl.access
Titolo: [acc97] carattere chiocciola reale

salve ng
sto ciclando una tabella che contiene indirizzi mail
purtroppo però ad ogni @ il testo ritorna a capo e l'indirizzo si
spezza in 2
quindi 
pi...@mail.it
mi torna
pippo
mail.it
ho provato a dividere l'indirizzo aggiungendo un campo alla tabella
quindi mail & "@" & dominio e concatenarli ma neanche così
come posso ovviare al problema ?
grazie sandro

 ha scritto nel messaggio 
news:1192204275.3...@q3g2000prf.googlegroups.com...
salve ng
sto ciclando una tabella che contiene indirizzi mail
purtroppo perň ad ogni @ il testo ritorna a capo e l'indirizzo si
spezza in 2
quindi 
pi...@mail.it
mi torna
pippo
mail.it
ho provato a dividere l'indirizzo aggiungendo un campo alla tabella
quindi mail & "@" & dominio e concatenarli ma neanche cosě
come posso ovviare al problema ?
grazie sandro
prova con chr(64) dovrebbe restituire la chiocciola.
vtt 

provato
stessa storia :\
quando stampo su msgbox torna a capo....
grazie cmq


Hai provato a racchiudere tra apici o doppiapici?
Beppe

tutto... anche combinazioni
niente da fare
:(

 ha scritto nel messaggio 
news:1192433990....@v29g2000prd.googlegroups.com...

ah! ma fammi capire meglio, cosa intendi per stampa su msgbox? Probabilmente 
utilizzi le macro e non il codice vba.
Se utilizzi le macro con 'finestra messaggio' il carattere @ serve per 
dividere il testo in tre sezioni che vanno a capo (testo in 
grassetto@testo@testo), ma se utilizzi una sola chiocciola il testo viene 
visualizzato correttamente su di una sola riga.
Tramite VBA con la funzione MsgBox il problema non si verifica: quindi 
dovresti crearti un modulo con una funzione public che richiami a tuo 
piacimento anche da macro tramite 'esegui codice':
Public Sub VivaLaChiocciola
    dim strTesto as String
    strTesto = "tutte le chiocciole che vuoi: " & vbcrlf  & "@bionda @bruna 
@mora"
    MsgBox strTesto
End Sub
La difficoltà è nella costruzione della stringa che ti interessa. 

grazie 1000
è un bugghino di acc97
finalmente ne siamo venuti a capo
http://groups.google.com/group/microsoft.public.it.office.access/browse_thread/thread/c84d51c535e305eb/#
sandro

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

salve a tutti,
tempo fa ho postato un messaggio riguardo il problema della stampa di 
immagini, nello specifico l'impossibilità di stamparne più di alcune in una 
volta sola.
Alcuni di voi, penso di ricordarmi, erano sulla via per trovare una 
soluzione. Essendo io stato lontano dal newsgroup (per lavoro ero in una 
zona in cui non potevo connettermi), volevo sapere se ci sono stati degli 
sviluppi o addirittura se, voi che riuscite a risolvere tutto (come 
farete?), avete trovato una soluzione, sarebbe, per me una svolta.
Grazie
ADR 

 ha scritto nel messaggio 
news:465fdaf9$0$10626$4faf...@reader2.news.tin.it...

io inizierei a cercare in google!!!
Newsgroup: it.comp.appl.access
Titolo: n° copie in stampa report

Avrei bisono di impostare il numero di copie in cui và stampato un report
reperendo il valore direttamente dalla form a cui il report e legato e dal
quale viene richiamato per mezzo di una sub.


Prova con questo codice da inserire in un modulo:
Public Function StampaRep(rep As String)
    Dim quanti
    If rep = "" Then Exit Function
    quanti = InputBox("Quante copie vuoi stampare?" & vbCrLf & "(0 per
annullare la stampa", "Opzioni Stampa", 3)
    quanti = Val(quanti)
    If quanti < 1 Then Exit Function
    DoCmd.SelectObject acReport, rep, False
    'Stampa quanti copie del report
    DoCmd.PrintOut , , , , quanti
End Function
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 wrote in message
j97l6.9916$k55.3...@news.infostrada.it...


 che si desidera stampare n volte?
Innanzi tutto rispondi dopo i messaggi precedenti (o, come direbbe il Dottor
Biso, "dopo il quoting").
Poi non ho capito a cosa ti riferisci.
Nel ns. caso 'StampaRep' è una funzione Public, quindi può essere richiamata
da qualunque parte del programma (maschera, report, codice, macro ...),
andando a specificare il nome del report da stampare.
Ad esempio, in VBA, la richiamerai con un miavar = StampaRep("MioReport")
dove "MioReport" è il nome del report da stampare.
Se la tua domanda si riferiva a qualcos'altro, specifica meglio cosa vuoi
sapere.
Ciao

Newsgroup: it.comp.appl.access
Titolo: AAAAAGH! Luciano dov'eriiiiii! errore tremendo sul sito comune...

anche sul sito comune possono esserci errori, c'è ne ( :-))) ) uno
alla sezione acronimi...
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 --
Parli di
LOL = Laughing Out Loud
?
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 LOL = Laughing Out Loud
vado e correggo ;-)
grazie
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

 alla sezione acronimi...
Dov'ero? A correggere le sgrammaticature del Biso! Aufff!! Il lavoro sporco
tocca sempre a me!!:-)))
Saluti.
lucia...@sitocomune.com

 grazie
Hem....bono Federi', non peggiorare la situazione....:-)))
Non era quello l'errore che diceva lbo, poi te lo dico a 4 occhi.....:-)))
Comunque, gia' che ci sei: See you later non e' CUL ma CUL8R (lo so che
sembra culo rotto, ma no lo e'!:-)
Saluti.
lucia...@sitocomune.com

 sembra culo rotto, ma no lo e'!:-)
vanno entrambi bene, su questo sono sicuro.


 sembra culo rotto, ma no lo e'!:-)
Nonononononono, per "See You Later" CUL non č falso.
http://www.acronymfinder.com/af-query.asp?String=exact&Acronym=cul
L'ho visto CUL piů volte che CUL8R. Pero tutti e due non molte volte
in un ng. Mi sembra che sono piů importante per chatters.
Invece viene frequente:
--
cu
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco): 
http://www.donkarl.com

sembra culo rotto, ma no lo e'!:-)
ce n'è un altro che mi piace molto che ho letto poco tempo fa:
TIMTOWTDI, there is more than one way to do it, questa cosa si può
fare in diversi modi.


LOL = Laughing Out Loud
no, "c'č ne" invece di "ce n'č".


 no, "c'è ne" invece di "ce n'è".
Aho, pure te??? Maa che c'e' n'epidemia in giro?????:-))))
"CE NE SONO"!!!!
Non "c'e' ne sono" e neppure "ce n'e' sono"
Saluti.
lucia...@sitocomune.com

"CE NE SONO"!!!!
"ce n'è più d'uno" per me è corretto.


 "ce n'è più d'uno" per me è corretto.
eheh... hai scritto: ...c'è ne ( :-))) ) uno...
Che significa certamente: c'è ne LOL uno
Poi io come esperto famoso per la lingua italiana voi dico
chiaramente un forte e dichiarato: hhhhh?
ceterum censeo che CUL o CUL8R sono tutti e due non
necessario in un ng-FAQ perché non sono abbr. frequenti.
Ok, forse CUL8R perché mi ricordo di aver imparato questo nelle
strade di Roma. Era ~1993 che un ubriaco butato fuori da un
bar l'ha gridato ripetutamente al barkeeper. Era molto istruttivo.
Allora non ho saputo che l'ha preso dal Internet.
cu
Karl
*********
Non meravigliarti del mio italiano superiore.
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Spostamento tra record con campi corrispondenti

Buongiorno a tutto l'NG.
Vorrei avere la possibilità di spostarmi, in una maschera continua, da un 
campo presente in un record allo stesso campo nel record successivo fino 
alla fine del rs.
Grazie.Marco 

 ha scritto nel messaggio 
news:4743f311$0$4796$4faf...@reader4.news.tin.it...

Freccia giù?
Temo di non aver capito.
Ciao, Carlo 

campo del record successivo. Spero di essermi spiegato.Garzie.Marco 


Per esempio cosė?
Private Sub TuoCampo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
DoCmd.GoToRecord acActiveDataObject, , acNext
Me.[TuoNomeCampo].SetFocus
End If
End Sub
Ciao, Carlo 

Come associo il codice, su invio o dopo aggiornamento ?
Mi sono perso.
Marco

 ha scritto nel messaggio 
news:47441a81$0$10616$4faf...@reader2.news.tin.it...

Su invio la vedo dura perchč andrebbe in loop...ecco perchč ho messo il 
codice su "tasto giů" del controllo che comunque cattura il tasto Invio e 
funziona ugualmente.
Quindi riassumendo....su "Tasto giů" del controllo che a te interessa 
scrivi:
If KeyCode = 13 Then
DoCmd.GoToRecord acActiveDataObject, , acNext
Me.[QuiMettiIlNomeDelCampo].SetFocus
End If
Ciao, Carlo 

Grazie, è perfetto.

Newsgroup: it.comp.appl.access
Titolo: Distinta Banca e relazioni tabelle

Avrei un problema da risolvere, ma non sono molto esperto.
Ho la necessità di gestire una cassa giornaliera del mio DB, questa cassa
deve contenere i seguenti riquadri:
"Assegni"
N° assegno
banca dell'assegno (scelta da un elenco)
importo dell'assegno
"Contanti"
Taglio dei contanti (Scelta da un elenco)
n° pezzi dei contanti selezionati.
di questi dati qui sopra non ho nulla, quindi dovrei creare tabelle e
relazioni, l'unica cosa che possiedo è la tabella con il cliente e l'importo
pagato.
Come devo gestirmi le tabelle e le relazioni per fare funzionare il tutto
dentro ad una sola maschera?
Praticamente la mia maschera dovrebbe essere divisa da 3 riquadri:
assegni (immetto i dati)
contanti(immetto i dati)
e Clienti con importo pagato (i dati ci sono gia)
Ovviamente questo gruppo di 3 riquadri forma a sua volta un record con un id
ed una data versamento.
Vi prego di aiutarmi perche non riesco a capire le relazioni che devo creare
mi sono incasinato...
grazie.

ti ho risposto nel 3d precedente
basta un solo riquadro aggiuntivo
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Conversione di stringhe in numeri (quando possibile) in una query.

Ciao a tutti.
Ho una colonna di testo con dei valori di misura che possono avere
l'aspetto di stringhe numeriche con la virgola come separatore decimale
("2,3" ad esempio) oppure stringhe di errore come "n/a".
C'è la possibilità di convertirli, dove possibile, in valori numerici,
sostituendo il numero 0 dove non possibile? Ho provato con val() ma non
vede la virgola come separatore decimale, mentre Cdbl va in errore se
trova caratteri alfanumerici. IIf(IsError()) comunque non permette di 
controllare l'errore.
Scusate se è una domanda banale e grazie anticipatamente.
-- 
Ciao
Nico

 Nico
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Query ok...autocomp. report da errore (Null)

 
          Buongiorno, questa č la query (qualcuno storcerą il naso ma sono
autodidatta):
PARAMETERS [data_inizio_gg/mm/aaaa] DateTime, [data_fine_gg/mm/aaaa]
DateTime;
SELECT f_docrig.codicecf, f_anagrafe.descrizion, f_anagrafe.localita,
f_anagrafe.prov, f_anagrafe.pag, f_pagament.descrizion,
Sum(f_scadenze!impeff*(f_scadenze!datascad-f_scadenze!datafatt))/Sum(f_scadenze!impeff)
AS [gg medi contratto], Sum(f_docrig.prezzotot) AS SommaDiprezzotot,
f_anagrafe.agente
FROM ((f_anagrafe INNER JOIN f_docrig ON f_anagrafe.codice =
f_docrig.codicecf) INNER JOIN f_pagament ON f_anagrafe.pag =
f_pagament.codice) INNER JOIN f_scadenze ON f_anagrafe.codice =
f_scadenze.codcf
WHERE (((f_docrig.tipodoc)="FT" Or (f_docrig.tipodoc)="NV") AND
((f_docrig.datadoc) Between [data_inizio_gg/mm/aaaa] And
[data_fine_gg/mm/aaaa]))
GROUP BY f_docrig.codicecf, f_anagrafe.descrizion, f_anagrafe.localita,
f_anagrafe.prov, f_anagrafe.pag, f_pagament.descrizion, f_anagrafe.agente
HAVING (((Sum(f_docrig.prezzotot))>0))
ORDER BY Sum(f_docrig.prezzotot) DESC;
Quando poi provo a costruire il report relativo con autocomposizione (nn
sono capace di farli bene) mi da questo messaggio:
"Errore di compilazione nell'espressione della query
IIf(isnumeric([tblstyles].[stylename]),apploadstring([tblstyles].[stylename]),([tblstyles].[stylename])"
non ci capisco un'ACCA.
Grazie in anticipo x eventuali aiuti.
Montanaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

          Buongiorno, questa è la query (qualcuno storcerà il naso ma sono

Questa "apploadstring([tblstyles].[stylename])" cosa dovrebbe fare?
Prova a cambiare la virgola con il punto e virgola quando utilizzi le funzioni:
IIf(isnumeric([tblstyles].[stylename]);apploadstring([tblstyles].[stylename]),([tblstyles].[stylename])
Che messa così sembra non essere completa la sintassi della funzione iif (vedi help), manca la parentesi che chiude l'iif:
IIf(isnumeric([tblstyles].[stylename]);apploadstring([tblstyles].[stylename]);[tblstyles].[stylename])
Ciao.
-- 
Sergio MAZZA 


          Ok grazie, adesso provo.
montanaro

Newsgroup: it.comp.appl.access
Titolo: come fare maschere a pieno schermo

Come faccio a far comparire la maschera iniziale e poi quelle secondarie 
sempre a schermo pieno senza possibilitą di riduzione...tra tutte le 
opzioni mi sto perdendo
tenete conto che lavoro su un portatile e vorrei dare il pieno schermo 
su tutti i tipi di monitor
grazie
nicolinuz

, 
nico...@TOGLIMIkatamail.com says...

metti docmd.maximize nell'evento su apertura della prima maschera e 
partirą ingrandita, poi lo saranno anche tutte le altre
-- 
Domande? Dubbi? 
prima di postare chiedi a 
groups.google.it

"Matteo Barsotti" <nomail@thank.u> ha scritto nel messaggio
news:MPG.1af8510cb...@news.libero.it...

data la mia esperienza direi di mettere il comando maximize all'attivazione
della maschera non solo all'apertura.
E poi setterei il bordo al valore: nessuno.


ma questi comandi dove li metto?
Newsgroup: it.comp.appl.access
Titolo: Errore Changeproperty

Salve,
Ho incollato questo codice preso dal sitocomune in un pulsante in una
maschera: (server per disabilitare/abilitare il tasto shift)
Private Sub Comando0_Click()
Dim stLinkCriteria As String
Dim strinput As String
Dim strMsg As String
Dim domanda As String
Dim messaggio As String
Dim intopzioni As Integer
 
    strinput = InputBox("Inserire una password valida.")
    strMsg = "Password corretta"
 
        ' Prova il valore di input utente.
        If strinput = "password" Then
        On Error Resume Next
        domanda = InputBox("Chiudere il database?")
            Const DB_Boolean As Long = 1
        If domanda = "Apri" Then
            ChangeProperty "AllowBypassKey", DB_Boolean, True
        Else
            ChangeProperty "AllowBypassKey", DB_Boolean, False
        End If
 
        Else
 intopzioni = vbCritical
messaggio = "La password immessa � ERRATA."
byscelta = MsgBox(messaggio, intopzioni)
DoCmd.Quit
         End If
End Sub
--------------------------------------
Quando clikko sul pulsante mi esce il seguento errore:
"Errore di compilazione..... Sub o Function non definita"
e mi evedenzia la parola :    ChangeProperty "AllowBypassKey", DB_Boolean,
True
Cosa puo' essere ?
Grazie
Ciao
Giorgio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Giorgio
Ho risolto... grazie lo stesso.
Ciao


Newsgroup: it.comp.appl.access
Titolo: Proprietà schermo

Come si possono adattare le maschere di Access a tutti i tipi di schermo?
Una maschera che va bene su 800x600 messa su uno schermo 1024x768 rimane
molto piccola!


Direi che ne puoi fare due, una per l'800 x 600 e una per il 1024 x 768...
In fase di avvio di Access testi la risoluzione del monitor e il gioco è
fatto...
Ciao.


Guarda su 
www.sitocomune.com
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it


puoi essere più preciso e indicarmi cosa cercare? A prima vista non ho
trovato nulla.
Ciao, Sandro


Sezione General di Carlo Costarella "Modificare la risoluzione video"


 molto piccola!
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ di
Alberto Marchi intitolata "Ridimensionamento automatico dei controlli di una
maschera".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Ancora query

Scusate se stresso ma devo finire un lavoro e mi blocco continuamente su ste
Query
Ho 2 tabelle una "Clienti" e l'altra "Lettere" che contiene l'elenco delle
lettere spedite ad ogni cliente
Faccio una correlazione fra due tabelle usando l'espressione LEFT JOIN
Vi semplifico la query in questo modo:
SELECT  clienti.ID, lettere.tipo  FROM clienti LEFT JOIN lettere ON
clienti.id
=CInt(lettere.cliente) WHERE CINT(lettere.tipo)<>2
Il problema si verifica quando non ci sono campi correlati e di conseguenza
l'espressione
CInt(lettere.cliente) diventa CINT(NULL) e ho un errore.
Cosa posso fare?
Grazie
Ciao

 wrote in message
pwN99.12365$pX1.3...@news2.tin.it...

Prova ad usare INNER JOIN invece di LEFT JOIN, cosě verranno selezionati
solo i clienti che hanno lettere.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Clipboard.GetData

Salve!
Qualcuno sa se e con quali riferimenti sia possibile usare il comando in
oggetto in Access 97?
ciao e grazie.
Ale

 ha scritto nel
messaggio news:a7s0p3$4n12$1...@stargate1.inet.it...

aspetta che provo cosi', chissa che qualcuno non mi risponda..
Me.Newsgroup.ThisMessage.visible = True
Riciao.

 Riciao.
it.comp.appl.access, che vedo hai gia' messo in crossposting.
comunque direi che clipboard non sia disponibile in vba.
j.

 j.
Grazie, lo supponevo ma volevo la conferma.
Newsgroup: it.comp.appl.access
Titolo: Ordinare in maniera specifica una serie di informazioni (in form e in rpt)

Salve a tutti, 
espongo subito il mio quesito (al quale fino ad ora non sono riuscito
a dare risposta anche cercando all'interno del NG):
Sto generando dei listini prezzi all'interno dei quali ci sono:
codice, prezzo e descrizione del prodotto (tbl Codici) e descrizione
della categoria a cui appartiene ogni prodotto (tbl Categoria).
La query (tbl Codici + tbl Categoria) a cui è legato il listino
(ovvero un rpt) ordina il tutto in maniera alfa-numerica, sia la
categoria alla quale appartiene il prodotto sia i prodotti all'interno
della categoria.
Io vorrei dare un'ordine prestabilito (non alfanumerico) alle
categorie ed ai prodotti, es:
Linea B: Prodotto 2, Prodotto 5, Prodotto 1 etc.
Linea F: Prodotto 3, Prodotto 2, Prodotto 6 etc.
Linea A: Prodotto 1, Prodotto 5, Prodotto 2 etc.
C'è un modo per farlo? Spero di essere stato chiaro! Grazie in
anticipo per il vosto prezioso aiuto, Ciao!

 ha scritto nel messaggio
news:9a83fee6.0410...@posting.google.com...

Ciao Carlo,
mi pare che per fare quello che vuoi tu, l'unico modo sia quello di
aggiungere un campo Ordinamento nella tabella categoria e un campo
Ordiamento nella tabella dei prodotti,  e in questo campo metterai 1 a
quello che vuoi vedere per primo , 2 al secondo e così via.
Dopo di che nella query di origine del report aggiungerai questi due campi e
gli dirai di ordinare  secondo il campo Ordinamento.
E un procedimento un po' manuale ma visto che non c'è una regola precisa ma
tutto dipende dalla importanza relativa che dai alle singole linee e ai
singoli prodotti, non vedo molte altre strade.
Tieni conto che facendo così se inserisci un nuovo articolo o una nuova
linea devi e la volessi posizionare per esempio in 2a posizione dovresti
rinumerare tutto, per questo invece di usare 1, 2, 3 per le posizioni usa
magari 10, 20, 30, ... così per inserire un prodotto in 2a posizione gli
dara ad esempio 15 e non dovrai rinumerare tutti gli altri.
Saluti
Cinzia

 Cinzia
Ciao Cinzia,
grazie per la tua risposta, in effetti avevo adottato la soluzione che hai
proposto anche tu, ma non avevo pensato a numerare le righe con 10, 20,
30... per ovviare al problema dei doppi numeri!
Saluti, 
Carlo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it