mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Problemi con XP

In una rete con Controller di Dominio win2k ho circa 10 PC con win2k
installato e membri del dominio,
oltre a queste due macchine ho due P.C. con Win XP Professional, , tutte le
macchine hanno un file installato da loro  contenete delle maschere e il
collegamento a delle tabelle che sono in un file *.mdb sul server.
le macchien con W2k aprono il file che inizialmente esegue una query per
visualizzare dei dati in qualche secondo, le due macchine con XP impiegano
addirittura qualche minuto.
Qualcuno sa darmene una ragione e se vi è un modo per risolvere questo
problema.

 ha scritto nel messaggio
news:6W3k9.160843$pX1.5...@news2.tin.it...

Per esperienza diretta ho riscontrato incompatibilità con alcune schede di
rete e AccessXp, provando a copiare file di grosse dimensioni tra pc e rete
la velovità di trasmissione era nella norma mentre quando AccessXp eseguiva
query o accessi a tabelle la velocità non raggiungeva i 300 Kb/sec.
sostituendo la scheda di rete ho risolto il problema. Se in WinWP esiste
ancora il monitor di sistema prova a fare il test della velocità sul client
di reti Microsoft, (Byte letti al secondo e Byte scritti al secondo)  così
avrai maggiori parametri per individuare il problema.
Ciao Giorgio.

 ha scritto nel messaggio
news:amqk8s$en9$1...@lacerta.tiscalinet.it...


 addirittura qualche minuto.
Windows XP o Access XP?
Comunque penso anch'io sia un problema legato a schede di rete: assicurati
che siano tutte uguali (e preferibilmente 3Com che in genere funzionano).
Ciao, Donato

 oltre a queste due macchine ho due P.C. con Win XP Professional
Scusa, avevo letto di fretta :-)

 ha scritto nel messaggio
news:pfdk9.8180$Eu.1...@twister1.libero.it...

Newsgroup: it.comp.appl.access
Titolo: dimensione finestra principale

Buongiorno a tutti
E' possibile impostare le dimensioni della finestra principale del
programma?
Grazie
Marco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Marco
Per finestra principale intendi la MDI(Access)..?
Se č cosě direi che č fattibile ma meno semplice di 
ridimensionare una Finestra(Form) normale.
In sostanza usa questa dichiarazione API
Private Declare Function MoveWindow Lib "user32" _
                        (ByVal hWnd As Long, _
                         ByVal X As Long, ByVal Y As Long, _
                         ByVal nWidth As Long, _
                         ByVal nHeight As Long, _
                         ByVal bRepaint As Long) As Long
Call MoveWindow(access.hWndAccessApp, _
                        X, _
                        Y, _
                        CX, _
                        CY, _
                        1)
Credo che i dati siano chiari, se hai dubbi inserisci in GOOGLE
MoveWindow e vai in MSDN(Microsoft) dove trovi tutti i dettagli.
Se hai esigenze di dimensionamento particolari invece facci sapere
in dettaglio quali sono che vediamo di svilupparle.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Grazie


 programma?
http://www.peterssoftware.com/winmanip.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)

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

Salve e buona domenica a tutti.
E' possibile cercare un record in una sottomaschera partendo da una
casella non associata posta nella maschera principale?
Seguendo un post di molto tempo fa ho creato la text non associata, e in
un bottone ho inserito
Me!Prodotti_Sottomaschera.SetFocus
Me!Prodotti_Sottomaschera!Barcode.SetFocus
DoCmd.FindRecord Me!ricerca 
ma non funziona.
Il codice corretto per questa operazione č?
Many Thanks
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Me!Prodotti_Sottomaschera!Barcode.SetFocus
prova cosi:
DoCmd.FindRecord Me!ricerca, acAnywhere, , acSearchAll, , acAll
-- 
Ciao
Access

 prova cosi:

non va!


 Many Thanks
Perchč non sfrutti il RecordsetClone...?
With Me!Prodotti_Sottomaschera.Form
    .RecordsetClone.FindFirst "NomeCampo=" & Valore
    If .RecordsetClone.NoMatch Then
        msgbox "NON TROVATO"
        Exit Sub
    Else
         .Bookmark=.RecordsetClone.Bookmark
    End if
End With
Provalo l'ho scritto ad occhio e sostituisci la variabile VALORE con il tuo
riferimento...!
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Contatore.

Salve a tutti.
C'è un modo di far partire il contatore di un database in Access 2000 da 0
invece che da 1 avendolo impostato anche come chiave primaria?
Grazie.
Federico

 invece che da 1 avendolo impostato anche come chiave primaria?
No. Dovrai gestirti tu un campo numerico intero lungo in modo da
incrementarlo ad ogni nuovo record
Antonio
Newsgroup: it.comp.appl.access
Titolo: Collegare automaticamente le tabelle (in un database nascosto)

Ciao a tutti. Ho utilizzato con successo codice "sitocomune 1.10 per
Effettuare in maniera del tutto automatica l'aggiornamento delle
tabelle allegate ad un FE"
Ok.
Solo che se pesco da un mdb che ha la proprietà 'file nascosto' di Ms
Win,
non funziona. Sapete perchè e come si può modificare il codice
sul sitocomune in modo opportuno?
Grazie.

(.....)

