mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Assegnare una query pass-through da vb ad una maschera.

Ciao a tutti,
Qualcuno mi sa dire se è possibile assegnare una query pass-through da vb ad
una maschera o report, tramite il comando recordSource di VB, e senza dover
prima salvare la query come oggetto?
Se si, come devo fare?
Grazie mille.
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

 prima salvare la query come oggetto?
Ora non ricordo se con le passtrought ci siano problemi particolari, ma mi
sembra di no.
Indi ragion per cui:
Me.RecordSource="StringaSQL"
Sib
PS RecordSource e' una proprieta', non un comando.

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:JD2H9.30949$qF1.1...@news2.tin.it...

In realtà forse più che la STRINGASQL serve il Nome della
QRY_PASSTROUGH......!!
Io solitamente tengo una QRY_PT generica e modifico la proprietà SQL di
QueryDef relativa
alla QRY_PT.
La Form la lascio sempre assiociata alla stessa QRY_PT.
Risulta agevole e meno complesso.
Modifica STRINGA SQL
      Dim qdf as QueryDef
      Set qdf = CurrentDb.QueryDefs("myQry_PT")
      qdf.SQL = StrSQL
      qdf.Close
      Set qdf = Nothing
La Form come origine ha sempre "myQry_PT".
@Alex.

Grazie per l'interessamento, il problema è che avevo già adottato la tua
soluzione, però essendo un db condiviso ed usato da più persone
contemporaneamente, devo creare una query del tipo NomeQuery_NomeUtente,
questo fa si che creo una moltitudine di query.
Io volevo invece evitare di salvare la query, asegnandola alla proprietà
recordsource della maschera o report che mi visualizza i dati.
Cio è possibile?
Grazie, ciao.
p.s. questa riga
    Set qdf = CurrentDb.QueryDefs("myQry_PT")
va modificata in questo modo:
    Set qdf = CurrentDb.CreateQueryDefs("myQry_PT")


 Grazie, ciao.
MA NOOOOOOOOooooo...!
Dividi FE-BE e la QRY_PASSTROUGH la lasci sul FE(Client)....!
A questo punto ognuno usa la propria impostazione.......!!
Ciao @Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 QRY_PASSTROUGH......!!
cut
Intendi che una stringa puo' creare problemi?
Sib

 Sib
No, ma la STRINGA viene interpretata da JET,almeno così sapevo,
quindi non è PASS_TROUGTH, quindi + lenta.
Se ho preso un abbacchio, dimmelo che me lo rimangio.


 Se ho preso un abbacchio, dimmelo che me lo rimangio.
Non sono certo di poterlo affermare,
l'unica cosa che ho verificato e' che in un adp, le strighe sql inseirte
come recordsource sono interpretate come pt infatti l'esecuzione anche
tramite internet (con modem) risulta piuttosto performante se la sql e'
filtrata, quindi ne ho dedotto che con sqlserver anche le stringhe lavorano
nel modo atteso. non so pero' con odbc se le cose cambino.
Ciao
Sib
Newsgroup: it.comp.appl.access
Titolo: Query sulle date

Ho due tabelle:
1) Attività
Cerimonia    Alimento    Consumo    Data
2) Dispensa
Alimento    Scorte    Semestre
Le date sono complete (00/00/0000), le scorte sono semestrali (1° e 2°)
Vorrei realizzare una maschera che mi dia la quantità di un dato alimento in
dispensa in quel momento. Quindi ho pensato di creare una query che
prendesse da Cerimonia tutti i record in base al tipo di Alimenti e che
avessero la Data antecedente il 31/06 di quell'anno.. Fare la somma dei
records e sottrarre il risultato a Scorte di quel determinato Alimento.
Ok, ora viene il problema.. Come faccio a spiegare al pc cosa fare??
Rudy
(ps. perché è così facile creare le relazioni tra le tabelle, immaginare i
calcoli e le realizzare le maschere nella nostra testa.. E poi è così
dannatamente difficile spiegare al pc cosa deve fare??)

 Ok, ora viene il problema.. Come faccio a spiegare al pc cosa fare??
nella tabella dispensa manca l'anno, quindi diamo per scontato che nella
tabella attività non ci sia più di un anno.
Crea una query che somma il consumo degli alimenti per il primo semestre
----
SELECT Alimento,
       Sum(Consumo) AS TotConsumo,
       1 AS Semestre
From Attività
Where Month(Data)<7
Group By Alimento
----
la salvi, crea un'altra query, aggiungi la tabella Dispensa, metti in left
join la query appena creata, collega i campi semestre e Alimenti e fai la
sottrazione per avere il risultato
----
Rimanenza: Scorte-Nz(TotConsumo;0)
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

 Rimanenza: Scorte-Nz(TotConsumo;0)
[/CUT]
grazie per la risposta e.. tho', un omonimo... huahahahahahaha
A costo di sembrare imbranato (sono poco esperto di access) dove devo
mettere questi comandi?
Io so usare poco le query di access..
Rudy

 Io so usare poco le query di access..
allora bisogna imparare altrimenti ci fai poco con Access. :-)
Cerca nel manuale la parola Query, e guarda anche il Db di esempio
NorthWind.
Per la query che ti ho suggerito fai così.
Crea una nuova query, inserisci la tabella Attività, Premi il pulsante
Totali (quello con il la M sdraiata)
Inserisci il campo Alimento con formula Raggruppamento, inserisci il campo
Consumo con formula Somma, Inserisci manualmente Semestre: 1 con formula
raggruppamento, inserisci manualmente Month(Data) con formula Dove e nei
criteri metti <7
Prova ad eseguirla, poi la salvi e procedi con la seconda query.


Newsgroup: it.comp.appl.access
Titolo: Backup a fine sessione lavoro

Buon Giorno Access97
Come faccio a fare automaticamente copia
di backup a fine sessione lavoro di un database...
(copia su una macchina in rete denominata PC09)
backup solo del BackEnd....Grazie

 ha scritto nel messaggio
news:iuaUb.189119$VW.76...@news3.tin.it...

