mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: x Roberto (se ha abbastanza pazienza)

Anche se vedo che sei piuttosto richiesto, torno a tediardi con la
condizione WHERE della casella di riepilogo.
Ho fatto come mi hai suggerito però mi viene un "ERRORE DI RUN-TIME '5':
"Chiamata di routine o argomento non validi". Debug mi evidenzia:
strWhere="[IDCliente] IN ("&Left$(strWhere,Len(strWhere)-1")"
Approfitto della tua pazienza per chiederti una cosa: se non ho capito male
LEN toglie l' ultima virgola dalla clausola IN. Cosa succederebbe
lasciandola?
Ancora grazie
Luca


Scusami ma ho commesso un errore di battitura proprio nel scrivere quella
riga; la routine giusta č:
Dim strWhere As String, varItem As Variant
If Me!Clienti.ItemsSelected.Count = 0 Then Exit Sub
For Each varItem In Me!Clienti.ItemsSelected
strWhere = strWhere & Me!Clienti.Column(0, varItem) & ","
Next varItem
strWhere = "[IDCliente] IN (" & Left$(strWhere, Len(strWhere) - 1) & ")"
DoCmd.OpenReport ReportName:="ReportClienti", WhereCondition:=strWhere
DoCmd.Close acForm, Me.Name
Come vedi mi sono dimenticato una & .
Comunque č la funzione Left$ che toglie l'ultima virgola e non la funzione
Len.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

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

Salve a tutti.
Ho un problemino. In una maschera con origine tabella "aziende", ho
una sottomaschera "clienti fatture" in cui ho una casella combinata
associata al campo IDBanca della tabella "fatture" a cui chiedo di
eseguire una query che mi faccia scegliere la banca dalla tabella
"banche" in cui il campo IDAzienda di detta tabella sia uguale al
campo IDAzienda della maschera principale. Tutto bene, funziona, ma il
problema è che se mi sposto tra i record della maschera principale,
per vedere o inserire le fatture delle altre aziende, la query della
casella combinata va rieseguita altrimenti restituisce l'elenco delle
banche relative alla prima azienda. Ho creato un pulsante che mi
aggiorna la maschera e fa aggiornare la query, ma vorrei che
l'aggiornamento avvennisse in automatico al cambio di record della
maschera principale. Per completezza, ho creato una combo non
associata, da cui scelgo l'azienda su cui operare.Grazie in anticipo.

 associata, da cui scelgo l'azienda su cui operare.Grazie in anticipo.
Devi inserire il codice per l'aggiornamento della query sull'evento
della form corrispondente al cambiamento del record corrente

g.cal...@yahoo.it
 ha scritto:

L'ho inserito sulla casella combinata da cui scelgo la ditta (record)
e non succede nulla. Mi puoi spiegare meglio dove inserirlo. Grazie.

 ha scritto nel messaggio
news:1171560756.5...@j27g2000cwj.googlegroups.com...

Su evento on current della form fai la requery della combo dopo aver messo
il valore a null
Antonio
Newsgroup: it.comp.appl.access
Titolo: Dopo caicamento eventi tastiera non intercettati all'apertura form oggetto AxAcroPDFLib.AxAcroPDF

Buon giorno,
una form contiene un controllo AxAcroPDFLib.AxAcroPDF
Eseguo normalmente Load ed altri metodi.
Ogni volta che viene aperta la form con caricamento contestuale di un PDF accade:
- SEMPRE che gli eventi KeyPress e KeyUp non vengono MAI intercettati nonostatne KeyPreview impostata a True. Se poi eseguo cambio di finestre manualmente e ritorno alla form, tutto fuziona. Ho provato anche ad inviare SENDKEY ALT+TAB due volte, ma nulla!!
- Il file PDF a volte viene visualizzato a volte no, in generale al prima apertura della form, mentre le volte successive viene visualizzato sempre.
Grazie a tutti.
Daniele

Ciao,
gli eventi di testiera non vengono intercettati probabilmente perché il focus è assegnato all'oggetto activeX,
per risolvere sposta il focus su un altro oggetto del form. Se non esistono altri controlli sul form potresti creare una textbox con dimensioni 0 su cui sposterai il focus dopo l'apertura.
Ciao
Mat.
 


Fatto anche questo tentativo, sia su un altro controllo, sia sulla form. Si tenga presente che la proprietà della form Anteprima Tasti è impostata a "Sì" (il che ignora i focus dei vari controlli ed intercetta prima gli eventi tastiera)
Thanks

È possibile che il controllo non sia perfettamente compatibile con access.
Vuoi provare comunque a postare il codice che usi all'apertura del form e che non funziona? 
Mat.


Il codice è semplicissimo. Dopo l'evento Su caricamento imposto il controllo PDF con MyCtlPDF.Load = "percorso", e MyCtlPDF.src = "percorso".
Nulla di più.
Forse potrei eseguire questa istruzione MyCtlPDF.Load = "percorso" dopo un Timer di 5000 ms e poi impostare TimerInterval = 0?
Non so

Il giorno venerdì 18 agosto 2017 18:44:53 UTC+2, Potone ha scritto:

Da non credere! Ho inserito un banalissimo DoEvents prima di eseguire MyPDF.Load...
E su un PC funziona... 
Devo testarlo su altri con CPU meno performanti.
Mha!!

Ciao,
con Doevents cosa si è risolto? Il problema della visualizzazione del pdf o la questione della tastiera?
Mat.


Niente! Non si risolve. L'anteprima tasti non funziona sempre. Il DoEvents libera un po' le risorse.
Come faccio a dire all'utente clicca più volte sui pulsanti e vedrai che funziona! Ogni volta che apre il PDF.
Speriamo di trovare una soluzione.
Grazie!
Daniele

Newsgroup: it.comp.appl.access
Titolo: inviare 2 report con una sola mail

Salve a tutti, sono nuovo del NG e dovrei subito porvi un quesito (ho
provato a cercare nei messaggi  dell' NG ma non ho trovato risposta):
Vorrei iviare, tramite pulsante di comando posto su una maschera 2
report nello stesso messaggio, mentre io per ora sono riuscitosolo a
far inviare due messaggi consecutivi, ognuno contenente un report.
Potete aiutarmi?
Grazie in anticipo ed auguri a tutti!
Asinobigio

 Asinobigio
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: funzioni in modulo o nella form?!

Ciao a tutti,
una domanda forse un po' "idiota" più di forma che di contenuto: se utilizzo 
una funzione in una form è meglio dichiararla pubblica e salvarla in un 
modulo oppure privata all'interno della form?
Penso che la userò solo all'interno di quella form ... quindi potrebbe 
essere privata.
Sono i dubbi di forma di un non-programmatore ;o)
Gracias
Tk 

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

 ha scritto nel messaggio
news:fc95mi$6i7$1...@nnrp.ngi.it...

Ci sono 3 variabili in quello che hai detto...!
Una Funzione normalmente viene dichiarata Public se deve poter essere
richiamata
da più parti del Progetto, in pratica se può servire da diversi punti...!
Le cose perso sono differenti, una cosa è dichiararla Public in un modulo,
in questo caso è sempre
accessibile, Sub/Function dichiarate public rappresentano Metodi
dell'applicativo.
Se invece la dichiari Public in una Form, significa che quel Metodo, che ora
è un Metodo di Form, deve poter
essere richiamato dall'esterno della Form con la Form Aperta...!!
Quindi se lo usi solo dall'interno della Form e non ha senso generalizzare
in una Function/Sub Public direi che
è giusto dichiararlo Private interno alla Form stessa.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


Grazie ad entrambi ...
adesso mi č piů chiaro.
Tk 


Aggiungo il mio contributo.
Io le maschere le lascio sempre scarne di codice.
Tendo a creare delle sub o delle funzioni quanto più "riusabili" possibili (con l'utilizzo degli argomenti) e le metto in moduli generali, e poi se ho codice di quella maschera lo metto in modulo dedicato a quella maschera.
Il vantaggio è la legibilità del modulo, secondo me
Nel senso che io ho un modulo con 
Private sub Form_load()
subSettaLaForm("Grande", "Dialogo")
fctSayHello
End sub
usando nomi espliciti me ne rimane un'idea di cosa quella sub o 
quella function fa e se voglio vederla tasto dx, definizione e vado a vedermela
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007
Newsgroup: it.comp.appl.access
Titolo: aiuto per query con "scelta di parametro"

chiedo scusa per il subject un po' impreciso ma non so bene come si chiami
quello che voglio fare e per questo non riesco a trovarlo sul sito
prendiamo una tabella contenente l'anagrafica dei clienti
io voglio fare una query che una volta lanciata chieda all'utente di
immettere ad esempio il codice del cliente ed ecco che prontamente viene
restituita tutta l'anagrafica relativa a quel cliente
faccio cosě:
SELECT Clienti.*
FROM Clienti
WHERE ((Clienti.CODICE_CLIENTE)=[Inserisci il codice cliente])
ORDER BY Clienti.RAGIONE_SOCIALE;
la domanda č:
come faccio a fare in modo che nella finestra che mi esce per inserire il
codice ci sia una casella combinata (mi pare che si chiami cosě) che mi fa
selezionare un codice cliente fra quelli esistenti?
grazie

 ORDER BY Clienti.RAGIONE_SOCIALE;
ORDER BY non serve a niente! :)
ooppss

"giogio" <gio...@giogio.giogio> ha scritto nel messaggio
news:b612po$2kg$1...@fata.cs.interbusiness.it...

Creeati una maschera non associata chiamata Maschera1 che contenga una
casella combinata non associata chiamata MiaCombo; MiaCombo deve avere due
colonne di cui visibile solo la seconda; MiaCombo deve avere 1 come Colonna
associata; Mia combo deve avere come origine riga il seguente codice SQL:
SELECT Clienti.CODICE_CLIENTE, Clienti.RAGIONE_SOCIALE
FROM Clienti
ORDER BY Clienti.RAGIONE_SOCIALE;
Modifica la tua query nel modo seguente:
SELECT Clienti.*
FROM Clienti
WHERE ((Clienti.CODICE_CLIENTE)=[Forms]![Maschera1]![MiaCombo]);
Ora apri Maschera1, seleziona il cliente sulla xasella combinata, esegui la
tua query; naturalmente, durante l'esecuzione della query, Maschera1 deve
risultare aperta.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: [?] : Dove si trovano le immagini(icone) per i pulsanti

Salve a tutti,
Volevo sapere dove posso trovare sul disco le immagini(icone) che si possono
applicare ai pulsanti durante la lro creazione?
Posso utilizzarle anche per altri programmi?
ciao
MatteoC.
--------------------------------
Inviato via 
http://usenet.libero.it

 Posso utilizzarle anche per altri programmi?
Il classico è sicuramente moricons.dll ma non c'è un granchè...
Antonio


stanno dentro msaccess.exe
Newsgroup: it.comp.appl.access
Titolo: Table GUID

Questi sono i GUID per maschere, report e macro:
FORM   {c49c842e-9dcb-11d1-9f0a-00c04fc2c2e0}
REPORT {c49c8430-9dcb-11d1-9f0a-00c04fc2c2e0}
MACRO  {c49c842f-9dcb-11d1-9f0a-00c04fc2c2e0}
Esistono GUID anche per Tabelle e Query? Se no, perché? Se sě, dove li
trovo?
Il problema č relativo al seguente codice:
    Dim catDb As New ADOX.Catalog, varObjName, lngObjectType As
ADOX.ObjectTypeEnum
    Dim varObjectID, strGroup As String, lngOldRights As Long
    Dim lngAddRights As Long, lngNewRights As Long, lngInherit As Long
    strGroup = "Admins"
    varObjName = "TABLE_X"
    lngObjectType = adPermObjTable
    varObjectID =   ""   '<--------------------------GUID?
    With catDb
    'apre il catalogo degli oggetti usando la connessione corrente
        .ActiveConnection = CurrentProject.Connection
    'restituisce il set di permessi corrente per il gruppo
        lngOldRights = .Groups(strGroup).GetPermissions(varObjName, _
        lngObjectType, varObjectID)
    'aggiunge nuovi permessi a quelli esistenti nella bitmask
        lngNewRights = lngOldRights Or lngAddRights
    'assegna i permessi specifici
        .Groups(strGroup).SetPermissions varObjName, lngObjectType,
adAccessSet, _
            lngNewRights, lngInherit, varObjectID
    End With
Grazie per qualsiasi aiuto.

 Grazie per qualsiasi aiuto.
togli il parametro varObjectID da GetPermissions e SetPermissions .
Per maggiori info
----
GetPermissions and SetPermissions Methods Example (VB)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscgrantingpermissionsexample.asp
GetPermissions Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admthgetpermissions.asp
SetPermissions Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admthgetpermissions.asp
ObjectTypeEnum
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/adcstobjecttypeenum.asp
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP]
Newsgroup: it.comp.appl.access
Titolo: Err.Number 94 - Utilizzo non valido di Null

