mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: riposizionamento record dopo eliminazione record

questo codice elimina un record
    Dim ide As String
    ide = Me.Form.Bookmark
    DoCmd.RunSQL ("delete * from fatturevoci where id = " &
Forms![FATTURA]![fatturavoci]![ID])
    Forms![FATTURA]![fatturavoci].Requery
    Me.Form.Bookmark = ide
in certi casi mi da errore "segnalibro non valido"
mi sapete dire cosa sbaglio?

 wrote in message
news:439986ab$0$7322$
4faf...@reader4.news.tin.it

Perchè dichiari ide as String...?
Il Bookmark non è stringa...!!!!
Poi, mi pare che memorizzi un segnalibro che cancelli o sbaglio...!
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 questo codice elimina un record



 mi sapete dire cosa sbaglio?
Ciao



si ma in teoria me.bookmark contiene il segnalibro e tale valore viene 
assegnato al record dopo che prende il suo posto se quello lo elimino il 
fatto è che se si tratta dell'ultimo record mi da quell'errore di 
"segnalibro non valido"
non ho capito bene come funziona la cosa ma l'errrore lo da se elimino 
l'ultimo record
forse devo evitare di posizionarmi se è l'ultimo record ma come lo 
controllo?
grazeie 

controllo?
Scusa ma se memorizzi il Bookmark del record precedente alla
cancellazione
e poi ti riposizioni su quello non è più semplice....????
Per vedere se sei all'inizio o alla fine verifica la proprietà EOF o
BOF
del recordset.
@Alex
grazeie

Sto facendo in questo modo perchč per una ragione a me sconosciuta uno dei 
record delle voci di una fattura non riesco a eliminarla mi resta vuota ma 
non riesco a cancellarla con il pulsante elimina record 
dell'autocomposizione
le relazioni sono cosi
tabella fattura
id contatore  uno ------>   molti con idfattura della tabella vocifattura
non capisco se sbaglio io o a volte access impazzisce.... mi sapete aiutare? 

 ha scritto nel messaggio 
news:439986ab$0$7322$4faf...@reader4.news.tin.it...

Se il record è gia salvato ti basta solo l'istruzione sql a cui aggiungerei 
la gestione degli avvisi perchè l'istruzione stessa comporterebbe 
l'eliminazione dei record correlati.
DoCmd.SetWarnings False
'tuo codice
DoCmd.SetWarnings True
Se sei posizionato sul record da eliminare e se questo è salvato, puoi anche 
scrivere:
DoCmd.RunCommand acCmdDeleteRecord
A che ti serve
Dim ide As String
ide = Me.Form.Bookmark?
Per avere il numero del record puoi benissimo usare una variabile globale e 
valorizzarla prima di eliminare il record.
Global MioId as Long
Prima di eliminare: MioId = me.ID
MioId lo potrai usare fino al nuovo valore.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: File di backup

Con A2000 trovo a volte un file del tipo MioDatabase_Backup.mde.
Come viene creato?
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam

 Come viene creato?
Quando va in crash il file mde
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: separare il cognome dal nome

Ciao a tutti. Uso A97.
Ho importato da un foglio di Excel in una tab. di Access il campo
[denominazione] che contiene sia il cognome che il nome dei clienti.
es. [denominazione]:"Francesconi Giancarlo".
Vorrei dividere il contenuto del campo in 2 campi [cognome] e [nome].
E' possibile?
Ciao e grazie.
Giancarlo

 Giancarlo
Nella query puoi partire dal campo NOMINATIVO ed ottenere NOME e COGNOME:
NOME: Mid([NOMINATIVO];InStr([NOMINATIVO];" ");Len([NOMINATIVO]))
COGNOME: Mid([NOMINATIVO];1;[LL])
LL: (Len([NOMINATIVO]))-InStr([NOMINATIVO];" ")
LL come vedi conta quanti caratteri sono tra il cognome ed il primo spazio
incontato. Quindi se nell'anagrafica vi è un nominativo del tipo 
DELLA TORRE ANTONIO (in questo caso il cognome sarà DELLA)
Ciao 
Simone
-- 
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:anrisj$aci$1...@news.newsland.it...

Funzia!
Grazie!
Giancarlo

se sei sicuro che i cognomi non sono del tipo De Luca Carlo o Rossi
Bianchi Mario puoi fare cosě:  Dim Cognome as string Dim Nome as string 
Cognome=mid(Denominazione,1,instr(denominazione," ")-1)
Nome=mid(Denominazione,instr(denominazione," ")+1)

Ottima risposta di Simone.
La prossima cvolta consiglio di operare la divisione nome-cognome (osimili)
in excel.
Così controlli a vista i risultati (Caso Della Toore) e poi importi il tutto
già a posto...

 ha scritto nel messaggio
news:anrdni$5rj$1...@fe1.cs.interbusiness.it...