Il codice che hai usato utilizza la funzione dir() per individuare se nella cartella selezionata dall'utente è presente
il file mdb che contiene le tabelle da allegare.
La funzione Dir() può individuare anche i file nascosti se viene chiamata con il secondo parametro impostato a vbHidden
(vedi help di Access).
In poche parole, nel codice che hai scaricato dal sito comune, sostituisci la riga
 If Dir(path & "\" & aDB(intI, 1)) > "" Then
con la riga 
 If Dir(path & "\" & aDB(intI, 1), vbHidden) > "" Then
Non ho provato, ma c'è il rischio che funzioni ;-)
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------

 Vincenzo Turturro
Grazie mille. Se mi piace questo NG. Se mi piacete tutti!
Provo subito.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Query + contatore

Ho una tabella da cui estrarre determinati record con una query per
creare una seconda tabella alla quale devo pero' aggiungere un campo
del tipo "00001" che si incrementa nella creazione della tabella
stessa.
Chi riesce a darmi una soluzione ?
Ciao a tutti e grazie

 ha scritto nel messaggio 
news:a3c95b4a.0503...@posting.google.com...

Una strada è quella di creare il campo e poi numerarlo.
Nella query di creazione tabella aggiungi un campo chiamato: Incremento (per 
esempio).
Creata la tabella e accodato i dati il campo Incremento non conterrà valori 
ma sarà presente.
Da codice un semplice ciclo di for ti permetterà di valorizzare questo campo 
"Incremento" come più ti piace.
Public Sub PopolaIncremento()
Dim Rcs as Recordset, i as integer
Set rca = currentdb.Openrecordset("TuaTabellaAppenaCreata")
Rcs.Movelast
Rcs.MoveFirst
for i = 1 to Rcs.RecordCount
with rcs
.Edit
!Incremento = format(i,"00000")
.Update
End with
Rcs.MoveNext
next i
Rcs.Close
Set Rcs = Nothing
End Sub
Ciao, Carlo

...

Grazie...  Risolto
Un grande gruppo come voi riesce sempre a risolvermi i problemi
Ciao
Newsgroup: it.comp.appl.access
Titolo: problema di calcolo

Premetto di non aver mai inserito alcun messagio in un NG, quindi se dovessi
aver commesso una qualunque indelicatezza o mancanza nei confronti di chi
gestisce ed utilizza l'NG in maniera professionale vi prego di non
volermene. Passo subito al problema: il db che sto creando con Access97
serve per la gestione del personale. Il tutto parte da una struttura di
diversi  UFFICI, in ognuno dei quali ci sono più SETTORI. Nell'ambito di
questi ultimi c'è il personale preposto. Fatta questa premessa, con una
serie di tabelle collegate ad un'unica maschera, creo un report che mi
riproduce su carta l'organico aggiornato stampando ogni UFFICIO iniziando
una nuova pagina, poi sotto quest'ultimo stampa i vari SETTORI con
l'indicazione, per ciascuno di essi, dei vari dipendenti che vi lavorano all
'interno messi in ordine decrescente di qualifica e, a parità di qualifica,
in ordine decrescente di cognome. Quello che si presenta è all'incirca
questo:
UFFICIO
SETTORE 1
Qualifica3 Cognome
Qualifica2 Cognome
SETTORE 2
Qualifica3 Cognome
Qualifica1 Cognome
Il problema è che a fine report vorrei creare una  o più tabelle (non di
access ma semplici riquadri) tipo quella che segue dove in automatico
vengono riportati, per ogni UFFICIO,  il totale numerico dei dipendenti in
servizio diviso per qualifica rivestita, ma questo non so proprio come
farlo.
UFFICIO
                     Qualifica 3         Qualifica 2         Qualifica 1
SETTORE 1         10                     12                     5
SETTORE 2         5                         6                     14
Spero che qualcuno possa fornirmi un aiuto di qualsiasi tipo o anche solo un
indirizzamento nell'help di access o, come forse credo, in quello di Excel.
Grazie.

 ha scritto nel messaggio
news:an7jfm$9e9$1...@serv1.albacom.net...

Nella sezione "piè di pagina report" inserisci le funzioni DCount,
DLookup,DSum, ecc. con le opportune sintassi (vedi la guida in linea aprendo
un modulo VB e premendo F1)
Ciao
--
Fabio Dalla Villa
Biella
nomec...@tiscali.it


Grazie per il consiglio, proverò quanto prima.

 Excel.
    Puoi fare tutto in Access con la "Creazione guidata query a campi
incrociati" (analoghe alle "tabelle pivot" di Excel).
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 --------
Grazie anche per il tuo consiglio. Proverò anche questa strada.

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

E' possibile convertire un file di access 1.0 in uno di access 2000 ?
Nicola

 Nicola
Io da ACCESS 2.0 ad Access 2000 ho faato tante modifiche.
Saluti
G.F.

 E' possibile convertire un file di access 1.0 in uno di access 2000 ?
No. L'ultima versione che puo convertire un file di 1.x è A97.
Debbi convertire il db prima con la versione A2, A95 o A97.
A00 puo solo convertire queste 3 versione.
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

A00 puo solo convertire queste 3 versione.
Per convertire un formato ad un altro c'e' bisogno di access o
esistono programmi apposta magari scaricabili da internet ?

 esistono programmi apposta magari scaricabili da internet ?
È solo possibile con Access.

Newsgroup: it.comp.appl.access
Titolo: Web server e Access

Salve sono nuovo e vorrei saper una cosa che onestamente
non ho visto in nessun post precedente e in tal caso se fosse invece già
postato
chiedo umilmente scusa con il desiderio che mi sia insegnato su come
ricercarli.
Vorrei sapere che differenza c'è avere delle pagine html create da access
direttamente e quelle
da un server web con codice asp che si collega a un file stesso di access.
In sostanza vorrei creare dei cataloghi usando solo access senza passare
ulteriormente in un server web.
Mi pare che la cosa non cambia più di tanto perchè comunque avrò sempre le
mie pagine html dinamiche e non statiche e
che comunque il catalogo momentaneamente sarà presente solo in cd.
Spero di essermi spiegato e grazie per le eventuali risposte colgliendo
l'occasione per augurare a tutti un Buon natale e Felice anno nuovo.
Moreno

 Moreno
Forse ti sei spiegato e io non ho capito ma se devi creare un catalogo che
possa essere interrogato (senza access), ti posso suggerire VB + MDB access;
visto che non ti servono pagine web...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:ZL_Eb.25707$0w.13...@news2.tin.it...


Newsgroup: it.comp.appl.access
Titolo: Dove trovo la proprietà locked (bloccato) del controllo?

Dove devo guardare per trovare la proprietą locked (bloccato) del controllo?
Grazie, Maria
P.S..: scusate per la domanda veramente da principiante!

 wrote in message
Y3g08.19193$aD.7...@twister2.libero.it...

Fai doppio clik sul controllo e ti si apre una piccola maschera delle
proprietą dell'oggetto
scelgi la scheda Dati e poi imposti abilitato e bloccato.
Bye Tosto73
Newsgroup: it.comp.appl.access
Titolo: aiuto per me é troppo complicato!!!!

Ciao sono nuovo, mi presento sono luk.
Ho un problema, ho un edicola  ed uso un db access fatto da me per
gestire
le entrate e le uscite delle riviste, avendo una ventina di clienti
fissi
che pagano a  fine mese vorrei calcolare in automatico giorno per giorno
il
totale inserendo solo il prezzo del quotidiano al suo arrivo. Ma ecco il
problema per ogni giorno i clienti vogliono un quantitativo diverso di
riviste:
es: lunedi 1 carlino e 1 gazzetta, martedi 2 carlino ed 3 gazzetta. Come
posso fare, qualcuno a qualche db che puo' fare al mio caso. premetto
che
con excel gia lo facevo ma mi piacerebbe usare solo access.
Grazie per l' aiuto e scusate per la poca chiarezza.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:8589c68c997ed61cbbb...@mygate.mailgate.org...

Non si capisce quale è la difficoltà che devi risolvere.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


wrote:

niente pappa pronta mi dispiace... dovresti dire se hai problemi
specifici quello che devi fare sembra abbastanza semplice
Saluti.
Emanuele.

 Emanuele.
Ok niente pappa pronta ma almeno un piccolo aiuto da cui possa partire.


Ok niente pappa pronta ma almeno un piccolo aiuto da cui possa partire.
ok tabella acquisti
idcliente, idrivista, quantità, giorno
ogni giorno specifichi----
fatto, 
per i totali puo usare dsum su una query
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Listbox vuota

Ciao a tutti
in una maschera ho inserito una listbox, vorrei fare in modo che se
questa listbox non contiene dati sull'evento click di un pulsante (es.
stampa) mi esca un messaggio.
Come posso fare?


hai prova cosi?
isnull(TuaListBox)
-- 
Ciao
Geppo 


Su Click:
If Me!NomeList.ListCount=0 Then
   MsgBox "MESSAGGIO"
End if
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


con isnull sia che la list sia vuota o piena sull'evento click del
pulsante esce il messaggio.


Ho provato anche con "listCount", su listbox vuota non mi da alcun
messaggio

 messaggio
Quando premi CLICK del Butto se la List č vuota usando ListCount viene
regolarmente intercettato
se cosě non č stai sbagliando qualche cosa...!
Se invece ti aspetti che ci sia un'evento per ListBox Vuota allora ti
aspetti una cosa non fattibile...!
Devi individuare un'evento nel quale effettuare il controllo ListCount...
nella fattispecie era il Click del Button...!!!!
Che devi fare...?
Spiegati meglio....



Prova con:
If Me!NomeList.ListCount= 1 Then
se funge non chiedermi come mai. :-)
-- 
Ciao
Geppo

 Geppo