Salve a tutti. L'esecuzione di questa routine si interrompe a causa di
un errore (Err.Number 94).
La causa potrebbe essere nella dichiarazione delle variabili, ma non
riesco a capire come correggere.
Dim X As String
Dim Y As String
Dim b As String
Dim z As Long
Dim f As Long
Dim inizio As Date
Dim oggi As Date
Dim origine As Date
Dim codice As String
Dim primo As String
Dim secondo As String
Dim terzo As String
Dim alfa As Long
Dim beta As Long
oggi = Date
inizio = "20/11/1848"
origine = "02/12/1916"
z = DateDiff("d", inizio, oggi)
terzo = Hex(z)
Y = Left(terzo, 4)
codice = Left(CODICENOME, 5)
alfa = codice
primo = Hex(alfa)
b = Left(primo, 4)
f = DateDiff("d", origine, oggi)
beta = f + alfa
secondo = Hex(beta)
X = Left(secondo, 4)
primario = X
secondario = Y
terziario = b

 alfa = codice
----------------------------------------------------------------------------------------
Qui alfa assume un valore stringa mentre è dichiarato come come long
cut
Il codice errore 94 dovrebbe essere un uso non valido di null.
Ciao, Carlo 

 - Mostra testo citato -
Grazie Carlo, hai fatto centro anche stavolta!!!
Newsgroup: it.comp.appl.access
Titolo: Come 'vedere' i controlli sulla form durante il form_load

