text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c7b2f4$3ip$1...@lacerta.tiscalinet.it...

Eccome no....!
La gestione del Ripristino l'ho scritta un po alla veloce io uso un File
esterno un INI, ma sostanzialmente dovrebbe andare.
Ciao.
@Alex.
'******************** IN UN MODULO *********************************
Option Compare Database
Option Explicit
Private Declare Function EnumDisplaySettings Lib "user32" Alias
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As
Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias
"ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Public Const ENUM_CURRENT_SETTINGS = -1
Private Type DevMode
       dmDeviceName As String * CCDEVICENAME
       dmSpecVersion As Integer
       dmDriverVersion As Integer
       dmSize As Integer
       dmDriverExtra As Integer
       dmFields As Long
       dmOrientation As Integer
       dmPaperSize As Integer
       dmPaperLength As Integer
       dmPaperWidth As Integer
       dmScale As Integer
       dmCopies As Integer
       dmDefaultSource As Integer
       dmPrintQuality As Integer
       dmColor As Integer
       dmDuplex As Integer
       dmYResolution As Integer
       dmTTOption As Integer
       dmCollate As Integer
       dmFormName As String * CCFORMNAME
       dmUnusedPadding As Integer
       dmBitsPerPel As Integer
       dmPelsWidth As Long
       dmPelsHeight As Long
       dmDisplayFlags As Long
       dmDisplayFrequency As Long
End Type
Dim HoldX as single
Dim HoldY as Single
Public Function ChangeRes(Optional ByVal x As Single = 1024, Optional ByVal
Y As Single = 768) As Boolean
Dim DevM As DevMode
Dim A As Boolean
Dim I&
Dim B&
    ChangeRes = False
    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
    DevM.dmSize = LenB(DevM)
    Call EnumDisplaySettings(0&, ENUM_CURRENT_SETTINGS, DevM)
    HoldX = DevM.dmPelsWidth
    HoldY = DevM.dmPelsHeight
    If HoldX <> x Then
        I = 0
        Do
            A = EnumDisplaySettings(0&, I&, DevM)
            I = I + 1
        Loop Until (A = False)
        DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
        DevM.dmPelsWidth = x
        DevM.dmPelsHeight = Y
        ChangeRes = ChangeDisplaySettings(DevM, 1)
        ChangeRes = True
    End If
End Function
Public Sub SetOldRes()
    If flChangeRes Then ChangeRes HoldX, HoldY
End Sub
Public Function StartUp()
    flChangeRes = ChangeRes(1024, 768)
End Function


title: Inserire una "specie" di contatore in una Query

author: elicar

text:
Credo di avere letto un messaggio del NG che é possibile inserire in una
query di selezione un numero che renda un campo unico all'interno del
recordset???
Sapete indicarmi quale è
Grazie
--
Carlo
:)


author: Alessandro Baraldi

text:
elicar ha scritto:

Nelle query qualsiasi campo  Calcolatonon può fungere da indice
UNIVOCO, quello
è un compito riservato ai campi PK(Chiave primaria) nelle tabelle.
Forse intendevi poter avere un campo progressivo solo ai fini di
visualizzazione...?
Nel SitoComune c'è un demo proprio sull'argomento.
Altrimenti effettuando una ricerca per argomento giusto per
dimostrazione che
funziona:
http://groups.google.it/group/it.comp.appl.access/search?group=it.comp.appl.access&q=Campo+progressivo+query&qt_g=1
Saluti
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1152529244.4...@s13g2000cwa.googlegroups.com...
elicar ha scritto:





http://groups.google.it/group/it.comp.appl.access/search?group=it.comp.appl.access&q=Campo+progressivo+query&qt_g=1
Saluti
@Alex
Grazie per la risposta
:)


title: soluzione migliore

author: Lenny

text:
attraverso decine di query estraggo dal gestionale via odbc e analizzo i
dati riguardanti i miei agenti: chiamate, consegne, etc.
ora mi piacerebbe fare una scheda agente che riassuma un po' tutti questi
dati per ogni agente senza dover
imputare a mano i dati (ora lo faccio in excel) in questa scheda.
Il mio dubbio è la apparente complessità nell'usare tutte queste query in un
report.
qual è la soluzione migliore da attuare?
diciamo che generalmente ho tabelle di questo tipo.
Agente |  mese  |  n. visite
Agente |  mese  |  chiamate
etc..
mi date qualche consiglio su come muovermi?


title: soluzione migliore

text:
"Lenny" <
luca...@tiscalinet.it
> wrote in message
news:9nsekb$hme$1...@fe1.cs.interbusiness.it...
> attraverso decine di query estraggo dal gestionale via odbc e analizzo i
> dati riguardanti i miei agenti: chiamate, consegne, etc.
> Il mio dubbio è la apparente complessità nell'usare tutte queste query in un
> report.
>
> qual è la soluzione migliore da attuare?
>
> diciamo che generalmente ho tabelle di questo tipo.
>
> Agente |  mese  |  n. visite
> Agente |  mese  |  chiamate
> etc..
Se la fonte dati alla quale accedi (non importa sia con ODBC), è una struttura
Database, quindi con Tabelle Relazionate, puoi estrarre una Qry Unica dedicata
alla stampa con solo i dati che ti servono, altrimenti puoi relazionare le
tue decine di Qry ed estrarre sempre e solo i dati essenziali, se utilizzi
SQL server è ancora più semplice perchè perchè creata la Store Procedure
richiami quella....
Però non capisco perchè hai così tante Qry per gestire così pochi dati....???
@Alex
--
Posted from  [62.98.108.89]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: soluzione migliore

text:
> Se la fonte dati alla quale accedi (non importa sia con ODBC), è una
struttura
> Database, quindi con Tabelle Relazionate, puoi estrarre una Qry Unica
dedicata
> alla stampa con solo i dati che ti servono, altrimenti puoi relazionare le
> tue decine di Qry ed estrarre sempre e solo i dati essenziali, se utilizzi
> SQL server è ancora più semplice perchè perchè creata la Store Procedure
> richiami quella....
Il database è Unify su linux e l'unico accesso è odbc
> Però non capisco perchè hai così tante Qry per gestire così pochi
dati....???
Io ho fatto solo un esempio.
ho tante query perchè ricavo molte altre cose dalle varie tabelle
ad esempio dalla mia tabella rifornimento ricavo le visite fatte, le visite
"singole" di clienti, i rifornimenti, le qta vendute, poi ricavo da altre
tabelle le chiamate, le installazioni, e molti altri dati.
io vorrei metterli tutti insieme, ma non so come.
forse mi conviene cercare di fare una tabella del tipo
Agente | Mese | dato1 | dato2 | dato3 |.........
grazie.


title: form.refresh in ritardo?

author: Panathos

text:
Buongiorno a tutti/e,
siccome eseguo operazioni da codice, volevo inserire messaggi di
cortesia all'utente, sottoforma di "attendere questo...", "attendere
quest'altro...", etc.
Niente di difficile, ho un controllo testo nel quale vado a scrivere da
codice ed eseguo un form.refresh.
Il problema è che in realtà il refresh viene fatto sempre "in
ritardo", sebbene sia sempre all'interno della stessa funzione, e
quindi in teoria il refresh dovrebbe avvenire PRIMA dell'esecuzione
delle istruzioni successive. Eppure non è così, qualcuno sa spiegarmi
il perché, o quantomeno se è il modo corretto di operare per inserire
messaggini di testo a video, su una maschera, che vengano aggiornati?
Grazie,
Panahtos


title: form.refresh in ritardo?

author: PBsoft

text:

Ma la texbox nella quale inserisci i messaggi si trova nella stessa maschera
che contiene anche i dati oggetto dell'elaborazione?
Se sì, il problema potrebbe essere risiedere nel fatto che la form cerca
di "rinfrescare" tutti i campi, ma non sono tutti disponibili a causa delle
elaborazioni in corso.
In tal caso proverei ad utilizzare una form separata per i messaggi.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: form.refresh in ritardo?

text:
PBsoft ha scritto:
> Ma la texbox nella quale inserisci i messaggi si trova nella stessa maschera
> che contiene anche i dati oggetto dell'elaborazione?
> Se sì, il problema potrebbe essere risiedere nel fatto che la form cerca
> di "rinfrescare" tutti i campi, ma non sono tutti disponibili a causa delle
> elaborazioni in corso.
Bingo. Infatti, le elaborazioni sono query pass-through che alimentano
una sottomaschera, inclusa nella maschera principale (dove ho inserito
il controllo testo per i messaggi all'utente).
In effetti, è logico che sia Così, non avevo pensato a questa
possibilità.
> In tal caso proverei ad utilizzare una form separata per i messaggi.
Infatti è stata la prima cosa che avevo fatto, poi però mi sono
accorto di non saperla gestire, e quindi ho "ripiegato" sui messaggi
nel form principale... se apro un'altra maschera, l'applicazione va in
clessidra e ci rimane anche dopo il termine delle query pass-through...
vabbuò, comunque la strada da seguire è quella e pertanto va
imparata.
Grazie per il sempre prezioso supporto.
Panathos


title: Sempre grafico

author: Pippo Salemi

text:
Non riesco a formattare il grafico che rappresenta il fatturato degli
agenti.
Ho consultato la guida in linea ma, gli importi della tabella dati e
quelli di riferimento nell'asse, non risco a cambiare il loro formato
numerico.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Sempre grafico

author: Luciano (DOC)

text:
"Pippo Salemi" <
sal...@supereva.it
> ha scritto nel messaggio
news:d789290ef1ffd028b63...@mygate.mailgate.org...
> Non riesco a formattare il grafico che rappresenta il fatturato degli
> agenti.
> Ho consultato la guida in linea ma, gli importi della tabella dati e
> quelli di riferimento nell'asse, non risco a cambiare il loro formato
> numerico.
Se clicchi sul grafico in struttura hai le proprieta'.
Saluti.
Luciano


title: Sempre grafico

text:
"Pippo Salemi" <
sal...@supereva.it
> wrote in message
news:d789290ef1ffd028b63...@mygate.mailgate.org
> Non riesco a formattare il grafico che rappresenta il fatturato degli
> agenti.
> Ho consultato la guida in linea ma, gli importi della tabella dati e
> quelli di riferimento nell'asse, non risco a cambiare il loro formato
> numerico.
Nelle prorpietà del grafico non trovo la formattazione numerica della
tabella
dei dati.
Nella fase di "visualizzazione foglio dati" c'è la possibilità di
scegliere
il formato numerico, e cambiando le impostazioni a video (sempre in
modalità
visualizzazione foglio dati)effettivamente l'impostazione cambia, ma
dopo aver
confermato la variazione se lancio la query per la visualizzazione del
grafico
il risultato non cambia.



title: Sempre grafico

author: massimiliano

text:



 in modalità
struttura clicca 2 volte sugli elementi del grafico che rappresentano la
misura.
ciao
MAssimiliano
--------------------------------
Inviato via
http://usenet.iol.it


title: Problema sull'evento

author: Luigi

text:
Ciao a Tutti

Ho una semplice maschera con origine da query;
su doppio clic del controllo "DataOrdine" ho inserito questo codice:

Private Sub DataOrdine_DblClick(Cancel As Integer)
 If IsNull(Me!DataOrdine) Then
 Me!DataOrdine = Date
 Me.Refresh
 Forms!Ordini!Mio_numero_Progressivo =
Forms!Ordini![Ultimo_Mio_numero_Progressivo].Form!MaxDiMio_numero_Progressivo
+ 1
 End If
End Sub

in modo che se ho gią la data e clicco di nuovo, il "Mio_numero_Progressivo"
non si incrementa.

Ora vorrei avere lo stesso risultato inserendo manualmente
la data nel controllo "DataOrdine", anzichč fare doppio clic,
ma che, se dovessi correggere la data gią inserita  in "DataOrdine", il
Mio_numero_Progressivo rimanga inviariato.

Ma per quanto ho provato non ci sono riuscito.
Grazie per l'aiuto


title: Problema sull'evento

text:
On 19 Feb, 09:30, "Luigi" <
Luig...@nospambero.it
> wrote:
> Ciao a Tutti
>
> Ho una semplice maschera con origine da query;
> su doppio clic del controllo "DataOrdine" ho inserito questo codice:
>
> Private Sub DataOrdine_DblClick(Cancel As Integer)
>  If IsNull(Me!DataOrdine) Then
>  Me!DataOrdine = Date
>  Me.Refresh
>  Forms!Ordini!Mio_numero_Progressivo =
> Forms!Ordini![Ultimo_Mio_numero_Progressivo].Form!MaxDiMio_numero_Progressivo
> + 1
>  End If
> End Sub
>
> in modo che se ho già la data e clicco di nuovo, il "Mio_numero_Progressivo"
> non si incrementa.
>
> Ora vorrei avere lo stesso risultato inserendo manualmente
> la data nel controllo "DataOrdine", anzichè fare doppio clic,
> ma che, se dovessi correggere la data già inserita  in "DataOrdine", il
> Mio_numero_Progressivo rimanga inviariato.
>
> Ma per quanto ho provato non ci sono riuscito.
> Grazie per l'aiuto

Ciao Luigi....
Hai provato a inserire lo stesso codice sull'evento "dopo
aggiornamento" di "DataOrdine"????

Saluti
M7a1x


title: Problema sull'evento

text:
"M7a1x" <
melm...@gmail.com
> ha scritto nel messaggio
news:db2f63db-41a1-4161...@z9g2000vbx.googlegroups.com...

Ciao M7a1x

si, ma non funziona
Saluti


title: Problema sull'evento

text:
On 19 Feb, 20:31, "Luigi" <
Luig...@nospambero.it
> wrote:
> "M7a1x" <
melma...@gmail.com
> ha scritto nel messaggionews:db2f63db-41a1-4161...@z9g2000vbx.googlegroups.com...

...e cosa succede??

> Saluti- Nascondi testo citato
>

Saluti
M7a1x


title: MAILGATE.ORG: it.comp.appl.access

author: Dario Centofanti

text:
Questo newsgroup it.comp.appl.access e' accessibile
attraverso Mailgate all'indirizzo:
http://www.mailgate.org/mailgate/it.comp.appl.access
E' anche possibile inviare i propri contributi al newsgroup
attraverso messaggi di email indirizzandoli a:

it.comp.a...@mailgate.org
Un saluto
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Dario Centofanti  <da...@Pantheon.it>
      Pantheon - Via del Tritone 132
00187 Rome Italy - Phone/Fax
+39 0647823666
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


title: Magazzino: ordinato e impegnato...

author: Winjb

text:
Ciao,
ho creato una piccola procedura che dovrebbe caricare e scaricare il
magazzino...
3 tabelle
tbArticoli
tbMagazzino (movimenti di magazzino)
tbCausali
nella movimentazione di magazzino inserisco:
IDArticolo
IDCausale
DataMov
Prezzo
XQta (... cordina da 1,5 da 100 mt costa 180 ? )
Qta
Iva...
ecc
le causali hanno un valore e una tipologia in base alla loro funzione...
Carico da fornitore  ValoreCausale 1  TipoCausale C (carico magazzino)
Reso da cliente        ValoreCausale 1  TipoCausale C (carico magazzino)
Reso a fornitore       ValoreCausale -1 TipoCausale S (scarico magazzino)
e così via..
Quindi  Prezzo*QTA*ValoreCausale ottengo un valore positivo per il carico e
negativo per lo scarico..
la somma dovrebbe darmi la giacenza...
Spero di aver fatto bene i conti... perchè ancora non ho messo in pratica
quanto descritto :)
Adesso vorrei gestire anche gli ordini a fornitori e gli impegni verso
clienti....
la domanda è questa:
secondo voi è il caso di riversare tutto nella tabella tbMagazzino, cioè
nella tabella dei movimenti di magazzino creando delle causali tipo:
Ordine a fornitori ValoreCausale 0 TipoCausale O
Impegno da cliente ValoreCausale -1 TipoCausale I  (... l'impegno dovrebbe
scaricare il magazzino no? )
in questo caso la giacenza sarebbe cmq reale perchè nel caso degli ordini
sommerebbe 0 mentre per gli impegni sottrarrebbe la quantità impegnata...
...potrei gestire anche con delle subquery... per ogni tipologia di causale,
carico scarico, ordinato, e impegnato.. ecc
OPPURE
gestire gli impegni verso clienti nella tabella magazzino mentre gli ordini
gestirli con un campo nella tabella tbArticoli e incrementando o diminuendo
il campo ogni qualvolta si presenta la necessita?
mm... spero di essere stato chiaro...
Grazie a quanti mi aiuteranno a capire...!
Ciao.