Nominativo =  DELLA TORRE ANTONIO
Cognome:
Left([Nominativo];Len([Nominativo])-Len(Mid([Nominativo];InStr([Nominativo];
" ")+Len(Left(Mid([Nominativo];InStr([Nominativo];"
")+1);InStr(Mid([Nominativo];InStr([Nominativo];" ")+1);" ")+1)))))
restituisce DELLA TORRE
Nome: Mid([Nominativo];InStr([Nominativo];"
")+Len(Left(Mid([Nominativo];InStr([Nominativo];"
")+1);InStr(Mid([Nominativo];InStr([Nominativo];" ")+1);" ")+1)))
restituisce ANTONIO
Ciao, Gianfranco


E' più corretto
Cognome:
Left([Nominativo];Len([NOMINATIVO])-Len(Mid([Nominativo];InStr([Nominativo];
" ")+Len(Left(Mid([Nominativo];InStr([Nominativo];"
")+1);InStr(Mid([Nominativo];InStr([Nominativo];" ")+1);" "))))))
Il precedente generava uno spazio finale.
Ciao mondo
Newsgroup: it.comp.appl.access
Titolo: Record n... di...

 Ciao, tempo fa mia avevate aiutata e ora vi chiedo un nuovo aiuto...
Ho una maschera non collegata che contiene una combo; in base al valore
selezionato in quella combo vengono mostrati uno alla volta, in una
sottomaschera (collegata ad una query), i record che contengono il valore
selezionato nella combo. Siccome chi mi ha chiesto il "programmino" non
vuole usare i tasti di navigazione classici, ho creato dei pulsanti appositi
(precedente, successivo, nuovo, ultimo, primo...) per spostarsi tra i
record. Ma... lui vuole vedere anche il numero, tipo "record 1 di 5", poi,
se si sposta sul secondo, vuole vedere "record 2 di 5" ecc. Ho cercato di
cavarmela con l'help, ma non ne  sono venuta a capo e anche nel sito comune
non ho trovato quel che cerco (magari sono io che non ho trovato la
soluzione o forse è una domanda troppo elementare, non so). Grazie
dell'attenzione, ciao a tutti. Laura


Devi vedere le proprietà 'RecordCount' e 'AbsolutePosition' del recordset
che è origine dati della sottomaschera (attenzione che 'AbsolutePosition'
parte da zero e non da uno.
Ciao
--
Alberto

 dell'attenzione, ciao a tutti. Laura
Ciao Laura, sai utilizzare un Modulo di classe...???
Ne ho fatto uno che automaticamente gestisce tutti questi Controlli,
anche altri in piů che potrebbero esserti utili.
Se ti interessa ti invio un Esempio...!
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:a2t2tu$8dg$1...@pinco.nettuno.it...

Me!NumeroRecordCorrente = Me.CurrentRecord
Me!NumeroDeiRecord = Me.RecordsetClone.RecordCount
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 che č origine dati della sottomaschera (attenzione che 'AbsolutePosition'
Grazie. Ho provato usandoli con il recordsetclone e qualche progresso l'ho
fatto, anche se non sono ancora venuta a capo dell'intero problema.
A presto, ciao Laura

 Me!NumeroDeiRecord = Me.RecordsetClone.RecordCount
Grazie Roberto, adesso ci provo! Ciao, Laura
Newsgroup: it.comp.appl.access
Titolo: Help Gestione Classifica

Ciao a tutti!
Sono totalmente nuovo, e visto che ho un problema da risolvere con
Access, quale posto migliore di questo?
Ma veniamo alla mia richiesta:
Gestisco un sito internet dedicato al Basket (
www.wbasket.com
) e,
ovviamente, riporto anche risultati e classifiche di alcuni tornei.
Il mio problema è che, non essendo pratico di Access, ho creato una
tabella con tutte le partite disputate ed un'altra con la classifica.
Il fatto è che la classifica la aggiorno manualmente e vorrei, invece,
che venisse generata in automatico da una Query.
La tabella di partenza è così organizzata;
Id_partita, Giornata, Squadra_A, Squadra_B, Risultato.
La tabella classifica contiene i seguenti dati:
Squadra, punti, partite_giocate_ partite_vinte, partite_perse,
canestri_fatti, canestri_subiti, differenza_canestri
Ragazzi! Immagino che vi sembrerà una "boiata", ma essendo
praticamente a zero in fatto di programmazione Access, non so proprio
come togliercene le gambe. Datemi una mano per favore.
Saluti
Federico (
fb...@supereva.it
)

 come togliercene le gambe. Datemi una mano per favore.
Questa cosa non la fai con una query ma con un bel po' di codice...
Antonio

Antonio
Quindi dici che sia una cosa così complicata? Non c'è un sistema
alternativo?
Cmq. grazie!
Federico

 wrote in message
3c440a70...@news.tiscalinet.it...

Il calcolo che deve essere effettuato per compilare una classifica è di per
sè complicato, cioè è l'algoritmo complicato. Ergo, per applicarlo la
funzione sarà complicata. Con una query e basta non credo proprio si possa
fare
Antonio
P.S.
Che poi, con un po' di skill, il codice non è che sia poi così complicato...

Che poi, con un po' di skill, il codice non è che sia poi così complicato...
Il problema è che io, di skill non ne ho...
Beh, grazie lo stesso e se poi ti venisse in mente qualcosa...
Federico

 ha scritto nel messaggio
news:3c443329...@news.tiscalinet.it...

Allora: crea una funzione tipo
:GetPuntiCasa(golcasa,golospite)=iif(golcasa>golfuori,3,iif(golcasa=golfuori
,1,0))'che ti permette di
scrivere i punti appropriati nel campo PuntiCasa,poi stesso sistema per i
punti fuori, poi sommi punti casa e punti fuori.ok?
se vuoi fare una cosa un pò più complessa,tipo M.I. pareggi,sconfitte etc.
allora penso ti convenga creare una struttura dati,
o ancora meglio una classe che contenga i dati e i metodi della squadra...
ciao, franco

ciao, franco
Grazie Franco, proverò a seguire il tuo esempio.
Slt.
Federico

ciao, franco
Caro Franco,
mi hai dato l'illuminazione giusta, ti ringrazio infinitamente. Ho
seguito il tuo consiglio creando un ARRAY multidimensionale. Adesso ho
un problema, ovvero come posso ordinare i dati del vettore ad es. per
punti in ordine decrescente? Esiste una funzione oppure mi devo
ingegnare per conto mio? Considera che uso VBSCRIPT ma mi basterebbe
l'idea.
Ad ogni modo grazie ancora
Federico
Newsgroup: it.comp.appl.access
Titolo: La macro Autoexec in Access 2013

quando lancio un db Access 2013 ho bisogno che parta una specifica maschera.
Nelle versioni precedenti il problema era brillantemente risolta dalla macro Autoexec. Adesso mi potete suggerire un codice che risolva il problema?


Facilissimo : 
 
guarda dentro le opzioni di access : c'e' una casella dove ci metti
il nome della maschera che vuoi che parta automaticamente.
 
Ossia : 
 
- apri access
 
- fai click sul pulsantone tondo in alto a sinistra che non mi 
  ricordo mai come si chiama. E' tondo, e' grosso, e dentro ha
  disegnati  4  quadrati (con lati cicciottelli e colorati) di 
  grandezza diversa. Uno e' rosso, uno e' blu, uno e' giallo e
  uno e' verde.
 
- in basso a destra fai click su "opzioni di access"
 
- scegli "database corrente" dalla lista che ti trovi a sinistra
- c'e' una casella in alto con scritto a sinistra "visualizza maschera".
  Li dentro ci scrivi il nome della maschera che vuoi che parta
 
Poi fai ok (sotto) ed esci dal db  ordinatamente. Quando lo riapri 
la maschera parte da sola.
 
Ciao

 Nelle versioni precedenti il problema era brillantemente risolta dalla macro Autoexec. Adesso mi potete suggerire un codice che risolva il problema?
 
Ho fatto come dici e mi si apre, dopo aver cliccato nelle Opzioni, Database Corrente, la finestra Opzioni tra le quali c'è anche il campo 'Visualizza Maschera' dove scegliere o scrivere la Maschera che deve aprirsi all'apertura del Db.
Purtroppo tutti  i campi di questo form sono in grigetto, pertanto bloccati e non posso scriverci o selezionare nulla.
Hai qualche suggerimento?


Bloccati ?!? Mai visto prima una cosa del genere.
Probabilmente  e' un problema di autorizzazioni.
 
Non saprei come aiutarti
 

 Purtroppo tutti  i campi di questo form sono in grigetto, pertanto bloccati e non posso scriverci o selezionare nulla.
Se è tutto grigetto probabilmente hai aperto solamente Access 
ma non hai ancora aperto un DataBase di Acces
 
Ricordati che sono le opzioni del  "DataBase Corrente"
 
 
Comunque ti assicuro che in Access2013  la macro AutoExec funziona 
benissimo esattamente come in tutte le versioni precedenti.
 
Devi solo fare una macro e chiamarla appunto AutoExec
 
.
 

 ma non hai ancora aperto un DataBase di Acces
 
Ah, ecco ! :-) 
Non ci pensavo, davo per scontato che il DB ce l' aveva gia' :-)

 Nelle versioni precedenti il problema era brillantemente risolta dalla macro Autoexec. Adesso mi potete suggerire un codice che risolva il problema?
 
Giustissimo, basta creare una Macro che si chiama autoexec ed il gioco è fatto.
Grazie
Newsgroup: it.comp.appl.access
Titolo: Server OLE

OLE server non registrato.
Errore di comunicazione con il server Ole o con il controllo activex.
Chiudere il server Ole e riavviarlo all'esterno di acces, quindi ritentare l'operazione originale in microsoft access.
Questo è il messaggio che mi appare da oggi quando apro un database contenente un campo impostato a oggetto ole, non riesco più a vedere le immagini che fino ad ieri vedevo.A parte il fatto che non capisco cosa significhi e come si faccia a riavviare il server Ole al di fuori di access, apparentemente non ho cambiato nessuna impostazione e tengo a precisare che non ho installato norton antivirus, dico questo perchè ho letto da qualche parte che il problema potrebbe essere imputabile a quel programma.
Ho reinstallato pure office ma nulla da fare, non vorrei perdere tutto il lavoro fatto sul database, cosa posso fare, sono disperato.
Grazie all'anima gentile che mi trova una soluzione.
-- 
castrol 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-739856.html
Inviato via 
http://www.itsistemi.net

 Grazie all'anima gentile che mi trova una soluzione.
Fai questa prova.
Ricrea la maschera, poi cancelli tutti i controlli.
Poi copi su queta tutti i controlli ed il codice della maschera
"incriminata"
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

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

Grazie per i consigli ma all'alba delle 03,30 di notte sono riuscito a risolvere il problema, praticamente non so per quale arcano motivo il programma paint fosse disinstallato, purtroppo questo è anche il programma predefinito che gestisce le immagini bmp, reinstallato questo tutto è tornato al suo posto.
Grazie.


 questo tutto è tornato al suo posto. Grazie.
Incredibile...


Newsgroup: it.comp.appl.access
Titolo: Associare ad una maschera una tabella diversa mentre è aperta

vorrei che con un pulsante all'interno di una maschera, venga cambiata la
tabella
da tabella1 a tabellla2 associata alla maschera stessa contenente il
pulsante e che
č possibile? grazie.

 pulsante ...
Me.RecordSource = "tabella2"
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: validare casella combinata

ciao a tutti
per validare una casella combinata uso la funzione isnull
il problema è che tale funzione restituire un valore corretto solo se
seleziono la casella, cioè se apro la maschera e clicco subito sul tasto
validazione, non funzia
ho provato anche con il metodo setfocus ma nada
qualche idea?
TIA

 ha scritto nel messaggio
news:A%8Pb.118094$VW.47...@news3.tin.it...

Scrivi l'istruzione e spiegati meglio.
MAssimiliano

marco ha scritto:

Cosa intendi per validare, un .requery della casella??
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> Cosa intendi per validare, un .requery della casella??
significa che voglio verificare che sia stato selezionato un valore. ho
provato con le funzioni isnull e isempty, ma non funzionano se prima non
"apri e chiudi la tendina, anche senza selezionare nulla" passatemi questi
termini,  l'unica modo che mi pare funzioni è verificare che sia <> ""
qualche idea?
ciao e grazie x le risp

Newsgroup: it.comp.appl.access
Titolo: Icona applicazione e finestra database

Ho associato un'icona applicazione .ico (da usare anche per maschere e
report) a un db di Access 2002.
Ora però all'avvio mostra anche la finestra del database nonostante sia
deselezionata la casella Visualizza finestra database.
Come posso ovviare?
Ciao a tutti e grazie

 Come posso ovviare?
currentdb.properties.append
currentdb.createproperty("ShowStartupDBWindow",dbBoolean,false)
Inseriscilo nella finestra immediata.
Se da' errore, probabilmente la property esiste gia'... nel caso prova
currentdb.properties("ShowStartupDBWindow")=false
cia'
Max

 currentdb.properties("ShowStartupDBWindow")=false
Se per finestra immediata intendi quella d'avvio (scuda l'ignoranza) allora
non ha funzionato, perņ ho notato che il problema non c'č con le versioni
successive di Access e Windows...
Grazie ancora, ciao


Hai installato l'SP2?
Vedi 
http://support.microsoft.com/?kbid=313915
.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 


Ok grazie, ho trovato l'SP3 e lo sto installando.
In effetti la soluzione prospettata nell'articolo 313915 (Strumenti -
Opzioni - Visualizza - deselezionare Icona sulla barra applicazioni) risolve
il problema anche senza SP, ma poi non vengono più mostrate sulla barra
applicazioni le icone del db oltre la principale.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: CODICE A BARRE





ciao


 


 sarei grato se qualcuno mi potesse indicare dove posso 
trovare


 source per creazione codice a barre in 
access


 


grazie  Alessandro



 source per creazione codice a barre in access
Qualsiasi font free reperibile su Internet e' buono.
Con il 39 devi avere solo l'accortezza di aggiungere un asterisco all'inizio
e alla fine della stringa da codificare.
Saluti.
lucia...@sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: [2010] VBA: codice "a capo"

>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........

 -- 
 
Intanto è bene sapere che il numero di Caratteri consecutivi in VBA ha un Limite, e l'UNDERSCORE non lo interrompe...
Non ricordo bene quanto sia il numero, magari KARL ne ha una traccia più formale, mi pareva 255...
Questo infatti suggerisce che non è proprio la solzuione migliore usare UNDERSCORE... se si scrivono stringhe lunghe, ne sono un esempio le QUery SQL...
 
Personalmente uso UNDERSCORE per andare a capoo solo nelle dichiarazioni delle Function come Parametri, altrimenti lo evito a vantagigo di:
 
Dim strSQL  As String
strSQL="....riga 1"
strSQL=strSQL & "....riga 2"
strSQL=strSQL & "....riga 3"
strSQL=strSQL & "....riga n"
 
Questo non ha alcun limite stringente e mi pare mantenga la piena Leggibilità...
 
Altri Automatismi non ce ne sono.
 
@Alex

 
 
peccato, il codice non è mio, mi scoccia dover scrollare a destra e a 
sinistra per leggerlo ma mi scoccia ancor di più pensare di andare a 
modificare le ennemila righe siffatte inserendo l'acapomanuale


Newsgroup: it.comp.appl.access
Titolo: Impostare stampante

Ciao Ng, vorrei stampare un report, cliccando su un bottone, fino a qui
tutto bene, il problema è che la stampante è in rete, e ce ne sono diverse.
Come posso impostare via codice la stampante che voglio? praticamente è
sempre quella che uso per stampare report, ma non è la mia stampante di
default.
Mi andrebbe bene anche impostarla come default, e poi rimettere di default
quella che c'era prima.
Grazie anticipatamente.
Nao


Sul Sito Comune, cerca 'Gestire la stampante predefinita'
Serve proprio ad impostare una nuova stampante predefinita.
Puoi fare cosi':
- archivi da qualche parte la stampante che ti interessa
- all'avvio del tuo applicativo, leggi la stampante predefinita e la
archivi da qualche parte
- imposti la nuova stampante
- all'uscita reimposti la stampante originale
-- 
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
----------------------------------



 sul report scegli imposta pagina e metti stampante specifica poi
scegli quella che vuoi, salvo bug te la conserva sempre per le stampe
di quel particolare  report
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Report in orizzontale

Con A03 voglio stampare un report in orizzontale, all'interno dello stesso ho impostato Fle -> Imposta pagina -> Orientamento = orizzontale
quando stampo il report con pdfcreator è sempre in verticale.
 
Esiste la possibilità di forzare da VBA la proprietà Orientamento =
orizzontale ?
 
Grazie
Chita

Per ora ho risolto installando un'altra stampante pdfcreator settata in orizzontale.
Se qualcuno riesce a suggerire un codice da vba secondo me è preferibile.
 
Ciao 
Chita

 preferibile.
 
Qual'č la tua versione di PDFCreator?
L'ho provato con 2 versioni (1.2.x e 1.6.2) e non posso riprodurre
il problema. Un report di A03 impostato a orizzontale mi stampa
sempre in orizzontale.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 Qual'è la tua versione di PDFCreator?


 Access FAQ:  
http://www.donkarl.com/it
 
 
Ciao 
la mia versione è 1.2.1 
 
ho fatto diverse prove in 5/6 pc....mette sempre la stampa in verticale 
sotto il codice che eseguo: 
 
            Dim stDocName1 As String 
            Dim strFiltro1 As String 
            stDocName1 = "Ordini" 
 
 
            strFiltro1 = "ID = Forms!Ordini!ID" 
 
            DoCmd.OpenReport stDocName1, acViewPreview, , strFiltro1 
 
            Reports("Ordini").Printer = Application.Printers("PDFCreator") 
 
 
            DoCmd.PrintOut 
 
 
Ciao Chita

             DoCmd.PrintOut
 
Mamma mia, perch� non hai rivelato prima che imposti la stampante
con VBA. Certo questa puo essere la causa del problema.
 
Se possibile impostala fissamente come stampante specifica
nel dialogo "Imposta pagina" del report e poi solo stampa il
report con
 
DoCmd.OpenReport stDocName1, acViewNormal
 
Se per forza devi farlo con VBA prova di impostare il Printer
a orizzontale dopo dell'assegnazione di PDFCreator:
 
Reports("OrdiniApertiStato").Printer.Orientation = acPRORLandscape



Pardon per l'informazione mancante...
ho provato a non impostare la stampante da VBA->negativo
come mi hai suggerito vedi sotto...Funziona!
 
Reports("OrdiniApertiStato").Printer.Orientation = acPRORLandscape
 
Grazie Karl!
 
Ciao Chita
Newsgroup: it.comp.appl.access
Titolo: Ordinamento crescente per numeri in campo testo

ciao a tutti
ho un campo testo con dei numeri
a ordinamento Crescente, che
perņ non lo rispettano.
 
Come posso fare?
Grazie
 
 
 

 ha scritto nel messaggio 
news:5228259d$0$1367$4faf...@reader1.news.tin.it...

aggiungo che alcuni numeri hanno prima e dopo delle lettere
p.e.
A/125
150/B
150L
2/100
ecc. ecc. 
 
 

 ecc. ecc. 
 
e che ordinamento ti aspetteresti da st'elenco che hai postato?
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

 ------------
Ciao Pablitomf
p.e.
A/1
A/2
A/3
_____
1/B
2/B
3/B
________
1L
2L
3L
_______
2/1
2/2
2/3
2/4
 
ecc.
 
 
 

 A/3


>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........

 ------------
Grazie Pablitomf
ho trovato questo di Giorgio Rancati
SELECT *
FROM Tabella
ORDER BY IIf(IsNumeric(posizione),Val(posizione),999999999999),posizione
che fa al mio caso 
 
 

 che fa al mio caso 
 
bhe' se la trasformi naturale che ci riesci.



in effetti non mi sono spiegato bene
cmq grazie 
 
 


grazie
Newsgroup: it.comp.appl.access
Titolo: controllare la presenza di un record

salve
data una tabella PIPPO composta da:
DaData |  Adata| IDChiave
devo  verificare la presenza nel campo IDchiave dentro un certo intervallo 
di date.
è più veloce fare un DLookup(idchiave,pippo,miadata>=dadata and 
midadata<=adata)
o aprirmi un recordset e testare la proprietà recordcount.
Oppure stavo pensando se vale la pensa di caricare in memoria in una matrice 
l'intera tabella.
Tenendo condo che questa ricerca è dentro un ciclo di circa 2000 iterazioni
grazie dei consigli
Ivan

 ha scritto nel messaggio
news:473490fe$0$37207$4faf...@reader3.news.tin.it...

Io sono sostenitore del Recordset, ma serve oggettivizzarne l'uso.
Per la singola interrogazione il DlookUp è assolutamente meglio, nel senso
che la differenza
è millesimale.
Qui trovi un esempio di confronto(Usa Dcount ma è equivalente)
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=277
Il test ha senso in caso di Iterazioni Multiple.
Quì trovi esempi di utilizzo di DlookUp
http://support.microsoft.com/?kbid=208786
Chiaramente il caricamento di una MATRICE è abominevole solo a pensarlo...!
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:fh27ji$86g$1...@aioe.org...

cosa intendi per "oggettivizzarne l'uso?"
posso aprirmi l'intero recordset dei dati prima del ciclo, e usare qualche 
istruzione (find????) per verificare se dentro il recordset esiste tale 
valore?
O devo per forza aprire il recordset ad ogni iterazione?
ciao, Ivan

 ciao, Ivan

Newsgroup: it.comp.appl.access
Titolo: mi perdonerete se mi ripropongo

Salve e scusatemi se mi ripropongo con lo stesso problema di qualche
settimana fa, ma purtroppo non ho ancora risolto. Il problema era di aprire
un mdb dati protetto da pwd da un altro mdb che contiene le maschere, da
codice.
Sul sito Microsoft ho trovato il pezzo di codice per gestire la cosa, ma il
problema è dove inserire lo stesso nel senso che se lo inserisco in un
evento di apertura maschera, mi da il messaggio di "Password non valida"; se
invece lo inserisco per esempio in un modulo e lo faccio eseguire da solo,
il db si apre regolarmente. Da ciò deduco che la pwd è esatta. Come si puo'
risolvere il problema? Ho provato a metterlo in una macro di avvio
(autoexec) ma neanche quersto stratagemma ha sortito effetto.
grazie
Francesco

 Salve e scusatemi
No, se non scrivi un subject significativo!!!
Antonio

 ha scritto nel messaggio
news:Oskea.31724$Lr4.9...@twister2.libero.it...


 Ok scusa; ci riprovo
Ecco, ricordati anche che si scrive DOPO il quoting!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: A Robertooooo non mi funzionaaaaaaa aiutooooo

            Giuliano
--
Roberto
----------------------------------------------------------------------------
-----
Ciao Roberto,
ho fatto come mi hai detto tu, cioè nella casella combinata che ha come nome
elemento ComboMese ho scritto i mesi nella forma 1,2,3,4..... (ho provato
anche con 01,02,....), ma ancora non mi funziona le due combo si chiamano
appunto ComboAnno e ComboMese.
Quando apro la maschera (che richiama la query) questa risulta vuota, ci
sono solo le etichette dei campi, è come se la query non restituisse niente,
ma è impossibile perchè nella tabella Ricevute immediate ci sono recors che
hanno la data compresa nel mese che io inserisco nella combo!!!!!!!
Cosa posso fare?
Dove può essere il problema????
Grazie.
    Ciao

     Ciao
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Problema con ricerca dati

Ciao a tutti,
ho una maschera che serve a fare delle ricerche nei dati di una tabella
Clienti.
Tutto bene, tranne che quando vado a ricercare un cognome (che sono certo
esiste nella tabella, mi viene generato un messaggio del genere:
Syntax error (missing operator) in query expression '[Cognome]='Dell'Olio".
Ecco il codice che ho inserito:
______________________________________________________________
Private Sub CercaClientiVOPerCognome_Click()
On Error GoTo Err_CercaClientiVOPerCognome_Click
   If DCount("Cognome", "Query Vetture e Clienti", "Cognome=" & Chr$(34) &
Cognome & Chr$(34)) = 0 Then
    MsgBox "Nessun cliente con questo cognome!"
    Me!Cognome = Null
    Me!Cognome.SetFocus
Else
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Visualizzazione Clienti"
    stLinkCriteria = "[Cognome]=" & "'" & Me![Cognome] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_CercaClientiVOPerCognome_Click:
    Exit Sub
Err_CercaClientiVOPerCognome_Click:
    MsgBox Err.Description
    Resume Exit_CercaClientiVOPerCognome_Click
End Sub
___________________________________________________
Grazie mille a tutti.
Alex

 wrote in message
news:LTtO6.5541$225....@news1.tin.it...

Il problema è nell'apice che c'è nel cognome che stai cercando: Dell'Olio che va
a chiudere l'apice che apre la stringa.
Una soluzione è delimitare la stringa con i doppi apici:
stLinkCriteria = "[Cognome]=" & """" & Me![Cognome] & """"
Ciao!
Esteban
Hosted by 
www.seber.it

 ha scritto nel messaggio
news:mCuO6.7702$h9.7...@news.infostrada.it...

Grazie.
Problema risolto!
Alex

Newsgroup: it.comp.appl.access
Titolo: Query cancellazione record su tabella esterna

Quesito semplice semplice
 
Dovrei cancellare un record di una tabella che si trova su un DB esterno
 
Quando effettuo una query di accodamento o di aggiornamente, uso 
l'istruzione IN e ci inserisco il nome del DB esterno con tutto il 
percorso (ad es. c:\dbesterno.mdb)
La query lavora regolarmente
 
Ma se voglio fare un DELETE, mi da problemi
 
Per cominciare non ho potuto inserire
 
- IN 'C:\database.mdb
come faccio per le accodamento, ma:
 
- IN ('C:\Database.mdb')
 
E comunque, sebbene la query non mi da' errori, i dati non me li cancella.
 
Cosa sbaglio?
Grazie
 
-- 
Carlo POTS
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 

 
 
Vabbe' alla fine ho risolto;
non dovevo usare l'espressione " DELETE [Campo] IN C:\DAtabase.mdb FROM [Tabella]" ma era "DELETE [Campo] FROM [C:\Database.mdb].Tabella"
 
Avevo detto che era semplice ...
 
-- 
Carlo POTS
Newsgroup: it.comp.appl.access
Titolo: Utenti....

Salve ragazzi, piccolo/grande problema !!!
Allora ho un file .mdb con dentro delle tabelle con dati importanti,
qualcuno che lo utilizza, si è divertito a mettere le protezioni gruppi
utente etc. e non so cos'altro, fatto sta che ora il file non si apre + e
dice di contattare l'amministratore o l'autore del programma. Ho provato a
collegare ul file esterno con le tabelle, ma niente e non so proprio come
fare, mi potreste aiutare ?
P.S. A proposito, è stato creato un file che si chiama: Protetto.mdw cosa ci
faccio?
Grazie..

 ha scritto nel messaggio
news:KL02c.1963$z23....@news3.tin.it...

DEVI contattare il responsabile della protezione e farti dare da lui
tutti i dati per accedere come Amministratore.
Non hai alternative, la protezione in questione è "impenetrabile", e
solitamente la inserisce lo sviluppatore per evitare che il proprio prodotto
venga danneggiato accidentalmete, a scapito del cliente, da qualcuno che
si inventa programmatore.....!!!!
@Alex.

 ha scritto nel messaggio
news:c2a69g$i50$1...@lacerta.tiscalinet.it...

Ti ringrazio per la risposta, ma quello che lo ha fatto, non si è stampato
nulla !! Mi sa proprio che dovrò dire addio a quei dati !!!
Ciao e grazie.


Mi sa proprio di si....! è un vero problema.
Ma quello che lo ha fatto è un tuo collega...?
1)SI, allora puoi farlo licenziare...!
2)NO e un'esterno, avrà pure un'assicurazione per danni(RC) citalo.
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: INFORMAZIONE DI PROGRAMMI FREEWERE

SALVE E PRIMA DI TUTTO
BUONA FINE E BUON PRINCIPIO!!!!
VOLEVO SAPERE SE NESSUNO CONOSCE UN SITO DOVE POSSO SCARICARE PROGRAMMI
FREEWERE E SOTTOLINEO FREEWERE PER ACCESS 97/2000
QUELLO CHE STO' DISPERATAMENTE CERCANDO E' UN PRODOTTO CHE MI FACCIA LA
COMPARAZIONE FRA DUE MDB E MI VISUALIZZI A VIDEO O STAMPANDOLE LE
DIFFERENZE.
HO GIA' TROVATO UN PRODOTTO CHE NON RICORDO ESATTAMENTE IL NOME MI SEMPRA
MDBWIZ O QUALCOSA DEL GENERE, UN MDE DI ACCESS, MA NON MI E' RISULTATO MOLTO
PRECISO.
GRAZIE MOLTE
TIZIANO
-- 
Posted from 
mail-1.tiscalinet.it
 [195.130.225.147] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:HPEGKOBAPDCMKNCNGG...@tiscalinet.it...

Vai sul sito :
www.softseek.com
e ricerca con la parola Access...
dovresti trovare quello che stai cercando.
Saluti
Marco Dell'Oca
D.M.Software
Newsgroup: it.comp.appl.access
Titolo: è possibile la contemporaneità degli eventi "su click " e "su doppio click" ??

Salve a tutti
Avrei la necessità di distinguere i due eventi su un pulsante o su una
casella di testo, c'è qualche modo per poterlo fare??
Grazie.


usa gli eventi enter e click
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:zhgna.43060$DT4.1...@twister1.libero.it...

In che senso....?? Sono già distinti, se fai Doppio Clic non viene generato
il Clic, a meno di strane impostazioni della velocità di doppio Click da
Windows...!
Forse ho malinterpretato la richiesta.......!
@Alex.

 ha scritto nel messaggio
news:DKjna.43885$DT4.1...@twister1.libero.it...

Non so nelle altre versioni, ma con Access 97 se fai un doppio clic viene
generato prima l'evento Clic e poi l'evento Doppio Clic (vedi help); se poi
operi troppo lentamente, viene generato due volte l'evento Clic (vedi sempre
help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Si, hai ragione, si che ho provato pure......!(Ovviamente sbagliando).
Ho detto un'inesattezza.
Grazie Roberto.
Ciao buona Pasqua.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Creazione in automatico Campo id

In un programma genero da una query una tabella pero non riesco ad
aggiungere in automatico il campo ID contatore che mi aggiunga in automatico
il numero progressivo
Qualcuno mi puņ aiutare
Ho guardato anche nel ng pero non trovo un'indicazione. Forse non ho
guardato bene?

 wrote in message 8tpf08$5g2$1...@nslave3.tin.it...

Prova via codice ad usare il metodo createfield
Antonio

Newsgroup: it.comp.appl.access
Titolo: Esempio di combinazione tasti

Come da oggetto cerco un esempio che mi faccia vedere
come per esempio aprire una maschera VUOTA  chiamata " Maschera 1 " premendo
Ctrl+12.
Grazie

 ha scritto nel messaggio
news:ggPka.104341$i26.3...@news2.tin.it...

Forse intendevi Ctrl+F12; comunque per ri-assegnare le combinazioni di tasti
devi crearti una macro autokeys dove definisci la combinazione e l'azione
associata; tutto documentato nell'help alla voce: "Assegnare ad un tasto
un'azione o un set di azioni" oppure "Combinazioni di tasti in AutoKeys"...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Utilizzo di Access runtime 2007 o 2010

Sono anni che scrivo applicativi Client-Server con Forms, Query, Reports e moduli in un Progetto Access che collega, via ODBC un Db SQL Server 2005 o 2010 e mi trovo benissimo.
Ho sempre motivato i miei clienti a comperare le licenze Access necessarie per supportare i clients degli utenti.
Adesso mi trovo in una situazione in cui il progetto che sto implementando è un progetto provvisorio che, una volta maturo, dovrò migrare su di un applicativo Web, per cui ho pensato di utilizzare il Runtime di Access per non gravare troppo sui costi del mio cliente.
Dopo aver scritto il progetto, come descritto sopra, il Runtime lo esegue correttamente oppure?


salve
ho provato il runtime e devo dire che non posso lamentarmi
che versione di access usi?

Il giorno martedì 3 febbraio 2015 22:05:27 UTC+1, 
gfranc...@gmail.com
 ha scritto:

Uso indifferentemente 2007 o 2010

Newsgroup: it.comp.appl.access
Titolo: stampare bollettini postali

ciao a tutti,
dovrei stampare i dati presenti nei controlli (nome, cognome, datascadenza)
sopra dei bollettini prestampati.
la difficoltà è che i miei clienti possono avere una forma di pagamento
rateizzata (mensile, trimestrale, quadrimestrale, sem o annuale) nel caso
del mensile io vorrei stampare 12 volte il bollettino, se semestrale 2
volte. nella mia tabella è presente un campo che indica il frazionamento dei
pagamenti, annuale, semes, mensile. a inizio mese vorrei stampare i
bollettini dei clienti in scadenza che devono pagare
avete qualche suggerimento da darmi
GRAZIE

 ha scritto nel messaggio
news:886a7p$asj$1...@geronimo.keycomm.it...

Puoi essere più preciso? A quale parte del problema vuoi dei suggerimenti?
Nella stampa?

Forse trovi la risposta nella funzione che ho trovato anch'io nel sito
comune:
E' possibile stampare N copie della stessa etichetta nello stesso report?
Autore: Luciano
Si è possibile.
Per farlo aggiungete, nella tabella contenente i records , un campo numerico
chiamato ct_quantita.
Inserite questo campo anche nel report e rendetelo invisibile.
Inserite nel modulo del report la seguente routine:
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
   If PrintCount < Me.ct_quantita Then
      Me.NextRecord = False
      PrintCount = PrintCount + 1
   Else
      PrintCount = 0
   End If
End Sub
A questo punto non vi resta che immettere il numero di volte che volete
stampare ogni etichetta, nel campo ct_quantita, e mandare in stampa il
report.
Attenzione questa routine non gestisce il caso in cui ct_quantita=0.
Ciao, Giorgio


Newsgroup: it.comp.appl.access
Titolo: StranoFunzionamentoSetFocus

Ho realizzato un controllo per verificare se la compilazione di campi
in una form č completa.
Con questo codice:
 Me.[NUMERO_DOCUMENTO].SetFocus
    If Form_Protocollo.IDMittenteDestinatario = "" Or
IsNull(Form_Protocollo.IDMittenteDestinatario) Then
        Beep
        MsgBox "Indicare mittente o destinatario!!!!", vbCritical,
"ATTENZIONE!"
        ctrl = False
 
    End If
 Per poterlo fare funzionare correttamente  devo spostare il set focus
su un'altro controllo altrimenti anche se cancello il dato mi
riconosce sempre un
valore. La cosa strana č che per due campi controllati funziona e il
set
focus si sposta dove dico io, invece per altre righe mi dice "errore
di run time 2110 ipossibile spostare lo stato attivo al controllo
numero documento.
Vorrei sapere dove sbaglio.
Ciao a tutto  il NG 
Fred

 Fred
Ma con ctrl=False cosa devi ottenere....???
Per eliminare l valore di un controllo si usano le costanti corrette
e dipendenti dal tipo di Campo Associato se il Controllo è associato.
Nel tuo caso False non mi pare indicato, potresti provare con
Vbnullstring o Null.......!
Ciao-
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Tasti funzione

c'è un modo per associare ad un pulsante i tasti funzione (F1-12)?
so che è possibile mettere una lettera con & e poi utilizzare la
combinazione
alt+lettera ma io vorrei utilizzare solo la lettera o in alternativa
una tasto funzione, enter o esc.
in pratica vorrei associare, all'interno di una maschera i seguenti tasti:
esc=chiudi maschera
enter=nuovo record
f80=ricerche...
grazie per chiunque sappia darmi indicazioni a riguardo
gino


Metti sull'evento Tastogiů :
Select Case KeyCode
Case {ESC}
chiudiMaschera (come vuoi)
Case {ENTER}
 nuovo record (come vuoi)
.....
Case vbKeyF8 ( se vuoi F8)
Trovami sulla tastiera il tasto F80 ???
...
End Select
Ps.
L'evento Anteprima Tasti deve essere impostato a si.
Ciao Marco

 c'è un modo per associare ad un pulsante i tasti funzione (F1-12)?
Ciao,
per indirizzarti ti consiglio di andarti a guardare sulla guida in linea la
macro Autokeys.
Silvio
Newsgroup: it.comp.appl.access
Titolo: colore background in form A97

Ho cercato parecchio in rete prima di fare questo post ma non ho trovato
ancora la soluzione:
Ho bisogno di impostare il backcolor delle colonne di un datasheet con
colori diversi, ma apparentemente non e' possibile farlo
con il form in DS.
Settando il form in continuo si puo' fare ma qui c'e' il problema della
larghezza max di 55 cm (ho 109 campi da visualizzare).
Qualcuno sa' come risolvere? (anche usando le API oppure usando un controllo
OCX esterno).
Grazie.

 ha scritto nel messaggio

Scusa la scortesia di entrare nel merito, ma sei sicuro che ti sia utile
vedere 109 campi allineati?
Che tipo di informazione ti portano in questo modo?
Sib
--
qualita.assicurazione su 
www.cerrinet.it
Il newsgroup sulla Qualita'


Purtroppo si!
Si tratta di un'analisi di fabbisogno x articolo in cui i campi
rappresentano le week degli ordini in essere, da ordinare e il
forecast + varie x un orizzonte di 30 week.


Un controllino a schede diviso per settori con tutte suttomaschere
continue no eh... :))
Secondo me risolveresti moooolto la cosa :)
Ciao, Fabrizio yQy

Newsgroup: it.comp.appl.access
Titolo: collegamento a collegamento di tabella

possiedo un db frontend che punta ad una base dati che però può cambiare
posizione nel disco fisso.
ovviamente nel frontend sono presenti i collegamenti alle tabelle che
vengono ridefiniti se la base dati viene spostata.
da un altro db vorrei creare un collegamento al collegamento della base dati
in modo che indifferentemente di dove sia la base dati io prelevi la
posizione dal db che la punta e quindi so sempre dove si trova
es:
db2.collegamento a collegamentotabellapippo ----->
db1.collegamentotabellapippo ----------> dati.mdb contiene tabella pippo
cosi anche se cambio posizione di dati.mdb io in db2 ho sempre il valore
corretto
spero di essere stato chiaro.
grazie.

 ha scritto nel messaggio
news:c560ug$t2h$1...@lacerta.tiscalinet.it...

Se vuoi modificare i collegamenti delle tabelle del db2 puoi aprire il db1
da codice leggere la sua  tabella MSysObjects e refreshare i link del tuo
db2.
Una cosa tipo
Sub Ricollega()
Dim d As DAO.Database, w As DAO.Workspace, r As DAO.Recordset
Set w = DBEngine(0)
Set d = w.OpenDatabase("c:\percorso\db1.mdb")
Set r = d.OpenRecordset("msysobjects")
Do While Not r.EOF
     Debug.Print r("Database")
    qui ricolleghi le tue tabelle
    ci dovrebbe essere qualcosa sul sito comune
    r.MoveNext
Loop
Set r = Nothing
d.Close
Set d = Nothing
End Sub
HTH
Ciao Nicola
Newsgroup: it.comp.appl.access
Titolo: tentativi di accesso

ciao a tutti 
in un post (mio) precedente a questo, uno di voi mi ha suggerito di inserire una sorta di controllo all'accesso, legato al numero di tentativi, in funzione di una password nota all'utente.
come posso fare su una casella di testo dove devo digitare la password a sapere il numero dei tentativi? magari poi al terzo tentativo lo blocco...
mi potete dare qualche dritta?
ciao a tutti e grazie per tutto
Luca.


io farei una tabella utenti:
 
utente;accessi errati;disabilitato
 
ad ogni accesso errato incrementi un contatore su accessierrati
ad ogni accesso corretto azzeri il contatore
se il contatore diventa >3 imposti a vero la colonna "disabilitato" e 
blocchi il login finche un  amministratore non lo sblocca
 
ciao
BFS


ok quindi dovrei intercettare gli errori del login. 
ci provo...
hai per caso idea di qualche routine da inserire?
ciao e grazie di nuovo
luca


di pronto no ma la struttura sarebbe:
 
do per scontatato che sai usare dlookup per leggere i dati dalla tabella 
e che sai aggiornare dati in una tabella via sql o via dao/ado
 
data una maschera conn
IDutente
PSW
pulsante "Login"
 
data una tabella
userID/userPSW/userAccessiErrati/UserDisabilitato
 
 
sul evento click di login farei:
 
 
if dlookup("userdisabilitato".....)= vero then
 
	msgbox "user disabilitato"
else
	if dlookup("userPSW".....)= PSW then
		...login ok apri la maschera del menu
		setto  contatore accessi errati a 0
	else
		incremento contatore accessi errati di 1
		if accessierrati=3 then
			disabilito utente
		endif
 
	endif	
 
end if
 
 
 
 
 
 
 
 
 


Grazie mille
Luca.


Se siamo in struttura CLIENT-SERVER, spero che le Tabelle NON SIANO sempre Linkate, sappiamo bene il motivo, per questo forse occorre valutare di NON avere le Tabelle in Locale fino a DOPO Autenticazione avvenuta.
 
Conseguenza è che il DLOOKUP non funzionerebbe.
 
Di solito infatti si apre una Connessione al Server, si verifica il LOGIN e solo dopo... si procede al LINK delle TABELLE, che vengono rimosse alla chiusura ecc...
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: Strutture dinamiche

Esiste in Access qualche struttura dinamica tipo i puntatori?
---
leo_duca


non credo ma te la puoi creare tu !
AEOM

 leo_duca
Se ciò che ti serve è una lista, usa la classe Collection. E'
estremamente flessibile (puoi metterci oggetti di tipo diverso) e
consente l'accesso ai dati per chiave oltre che per indice.
Se invece vuoi un array dinamico:
Dim a() 'dichiara un array senza dimensione
Redim a(1) 'dà ad a() dimensione 1
Redim Preserve a(n) 'dà ad a() dimensione n senza cancellarne gli
elementi
Redim Preserve a(Ubound(a)+1) 'incremanta di 1 la dimensione di a()
senza cancellarne gli elementi
Redim Preserve a(Ubound(a)-1) 'decremanta di 1 la dimensione di a()
senza cancellarne gli elementi
Help: Redim per altre informazioni.
Tonio

senza cancellarne gli elementi
Sempreche' a(ubound(a)) sia vuoto....
Saluti.
Luciano


Wow!
Grazie a tutti
---
leo_duca
Newsgroup: it.comp.appl.access
Titolo: access versione 32 / 64 bit come gestirle da vba

buongiorno a tutti, esiste un  modo per gestire da vba la definizione delle function e sub per via del fatto che nella 64 va aggiunta la scritta PTRSAFE nella definizione?
 
Grazie a tutti.

 Grazie a tutti.
 
 
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/ptrsafe-keyword
 
 
BFS


#If VBA7 Then 
Declare PtrSafe Sub... 
#Else 
Declare Sub... 
#EndIf
 
anche per ogni function o solo per le sub?


Argomento già trattato... e banalizzato da chi per poca competenza, non aveva capito...!
La gestione della Formattazione condizionale deve applicarsi a TUTTE le parti coinvolte non solo alle dichiarazioni API, ma anche alle Funzioni standard se prevedono Parametri condizionati o a Dati di tipo Strutturati o a dichiarazioni EMUM...
 
Esempio stupido, questa funziona solo se 32Bit:
Function GetHandle(frm As Access.Form) As Long
    Dim mhWnd As Long
    GetHandle=frm.hWnd
End Function
 
Questa funziona sempre:
#If VBA7 Then 
Function GetHandle(frm As Access.Form) As LongPtr
    Dim mhWnd As LongPtr
    GetHandle=frm.hWnd
End Function
#Else 
Function GetHandle(frm As Access.Form) As Long
    Dim mhWnd As Long
    GetHandle=frm.hWnd
End Function
#EndIf 
 
Se hai una Structure, che per le API sono ricorrenti:
 
Public Type myType
    MyName As String
    hWnd As Long  <----- Questa va condizionata
    x As Long
End Type
 
Public Type myType
    MyName As String
   #If VBA7 Then 
        hWnd As LongPtr
   #Else
        hWnd As Long
   #End If 
  x As Long
End Type
 
ecc...!
 
Saluti
@Alex

Newsgroup: it.comp.appl.access
Titolo: Riapertura automatica del form alla chiusura di un report

E' possibile automatizzare la riapertura di una maschera minimizzata dopo la
stampa o la chiusura di un report in visualizzazione anteprima?
Logicamente non posso andare a reimpostare tutti pulsanti standard <CHIUDI>
e <STAMPA> su tutti i PC che devono lavorare con l'applicazione.
Grazie mille.
Fabio.

 ha scritto nel messaggio
news:booa2u$5jm$1...@grillo.cs.interbusiness.it...

su evento chiusura del report esegui docmd.openform ecc.....

 ha scritto nel messaggio
news:book3t$vp7$1...@lacerta.tiscalinet.it...

Grazie per la risposta.
E' talmente banale che non ti dico cosa mi sento ...
Fabio.

 ha scritto nel messaggio
news:booa2u$5jm$1...@grillo.cs.interbusiness.it...

Oltre al suggerimento di tosto73, ti consiglio di provare a rendere
invisibile la form; per poi renderla visibile alla chiusura del report...
Ciao.
--
Sergio MAZZA