mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Riferimento a form da modulo generale

Ciao a tutta la community.
 
Ho questo problema:
 
- Access 2003
- DB con 12 maschere, ciascuna con 1 sottomaschera continua
- Un modulo generale che contiene una Public Function che gestisce i colori delle righe di ciascuna sottomaschera, chiamata da un'espressione inserita nell'evento "su corrente" di ciascuna sottomaschera.
 
Dall'interno del modulo, dopo aver colorato la riga necessaria, devo settare il focus su una specifica textbox della maschera principale.
 
Ho aggiunto in ciascuna maschera principale un textbox con nome identico, così da poter avere il riferimento specifico per settare il focus, ma non so come riferirmi al nome specifico di maschera, visto che il modulo è comune a tutte le maschere.
Poichè la chiamata della Function avviene dall'interno di una sottomaschera, indipendentemente dalla maschera principale in cui è inserita, come posso identificare il nome della maschera principale nella quale è correntemente in esecuzione il modulo?
 
Ho bisogno della sintassi corretta per effettuare questa operazione.
 
Attendo fiducioso e grazie a tutti.
 
Stefanone

 Ho bisogno della sintassi corretta per effettuare questa operazione.
 
Screen.ActiveForm.Name
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


La tua risposta è... criptica!
 
La mia istruzione deve essere:
 
Screen.ActiveForm.Name.SetFocus ?
 
Chiariscimi per favore
 
Ciao
Stefano

 Screen.ActiveForm.Name.SetFocus ?
 
Per posizionare il focus alla maschera attuale
(che da una sottomaschera serve a niente):
 
Forms(
Screen.ActiveForm.Name
).SetFocus
 
Per posizionare il focus ad un controllo sulla maschera attuale:
 
Forms(
Screen.ActiveForm.Name
)!NomeControllo.SetFocus
o
Forms(
Screen.ActiveForm.Name
)("NomeControllo").SetFocus



Grazie infinite per il chiarimento, ma purtroppo non risolve il mio problema.
Forse però riesco ad aggirare il fosso in altra maniera.
Che tu sappia esiste il modo di testare il click sulla barra di scorrimento verticale di una maschera continua?
 
Attendo risposta
 
Ciao
Stefano
Newsgroup: it.comp.appl.access
Titolo: Problemaccio non da poco

Sto sbattendo la testa al muro.... ho un problemino che non so come
risolvere...
Veniamo al sodo:
sto facendo un'applicazione per il mio negozio, una sorta di gestione
magazzino.
Ogni qual volta vendo un capo, sposto il relativo record dalla tabella
Magazzino alla tabella Vendite. In entrambe le tabelle il capo è
identificato da un campo Id_capo, ma nella tabella Magazzino esso è
Chiave primaria, di conseguenza non sono ammessi duplicati.
Il problema sorge quando, a causa di un cambio per esempio, devo
riportare lo stesso capo dalla tabella Vendite alla tabella Magazzino,
in quanto forzo access ad assegnare lo stesso Id_capo che aveva prima,
ad un nuovo record che invece dovrebbe avere un'altra id (assegnata
direttamente dal contatore automatico). Il passaggio del record da
Vendite a magazzino in realtà avviene a tutti gli effetti, ma ha degli
effetti collaterali sul resto del programma. Sinceramente non mi va di
utilizzare l'id_capo che viene riassegnata automaticamente, perché
dovrei ristampare l'etichetta relativa al capo (l'id_capo è codice che
uso per identificare i capi da scaricare, quindi mi è indispensabile
averla sul cartellino)
esistono soluzioni?
Grazie

Gilmour wrote:

Se non avessi il tempo di ristrutturare il db (cosa che io valuterei
attentamente: i record di norma non si
devono spostare. Semmai vanno create le query "vendite" non le tabelle
"vendite"), farei cosi':
Cambiare i campi contatori in campi numerici
e poi, via codice, assegnare gli ID tenendo conto delle tabelle vendite e
magazzino per assegnare ID univoci
Marco

 ha scritto nel messaggio
news:c3a9mto02972s6b92...@4ax.com...

Vendi capi unici?
Potresti gestirlo in uno dei seguenti modi:
- te ne freghi del fatto che siano unici e gestisci comunque una quantità:
in questo modo non dovrai togliere il capo dal magazzino, ma assegnargli
quantità=0, rimodificando la quantità in caso di reso;
- aggiungi alla tabella Magazzino un campo codice e gestisci la relazione
con la tabella Vendite in base al codice: non essendo chiave primaria non
avrai il problema.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

"vendite"), farei cosi':
Prima avevo creato una query, e tenevo un solo archivio, ma non credo
sia una buona idea poiché nel giro di pochi anni avrei un db enorme
contenente migliaia di capi venduti + qualche centinaio di capi in
magazzino, rallentando così il tutto...
certo, però è pur vero che ogni tanto potrei, sempre attraverso query,
eliminare dei record riferiti a capi venduti gia da parecchio....e che
quindi SICURAMENTE non posso tornare indietro...
uhm...
cmq ci faccio un pensierino
Icq: 32405502
Se le persone che parlano male di me, sapessero quello che dico io di loro, parlerebbero peggio.
Jim Morrison
Clicca sul link per contattarmi direttamente da icq
http://msg.mirabilis.com/scripts/contact.dll?msgto=32405502
Newsgroup: it.comp.appl.access
Titolo: Personalizzare msg.

A fronte dell'evento dopo aggiornamento della MiaCombo
situata nella MiaMaschera, quando tento di inserire
un nominativo gia esistente, mi segnala:
Microsoft Visual Basic
Errore di Run-time '2105':
Impossibile passare al record specificato
Vorrei captare il messaggio e personalizzarlo, tipo:
Attenzione: Il cliente è già presente!!
Fogherty 

 wrote in message
news:pOT6e.61071$
zZ1.1...@twister1.libero.it

Leggiti come si usa la Gestione Errori in particolare
attraverso ON ERROR GOTO 
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Fogherty ha scritto:

individua la subroutine in cui viene generato l'errore
provate sub miaSub()
on error goto errore
	'inserisci qui il codice
USCITA:
	exit sub
ERRORE:
	if err.number = 2105 then
		msgbox "Attenzione: Il cliente è già presente!!"
	else
		msgbox err.description
	endif
	resume USCITA