title: Magazzino: ordinato e impegnato...

author: Gaspare

text:
[CUT]
Ciao,
non voglio pensare che sei un attimo perplesso sul da farsi anche se qualche
domanda te la poni: xchè non dai 1 occhiata al database della NorthWind che
il famoloso zio "Bill"  ci ha regalato nell'ambito di access? Se guardi bene
codesto db gestisce acquisti e vendite con la presenza del magazzino e
credimi le relazioni fra tb sono di una semplicità unica ;-)
Parti da quella base e poi implenti il db con l'eventuale tb impegni etc..
;-)


title: Magazzino: ordinato e impegnato...

text:
Grazie Gaspare !
Si, dovrei documentarmi meglio...mannaggia... ma il tempo...? dove lo trovo?
Speravo in qualche suggerimento... vorrei avere le idee chiare prima di
creare tabelle, codice e quant'altro!
sentire i consigli e i suggerimenti di chi ha già esperienza con questo tipo
di procedure.
Non vorrei trovarmi nella situazione di dover tornare indietro e rifare
tutto!
Grazie cmq,sei stato gentilissimo!
Ciao Gaspare
"Gaspare" <
em...@provider.it
> ha scritto nel messaggio
news:a8Orh.183$tW3...@nntpserver.swip.net...



title: Cursore del mouse

author: NaF

text:
Ciao a tutti,
come posso cambiare il cursore del mouse quando passa sopra ad un controllo
etichetta?
Vorrei che diventasse la mano come quando e sopra ad un link.
Naturalmente dovrebbe tornare normale quando non è più sopra l'etichetta.
Grazie
Francesco


title: Cursore del mouse

author: Paj

text:
"NaF" <
nfr...@t.it
> ha scritto nel messaggio
news:a4677e$a4o$1...@lacerta.tiscalinet.it...

basta mettere uno spazio nella proprieta' indirizzo di collegamento
ipertestuale
Pietro


title: Cursore del mouse

text:
"Paj" <
p...@libero.it
> ha scritto nel messaggio
news:JSB98.54833$nI1.1...@twister1.libero.it...

Grazie
Francesco


title: setwarnings atttivo in tutto il progetto

author: Nicolas

text:
ho notato che se eseguo delle query in vari moduli diversi del db devo prima
specificare setwarning false per non chiedere conferma di esecuzione
non c'è un modo per definire il setwarning a livello globale e per tutte le
query?


author: Sergio MAZZA

text:
"Nicolas" <
nico...@libero.it
> ha scritto nel messaggio news:4305aa4c$0$8498$5fc...@news.tiscali.it...
> ho notato che se eseguo delle query in vari moduli diversi del db devo prima
> specificare setwarning false per non chiedere conferma di esecuzione
>
> non c'è un modo per definire il setwarning a livello globale e per tutte le query?
>
Strumenti - Opzioni - (riquadro) Conferma.
Ma te lo sconsiglio...
Ciao.
--
Sergio MAZZA


text:
>
> Strumenti - Opzioni - (riquadro) Conferma.
> Ma te lo sconsiglio...
>
> Ciao.
>
> --
> Sergio MAZZA
ho dimenticato mi riferivo ad un pc senza access ma con il solo runtime in
cui tale menu non è accessibile..


text:
"Nicolas" <
nico...@libero.it
> ha scritto nel messaggio news:4305b3af$0$8498$5fc...@news.tiscali.it...
>
> ho dimenticato mi riferivo ad un pc senza access ma con il solo runtime in cui tale menu non è accessibile..
>
M'arrendo...
Ciao.
--
Sergio MAZZA


author: Karl Donaubauer

text:
Nicolas wrote:
>> Strumenti - Opzioni - (riquadro) Conferma.
>> Ma te lo sconsiglio...
>
> ho dimenticato mi riferivo ad un pc senza access ma con il solo
> runtime in cui tale menu non è accessibile..
Puoi usare SetOption come mostrato nella
www.donkarl.com/it
FAQ 2.4  Eliminare i messaggi d'avviso
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Disabilitare il passaggio tra form

author: Gianluca

text:
Ora mi spiego meglio.
Nel db capita che dalla maschera 1, per motivi vari, si aprano la mschera 2
e da questa la 3.
Ovviamente bisognerebbe chiudere la 3 poi la 2 ed arrivare alla 1.
Come posso prevenire un utente medio che decida invece si usare il menù
'Finestra' per passare direttamente dalla maschera 3 alla maschera 1?
Praticamente io vorrei rendere impossibile vedere la maschera 1 se tutte le
altre non sono chiuse.
Una soluzione potrebbe essere mettere la maschera 2 e 3 in modalità popup,
ma da vba come posso procedere?
Uso A97. Grazie per l'attenzione!
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------


title: Disabilitare il passaggio tra form

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:Kw1N8.30414$86.7...@twister1.libero.it...

Nel codice imposta la proprietà visible = False della form attuale prima di
aprire la successiva. L'ultima form, alla chiusura, deve rendere visibile la
precedente... E così via...
Ciao.
--
Sergio MAZZA


title: Disabilitare il passaggio tra form

text:
CUT
anche questo è fattibile, ma non debella il rischio del menu 'Finestra'!


title: Disabilitare il passaggio tra form

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:Bi3N8.31333$K4.7...@twister2.libero.it...
> CUT
>
> anche questo č fattibile, ma non debella il rischio del menu 'Finestra'!
>
Cioč? Ti riferisci al fatto che nel menů finestra puoi selezionare le form
attive? Fai sparire il menů finestra creandoti una tua nuova barra
strumenti...
Ciao.
--
Sergio MAZZA


title: Disabilitare il passaggio tra form

author: Silvia

text:
Forse potresti intercettare l'evento "disattivazione" delle maschere 2 e 3
per verificare se si sono attivate le maschere sottostanti senza chiudere la
2 o la 3; a quel punto puoi scegliere se chiudere Tu da codice le maschere o
dopo un MsgBox di avvertimento riportare il focus sulle maschere da
chiudere.


title: Contatore d'accesso

text:
Ciao a tutti.... domanda semplice ( spero )
Come posso costruire un contatore d'accesso, ovvero un qualcosa che
tenga conto del numero delle volte che un Db è stato aperto ?
Ciaoo e grazie


title: Contatore d'accesso

author: Pablitomf (Maurizio Facciuti)

text:
Nerowolf63 ha scritto:


> Ciaoo e grazie
all'apertura della form iniziale aggiungi un record in una tua
Tab_Login... poi basta contarli per saperne il risultato.
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: MSXML2.XMLHTTP

author: carlo ruggieri

text:
ho tre cicli do loop nidificati
all'interno lavoro su due recordset di una tabella e di una query facendo
richieste MSXML2.XMLHTTP
dopo qualche migliaio di richieste mi si blocca il computer
cosa potrebbe essere? un buffer? effettuo regolarmente l'update della
tabella
grazie


title: MSXML2.XMLHTTP

author: Alessandro Cara

text:
carlo ruggieri wrote:
> ho tre cicli do loop nidificati
> all'interno lavoro su due recordset di una tabella e di una query facendo
> richieste MSXML2.XMLHTTP
>
>
> dopo qualche migliaio di richieste mi si blocca il computer
si blocca o rallenta?
> cosa potrebbe essere? un buffer? effettuo regolarmente l'update della
> tabella
con UPDTE/INSERT? se possibile ti consiglierei di usare un oggetto. E'
piu' veloce ed il problema di cui sopra e', a me e' capitato un forte
rallentamento, reso molto meno evidente. Comincia a comparire dopo
qualche centinaio di migliaia di record. Al tempo non sono riuscito ad
uscirne.  Fai inoltre molta attenzione a possibili "memory leak" (usa un
qualche aggeggio che ti dia lo stato di occupazione della memoria)
poiche' se rimangono attivi degli oggetti (i.e. recordset ot similia) il
sistema ha a disposizione sempre meno memoria operativa e passa il tempo
a fare paginazione fino al raggiungimento del blocco.
>
> grazie
>
>
--
ac
y-1=x


title: Ricerca per accettare la validità di un campo

author: Lo

text:
Vedo che nessuno ha risposto alla mia richiesta di aiuto Ciclo su
query della scorsa settimana...
Forse non mi sono spiegata bene.
Ci riprovo:
Ho una tabella Prestazioni
Campi Data, Cliente, TipoArea (casella combinata con TabTipoArea),
Oggetto ...
Tabella TabTipoArea ha solo un campo Descrizione (contabilità, ici,
dichiarazioni eccc) per agganciarla con TipoArea nella tabella
Prestazioni
Tabella Servizi
Campi AnnoRiferimento, Cliente, Servizio.
Faccio una simulazione:
Tab Servizi
2012, Pippo, Contabilità
2012, Pippo, Ici
2012, Pluto, Ici
Quando compilo la tab Prestazioni invece:
06/02/2012, Pippo, Contabilità, Inserito mese di gennaio
06/02/2012, Pluto, Contabilità.......
ecco qui dovrebbe bloccarmi e dirmi: il cliente Pluto non ha attivato
per il 2012 il servizio contabilità.
Se le relazioni fossero 1 a 1 non avrei problemi in quanto nella
maschera prestazioni l'origine dati potrebbe essere una query con
prestazioni e servizi e clienti
In questo caso invece se faccio una query non riesco perchè mi
aumentano le prestazioni per ogni servizio e non riesco a sistemare
neanche cambiando i tipo join.
La mia idea sarebbe quella di andare (ogni volta che compilo la
maschera prestazioni) a consultare una query servizi facendole fare un
ciclo e vedere se per quel cliente, quel servizio e per quell'anno
trova un campo uguale.