In un punto del FE dove non ci sono aperte tabelle del BE fai un
shell("xcopy...
Antonio

 ha scritto nel messaggio
news:wanUb.15891$U4.5...@twister1.libero.it...

Cioe' Tanks
Luigi
Newsgroup: it.comp.appl.access
Titolo: REPORT: textbox a 1 o 2 righe quando le altre txt ne hanno 1 sola

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|intestazione gruppo
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|mioGruppo
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
TxtMioGruppo           altretxt       altretxt    |corpo
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
Stampa:
1o Raggruppamento   A1             A2
                    A5             A6
                    A33            A34
2o Raggruppamento   B1             B2
                    B3             B5
3o Raggruppamento   C3             C4
L'inghippo!!!                        <-------------
                    C5             C6
Vorrei che fosse:
3o Raggruppamento   C3             C4
Soluzione:          C5             C6
                    C7             C8
E' possibile???
Tenchiu'!!!

 Tenchiu'!!!
Si dice Denghiu!!!
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Si dice Denghiu!!!
Allora mille Denghiu!
:))
ps. a prop di report...
accidenti alla formattazione!
E pensare che ci ho speso mezzora x formattare questa email...
Mah...
Ps2 se non risp e' xe' ho da fare!
Ciaux!


> Info:  
www.donkarl.com/it
-- 


Newsgroup: it.comp.appl.access
Titolo: Errore 2501 su apertura form con filtro

Con la seguente istruzione:
Private Sub IdRec_DblClick(Cancel As Integer)
     DoCmd.OpenForm "F300-GestionePratica", , , "IdPratica=" &
Me.IdPratica
End Sub
Si dovrebbe aprire la maschera continua  "F300-GestionePratica"
filtrata con il valore presente nel controllo da cui è stata lanciata
la routine.
Purtroppo l'azione non riesce e viene segnalato l'errore 2501 sul
tentativo di apertura maschera.
Premetto che non ci sono azioni preliminari all'apertura della
maschera tipo richieste di salvataggi, conferme varie o inserimento
parametri da query.
Ho inoltre constatato che impostando la maschera in modalità
immissione dati, l'azione OpenForm riesce ma, ovviamente, il filtro
non può essere applicato.
Anche eliminando il filtro e limitando l'istruzione alla semplice
apertura della maschera, la routine funziona anche non in modalità
immissione dati.
Qualcuno sa aiutarmi?
Grazie.
Michele

Il campo IdPratica è di tipo Testo oppure è un Counter o altro...?
@Alex

E' di tipo testo.
Michele.

Allora l'errore è proprio nella formattazione, essendo di tipo testo
prova ad usare questo:
DoCmd.OpenForm "F300-GestionePratica", , , "IdPratica=" &
chr(34) & Me.IdPratica & chr(34)
ciao
@Alex

E' di tipo testo.
Michele

Hai letto la risposta...?
@Alex

chr(34) & Me.IdPratica & chr(34)
OK funziona! Scusa il ritardo nella risposta ma mi sono dovuto
allontanare.
Grazie mille.
Michele
 >Hai letto la risposta...?
Si, si è trattato di un ivio involontario.
Newsgroup: it.comp.appl.access
Titolo: *** ATTENZIONE! *** Access, Euro ed arrotondamenti.

Scusate se richiamo la vostra attenzione in un modo cosě brutale. Ma mi sono
accorto di una cosa molto brutta. Aprite la finestra di debug di Access
(provato con 2.0 e 2000) e digitate la parte a sinistra dell'uguale. I
risultati sono quelli che vedete a destra.
?int((1.9+0.1))=1 !!
?int((2.9+0.1))=2 !!
?int((3.9+0.1))=3 !!
?int((4.9+0.1))=5
?int((9.9+0.1))=10
Modi per evitare il problema:
?int(cdbl(1.9+0.1))
Oppure:
a=1.9+0.1
?int(a)
L'ho scoperto testando la mia routine di arrotondamento:
Function Round (Importo, DecimaliRichiesti As Integer)
    ' 17/11/2001 - Gionata Canova
    ' Arrotonda ai decimali richiesti (MAX 14)
    ' NB: il Tipo valuta tiene fino a 4 decimali!
    If IsNull(Importo) Then
        Round = Null
    Else
        Dim Factor As Double
        If DecimaliRichiesti < 0 Or DecimaliRichiesti > 14 Then
            MsgBox "I decimali richiesti non sono validi." & CRLF &
"Annotare le operazioni svolte" & CRLF & "e contattare l'assistenza.", 48,
"Modulo Euro"
        End If
        Factor = (10 ^ (DecimaliRichiesti))
        ' CDbl: bug: ?int((1.9+0.1))=1 !!
        Round = Int(CDbl(Importo * Factor + .5)) / Factor
    End If
End Function
--
Cordiali saluti,
Jonathan Canova
www.aladinoinformatica.com

 End Function
E per la 2489. volta:
I funzioni Int, Fix, CDbl, Format, Round (questo di VBA 6.x) ecc. ecc.
usato cosě semplice non sono esatto in senso di arrotondamento
commerciale. p.e. il tuo
?Round(1.025,2)
1,02
?Roundq(-1.045,2)
-1,04
Vedi la funzione per l'arrotondamento al 
http://www.sitocomune.com
sezione General.
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 risultati sono quelli che vedete a destra.
Ti consiglio di usufruire della funzione di Karl Donaubauer publicata sul
Sito Comune.
Ciao, Stefano

 Sito Comune.