end sub

 ha scritto nel messaggio
news:pOT6e.61071$zZ1.1...@twister1.libero.it...

A parte la gestione dgli errori che è sempre cosa buona e giusta.
Creati una routine che controlli prima di inserire un nominativo
la sua esistenza con un bel If  Then Else End If .
SunRex

 SunRex
No, non serve a nulla o meglio, è voglia di scrivere del codice
inutile, in questo caso si usa proprio la gestione 
errori perchè è la strada giusta.



Ciao Fogherty 


Ci provo.
Ciao Fogherty 

 end sub
Grazie, intanto vedo con l'Help dove riesco ad arrivare.
Fogherty

Newsgroup: it.comp.appl.access
Titolo: fattura elettronica - un chiarimento sul simulatore ADE

buongiorno, mi confermate che se ricevo una mail con oggetto "ricevuta di consegna" dal simulatore e non "ricevuta di scarto, significa che la fattura è corretta in tutte le sue parti?
 
grazie.

Corretto
Newsgroup: it.comp.appl.access
Titolo: distanza tra sopra e sotto

ciao a tutti
è possibile sapere la distanza verticale tra la barra degli strumenti di 
access (o di quella piu bassa in quel momento) e la status bar in basso?
la necessità è di avere una form larga 2 cm per forza...e alta quanto lo è 
lo spazio disponibile dentro la "cornice " di acces
grazie,
ciao, AEOM 

 wrote in message
news:434d4154$0$29541$
4faf...@reader1.news.tin.it

Si che è possibile, solo un pò di dimestichezza con le API.
Devi ricavare le Coordinate della finestra Parent della Form
discriminando che la Form non sia Massimizzata ovviamente
e discriminando se è Popup o meno.
Supponiamo non sia Popup, non ho una routine già fatta
pertanto dovrai metterci del tuo, ti passo solo le API
da usare e ti spiego +/- come ottenerlo:
Dim hWndParent As Long
Dim rctParent As RECT
'Rect è una struttura dati definita che devi
'recuperare per passare alle API una variabile
'dichiarata come Rect, nella quale ti vengono
'restituite le Coordinate Rettangolari della
'FormParent(MDI)
hWndParent = GetParent(hWnd)
Call GetClientRect(hWndParent, rctParent)
'In rctParent hai le coordinate rettangolari della
'MDI di ACCESS
'Queste coordinate le devi convertire in COORDS che
'è un'altro tipo di struttura utile per passarle 
'direttamente al dimensionamento della FORM
'La conversione è questa sostanzialmente
Dim c As COORDS
    With c
        .Left = rctParent.Left
        .Top = rctParent.Top
        .Width = rctParent.Right - rctParent.Left
        .Height = rctParent.Bottom - rctParent.Top
    End With
'Quindi passi al dimensionamento della Form
With c
        Call MoveWindow(frm.hWnd, _
         .Left, .Top, .Width, .Height, 1)
End With
Riassumendo quello che ti ho descritto dimensiona la Form
esattamente come l'Area disponibile, se tu la vuoi ALTA
come ...., ma Larga a scelta basta che al posto
di impostare il Width passi il Width della Form....!
Spero di essermi spiegato.
Volendo fare una funzione fatta bene, occorrerebbe distinguere
se la Form è Popup in quanto le cose cambiano molto.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Perfetto!!!
grazie
Newsgroup: it.comp.appl.access
Titolo: Generazione casuale numeri.

WXP/A03
Ciao a tutti,
ho costruito una tabella Estrazioni con 6 campi (Intero) che registreranno
6 valori generati causalmente via VBA. La maschera contiene un pulsante
"GO" e 6 TextBox associate ai valori della tabella.
Per il momento il mio codice sull'evento click del pulsante č:
Private Sub Command0_Click()
Randomize
Me.Estratto1 = Int(90 * Rnd + 1)
Me.Estratto2 = Int(90 * Rnd + 1)
Me.Estratto3 = Int(90 * Rnd + 1)
Me.Estratto4 = Int(90 * Rnd + 1)
Me.Estratto5 = Int(90 * Rnd + 1)
Me.Estratto6 = Int(90 * Rnd + 1)
End Sub
Vorrei sapere come:
a) verificare che non esca due volte lo stesso numero prima di registrarlo;
b) se č possibile, una volta generati i 6 numeri, ordinarli in ordine
crescente.
[OT]: 72 MLN di Euro li hanno visti, questo mi ha ispirato il
generatore...non si sa mai per il futuro.
Grazie.
-- 
**********
NEMO2K-20K
**********
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie.
Correggo, č vero "li hanno visti" ma pochi "li hanno vinti"!

Newsgroup: it.comp.appl.access
Titolo: Ma gli "uomini e le donne sono uguali"?

ma perchè quando posta una signora (vedi francesca o debora) Vi smuovete
tutti e con molta gentilezza (Biso Cara MA ecc.) e quando posta qualcuno con
nome maschile a volte c'è una risposta proprio per caso
cmq saluti a tutti

 cmq saluti a tutti
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Ci penserò
grazie cmq per la risposta mi sentivo un po' solo a lavorare il sabato pom

Scusate.
Il discorso vale anche per gli intermedi?

 Il discorso vale anche per gli intermedi?
    Se il mix e' equilibrato...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:3d8c9...@news.dada.it...

pfui desio.
Cmq, pare pero' che uomini e donne non siano uguali, sai per quel fatto di
XX e XY
--
a.cara

 ha scritto nel messaggio
news:3d8c9...@news.dada.it...
Se ancora non hai capito la differenza, è dura eh!
Antonio


wrote:

Mio figlio dice che gli uomini hanno il pisello e che le donne hanno
il "buchetto".
(Fino a lì ci siamo: Il problema è fargli capire che le due cose non
sono intercambiabili, invece lui è convinto che se oggi mi va mi tengo
il pisello , altrimenti me lo metto nella taschina della camicia e
giro col "buchetto" e che le donne sono tali perchè non hanno il
pisello da togliere e mettere : insomma il "buchetto" sarebbe
l'innesto a baionetta del pisello .... numble ...... numble ... in un
certo senso è anche vero ( in senso lato quantomeno) .... numble ....
numble .... e adesso come lo spiego a mio figlio:
it.genitori.con.figlio.con.turbe.sessuali dove lo trovo ?)
A parte che al solito mi sono incasinato, tutto questo era per
confermare l'ovvio : gli uomini e le donne sono diversi ; aggiungerei
anche che scoprire le differenze potrebbe essere divertente ...., ma
li entriamo in un campo che è meglio non approfondire in questo
NG,..... numble ...... cioè alcuni vorrebbero "approfondire"
attraverso il NG ....  il che conferma l'ipotesi di  desio ( non è
dalle parti di monza desio) ..... lasciamo perdere.
Ciao. Fabrizio

 confermare l'ovvio : gli uomini e le donne sono diversi ;