Chissà se sono riuscita a farmi campire... e se avete un'idea da
propormi o se la mia è fattibile...
Grazie ancora


author: Vladimiro Leone

text:

Ciao Lo,
sono andato anche a leggermi l'altro post, ma di fatto non è che cambi
molto! :-)
Secondo me ti stai inventando qualcosa che esula da una semplice
programmazione relazionale tra tabelle. Comunque, se ci dai qualche
spunto in più vedremo di darti una mano.
Per prima cosa, quando compili la tabella Prestazioni, la data per
anno ed il Cliente che poi sono quelli che si trovano nella tabella
Servizi, li inserisci tu manualmente?
Ciao Vladimiro


text:

> Ciao Vladimiro- Nascondi testo citato
>
> - Mostra testo citato -

Io ogni giorno inserisco le prestazioni, con la data odierna, il
cliente a cui ho fatto la prestazione e il tipo di prestazione (tipo
area) con una descrizione (oggetto).
Per ogni cliente ho compilato poi una tabella servizi con i servizi
che mi paga per ogni anno.
Per cui tipo nel 2012 il cliente Pluto ha pagato per il servizio Ici e
non per il servizio contabilità.
Quindi quando io vado a compilare le prestazioni, il programma
dovrebbe controllarmi la data odierna che è nell'anno 2012 per cui
Pluto ha pagato il servizio Ici, il cliente e il servizio.
Se io compilassi in data odierna una prestazione Contabilità lui
dovrebbe dirmi che quel cliente non ha pagato per contabilità ma solo
per ici.
E' una spiegazione un pèo' contorta ma non so come meglio spiegarmi.
Forse potrei sulla combo tipoarea creare una query tipo:

select servizio from Servizi where (cliente=Form!Prestazioni!Cliente)
and DataRiferimento=Year(data) group by Cliente;

non l'ho ancora collaudata ma in questo modo vedrei solo i servizi che
il cliente mi ha pagato, io invece vorrei comunque vederli tutti e che
mi faccia solo un alert nel caso il servizio scelto non sia nella tab
Servizi.

Così va meglio?

Grazie per l'interessamento


text:

> Grazie per l'interessamento- Nascondi testo citato
>
> - Mostra testo citato -

Dunque, tu hai una form dove inserisci le prestazioni un dato cliente
per un dato servizio (che lui pagherà). Vuoi evitare di poter inserire
una prestazioni per un servizio che il cliente suddetto non paga
(giusto?)
Se il caso fosse questo, io agirei in maniera diversa. se immagini che
per l'inserimento nella tabella Prestazioni il Servizio sia una
combobox, il problema l'hai già risolto. Cominci l'inserimento, appena
inserito il cliente generi il recordsource della combo con una cosa
tipo

SELECT ServiziDescrizione FROM Servizi WHERE IdCLiente=xxx AND
year(anno)=year(now())

o similare (non conosco la tua struttura)
Ora è impossibile inserire un servizio errato


text:
On 6 Feb, 21:43, Lo <
lozan...@libero.it
> wrote:

> Grazie per l'interessamento- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Lo,
la domanda che ti ho fatto e a cui non hai risposto mi avrebbe dato
modo di farti capire come impostare il programma, cioè adottando una
relazione molti a molti. Comunque, vedi un pò se va bene questo primo
approccio:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
Cliente='" & Replace(Me.Cliente, "'", "''") & "'")
Do Until rs.EOF
If rs!AnnoRiferimento = Format(Me.Data, "yyyy") Then
If InStr(1, Me.Oggetto, "contabilità", 0) > 0 Then
If rs!Servizio <> "contabilità" Then
MsgBox ("Attenzione, la contabilità non è presente."), vbExclamation
Cancel = True
Me.Oggetto.SetFocus
Exit Sub
End If
End If
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Adesso bisogna studiare il modo in cui mettere nella funzione InStr,
al posto di "contabilità", il campo con le varie opzioni (ici, ecc...)
Siccome è un po' tardino, ci sentiamo domani sera.
Ciao Vladimiro.


text:

> Ciao Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -

ops, deve salvaguardarsi anche dalla data non presente:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
Cliente='" & Replace(Me.Cliente, "'", "''") & "'")
Do Until rs.EOF
If rs!AnnoRiferimento = Format(Me.Data, "yyyy") Then
If InStr(1, Me.Oggetto, "contabilità", 0) > 0 Then
If rs!Servizio <> "contabilità" Then
MsgBox ("Attenzione, la contabilità non è presente."), vbExclamation
Cancel = True
Me.Oggetto.SetFocus
Exit Sub
End If
End If
Else
MsgBox ("Attenzione, la contabilità non è presente."), vbExclamation
Cancel = True
Me.Oggetto.SetFocus
Exit Sub
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Di nuovo Vladimiro.


text:

> Ora è impossibile inserire un servizio errato- Nascondi testo citato
>
> - Mostra testo citato -

Si in effetti potrebbe andare bene se non fosse che io devo comunque
poter inserire una prestazione anche se il cliente non ha pagato per
il servizio, (quindi devo poter vedere tutti i servizi), ma devo
saperlo con un messaggio perchè se ho sbagliato a digitare il tipo
area ok altrimenti devo sapere che il cliente non ha ancora pagato per
quel servizio...
Grazie comunque dell'aiuto.


author: Stefano

text:

Ciao, prova in questo modo:
nella casella combinata TabTipoArea, vai negli eventi e su "dopo
aggiornamento", inserisci questo codice:

Private Sub TabTipoArea_AfterUpdate()
Dim controllo As String
controllo = Nz(DLookup("[Servizio]", "servizi", "[AnnoRiferimento] = '"
& Year(Me.Data) & "' and [Cliente] = '" & Me.Cliente & "' and [Servizio]
= '" & Me.TipoArea & "'"), "nontrovato")

If controllo = "nontrovato" Then
     MsgBox "il cliente " & Me.Cliente & " non ha attivato per il " &
Year(Me.Data) & " il servizio " & Me.TipoArea & "."
     Me.TipoArea = ""
     Me.Cliente.SetFocus
End If

End Sub

Ciao.

Stefano


text:

> Di nuovo Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -

Grazie Vladimiro,
i dati nella maschera Prestazioni li inserisco io manualmente ogni
giorno per tutti i clienti che lavoro ogni giorno.
Di quello che hai scritto ci capisco poco ma credo che possa andar
bene per il mio problema, appena oggi ho un attimo di tempo lo provo
poi ti faccio sapere.
Grazie mille


text:

> Grazie mille- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Lo,
se non sono molte, mi scrivi tutte le prestazioni inserite nella
tabella TabTipoArea?
Ciao Vladimiro


text:
Ciao Lo, facciamo così, tanto è la stessa cosa; nel senso che ci puoi
lo stesso arrivare da sola (sempre se questo cazzabuglia vada bene e
non pensi di mettere mano seriamente a tabelle relazionate).
Mettiamo che le descrizioni siano 3 ( "contabilità", "ici", "altro" ),
nel momento in cui nell'oggetto inserisci tra le varie parole una di
queste descrizioni e nella tabella Servizi, dove il Cliente e la data
sono uguali al Cliente e all'anno di riferimento dell'attuale tabella
Prestazioni, non trova la stessa descrizione, esce il messaggio di
errore:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento ='" & _
Replace(Year(Me.Data), "'", "''") & "'" & " And Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")
Do Until rs.EOF
If InStr(1, Me.Oggetto, "contabilità", 0) > 0 _
And rs!Servizio <> "contabilità" Then
MsgBox " Non c'è contabilità"
ElseIf InStr(1, Me.Oggetto, "ici", 0) > 0 _
And rs!Servizio <> "ici" Then
MsgBox " Non c'è ici"
ElseIf InStr(1, Me.Oggetto, "altro", 0) > 0 _
And rs!Servizio <> "altro" Then
MsgBox " Non c'è altro"
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Ciao Vladimiro.


text:

Ciao,

scusa ma ieri non sono riuscita a fare prove.
Le descrizioni sono molte (più di 20) e possono essere oggetto di
aggiunte e/o modifiche nel tempo.
Prometto che oggi cercherò di fare le prove... il tempo è sempre
tiranno!
Grazie comunque per la tua pazienza e disponibilità
Lo


text:

Eccoci con le prove...
Ho modificato come segue:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento ='" & Replace(Year(Me.Data), " '", "''") & "'" & " And
IdAna='" & Replace(Me.IdAna, "'", "''") & "'")
Do Until rs.EOF
If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA'" & "*" Then
MsgBox " Non c'è contabilità"

End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Al momento mi serve solo verificare di avvisarmi di non inserire
prestazioni per clienti che non hanno pagato contabilità ordinaria o
contabilità semplificata come indicato nella tabella servizi ma di non
impedirmelo.
Mi da errore nel rigo Set rs... così ho provato a scrivere tutto su un
solo rigo (mi dava errore di compilazione).
Ho provato però a lanciare il codice nella maschera e mi da errore
runtime 3464 Tipi di dati non corrispondenti nell'espressione,
eppure sembrano scritti in modo corretto IdAna è un campo numerico da
entrambe le parti, invece AnnoRiferimento è numerico in Servizi e il
campo Data è Data/ora in Prestazioni.
Riesci a capire dov'è il problema?
Grazie ancora tantissime, spero di poter contraccambiare in qualche
modo il tuo aiuto.
Lo


text:
On 8 Feb, 01:19, Vladimiro Leone <
vladil...@alice.it
> wrote:

Eccoci, sono riuscita a fare qualche prova. Ho modificato il tuo
codice come segue:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento='" & Replace(Year(Me.Data), "'", "''") & "'" & " And
IdAna='" & _
Replace(Me.IdAna, "'", "''") & "'")
Do Until rs.EOF
If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA'" & "*" Then
MsgBox " Non c'è contabilità"

End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

mettendo la parte Set rs... tutto su un rigo perchè altrimenti mi dava
errore di compilazione in rosso.
Lanciando il codice da maschera Prestazioni mi da comunque il seguente
errore:

Errore di runtime 3464
Tipi di dati non corrispondenti nell'espressione
Eppure credo di averli inseriti giusti: IdAna è numerico sia in tab
servizi che in tab Prestazioni. Il campo AnnoRiferimento invece è
numerico intero lungo in servizi e il campo data è Data/ora in
prestazioni..
Hai qualche dritta da suggerirmi?
Spero di poter contraccambiare la tua cortesia in qualche modo.
Grazie ancora
Lo


text:

Per andare a capo devi usare il trattino basso ( _ )
Ad esempio:
MioCampo =" & _
Me.AltroCampo

> Lanciando il codice da maschera Prestazioni mi da comunque il seguente
> errore:
>
> Errore di runtime 3464
> Tipi di dati non corrispondenti nell'espressione
> Eppure credo di averli inseriti giusti: IdAna è numerico sia in tab
> servizi che in tab Prestazioni. Il campo AnnoRiferimento invece è
> numerico intero lungo in servizi e il campo data è Data/ora in
> prestazioni..
> Hai qualche dritta da suggerirmi?