Grazie, lo avevo già fatto.
Cmq, è una cosa da avere presente, perchè l'INT() si usa in tanti ambiti...E
non sono neanche riuscito a trovare giustificazioni per cui chiamando la mia
funzione Round() (Access 2) da query o da codice dia due risultati DIVERSI
sugli stessi numeri... :-(


 sugli stessi numeri... :-(
Il problema si verifica anche con Access > 2.0?
E che fa se scrivi Round(CDblb())?
Purtroppo per avere calcoli precisi con Access, spesso si deve forzare la
conversione a doppia precisione.
Ciao, Stefano

 sugli stessi numeri... :-(
Fossi in te cambierei nome alla funzione....Round() esiste gia' in VBScript,
un domani potresti avere dei probelmmi.
Salui.
Luciano

 ?int((1.9+0.1))=1 !!
Sě, si tratta di un errore di arrotondamento sulla 16^ cifra decimale dovuta
alla conversione binario/decimale.
Per ovviare
?int((1.9+0.1000000000000001)) = 2
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 sugli stessi numeri... :-(
Questi numeri hanno anche lo stesso tipo e sono essatamente
uguali anche alla x. decimale?
Di piu un avvertimento:
La tua funzione da risultati falsi con qualche numero che sono
difficile da rappresentare per VB(A) e dove un semplice Int, CDbl
Format ecc. non è sufficente p.e.
?Round(1.025,2)
 1,02
?Round(-1.045,2)
-1,04

Newsgroup: it.comp.appl.access
Titolo: visualizzare file

Ciao,
esiste il modo di visualizzare all'interno di una maschera la struttura ad
albero del disco fisso con cartelle e file (controlli ocx o API....) ?
Grazie
Alessandro



pcodice per aprire finestra selezione file
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
Public Function cmdlg_file()
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
 
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Immagini (*.wmf,*.bmp,*.jpg,*.tif)" & Chr(0) &
"*.wmf;*.bmp;*.jpg;*.tif" & Chr(0)
   OpenFile.hwndOwner = Application.hWndAccessApp
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
 
   If lReturn = 0 Then
      cmdlg_file = ""
 
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      Forms![tbl_Marca]![tbl_DESCRIZIONE Sottomaschera]!Immagine =
cmdlg_file
   End If
End Function|
Saluti.
Emanuele.

 ha scritto nel messaggio
news:tabnju0doc6qpak6p...@4ax.com...

Newsgroup: it.comp.appl.access
Titolo: Filtrare da data a data in una maschera continua

Buona domenica, come posso fare per filtrare da "data" a "data" in una 
maschera contina?
Grazie per l'aiuto


Usi come filtro o origine record una query salvata con criteri: between 
forms!TuaForm!DataDa and forms!TuaForm!DataA.
L'ideale sarebbe quella di passargli il risultato di due funzioni:
Public function MiaDataDal () as Date
MiaDataDal = format(forms!TuaForm!DataDa,"dd/mm/yyyy")
end function
Public function MiaDataAl () as Date
MiaDataAl = format(forms!TuaForm!DataA,"dd/mm/yyyy")
end function
Il criterio nella query diventa:
Between MiaDataDal and MiaDataAl
Nel codice: me.recordsource = "TuaQueryConCriteri"
Me.Requery
Possono esserci anche altre strade...io cosě mi trovo bene.
Ciao, Carlo 

 ha scritto nel messaggio 
news:e9vilc$be6$1...@area.cu.mi.it...

Grazie Carlo funziona alla perfezione.. mi sapresti dare una mano per 
cambiare la scritta di errore se sbaglio a inserire la data es: 31/04/2006 
insomma vorrei cambiare la scritta "E' stato inserito un valore non valido 
per il campo ecc...  ecc.. " in data errata
Garazie


Ci pensa Access se hai usato un controllo con il  formato data.
Nelle proprietą del campo hai anche la possibilitą di usare il messaggio di 
errore che preferisci.
Quello che invece devi controllore č che ci sia congruenza tra la DataDal 
con la DataAl nel senso che la seconda non puņ essere inferiore alla prima.
Questo lo potresti fare sia nel codice che applca la query con criteri sia 
dopo aggiornamento del secondo controllo:
If me.DataAl < me.DataDal then
Msgbox "Hai usato una data..."
me.DataAl.undo
End if
Ciao, Carlo 

 ha scritto nel messaggio 
news:ea04vl$1de$1...@area.cu.mi.it...

Carlo scusami nuovamente ma non risco a fare cio che mi dici.. o per meglio 
dire il confronto delle 2 date funziona perfettamente mentre se sbaglio a 
digitare la data in uno dei due campi mi esce sempre "E' stato inserito un 
valore non valido per il campo ecc...  ecc.. " invece del messaggio di 
errore che go scritto io...
Perche?


Prova così:
togli tutti i messaggi impostati nelle proprietà del controllo e lascia solo 
il formato data.
Poi crea una routine di evento a fronte dell'errore della maschera:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If 
Screen.ActiveControl.Name
 = "TuoNomeControllo" Then
If DataErr = 2113 Then
MsgBox "E' stata immessa una data non valida"
Me.TuoNomeControllo.Undo
Response = acDataErrContinue
End If
End If
End Sub
Fammi sapere.
Ciao, Carlo

 ha scritto nel messaggio 
news:ea7d6i$ccv$1...@area.cu.mi.it...

Grazie mille Carlo, funziona che è una meraviaglia
Newsgroup: it.comp.appl.access
Titolo: principiante richiesta informazioni

Salve a tutti
Vorrei sapere se è qualcosa in rete che possa spiegarmi a cosa serve MA
Access.
ciao Gianfranco


Sito Microsoft 
www.microsoft.com/italy
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

Grazie 1000
Gianfranco

Newsgroup: it.comp.appl.access
Titolo: controlli visibili solo da ordine di tabulazione

salve
 
ho una maschera che se in struttrura seleziono l'ordine di tabulazione
mi mostra alcuni controlli che non vedo.
 
come possso fare per visualizzarli?
Grazie 
 
 


Dalla maschera delle proprietà in altro hai una COMBO che elenca i
Controlli della Form... seleziona quello che ti interessa e viene
messo in evidenza.
 
@Alex

 Grazie
 
Dalla maschera delle proprietą in altro hai una COMBO che elenca i
Controlli della Form... seleziona quello che ti interessa e viene
messo in evidenza.
 
@Alex
 
 
volevo aggiungere
perchč ho errore (uso non valido del ! o delle parentesi ) in questa prima 
riga codice?
If Forms!Maschera1Forn![Testo49] > 0 Then
Grazie Alex
 
 

 If Forms!Maschera1Forn![Testo49] > 0 Then
 
La sintassi č valida.
 
Č il codice originale, cioč copiato/incollato dal VBE?
 
Dove si trova questa riga? In quale procedura, evento, oggetto?
 
Sei sicuro che l'errore succede in questa riga? Altrimenti
incolla tutto il codice rilevante.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


ciao Karl
 
questo è il codice di una maschera che cerco di adattare al mio progetto
 
Private Sub Coprire_DblClick(Cancel As Integer)
If Forms!Maschera1Forn![Testo49] > 0 Then
        DoCmd.OpenForm "FattureFornitori", acNormal, "",
"[Forms]![Maschera1FORN]![IdFornitore]", acAdd, acNormal
      End If
    If (Forms!Maschera1Forn![Testo49] = 0) Then
 
        Beep
        MsgBox "NON C'E' NULLA DA FATTURARE", vbOKOnly, ""
    End If
End Sub
 
Grazie
 
 
 

 wrote:

If Forms!Maschera1Forn ---
If Forms!Maschera1Form --- c'e una "N" invece che una Emme

 ha scritto nel messaggio 
news:0a667d0e-35d3-4e0c...@d17g2000yql.googlegroups.com...

è (Maschera1Forn) e non Maschera!Forn
cioè il nome
 
 
 

 cio il nome
 
Oooops!
Scusa
Ciao
Newsgroup: it.comp.appl.access
Titolo: riiniziare la numerazione

Salve!
 
se da una tb elimino alcuni record e poi compatto e rispristino,
non dovrebbe l'id contattore riiniziare la numerazione?
 
grazie 
 
 

Luigi ha scritto:

No.
Personalmente non sento questo bisogno di avere tutti i numeri in fila
senza buchi, ma potresti:
- usare un campo Numerico anziché Contatore, e gestire la numerazione da
codice, soluzione che preferisco;
- creare una nuova tabella e copiarci i record esistenti, naturalmente
tutti i campi. Per la creazione puoi copiarla scegliendo "solo struttura";
una query di accodamento riporterà tutti i dati e il campo Contatore
prenderà la numerazione integra.
RB
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 non dovrebbe l'id contattore riiniziare la numerazione? 
 
 Reinizializzare campi contatori
 
http://www.donkarl.com/it?FAQ3.2
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 

 ha scritto nel 
messaggio news:kas5gt$aev$1...@news.newsland.it...

ciao Riccardo
una volta impostato l'id a numerico come devo procedere
per avere la numerazione progressiva in quel campo?
grazie 
 
 

 ha scritto nel messaggio 
news:ajdq83...@mid.individual.net...

grazie
Newsgroup: it.comp.appl.access
Titolo: Anche i fantasmi a volte ritornano...

Buongiorno a tutti!
E' molto tempo che sono fuori dai newsgroup di Access (ci programmo fin
dalla versione 2.0); adesso, proprio oggi, rientro.
Spero di poter essere utile a qualcuno!
Saluti a tutti!
-- 
Jonathan Canova
www.aladinoinformatica.com

 Saluti a tutti!
Potresti cominciare leggendoti il post istruzioni per l'uso di Roberto,
seguendo il quale avresti messo un OT nel subject...
comunque.... nel frattempo potresti preparare il caffč...
Hehe heehe e eeh ehe e
Antonio

 ha scritto nel messaggio
news:sQOZa.237456$Ny5.7...@twister2.libero.it...

Ok. Come consigliato, cercherň anche di scrivere dopo il quoting, anche se č
una cosa che odio (se la risposta sta in cima, si legge subito...).
Quanti caffč? Belli caldi? :-)
Ciao!

 Quanti caffč? Belli caldi? :-)
Neri e bollenti
Antonio

 dalla versione 2.0); adesso, proprio oggi, rientro.