Evitiamo di dare indicazioni senza NESSUN senso logico e funzionale...!
Se la ListBox contiene 1 Item che succede...?
Deve funzionare con il confronto a ZERO perchè l'ho provato e funziona,
tutte le altre cose che sono state proposte
non sono nemmeno da prendere in considerazione.


 non sono nemmeno da prendere in considerazione.
Sicuramente.
Grazie
-- 
Ciao
Geppo 

 Sicuramente.
Scusami se insisto ma cerco di capire.
Allora, ho notato che  se la proprietà "Tipo origine Riga" è impostata a 
"Tabella/query" restituisce sempre 1, mentre restituisce 0 con "Elenco 
Valori" ed "Elenco Campi".
-- 
Ciao
Geppo

 Grazie
E' un bug che avevo riscontrato anni fa preparando un esempio per il
sitocomune.
A volte nel conteggio degli elementi selezionati viene inclusa anche la
riga di intestazione, per esempio se selezioni con un ciclo tutti gli
elementi della listbox e poi con un altro ciclo li deselezioni tutti, il
conteggio dara' 1 e non zero come ci si aspetta.
Questo in A97 e A2000, non so se nelle versioni successive sia stato
corretto.
In A2000 si puň bypassare il problema eliminando la riga di intestazione e
sostituendola con delle etichette poste subito sopra la listbox.
In A97 anche eliminando la riga di intestazione il problema rimane.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Valori tra sottomaschera

Salve, avrei un problema, dovrei mettere il valore di una casella di testo
che ha come origine =somma(superficie)e sta nella sottomaschera Terreni, e
quindi inserire questo valore nella casella di testo Totale della maschera
Comuni...


wrote:

come origine record della casella Totale metti
=[forms]![comuni]![terreni]![nomecaselladitesto]
dovrebbe andare..
Ciao Emanuele
Newsgroup: it.comp.appl.access
Titolo: per oscar metelli

Ho scritto come Laura Cerponi (ero collegato come mia moglie). Non capisco
cosa intendi per controllare i  riferimenti alle librerie. Da un file MDE
come faccio a vederli dopo aver installato con il runtime? Il mio MDE non ha
più nessuno dei comandi della barra strumenti standard e comunque con il
runtime anche lasciando la barra standard non vedi i comandi standard e non
vedi il codice e quinid non puoi accedere all'ambiente di sviluppo.
Grazie.

vedi il codice e quinid non puoi accedere all'ambiente di sviluppo.
Se per te è lo stesso ti aiuto io, crea in un modulo globale una funzione del tipo:
' Elenca le librerie utilizzate dall'applicazione e aiuta nella ricerca
  ' di riferimenti mancanti.
  Dim Legenda As String, Cref As Byte
  Legenda = "Visual Basic For Application              (VBA332.DLL)" _
  & Chr$(13) & "Microsoft Access 8.0 Object Library  (MSACC8.OLB)" _
  & Chr$(13) & "Microsoft DAO 3.5 Object Library      (DAO35.DLL)" _
  & Chr$(13) & "Microsoft Office 8.0 Object Library    (MSO97.DLL)"
  For Cref = 1 To Application.References.Count
        MsgBox Legenda & Chr$(13) & Chr$(13) & Chr$(13) & _
        (Application.References.Item(Cref).FullPath & ": Saltato?  -->  " &
Application.References.Item(Cref).IsBroken), vbInformation, "Riferimenti"
  Next
Ho creato una legendina dei riferimenti corretti e utilizzato un pezzo di codice  da un'idea di
Paolo Holzl (spero vada bene come lo scrivo).
Ti consiglio di richiamare la funzione con una combinazione di tasti da AutoKeys, nel caso tu voglia
capire quale libreria non è al posto giusto.
Ciao, warp

Newsgroup: it.comp.appl.access
Titolo: If con variabile data comlessa