Mi pare ovvio che ti esca l'errore in quanto i miei dati con le
virgolette si applicano a campi di tipo testo ( anche per nomi con
l'apostrofo), mentre per campi di tipo numerico non si usa nulla e per
campi di tipo data (non è il tuo caso) si usa il cancelletto ( # )
Comunque, il confronto all' AnnoRiferimento é:
AnnoRiferimento =" & Year(Me.Data)
mentre, pur non conoscendo il motivo che ti ha indotto a non usare il
campo Cliente, il confronto all' IdAna è:
IdAna=" & IdAna

> Spero di poter contraccambiare la tua cortesia in qualche modo.
> Grazie ancora
> Lo- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Vladimiro.


text:

> Ciao Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -

Ok Ho cambiato IdAna con Cliente. Mi sembrava più giusto usare l'id
però ti ho ascolltato.
Adesso è cambiato l'errore:
Errore di runtime 3075
Errore di sintassi (operatore mancante) nell'espressione della query
'AnnoRiferimento=2012' and Cliente='Pluto"
Il codice che ho scritto io è il seguente:
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento=  " & (Year(Me.Data)) & "'" & " And Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")

Capisci perchè?
Grazie ciao Lo


text:

> Stefano- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Stefano,
mi ero persa la tua idea...
Ho provato ma anche se il servizio è attivato mi da il messaggio che
non ha trovato il servizio.
In più comunque non posso andare avanti lo stesso come invece vorrei.

Io ho riscritto il tuo codice come segue:

Dim controllo As String
controllo = Nz(DLookup("[Servizio]", "servizi", "[AnnoRiferimento] =
'" & Year(Me.Data) & "' and [RagioneSociale] = '" & Me.RagioneSociale
& "' and [Servizio]" _ & "'" = " & Me.TipoArea & "), "nontrovato")

If controllo = "nontrovato" Then
     MsgBox "il cliente non ha attivato il servizio "
     Me.TipoArea = ""
     Me.TipoArea.SetFocus

End If

Ho aggiunto & "'" dopo [Servizio]" perchè nella tabella servizi mi
sono accorta che potrei avere anche altre scritte dopo contabilità
(es. contabilità ordinaria).
Sei sicuro che in questo modo il codice vada a cercare nella tabella
servizi per tutti i righi dello stesso anno e dello stesso cliente?
Perchè per ogni cliente potrei avere più righi per ogni servizio
attivato...
Grazie anche a te per l'interessamento.
Spero tu possa aiutarmi nella soluzione di questo mio problema.
Ciao Lo


text:

> Grazie ciao Lo- Nascondi testo citato
>
> - Mostra testo citato -

Scusa, ma hai letto la mia risposta?
Un pò più di impegno non farebbe male!!!
:-)
Ciao Vladimiro.


text:

[cut]

> Ciao Stefano,
> mi ero persa la tua idea...
> Ho provato ma anche se il servizio è attivato mi da il messaggio che
> non ha trovato il servizio.
> In più comunque non posso andare avanti lo stesso come invece vorrei.
>
> Io ho riscritto il tuo codice come segue:
>
> Dim controllo As String
> controllo = Nz(DLookup("[Servizio]", "servizi", "[AnnoRiferimento] =
> '"&  Year(Me.Data)&  "' and [RagioneSociale] = '"&  Me.RagioneSociale
> &  "' and [Servizio]" _&  "'" = "&  Me.TipoArea&  "), "nontrovato")
>
> If controllo = "nontrovato" Then
>       MsgBox "il cliente non ha attivato il servizio "
>       Me.TipoArea = ""
>       Me.TipoArea.SetFocus
>
> End If
>
> Ho aggiunto&  "'" dopo [Servizio]" perchè nella tabella servizi mi
> sono accorta che potrei avere anche altre scritte dopo contabilità
> (es. contabilità ordinaria).
> Sei sicuro che in questo modo il codice vada a cercare nella tabella
> servizi per tutti i righi dello stesso anno e dello stesso cliente?
> Perchè per ogni cliente potrei avere più righi per ogni servizio
> attivato...
> Grazie anche a te per l'interessamento.
> Spero tu possa aiutarmi nella soluzione di questo mio problema.
> Ciao Lo

Ciao Lo.
Io credo che il problema non si ponga perchè se tu hai come tipo area
Contabilità ordinaria, contabilità semplificata, contabilità analitica,
ecc. quando fa la ricerca ti cerca tutto il campo per esteso per cui c'è
solo un record con quel cliente, quell'anno e quel servizio.
Secondo me il " _&  "'" non va inserito piuttosto, visto che il tipo è
testo, potresti mettere
&  "' and [Servizio] = '" &  Me.TipoArea & "'"), "nontrovato")

Comunque io l'ho testato e funziona correttamente.
Fammi sapere.

Ciao.

Stefano


text:

> Stefano- Nascondi testo citato
>
> - Mostra testo citato -- Nascondi testo citato
>
> - Mostra testo citato -

Grazie per la risposta,

il problema però è inverso nel senso che posso trovare in modo
generico Contabilità in tipo area, è invece in servizio che vado
eventualmente a distinguere il tipo di contabilità...

Grazie ciao Lo


text:

Scusa ma evidentemente non ho capito...
Ho ricambiato IdAna che era numerico con cliente come mia hai
suggerito tu, il risultatoè che è cambiato l'errore ma ancora non
funziona...
Qual' la risposta che non avrei capito?
Perdona la mia cocciutaggine ma non ci arrivo.
Giuro che l'impegno ce lo metto...
Ancora grazie
Lo


text:
Scusami Lo, nel risponderti ti avevo scritto:
Mi pare ovvio che ti esca l'errore in quanto i miei dati con le
virgolette si applicano a campi di tipo testo ( anche per nomi con
l'apostrofo), mentre per campi di tipo numerico non si usa nulla e
per
campi di tipo data (non è il tuo caso) si usa il cancelletto ( # )
Ora, tu continui a scrivere:
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento= " & (Year(Me.Data)) & "'" & " And Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")
Mentre mi hai specificato che AnnoRiferimento è un campo numerico;
come vuoi che non ti esca l’errore?
Tagliamo la testa al toro, la sintassi giusta è:
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento= " & (Year(Me.Data)) & " And Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")
Un’altra cosa, tu parli di campo Id e del suo utilizzo al posto di
Cliente. Dunque, in genere il nome Id viene dato in una prima tabella
ad un campo assegnandogli come tipo dati “Contatore” e chiave primaria
e un altro campo Id in un’altra tabella con tipo dati “Numerico” in
modo da creare una relazione uno a molti tra le due tabelle. Tutto
questo che significa? Significa che una volta creata una maschera (con
la prima tabella) con sottomaschera (con la seconda tabella)
relazionate e cominci ad inserire nella maschera principale il primo
cliente, con Id=1 quando inserirai i vari servizi (più record nella
sottomaschera) l’Id della sottomaschera sarà sempre Id=1 ; secondo
cliente Id=2 tutti i servizi della sottomaschera saranno Id=2  Fatto
ciò, una volta create altre maschere o report le potrai sincronizzare
solo con il campo Id (che, giusto per essere precisi, nelle maschere o
report si chiamano caselle di testo e non campi). Ad esempio:
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where Id= " &
Me.Id
Però da quello che ho capito, non hai tabelle relazionate, per cui,
l’unica sincronizzazione, la puoi avere con il cliente andando a
spulciare nell’anno di riferimento.
Ciao Vladimiro.


text:

Pardon, puoi evitare le parentesi:
AnnoRiferimento= " & Year(Me.Data) & " And Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")

Di nuovo Vladimiro


text:
On 9 Feb, 18:45, Vladimiro Leone <
vladil...@alice.it
> wrote:
> Scusami Lo, nel risponderti ti avevo scritto:
> Mi pare ovvio che ti esca l'errore in quanto i miei dati con le
> virgolette si applicano a campi di tipo testo ( anche per nomi con
> l'apostrofo), mentre per campi di tipo numerico non si usa nulla e
> per
> campi di tipo data (non è il tuo caso) si usa il cancelletto ( # )

Hai ragione, io continuavo a controllare il cliente non facendo caso
all'anno...

Ciao Vladimiro,

porta pazienza, ora ho risolto il problema di cui sopra ma ne ho un
altro:

Il seguente codice che mi hai scritto mi pare giusto:

If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> ("CONTABILITA'" & "*") Then
MsgBox " Non c'è contabilità"
End If

Ma non funziona come dovrebbe, nel senso che, se inserisco un cliente
che in tab servizi non ha attivato il servizio Contabilità e io in
prestazioni inserisco contabilità non mi esce nessun messaggio, se
invece inserisco un cliente che ha attivato il servizio contabilità mi
esce il msg "Non c'è contabilità". Esattamente il contrario!

Ho provato così e in mille altri modi ma non riesco a trovare la
quadra:

If InStr(1, Me.TipoArea, "CONTABILITA'", 0) = ("CONTABILITA'") _
And rs!Servizio <> ("CONTABILITA'" & "*") Then
MsgBox " Non c'è contabilità"
End If

So che hai una pazienza da elefante, ti offro un caffè virtuale e ti
chiedo spero l'ultimo aiuto!
Grazie ciao Lo


text:
Ciao Lo,
ma neanche a ricopiare sei capace!!! (scherzo eh, non ti offendere)

> If InStr(1, Me.TipoArea, "CONTABILITA'", 0) = ("CONTABILITA'") _
> And rs!Servizio <> ("CONTABILITA'" & "*") Then
> MsgBox " Non c'è contabilità"
> End If

If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA'" Then
MsgBox " Non c'è contabilità", vbInformation
End If

Se invece vuoi scrivere tutto su un rigo (ad esclusione dell'MsgBox)
devi togliere il trattino basso dopo:
>0
Ciao Vladimiro


text:

Ciao Vladimiro,

per restare in tema forse questa volta sei tu che non hai capito il
mio problema...
Scrivendo il codice che mi hai suggerito e cioè

If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA'" Then
MsgBox " Non c'è contabilità", vbInformation
End If

non funziona come dovrebbe, nel senso che quando in prestazioni
inserisco Contabilità (e in servizi il cliente non ha attivato il
servizio) non mi esce nessun messaggio.
Quando invece inserisco una prestazione di un cliente (che in servizi
ha attivato il servizio Contabilità) per cui non dovrebbe uscirmi
nessun messaggio mi esce il messaggio " Non c'è contabilità".
Ho provato a cambiare in mille modi il codice come quello che ti ho
detto nel precedente post ma non funzionava comunque.
Ho la mente atrofizzata probabilmente, ma non mi viene in mente
nessuna soluzione corretta.
Sono riuscita a spiegare il mio problema?
Grazie ancora
Sigh che fatica...


text:

> Sigh che fatica...- Nascondi testo citato
>
> - Mostra testo citato -

Ciao Lo, che dirti? Vediamo se sono io a non aver capito quello che ti
serve.
Al seguente link c'è un db di esempio:
"Confronto Servizi e Prestazioni"
Modifica o aggiungi qualcosa ai record con data 2013

https://skydrive.live.com/?cid=dfdfb766aa86f9d8&sc=documents&uc=1&id=DFDFB766AA86F9D8%21112

Ciao Vladimiro.


text:

>
https://skydrive.live.com/?cid=dfdfb766aa86f9d8&sc=documents&uc=1&id=.
..
>
> Ciao Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -

Sei fantastico!
Hai simulato perfettamente la mia situazione e finalmente, prova e
riprova, ho capito dove non funziona.
Ti spiego:
se io inserisco in Prestazioni un cliente presente in anagrafica e non
in servizi o anche un cliente presente in anagrafica e presente in
servizi per anni diversi da quello in corso, non esce il messaggio.
Per esempio nel db preparato da te se io inserisco una prestazione per
Topolino nel 2013, non esce nessun messaggio, se la inserisco nel 2012
(Topolino nel 2012 ha un servizio attivato) funziona il messaggio.
Ecco una delle ragioni perchè con me impazziva e non faceva quello che
avrei voluto facesse.
Mago come sei hai una soluzione amche per questo?

In più ti dico che rifacendo le prove con contabilità scritto
maiuscolo CONTABILITA' non funziona
If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA" & "*" Then

Tieni conto che ho la necessità in Servizi di inserire CONTABILITA'
ORDINARIA o SEMPLIFICATA, mentre in Prestazione ho la necessità di
scrivere come TipoArea solo CONTABILITA' (senza specificare il tipo)
GRAZIEEEEE PER LA TUA PAZIENZA
Lo


text:
On 11 Feb, 00:28, Vladimiro Leone <
vladil...@alice.it
> wrote:

>
https://skydrive.live.com/?cid=dfdfb766aa86f9d8&sc=documents&uc=1&id=.
..
>
> Ciao Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -

Mi ero scordata di dirti che ho fatto anche le prove mettendo or
anzichè and in questa riga:

Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento =" & _
Year(Me.Data) & " and Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")

Così funzionerebbe se non fosse che mi fa uscire il messaggio per ogni
servizio e ogni anno caricato in Servizi...
Idee?
grazie ciao Lo


text:
Ciao Lo,
ho fatto un copia-incolla in modo da risponderti in un’unica volta.

============================================
In più ti dico che rifacendo le prove con contabilità scritto
maiuscolo CONTABILITA' non funziona
If InStr(1, Me.TipoArea, "CONTABILITA'", 0) > 0 _
And rs!Servizio <> "CONTABILITA" & "*" Then
============================================
Risposta:

1)	Non serve inserire & "*"
2)	Il carattere maiuscolo o minuscolo si differenzia solo in: InStr(1,
Me.TipoArea, "CONTABILITA'", 0) > 0  per cui se decidi di scrivere in
TipoArea tutto maiuscolo va bene così, altrimenti con contabilità
scritta in minuscolo la funzione InStr deve essere modificata così: If
InStr(1, Me.TipoArea, "contabilità", 0) >

============================================
Tieni conto che ho la necessità in Servizi di inserire CONTABILITA'
ORDINARIA o SEMPLIFICATA, mentre in Prestazione ho la necessità di
scrivere come TipoArea solo CONTABILITA' (senza specificare il tipo)
============================================
Risposta:

a questo punto, anche in Servizi devi decidere se scrivere maiuscolo o
minuscolo; io ho scelto di scrivere minuscolo e pertanto:
If InStr(1, Me.TipoArea, "contabilità", 0) > 0 _
And InStr(1, rs!Servizio, "contabilità", 0) = 0 Then
MsgBox " Il cliente " & Me.Cliente & "  non ha attivato per il " &
Year(Me.Data) & "  il servizio contabilità.", vbInformation

============================================
Mi ero scordata di dirti che ho fatto anche le prove mettendo or
anzichè and in questa riga:
============================================
Risposta:

lascia perdere :-)

============================================
Set rs = CurrentDb.OpenRecordset("Select * From Servizi Where
AnnoRiferimento =" & _
Year(Me.Data) & " and Cliente='" & _
Replace(Me.Cliente, "'", "''") & "'")
Così funzionerebbe se non fosse che mi fa uscire il messaggio per
ogni
servizio e ogni anno caricato in Servizi...
============================================
Risposta:

If InStr(1, Me.TipoArea, "contabilità", 0) > 0 _
And InStr(1, rs!Servizio, "contabilità", 0) = 0 Then
MsgBox " Il cliente " & Me.Cliente & "  non ha attivato per il " &
Year(Me.Data) & "  il servizio contabilità.", vbInformation
Cancel = True
Exit Sub

Cancel= True e Exit Sub servono: il primo per rimanere sullo stesso
record, il secondo per terminare di scorrere la tabella Servizi.
Ciao Vladimiro.


title: Collegarsi ad un BE protetto da password

author: Mad® Milox

text:
Risalve a tutti ...
Risono qui con il mio problemino di collegarmi dal mio db principale ad un
BE protetto da password (database password) . Rispetto al post precedente
... dove non volevo provare le soluzioni via ODBC .. a sto giro preso dalla
disperazione .... e dopo ore di lettura degli help vari ... ho provato pure
la via ODBC .. ma non mi si apre una mazza .. dice sempre password non
valida.
Qualcuno ha qualche suggerimento in merito ?? (anche di buttare via
tutto!! )
per cronaca .. il mio db principale si chiama Storer.mdb il suo beckend
BE.mdb (collegato), il db di archivio di roba vecchia che ho protetto con
password si chiama BEOld.mdb (la password .. semplicemente "test" ) e lo
voglio collegare solo all'occorenza. il BE principale l'ho collegato da
manu' -> collega tabella che mi chiede la password , la metto e lui mi
ricollega le tabelle  tranquillamente.
Grazie in aticipo :))
--
(^o^))~    Lorenzo   (^o^))~