NOOOO!!!
SUL SERIO?!?!!?
GIURA!!!!
Antonio

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio

Se lo dice mio figlio , vuol dire che č cosě .... oddio ci sono delle
eccezioni , ma preferisco semplificare.
Ciao. Fabrizio

 l'innesto a baionetta del pisello
Geniale :-)
Ma queste nozioni d'educazione sessuale gliele hai date te oppure le trova
sul sussidiario di prima elementare, nel rispetto dei nuovi programmi
scolastici??
Probabilmente la seconda ipotesi è quella giusta...
Donato

Donato
No , ne l'una ne l'altra : mio figlio ha appena tre anni , piccolo ma
con una fervida immaginazione.
Ciao. Fabrizio

Salver
Ho provato a creare un Mde con il comando sys 603 ecc ... ma non funziona.
Ho provato con l'esempio docmd.runcommand trovato sul sito della microsoft
ma non va.
Ho provato con il metodo execute dell'oggetto commandbar ma è una variante
del precedente che non va.
Suggerimenti? grazie
Newsgroup: it.comp.appl.access
Titolo: Gestione tabelle collegate tramite tabella nascosta MSysObjects!?

...non ci riesco.
Purtroppo non riesco a creare una procedura che mi permetta di
cambiare in modo automatico un gran numero di tabelle collegate. Mi
spiego meglio...
Vorrei scrivere poche righe di codice che mi permettessero, tramite la
modifica della tabella di sistema MsysObject (campo: Database) di
gestire in modo automatico il collegamento delle tabelle collegate
(scusate il gioco di parole!).
IL MIO PROBLEMA E' RIUSCIRE A SCRIVERE NELLA TABELLA MsysObject
(campo: Database).... che è protetta! OPPURE trovare un modo
alternativo (ed automatico) che mi consenta di modificare l'origine
del collegamento delle tabelle!
COME FARE? chiedo a Voi un aiuto! GRAZIE...
Marco

 ha scritto nel messaggio
news:8f5124a4.04052...@posting.google.com...

Hai sbagliato approccio.
La tabella MsysObject è di Sistema e non è Scrivibile, ma
solo Leggibile.
Questo però non è un problema, basta accedere alla Proprietà
Connect dell'Oggetto Tabledef.
Vai sul SitoComune 
www.sitocomune.com
 sezione tabelle
e trovi 4÷5 esempi.
Ciao.
@Alex.

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

Buongiorno,
        io uso il controllo calendario 9.0 per selezionare i giorni da
inserire poi a DB nella tabella Calendario.
Questa la domanda:
                è possibile fare in modo che, se un utente clicca sul gg x e
questo cade di domenica mi venga visualizzato un messaggio del tipo non puoi
selezionare questo gg perchè è una domenica.
C'è un qualche comando o controllo in questo calendario dove si può vedere
che numero della settimana è?
Io ho settato il calendar controll 9.0 a "domenica il primo gg della
settimana" quindi presumo che da qualche parte la variabile da 1 a 7 si
possa vedere.
        Grazie