Come fare per visualizzare la form, durante l'esecuzione del codice 
nell'evento form_load della form stessa ?
Un po' il   me.show  del visual basic per capirci
Ciao e grazie
RobertoA

 Un po' il   me.show  del visual basic per capirci
Non è possibile.
D'altronde, ti trovi nell'evento che si verifica proprio quando inizia il
caricamento della form; la form stessa non è ancora instanziata, quindi non
puoi vederla.
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 puoi vederla.
E col  visual basic come la mettiamo ?
Come fa a mostrarti la form a meta' via del form_load ?
Ciao
RobertoA

 Come fa a mostrarti la form a meta' via del form_load ?
Ribadisco quanto detto nel mio precedente post: finché una form non è stata
instanziata non è possibile visualizzarla.



Usa un trucchetto... DISASSOCIA la FORM.. ed associala su TIMER
Su Load imposti :
Me.TimerInterval=1000 ' per esempio poi ottimizzalo
Su Evento Timer:
Private Sub Form_Timer()
  .... esegui il tutto
  me.RecordSource="...."
  Me.TimerInterval=0
End Sub
In questo modo si apre praticamente subito poi si caricano i dati eseguendo
il Requery al momento
dell'associazione del RecordSource.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 -- 
Si, andrebbe bene, ma non nel mio caso, non ho dati di archivio da 
visualizzare ma semplici messaggi
Ho un'unica schermata e su questa volevo visualizzare dei messaggi sulla 
progressione operazioni
Essendo quattro righe in croce pensavo di usare il form_load e quindi fare 
tutto la dentro
Ma sembra che non zi pozza
Ciao e grazie
RobertoA

 visualizzare ma semplici messaggi
Ascolta il suggerimento di Ale... va bene 

 Ascolta il suggerimento di Ale... va bene
Veramete non volevo risolvere il problema contingente
Usando un altro evento, avevo gia' visto che funzionava come volevo
Desideravo capire se, dentro il form_load si poteva fare quella cosa, tutto 
qua
Mi sembra di capire che non si possa fare
Grazie a tutti i sugerimenti
Ciao
RobertoA
Newsgroup: it.comp.appl.access
Titolo: Utilizzo di espressioni con le date

Lavoro su un database dove inserisco in un campo la data dell'ultima visita
medica, in un altro campo la periodicità di queste visite ( es. annuale,
triennale ecc.). Mi farebbe comodo che un terzo campo, in base alla
perioditicità inserita, mi desse automaticamente la data della prossima
visita.
Grazie Andrea

 ha scritto nel messaggio
news:GSDXe.9490$9l.2...@twister1.libero.it...

Ciao Andrea,
se hai una tabella che contiene la periodicità con un campo che ne
identifica i giorni e il controllo che utilizzi per stabilire la periodicità
è una combobox, non sarà difficile sommare con dateadd i giorni contenuti in
questa tabella al controllo contenente la data ultima visita con column.
altro problema è calcolare una data non festiva ... sul SC c'è una funzione
 6.138 Sommare giorni lavorativi ad una data (---> vedi se ti può aiutare)
Esempio  di T_periodicità
id_periodicità         counter,pk
periodicità                decrizione
giorni                        numerico
id_periodicità        periodicità        giorni
1                            annuale            365
2                            mensile                30
3                            settimanale         7
4                            semestrale        182
....
Spero di essere stato chiaro.
Ciao, Sandro.
Newsgroup: it.comp.appl.access
Titolo: Funzione mese in cifre -> mese in lettere

Salve.
C'è in access la funzione descritta in oggetto?
Ciao
Gisco

Gisco ha scritto nel messaggio ...