Se non ricordo male postavi all'epoca di Bettini, AntoGal, RoDAgo, etc.
;-)

 ha scritto nel messaggio
news:HUNZa.71094$cl3.2...@news2.tin.it...

Ciao
Potresti dare un occhiata al post " Differenze su query odbc tra Axp e
ExcelXp
Grazie
Stefano (kabisa)

 Stefano (kabisa)
Ma quanto sei fuori luogo.........!!!!!!
@Alex.
P.S. Un saluto al barista...., per me un cappuccino con
3 bustine di Zucchero.
Bentornato.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:HNQZa.238314$lK4.7...@twister1.libero.it...

Bravo! Sono rimasto solo? :-)

 Bravo! Sono rimasto solo? :-)
Beh, a parte Antonio Biso non vedo molti sopravvissuti...
Ciao ;-)

 ha scritto nel messaggio
news:itl_a.240092$Ny5.7...@twister2.libero.it...

Ne resterà soltanto uno !!!!!
Antonio

 Antonio
Ok, abbiamo due alternative.
1. cambi la tua affermazione e dici che rimaniamo in due.
2. vado a prendere il judogi e faccio il possibile....
:-))))))))))))))))))))))))))))))))))))

 :-))))))))))))))))))))))))))))))))))))
C'hai paura eh?!?!
Antonio

 ha scritto nel messaggio

...e io?
...e io?
:,,,(
Sib

 C'hai paura eh?!?!
No, no... siamo ancora distanti ;-)
Ciao!

 ...e io?
Tu che? :-))))

 ...e io?
Arghh ... scusa Sib!
Ciao ;-)

Newsgroup: it.comp.appl.access
Titolo: Calcolare 6 sconti in sequenza...

Ciao a tutti
scusate l'ignoranza ma vorrei il vostro aiuto per calcolare 6 sconti
in sequenza su un prezzo utilizzando un'unica formula in un campo di
una query.
Gli sconti possono anche essere tutti pari a zero...
La formula che ho realizzato io è un bel pò lunga e mi ci sono un pò
perso...
qual'è la formula più breve e veloce per ottenere quanto voglio???
 
grazie 1000
 
Nicola


con un pò di fatica ma l'ho trovata:
[prezzo]-([prezzo]*sconto1/100)+[prezzo]*sconto2/100+
[prezzo]*sconto3/100+[prezzo]*scontop1/100+[prezzo]*scontop2/100+
[prezzo]*scontop3/100
 
Nicola
Newsgroup: it.comp.appl.access
Titolo: Somme e date, help.

Sono agli inizi.
Problema: in una maschera ho un campo numerico (Y), in cui inserisco
dei valori, ogni record ha un campo data, a me serve fare la somma x
mese prendendo come riferimento la data.
es. il 2 aprile 2003 ho inserito un totale di 87, in questo mese 43
(ma il mese non è ancora finito) se il calcolo in un altro campo (X)
le somme di Y ottengo i totali di tutti i mesi (ossia non mi fà la
distinsione x mese)
Come dovrei procedere o impostare il database?
thx

"JoeBlack®" <
joe_...@tiscali.it
^> ha scritto nel messaggio
news:6vhjcvk0segugcc5h...@4ax.com...

Per avere il totale di Y mese per mese, creati una query di raggruppamento
che somma Y e raggruppa sull'anno e sul mese della data.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

che somma Y e raggruppa sull'anno e sul mese della data.
Sono una schiappa, x favore mi fai un esempio, come faccio a
specificare il mese  nella query?

"JoeBlack®" <
joe_...@tiscali.it
^> ha scritto nel messaggio
news:lqsjcvcr9fp6t73of...@4ax.com...