puoi effettuare un controllo sulla data usando la funzione Weekday che
ritorna, appunto, il giorno della settimana:
Weekday(#29/07/2001#) --> 1 (domenica)
-- 
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
----------------------------------
Newsgroup: it.comp.appl.access
Titolo: altro problema finestra di Popup

salve a tutti.. riposto dato che aggiusto un problema e se ne ripresenta 
un'altro...
apro una maschera e per visualizzarla senza i Menu.. dopo aver tolte 
tutte le spunte
in Strumenti > Avvio... ho capito che dovevo mettere la maschera in 
popup altrimenti non funzionava... tutto ok...
ma dopo aver fatto questo ho notato che riaprendo un'altra maschera di 
popup per le opzioni di stampa l'anteprima mi va a finire dietro la 
maschera... come diavolo portare in primo piano l'anteprima ???
grazie 


Non ti sei ancora reso conto che tutto il castello che stai facendo è
fragile...?
Esigenze grafiche a parte, non è possibile fare accrocchi su accrocchi
di questo tipo per far funzionare una cosa SBAGLIATA.
Le applicazini Access devono andare in modo tradizionale, e quanto
stai tentando di fare ti darà sempre problemi...!
@Alex

 maschera... come diavolo portare in primo piano l'anteprima ???
Non ti sei ancora reso conto che tutto il castello che stai facendo è
fragile...?
Esigenze grafiche a parte, non è possibile fare accrocchi su accrocchi
di questo tipo per far funzionare una cosa SBAGLIATA.
Le applicazini Access devono andare in modo tradizionale, e quanto
stai tentando di fare ti darà sempre problemi...!
-----------
ma che accrocchi su accrocchi ....
il DB ------- E' -------- stabilissimo !!!  :-(o),
GM


Sarà bellissimo, ma usare form Popup è una ca..zz...ta che ti
costringe ad accrocchi
e tali rimangono, poi ognuno è libero di farsi male come crede...
@Alex

 GM
Se è stabile e nn puoi fare a meno di scrivere codice che si porebbe
evitare,
all'apertura del report Forms![TuaForms].Visible = False e 
alla chiusura Forms![TuaForms].Visible = True
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 alla chiusura Forms![TuaForms].Visible = True
---------------
perdonami Jason... non ho ben capito, mi dici che sarebbe conveniente 
togliere
la proprietà popup dai report ed inserire quanto sopra sull'evento "su 
apertura" ??ù
grazie 

GM ha scritto:

No,
con il codice precedente nascondi la form popup che copre l'anteprima del
report.


 report.
--------------
ah... OK.. grazie...
provvedo a fare quest'altra modifica....
Ciao
Newsgroup: it.comp.appl.access
Titolo: Giorno della settimana

Salve, avrei bisogno di crearmi delle stampe simili al foglio del calendario 
settimanale che è presente in Outlook quello tabellare per intenderci.
A tal punto vorrei creare delle query, una per giorno della settimana (che 
saranno base per 7 sottoreport), che prelevino delle date nel database, le 
filtrino per settimana corrente, e raggruppino i record restituiti per 
giorno della settimana
Grazie

Vorrei  creare delle query, una per giorno della settimana (che saranno base per 7 sottomaschere o sottoreport), che prelevino delle date nel database, le
 filtrino per settimana corrente, e raggruppino i record restituiti per giorno della settimana.
 
Ho trovato una funzione che estre i lunedì di una settimana:
 
Public Function fctKWMon(ArgKW As Byte, Optional ArgJahr)
     ' restituisce il lunedì della settimana di calendario
     ' di Karl Donaubauer
 
    Dim M As Date
     If IsMissing(ArgJahr) Then ArgJahr = Year(Date)
     M = DateSerial(ArgJahr, 1, 1) + (ArgKW - 1) * 7
     M = M + 1 - WeekDay(M, vbMonday)
     If Format(M, "ww", vbMonday, vbFirstFourDays) <> ArgKW Then M = M + 7
     If (ArgKW = 1 Or ArgKW = 53) And Day(M) > 4 And Day(M) < 8 Then M = M - 7
     fctKWMon = M
 
End Function
 
Come devo strutturare tabelle e SQL?
 
Gianf

Newsgroup: it.comp.appl.access
Titolo: Selezione multipla e cancellazione multipla sottomaschera

Ciao, :-D
venendo subito al dunque è possibile impedire o gestire in qualche modo la
selezione multipla o la cancellazione multipla dei record di una
sottomaschera in visualizzazzione foglio dati?
Vi prego risp al + presto che è urgente.:-(
Grazie e ciao :-)

Ho risolto....e da solo!:-D
Newsgroup: it.comp.appl.access
Titolo: Selezionare da codice i record di una tabella

Salve a tutti,
Ho una maschera access 2010 in visualizzazione foglio dati e basata su una query.
Nell'intestazione della maschera vorrei inserire un pulsante che una volta premuto seleziona i record del foglio dati in automatico e li copia nella clipboard
è possibile?
Grazie in anticipo per l'aiuto.
Nicola

 ...
 
No, perch� in vis. foglio dati non si vede l'intestazione della maschera.
 
Se p.e. usi una maschera (principila) e il tuo foglio dati come
sottomaschera puoi usare codice come questo:
 
Me!NomeDellaStottomaschera.SetFocus
RunCommand acCmdSelectAllRecords
RunCommand acCmdCopy
 
Se non riesci, spiega cosa hai provato e spiega meglio cosa vuoi
ottenere, soprattutto cosa vuoi fare con i record nella clipboard.
 
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 
 
 
 

 Access FAQ: 
www.donkarl.com/it
 
 
Grazie Mille Karl,
Ho risolto alla perfezione con il tuo suggerimento.
Ho creato una maschera con la sottomaschera e così sono riuscito a fare ciò che
volevo.
In pratica ho una maschera con sottomaschera "acquisti" e una maschera con sottomaschera "DDT". Da acquisti, con una query  filtro solo alcuni campi che poi visualizzo in una Maschera temporanea. Da qui seleziono tutto copio e incollo nella maschera "DDT".
Ora grazie ai tuoi consigli riesco a farlo in automatico.
(non so se sono stato chiaro, comunque il problema è risolto e ti ringrazio molto)
Nicola

Newsgroup: it.comp.appl.access
Titolo: chiudendo un report sapere se la maschera sotto è massimizzata o no

devo sapere su chiusura di un report se la maschera che ho sotto tale report
č massimizzata a tutto schermo con docmd.maximize oppure č normale
in quanto quando chiudo il report se era massimizzata devo eseguire
docmd.maximize altrimenti no.
grazie.

 grazie.
Ma se è massimizzata e tu la massimizzi ancora che fa?
Hai paura che esca fuori lo schermo?
MAssimiliano


;)
no il fatto č che se non č massimizzata non la devo massimizzare e siccome
il report lo posso aprire da maschere massimizzate o non massimizzate mi
interessava sapere lo stato della form in modo da rimetterlo tale.
Newsgroup: it.comp.appl.access
Titolo: rendere obbligatori tutti i campi

in una maschera, voglio che tutti i campi vengano riempiti dei
corrispettivi dati e non restare nulli .
Come posso fare per fare in modo che al passaggio ad un nuovo record, mi
venga avvertito che ci sono campi vuoti da riempire prima di andare avanti
e salvare il record?
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 l.
vdi se fa al caso tuo:
www.sitocomune.com
3.95 Verificare che alcuni controlli di una maschera di inserimento dati
non siano stati lasciati vuoti
Ciao
Daniele

 Daniele
Oppure potrebbe servirti così
Campo1
Campo2
Campo3
In ogni campo successivo puoi mettere questo (su Invio).
----------------------------------
Private Sub Campo2_Enter()
If IsNull(Me!Campo1) Then
    If MsgBox("Compilazione Obbligatoria!", vbOKCancel, _
    "Attento!") = vbCancel Then Exit Sub
    Me!Campo1.SetFocus
End If
End Sub
----------------------------------
'vbOKCancel nel caso vuoi ricordare ma eventualmente saltare e
lasciare vuoto un campo.
Saluti By Princ....

 
Ho provato a mettere scrivere qualche riga di codice, prova a vedere se 
ti può andare bene:
Attenzione nella riga dove fai il controllo del tipo di oggetto devi 
inserire tutti i tipi di cui  ti interessa verificare se sono vuoti
  i vari tipi possibili li trovi nella guida in linea cercando "ControlType"
es: acComboBox , acTextBox
ecco il codice:
Sub ControlloCampi()
Dim x As String
Dim Campo As Control
For Each Campo In Me.Controls
         If Campo.ControlType = acTextBox Or Campo.ControlType = 
acComboBox Then
             If IsNull(Campo.Value) Then x = x & vbCrLf & Campo.Name
         End If