no, ma basta farsela in VBA... è semplice!
function iMese2sMese(Mese as int) as String
    Select case Mese
        case 1
            return "Gennaio"
        case 2
            return "Febbraio"
        case ...
    end case
end function

no, ma basta farsela in VBA... è semplice!
Ancora piu' semplice e' dare un'occhiata all'help di Format!:-))
Access lo fa gia' da se'!
Miadata = format (date(),"dd mmmm aaaa")...tanto per dirne una...
Saluti.
Luciano

Saluti.
ma lui non usa una data, a quanto ho capito...
lui ha dei numeri che vuole convertire in nome del mese...
1 --> Gennaio
2 --> Febbraio... ecc...
Altrimenti dovrebbe creare una data fittizia con il mese che
gli serve e convertire... non ha molto senso
(sempre se ho capito quello che voleva sapere...)
Micio

2 --> Febbraio... ecc...
Dunque....ho giocherellato un po' con format ed ho scoperto che:
format (1,"dddd") restituisce (NON RITORNA!!!) domenica, se metto 2 lunedi'
e cosi' via (gli americani iniziano a contare dalla domenica).
Se provo con i mesi invece:
Format (1,"mmmm") mi restituisce dicembre, 2 mi da gennaio.... ma lo stesso
fa fino a 32. Dopodiche' attacca con febbraio fino a 60, poi con marzo fino
a 91, aprile fino a 121....and so on!
Insomma, la cosa potrebbe andare a capire con quale criterio gestisce i
numeri.
Cosi', sempre per giocare ho provato anche
Format (1,"yyyy") che da 1899. Poi abbiamo 1900 fino 366...
Qualcun'altro ci ha provato?
Saluti.
Luciano

 format (1,"dddd") restituisce (NON RITORNA!!!)
[snip]
mah, io preferisco ritorna (dal C/C++ return), non sarà italiano, ma neanche
"downlodare" lo è (letto sul sito Microsoft) :-)
Questo perchè Access cerca di interpretare "1" come data. Dai un'occhiata
sull'help "Tipo di dati Date".
"Le variabili di tipo Date sono memorizzate come numeri IEEE di 64 bit (8
byte) che rappresentano date comprese nell'intervallo fra l'1 gennaio 100 e
il 31 dicembre 9999 e orari compresi fra le 0.00.00 e le 23.59.59. È
possibile assegnare alle variabili Date qualsiasi....." ecc.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************

no, ma basta farsela in VBA... è semplice!
Ciao ragazzi grazie a tutti, mi è di conforto sapere che non c'è in access,
invece che c'è, e che mi è sfuggita.
Come sono andati gli esami Micio?.
Ciao Gisco

Ciao Gisco
devo ancora farli... le prove scritte sono
lunedě, mercoledě, giovedě e venerdě... e una
settimana dopo ho 2 orali... sob!
anzi... mieowwwwwwwwwwww
Micio

possibile assegnare alle variabili Date qualsiasi....." ecc.
E' quello che supponevo. Non ho capito pero' come gestisco la faccenda
relativamente al problema sollevato da....boh, mica me ricordo chi era!:-)
Saluti.
Luciano
Newsgroup: it.comp.appl.access
Titolo: sotto-sotto maschere e caselle combinate

Buongiorno a tutti,
ho da poco imparato a muovermi in access, ma ci sono alcune cose che
vorrei fare nel mio database e che purtroppo non sono riuscito ad
eseguire.
L'argomento del Db sono i FUMETTI. Un albo è un fumetto nel senso
fisico del termine, mentre un episodio è una delle storie contenuta in
un albo. Gli autori sono autori dell'episodio, non dell'albo.
Spero mi possiate aiutare:
1) Ho dunque 3 entità collegate a catena da 2 relazioni molti a molti:
ALBO<---->EPISODIO<---->AUTORE
Nella maschera principale (Albo) visualizzo (e inserisco) tutti gli
episodi contenuti nell'albo selezionato attraverso una sottomaschera
in modalità Foglio Dati, ma vorrei creare una sotto-sottomaschera per
visualizzare tutti gli autori di ogni episodio.
2) Ho una casella combinata da cui seleziono l'episodio da cui è
tratta la copertina dell'albo in questione. Ora come ora se apro la
tendina visualizzo tutti gli episodi di tutti gli albi, ma mi
piacerebbe poter vedere/inserire solo quelli che compongono l'albo
selezionato.
Spero di essere stato abbastanza chiaro.
Grazie e ciao
Giovanni


Nella query di origine controllo (della casella combinata) inserisci il 
criterio che ti permette di selezionare i dati:
es.
Albo = Forms!nomeForm!nomeCasellaCombinata
Ciao.
-- 
Sergio MAZZA

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

Sareste cosě gentili da dirmi dove trovo le FAQ del presente NG?
Grazie
Ugo


Quě: 
http://members.xoom.it/_XOOM/it_db_access/
Ciao.

Mi potete fare avere le Faq del newsgroup?????
Grazie!!!
Ugo

>Mi potete fare avere le Faq del newsgroup?????
se vai sul sito qui sotto puoi anche scaricartene una versione
zippata.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
Newsgroup: it.comp.appl.access
Titolo: arrotonda a 6

ho il problema seguente.
in un campo di una query devo inserire una funzione che arrotondi in base 6
un numero contenuto in un altro campo.....
cerco di spiegarmi.
quantità= 58 (funzione)=>60
quantità= 62(funzione)=>60
saluti
Luca

> "Zappus" news:QoYs9.60132$%
M1.15...@twister2.libero.it
:

    E se quantita' = 1 ? => 10 ? => 60 ?
    E se quantita' = 123 ? => 120 ? => 130 ? => 160 ? => 660 ?
    Questo:
        Format$([quantità]/10, "0\0")
potrebbe bastare?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Zappus ha scritto:

non ho capito   (forse la base e 60 e non 6)
123 quanto deve dare
119 quanto deve dare
241 quanto deve dare
211 quanto deve dare
210 quanto deve dare
209 quanto deve dare
--
a.cara

 
affinita' elettive? Quando ci sposiamo?
--
a.cara

 affinita' elettive? Quando ci sposiamo?
    Senti Cara, non so come dirtelo... Non potremmo continuare cosi?...


 a.cara

 ha scritto nel messaggio