Se i dati sono contenuti in una tabella chiamata Tabella1 che ha una
struttura simile a questa:
ID        Contatore e chiave primaria
Y         Numerico
data     Data/ora
ecc. ecc.
creati una query di raggruppamento che abbia il seguente codice SQL:
SELECT Format([Data],"yyyy/mm") AS Espr1, Sum(Tabella1.Y) AS X
FROM Tabella1
GROUP BY Format([Data],"yyyy/mm");
Mi permetto di dare anche a te il consiglio di studiare almeno i concetti
fondamentali di Access, altrimenti sarà veramente dura per te farti capire e
capire i suggerimenti che ti vengono dati. Insomma, a mio avviso, il tuo
problema non è essere una schiappa, ma quello di ignorare i fondamentali di
Access, e così è difficile andare lontano. ;-)

Newsgroup: it.comp.appl.access
Titolo: righe uniche da una query

In una tabella ho un elenco di transazioni relative a certi servizi resi ai
clienti.
I servizi resi ai clienti hanno un codice principale e un sottocodice
secondario.
Io ho la necessita' di contare come unici i soli codici principali,
prendendo i dati dalla query che mi seleziona  la filiale. Tale query ha
l'aspetto di un eleco del tipo:
filiale    cod. cliente    cod. servizio    sottocodice servizio
1         456                100                100-01
1         457                100                100-01
1         457                100                100-02
1         458                103                103-01
1         458                100                100-01
1         458                100                100-05
In definitiva ho 6 righe, 3 clienti,  4 distinte prestazioni (100, 100, 103,
100), come imposto per selezionare in modo che mi compaia ogni e sola prima
volta di ogni codice principale per quel dato cliente?
Lo scopo cioe' e' ottenere una query finale del tipo:
filiale    cod. cliente    cod. servizio    sottocodice servizio
1         456                100                100-01
1         457                100                100-01
1         458                103                103-01
1         458                100                100-01
Come faccio?
Grazie
B.

 ha scritto nel messaggio
news:b73p2d$alacr$1...@ID-163647.news.dfncis.de...

Se la tabella che contiene i dati si chiama Tabella1, prova con una query di
raggruppamento che abbia il seguente codice SQL:
SELECT Tabella1.Filiale, Tabella1.CodCliente, Tabella1.CodServizio,
First(Tabella1.SottocodiceServizio) AS PrimoDiSottocodiceServizio
FROM Tabella1
GROUP BY Tabella1.Filiale, Tabella1.CodCliente, Tabella1.CodServizio
ORDER BY Tabella1.Filiale, Tabella1.CodCliente, Tabella1.CodServizio,
First(Tabella1.SottocodiceServizio);
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 GROUP BY Tabella1.Filiale, Tabella1.CodCliente, Tabella1.CodServizio
Grazie, fuzniona! la chiave e' l'espressione "first( ... )", io avevo
tentato Top( ... ) e non esisteva.
Nel frattempo avevo fatto un select distinctrow per eliminare i multipli dei
codici principali, causati dall persenza di codici secondari, ma cio' mi
imponeva di non mettere nella query i codici secondari stessi. Col tuo
codice faccio piu' cose.
grazie e ciao
B.
Newsgroup: it.comp.appl.access
Titolo: Errore su update di tabella da query pass-through

Buongiorno a tutti,
sto cercando di fare una "banale" update su una tabella esistente. I
dati provengono da una query, che seleziona le sue righe da una query
pass-through. Non capisco come mai, ottengo l'errore "E' necessaria una
query aggiornabile". Eppure la query deve solo leggere dati e scriverli
nella tabella... è normale questo comportamento?
Non è che l'update (o il join) della tabella "forzi" in qualche modo
la query a scrivere i dati in sé dalla query pass-through, e quindi
Jet non gestisca questa cosa?
La soluzione che ho trovato consiste nel creare una tabella dalla
query, e poi fare l'update da questa... ma è proprio necessario,
oppure mi sta sfuggendo qualcosa?
Panathos

L'origine dati di una QueryPassTrough è ReadOnly, nell'Help è ben
dichiarato.
Se ho capito male prova a rispiegare.
@Alex

 Se ho capito male prova a rispiegare.
Ti ringrazio per l'interessamento. Poi ho scavalcato il problema
modificando le query, comunque il discorso riguardava un join fra due
query pass-through che veniva scritto in una tabella "normale".
Il join fra le due tabelle esterne dava l'errore sopra citato.
Panathos
Newsgroup: it.comp.appl.access
Titolo: E-mail da Acces con Lotus Notes

Salve a tutti. Il mio problema č questo: da un form, per inviare un rpt,
uso il comando SendObject con l'opz Message settata a True per aprire il
programma di posta elettronica, che č Lotus Notes (perchč, oltre al rpt
devo anche allegare altri file). Si apre, invece, Outlook, ed alla fine
non invia il messaggio (andando, a volte, in crash, e, comunque, non
liberando piů Notes). Se invece l'opz Message č False, l'invio del rpt
avviene correttamente (perň non riesco ad allegare gli altri file). Il
SO č Nt4; in Gestione Risorse/Visualizza/Opzioni/Tipi di file ho provato
a cambiare tutti i collegamenti Outlook con Notes, ma continua a non
aprirmi Notes. Qualcuno puň darmi qualche dritta? In alternativa, per
non aprire Notes, pensavo di allegare al rpt un sottoreport con un Ole
object che punti al file.doc che intendo allegare e che prenda il path
da un campo presente nel form; perň dal form non riesco a modificare il
.SourceDoc prima dell'invio del rpt. Come posso fare? Grazie.

 wrote in message news:a5vjbk$699$1...@gossip.excite.it...

Prova a dare un'occhiata qui:
http://www.granite.ab.ca/access/emaillotusnotes.htm
HTH.
Alessandro


http://www.granite.ab.ca/access/emaillotusnotes.htm
 >HTH. >Alessandro	
Grazie, ma dice "Host not found"

 Grazie, ma dice "Host not found"
In effetti oggi neanch'io riesco a raggiungere questo sito (ma l'errore č
diverso: "The page cannot be displayed"), eppure ieri, quando ho postato il
messaggio, funzionava. Magari fai un tentativo piů tardi...
Alessandro

 aprirmi Notes. Qualcuno puň darmi qualche dritta? 