Next
If Not IsNull(x) Then MsgBox "Attenzione i seguenti campi vanno 
compilati" & vbCrLf & x
End Sub
Lo assegni allevento che piu ti fa comodo es: chiusura maschera, 
passaggio ad altro record o altro.
Se hai problemi scrivi.
Ciao beppe
Newsgroup: it.comp.appl.access
Titolo: Creazione di campi in base ai dati contenuti in tabella

Salve a tutti, premetto che non sono molto pratico nell'uso di access,
finora infatti ho utilizzato le funzioni standard e sono giunto da poco
all'uso di maschere e report in maniera del tutto automatica e quindi senza
conoscenza del codice sottostante.
Ora mi sto cimentando nella creazione di un db per la rilevazione delle
quotazioni dei titoli in borsa con inserimento manuale; ho creato la tabella
"titoli" con ID_TITOLO e NOME_TITOLO e vorrei crearne un'altra chiamata
"rilevazioni" con ID_RIV, DATA_RIV e QUOTAZIONE e in automatico aggiunti i
campi contenenti i dati inseriti nella prima tabella. Esempio:
TABELLA1
id    nome_titolo
1     TITOLO A
2     TITOLO B
3     TITOLO C
X     TITOLO X
TABELLA2
id    data_riv            titoloA       titoloB    titoloC    .......
1     13/02/2004      23,15        19,50     2,53       .......
Non so se è possibile, ho provato a spulciare guide e risorse online ma si
fa riferimento solo alla creazione di tabelle "standard" e non a questa che
servirebbe a me.
Ringrazio gentilmente per l'aiuto chiunque intendesse illuminarmi. Grazie.


La struttura che vuoi creare "non" e' normalizzata
la tabella rilevazioni dovrebbe essere
data rilevazione- id del titolo - quotazione
su questa per avere i dati nel formato che vuoi e' sufficiente una query a campi
incrociati
(usa il wizard per la costruzione di tale query)
Se vuoi percorrere la strada che hai indicato e' necessario modificare
"dinamicamente" da codice la struttura della tabella (ALTER ... ADD COLUMN....)
e se hai un form per accedere andrebbe modificato dinamicamente anche quello.
--
a.cara 
Togli qualcosa dall'email

Newsgroup: it.comp.appl.access
Titolo: Riferimenti e Data

Qualc'uno mi sa dire l'ordine esatto che devono avere i riferimenti perche'
funzioni correttamente la funzione Date() ?
ADO deve stare sopra o sotto al DAO?

 ha scritto nel messaggio
news:8qahpv$eum82$1...@ID-50848.news.cis.dfn.de...


grazie mille , grazie a te ho risolto. ho messo i tuoi stessi riferimenti e
adesso tutto e' tornato a funzionare. chissa' perche' access ogni tanto mi
fa partire li rifermimenti....non mi piace mica tanto....
"Stefano" <'
s.ben...@tin.it
'> ha scritto nel messaggio
news:rh5y5.2333$4v4....@news.infostrada.it...


Volevo solo informarti che ADO (Active Data Objects) non deve stare sopra o
sotto.
Sostituisce semplicemnte DAO (Data Access Object) e ODBCD come metodo di
accesso ai dati sia Jet sia client/sever.
Ciao.


Newsgroup: it.comp.appl.access
Titolo: Chiusura maschere

Praticamente, quando premo un pulsante vorrei chiudere la maschera in cui mi
trovo e un'altra contemporaneamente, come posso fare?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:81852eea17e22838c04...@mygate.mailgate.org...

Vedi DoCmd.close
DoCmd.Close acForm,"nomeMaschera"
Ciao ;-)> Mrok
Newsgroup: it.comp.appl.access
Titolo: Copia files tramite Maschera

Ciao a tutti.
avrei bisogno di una mano per far questo:
io vorrei, tramite maschera, poter selezionare un file e copiarlo su una
cartella preselezionata.
Sul sitocomune sono presenti 2 moduli che penso facciano a caso mio, che
sono:
1- Richiamare la finestra di dialogo per la selezione di un file.
2-Effettuare la copia di un file.
(nella sezione General)
il primo punto è ok, ma dopo che ho selezionato il file, non ho capito come
collegare la selezione alla copia, ad esempio in c:\immagini
Il primo punto mette il percorso del file nella variabile openfile, se non
sbaglio. Poi come vado avanti?
Il mio problema, in effetti è che non ho capito come funziona il modulo 2
(Effettuare la copia di un file).
Un grazie, anzi due a chi mi sa dare una mano.
Alessio

 ha scritto nel messaggio
news:99utvn$bph$1...@news.cineca.it...

puoi fare cosi'
Dim appoggio as string 'variabile di appoggio del percorso e nome del file
da copiare
Dim nuovadestinazione as string  'variabile che contiene il percorso dove
copiare il file
Dim nomedelfile as string  'variabile che contine il nome del file da
copiare
appoggio= <funzione di slezione file su disco quella del tuo modulo n°1>
nuovadestinazione="C:\...................."  'qui puoi anche impostare una
funzione per ricercare la nuova destinazione, oppure un campo in una
maschera dove la vai a scrivere , per non metterla fissa.
nomefile=dir(appoggio,vbdirectory)
FileCopy appoggio, nuovadestinazione&nomefile
o perlomeno e' quello che faccio io . eheh!:)
Ciao , Lorenzo.

 wrote in message
99v37k$ub9$1...@pegasus.tiscalinet.it...

Grazie, funziona.
Adesso devo implementare un sistema per verificare che il file non sia
presente nella cartella di destinazione e credo che prenderò spunto dal
punto 2 del mio primo msg o troverò qualche altra solution.
Thanks
Alessio
PS: ..... se qualcuno ha consigli da dare..... sono ben accetti :))


In un modulo metti questa funzione
'Verifica l'esistenza o meno di un file esterno
Public Function FileExist(Nomefile As String) As Boolean
    FileExist = Len(Dir$(Nomefile)) > 0
End Function
nella maschera della copia dei file mette
se FileExist(nomeepercorsodelfile) = true meggio , il file esiste gia' nella
cartellina
altrimenti
copi diretto
:)
Ciao :))
Newsgroup: it.comp.appl.access
Titolo: Errore con Requery necessario salvare il campo corrente