text:
cio' messo un po' pero' ce l'ho fatta .. rispetto al codice che avevo
postato la volta scorsa con lo stesso problema .. mi ero perso un " ; " per
la strada e non funzionava ...
cmq grazie lo stesso :))
"Mad® Milox" <
madm...@tin.it
> ha scritto nel messaggio
news:9egp7p$fl1$3...@lacerta.tiscalinet.it...



title: Stringa SQL con richiamo campo single

author: Lucio

text:
Ho scritto all'interno di una sub la seguente istruzione
DoCmd.RunSQL "INSERT INTO operazioni ( Numero, operatore ) VALUES (" &
Cifradep & ", '" & Nome & "')"
Il campo Cifradef è definito come single e in un esempio dove ha il  valore
520000
la stringa SQL diventa:
INSERT INTO operazioni ( Numero, operatore ) VALUES  (520000,'Rossini')
ma se il campo, per esempio, assume il valore 82000000 la stringa diventa:
INSERT INTO operazioni ( Numero, operatore ) VALUES  (8,2E+07,'Rossini')
Chiaramente in questo caso l'esecuzione SQL va in errore di run-time '3346'
in quanto all'interno delle parentesi sembra vi sia la compilazione di 3
campi (8 e 2E+07 e 'Rossini')
E' possibile evitare questo inconveniente?
Grazie anticipate per l'attenzione.
Lucio


title: Stringa SQL con richiamo campo single

author: Sib dal portatile

text:
"Lucio" <
luci...@tiscalinet.it
> ha scritto nel messaggio
> Ho scritto all'interno di una sub la seguente istruzione
> DoCmd.RunSQL "INSERT INTO operazioni ( Numero, operatore ) VALUES (" &
> Cifradep & ", '" & Nome & "')"
> Il campo Cifradef è definito come single e in un esempio dove ha il
valore
> 520000
> la stringa SQL diventa:
> INSERT INTO operazioni ( Numero, operatore ) VALUES  (520000,'Rossini')
>
> ma se il campo, per esempio, assume il valore 82000000 la stringa diventa:
> INSERT INTO operazioni ( Numero, operatore ) VALUES  (8,2E+07,'Rossini')
>
> Chiaramente in questo caso l'esecuzione SQL va in errore di run-time
'3346'
> in quanto all'interno delle parentesi sembra vi sia la compilazione di 3
> campi (8 e 2E+07 e 'Rossini')
Non capisco dove ti capita questo inconveniente.
Ho la sensazione che la tua variabile Cifradef non sia di tipo single ma di
tipo text o variant e che tu assegni il valore alla variabile provocando la
conversione del numero in stringa.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Stringa SQL con richiamo campo single

text:
Sib dal portatile <
sibN...@iol.it
> wrote in message
h_nz7.41422$1H1.5...@news.infostrada.it...
> Non capisco dove ti capita questo inconveniente.
> Ho la sensazione che la tua variabile Cifradef non sia di tipo single ma
di
> tipo text o variant e che tu assegni il valore alla variabile provocando
la
> conversione del numero in stringa.
>
> Sib
>
> --
> ----------------------------------------------------
> la mia home:
>
http://digilander.iol.it/syb
> ----------------------------------------------------
grazie Sib per la risposta!
Il campo è dichiarato Single, ma a scanso di equivoci prova questa function
-------------------------------
Function CampoSingle()
Dim Cifra As Single
    Cifra = 800678899
    MsgBox Cifra
End Function
-------------------------------
a me da il risultato 8,006789E+08
ciao, Lucio


title: Stringa SQL con richiamo campo single

author: Silvio Berruti

text:
"Lucio" <
luci...@tiscalinet.it
> ha scritto nel messaggio
news:z5Iz7.10540$V75.2...@news1.tin.it...

Un saggio un giorno mi disse: "Mai campi dichiarati Single"
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Stringa SQL con richiamo campo single

author: Antonio Biso

text:
Silvio Berruti <
sber...@libero.it
> wrote in message
pV1A7.55118$1H1.6...@news.infostrada.it...
>
> Un saggio un giorno mi disse: "Mai campi dichiarati Single"
>
Sicuramente il saggio è posteriore agli 8086...
Antonio


title: Stringa SQL con richiamo campo single

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:r02A7.55161$1H1.6...@news.infostrada.it...

Molto posteriore, visto quanto è grasso!
:-)



title: criteri in query su campo testo

author: Marco

text:
Attraverso una query desidererei trovare i record che in un campo testo
hanno es "ind (5)" o "ind (5+)" .
E' possibile ?
grazie


title: criteri in query su campo testo

author: Ivan da casa

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:44c28093$0$32140$4faf...@reader1.news.tin.it...

Se usi il generatore automatico di query devi inserire le due stringhe
cercate neaa zona criteri, una sotto l'altra per indicare OR.
Se la stringa NON č precisamente quella che hai scritto, ma puň essere
CONTENUTA all'interno di una descrizione piů lunga allora devi usare i
caratteri jolly : * (asterisco) o ? (punto interrogativo).
nel tuo caso scriverai : "*ind (5)*"  e nella riga sotto "*ind (5+)*"
qui non ho usato il ? (punto interrogativo) perchč non ce ne č bisogno.
Se invece vuoi dare un'occhiata alla sintassi giusta per scrivere la query
allora la componi come sopra e poi dal menu scegli visualizza SQL e cosě
puoi anche imparare la sequenza sql per ottenere quanto sopra. Questo ti puň
servire se devi costruire la query in VBA.
IvanDaBologna


title: criteri in query su campo testo

text:
"Ivan da casa"  wrote
> Se usi il generatore automatico di query devi inserire le due stringhe
> cercate neaa zona criteri, una sotto l'altra per indicare OR.
> Se la stringa NON č precisamente quella che hai scritto, ma puň essere
> CONTENUTA all'interno di una descrizione piů lunga allora devi usare i
> caratteri jolly : * (asterisco) o ? (punto interrogativo).
>
> nel tuo caso scriverai : "*ind (5)*"  e nella riga sotto "*ind (5+)*"
>
> qui non ho usato il ? (punto interrogativo) perchč non ce ne č bisogno.
>
> Se invece vuoi dare un'occhiata alla sintassi giusta per scrivere la query
> allora la componi come sopra e poi dal menu scegli visualizza SQL e cosě
> puoi anche imparare la sequenza sql per ottenere quanto sopra. Questo ti
> puň servire se devi costruire la query in VBA.
>
> IvanDaBologna
>
Io avevo provato con like, ma con entrambi non funziona.
naturalmente non capisco perchč.
il campo č un campo testo
alcuni record iniziano con "ind" spazio "(5)" solitamente seguiti da altro
testo.
altri con "ind" spazio "(5+)" testo
altri con "ind" spazio "(0)" testo
etc
per curiositŕ ho provato con il testo completo e funziona ma trova un record
solo come č logico che sia.
es "ind (5) test"
non riesco a capire qual'č il problema, se non che * non serve per trovare
tutti i record con una parte simile, la precedente.
grazie


title: criteri in query su campo testo

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:44c37734$0$45302$4faf...@reader3.news.tin.it...
>
> "Ivan da casa"  wrote
>> Se usi il generatore automatico di query devi inserire le due stringhe
>> cercate neaa zona criteri, una sotto l'altra per indicare OR.
>> Se la stringa NON è precisamente quella che hai scritto, ma può essere
>> CONTENUTA all'interno di una descrizione più lunga allora devi usare i
>> caratteri jolly : * (asterisco) o ? (punto interrogativo).
>>
>> nel tuo caso scriverai : "*ind (5)*"  e nella riga sotto "*ind (5+)*"
>>
>> qui non ho usato il ? (punto interrogativo) perchè non ce ne è bisogno.
>>
>> Se invece vuoi dare un'occhiata alla sintassi giusta per scrivere la
>> query allora la componi come sopra e poi dal menu scegli visualizza SQL e
>> così puoi anche imparare la sequenza sql per ottenere quanto sopra.
>> Questo ti può servire se devi costruire la query in VBA.
>>
>> IvanDaBologna
>>
> Io avevo provato con like, ma con entrambi non funziona.
> naturalmente non capisco perchè.
> il campo è un campo testo
> alcuni record iniziano con "ind" spazio "(5)" solitamente seguiti da altro
> testo.
> altri con "ind" spazio "(5+)" testo
> altri con "ind" spazio "(0)" testo
> etc
> per curiosità ho provato con il testo completo e funziona ma trova un
> record solo come è logico che sia.
> es "ind (5) test"
> non riesco a capire qual'è il problema, se non che * non serve per trovare
> tutti i record con una parte simile, la precedente.
>
> grazie
forse è il modo in cui scrivere il tutto che non ti è chiaro (o per lo meno
io vedo solo questo spiraglio)-
I criteri di Testo vanno scritti tra apici doppi SEMPRE, sopratutto se usi i
caratteri jolly.
l'asterisco sostituisce qualsiasi numero di caratteri dal lato in cui lo
poni. Quindi "ARR*" trova ARROSTO, ARRUBA, ARRIVO ...mentre "*ISSIMO" ti
restituisce BELLISSIMO (io!), STUPIDISSIMO (io!), ATTESISSIMO ......
e per finire "*ORA*" restituisce HORAT, LAVORATORI, CORAGGIO, AUTOSEGADORA
....
invece il punto di domanda ? sostituisce un solo carattere (qualsiasi) in
quella posizione...
"VE?O" restituisce VELO,VERO,VETO .....
In VBA, quando costruisci una query solitamente puoi sostituire i doppi
apici con un apice solo : l'apostrofo.
Io uso questo metodo al posto di inserire i CHR(34) che inserirebbero il
doppio apice.
Ti faccio un esempio
......
    sSQL = "SELECT DITTA FROM [DITTE] WHERE [DITTA] LIKE '" &  cerco & "*'"
in questa riga : cerco è una variabile stringa (prelevata da una casella di
testo), non si notano molto ma dopo il LIKE e dopo l'asterisco c'è un apice
(').
La variabile sSQL  la passo come RecordSource di qualcosa ... per cercare
una DITTA che inizia per cerco!
IvanDaBologna


title: criteri in query su campo testo

text:
"Ivan da casa"  wrote
> forse è il modo in cui scrivere il tutto che non ti è chiaro (o per lo
> meno io vedo solo questo spiraglio)-
> I criteri di Testo vanno scritti tra apici doppi SEMPRE, sopratutto se usi
> i caratteri jolly.
> l'asterisco sostituisce qualsiasi numero di caratteri dal lato in cui lo
> poni. Quindi "ARR*" trova ARROSTO, ARRUBA, ARRIVO ...mentre "*ISSIMO" ti
> restituisce BELLISSIMO (io!),
nel mio caso non mi pronuncio ma penso di no
> STUPIDISSIMO (io!),
forse
>ATTESISSIMO ......
> e per finire "*ORA*" restituisce HORAT, LAVORATORI, CORAGGIO, AUTOSEGADORA
> invece il punto di domanda ? sostituisce un solo carattere (qualsiasi) in
> quella posizione...
> "VE?O" restituisce VELO,VERO,VETO .....
> In VBA, quando costruisci una query solitamente puoi sostituire i doppi
> apici con un apice solo : l'apostrofo.
> Io uso questo metodo al posto di inserire i CHR(34) che inserirebbero il
> doppio apice.
>
> Ti faccio un esempio
>    sSQL = "SELECT DITTA FROM [DITTE] WHERE [DITTA] LIKE '" &  cerco & "*'"
ecco qua io ho provato con un copia incolla sostituendo cerco con ind ma mi
da errore alla fine con ' " ,non posso salvare la query, mi sembra che
voglia ' come ultimo ?
> in questa riga : cerco è una variabile stringa (prelevata da una casella
> di testo), non si notano molto ma dopo il LIKE e dopo l'asterisco c'è un
> apice (').
>
> La variabile sSQL  la passo come RecordSource di qualcosa ... per cercare
> una DITTA che inizia per cerco!
>
> IvanDaBologna
>
Comunque a furia di provare ed interpretare la guida (è in inglese) con *
non funziona e non restituisce nessun record.
Funziona solo :
da Design View
sostituisce Like con ALike e devo mettere % al posto di * es ALike "ind
(5)%" Or ALike "ind (5+)%"
SQL
WHERE (((miocampo) ALike "ind (5)%" Or (miocampo) ALike "ind (5+)%"));
Che tu sappia, da sicuro più esperto di me, c'è un motivo ? dipende dal db
ANSI?
ciao
grazie


title: criteri in query su campo testo

author: giorgio rancati

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:44c3c9fc$0$4493$4faf...@reader2.news.tin.it...
> Comunque a furia di provare ed interpretare la guida (č in inglese) con *
> non funziona e non restituisce nessun record.
> Funziona solo :
> da Design View
> sostituisce Like con ALike e devo mettere % al posto di * es ALike "ind
> (5)%" Or ALike "ind (5+)%"
> SQL
> WHERE (((miocampo) ALike "ind (5)%" Or (miocampo) ALike "ind (5+)%"));
> Che tu sappia, da sicuro piů esperto di me, c'č un motivo ? dipende dal db
> ANSI?
dipende, se hai selezionato l'opzione :
----
Strumenti-->Opzioni--> Scheda Tabelle Query-->Sintassi Compatibile Sql
Server (ANSI 92)
----
allora devi usare il carattere jolly % altrimenti bisogna usare *
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: criteri in query su campo testo

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:44c4113b$0$1002$5fc...@news.tiscali.it...
> "Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
> news:44c3c9fc$0$4493$4faf...@reader2.news.tin.it...
>> Comunque a furia di provare ed interpretare la guida (è in inglese) con *
>> non funziona e non restituisce nessun record.
>> Funziona solo :
>> da Design View
>> sostituisce Like con ALike e devo mettere % al posto di * es ALike "ind
>> (5)%" Or ALike "ind (5+)%"
>> SQL
>> WHERE (((miocampo) ALike "ind (5)%" Or (miocampo) ALike "ind (5+)%"));
>> Che tu sappia, da sicuro più esperto di me, c'è un motivo ? dipende dal
>> db
>> ANSI?
>
> dipende, se hai selezionato l'opzione :
> ----
> Strumenti-->Opzioni--> Scheda Tabelle Query-->Sintassi Compatibile Sql
> Server (ANSI 92)
> ----
> allora devi usare il carattere jolly % altrimenti bisogna usare *
>
> Ciao
> --
> Giorgio Rancati
> [Office Access MVP]
>
ecco il busillis !!
nemmeno io ero a conoscenza di questa binomietà dei caratteri jolly, però
nelle query di Excel (quando usi Microsoft Query) il carattere % come jolly
è obbligatorio, adirittura l'interfaccia ti traduce il Like con simile_a !!!
'ottimo.


title: Focus su maschera PopUp

author: Francesco

text:
Perchè quando apro una maschera PupOp senza bordo, non mi prende il focus ?
Che devo fare ??
Grazie.


title: Focus su maschera PopUp

author: ALESSANDRO Baraldi

text:
"Francesco" <
francov...@tin.it
> ha scritto nel messaggio
news:79217c6f.0502...@posting.google.com...

Chi lo dice che non prende il Focus.
Che difetti ti dà, cosa devi fare....?
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Focus su maschera PopUp

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote in message news:<42127184$0$32346$
5fc...@news.tiscali.it
>...
> "Francesco" <
francov...@tin.it
> ha scritto nel messaggio
> news:79217c6f.0502...@posting.google.com...
> > Perchè quando apro una maschera PupOp senza bordo, non mi prende il focus
> ?
> > Che devo fare ??
> >
> > Grazie.
>
> Chi lo dice che non prende il Focus.
> Che difetti ti dà, cosa devi fare....?
>
> Ciao
Quando apro la form PopUp, devo richiamare una funzione ogni qualvolta
diventa attiva. Ho provato sull'evento Focus, ma non passa.
Ciao.


title: Format

author: Paolo

text:
nel controllo txtmicro devo editare due numeri di un valore
di una sostanza, tale valore è sempre un valore in micro
 edito 12 risultato 0,000012
oppure
edito 24 risultato 0,000.024
utilizzo la sottoindicata routine ma il risultato è questo
0.000.012
Private Sub txtmicro_AfterUpdate()
Me!txtmicro = Format$(str$(Me!txtmicro), "#,0000000")
End Sub
dove sbaglio??
ciao, sono il pizz


title: Format

author: CarloCos

text:
"Paolo" <***
bjh...@tin.it
> ha scritto nel messaggio
news:slul7.79184$vC1.1...@news1.tin.it...
> nel controllo txtmicro devo editare due numeri di un valore
> di una sostanza, tale valore č sempre un valore in micro
>  edito 12 risultato 0,000012
> oppure
> edito 24 risultato 0,000.024
>
> utilizzo la sottoindicata routine ma il risultato č questo
> 0.000.012
>
> Private Sub txtmicro_AfterUpdate()
> Me!txtmicro = Format$(str$(Me!txtmicro), "#,0000000")
> End Sub
>
> dove sbaglio??
>
> ciao, sono il pizz
>
>
>
Non credo che funzioni con Format.
prova a scrivere: Me!txtmicro = Me!txtmicro / 1000000
o, al piů : Me!txtmicro = cstr(Me!txtmicro / 1000000)
Ciao, Carlo
>


title: query con somma progressiva

author: carlo

text:
Ho una tabella con:
articolo (campo testo)
data (data)
qta (numerico)

la chiave è: articolo,data
cioè nella tabella un articolo si ripete n volte quante sono le date, ad
esempio

penna 01/01/2011  5,0
penna 15/01/2011  3,0
penna 15/06/2011  -2,0
biro     02/02/2011  10,0
biro     03/02/2011  -5,0

il risultato che vorrei é:

penna 01/01/2011  5,0
penna 15/01/2011  8,0
penna 15/06/2011  6,0
biro     02/02/2011  10,0
biro     03/02/2011  5,0
cioè il progressivo di qta, ma specifico per articolo...
grazie


title: query con somma progressiva

author: Marco Pizzamiglio

text:
carlo ha scritto:

Ci vuole una subquery che per ogni record vada a fare la somma dei
movimenti di quel'articolo ma con data minore o uguale a quella del record:

SELECT Articoli.articolo, Articoli.data, (SELECT Sum(qta) FROM Articoli
Art2 WHERE Art2.Articolo=Articoli.Articolo And Art2.data<=Articoli.data)
AS Subtot FROM Articoli

Ciao.
-Marco-

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: query con somma progressiva

author: Karl Donaubauer

text:

Prova con quest'espressione per un campo calcolato
nella query (tutto in 1 riga):

DSum("qta";"unatabella";"articolo='" & [articolo] & "' And data<= " &
clng([data]))

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: query con somma progressiva

text:
Prova con quest'espressione per un campo calcolato
nella query (tutto in 1 riga):

DSum("qta";"unatabella";"articolo='" & [articolo] & "' And data<= " &
clng([data]))

cosa intendi per "unatabella" ??


title: query con somma progressiva

text:

Questa:

>> Ho una tabella con:



title: query con somma progressiva

author: BFS

text:
Il 27/02/2012 18:12, Karl Donaubauer ha scritto:
> carlo wrote:
>> Prova con quest'espressione per un campo calcolato
>> nella query (tutto in 1 riga):
>>
>> DSum("qta";"unatabella";"articolo='"&  [articolo]&  "' And data<= "&
>> clng([data]))
>>
>> cosa intendi per "unatabella" ??
>
> Questa:
>
>>> Ho una tabella con:
>

lol

bfs


title: Selezione records in ListBox...

author: Enrico Virginio

text:
Ho una ListBox con origine records una tabella....vorrei avere la
possibilità di avere un pulsante del tipo "Seleziona tutto" che mi
evidenzi tutti i records....e pure la possibilità di evidenziare
manualmente i records ,tipo Win premendo CTRL;
Inoltre, dovrei accodare ad una tabella solo i records selezionati...
IS THIS POSSIBLE ?!
Grazie mille in anticipo
Ciao
Enrico.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Selezione records in ListBox...

author: Paolo P

text:
"Enrico Virginio" <
nor...@libero.it
> ha scritto nel messaggio
news:9cbf69c19b2363d5f4...@mygate.mailgate.org...
> Ho una ListBox con origine records una tabella....vorrei avere la
> possibilità di avere un pulsante del tipo "Seleziona tutto" che mi
> evidenzi tutti i records....e pure la possibilità di evidenziare
> manualmente i records ,tipo Win premendo CTRL;
> Inoltre, dovrei accodare ad una tabella solo i records selezionati...
> IS THIS POSSIBLE ?!
>
> Grazie mille in anticipo
> Ciao
> Enrico.
>
Se non ricordo male deve esserci qualcosa del genere su Northwind.mdb
Ciao Paolo


title: Selezione records in ListBox...

author: Roberto da casa

text:
"Enrico Virginio" <
nor...@libero.it
> ha scritto nel messaggio
news:9cbf69c19b2363d5f4...@mygate.mailgate.org...
> Ho una ListBox con origine records una tabella....vorrei avere la
> possibilità di avere un pulsante del tipo "Seleziona tutto" che mi
> evidenzi tutti i records....
Se la tua casella di riepilogo si chiama Elenco, a fronte dell'evento del
pulsate di comando genera il seguente codice VBA:
    Dim Cont As Integer
    For Cont = 0 To Me!Elenco.ListCount - 1
        Me!Elenco.Selected(Cont) = True
    Next Cont
> e pure la possibilità di evidenziare
> manualmente i records ,tipo Win premendo CTRL;
Imposta a Estesa la proprietà Selezione multipla della tua casella di
riepilogo.
> Inoltre, dovrei accodare ad una tabella solo i records selezionati...
> IS THIS POSSIBLE ?!
IT'S POSSIBLE!!
Se la tabella che contiene i dati si chiama TAB1 ed ha una struttura simile:
ID            Contatore e chiave primaria
Nome       Testo
Se la tabella in cui vuoi accodare i record selezionati si chiama TAB2 ed ha
la stessa struttura di TAB1.
Se la casella di riepilogo si chiama Elenco, ha 2 colonne ed ha come origine
riga il seguente codice SQL:
SELECT ID, Nome FROM TAB1;
Se la proprietà Selezione multipla della casella di riepilogo è impostata a
Estesa.
A fronte dell'evento "Su clic" del pulsante di comando che pigerai per
accodare i record che avrai preventivamente selezionato nella casella di
riepilogo genera il seguente codice VBA che fa riferimento a DAO:
Dim varItem As Variant
Dim Nrec As Integer
Dim rst As Recordset
' Apre un recordset sulla tabella TAB2
Set rst = CurrentDb.OpenRecordset("TAB2")
'Verifica se sono sti selezionati record nella casella di riepilogo
' e in cas caso contrario esce dalla routine
If Me!Elenco.ItemsSelected.Count = 0 Then Exit Sub
Nrec = 0
'Per ogni riga selezionata della casella di riepilogo...
For Each varItem In Me!Elenco.ItemsSelected
    Nrec = Nrec + 1
    'Accoda un nuovo record in TAB2
    rst.AddNew
    'Popola i campi della tabella
    rst!Nome = Me!Elenco.Column(1, varItem)
    'qui popola gli eventuali altri campi
    ' aggiorna il record inserito
    rst.Update
Next varItem
'Invia messaggio con numero record inseriti
MsgBox "Accodati N° " & Nrec & " record"
Chiudi il recordset
Set rst = Nothing
'Deseleziona le righe della casella di riepilogo
Dim Cont As Integer
For Cont = 0 To Me!Elenco.ListCount - 1
    Me!Elenco.Selected(Cont) = False
Next Cont
Come vedi la routine avvisa quanti record ha accodato e deseleziona le righe
della casella di riepilogo che avevi selezionato.
>
> Grazie mille in anticipo
> Ciao
> Enrico.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: metodo findrecord

author: Riccardo Baldinotti

text:
Salve a tutti.
Vorrei sapere se l'istruzione:
docmd.findrecord "dato" ecc.
restituisce qualche valore, da usare in seguito, del tipo: "if found()
then" o qualcosa del genere.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: metodo findrecord

author: Sergio MAZZA

text:
"Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
news:8ccf3e38a018853602f...@mygate.mailgate.org...
> Salve a tutti.
> Vorrei sapere se l'istruzione:
> docmd.findrecord "dato" ecc.
> restituisce qualche valore, da usare in seguito, del tipo: "if found()
> then" o qualcosa del genere.
>
Consultando l'help (A'97) non viene menzionato nulla su un test di tipo "If
found()"; credo che l'unica via sia quello di testare la fine del file "If
Me.RecorSetClone.Eof() Then" se utilizzi il DoCmd.FindRecord...
Ciao.
--
Sergio MAZZA


title: metodo findrecord

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message
news:aek9bg$eco$
1...@canarie.caspur.it
>
> credo che l'unica via sia quello di testare la fine del file "If
> Me.RecorSetClone.Eof() Then" se utilizzi il DoCmd.FindRecord...
>
Grazie del suggerimento. Ho provato in effetti su maschere continue,
ma se non mi trova quanto richiesto (o non me ne trova altri dopo
l'ultimo) il cursore rimane fermo al record di partenza e così non
arrivo mai alla fine del recordset.
Proverei a verificare se effettivamente il contenuto del campo
evidenziato ha la stringa richiesta, ma se ho già trovato un record
che la contiene, anche questa verifica fallisce.
Quello che (non) mi piace della programmazione è l'alone di mistero
che circonda ogni problema, fino al momento in cui trovi (?) la
soluzione e ti dai del fesso per non averci pensato prima ...
Riccardo



title: metodo findrecord

text:
"Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
news:ea74a51fcaaf7088a33...@mygate.mailgate.org...
>
> Grazie del suggerimento. Ho provato in effetti su maschere continue,
> ma se non mi trova quanto richiesto (o non me ne trova altri dopo
> l'ultimo) il cursore rimane fermo al record di partenza e così non
> arrivo mai alla fine del recordset.
> Proverei a verificare se effettivamente il contenuto del campo
> evidenziato ha la stringa richiesta, ma se ho già trovato un record
> che la contiene, anche questa verifica fallisce.
> Quello che (non) mi piace della programmazione è l'alone di mistero
> che circonda ogni problema, fino al momento in cui trovi (?) la
> soluzione e ti dai del fesso per non averci pensato prima ...
> Riccardo
>
Nessun "alone di mistero", devi trovare lo strumento adatto per ogni
situazione. Magari è anche utile inserire più informazioni possibili
riguardo al problema e al contesto (form, nomi controlli etc. etc.); questo
per arrivare presto ad una conclusione e una miglior valutazione da parte di
chi deve aiutarti/vi.
Prima che ti proponga un'altra soluzione, ti consiglio di fare un salto nel
sito comune (
www.sitocomune.com
) per vedere le soluzioni che altri hanno
trovato e pubblicato.
Se non trovi nulla allora ri-posta e vediamo di risolvere il problema...
Ciao.
--
Sergio MAZZA


title: metodo findrecord

text:
"Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
news:ea74a51fcaaf7088a33...@mygate.mailgate.org...

Memorizzati la chiave primaria del record corrente prima del FindRecord e
confrontala con quella del record corrente dopo il FindRecord; se il
confronto dà esito diverso, la ricerca ha avuto esito positivo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: metodo findrecord

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message
news:ael3r8$14p$
1...@canarie.caspur.it
>
> Nessun "alone di mistero", devi trovare lo strumento adatto per ogni
> situazione. Magari č anche utile inserire piů informazioni possibili
> riguardo al problema e al contesto (form, nomi controlli etc. etc.); questo
> per arrivare presto ad una conclusione e una miglior valutazione da parte di
> chi deve aiutarti/vi.
>
Ti ringrazio. La mia era una battuta sul computer in genere. Fra
linguaggio macchina, basic, cobol, framework (il cielo l'abbia in
gloria!)
dbIII, access, e non so quant'altro, mi sono trovato davvero un hobby
(e poi un lavoro) peggio di ogni rompicapo. Qualche volta penso che una
raccolta di francobolli...



title: metodo findrecord

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:6sBP8.30350$
Kt3.7...@twister2.libero.it
>
> Memorizzati la chiave primaria del record corrente prima del FindRecord e
> confrontala con quella del record corrente dopo il FindRecord; se il
> confronto dà esito diverso, la ricerca ha avuto esito positivo.
>
Geniale!
Grazie



title: metodo findrecord

text:
"Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
news:3083a3e3f869782657d...@mygate.mailgate.org...
>
> Ti ringrazio. La mia era una battuta sul computer in genere. Fra
> linguaggio macchina, basic, cobol, framework (il cielo l'abbia in
> gloria!)
Beh! Insomma, mica tanto in gloria; ne aveva di buchi la versione 2. La 3 è
stata 'na salvata...
> dbIII, access, e non so quant'altro, mi sono trovato davvero un hobby
> (e poi un lavoro) peggio di ogni rompicapo. Qualche volta penso che una
> raccolta di francobolli...
Già dato...
> Riccardo
Ciao.
--
Sergio MAZZA


title: metodo findrecord

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message
news:aen33r$g1g$
1...@canarie.caspur.it
> "Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
> news:3083a3e3f869782657d...@mygate.mailgate.org...
> >
> > Ti ringrazio. La mia era una battuta sul computer in genere. Fra
> > linguaggio macchina, basic, cobol, framework (il cielo l'abbia in
> > gloria!)
>
> Beh! Insomma, mica tanto in gloria; ne aveva di buchi la versione 2. La 3 è
> stata 'na salvata...
E il 4 un capolavoro. Sigh! I riferimenti a celle multiple mi sono
mancati
per anni, quando dovevo mettere una colonna calcolata in excel, una
formula per cella.



title: metodo findrecord

text:
"Riccardo Baldinotti" <
bld...@libero.it
> ha scritto nel messaggio
news:a8c2ad47ce16458cdc1...@mygate.mailgate.org...
>
> E il 4 un capolavoro. Sigh! I riferimenti a celle multiple mi sono
> mancati
> per anni, quando dovevo mettere una colonna calcolata in excel, una
> formula per cella.
>
Al 4 non ci sono arrivato; sono passato a dbase e poi clipper s87 e il resto
č... Noia.
Ciao.
--
Sergio MAZZA


title: Filtro su più combobox

author: Maurizio

text:
Salve, avento una tabella e dovendo scegliere dei parametri tramite più
combobox, come faccio ad applicare il filtro??
Mi spiego meglio, ho una tabella per registrare i voti com una cmb per le
materie, una cmb per le classi, una cmb per le sezioni ed una cmb per
l'indirizzo scolastico. Ora dovendo per esempio selezionare la materia
"diritto" della classe "3" della sez "B" dell'"igea", come faccio a filtrare
i record??
Grazie per i consigli
Maurizio


title: Filtro su più combobox

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:RKfo9.58875$Eu.13...@twister1.libero.it...

Uno dei modi possibili è quello di usare una query parametrica.
Se la maschera che contiene i parametri di ricerca (le quattro combobox) si
chiama frmRicerca.
Se le quattro combobox non associate si chiamano rispettivamente
CercaMateria, CercaClasse, CercaSezione e CercaIndirizzo.
Creati una query di selezione che contenga tutti i campi della tua tabella
in cui registri i voti; nei criteri relativi al campo della materia scrivi:
Forms!frmRicerca!CercaMateria
Nei criteri relativi al campo della classe scrivi:
Forms!frmRicerca!CercaClasse
Nei criteri relativi al campo della sezione scrivi:
Forms!frmRicerca!CercaSezione
Nei criteri relativi al campo dell'indirizzo scrivi:
Forms!frmRicerca!CercaIndirizzo
La query di selezione di cui sopra sarà l'origine record della maschera con
cui visualizzi l'esito della ricerca.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Filtro su più combobox

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:sago9.60750$e31.1...@twister2.libero.it...

Grazie 2K Roberto, però vorrei strafare. Nella maschera che mi visualizza i
dati, c'è una cmb collegata ad una qry_alunni, per poter inserire un nuovo ,
come potrei fare se volessi visualizzare solo gli studenti filtrati tramite
le condizioni di prima??, almeno è possibile??
Maurizio


title: Filtro su più combobox

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:t5io9.59508$Eu.13...@twister1.libero.it...

Non sono sicuro di aver capito cosa vuoi fare; se però il tuo obbiettivo è
quello di visualizzare solo un alunno se in questa quinta combobox selezioni
un alunno, ed invece vuoi visualizzare tutti gli alunni filtrati con le
quattro combobox precedenti se non selezioni alcun alunno nella quinta
combobox, se questa combo si chiama CercaAlunno, nei criteri della query
relativamente al campo alunno NON scriverai:
Forms!frmRicerca!CercaAlunno
ma scriverai:
Like Nz(Forms!frmRicerca!CercaAlunno; "*")
Se invece ti interessava ben altra cosa, prova a rispiegarti meglio.



title: Filtro su più combobox

text:
> > "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> > news:sago9.60750$e31.1...@twister2.libero.it...
> Non sono sicuro di aver capito cosa vuoi fare; se però il tuo obbiettivo è
> quello di visualizzare solo un alunno se in questa quinta combobox
selezioni
> un alunno, ed invece vuoi visualizzare tutti gli alunni filtrati con le
> quattro combobox precedenti se non selezioni alcun alunno nella quinta
> combobox, se questa combo si chiama CercaAlunno, nei criteri della query
> relativamente al campo alunno NON scriverai:
> Forms!frmRicerca!CercaAlunno
> ma scriverai:
> Like Nz(Forms!frmRicerca!CercaAlunno; "*")
>
> Se invece ti interessava ben altra cosa, prova a rispiegarti meglio.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
OK,cerco di spiegarmi meglio, se ci riesco. Ho creato una tabella che
contiene id_Alunno, id_classe, id_Sezione, id_IndirizzoScolastico e
DirittoOrale1, DirittoOrale2 ecc..Ora ho creato una qry_SelVotiDiritto con
id_Alunno, id_classe, id_Sezione, id_IndirizzoScolastico e DirittoOrale1,
DirittoScritto1, DirittoOrale2,DirittoScritto2, che con paramteri mi
selezioni la classe, la sezione, L'indirizzoScolastico(anche come mi avevi
suggerito, ed una tabella non collegata  che contiene le cmb relative alla
classe, alla sezione, alla materia ed all'indirizzo scolastico. Una volta
scelti questi parametri, visualizzo una sottomaschera collegata alla
qry_SelVotiDiritto ed è qui che vorrei che la cmb id_Alunno vemisse filtrata
secondo i parametri della maschera principale per poter selezionare un
alunno della determinata classe. O forse sbaglio...in quanto la tabella voti
è una sola e seleziono le varie voci che mi interessano per determinati
parametri tramite le diverse qry, o forse sarebbe più giusto avere tante
tabelle quante sono le materie a costo di creare dati rindondanti??
MAH.(quanto è brutta l'inesperienza)
Maurizio


title: Filtro su più combobox

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:PUBo9.4299$RO.8...@twister1.libero.it...

una maschera e non una tabella.
> che contiene le cmb relative alla
> classe, alla sezione, alla materia ed all'indirizzo scolastico. Una volta
> scelti questi parametri, visualizzo una sottomaschera collegata alla
> qry_SelVotiDiritto ed è qui che vorrei che la cmb id_Alunno vemisse
filtrata
> secondo i parametri della maschera principale per poter selezionare un
> alunno della determinata classe.
La soluzione che ti ho indicato nel mio messaggio precedente risolve il tuo
problemi: i criteri relativi a IDAlunno sono scritti in maniera tale che se
nella caombobox CercaAlunno selezioni un alunno la qyery selezionerà solo il
record di quell'alunno per quella maniera; se invece in CercaAlunno non
selezionerai nulla la query selezionerà, per una certa materia, tutti gli
alunni di una classe/sezione.
Ma ho paura che la soluzione del mio messaggio precedente non hai neppure
tentato di capirla.
> O forse sbaglio...in quanto la tabella voti
> è una sola e seleziono le varie voci che mi interessano per determinati
> parametri tramite le diverse qry, o forse sarebbe più giusto avere tante
> tabelle quante sono le materie a costo di creare dati rindondanti??
> MAH.(quanto è brutta l'inesperienza)
Scusami Maurizio ma questo problema lo avevamo già risolto stabilendo che
bastava fare una sola tabella per tutte le materie, tanto e vero che nella
ricerca selezionavamo anche la materia: così gestirai una sola tabella,
avrai una sola query parametrica ed avrai una sola maschera per introdurre i
voti.
Naturalmente nella tabella non ci sarà i campi DirittoOrale1, DirittoOrale2,
DirittoScritto1 e DirittoScritto2, ma Orale1, Orale2, Scritto1, Scritto2.
Resta comunque il fatto che è assurdo parlare di query, parametri, ricerche
e maschere se prima non hai stabilito quale sia la struttura delle tabelle.
> Maurizio



title: Filtro su più combobox

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:ugDo9.4182$%M1.9...@twister2.libero.it...
> Ma ho paura che la soluzione del mio messaggio precedente non hai neppure
> tentato di capirla.
>
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Roberto, la tua dritta, l'ho capita, ma mi sto innervosendo, sto prendendo
anche delle gocce di tranquillante per questo, in quanto l'unico parametro
che non mi funziona è proprio quello della combo degli alunni. Ieri sera,
sono sato su fino alla 1 per rifare tutto e porca schifa mi dà sempre la
stessa soluzione: Nella combo mi vengono visualizzati tutti gli
studenti...Adesso picchierò il cranio contro il video per vedere se le mie
idee rieco a farle passare dentro:-((
Saluti Maurizio:))))


title: Filtro su più combobox

author: Fabrizio

text:
On Wed, 09 Oct 2002 14:32:16 GMT, "Maurizio" <
calma2...@libero.it
>
wrote:
>cut
>Adesso picchierň il cranio contro il video per vedere se le mie
>idee rieco a farle passare dentro:-((
>Saluti Maurizio:))))
Sei matto , se le tue idee sono sbagliate perdi tempo , usa il cranio
di Roberto . :-)))
Ciao. Fabrizio


title: Filtro su più combobox

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:Q5Xo9.8942$RO.1...@twister1.libero.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:ugDo9.4182$%M1.9...@twister2.libero.it...
>
> > Ma ho paura che la soluzione del mio messaggio precedente non hai
neppure
> > tentato di capirla.
> >
>
> > Roberto
> >
> > ---------------------------------------------
> > il Sito Comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> > ---------------------------------------------
> >
> Roberto, la tua dritta, l'ho capita, ma mi sto innervosendo, sto prendendo
> anche delle gocce di tranquillante per questo, in quanto l'unico parametro
> che non mi funziona è proprio quello della combo degli alunni. Ieri sera,
> sono sato su fino alla 1 per rifare tutto e porca schifa mi dà sempre la
> stessa soluzione: Nella combo mi vengono visualizzati tutti gli
> studenti...
E tu invece nell'elenco della combo vorresti vedere solo l'elenco degli
alunni della classe selezionata?
Se è così io prima non l'avevo proprio capito.
Se è così posta:
1) la struttura completa della tabella degli alunni
2) il codice SQL dell'origine riga della combo alunni
3) il nome di tutte e cinque le combo
4) il nome della maschera
Speriamo che conoscendo questi elementi di poterti dare una mano.
> Adesso picchierò il cranio contro il video per vedere se le mie
> idee rieco a farle passare dentro:-((
Agli inizi capita a tutti, non ti preoccupare, ma col tempo si migliora. ;-)
Comunque l'informatica non è un hot dog da azzannare in piedi e di corsa al
fast food; è un piatto che va gustato freddo seduti e con moooolta calma al
ristorante.
> Saluti Maurizio:))))
--