news:QoYs9.60132$%M1.15...@twister2.libero.it...

La butto così (ma è ancora presto, devo ancora svegliarmi bene)
Dim divint as integer,resto as integer
resto= quantità mod 6
divint= quantità - resto
if resto <=3 then
    risultato = divint * 6
else
    risultato = divint * 6 + 1
end if
Può andare o devo rileggermi il post fra un paio d'ore?
Ciao, FABIO

     Senti Cara, non so come dirtelo... Non potremmo continuare cosi?...
Il solito acido che se lo tira...
Antonio

 ha scritto nel messaggio
news:QoYs9.60132$%M1.15...@twister2.libero.it...

Per arrotondare a in base  6 o a qualsiasi altra cifra
fix(Numero/base+.5)*base
Ciao Giorgio.

Zappus ha scritto:

allora e' la soluzione di Maurizio
--
a.cara

 allora e' la soluzione di Maurizio
    Sembrerebbe... Ma c'e' quel 6 o 60 che fa pensare chissa' che...
    Avesse risposto al mio post, almeno! Cosi' vedevamo come voleva
"arrotondare" (arrotolare?) il valore 1.


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

innanzitutto volevo ringrziare tutti per l'aiuto di questi 
giorni!!! passando al mio nuovo problema... ho una tabella che 
contiene un codice, una data ed un valore (una riga per ogni 
codice)... vorrei ottenere una query che mi indichi per ogni 
data il valore assunto da ogni codice... insomma, qualcosa di 
questo genere:
DATA     CODICE1    CODICE2     CODICE3
27/1       100        150          200   
è possibile??
ciao e grazie!
-- 
Inviato da Virgilio 
http://newsgroup.virgilio.it
Filtra gli antipatici, segnala le risposte, segue i thread, e tutto da web

 27/1       100        150          200
Forse qualcosa tipo:
SELECT T.data, T1.valore AS Codice1, T2.valore AS Codice2,
T3.valore AS Codice3 FROM miaTabella T, miaTabella T1,
miaTabella T2, miaTabella T3 WHERE
T1.data=T.data AND T1.codice='CODICE1' AND
T2.data=T.data AND T2.codice='CODICE2' AND
T3.data=T.data AND T3.codice='CODICE3' GROUP BY T.data;
HTH.
Alessandro
Newsgroup: it.comp.appl.access
Titolo: NON TORNA

Sto utilizzando access da un po' di tempo e non riesco a capire questa cosa
: Esempio
Nella mia tabella ci sono 700 record e vengono visualizzati sia quando apro
la tabella stessa sia la sua maschera collegata.
La cosa strana e che se filtro il file in visualizzazione maschera con tutti
criteri nulli sempre mi visualizza un recor in meno  ( in questo esempio 699
record )
Sempre + strano e che se faccio lo stesso filtraggio con la query correlata
ovviamente e giustamente me li fa vedere tutti.
In pratica non capisco xchč il software mi faccia vedere un recor in meno
nella maschera : E UN BUG ! ?


forse su un campo invece di avere null hai "" od uno spazio
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Re: immagini


Ciao Ezio
cambia questa istruzione:
 strImagePath = Left(strMDBPath, intSlashLoc) &   Me.Collocazione1
con
 strImagePath = Left(strMDBPath, intSlashLoc) & =[collocazione] & ".jpg"
saluti
Cinzia


          Un'ultimo problema.
quando non esiste una immagine corrispondente al campo [collocazione] nella
casella immagine mi rimane la jpg precedente. Come posso avere in questo
caso una immagine bianca?
Saluti
Ezio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ciao Ezio,
prima dell'assegnamento alla Picture di strImagePath controlla che il file
esista altrimenti assegnagli vbNull (prova! non so se funziona)
if len(Dir(strImagePath)) > 0 then
    Me.ImageFrame.Picture = strImagePath
else
    me.ImageFrame.Picture = vbNull
    'Alternativamente puoi assegnargli il percorso di una immagine di
default
end if
saluti
Cinzia


Temo di non aver compreso il problema,
finchè scorri la maschera aperta avanti e indietro ti si caricano
normalmente le immagini se ci sono o l'immagine vuota quando non c'è il
file.
Se però chiudi e riapri la maschera non ho capito cosa succede... prova a
rispiegarmelo.
Ho notato una cosa sbagliata nel codice  te lo riscrivo corretto:
 Dim strImagePath As String
    Dim strMDBPath As String
   Dim intSlashLoc As String
   On Error Resume Next
   'Obtain the full path of the current database or Access Project
    strMDBPath = CurrentProject.FullName
    'Find the location of the last backslash
    intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
    'Trim off the database name, leaving the path
   'and append the name of the image file
   strImagePath = Left(strMDBPath, intSlashLoc) & Me.[Codice rivenditore] &
".jpg"
  'Questo è il posto corretto dove mettere l'istruzione seguente....
  If Len(Dir(strImagePath)) > 0 Then
            Me.ImageFrame.Picture = strImagePath
    Else
            Me.ImageFrame.Picture = vbNull
     End If
Saluti
Cinzia

 ha
scritto:

          Capisco che sia una cosa strana e cerco di essere più chiaro.
L'istruzione funziona solo se la inserisco nella posizione che ho usato io
(non funziona più se la sposto dove mi suggerisci tu), e se vado a caricare
nelle proprietà della casella ImageFrame una immagine qualsiasi. In questo
caso scorrendo i record, la funzione mi restituisce una immagine nulla
(trasparente) nel caso non ci sia una immagine corrispondente al campo
[codice rivenditore]. Tutto questo anche chiudendo e riaprendo la maschera.
Non funziona più quando chiudo e riapro il db. L'unico modo per farla
rifunzionare è andare a fargli ricaricare una immagine qualsiasi (è
sufficiente anche solo cercare di farlo) nel campo immagine delle proprietà
di ImageFrame.
Bo!!


 ha
scritto:

          Grazie mille funziona
ciao, Ezio

Newsgroup: it.comp.appl.access
Titolo: Help! Problemi con query contenente IF

Non riesco a creare una query che contenga un IF.
Esempio:
Tabella:
CITTA [Char]
Campi
Nome [Char]
Descrizione [Memo] (Contiene una o più righe di teso)
Non riesco a creare una quey che mi restituisca solo la prima riga contenuta
in Descrizione!!!!!!!!!!!
SELECT Nome, Mid(Descrizione, 1, Instr(Descrizione, Chr(13)) AS Descr FROM
CITTA
Funzion solo se descrizione contiene 2 o + righe di testo.
Nel caso ci sia una sola riga di testo chr non termina con Chr(13) viene
resituita una stringa vuota.
Soluzione utilizzare un IF:
If  Instr(Descrizione, Chr(13)) = 0 then
    Descrizione as Descr
Else
    Mid(Descrizione, 1, Instr(Descrizione, Chr(13)) AS Descr
End if
Come faccio a mettere questo in una quey????
Aiuto!!!!
Grazie 1000
xandre72

 Non riesco a creare una query che contenga un IF.
Devi usare IIF non IF. Guarda sull'help.
Saluti.
Luciano

"xandre72" <xandr...@SPAMhotmail.com> ha scritto nel messaggio
news:4uMC8.43541$zW3.5...@news1.tin.it...

Il tuo quesito non mi è chiaro.
Se usi una quesry del tipo:
SELECT tblOrdini.IDOrdine, tblOrdini.Descrizione
FROM tblOrdini
WHERE (((tblOrdini.Descrizione) Like "*" & "TuaParolaDaRicercare" & "*"));
funziona benissimo con o senza ritorni a capo.
Se invece vuoi usare l'IF puoi crearti una funzione che restituisce quello
che cerchi e usi l'IF in questa funzione. Altra possibilità è usare l'IIF
nella query che accetta una Condizione Vera,Cosa fare se vera e Cosa Fare se
Falsa:   IIF([MioControllo] = "pippo"; "QuelloCheVoglio";IlContrario")
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: usare access come antifurto

ho la sensazione che si possa fare, ma non so come.
qualcuno ne sa niente? magari anche su notizie riguardanti l'interfaccia 
che colleghi il PC a sensori esterni.
luigi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

luigi onofrio wrote:
C'ho provato anche io, ma si sono fregati lo stesso il motorino.
Domani lo provo come casco e faccio un crash test!!! Poi vi faccio sapere
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


Evidentemente hai configurato male la catena!
;-)
Newsgroup: it.comp.appl.access
Titolo: [form] id numerico in una combo

Questa dovrebbe essere piuttosto fattibile e mi pare pure una strafaq, ma 
su google.groups ottengo troppi falsi positivi.
Ho una tipica combo con due colonne di cui una associata corrispondente a 
un id. Vorrei che l'utente, oltre a poter selezionare una voce tra quelle 
presenti in elenco, potesse anche inserire direttamente l'ID numerico senza 
generare l'errore non in elenco.
Su una ipotetica combo di nome Elenco avevo provato cosė...
Private Sub Elenco_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_Elenco_NotInList
If IsNumeric(NewData) Then Me!Elenco = NewData
Exit_Elenco_NotInList:
    Exit Sub
Err_Elenco_NotInList:
    Resume Exit_facoltā_NotInList
End Sub

 End Sub
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ
intitolata "Si può aggiungere un record alla tabella che è origine riga di
una casella combinata senza usare una maschera?"; penso faccia al caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 End Sub
Prova a modificare questo esempio:
'-----------
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK
Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Me!Elenco.RowSource = Me!Elenco.RowSource & ";" & NewData
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano
le modifiche.
    Response = acDataErrContinue
    Me!Elenco.Undo
End If
considera che i valori sono separati dal punto e virgola, comunque nell'help
alla voce "Evento NonInElenco" trovi altre informazioni...
Ciao.
--
Sergio MAZZA

 End Sub
Newsgroup: it.comp.appl.access
Titolo: volendo scrivere codice per accedere ai dati ...

... e poiché sto cominciando a farlo partendo da ZERO, cosa mi consigliate
DAO o ADO?
-- 
----------------
saluti
Giuseppe


Cosa usi....?
Access solamente....?
Se non usi Server SQL spassionatamente DAO
per JET(Motore di Access) è imbattibile.
Se invece ti orienti verso Server SQL meglio
ADO se usi ADP, se invece usi sempre Access
libero con connessione ODBC sempre DAO.
La mia ultima affermazione è passibile di parolacce
ma di fatto è solo opinione personale.
@Alex.

 se invece usi sempre Access libero con connessione ODBC sempre DAO.
ancora devo capire le differenze tra queste varie modalità operative. hai
qualche link utile che mi dia qualche dritta?

 ha scritto nel messaggio
news:RXUkb.53643$e6.19...@twister2.libero.it...

In generale se cerchi applicazioni su Access trovi solo l'utilizzo di DAO,
come sul sitocomune 
www.sitocomune.com
Se invece vai su siti di VisualBasic come il Sitocomune di VB cercalo su
google.... trovi esempi e spiegazioni sulle differense e test di rapidità.
P.S. MySQL lascialo perdere, vai diretto a MSDE se vuoi imparare...!
@Alex.

grazie per le dritte, Alex

Newsgroup: it.comp.appl.access
Titolo: query: errore sintassi proposizione FROM

Un saluto a tutti
La query scritta sotto funziona perfettamente in Access 2003 ma se provo con
A97 mi segnala: errore di sintassi nella proposizione FROM.
Non sono in grado di capire dove sta l'errore e se si può correggere.
Ringrazio in anticipo chiunque vorrà aiutarmi
Gabriele
 
SELECT Tabella1.Campo1, Tabella1.DataCarico, Tabella1.IDUbicaz,
Tabella1.Reparto
FROM Tabella1 INNER JOIN (SELECT Campo1, Max(DataCarico) AS MaxDiDataCarico,
LAST(IDUbicaz) AS LastDiIDUbicaz
FROM (SELECT TOP 100 PERCENT Campo1, DataCarico, IDUbicaz
FROM Tabella1
ORDER BY Campo1, DataCarico, IDUbicaz) AS Tx
GROUP BY Campo1). AS Ty ON Tabella1.IDUbicaz = Ty.LastDiIDUbicaz;
 


 
In A97 prova di cingere la sottoquery con parentesi quadre invece di tonde:
 
FROM Tabella1 INNER JOIN [QuiTuttaLaSottoQuery]. AS Ty
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 


Grazie Karl per l'interessamento e la risposta.
Ho provato ma purtroppo in A97 mi da lo stesso errore.
E' un peccato perché mi avrebbe risolto molti problemi.
Un saluto, Gabriele
Newsgroup: it.comp.appl.access
Titolo: Macro che non funziona da Codice VBA

Buonasera a tutti!
Il mio problema è questo: ho creato una macro la quale fà una serie di
operazioni. Ora se io eseguo questa macro dal menu : Strumenti/Macro/Esegui
Macro + nome della macro.....tutto funziona alla perfezione.
Vorrei però che un utente lanciasse la macro alla pressione di un tasto
della mia maschera.....ma quando tento di lanciarla all'evento click del
bottone oppure in corrispondenza del codice "Application.RunCommand
(acCmdRunMacro)" che viene eseguito quando faccio clic sul bottone si genera
un errore che dice "errore riservato".
Cosa può succedere???? Dove sbaglio???
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Inviato via 
http://arianna.libero.it/usenet/
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Info:  
www.donkarl.com/it

 Docmd.runmacro "Tuamacro"
Avevo già provato ma anche così la macro s'interrompe e mi dà errore
riservato.
La macro funziona solo se la faccio partire all'evento click del pulsante di
un'altra maschera che mi viene da supporre non è in qualche modo coinvolta
dall'azione della macro e non mi dà problemi!


 dall'azione della macro e non mi dà problemi!
Beh a questo punto bisogna capire cosa fa la tua macro.


Newsgroup: it.comp.appl.access
Titolo: due database da unire

salve a tutti
il mio problema e':
ho 2 database identici, ma con dati di clienti diversi, ovviamente
devo farne uno solo.
ho provato col copia/incolla ma niente
ho seguito anche la procedure di importazione, ma mi crea una tabella e la
chiama " nometabella1".
io invece ho bisogno di copiare tutti irecord di una tabella nell'altra.
ripeto ancora che le due tabelle , come campi, sono identiche.
grazie 1000
stefano

 ha scritto nel messaggio
news:0sZt8.16267$vF6.5...@news2.tin.it...

Non puoi fare "taglia e incolla", bensi fare delle query di accodamento.
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Controllo Valore di un campo della Form

Premetto che sono alle primissime armi con Access.
Ho realizzato due maschere una per inserire i Movimenti Banca ed una per
inserire i Movimenti Cassa.
Su Movimenti Banca vorrei inserire un controllo che impedisca di inserire un
importo maggiore del saldo di cassa.
Ho realizzato la query sulla tabella dei Movimenti cassa ma non riesco a
portarla dentro alla maschera dei Movimenti di Banca.
Qualcuno mi puņ aiutare?
Grazie.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie.
Prego e Buon Natale
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 ha
scritto:




 


 Grazie ancora ed Auguri.
Prego ed ancora Auguri, ma quando rispondi ricordati di scrivere DOPO e non
prima del testo dei messaggi precedenti.
[CUT]


Newsgroup: it.comp.appl.access
Titolo: problemi con la casella combinata

non riesco a fare il controllo in visual basic di access il controllo del
campo vuoto sulla casella combinata
perchè facendo cosi non funziona?
eppure guardando il debug la casella al momento del controllo ha valore null
If casella = Null Then
MsgBox ("messaggio!!")
Else
DoCmd.Close
End If
grazie

 ha scritto nel messaggio
news:9cjdiq$lv4$1...@fe2.cs.interbusiness.it...

Prova con:
'------------
If isnull(me!nomecasella) Then
'------------
Ciao.

ok funziona.
grazie mille


 grazie mille
Funzionerebbe tutto meglio se:
- scrivessi DOPO il quoting
- [mamo mode on] patchassi il tuo outlook per il problema della R: [mamo
mode off]
Antonio

Newsgroup: it.comp.appl.access
Titolo: posizionamento etichette nei report via codice

Salve,
Come faccio, via codice, a posizionare dinamicamente etichette e campi in un
report? Intendo dire ad es posizionare l'etichetta Etich1 a 2 cm dal bordo
sx, 1 dall'alto e cosě via?
Grazie.
Max

 sx, 1 dall'alto e cosģ via?
Se vai a controllare, ogni etichetta possiede tra le sue proprietą:
Left e Top che servono a posizionarla rispetto al margine sinistro e a
quello superiore
Height e Width che servono a dimensionarla in altezza e larghezza
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: File .Dat

Devo poter leggere dei file .dat e in particolare mi interessa poter
ricavare il tracciato record.
Ho installato i driver AcucoBol e creato una connessione Odbc ma questa
strada non mi ha portato a niente....
avete altre idee!
Ciao e Grazie


Forse posso aiutarti. Da che programma sorgente arrivano?

Newsgroup: it.comp.appl.access
Titolo: problemi all'avvio

Ho un "piccolo" problema i access 97.
Ho provato a installare office 2000, ma siccome non potevo convertire i
database nel nuovo formato ho dovuto disinstallarlo.
Quindi ho reinstallato office 97 professional ma ovviamente access non va
più e all'avvio mi presenta un msg del tipo
"Impossibile avviare access. Non e stata ottenuta una licenza per il
computer in uso" ma fino a poco tempo prima tutto andava benissimo.
AIUTO PLEASE!!!!
Saluti e buon lavoro.

 computer in uso" ma fino a poco tempo prima tutto andava benissimo.
mi permetto:
http://digilander.iol.it/syb
E' l'unica FAQ che ho caricato finora
Sul sito comune trovi dei link per soluzioni alternative.
Sib

 wrote in message
90lnkd$lsi$1...@lacerta.tiscalinet.it...


 Saluti e buon lavoro!!!
Quella soluzione viene dal sito MS, ce ne sono altre (vedi il suggerimento
di Roberto)
Comunque con me ha funzionato, mi era capitato dopo avere installato e
disinstallato O2000. Tu hai disinstallato anche O2000 oltre che O97 vero?
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


E' una bug.
La soluzione la trovi:
http://support.microsoft.com/download/support/mslfiles/AcLicn97.exe
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


Sei hai windows 2000 non ti funziona nemmeno la patch della microsoft, devi
rimuovere le chiavi dal registro a mano
Ciao, bobbit

 wrote in message 90nf33$nta$1...@fe2.cs.interbusiness.it...


 Antonello
Laura Antonello, potresti scrivere dopo il quoting, grazie?
Antonio
Newsgroup: it.comp.appl.access
Titolo: Errore campo calcolato

In una maschera ho una casella di testo che ha come origine controllo un
campo calcolato.
Il campo calcolato e' la somma di due caselle dei testo all'interno di due
sottomaschere.
Il problema e' il seguente, quando metto la proprietà della maschera
principale Consenti modifiche=no il campo calcolato mi da' la seguente
scritta #errore , mentre invece con Consenti modifiche=si funziona tutto
regolarmente.
Qualcuno mi puo' aiutare?
Ringrazio anticipatamente.




Da quel che ne so, il campo č calcolato (fa riferimento a due controlli
diversi) e si deve modificare, e se lo imposti Consenti modifiche=No mi
sembra ovvio che non funzioni.
Non devi aver paura che possa esser modificato, non lo accetta.
O forse non capisco bene qual'č il problema...
Ciao Vittņ


Io utilizzo un'altro stratagemma per non far "toccare" un controllo; nelle
proprietą "dati" imposto: abilitato: no,bloccato: sģ...
Ciao.


A precisazione di quanto sopra preciso che la scitta #Errore appare quando
all'interno delle sottomaschere non vi e' alcun record per cui il valore
delle caselle di testo che servono per il calcolo nella maschera principale
e' Null.


Allora guarda nell'help la funzione nz() che può sostituire i valori nulli
con zero o altri valori...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: oggetto ole

Salve a tutti..espongo subito il mio problema..devo far salvare  utente un
immagine collegata ma non associata modificata da un utente e creata da un
origine tramite OLE..in VB esiste il metodo Savetofile ma in Access non so
dove aggrapparmi..l'unico metodo esposto è Updated ma non riesco proprio a
vedere come impostare la cosa..ringrazio in anticipo chi sa darmi qualche
"dritta"..ciao a tutti


Non usare gli OLE e guarda su 
www.sitocomune.com
, ci sono 3 articoli per la
gestione dei file immagine.
Ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.appl.access
Titolo: Tabledef.Connect in ADO....

Stò migrando un progettino scritto in DAO ad ADO In Access 2003...
Ho una routine che mi permetteva di variare l'origine dati di una tabella a
Runtime tramite l'utilizzo di Tabledef.connect.
Con ADO come posso risolvere analogamente questo problema???
Grazie dei suggerimenti,
Teo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Cerca sul SitoComune e trovi l'equivalente Routine per ADO
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Come vedere se il record è una MAIL o stringa normale

Ciao
A tutti
Desidererei conoscere un metodo per vedere se il record formato da un campo
testo, il contenuto č un indirizzo mail oppure un testo normale.
Cerco una funzione che mi indichi la presenza del carattere @ nella stringa
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it



INSTR()
Saluti.
Emanuele.


dim numero as integer
dim stringa_chiocciola as string
stringa_chiocciola = "@"
numero = Instr(stringa_da_verificare,stringa_chiocciola,1)
se numero > 0 allora la chiocciola è presente nella stringa_da_verificare
alla posizione indicata dal valore di numero.
Se hai ancora dubbi cerca la funzione Instr() nella guida.
Buon lavoro
Roberto Pasqualini

Newsgroup: it.comp.appl.access
Titolo: un chek per scelta report

Salve, in un piccolo db tra le tante cose ho 2 report e un checkbox, che
se è a vero devo stampare il report 1, se falso il report2.
Ho creato le due sezioni per la stampa, che da sole funzionano, ovvero
If Forms!Treno!Tipo = 0 Then
Dim strDocName As String
Dim strWhere As String
    strDocName = "Orari"
  strWhere = "[id_treno]=" & Me.ID
  DoCmd.OpenReport strDocName, acPreview, , strWhere
e
If Forms!Treno!Tipo = -1 Then
Dim strDocName As String
Dim strWhere As String
    strDocName = "Orari2"
  strWhere = "[id_treno]=" & Me.ID
  DoCmd.OpenReport strDocName, acPreview, , strWhere
End If
ma se unisco con un Else non funzionano.
Dove sbaglio?
grazie
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
Dov'è l'ELSE....?
Ti è rimasto nella penna.
Hai scritto troppa roba, mi permetto di semplificare:
 Dim strDocName As String
 Dim strWhere As String
 
 strWhere = "[id_treno]=" & Me.ID
 If Forms!Treno!Tipo Then
    strDocName = "Orari"
 Else
    strDocName = "Orari2"
 End If
 DoCmd.OpenReport strDocName, acPreview, , strWhere
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Io farei cosě
Ti fai un gruppo di opzioni con due pulsanti
Private Sub opTipoReport_AfterUpdate()
Dim strReport As Integer
On Error GoTo ErrHandle
Select Case opTipoReport
Case 1
    strReport="Orari"
    DoCmd.OpenReport strReport,acPreview, , "[id_treno]=" & Me.ID"
Case 2
      strReport="Orari2"
    DoCmd.OpenReport strReport,acPreview, , "[id_treno]=" & Me.ID"
End Select
opTipoReport.Value = 0
ErrHandle:
If Err.Number = 0 Then Exit Sub
If Err.Number = 2501 Then
opTipoReport.Value = 0
Exit Sub
End If
End Sub
Ciao
Morgan