Ciao,
sull'evento dopo aggiornamento di un controllo ho inserito una Routine 
Forms![Maschera]![Sottomaschera].Requery. Questa sottomaschera ha come 
origine record una query. Devo poter fare un "refresh" di questo controllo 
ogni qualvolta questo viene modificato ma con la routine in questione mi 
spara questo errore: Errore di runtime 2118 E' necessario salvare il campo 
corrente prima di eseguire l'azione RieseguiQuery.
Grazie 


docmd.runcommand accmdsaverecord
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa
 

 ha scritto nel messaggio 
news:4Lkah.57431$uv5.4...@twister1.libero.it...

Forms![Maschera]![Sottomaschera].Form.Refresh
Forms![Maschera]![Sottomaschera].Form.Requery
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:eke7td$etg$1...@tdi.cu.mi.it...

Ho trovato questa soluzione:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
senza nulla togliere a MA la sua non funziona, non ricevo nessun errore ma 
neanche Refresh
Ciao e grazie 

 Ciao e grazie

Newsgroup: it.comp.appl.access
Titolo: vba risultato query in if then

ciao,
uso A03, ho una query di selezione che esegue un calcolo ed ha il campo "rimanenze" che fornisce il risultato del calcolo.
In vba vorrei usare questo campo in una if/then per far si che se il risultato è minore di zero allora compare un msgbox.
Ho provato in vari modi ma invano.
Mi dareste una mano? non so come ci si riferisce alla query in vba.
Ciao
 
Remigio

 Remigio
 
Set RS As Recordset, SQL As String, X as Currency
 
SQL = <stringa della query si selezione>
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
X = RS![Rimanenze]
 
If X < 0 Then
    ...
    ...
 
Bruno
 
 

 Bruno
 
<stringa della query si selezione> sarebbe il nome della query senza il percorso del database?
Per es. q_conteggio_confezioni ?
O per es. db_magazzino.q_conteggio_confezioni?
Grazie Bruno, un saluto.
 
Remigio

 O per es. db_magazzino.q_conteggio_confezioni?
 
Nein!
ï¿œ l'espressione SQL della query, quale si evince, per esempio, dalla 
griglia QBE.
 
Bruno
 
 

 Bruno
 
Ma sì, potrebbe essere anche il nome di una query che si trova nel 
database corrente.
L'avevo escluso soprappensiero per l'abitrudine di non creare mai query 
nel database se non al volo, in codice VBA.
 
Bruno
 
 

Ciao Remigio,
qui ti spiego la risposta gentile di Bruno, nel caso tu non sia pratico di vba.
devisolo incollare questo codice modificandone i campi:
 
Sub hgf()
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
Dim X As Currency
 
SQL = "NOMEQUERY"
Set db = CurrentDb
Set RS = CurrentDb.OpenRecordset("select * from NOMEQUERY", dbOpenDynaset)
X = RS.Fields!CAMPODELLAQUERY
 
If X < 0 Then
 MsgBox "Ho provato in vari modi ma invano"
 Else
 MsgBox "ok"
 End If
End Sub
 
saluti.



Andrea,
sei persona di rara gentilezza.
Ti dirò la verità, avevo cercato in vari modi di interpretare la risposta dell'amico Bruno ma non essendo riuscito a far funzionare il codice ho ripiegato sull'utilizzo di un'altra soluzione.
Domattina proverò di nuovo con il codice sperando che vada.
Un saluto e grazie.
 
Remigio

...
 
Ciao,
ho provato con il codice seguente:
 
Dim RS As DAO.Recordset
Dim SQL As String
Dim X As Currency
 
SQL = "q_inserimento_giacenze_tmp_rimanenze_diabetici"
Set db = CurrentDb
Set RS = CurrentDb.OpenRecordset("select * from q_inserimento_giacenze_tmp_rimanenze_diabetici", dbOpenDynaset)
X = RS.Fields!rimanenze
 
If X < 0 Then
MsgBox "ATTENZIONE!!! La quantità consegnata è SUPERIORE a quella disponibile. Verificare la giacenza sullo scaffale!"
Exit Sub
End If
 
ed esce l'errore di runtime 3061 "parametri insufficienti. Previsto 2"
 
Cosa può essere?
Grazie e saluti.
 
Remigio

FORSE NON HAI POPOLATO IL RECORDSET
 
Sub hgf()
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
Dim X As Currency
 
SQL = "NOMEQUERY"
Set db = CurrentDb
Set RS = CurrentDb.OpenRecordset("select * from NOMEQUERY", dbOpenDynaset)
 
RS.MOVELAST
RS.MOVEFIRST
 
X = RS.Fields!CAMPODELLAQUERY
 
If X < 0 Then

Newsgroup: it.comp.appl.access
Titolo: Verifica presenza record in sottomaschera

Per Access 97.
Come posso effettuare la verifica sulla presenza di almeno due record nella
sottomaschera, prima di passare al record successivo o alla chiusura della
maschera principale ?
Mille grazie da Bruno

 ha scritto nel messaggio
news:%L8Ya.41964$cl3.1...@news2.tin.it...

Ciao Bruno,
Puoi interrogare la proprietā recordCount
If Me.Figlio1.Form.Recordsetclone.recordcount>2 then
   'Almeno 2 o pių record
Else
  'meno di due record
End if
Ciao Giorgio.

 Grazie Giorgio,
        il tuo consiglio č stato utile e funziona perfettamente, ma non
riesco a fare il setfocus nel campo della sottomaschera, perchč ?
        Puoi darmi un altro aiuto.
        Grazie Bruno
    >


Ciao Bruno
L'ordine di tabulazione di una sottomaschera è indipendente da quello della
maschera principale, quindi devi prima mettere il fuoco sul subfom
----------------------
Me.Figlio1.SetFocus
----------------------
e poi sul controllo
--------------------------------------------
Me.Figlio1.Form.NomeControllo.Setfocus
--------------------------------------------
Ciao Giorgio.
Newsgroup: it.comp.appl.access
Titolo: modifiche dati - donkarl.com-FAQ4.32

ho "prelevato" questo codice dal sito di donkarl 
If MsgBox("Salvare le modifiche?", vbYesNo, "Salvare?") = vbNo Then
  Me.Undo 'annulla tutte le modifiche nel record
  Cancel = True 'evita successivi eventi