Su caricamento maschera, avrei bisogno di gestire il seguente evento:
se la data di sistema è compresa tra data fine trimestre -5 e data
fine trimestre, restituisci messaggio di avviso.
Ovviamente l'istruzione deve funzionare per qualsiasi trimestre di
qualsiasi anno e, ovviamente, grazie mille a chi vorrà perdere un po'
di tempo a rispondermi.
Michele



La fine del trimestre la trovi con
DateSerial(Year(date), ((Int((Month(date) - 1) / 3)) + 1) * 3 + 1, 0)
Il resto vien da se'...
cia'
Max

Newsgroup: it.comp.appl.access
Titolo: Evento Su timer

Se non si agisce su una certa maschera (evento mousemove)
questa dopo un pň si chiude da sola (evento timer)
Come posso scriverlo in codice VBA?
Grazie ancora
--
Fabrizio Domiziani
dom...@tin.it

 Fabrizio Domiziani
Apri il DB Soluzioni che trovi nella cartella
C:\Programmi\Microsoft Office\Office\Esempi
insieme a Northwind.
Seleziona la Categoria di esempi "Generazione di un'interfaccia di tipo
Microsoft Window" quindi l'esempio "Creazione di una maschera di avvio",
nell'Help che ti comparirà ci trovi due Routin evento (una SuApertura ed una
SuTimer) che potrebbero fare al caso tuo.
ciao, Roberto
Newsgroup: it.comp.appl.access
Titolo: riconoscimento vocale, qualcosa di serio per access o alto mare?

riconoscimento vocale, qualcosa di serio per access "magari in italiano" o 
siamo ancora in alto mare?
 
Grazie a tutti. 
 


Cerca in questo News Simba... magari qualche cosa trovi...
 
"Per i più vecchi... occhio a quello che dite... ;-)"
 
@Alex

@Alex
 
Cos'� una fossa dei Leoni? :O)

Newsgroup: it.comp.appl.access
Titolo: estrazione numeri campo testo

Dovrei estrarre dei numeri in un campo testo filtrato, ho provato con la 
funzione mid, ma vista la natura dei dati restituisce anche caratteri non 
voluti.
Come posso procedere grazie ?
Nella query per filtrare ho usato il criterio Like "*aaaa*" e un campo 
calcolato Ris: mid ([campo1];27;3), ma poichè i dati sono nel formato 
<aaaa>12</aaaa>, <aaaa>140</aaaa>, ...
avrò come risultato 12<, 140, ...
SELECT Document.ID, Document.Campo1, Mid([campo1],27,3) AS Ris, *
FROM Document
WHERE (((Document.Campo1) Like "*aaaa*"));
grazie

 ha scritto nel messaggio 
news:70cAe.54130$h5.23...@news3.tin.it...

Su 
www.sitocomune.com
 c'è proprio una mia funzione che estrae i soli numeri 
da un testo.
Ciao, Carlo 


Funziona perfettamente, e risponde all'esigenza.
Grazie
PS avrei anche altri dati, potrei usarla con numeri decimali in formato es 
65.507080, 1001.350342... sempre su campo testo e avere restituito anche il 
punto ?

 ha scritto nel messaggio 
news:LwcAe.54249$h5.23...@news3.tin.it...

Prova a postare la stringa intera da dove vuoi estrarrae i numeri compresi 
di decimali e vedrò cosa posso fare.
Ciao, Carlo 

 wrote in message 
news:2EcAe.141142$75.60...@news4.tin.it...

E sempre simile a prima :  <bbbbbbbbbbbbbb>70.313477</bbbbbbbbbbbbbb>, 
<bbbbbbbbbbbbbb>958.571777</bbbbbbbbbbbbbb>, ....
ovvero la cifra è sempre al cento di un testo racchiuso tra frecce.
ciao 

 ciao
La stessa funzione modificata fa quello che cerchi ma è necessario passargli 
solo un gruppo alla volta. Per esempio:
EstraiNumeri("<bbbbbbbbbbbbbb>70.313477</bbbbbbbbbbbbbb>,")
Il risultato sarà una stringa.
Public Function EstraiNumeri(STR As String) As String
   Dim Numero As String, NCompleto As String
   Dim Pos As Integer, i As Integer, Lung As Integer
   Lung = Len(STR)
   For i = 1 To Lung
      Pos = i
      If IsNumeric(Mid(STR, i, 1)) Or Mid(STR, i, 1) = "." Then
         Numero = Mid(STR, i, 1)
         NCompleto = NCompleto & Numero
      End If
   Next i
   EstraiNumeri = NCompleto
End Function
Ciao, Carlo 

 wrote in message 
news:d2dAe.141252$75.61...@news4.tin.it...

Va bene lo stesso perchè va sempre filtrata e la converto in numero con 
Val().
grazie
Newsgroup: it.comp.appl.access
Titolo: Stampa unione "particolare"

Una buona giornata a tutti.
Avrei bisogno di creare una stampa unione un po' particolare e cioè vorrei 
che l'origine dati non fosse una tabella ma una maschera che a sua volta è 
basata su una query....
Addirittura inserire il valore del totale calcolato nel piè di pagina della 
maschera e il valore presente nell'intestazione della stessa in campi 
appositi nel documento Word......
Impossibile??
-- 
Giorgia Vitale
VITALE TRASPORTI
Via Torino, 173
10099 SAN MAURO 
T.SE
Tel.: 
+39 011.8220542
 
+39 011.8017194
Fax: 
+39 011.8220970

 Fax: 
+39 011.8220970
Possibilissimo.
Ti suggerisco di fare una ricerca nei post precedenti con oggetto:
word e database.
Ci sono molti esempi che illustrano l'automazione access word e
l'utilizzo dei bookmark.
In piu ti segnalo un bellissimo articolo di marco Pizzamiglio, detto
Namor, famoso produttore di grappa e ottimo sviluppatore.
Alla cisa uno ci presentò un esempio di automazione che fa proprio
quello che tu cerchi.
Lo trovi nel materiale della cisa uno al sito: 
www.donkarl.com/it
sezione cisa.
Se non trovi o hai problemi facci sapere.
Saluti
m

 Fax: 
+39 011.8220970
Possibilissimo.
Ti suggerisco di fare una ricerca nei post precedenti con oggetto:
word e database.
Ci sono molti esempi che illustrano l'automazione access word e
l'utilizzo dei bookmark.
In piu ti segnalo un bellissimo articolo di marco Pizzamiglio, detto
Namor, famoso produttore di grappa e ottimo sviluppatore.
Alla cisa uno ci presentņ un esempio di automazione che fa proprio
quello che tu cerchi.
Lo trovi nel materiale della cisa uno al sito: 
www.donkarl.com/it
sezione cisa.
Se non trovi o hai problemi facci sapere.
Saluti
m
grazie mille, parto subito con la ricerca!
Giņ

Newsgroup: it.comp.appl.access
Titolo: Chi mi aiuta ?

Ho la seguente esigenza: all'avvio di un DB Access devo eseguire una
funzione solo se altri utenti non hanno già aperto il DataBase. Tramite
quali comandi Visual Basic posso effettuare tale controllo ? Grazie mille.

 quali comandi Visual Basic posso effettuare tale controllo ? Grazie mille.
Oltre al fatto che è sempre bene indicare nell'oggetto del messaggio una
"traccia" del problema, tanto per non avere una lista di: "Aiuto,
Aiutatemi!!!, Sono un principiante!! etc. etc." e anche perché chi deve
cercare delle informazioni così non è obbligato a leggersi il contenuto del
messaggio se non pertinente con il suo problema; non ho capito cosa vuoi
fare.
Se devi eseguire una funzione all'apertura dell'mdb puoi crearti una macro
AutoExec che ti esegue tutte le operazioni che vuoi...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Selezionare i campi da stampare in un report

Scusate la mia superficialità, chiedo se sia possibile selezionare i campi
da includere in un report basato su una querry prima di inviarlo alla
stampante, magari con una maschera opzioni. Grazie

 Grazie
Prego
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: routin su controlli maschera

faccio questo controllo per chiudere la maschera solo se i controlli non
sono nulli ecc..
Private Sub Comando8_Click()
Dim ctl As Control
For Each ctl In Me.Controls
  If ctl.ControlType = acTextBox Then
  If IsNull(ctl) Or ctl = "" Then
  MsgBox "inserire dati"
  ctl.SetFocus
  Exit For
    End If
  End If
   Next ctl
End Sub
il mio problema è che se i controlli sono ok dovrei chiudere la maschera ma
non so dove posizionare
docmd.close


puoi fare una cosa "sporca" 
Private Sub Comando8_Click()
Dim ctl As Control
 For Each ctl In Me.Controls
   If ctl.ControlType = acTextBox Then
	   If IsNull(ctl) Or ctl = "" Then
	   MsgBox "inserire dati"
	   ctl.SetFocus
----->	   Exit Sub
     End If
   End If
Next ctl
 docmd.close <------
 End Sub
o una un po' piu' pulita
Private Sub Comando8_Click()
dim bCk as boolean   <---------
bCk = true
Dim ctl As Control
 For Each ctl In Me.Controls
   If ctl.ControlType = acTextBox Then
	   If IsNull(ctl) Or ctl = "" Then
	   MsgBox "inserire dati"
	   ctl.SetFocus
---->      bCk = False
	   Exit for
     End If
   End If
Next ctl
if bCk then  docmd.close <------
 End Sub
--
a.cara 
Togli qualcosa dall'email

Newsgroup: it.comp.appl.access
Titolo: contenuto del campo di una maschera

Ciao a tutti, ho il seguente problema...
Ho due tabelle
Tabella 1:
IDDirezione
Direzione
Tabella 2:
IDSigla
Sigla
Poi ho una maschera con due caselle combinate che pescano i dati dalle
due tabelle, visualizzando nell'elenco a discesa i campi "Direzione" e
"Sigla" ma associando poi il valore del campo IDDirezione e IDSigla
quello che vorrei fare io e non riesco a fare è il seguente:
Ho inserito una casella di testo nella maschera e un pulsante, dopo
aver scelto i valori delle due precedenti caselle combinate vorrei che
cliccando sul pulsante mi si assegni alla casella di testo un valore
stringa ottenuto dall'unione dei valori visualizzati ( e non i valori
associati) nelle due precedenti caselle combinate.
In pratica dovrebbe essere un valore cosi formato "Direzione/Sigla"
incluso il segno "/"
Il problema è che se io assegno alla proprietà value della casella di
testo la proprietà value della casella combinata, mi assegna un valore
numerico (il campo IDDirezione o IDSigla) mentre io vorrei fargli
assegnare il valore stringa visualizzato.
Inoltre come faccio a comporre questo valore???
Ho provato con una cosa del genere ma non funziona:
Me!casellatesto.value = Me!combinata1.value + "/" +
Me!combinata2.value
Quindi i problemi sono due, come assegnare il valore visualizzato e
non quello associato e come combinare i due valori e la stringa "/"
per creare una nuova stringa da assegnare al Value della casella di
testo.
Grazie

 ha scritto nel messaggio
news:ccd90541.05042...@posting.google.com...

Prova così:
Me!casellatesto = Me!combinata1.Column(1) _
& "/" & Me!combinata2.Column(1)
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Report in base a scelta campo

Ho il seguente problema
la tabella AS composta dai campi: ID_AS, Num_AS, Data, ecc.
In questa tabella é determinante il Num_AS il cui valore posso
facilmente memorizzare in una variabile che chiamo POS
Vorrei, una volta effettuata la scelta del record tramite una combo,
aprire il report visualizzando SOLO il record precedentemente
selezionato (in pratica il report deve aprire il record contenente
Num_AS = POS).
Ho fatto diversi tentativi, ma senza esito. Qualcuno é in grado di
risolvere il quesito ?
Grazie a quanti mi risponderanno.
Gianni

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

> Gianni
Ho risolto, grazie.
Gianni

 Gianni
Anche tu mattiniero!
Ciao, Carlo 

 ha scritto:

Beh, ieri era tardi. A volte mi capita di levarmi molto prima,
purtroppo.
Ciao

Newsgroup: it.comp.appl.access
Titolo: DELETE in query sql

Ciao!Una domanda: in una query SQL la funzione DELETE non prevede che possa
cancellare da una tabella secondo una condizione ben precisa, es.
DELETE tabella1.*
FROM tabella1,tabella2
WHERE tabella1.nome = tabella2.nome;
Vero?Mi dà "Impossibile eliminare dalle tabelle specificate"!Grazie 1000

 ha scritto nel messaggio
news:cnt288$jif$1...@balena.cs.interbusiness.it...

Premesso che la stringa SQL da te posta non è assolutamente corretta
non si capisce se devi eliminare la Tabella o il contenuto in base un
Criterio.
Vedi in ogni caso l'istruzione SQL "DROP" applicabile alle tabelle.
Nel caso di eliminazione di Records la cosa cambia, ma non ho capito
cosa devi fare...!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:cnt288$jif$1...@balena.cs.interbusiness.it...

Ciao AA,
prova con una codifica più digeribile per Access :-)
-----------
DELETE *
FROM tabella1
WHERE Nome In (SELECT Nome FROM Tabella2)
-----------
Ciao Giorgio


Ciao Alex,
non per criticare ma solo per dare un contributo informativo :-)
Questa Query
---------
 DELETE tabella1
 FROM tabella1,tabella2
 WHERE tabella1.nome = tabella2.nome;
---------
e Questa
--------
DELETE tabella1
FROM tabella1
  INNER JOIN
     tabella2 ON Tabella1.Nome=Tabella2.Nome
--------
sono identiche e con altri motori SQL funzionano, peccato che Access non le
digerisce :(
Ciao Giorgio

 Ciao Giorgio
Se leggi il mio Post capisci che ho inteso volesse eliminare una Tabella,
tant'è
che ho suggerito DROP.
In ogni caso non ero a conoscenza dell'equivalenza delle 2 usando di rado il
linguaggio
SQL di altri motori, quindi ti ringrazio.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Design db - data/orario prenotazione

Buonasera.
Volendo gestire prenotazioni relavite a prestazioni di vario genere,
in generale in tutti i casi in cui il lavoro viene prenotato su una
fascia oraria precisa (es 15.00 -15.30, di una data determinata di 
calendario) secondo voi è meglio, in tabella prenotazioni:
 
A) SOLUZIONE CON DUE CAMPI
 
  campo DataPren 23/09/11   tipo data/ora     formato data in cifre
  campo OraPren  09.30      tipo data/ora     formato ora breve 24h
 
B) SOLUZIONE CON UN SOLO CAMPO
 
campo DataOraPren 23/09/11 09.30.00  tipo data/ora  formato ora generica
 
Realizzazione con Access 2010.
 
Quali sono vantaggi/svantaggi?
O, forse, ci sono anche altre strade, grazie a chi vorrà intervenire.
 
Saluti

Il 20/09/11 16.59, Pietro66 ha scritto:

In effetti mi ci vuole, l'OraInizioLavoro, e l'OraFineLavoro, la 
prestazione non sarà mai a cavallo di 2 giorni, quindi nella A
3 campi e nella B 2 campi, l'entità (tabella) Prestazioni con
attributo + corretto DataPrestazione, DataPren il timestamp
della creazione della prenotazione

Newsgroup: it.comp.appl.access
Titolo: Evento chiusura access ???? AIUTO

Ciao a tutti,
mi sono un po' picchiata ma non riesco a trovare la soluzione. Qualcuno di
voi sa dirmi se è possibile associare un'azione all'evento chiusura di
access dalla barra dei menu (File -> Esci)?

 ha scritto nel messaggio
news:OmIg8.65517$fa5.2...@twister2.libero.it...

Non puoi, che io sappia.
Ma puoi aprirti una maschera, anche nascosta, e controllare l'evento
chiusura di questa.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:SzJg8.62006$v7.21...@twister1.libero.it...


 Silvio
E se io disabilito i pulsanti di chiusura nativi di ACCESS e associo
ad un Pulsante nel Menů personalizzato una Funzione personalizzata
nella quale faccio quello che serve e alla Fine CHIUDO.....!!!
E' solo un'idea.....!
Ciao.
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 nella quale faccio quello che serve e alla Fine CHIUDO.....!!!
Ci manca PAPPAPPERO...
Ehehehe
Antonio

 Antonio
E' voluta perchč ero sicuro lo mettessi tu....!!!
Non voleva essere una cosa del genere, era solo un'idea
per aggirare l'ostacolo.
PAPPAPPERO....!!!
Scrivi dopo il Quoting....!
Ciao Antonio.
Alex.

Newsgroup: it.comp.appl.access
Titolo: somma su campi di altra tabella all'interno di query

salve a tutto l'ng. Vi espongo il problema
ho 2 tabelle :
tabella1
-----------
cntr  (campo chiave)
selezione  (boolean)
descrizione
...
tabella2
-----------
cntr
peso_lordo
peso_netto
....
la tabella 1 è collegata con la 2 da una relazione uno a molti. Ho fatto una
query di selezione (su cui si basa una maschera) che mi dovrebbe mostrare i
campo selezione e descrizione, nonchè la somma dei campi peso_lordo e
peso_netto, raggruppati per il campo cntr. Non ho potuto usare la funzione
"somma" nella riga "Formula:"della query perchè, pur producendomi il
risultato voluto, non crea un recordset aggiornabile (ed io ne ho bisogno
per selezionare dalla maschera il campo "selezione". Il problema è che mi
sono piantato  con la somma dei valori dei campi della tabella2. Ho provato
ad inserire nella query come campo calcolato la funzione
Dsum("peso_lordo";"tabella2";"cntr= #" & [tabella2].[cntr] & "#")
ma quando eseguo la query il campo visualizza #errore (senza altra
spiegazione), idem se inserisco nell'origine del controllo della maschera la
stessa formula (senza contare i tentativi fatti per rispondere ad errori di
sintassi inesistenti che mi dava access).
Insomma, pensavo che fosse una stupidaggine ricavare questo dato, e credo
che mi manchi qualche "pezzo" di conoscenza teorica, oltre al fatto che ogni
tanto la sintassi di una formula o comando scritto in VBA ed inserito nelle
origini dati di un controllo o nelle righe di una query risulta diversa e
perdo tempo a modificarla...
Se c'è qualcuno disposto a darmi una dritta... grazie....

 wrote in message
HLO79.75762$lu5.2...@twister1.libero.it...

Prova con una query di selezione che abbia il seguente codice SQL:
SELECT Tabella1.*, Val(DSum("peso_lordo","tabella2","cntr=" & [cntr])) AS
SommaDiPeso_Lordo, Val(DSum("peso_netto","tabella2","cntr=" & [cntr])) AS
SommaDiPeso_Netto
FROM Tabella1
ORDER BY Tabella1.cntr;
In una funzione DSum il carattere # si usa solamente quando si opera con
campi di tipo Data/ora.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


ci provo senz'azltro, grazie!
Newsgroup: it.comp.appl.access
Titolo: sapere il numero di elementi di un array utilizzando comando split

l'istruzione qui sotto dovrebbe dividere il campo nome in più array in base 
al contenuto di rs!nome
 
        Dim TestArray() As String
        TestArray() = Split(rs!Nome, " ")
 
 
al momento in nome ho:
mario rossi
stefania benedetti
paolo antonini
giulia de stefani piva
 
**************
il mio problema è
**************
come posso sapere il numero di array 2 di solito ma 4 nel caso di giulia 
ultimo nome della lista
 
in quanto dovrei eseguire quanto segue
rs!nome=testarray(0)
rs!cognome=testarray(1)
 
ma nel caso di giulia
 
rs!cognome=testarray(1) & " " & testarray(2) & " " & testarray(3)
 
 
mi sapete aiutare? 
 

 ...
 
UBound(TestArray)
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

Karl
 
 
 
Grandissimi grazie a te e a tutti gli altri per la disponibilità e 
collaborazione.

Newsgroup: it.comp.appl.access
Titolo: controllo caratteri no ascii

Salve a tutti vorrei sapere un metodo per individuare se in campo
(descrizione) sono stati inseriti caratteri no ascii .
mi sono creato uina query cosi ma non so se sia corretta:
SELECT *
FROM t1
WHERE (((t1.descrizione) Like "*[^ -~]*"));
Grazie a tutti x l'aiuto

 ha scritto nel messaggio 
news:a4cd2c6d-4596-45c3...@j4g2000yqe.googlegroups.com...

cosa intendi per no ascii? i caratteri inseriti da te sono tutti ascii (42, 
91, 94, 32, 126, 93)
ciao
Max 

 Max
Si scusami purtroppo per la fretta mi sono espresso male
cerco di spiegarmi quando lancio uan query abbastanza semplice (una
select per intenderci quindu visualizzo i dati ) il sistema delle
volte si incavola analizzando un po il tutto , mi sono reso conto che
spesso chi opera nel sistema per fretta o x altri motivi inserisce
codice un po anomali tipo il quadrato il segno di omega ecc ecc , ora
nella query questi simboli non sono graditi a quanto pare e volevo
vedere e sapere se c'era la pssibilita di identificare questi
caratteri come dire non molto convenzionali o quotidiani prima di
eseguire la query.
Spero di essermi spiegato e ringrazio sempre x la collaborazione

 ha scritto nel messaggio 
news:036d7fdd-d002-4b36...@m16g2000yqc.googlegroups.com...

il tuo metodo funziona, dovresti solo identificare su 180-190 caratteri 
(255 -26 maiusc - 26 minusc + 10 num + una decina di altri caretteri) 
possibili quelli da inserire...
oppure proprio tramite l'asc del carattere fare un ciclo su ogni parola
ciao
max 

 ha scritto nel messaggionews:036d7fdd-d002-4b36...@m16g2000yqc.googlegroups.com...

Na parola hehehehe
Newsgroup: it.comp.appl.access
Titolo: DB con percorso di Immagini

Ciao n.g.
Ho delle immagini (bmp) e un database di Access che le deve contenere.
Il problema è che non voglio incorporarle nel DB (perchè diventerebbe troppo
pesante), ma nel DB voglio caricare soltanto il percorso del file.
A questo punto in una maschera dove metto un controllo Image devo visualizzarle
le immagini.
Al click su un bottone, ho provato con queste istruzioni:
Private Sub Comando2_Click()
Dim ccc As String
ccc = "C:\dati\SN00004.bmp"
Immagine1.Picture = LoadPicture(ccc)
End Sub
Ma non c'è verso!!!
Qualcuno mi aiuterebbe?
Grazie
Ciao
-- 
Posted from 
ppp-62-11-168-87.dialup.tiscali.it
 [62.11.168.87] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 End Sub
Quello che fai funziona in VB5/VB6, con Access prova cosě:
Private Sub Comando2_Click()
 Dim ccc As String
 ccc = "C:\dati\SN00004.bmp"
 Immagine1.Picture = ccc
End Sub
@Alex
-- 
Posted from  [146.133.1.30] 


 wrote in message
news:cd4107336ab5963d222...@mygate.mailgate.org...


 Ciao
Su
http://www.microsoft.com/intlkb/italy/articles/I13/6/15.htm
trovi tutte le spiegazioni per inserire immagini in una maschera immettendo
solo il percorso del file in una tabella. Le istruzioni valgono anche per
Access 2000
Newsgroup: it.comp.appl.access
Titolo: MEMORIA IN ACCES 97

Scusate l'ignoranza, ho realizzato una maschera in access 97 per tirarmi
fuori una serie di record basandomi su delle combinazioni di nomi...
Fino a qua tutto ok...
ho creato un bottone dove ho inserito una serie di for per permettere di ad
access di fare tutte le combinazioni del caso...
ma ogni tot query mi si pianta dandomi un'errore stupido tipo che si riempie
la memoria, premo debug poi F5 e riparte come se niente fosse..
per non parlare se eseguo delle macro dopo un po mi da l'errore: MEMORIA
ESAURITA...
come faccio ad ovviare a questi problemi cioe senza dover stare 3 giorni
davanti al pc premendo il tasto ogni volta che da errore?
devo inserire qualche stringa particolare per svuotare la memoria?!?!
PERFAVORE AIUTATEMI.....
scusate eventuali errori...
Grazie per l'attenzione...

come faccio ad ovviare a questi problemi cioe senza dover
stare 3 giorni
pesce bianco a volontà.
ciao 
MAssimiliano
--------------------------------
Inviato via 
http://usenet.iol.it
 

 pesce bianco a volontà.
... un po di memoria Virtuale in più, una bella reinstallata di office,
debuggare l'MDB, e se proprio non ti riesce, bhè le vacanze sono alle porte,
aspetta di rientrare e a mente fresca ridurrai la complessità delle
operazioni che il PRG deve compiere.
--
Maurizio75

 ha scritto nel messaggio
news:YZ8F8.72972$US3.1...@twister1.libero.it...

SI ok ma volevo sapere se c'è una qualche stringa di codice da inserire che
mi svuota la memoria..

No. Ma quanta mem. RAM hai?
--
Maurizio75

 ha scritto nel messaggio
news:xn9F8.73535$5k4.1...@twister2.libero.it...


 ha scritto nel messaggio
news:SsaF8.66734$zW3.9...@news1.tin.it...


 ha scritto nel messaggio
news:HN8F8.66467$zW3.9...@news1.tin.it...

Se hai immagini nelle maschere, devi eliminarle.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


??
scusa se la domanda ti sembra sciocca, ma quale problema ti richiede 1200
query tutte insieme?

 ha scritto nel messaggio
news:EjcF8.74989$5k4.1...@twister2.libero.it...



magari se posti il problema riusciamo a trovare una soluzione che non
richiede 300000 query...
ci sono un paio di modi per ridurre il numero di query necessarie per una
selezione complessa

 ha scritto nel messaggio
news:HRaF8.74433$5k4.1...@twister2.libero.it...

Newsgroup: it.comp.appl.access
Titolo: Stampa report per gruppi

Ciao a tutti,
ho creato un report " fatture",  seleziono il numero della fattura e
quindi stampo.
Ora vorrei poter stampare tutte le fatture di un cliente, senza
doverle cercare una ad una.
NB non voglio un riepilogo delle fatture, ma le fatture singolarmente.
Come posso fare .
Ciao grazie


Dipende come hai impostato il report e come lo filtri.
Se p.e. usi un criterio nel metodo OpenReport di VBA
puoi provare cosa succede se semplicemente usi un
criterio per il cliente invece della fattura.
Forse devi anche raggruppare il report per numero fattura,
impostare una intestazione gruppo e un'interruzione pagina
prima della sezione ecc.
In ogni caso è meglio impostare il report e solo stamparlo
una volta, invece di lanciare 50 volte la stampa.
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 


GRAZIEEE
davvero grazie tante!
mi hai risolto un problema che mi affliggeva da tanto
Ciao Karl
Newsgroup: it.comp.appl.access
Titolo: menu personalizzati.

Il problema e' il seguente; ho creato una maschera per inserire i dati
aziendali + logo.
Tale maschera si apre automaticamnte se alla partenza del programma non
esiste nessuna azienda configurata; possiede un menu' personalizzato con
opzione Inserisci per importare immagine Ole desiderata.
Il problema e' che se la ditta non esiste e non esiste il logo e' come se
l'ozione del menu' non esistesse.
Basta inserire nella tabella un immagine e tutto va aposto.
suggerimenti ???????????
grazie.


wrote:

inserisci un immagine standard da cambiare
Saluti.
Emanuele.

 ha scritto nel messaggio
news:s8b3hu8d3plsrb84k...@4ax.com...


 ha scritto nel messaggio
news:PukQ8.122370$g04....@tornado.fastwebnet.it...

ciao,
il controllo per l'apertura del form non farlo sull'esistenza del record ma
sul valore null del campo Intestazione, cosě il form iniziale con il tuo
logo cmq esiste ma il forrm si apre.
n.b next time prova a scrivere dopo la risposta degli altri, altrimenti si
incasina tutto.
facci sapere
MAssimiliano


Ho provato ma non me lo si fila neanche di striscio.
vi mando il codice cosi' come e' adesso cioe' con il controllo
sull'esistenza di record.
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
On Error GoTo Form_Open_Err
    ' Minimize the database window.
    ' DoCmd.SelectObject acForm, "Switchboard", True
    ' DoCmd.Maximize
    ' Make sure we have company information
    DoCmd.Hourglass False
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("cod_cli_cli")
   (ho provato con IF RST![NOMEDITTA]=NULL)
 If rst.RecordCount = 0 Then
      rst.AddNew
      rst![codclins] = Null
      rst.Update
      MsgBox "Prima di utilizzare questa applicazione è necessario immettere
il nome della società, l'indirizzo e le informazioni correlate."
   DoCmd.OpenForm "T_rif_ext", , , , , acDialog
    End If
    rst.Close
    dbs.Close
    ' Move to the switchboard page that is marked as the default.
    Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
    Me.FilterOn = True
Form_Open_Exit:
    Exit Sub
Form_Open_Err:
    MsgBox Err.Description
    Resume Form_Open_Exit
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
    Me.Caption = Nz(Me![ItemText], "")
    FillOptions
End Sub
GRAZIE E SCUSATE PER LA RISPOSTA IN RITARDO; HO AVUTO PROBLEMI CON UN
ACTIVEX ....WINSOCK....ADESSO FUNZIONA MA IL PORBLEMA FORSE SI RIPRESENTERA'
COPIANDO IL TUTTO SU ALTRO PC ....AVETE SUGGERIMENTI?????
Newsgroup: it.comp.appl.access
Titolo: creare relazioni da codice VBA

Buongiorno a tutti.
Vorrei risolvere il presente problema:
per creare una relazione da codice VBA uso il seguente codice:
 
 CurrentProject.Connection.Execute "ALTER TABLE Antiriciclaggio ADD 
CONSTRAINT Relation1 _
 FOREIGN KEY ([IDnominativo]) REFERENCES CLIENTI ([IDNominativo]) [ON UPDATE 
CASCADE] "
 
Vorrei poter ottenere il risultato di avere i segni di spunta anche su:
-Applica integrit� referenziale
-Aggiorna campi correlati a catena
-Elimina record correlati a catena
 
Quale codice devo integrare alla precedente istruzione ?
 
Grazie.
Saluti
Lucky
 
 

 Quale codice devo integrare alla precedente istruzione ?
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 

> su: -Applica integrità referenziale


> su: -Applica integrit� referenziale


 Quale codice devo integrare alla precedente istruzione ?
 
ï¿œ tutto spiegato qui:
http://msdn.microsoft.com/en-us/library/office/bb243835(v=office.12).aspx
 
 
Io perï¿œ uso questo segmento di codice
====================================================
NewRelName = "Rel_RegioniProvince_1"
Set NewRel = db.CreateRelation(NewRelName, MainTable, RelatedTable)
NewRel.Attributes = dbRelationUpdateCascade + dbRelationDeleteCascade
Set MainTable_MainField = NewRel.CreateField(MainTable_MainFieldName)
MainTable_MainField.ForeignName = RelatedTable_RelatedFieldName
NewRel.Fields.Append MainTable_MainField
db.Relations.Append NewRel
db.Relations.Refresh
====================================================
L'integritï¿œ referenziale viene inserita di default, si puï¿œ solo 
escludere.
 
Bruno