Io ricordo che ho dovuto forse settare qualcosa al primo uso della
routine perche' lui puntava a Outlook (o MS exchange) come prg. di posta
in formato API. Da allora in poi ricorda notes e non da' problemi.
Lavoro in W95.
Ciao
B.
Newsgroup: it.comp.appl.access
Titolo: evento con combobox

Ho iniziato da poco col 2000 (mi ero fermato all' 1.1) e mi sono bloccato
davanti a questo (probabilmente di facile soluzione per altri) problema:
vorrei evitare che in controllo di una maschera (legato ad un elenco di 4
valori) venga immesso un testo diverso o niente.
Imposto il tutto da codice ma il puntatore supera comunque il controllo
anche se non vi digito niente.
Ho provato con i vari tipi di eventi quindi ci dev'essere qualcos'altro che
non va, forse nelle varie forme di codice che ho usato; inizialmente avevo
anche provato con 
valido.se
.
Grazie in anticipo,
Nico



Prova con la proprietą solo in elenco impostata a Sģ

 ha scritto nel messaggio
news:3c444f97...@News.CIS.DFN.DE...

ci ho provato ma se non metto niente mi consente di passare avanti



prova con un dati->valido se-> not null or <> ""

 ha scritto nel messaggio
news:10111129...@server.iranet.it...

č un controllo associato o no?

 ci ho provato ma se non metto niente mi consente di passare avanti
Sull'evento lostfocus vai a testare se dentro non c'è nulla. Se è così,
mandi un messaggio, poi fai un setfocus su un qualsiasi altro controllo,
quindi di nuovo un setfocus sulla combo. Finche non ci sarà un valore
accettabile, non si schioderà da lì.
Altre soluzioni:
Pulsante di convalida che testa il valore e se non c'è non salva nulla
valore predefinito in modo che almeno un valore sia presente
Antonio


ci ho provato, ma col tabulatore mi passa tranquillamente al controllo
successivo:
Private Sub Addetto_LostFocus()
If Me.Addetto = "" Then                        (provato anche Me.Addetto =
Null  etc. etc.)
    Me.NumComponenti.SetFocus
    Me.Addetto.SetFocus
End If
End Sub
Nico

 wrote in message
10111877...@server.iranet.it...

Per testare il null non si può fare addetto = null, ma isnull(addetto)
Prova così, vedrai che funziona..
Antonio
P.S.
Io uso una funzione da me creata
public function vuoto(x as variant) as boolean
if isnull(x) or trim(x) = "" then
  vuoto = true
else
  vuoto = false
end if
end function
Quindi
if vuoto(addetti) then...
Newsgroup: it.comp.appl.access
Titolo: etichette, codici a barre ecc.... come funziona il tutto?

volevo chiedervi se qualcuno ha esperienza su come funziona un sistema
completo
di gestione magazzino articoli con codici a barre, ovvero tipo di font
utilizzato
per il codice a barre, tipi di fogli utilizzati per stampare i codici a
barre da applicare
alle scarpe?
altri accorgimenti da me tralasciati?
Grazie.

 wrote in news:bbih77$oel$1
@
lacerta.tiscalinet.it
:

per la stampa dei barcode, prova qui:
http://www.tec-it.co.at
hanno un componente che permette di stampare qualsiasi tipo di codice.
è scaricabile gratuitamente, non ha scadenza temporale, è semplicissimo 
da utilizzare.
ovviamente, se lo usi dovresti comperarlo (e ha un costo abbastanza 
ragionevole). se però non lo registri, l'unico inconveniente è una barra 
trasversale sul barcode, che resta comunque leggibile.
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------
Newsgroup: it.comp.appl.access
Titolo: Relazione... difficile (per me)

In un DB che deve gestire più conti correnti ho creato 3 tabelle
MOVIMENTI (IDMov, DataMov, Conto, TipoOperazione, Importo ecc....)
CONTI (NrConto, Banca, Titolare ecc...)
OPERAZIONI (TipoOperazione, Conto[?], GiorniValuta...)
dove quest'ultima dovrebbe registrare i giorni di valuta da aggiungere
automaticamente alla data del movimento (es.: contanti 1 gg, assegno 5 gg
...).
Nella maschera per l'immissione dei movimenti vorrei creare delle caselle
combinate che consentano di scegliere, per ogni movimento, il conto
relativo, le operazioni pre-registrate per quello specifico conto e
calcolare quindi la relativa valuta aggiungendo [GiorniValuta] a [DataMov]
Il mio problema sta nel fatto che per ogni conto possono esserci - per la
stessa operazione - condizioni diverse (es.: conto1/contanti 1 gg.,
conto2/contanti 2 gg., conto1/assegno 5 gg., conto2/assegno 7 gg. ...) e non
riesco a mettere in relazione tra loro le tabelle.
Dove sbaglio? Deve esserci un modo, no?
Grazie 1000 a chi sarà così gentile da aiutarmi.
Ciao,
Paolo
(
jor...@tin.it
)


intendi veramente che ha fronte delle stessa operazione ci sono
trattamenti diversi sulloo stesso conto?
e a mano come fai a sapere cosa fare?
non è che le condizioni cambiano a seconda del conto?
Saluti.
Emanuele.

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


CUT
per favore scrivi dopo il precedente messaggio e non prima....
...allora per risolvere il problema è sufficiente creare una tabella
in cui memorizzare:
id_conto - Id_operazione - informazionepertrattamento1 -
informazionepertrattamento2- etc.
quando ti serve calcolare la scadenza non fai altro che controllare le
varie informazioni a seconda di id_conto ed id_operazione
molto semplice e veloce...
Saluti.
Emanuele.


CUT
per favore scrivi dopo il precedente messaggio e non prima....
...allora per risolvere il problema č sufficiente creare una tabella
in cui memorizzare:
id_conto - Id_operazione - informazionepertrattamento1 -
informazionepertrattamento2- etc.
quando ti serve calcolare la scadenza non fai altro che controllare le
varie informazioni a seconda di id_conto ed id_operazione
molto semplice e veloce...
Saluti.
Emanuele.
Ti ringrazio, provo senz'altro la tua soluzione
Saluti
Paolo

Newsgroup: it.comp.appl.access
Titolo: domanda sulle relazioni di access

se io associo il campo idbanca alla tabella clienti quando seleziono un
cliente dal menu a tendina e con
select * from cliente where idcliente=id
come prelevo anche i campi della banca nella tabella banca in base al numero
di idbanca?
Grazie a tutti.

 ha scritto nel messaggio
news:biavvv$h4k$1...@lacerta.tiscalinet.it...

Invece di usare la tabella come origine dei dati, usa una query che prenda i
dati da entrambe le tabelle.
Namor
Newsgroup: it.comp.appl.access
Titolo: aiuto su query di aggiornamento sostituire accento con accento

Dovrei eseguire una query di aggiornamento che sostituisce tutti gli accento
in qualsiasi posizione si trovino in descrizione con quello sotto il testo ?
con l'accento al contrario carattere ALT+196
nel campo della query aggiorna a penso di metterci qualcosa tipo if instr
descrizione "'", "`" ma non so la sintassi esatta
qualcuno mi są aiutare?

 qualcuno mi sà aiutare?
Intanto direi che questa cosa la devi fare passando da codice, in quanto
devi dire di sostituire un particolare carattere che potrebbe esserci anche
più volte e non sai in che posizione.
Pertanto ti devi creare una funzione
function sostituisci(x as string) as string
dim i as integer
dim app as string
for i = 1 to len(x)
  if mid(x,i,1) = "'" then
    app = app & ALT196
  else
    app = app & mid(x,i,1)
  end if
next i
sostituisci = app
end function
Poi nella query di aggiornamento ci metti
Sostituisci([campo])
Il problema è quell'ALT196. Devi trovare il corrispondente carattere
restituito dalla funzione chr. Io non ci sono riuscito, vedi un po' tu...
Antonio

Simba883 ha scritto:

Se usi Access 2000 o superiore puoi fare la query di aggiornamento usando
Replace().
Se devi farlo in Access 97 "una tantum", apri la tabella e usi "Strumenti"
- "Sostituisci...".
Se devi farlo in Access 97 con frequenza conviene scrivere una procedura
vba.
Il carattere 196 mi risulta essere un trattino orizzontale (nella tabella
codici 850), l'accento contrario ce l'ho allo 096.
Se a qualcuno puņ interessare, ho dei piccoli programmini .exe che ho
scritto tempo fa per lavorare con tabelle di dati su file di testo, che
consentono di "tagliare a fettine verticali" un file e poi ricomporlo
cambiando l'ordine delle colonne, e di fare il trova-sostituisci
direttamente da linea di comando. Ne ho anche uno per stampare la tabella
ASCII (standard ed estesa), che spesso mi torna utile per non andarmela a
cercare nell'help.
Sono tutti disponibili anche completi di sorgenti (ANSI C).
Namor
-- 
Aiuta chi ne ha bisogno, non ti costa niente:
www.shopmon.it
  -  
www.porloschicos.com
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: posso creare una DLL con le funzioni comuni ?

Sopratutto in una applicazione medio-grande, la quantità di codice aumenta e 
spesso è necessario riutilizzarlo da vari FE.
Mi chiedevo se posso raggruppare le funzioni più comuni in librerie esterne 
tipo DLL.
Credo che sarebbe
Utilizzo C#, ma sono alle prime armi ...
Con la programmazione in VBA mi trovo decisamente meglio, quindi credo che 
potrei affrontare il percorso se  ... è percorribile!
Oppure esiste una maniera ergonomica per 'distribuire' consistenti porzioni 
di codice tra i vari FE ?
grazie per le indicazioni
IvanDaBologna 


Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------

 ha scritto nel messaggio 
news:vfrr339dhuhp1i8fm...@4ax.com...

urka!
vabbè ho fatto qualche tentativo ma non sono riuscito a compilare questo DB 
con due moduli di prova...
vado a rivedere i consigli di Karl Donaubauer, che mi pare ne abbia messo 
qualcuno.
grazie per la dritta.

Newsgroup: it.comp.appl.access
Titolo: Seleziona tutto /Deseleziona tutto

Con un pulsante vorrei che tutti i controlli su una maschera potessero
essere messi a VERO se sono a FALSO e a FALSO se sono a VERO.
Come posso fare? Che proprietà devo vedere?
Grazie.

 ha scritto nel messaggio
news:1117896209....@g47g2000cwa.googlegroups.com...

Grazie.
Che tipo di controlli sono...?
Spero siano controlli checkBox o interruttori.
Cicla sull'insieme Controls di Form e inverti lo stato:
Private Sub Inverti()
    Dim ctl as Access.Controls
    For each ctl in Me.Controls
        Select case ctl.ControlType
            case acOptionButton, acCheckBox, acToggleButton
                ctl.Value=Not ctl.Value
        End Select
    NExt
    set ctl=Nothing
End Sub
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Grazie ale :)
Newsgroup: it.comp.appl.access
Titolo: Maschera impazzita

Su tutti i computer della mia rete aziendale, quando tento di inserire i 
dati dalla consueta maschera di inserimento il database si impalla e va in 
errore con la solita segnalazione: "vuoi recuperare i dati".
Ho portato il database a casa e funziona perfettamente!!
Che faccio!??
Grazie 

 ha scritto nel messaggio
news:436ba7d4$0$6021$4faf...@reader4.news.tin.it...

Ma parli di database dati(BE) o del Programma(FE) ?
Cmq prova a creare un nuovo database, importaci dentro
tutti gli oggetti di quello che da errore e riprova.
Se durante il travaso ti da un errore allora il form o il report
in questione (dove si ferma) e' danneggiato e va ricostruito.
bye :o)

Newsgroup: it.comp.appl.access
Titolo: microsoft Dao

inavvertitamennte ho disinstallato microsoft dao dal pannello di controllo"
installazioni applicazioni" adesso non so più come installarlo e delle volte
certe applicazioni me lo richiedono(corel  suite 12, Access)  ho cercato nei
dischi delle applicazioni ma non ho trovato nulla e neanche nel web 


DAO360.DLL?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:WSs3e.724956$b5.32...@news3.tin.it...

Newsgroup: it.comp.appl.access
Titolo: array di controlli

Ho una form, che contine 10 controlli (nome cognome etc etc), ho la
necessità di posizionarli in una determinata coordinata del mio report.
Facendo cosi ho risolto il problema:
nome.left=1000
cognome.left=1000
Telefono.left=1000
e cosi via per tutti i controlli.
Una volta avevo letto su questo ng che si poteva creare un array di
controlli, impostando un qualcosa che non mi ricordo più, forse la caption.
e poi si faceva una cosa del tipo tutti i controlli con array=x
proprietà.left=1000
Come si fa?
grazie Nadir
--------------------------------
Inviato via 
http://usenet.libero.it