End If
e devo dire che va bene, ma vorrei aggiungerci un ulteriore controllo e
cioč avendo anche quest'altro controllo che mi fa accedere ad una maschera
tramite password
If InputBox("Password", "Password", "", 0, 0) = "abc123" Then
      DoCmd.OpenForm "archivio", acNormal, windowmode:=acWindowNormal
   DoCmd.Close acForm, "richieste"
   Else
   MsgBox " password errata!"
   End If
vorrei fondere questi due codici per poter consentire le modifiche tramite
password, 
ma sono ingrippato e non riesco a trovare la soluzione, la sintassi e il
codice giusto
chi mi aiuta?
come fare? SOS !
grazie!
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ho modificato il codice in questo modo:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If InputBox("Password", "Password", "", 0, 0) = "abc123" Then
If MsgBox("Salvare le modifiche?", vbYesNo, "Salvare?") = vbNo Then
Me.Undo 'annulla tutte le modifiche nel record
Cancel = True 'evita successivi eventi
End If
Else
MsgBox " password errata!"
Me.Undo 'annulla tutte le modifiche nel record
Cancel = True 'evita successivi eventi
End If
End Sub
vorrei che qualcuno che ne capisca molto più di me mi dia un'occhiata al
codice e darmi le proprie impressioni, consigli o modifiche per
migliorarlo.(anche perchè se sbaglio password e passo al record successivo
mi richiede la pw a cui posso raggirare solo chiudendo il DB.


 l.
mi rendo conto che non va bene!
sic


 sic
cioč?
-- 
Ciao
Geppo 

 cioè?
che chiede la password anche quando si inseriscono i dati in un nuovo
record oltre a quando ne modifichi il contenuto di un record già esistente.
E io non voglio che mi chieda la pw quando inserisco dati in un nuovo
record vuoto!


 record vuoto!
questo lo eviti testando se si tratta di un nuovo record come indicato 
sopra.
-- 
Ciao
Geppo 

               end if


ok!
grazie! funziona! stavo andando al manicomio :-))

Newsgroup: it.comp.appl.access
Titolo: Riallega Tabelle

Come da un post precedente chiedevo come poter decidere tramite una lista
quali tabelle riallegare .
Mi e stato risposto (riporto testualmente):
Quando chiamo la funzione riallegatabelle, passo un parametro.
A seconda del parametro, dopo la scelta del db remoto, mi viene aperta la
tabella corrispondente che contiene i nomi delle tabelle a cui aggiornare la
proprietą connect
Posto la funzione da me adottata per riallegare le tabelle (naturalmente una
parte!)adeguatamente convertita in Ado
Private Function RefreshLinks(strFileName As String) As Boolean
'   Aggiorna i collegamenti col database indicato. Restituisce True se
riesce.
    On Error GoTo ErrRefresh
    Dim cat As New ADOX.Catalog, tbl As ADOX.Table
    Dim lTables As Long, lCount As Long
    Set cat.ActiveConnection = CurrentProject.Connection
    lTables = cat.Tables.Count
    For lCount = 1 To lTables - 1
        Set tbl = cat.Tables(lCount)
        If tbl.Type = "LINK" Then
            tbl.Properties(6).Value = strFileName
        End If
    Next lCount
    RefreshLinks = True        ' Ricollegamento concluso.
    Exit Function
ErrRefresh:
    RefreshLinks = False
End Function
Come parametrizare correttamente tale funzione in modo tale da poter
inserire una lista predefinita
di tabelle.
Grazie
Rino Ferrari

     For lCount = 1 To lTables - 1
qui, invece di fare un ciclo per tutte le tabelle che trovi, metti un 
recordset basato su una tabella contenente tutte le tabelle da allegare.
(while not rst.eof...)
la struttura potrebbe essere:
nomelocale
nomeremoto
stringaconnessione
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------

 | Paolo opg
Ciao Paolo potresti fare un esempio nella struttura del codice con Tab 1,Tab
2 ecc.
la stringa di connessione viene data dalla variabile "strFileName" che viene
ricavata dalla selezione in una finestra 'Apri'.
Rino Ferrari

 
...
io uso access97
dim rst as recordset
dim tbl as tabledef
set rst=currentdb.openrecordset("tbl_tabelle", dbopensnapshot)
while not rst.eof
    	currentdb.tabledefs.delete rst!nomelocale
    	set tbl=currentdb.createtabledef("nomelocale")
    	tbl.sourcetablename=rst!nomeremoto
    	tbl.connect=rst!connessione
    	currentdb.tabledefs.append tbl
    	rst.movenext
wend
rst.close
set rst=nothing
ho scritto a memoria e al volo.
controlla sintassi e metodi...
invece di prendere la stringa di connessione dalla tabella, inserisci la 
stringa che avrai preso con la finestra di input o di selezione e cambia 
la riga di codice relativa.



La sintassi e un po diversa con Ado, ma mi hai dato spunto.
Grazie
Rino Ferrari
Newsgroup: it.comp.appl.access
Titolo: QrCode

salve
 
qualcuno di voi utilizza qRCode?
 
ci sono dei demo o programmi free per generarli?
 
Grazie


Io li uso
Stampato direttamente da stampantina Zebra GT800 su etichetta prodotto
Quindi il programma non si occupa della generazione bar-code se non 
nella composizione corretta del comando da inviare alla stampantina, una 
stringa di testo
I QR sono comodi perche' ormai qualsiasi smartphone, tramite software, 
puo' leggerli e portare il cliente alla pagina descrittiva del prodotto
Credo qualsiasi stampante possa generarli correttamente
Discorso diverso se volessi inserire il qr all'interno di un report a 
fianco di altre informazioni, allora e' necessaria una libreria apposita 
o routine specifica
 


grazie del messaggio ma vorrei proprio inserire nei miei report un qrCode
avete dei suggerimenti?
 
Grazie


io lo faccio appoggiandomi alle google api
in pratica faccio generare il qr code a google..scarico il qr come 
immagine e la carico nel report.
il tutto in modo trasparente all'utente
unica pecca che serve sempre una connessione internet
 
 
ciao


Ehhh che forte questa
Fai lavorare Google e poi ti leggi i risultati
Ma fai tutto via vba?
E quanto ci mette il processo invia-genera-leggi ?
Non chiedo di vedere il codice perche' sembrerei troppo indiscreto, 
certo che darci un'occhiata sarebbe molto interessante
 