title: Filtro su più combobox

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:j2Yo9.9199$RO.1...@twister1.libero.it...
> E tu invece nell'elenco della combo vorresti vedere solo l'elenco degli
> alunni della classe selezionata?
> Se è così io prima non l'avevo proprio capito.
> Se è così posta:
> 1) la struttura completa della tabella degli alunni
> 2) il codice SQL dell'origine riga della combo alunni
> 3) il nome di tutte e cinque le combo
> 4) il nome della maschera
> Speriamo che conoscendo questi elementi di poterti dare una mano.
>
> Agli inizi capita a tutti, non ti preoccupare, ma col tempo si migliora.
;-)
speriamo
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Allora, ciò che ho creato è così composto:
1)tabella alunni
id_RegAlunno
Cognome, Nome, classe, sezione, indScolastico, via, ecc
 2) codice SQl:
SELECT tbl_Alunni.ID_RegAlunno, tbl_Alunni.CognomeAlunno,
tbl_Alunni.NomeAlunno, tbl_Alunni.CodiceAlunno, tbl_Alunni.Classe,
tbl_Alunni.Sezione, tbl_Alunni.Corso, tbl_Alunni.AbitazioneVia,
tbl_Alunni.CAP, tbl_Alunni.Città, tbl_Alunni.Provincia
FROM tbl_Alunni;
3) il nome della maschera è frm_InserimentoVoti non associata, con
cmbAlunno, cmbMateria, cmbClasse, cmbSezione, cmbIndScol e una sottomaschera
che dovrebbe prendere i dati dalla tabella voti; id_regAlunno, Nome, classe,
sez, materia Orale1, Orale2 ... Scritto1, Scritto2... ed è sulla combo
id_regAlunno della sottomaschera che mi piacerebbe filtrare i nominativi
secondo la classe e la sezione e l0indirizzo scolastico.
Sperando di non aver creato ulteriori garbugli....
Maurizio:)))


title: Filtro su più combobox

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:HNYo9.8679$%M1.2...@twister2.libero.it...
Mi dispiace Maurizio, ma non riesco a seguire quello che scrivi, ma quello
che è peggio che ancora non sono neppure riuscito a capire cosa vuoi
realizzare; quindi, nell'interesse reciproco, abbandono il thread.
Ti auguro migliore fortuna con un altro frequentatore.
--



title: Moltiplicare record

text:
Ciao a tutti,
ho la seguente richiesta da porvi al fine di poter elaborare un
piccolo programmino Access (2K)
Ho una tabella (tabella 1) che contiene i seguenti campi
NOME CLIENTE  (lo dice da se)
NUMERO DI ORDINE  (è un numero univoco assegnato a priori)
PRODOTTI IN ORDINE  (Descrizione del prodotto ordinato)
QUANTITÀ (quantita ordinata)
STATUS  (campo "si/no" per elaborazioni)
e per capirci posto un esempio dei dati in essa contenuti:
"Tabella 1"
CARLUCCI    1025     RESINA-A    4  NO
CARLUCCI    1025     RESINA-B    7  NO
CARLUCCI    1025     RESINA-C    2  NO
Io ho bisogno che in base ai dati contenuti nella tabella sopra, mi si
generi un altra tabella (tabella 2) con lo sviluppo dei record per
quantità.. meglio se posto il risultato che voglio ottenere,
sicuramente è più chiaro che 1000 parole.
Ecco il risultato che devo ottenere:
"Tabella 2"
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-C    1
CARLUCCI    1025     RESINA-C    1
Ovvero ogni singola linea della tabella principale si deve sdoppiare
per n. volte in funzione del quantitativo richiesto.
Inoltre, una volta che un record è stato sdoppiato nella "tabella 2",
nel campo status della "tabella 1" il valore deve diventare "SI" (è un
campo si/no) al fine che siano considerate nello sdoppiamento i soli
record non ancora sdoppiati.
Non so se sono riuscito a farvi capire, spero di si.
Ciao e grazie.
Marco


title: Moltiplicare record

author: Pablitomf (da casa)

text:
<
est...@email.it
> ha scritto nel messaggio
news:52feadc1-7ad0-4a3a...@26g2000yqv.googlegroups.com...
Ciao a tutti,
ho la seguente richiesta da porvi al fine di poter elaborare un
piccolo programmino Access (2K)
Ho una tabella (tabella 1) che contiene i seguenti campi
NOME CLIENTE  (lo dice da se)
NUMERO DI ORDINE  (� un numero univoco assegnato a priori)
PRODOTTI IN ORDINE  (Descrizione del prodotto ordinato)
QUANTIT� (quantita ordinata)
STATUS  (campo "si/no" per elaborazioni)
e per capirci posto un esempio dei dati in essa contenuti:
"Tabella 1"
CARLUCCI    1025     RESINA-A    4  NO
CARLUCCI    1025     RESINA-B    7  NO
CARLUCCI    1025     RESINA-C    2  NO
Io ho bisogno che in base ai dati contenuti nella tabella sopra, mi si
generi un altra tabella (tabella 2) con lo sviluppo dei record per
quantit�.. meglio se posto il risultato che voglio ottenere,
sicuramente � pi� chiaro che 1000 parole.
Ecco il risultato che devo ottenere:
"Tabella 2"
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-A    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-B    1
CARLUCCI    1025     RESINA-C    1
CARLUCCI    1025     RESINA-C    1
Ovvero ogni singola linea della tabella principale si deve sdoppiare
per n. volte in funzione del quantitativo richiesto.
Inoltre, una volta che un record � stato sdoppiato nella "tabella 2",
nel campo status della "tabella 1" il valore deve diventare "SI" (� un
campo si/no) al fine che siano considerate nello sdoppiamento i soli
record non ancora sdoppiati.
Non so se sono riuscito a farvi capire, spero di si.
Ciao e grazie.
Marco
------------
Private Sub SdoppiaRecord()
Dim db As Database
Dim rs As Dao.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from Tabella1 Where STATUS = 'NO'")
While rs.Eof = true
  With rs
    Dim i As Integer
    For i = 1 to !QUANTITA'
      .... aggiungi il record in Tabella2 ....
    Next i
    .Edit
    !STATUS="SI"
    .MoveNext
  End With
Wend
Set rs = Nothing
Set db = Nothing
End Sub
Scritta cos� al volo... finiscila tu...


title: Moltiplicare record

author: Bruno Campanini

text:
Pablitomf (da casa) used his keyboard to write :
> <
est...@email.it
> ha scritto nel messaggio
> news:52feadc1-7ad0-4a3a...@26g2000yqv.googlegroups.com...
> Ciao a tutti,
>
> ho la seguente richiesta da porvi al fine di poter elaborare un
> piccolo programmino Access (2K)
>
> Ho una tabella (tabella 1) che contiene i seguenti campi
>
> NOME CLIENTE  (lo dice da se)
> NUMERO DI ORDINE  (ï¿œ un numero univoco assegnato a priori)
> PRODOTTI IN ORDINE  (Descrizione del prodotto ordinato)
> QUANTITï¿œ (quantita ordinata)
> STATUS  (campo "si/no" per elaborazioni)
>
> e per capirci posto un esempio dei dati in essa contenuti:
>
> "Tabella 1"
> CARLUCCI    1025     RESINA-A    4  NO
> CARLUCCI    1025     RESINA-B    7  NO
> CARLUCCI    1025     RESINA-C    2  NO
>
> Io ho bisogno che in base ai dati contenuti nella tabella sopra, mi si
> generi un altra tabella (tabella 2) con lo sviluppo dei record per
> quantitï¿œ.. meglio se posto il risultato che voglio ottenere,
> sicuramente ï¿œ piï¿œ chiaro che 1000 parole.
>
> Ecco il risultato che devo ottenere:
>
> "Tabella 2"
> CARLUCCI    1025     RESINA-A    1
> CARLUCCI    1025     RESINA-A    1
> CARLUCCI    1025     RESINA-A    1
> CARLUCCI    1025     RESINA-A    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-B    1
> CARLUCCI    1025     RESINA-C    1
> CARLUCCI    1025     RESINA-C    1
>
> Ovvero ogni singola linea della tabella principale si deve sdoppiare
> per n. volte in funzione del quantitativo richiesto.
> Inoltre, una volta che un record ï¿œ stato sdoppiato nella "tabella 2",
> nel campo status della "tabella 1" il valore deve diventare "SI" (ï¿œ un

> Scritta cosï¿œ al volo... finiscila tu...
Non l'ho provata ma direi con non funzionerï¿œ mai...
Io la vedo cosï¿œ:
===================================
Dim i As Integer
Du Until rs.EOF
>   With rs
>     For i = 1 to !QUANTITA'
>       .... aggiungi il record in Tabella2 ....
>     Next i
>     .Edit
>     !STATUS="SI"
>     .MoveNext
>   End With
Loop
====================================
O sbaglio?
Bruno