In realtà non si può, quello che è stato proposto è un modo per bypassare il
problema.
Devi nominarli con un Indice progressivo:
Ctl1
Ctl2
Ctl3
Quindi fai un ciclo
For X=1 to 3
    Me.Controls("Ctl" & X).Left=1000
Next
Ciao.
@Alex.

 grazie Nadir
Come fai a spostare i controlli della MASCHERA in una coordinata del
REPORT?
Comunque se vuoi fare il ciclo che dici non devi creare un array di
controlli, basta che usi l'insieme controls che c'è già. Puoi usare la
proprietà Tag per selezionare i controlli che vuoi spostare, settandola
per esempio a "SPOSTA".
dim ctl as control
for each ctl in me.controls
  if ctl.tag="SPOSTA" then ctl.left=1000
next
(non garantisco il funzionamento, non ho provato)
Namor
-- 
 
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: elimina campo

Ciao a tutti
Chiedo urgentemente un consiglio su come, ATTRAVERSO CODICE, gestire il 
problema riportato di seguito.
Ho due tabelle che si chiamano rispettivamente.
  1.. CONTENITORE ( con in campi CODICE e VALORE)
  2.. AGGIORNA  ( con in campi CODICE e VALORE)
Queste tabelle si trovano nel database  MDBVENDITE e il percorso è 
C:\RICHIESTE\ MDBVENDITE.MDB
Immaginiamo che la tabella CONTENITORE sia cosi composta:
----------------------------------------------------
CODICE                     VALORE
420                                                           eliminato
421                                                           aggiunto
422                                                           aggiunto
423                                                           eliminato
424                                                           aggiunto
425                                                           aggiunto
426                                                           eliminato
-----------------------------------------------------
mentre la tabella AGGIORNA contenga i seguenti dati
  CODICE                             VALORE
420 
aggiunto
421 
aggiunto
422 
aggiunto
423 
aggiunto
424 
aggiunto
425 
aggiunto
426 
aggiunto
Vorrei ora, attraverso un ciclo, leggere, nella tabella CONTENITORE il primo 
record, che ha come CODICE 420  e se il dato contenuto nel campo VALORE è 
la parola "eliminato"  si vada ad eliminare nella tabella AGGIORNA il record 
che ha come CODICE 420. Ora leggiamo sempre nella tabella CONTENITORE il 
secondo record e poiché il dato contenuto nel campo VALORE  non corrisponde 
alla parola eliminato passiamo al terzo e successivamente al quarto. Visto 
che questo  record, che ha come CODICE 423, nel campo VALORE contiene la 
parola "eliminato"  si vada ad eliminare nella tabella AGGIORNA il record 
che ha come CODICE 423. e così via fino alla lettura di tutti i record 
contenuti nella tabella CONTENITORE.
Per concludere, tutte le volte che nella tabella CONTENITORE il campo valore 
contiene  la parola eliminato, si vada a cancellare nella tabella AGGIORNA 
il record relativo al rispettivo codice.
Grazie
Gigi

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

 ha scritto nel messaggio 
news:H9UXf.61160$PR2.1...@twister2.libero.it...

Va BENISSIMO ma l'unico timore e che alla domanda della query l'utente 
clicchi su NO vanificando il risultato voluto. Non sarebbe possibile 
eseguire la procedura in automatico?.
Grazie mille per tutto
Gigi

 Grazie mille per tutto


 eseguire la procedura in automatico?.
Non usare:
DoCmd.RunSQL "sql..."
usa invece:
CurrentProject.Connection.Execute "sql..."
Ciao
Sib
-- 
http://www.gestionedati.com
Newsgroup: it.comp.appl.access
Titolo: Maschera e sottomaschera..Aiuto

Ho nella maschera principale un casella di tipo SELECT
che al variare di questa mi cambiano i valori della sottomaschera...
come posso fare affinche l'indice nella sottomaschera si posizioni
sull'ultimo record...
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
pero sollo all'apertura della maschera esottomaschera va bene..e non quando
mi cambia il valore della casella di tipo select...
Spero di essermi spiegato...
scusate per il linguaggio.. ancora sono neofita...
Grazie mille comunque...

--------------------------------------------------------------------------<
-- 
Posted from 
mailrelay3.inwind.it
 [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: Prb con due tabelle per l'eliminazione....

Salve a tutti, mi spiego meglio: ho due tabelle TAB01 e TAB02 nella forms
che gestisco TAB01 posso cancellare i record a patto che nella TAB02 non
esistano record legatia TAB01. Come posso fare per controllare che TAB02 non
contenga record che interessano TAB01??? Grazie a Tutti.

 ha scritto nel messaggio
news:afffme$d5u$1...@fe2.cs.interbusiness.it...

Prima della cancellazione interroga la TAB2 tramite i campi che la uniscono
in relazione con TAB1 e se ci sono record ..... decidi cosa fare.
 In alternativa se vuoi cancellare i record figli presenti nella TAB2 puoi
applicare l'integrità referenziale delle relazioni e impostargli di
eliminare i record correlati a catena, così fa tutto Access.
ciao.



vedi funzione dlookup()
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: problema con DoCmd.GoToRecord , , acNewRec

Salve!
 
ho maschera con 2 sottomaschera
dove con una casella combinata (origine dati da query)
sposto dei records da una sottomaschera all'altra.
 
Per entrare in questa maschera utilizzo questo codice su click di un 
pulsante
DoCmd.OpenForm "FattureFornitori", acNormal, "", 
"[Forms]![Maschera1FORN]![FORNITOREClienteAgenzia]", acAdd, acNormal
 
Il mio problema è che se voglio aggiungere un nuovo record
senza uscire e rientrare nella maschera utilizzando
    DoCmd.GoToRecord , , acNewRec
 
non lo posso fare, perchè i records contenuti in una delle due sottomaschere
mi spariscono.
 
Come posso risolvere?
Grazie 
 
 

 ha scritto nel messaggio 
news:4f93aa4d$0$1381$4faf...@reader2.news.tin.it...

in pratica io dovrei aggiungere un nuovo record mantenendo
"[Forms]![Maschera1FORN]![FORNITOREClienteAgenzia]"
grazie 
 
 

 ha scritto nel messaggio 
news:4f93bfe5$0$1384$4faf...@reader2.news.tin.it...

ovvero nuovo record con il medesimo cliente