nessun problema. sulla formattazione dell'intestazione:
 
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
 
  URLDownloadToFile 0, _
 
"
https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=qui
 scivi 
quello che vuoi inserire, _
             "C:\tmp.png", 0, 0
 
Me.qr.Picture = "C:\tmp.png"
 
 
End Sub
 
 
 
in pratica mi scarico l'mmagine generata da google in c:\tmp.png e poi 
la carico sul mio controllo immagine me.qr
 
 
per scaricare l'immagine uso:
URLDownloadToFile
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias 
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, 
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As 
Long) As Long
 
 
 
 


Bellissima idea, semplice et efficace
Non sapevo del servizio di Google
Grazie
 
 
 


offre parecchia pappa pronta google, sopratutto quando si sviluppa su 
mobile con i suoi "play-sevices"
 
verifica solo, nel caso di uso massiccio, tu non deva crearti una 
apposita key sul pannello di gestione api di google.
come si usa fare per sfruttare le api di google maps per geolocalizzare 
o instradare.
 
 
unico lato negativo la connessione internet sempre presente
 
ciao
 
 


GRAZIE
VERAMENTE INTERESSANTE
 
si dovesse creare un report a record multipli hai delle dritte?


 
 
non cambia molto...il codice invece di metterlo sulla formtatazione 
della testa lo metti sul corpo
 
ciao
Newsgroup: it.comp.appl.access
Titolo: Report Criterio

Salve a tutto il NG.
Avrei un problema. Ho un report che deve essere stampato, solo che se un
determinata casella di testo è vuota, non deve essere visibile.
Ho provato in molti modi tipo:
If Me.Banca Is Null then
Me.Banca.Visible = False
Oppure
If Me.Banca ="" Then
Me.Banca.Visible = False
Ma non ne funziona uno....mi dice che manca l'oggetto......
Che problema può essere??
Grazie
Ultra

 determinata casella di testo č vuota, non deve essere visibile.
Mettiamola cosě, hai un report che deve essere stampato solo se un valore
presente in un campo non č null
oppure in quest'altro modo:
se in una maschera che lancia il report non č stato immesso un valore in una
casella di testo.
Scegli...o fammi capire meglio.
Newsgroup: it.comp.appl.access
Titolo: SQL SERVER.

Vorrei sviluppare un bel programma per gestire il mio negozio, con l'idea
poi
di poterlo anche vendere.
Quale linguaggio potrei usare ?
Non sono riuscito a capire bene se SQL server possa essere meglio di ACCESS
2000
DEVELOPER

 ha scritto nel messaggio
news:ocyE6.73543$s93.7...@news.infostrada.it...

Non prendertela , ma non inizzi bene ;)
SQL e ACCESS sono due programmi distinti tra loro se li vedi sotto l'ottica
della sola Base di Dati (contenitore) , che pero' si possono integrare se li
vedi sotto l'ottica SQL per i DATI e Access per le Macherine.
Se il programma che vuoi fare non richiede grandi risorse , Access sia per i
DATI che per le MASCHERINE , e' la miglior cosa.
Cambiano i costi sensibilmente.
--
(^o^))~    Lorenzo   (^o^))~
"Preimaginare e' lo imaginare le cose che saranno..."
"Postimaginare e' imaginare le cose passate ..."
(Leonardo Da Vinci)

Newsgroup: it.comp.appl.access
Titolo: problema aggiornamento

ho una maschera di inserimento nella quale ci sono delle caselle combinate
collegate a delle tabelle.
se l'utente inserisce qualcosa che nella tabella non c'è come faccio a fare
in modo che la casella combinata aggiorni la tabella e aggiunga il nuovo
valore? grazie ciao francesco

 ha scritto nel messaggio
news:8o8c7.3379$1c2.1...@news.infostrada.it...

In grandi linee devi:
1) Impostare a SI le proprietà "Solo in elenco" e "Espansione automatica"
della casella combinata (vedi help).
2) A fronte dell'evento "Su non in elenco" (vedi help) della casella
combinata apri una maschera che ti permetta di inserire un nuovo record
nella tabella su cui è basata la query che è origine riga della casella
combinata.
3) Dopo la chiusura della maschera di cui sopra effettua un Requery della
casella combinata.
In alternativa, l'aggiornamento della tabella, anziché aprendo una maschera,
puoi effettuarlo aprendo un recordset sulla tabella.
La nuova descrizione da inserire in tabella, se non vuoi ridigitarla, la
trovi nella variabile NewData.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9kr63b$46im$1...@stargate1.inet.it...



Non escludo che il tutto possa essere fatto con delle macro, però la verità
è che se tu sei impedito con il codice VBA io lo sono altrettanto con le
macro.
Fammi sapere se ti interessa approfondire il problema trovando una soluzione
con il codice VBA.


Newsgroup: it.comp.appl.access
Titolo: [OT] Biglietti vincenti della Lotteria Italia!

Ciao a tutti!
Per caso, qualcuno di voi ha vinto i miliardi (milioni) della Lotteria
Italia?
Magari č meglio se controllate.
PEO
www.studiopasquali.it/lotteria2002.htm
P.S.: io gli unici euro che ho avuto me li ha portati la befana (perň erano
di cioccolata... cioccolataaa... uhmm...).

 ha scritto nel messaggio
news:3c39...@news.omniway.sm...

Io! Io!
Il prossimo raduno lo offro io. Voi dite di segnare sul conto che poi passo
a saldare...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Verifica prima di creazione record

 
In una maschera clienti ho vari controlli tra cui [IDcliente]e [Data], piu
un comando che mi crea un nuovo record copiando [IDcliente] dal record
precedente e [Data] incrementata di 1 giorno.
Come posso verificare se [Data] esiste gia prima di creare il nuovo record?
Grazie per l'aiuto
Walter

 wrote in message
news:E0uYe.3520$
kA.2...@news3.tin.it

Come gestisci la generazione del Nuovo Records...?
In sostanza devi intervenire prima, quindi avendo
a disposizione il RecordsetClone della Form puoi
approfittare del Metodo FindFirst associando 2 Condizioni
l'IDCliente in AND con la Data da testare.
Se la proprietà NoMatch è vera procedi con la creazione.
Devi essere meno sintetico se vuoi risposte più aderenti.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG