title: Problema con report

author: Roberto

text:
Per spiegare il problema ho inventato un esempio.
Ho due tabelle.
La prima  tabella si chiama "colore occhi" ,ha quattro campi:
Idocchi
NomeCognom
OcchioDX
OcchioSX
La seconda tabella si chiama "colore":
IdColore
Colore
Veniamo al punto; nella form "colore occhi", per valorizzare i campi "occhiodX
e occhioSx" ho creato dei controlli combinati con la tabella "colore". L'obbiettivo
č quello di selezionare il colore da una tendina. La procedura mi riporta il
valore selezionato nella tabella "colore occhi", il valore riportato č l'id
della tabella "colore". Fin qui nulla di strano. Successivamente vorrei
costruire un report dove mi vengono riportati i nomi e il colore degli occhi
dei soggetti, naturalmente sia il colore destro,sia il colore sinistro.
Spero di essere stato chiaro.
Cordiali saluti
Roberto


title: Problema con report

author: Roberto dalla campagna

text:
"Roberto" <
z...@tin.it
> ha scritto nel messaggio
news:%Zgoe.980095$b5.42...@news3.tin.it...

Creati una query che abbia il seguente codice SQL:
SELECT [colore occhi].NomeCognom, colore.Colore, colore_1.Colore
FROM ([colore occhi] INNER JOIN colore ON [colore occhi].OcchioDX =
colore.IdColore) INNER JOIN colore AS colore_1 ON [colore occhi].OcchioSX =
colore_1.IdColore;
ed usala come origine record del report.
>
> Roberto
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Problema con report

author: Zappus

text:
"Roberto" <
z...@tin.it
> ha scritto nel messaggio
news:%Zgoe.980095$b5.42...@news3.tin.it...

> Devi relazionare le tabelle in questo modo:
nella finestra "relazioni" inserisci la tabella "colore occhi" e due volte
la tabella "colore"
ora crea una relazione tra "occhio dx"(numerico) e "idcolore"(contatore)
della tabella "colore"
un'altra rlazione tra "occhio sx" (numerico) e "idcolore" della tabella
"colore_1".
a questo punto puoi creare una query in cui includerai i seguenti campi:
colore (tabcolore);cognome e nome (colore occhi);colore (tabcolore_1).
Attenzione non devi creare una terza tabella.


title: Problema con report

text:
"Roberto" <
z...@tin.it
> ha scritto nel messaggio
news:%Zgoe.980095$b5.42...@news3.tin.it...




title: corretta sintassi per IF NOT EXISTS

text:
Mi dite in Access 2000 la corretta sintassi di:
CREATE TABLE IF NOT EXISTS nome_tabella (campi............);
Pechè mi dice che c'è un errore di sintassi?Se tolgo IF NOT EXISTS la
tabella viene creata,quindi il resto va bene.La clausola IF NOT EXISTS
dove va inserita?Oppure bisogna creare una procedura?Come?
Grazie.


title: corretta sintassi per IF NOT EXISTS

author: Carlo Costarella

text:
"sanlibe2" <
santoro...@inwind.it
> ha scritto nel messaggio
news:1163364117.7...@m7g2000cwm.googlegroups.com...


Perchè Exists e Not Exists si riferiscono a sottoquery.
Leggiti l'Istruzione CREATE TABLE nella guida.
Ciao, Carlo


title: corretta sintassi per IF NOT EXISTS

text:
Carlo Costarella ha scritto:
> Perchè Exists e Not Exists si riferiscono a sottoquery.
> Leggiti l'Istruzione CREATE TABLE nella guida.
>
>
> Ciao, Carlo
Tu ti riferisci ad altro!!!
Il fatto è che in Access mi sa che non è possibile fare ciò che
volevo:ho del codice java che mi crea una tabella e quindi esegue una
CREATE TABLE ma naturalmente mi restituisce un errore se la tabella è
già stata creata.In MySQL mi sa che è possibile fare appunto CREATE
TABLE IF NOT EXISTS nome_tabella ma in Access no.
A questo punto non mi rimane che fare prima un controllo se esiste la
tabella e solo in caso negativo crearla.


title: corretta sintassi per IF NOT EXISTS

text:
"sanlibe2" <
santoro...@inwind.it
> ha scritto nel messaggio
news:1163517491.7...@e3g2000cwe.googlegroups.com...
Carlo Costarella ha scritto:
> Perchè Exists e Not Exists si riferiscono a sottoquery.
> Leggiti l'Istruzione CREATE TABLE nella guida.
>
>
> Ciao, Carlo
Tu ti riferisci ad altro!!!
Sei tu che ti riferisci ad altro!!!
Questo è un NG per Access e le parola riservata EXISTS si applica a quello
che ti ho detto.
In altri linguaggi non sò e poi tu non ne hai fatto menzione.
In Access se la tabella esiste ti da un errore intercettabile, gestendo
l'errore potresti ottenere quello che vuoi.
Ciao, Carlo


title: corretta sintassi per IF NOT EXISTS

text:
E' quello che alla fine ho fatto.
Grazie per la conferma.
Ciao


title: corretta sintassi per IF NOT EXISTS

author: Ivan da casa

text:
"sanlibe2" <
santoro...@inwind.it
> ha scritto nel messaggio
news:1163776916....@h54g2000cwb.googlegroups.com...
>
> E' quello che alla fine ho fatto.
> Grazie per la conferma.
> Ciao
>
>
grazie a te per averci reso partecipi alla soluzione del tuo problema.
Probabilmente verrò qui tutte le volte e copierò la tua frase in un modulo
di VB e così anche io avrò tratto vantaggio dalla frequentazione di questo
NG !
MoltoPrivateFunction IFnotEXIST ( nameMartino as Solver ) As Solution
    If  nameMartino Then
        Do
            E' quello che alla fine ho fatto
        Dont Loop
    IFnotEXIST = E'quelloCheHaFatto
End VeryDeepSub
ho messo il codice a disposizione della comunità.
IvanDaBologna


title: Articolo - Descrizione

author: massimo

text:
Mi ritrovo con un gestionale magazzino...
In una sottomaschera dettalgi ordini con origine record query1 dovrei
inserire la riga di dettagli per codart e qui tutto ok e per descrizione e
qui mi blocco con il Dlookup  su evento della combo descrizione.....
me!descrizione=("idcodart",Articoli","descrizione=forms!sottomascheradettagl
i!descrizione")
sicuramente questa riga di comando sarà sbagliata e non immaginate quante
prove diverse ho potuto fare....
qualcuno mi spiega bene come usarla? e come scrivere l'intera riga
corretta....
mi sono documentato con l' hlp ma non riesco ugualmente...
Grazie a presto


title: Articolo - Descrizione

author: Gianpaolo

text:
"massimo" <
mas...@inwind.it
> wrote in message
news:oYZk8.30922$%g7.9...@twister2.libero.it...
> Mi ritrovo con un gestionale magazzino...
> In una sottomaschera dettalgi ordini con origine record query1 dovrei
> inserire la riga di dettagli per codart e qui tutto ok e per descrizione e
> qui mi blocco con il Dlookup  su evento della combo descrizione.....
>
> me!descrizione=("idcodart",Articoli","descrizione=forms!sottomascheradettagl
> i!descrizione")
Francamente non ho capito la domanda e non vedo dove hai utilizzato
DLookup (eventualmente doveva essere prima delle parentesi rotonde) ,
puoi ripetere in altra maniera la richiesta?
Ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Articolo - Descrizione

author: Emyr

text:


o prova con format
Saluti.
Emanuele.


title: Articolo - Descrizione

author: Roccia

text:
Il Sun, 17 Mar 2002 11:11:00 +0100, massimo oso' dichiarare:
> Mi ritrovo con un gestionale magazzino...
> In una sottomaschera dettalgi ordini con origine record query1 dovrei
> inserire la riga di dettagli per codart e qui tutto ok e per descrizione e
> qui mi blocco con il Dlookup  su evento della combo descrizione.....
>
> me!descrizione=("idcodart",Articoli","descrizione=forms!sottomascheradettagl
> i!descrizione")
Non devi dagli il nome della sottomaschera, ma il nome del controllo che
la contiene nella maschera principale.
Inoltre, hai fatto un  po' di caos con gli apici (E hai dimenticato il
dlookup...)
Me.Descrizione=Dlookup("idCodArt","Articoli","descrizione=""" & forms!
MascheraPrincipale!ControlloSottomascheradettagli!Descrizione & """")
O,piu' probabilmente:
Me.Descrizione=DLookup("Descrizione","Articoli","IDCodArt=""" & forms!
MascheraPrincipale!ControlloSottomascheraDettagli!IdCodArt & """")
ipotizzando che idcodart sia una stringa.
--
Cia'
"Roccia" Max De Poli <
rocc...@katamail.com
>


title: A2003 - cose strane o alieni nel pc?

author: Fd

text:
Ciao a tutti,
    è un po' che smanetto con access e di cose strane ne ho viste...ma
questa le batte tutte
Ho un progetto in access 2003 che gira su un server win 2003.
Ogni tanto capitano cose strane che non riesco a spiegarmi.....l'utima ieri
aprendo un report di stampa.
Uno dei campi testo... all'improviso ha perso il collegamento al campo
d'origine a cui era collegato.....
Cosa strana anche perchè avevo già stampanto lo stesso record...(almeno 4 o
5 volte nell'ora precedente)
ed ha sempre funzionato... senza alcun problema...
A quel punto l'unico modo per risolvere il problema è stato quello di
cancellare la casella testo e ricrearla
collegata al campo d'origine.
Pensavo fosse un problema di access 2003 ma è già aggiornato all SP1 di
office 2003... no capisco
Può dipendere dal fatto che uso file mdb e non mde?
Sono l'unico che subisce queste cose oppure c'è chi la ha già viste?
Ciao e grazie
Fd


title: A2003 - cose strane o alieni nel pc?

author: Bruno Campanini

text:
"Fd" <
f...@libero.it
> wrote in message
news:432bf900$0$8499$5fc...@news.tiscali.it...

C'è chi n'ha viste tante e dieci volte tante.
Sta' tranquillo!
Non dovrebbe entrarci per niente il fatto di stare usando
un file .mdb invece di un .mde.
Piuttosto cos'hai consumato all'ultimo pasto?
E quando hai fatto l'ultimo bagno?
Ciao
Bruno


title: A2003 - cose strane o alieni nel pc?

author: Oscar Manfredini

text:
"Fd"
> Può dipendere dal fatto che uso file mdb e non mde?
>
> Sono l'unico che subisce queste cose oppure c'è chi la ha già viste?
Mah, la tua non è malvagia.
Comunque NON distribuire in formato .mdb incontrerai problemi simili in
altre occasioni.
Access ha il vizio di scrivere nel design degli .mdb (cosa che non può fare
con un .mde) un mucchio d'impostazioni.
I filtri/ordinamenti impostati, le impostazioni dei datasheets, le
impostazioni dei reports di stampa, etc. etc.
Se gli utenti smanettano un pochino (ma neanche troppo) sono guai grossi.
Ciao.


title: A2003 - cose strane o alieni nel pc?

text:
"Bruno Campanini" <
> C'è chi n'ha viste tante e dieci volte tante.
> Sta' tranquillo!
Dieci volte quella?
Al posto suo non starei così tranquillo!     :-)
> Non dovrebbe entrarci per niente il fatto di stare usando
> un file .mdb invece di un .mde.
Mhmm:  proprio non ci giurerei.
Ciao.


title: impossibile intercettare chiusura form?! (da pulsante)

author: faz

text:
Ciao a tutti
Come da titolo ho problemi a intercettare la chiusura di un form qualora
l'utente
premesse l'opportuno commandbutton. (dalla X a destra invece va)
In pratica viene eseguito il codice senza errori ma il form NON si chiude
piu'
Senza ulteriori indugi posto subito il semplicissimo codice:
------------------------------------------------
Option Compare Database
Private Sub cmdok_Click()
On Error GoTo Err_handler
Form_Unload (False)
exit sub
Err_handler:
    Debug.Print "Errore:"; Err.Description; Err.Number
End Sub
Private Sub check_routine1()
    Debug.Print "dentro check_routine"
End Sub
Private Sub Form_Unload(Cancel As Integer)
check_routine1
end sub
-----------------------------------------------------
allora, se sostituisco l'evento unload con l'evento close il risultato è
uguale, il form *non*
viene chiuso se clicco sul pulsante cmdok
Poi se inserisco un docmd.close in coda all'evento
unload/close mi da
errore
(La routine check_routine1 viene eseguita)
Ciao e grazie per l'attenzione


text:
"faz" <
fazf...@gmail.com
> ha scritto nel messaggio
news:gfrira$159$1...@aioe.org...
> Ciao a tutti
>
ops, risolto


author: geppo

text:

č buona norma postare anche la soluzione, magari serve ad altri.
--
Ciao
Geppo


title: Zoom in Access

author: Red Wolf

text:
ciao
in  Visualizzazione Struttura di una query e facendo Zoom (o Genera)
devo scrivere una
IIf
complessa, ma non trovo un sistema di editing che mi aiuti
(colorazione delle parentesi, ecc).
Che sw posso usare, "al posto" di Access?
Grazie
ciao


title: Zoom in Access

author: CIDI

text:
"Red Wolf" <
migl...@virgilio.it
> ha scritto nel messaggio
news:6b609e16-e677-4937...@e37g2000yqn.googlegroups.com...

Word?
ciao
Daniele


title: Zoom in Access

text:
On 18 Gen, 15:27, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Red Wolf" <
migli...@virgilio.it
> ha scritto nel messaggionews:6b609e16-e677-4937...@e37g2000yqn.googlegroups.com...
>
> > ciao
>
> > in  Visualizzazione Struttura di una query e facendo Zoom (o Genera)
> > devo scrivere una
> > IIf
> > complessa, ma non trovo un sistema di editing che mi aiuti
> > (colorazione delle parentesi, ecc).
> > Che sw posso usare, "al posto" di Access?
>
> Word?
>
> ciao
> Daniele
e come?


title: Zoom in Access

text:
"EMc2" <
migl...@virgilio.it
> ha scritto nel messaggio
news:e2dcfab9-3658-486d...@m16g2000yqc.googlegroups.com...

e come?
la scrivi in word...e copiaincolla in access  :D
Ciao
Daniele


title: Zoom in Access

text:
CUT
>
> la scrivi in word...e copiaincolla in access  :D
>
> Ciao
> Daniele
ma word non mi dà nessun aiuto nella scrittura dell'istruzione...


title: Zoom in Access

author: Fabrizio Conti (Panathos)

text:
On 18 Gen, 23:44, EMc2 <
e.migli...@soft.it
> wrote:
> ma word non mi dà nessun aiuto nella scrittura dell'istruzione...
Puoi provare pspad (
www.pspad.com
), che è gratuito, portabile,
supporta l'evidenziazione di sintassi per vari linguaggi e "dialetti"
SQL; e fra i plugin scaricabili dal suo sito trovi anche un comodo
formattatore di codice SQL.
Ciao e buon lavoro.


title: Zoom in Access

author: Marco Pizzamiglio

text:
Red Wolf ha scritto:

Se � molto complessa ti conviene scrivere una Public Function in un
modulo, cos� puoi sfruttare le strutture decisionali di VBA (If ... Then
.. ElseIf - Select ... Case) e la funzione risulter� sicuramente pi�
leggibile e pi� facile da scrivere.
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: Zoom in Access

text:
On 18 Gen, 23:44, EMc2 <
e.migli...@soft.it
> wrote:

in effetti sia pspad che usare un a P.F. potrebbero essere utili.
Speravo che ci fosse un sw che permettesse di interfacciare Access e
fosse "dedicato"
grazie


title: richiamare una Sub da Combo con nome diverso

author: Franco dellavalle

text:
ciao a tutti

in un modulo ho questa Sub

Public Sub TrovaCliente(Frm As Form)

  Dim strText, strFind
  Dim strSql As String

  strText = Frm!CboCliente.Text

  If Nz(Frm!CboCliente.Column(1), 0) <> strText Then
    strFind = "NomeCliente Like '"
    strFind = strFind & "*" & Replace(strText, "'", "''") & "*"
    strFind = strFind & "'"

    strSql = vbNullString
    strSql = strSql & "SELECT * "
    strSql = strSql & "FROM TbClienti "
    strSql = strSql & "Where " & strFind
    strSql = strSql & "ORDER BY NomeCliente"

    Frm!CboCliente.RowSource = strSql
    Frm!CboCliente.Dropdown

  End If

posso richiamarla da una casella combinata
che ha un'altro nome?
p.e. CboCli?

grazie


text:
Si ma ovviamente agisce sulla combo che è indicata nel codice... sempre ci sia...

Se la vuoi riciclare va riscritta... ma avrebbe poco senso... sarà mai vero che il codice SQL possa essere uguale..?

@Alex


text:

grazie Alex


title: Query con parametri

author: TORE MOLISSO

text:
Ciao, vorrei sapere come fare a non far bloccare una query che prende dei
paramentri da una maswchera quando questi parametri sono assenti. Penso che
si risolva con "NoData" o qualcosa del genere ma non sono riuscito a capirlo
esattamente. Per esempio la mia query prende il CODAgente da una maschera
cosě come il CODFornitore.Se i valori sono presenti tutti e due non ho
problemi perchč la query funziona e mi restituisce le Fatture di quel
Fornitore per quell'agente,perň se uno dei due manca la query invece di
restituire tutte le fatture di quel fornitore senza distinzione di agenti si
blocca chiedendomi il codice agente. Come posso fare per non crearmi
un'altra query che si basi solo sul codice fornitore o solo sul codice
agente?
Ciao e grazie...


title: Query con parametri


title: Stringa sql non funziona a runtime

author: yosef

text:
Ho la seguente stringa che funziona refgolarmente in fase di sviluppo
mentre nell'installazione a runtime mi da il seguente errore (ho
lasciato il file in formato .mdb ma l'erroe lo da anche se .mde):
Esecuzione dell'applicazione interrotta a causa di un errore di
runtime.
L'applicazione verrà terminata.
sql = "SELECT ar.ID, tab.Valore AS Tributo, Ta.Valore, ar.NumeroAtto,
a.Valore, "
sql = sql & " ar.DataNotifica, Format(ar.Importo,'Standard') AS Espr2,
ar.IdRicorso "
sql = sql & " FROM ((AttiInRicorso AS ar LEFT JOIN tabelle AS a ON
ar.IdAnno = a.ID) "
sql = sql & " LEFT JOIN Tabelle AS tab ON ar.IdTributo = tab.ID) "
sql = sql & " LEFT JOIN Tabelle AS ta ON ar.IdTipoAtto = Ta.ID "
sql = sql & " WHERE ar.IdRicorso = " & [Forms]![ricorsi]![ID] & " AND "
sql = sql & " tab.Classe = " & 2 & " AND a.Classe = " & 1 & " AND
Ta.Classe = " & 3 & ";"
Il problema penso sia nelle join, però non sono riuscito a capire il
problema.
In pratica mi serve per riempire un recordset per popolare una
listview.
Grazie
Giuseppe


title: Stringa sql non funziona a runtime

author: MA

text:

Prova a metterci un debug.print sql e ad copiaincollare in una query quello
che vine fuori
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


title: Stringa sql non funziona a runtime

text:
MA ha scritto:

La stringa funziona correttamente e mi da i giusti risultati, il
problema ce l'ho nell'installazione su un pc senza access con xp
pro,dimenticavo utilizzo access 2003.
grazie
giuseppe


title: Stringa sql non funziona a runtime

text:
MA ha scritto:

la stringa che produce il debug.print sql è:
SELECT ar.ID, tab.Valore AS Tributo, Ta.Valore, ar.NumeroAtto,
a.Valore, ar.DataNotifica, Format(ar.Importo,'Standard') AS Espr2,
ar.IdRicorso FROM ((AttiInRicorso AS ar LEFT JOIN tabelle AS a ON
ar.IdAnno = a.ID) LEFT JOIN Tabelle AS tab ON ar.IdTributo = tab.ID)
LEFT JOIN Tabelle AS ta ON ar.IdTipoAtto = Ta.ID WHERE ar.IdRicorso = 1
AND tab.Classe = 2 AND a.Classe = 1 AND Ta.Classe = 3;
ed incollandola in una query funziona correttamente...
non so
grazie
giuseppe


title: Stringa sql non funziona a runtime

text:
MA ha scritto:

Dimenticavo l'errore lo da n questa riga di comando:
Set rs = CurrentDb.OpenRecordset(sql)
grazie ancora


title: NotInList

author: Giuseppe

text:
Ciao a tutti
Questa routine NotInList   funziona bene solo che non
riesco a far comparire il mio messaggio
"digita un codice esistente nella casella"
se nella finestra di messaggio iniziale scelgo NO
Mi sapete dire dove sbaglio
Private Sub IDProdotto_NotInList(NewData As String, Response As Integer)
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "                       codice non in elenco"
strMsg = "ATTENZIONE il Codice   " & NewData & "   è inesistente vuoi
codificarlo ? "
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
If Forms!ElencoOrdini!CodiceFornitore.Value = 1 Then
 IDProdotto.Undo
Me.Undo
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal, NewData
Response = acDataErrAdded
Response = acDataErrContinue
Forms![CodificaProdotti]![Chiudi1].Visible = True
Forms![CodificaProdotti]![Chiudi2].Visible = False
ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = 54 Then
IDProdotto.Undo
Me.Undo
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal, NewData
Response = acDataErrAdded
Response = acDataErrContinue
Forms![CodificaProdotti]![Chiudi3].Visible = True
Forms![CodificaProdotti]![Chiudi4].Visible = False
ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = Not 1 Or 54 Then
IDProdotto.Undo
Me.Undo
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal, NewData
Response = acDataErrAdded
Response = acDataErrContinue
Forms![CodificaProdotti]![Chiudi5].Visible = True
Forms![CodificaProdotti]![Chiudi6].Visible = False
Else
strTitolo = "                      Informazione   "
strMsg = "   digita un codice esistente nella casella.      "
IntFinestraMsg = vbOKOnly + vbExclamation
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
Response = acDataErrAdded
Response = acDataErrContinue
Me!IDProdotto.Undo
Me!IDProdotto.Requery
    End If
         End If
                  End If
CIAO Giuseppe


title: NotInList

author: Antonio Biso

text:
"Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:jIEeb.151047$hE5.5...@news1.tin.it...
> Ciao a tutti
> Questa routine NotInList   funziona bene solo che non
> riesco a far comparire il mio messaggio
> "digita un codice esistente nella casella"
> se nella finestra di messaggio iniziale scelgo NO
>
> Mi sapete dire dove sbaglio
Prima di tutto a non indentare correttamente il tuo codice
[skip]
> If IntNuovo = vbYes Then
      If Forms!ElencoOrdini!CodiceFornitore.Value = 1 Then
         IDProdotto.Undo
         Me.Undo
         DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal,
NewData
         [skip]
     ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = 54 Then
         [skip]
         DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal,
NewData
         [skip]
     ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = Not 1 Or 54 Then
                        AAALLLT: QUESTA CHE VOR Dì?!?!
                    La sintassi giusta sarebbe ...value <> 1 and ...value <>
54
                    ma comunque, visto che stai facendo if then else se
arrivi qui sicuramente
                   non è nè 1 nè 54 quindi basterebbe un else e basta ma a
quel punto
                   l'ultimo else che ci sta a fare?!?!
         [skip]
         DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal,
NewData
         [skip]
    Else
         Appunto! qui  non ci arrivi mai perchè finisci nell'else
precedente!
        Ah ho capito, questo lo volevi fare come else del vbyes!!!
        Allora prima dovevi chiudere l'if then elseif interno. Pertanto
diventa
        [skip]
>
>     End If
>          End If
>                   End If
>
    ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = Not 1 Or 54 Then
                        AAALLLT: QUESTA CHE VOR Dì?!?!
                    La sintassi giusta sarebbe ...value <> 1 and ...value <>
54
                    ma comunque, visto che stai facendo if then else se
arrivi qui sicuramente
                   non è nè 1 nè 54 quindi basterebbe un else e basta ma a
quel punto
                   l'ultimo else che ci sta a fare?!?!
         [skip]
         DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, acNormal,
NewData
         [skip]
    end if
 Else
      messaggio
 end if
Antonio


title: NotInList

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:dZFeb.1792$e6.4...@twister2.libero.it...
> "Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> news:jIEeb.151047$hE5.5...@news1.tin.it...
> > Ciao a tutti
> > Questa routine NotInList   funziona bene solo che non
> > riesco a far comparire il mio messaggio
> > "digita un codice esistente nella casella"
> > se nella finestra di messaggio iniziale scelgo NO
> >
> > Mi sapete dire dove sbaglio
>
> Prima di tutto a non indentare correttamente il tuo codice
Che vordě
[ CUT]
Ho provato la tua soluzione ma non mi funziona
sto sbagliando qualcosa
Ricapitoliamo , io ho questo:
( lasciamo perdere la sintassi )
 If IntNuovo = vbYes Then
If Forms!ElencoOrdini!CodiceFornitore.Value = 1 Then
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ....
Istruzioni.......
ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = 54 Then
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ..........
Istruzioni ........
ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = Not 1 Or 54 Then
DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ........
Istruzioni ........
Else
strTitolo = "  Informazione   "
strMsg = "   digita un codice esistente nella casella.      "
IntFinestraMsg = vbOKOnly + vbExclamation
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
end if
    end if
        end if
Come devo fare per fare in modo che se le tre "opzioni"
non sono vere  si passi al Messaggio personalizzato
Ciao Giuseppe


title: NotInList

text:
"Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:pMQeb.153129$hE5.5...@news1.tin.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:dZFeb.1792$e6.4...@twister2.libero.it...
> > "Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> > news:jIEeb.151047$hE5.5...@news1.tin.it...
> > > Ciao a tutti
> > > Questa routine NotInList   funziona bene solo che non
> > > riesco a far comparire il mio messaggio
> > > "digita un codice esistente nella casella"
> > > se nella finestra di messaggio iniziale scelgo NO
> > >
> > > Mi sapete dire dove sbaglio
> >
>
> > Prima di tutto a non indentare correttamente il tuo codice
>
> Che vordģ
Indentare vuol dire allineare i blocchi di codice allo stesso livello in
modo da capire quando vengono chiusi e come.
>
> [ CUT]
>
> Ho provato la tua soluzione ma non mi funziona
> sto sbagliando qualcosa
> Ricapitoliamo , io ho questo:
> ( lasciamo perdere la sintassi )
>
>
>  If IntNuovo = vbYes Then
> If Forms!ElencoOrdini!CodiceFornitore.Value = 1 Then
> DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ....
> Istruzioni.......
>
> ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = 54 Then
> DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ..........
> Istruzioni ........
>
> ElseIf Forms!ElencoOrdini!CodiceFornitore.Value = Not 1 Or 54 Then
> DoCmd.OpenForm "CodificaProdotti", , , , acFormAdd, ........
> Istruzioni ........
Te l'avevo gią detto, ma evidentemente non hai letto la mia risposta!
QUA VA MESSO L'END IF DEL IF THEN ELSE INTERNO
>
> Else
> strTitolo = "  Informazione   "
> strMsg = "   digita un codice esistente nella casella.      "
> IntFinestraMsg = vbOKOnly + vbExclamation
> IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
>
> end if
>     end if
>         end if
C'hai due endif di troppo adesso
Antonio


title: Estrazione dati da query con query

text:
In una tabella ad un solo campo ho una seririe di record cosi composti:
\VmWare_Windows\VMware\Workstation\3.2.0.2230DAMN.zip
 la lunghezza del record varia da record a record
io devo estrarre la parte del file terminale ossia
3.2.0.2230DAMN.zip
ho provato in vari modi senza risultato in quanto anche questa parte è
variabile da record a record
io dovrei estrarre la parte compresa tra la parte destra estrema e "\"
grazie


title: Estrazione dati da query con query

author: Cinzia

text:
"Calimero101" <
calimero...@yahoo.it
> ha scritto nel messaggio
news:1viwfqj46bie1$.1razgjcfw1gll.dlg@40tude.net...

Ciao Calimero,
Devi creare una funzione che prenda in input il campo intero e restituisca
la parte terminale che ti serve
Con I=InstrRev(Stringa, "\")  trovi la posizione dell'ultimo slash poi con
la funzione Mid(Stringa, I) estrai il pezzo che ti serve;
Non l'ho provata ma dovrebbe funzionare...
Public Function estrai(buf as string) as String
Dim i As integer
    Estrai = ""
    if not isnull(buf) then
        i = InStrRev(buf, "\")
        if i > 0 then
            Estrai=Mid(buf, I+1)
        end if
   end if
end function
Nella query la usi in questo modo Select Estrai([Campo1]) as nomefile From
Tabella1
Ciao
Cinzia


title: Estrazione dati da query con query

author: namor

text:
Cinzia ha scritto:
> "Calimero101" <
calimero...@yahoo.it
> ha scritto nel messaggio
> news:1viwfqj46bie1$.1razgjcfw1gll.dlg@40tude.net...
> > In una tabella ad un solo campo ho una seririe di record cosi composti:
> >
> > VmWare_WindowsVMwareWorkstation3.2.0.2230DAMN.zip




InStrRev() è disponibile solo da Access 2000 in poi. Se usi il 97 devi
scrivertela tu ma non è difficile.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Estrazione dati da query con query

text:
In data Wed, 1 Sep 2004 21:37:00 +0200, Cinzia ha scritto:
> Ciao Calimero,
> Devi creare una funzione che prenda in input il campo intero e restituisca
> la parte terminale che ti serve
> Con I=InstrRev(Stringa, "\")  trovi la posizione dell'ultimo slash poi con
> la funzione Mid(Stringa, I) estrai il pezzo che ti serve;
> Non l'ho provata ma dovrebbe funzionare...
>
> Public Function estrai(buf as string) as String
> Dim i As integer
>     Estrai = ""
>     if not isnull(buf) then
>         i = InStrRev(buf, "\")
>         if i > 0 then
>             Estrai=Mid(buf, I+1)
>         end if
>    end if
> end function
>
> Nella query la usi in questo modo Select Estrai([Campo1]) as nomefile From
> Tabella1
>
>
> Ciao
> Cinzia
Ciao Cinzia,
grazie per l'aiuto, anche se mi sa che ho sbagliato ancora qualcosa:
Ho creato il modulo come ha detto tu (salvato come mudulo1 in automatico)
dalla tabella "Myd" composta con i campi "cd" e "file", dove file
corrispondono i dati come avevi già visto:
\Aggionamenti Antivirus\agg mcafee\sdat4297.exe
\Aggionamenti Antivirus\agg mcafee\sdat4301.exe
\Aggionamenti Antivirus\agg norton\20031013-007-i32.exe
\Aggionamenti Antivirus\agg norton\20031103-006-i32.exe
\Browser\avant browser 8\Avant Browser, a tabbed browser with Flash Filter,
Popup Stopper\ablogo.gif
\Browser\avant browser 8\Avant Browser, a tabbed browser with Flash Filter,
Popup Stopper\adbanner.gif
Quindi ho creato una query così:
SELECT Myd.cd,Estrai([Myd.file]) as nomefile
FROM Myd;
ma quando do l'esegui mi riporta la tabella originaria senza alcuna
modifica.
grazie anticipatamente per l'aiuto che puoi darmi
Calimero


title: Estrazione dati da query con query

text:
"Calimero101" <
calimero...@yahoo.it
> ha scritto nel messaggio
news:1uodqyx63hnhx.1ykm4hdkd4xg$.dlg@40tude.net...

> corrispondono i dati come avevi giŕ visto:
>
> \Aggionamenti Antivirus\agg mcafee\sdat4297.exe
> \Aggionamenti Antivirus\agg mcafee\sdat4301.exe
> \Aggionamenti Antivirus\agg norton\20031013-007-i32.exe
> \Aggionamenti Antivirus\agg norton\20031103-006-i32.exe
> \Browser\avant browser 8\Avant Browser, a tabbed browser with Flash
Filter,
> Popup Stopper\ablogo.gif
> \Browser\avant browser 8\Avant Browser, a tabbed browser with Flash
Filter,
> Popup Stopper\adbanner.gif
>
> Quindi ho creato una query cosě:
>
> SELECT Myd.cd,Estrai([Myd.file]) as nomefile
> FROM Myd;
>
> ma quando do l'esegui mi riporta la tabella originaria senza alcuna
> modifica.
>
>
> grazie anticipatamente per l'aiuto che puoi darmi
> Calimero
Ciao Calimero,
mi sembra tutto a posto
provo a "insegnarti" il debug di una funzione vediamo se riesci a scoprire
cosa c'č che non va!.
Allora, seguimi vai sul modulo1, posizionati sulla riga
 estrai = ""
 e premi F9 vedrai un bel puntone rosso di fianco alla riga.
Adesso chiudi la finestra di visual basic,  esegui la query e vedrai che ad
un certo punto verrai riportato nel modulo1 alla riga dove abbiamo messo
l'interuuzione. Premendo F8 eseguirai la funzione passo per passo cosě
potrai vedere che giro fa.
Durante l'esecuzione se  ti posizioni con il mouse su una variabile ad
esempio su I e ci rimani fermo per qualche secondo vedrai il suo valore e
potrai capire cosa c'č che non va.
Fammi sapere se scopri qualcosa!
Cinzia


title: ricerca programmatore Access

author: Autorità Bacino Int. Sele

text:
Analista programmatore cerca programmatore Access per la realizzazione di 3
programmi.


title: ricerca programmatore Access

author: Carlo Ve

text:
Autorità Bacino Int. Sele ha scritto nel messaggio
<8j9l3t$mof$
1...@nslave1.tin.it
>...
>Analista programmatore cerca programmatore Access per la realizzazione di 3
>programmi.
Magari non sarebbe male specificare pure la zona in cui deve essere fatto il
lavoro
Carlo Ve


title: Come aggiungere record da una query/maschera?

author: Bassa

text:
Ciao a tutti.
Sto disperatamente cercando di capire come si possono aggiungere record alle
tabelle da una query o da una maschera. Ogni volta che cerco di farlo
l'applicazione mi impedisce di scrivere e mi dice: "Impossibile aggiungere
record. La chiave di join della tabella ... non si trova nel set di record."
Che vuol dire?
Grazie.


author: Silvio Berruti

text:
"Bassa" <
ba...@subdimension.com
> ha scritto nel messaggio
news:uwp07.1220$K55....@news.infostrada.it...

che probabilmente si tratta di una query non aggiornabile (ad es. una query
di raggruppamento).
Spiegaci cosa desideri fare e la struttura delle tabelle.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Riquadro in sottoreport

author: cranze

text:
Ciao a tutti,
ho usato il seguente metodo consigliato sul sito comune per disegnare un
riquadro all'interno di un report.
Private Sub Report_Page()
   Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight - 10), , B
End Sub
Se però il report è un sottoreport, allora l'evento su pagina non ha alcun
effetto.
Come posso risolvere per vedere il mio riquadro anche in un sottoreport?
Grazie


title: Riquadro in sottoreport

author: Roberto da casa

text:
"cranze" <
cranze_...@tiscali.it
> ha scritto nel messaggio
news:4415bea4$0$29116$5fc...@news.tiscali.it...

Potresti disegnare il riquadro non nel sottoreport ma nel report principale
disegnadolo intorno al controllo sottoreport e facendo quidi riferimento
alla posizione ed alle dimensioni di tale controllo; penso che questa sia la
soluzione.
> Grazie
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Riquadro in sottoreport

text:
>> Come posso risolvere per vedere il mio riquadro anche in un sottoreport?
>
> Potresti disegnare il riquadro non nel sottoreport ma nel report
> principale
> disegnadolo intorno al controllo sottoreport e facendo quidi riferimento
> alla posizione ed alle dimensioni di tale controllo; penso che questa sia
> la
> soluzione.
>
>> Grazie
>
> --
> Roberto
Grazie Roberto per il tuo interessamento,
in effetti avevo già risolto proprio così, ma mi rimane il dubbio su come
far girare un qualsiasi codice che abbia l'evento su pagina anche nei
sottoreport.
E' una cosa proprio impossibile o esiste qualche trucco?
Ciao


title: Riquadro in sottoreport

text:
"cranze" <c*r*a*n*z*
e_no_...@tiscali.it
> ha scritto nel messaggio
news:dv6joo$8ho$1...@fata.cs.interbusiness.it...

E' intuitivo che a fronte dell'evento "Su pagina" del report principale puoi
far riferimento solo a controlli del report principale stesso; ritengo
invece che parlare dell'evento "Su pagina" per un sottoreport abbia poco
senso, visto che la pagina appartiene al report principale e non al
sottoreport.
Naturalmente mi farebbe piacere essere smentito.
> Ciao



title: Intestazione e piè di pag. nei sottoreport

author: Donato

text:
Ho un Sottoreport dove nel piè di pagina ho dei campi che mi fanno il totale
dei campi che sono nel "Corpo" dello stesso sottoreport.
Se visualizzo il sottoreport da solo tutto funziona, ma quando vado ad
aprire il report principale non viene visualizzata ne l'intestazione nè il
piè di pagina dove ho i totali....
Ho letto su un libro che Access non visualizza le due sezioni intestazione e
piè di pagina nei sottoreport...è vero? Come posso fare per fare apparire
sti benedetti campi con i totali per gruppo, dato che devo inserire tre
sottoreport ognuno con i suo bei totali?
Ciao e grazie
Donato
ark...@tin.it


author: Emyr

text:


li richiami nel totale di grupppo
casella di testo con origine dati il campo del sottoreport che ti
serve
Saluti.
Emanuele.


title: Validazione dati in uscita

author: Davide Prati

text:
Sto mettendo in piedi un bel progetto con un database .adp.
Ovviamente devo validare le informazioni prima di uscire da una maschera, e
qui nasce il problema.
Il mio database è attualmente su MSDE ma andrà su SQL Server.
Ovviamente il mio DB è dotato di check e constraint di validazione.
Ora quando inserisco dati nella maschera e provo ad uscire con il pulsantino
[x] avvengono le validazioni che posso compiere nella function
Form_BeforeUpdate.
Se per caso le mie validazioni non sono corrette, avrei bisogno di rimanere
nella form, ma non mi è possibile annullare l'operazione di chiusura e
compare un messaggio di Access che dice che i dati non sono validi e che non
saranno salvati nel DB. Chiede se si vuole uscire ugualmente dalla form
oppure no.
Ovviamente non sono riuscito nemmeno ad intercettare i messaggi dei
constraint.
Vorrei sapere se sto farneticando oppure se esistono dei modi per annullare
l'uscita.
Tra le altre cose, se controllo campo per campo la validazione all'uscita di
ciascuno, non riesco comunque da evitare il prpoblema.
Help!
Davide
--------------------------------
Inviato via
http://usenet.libero.it


title: Validazione dati in uscita

text:
On Wed, 18 Dec 2002 14:50:37 GMT,
davi...@libero.it
 (Davide Prati)
wrote:

non puoi fare i controlli sull'evento close della maschera ed al
limite annullatlo ?
cancel=true
se non ricordo male...
Saluti.
Emanuele.


title: Aprire una maschera e filtrarla..?

author: roby

text:
Apro una maschera con un pulsante , con qlc riga di VBA, e vorrei
eseguire un filtraggio, su di un campo, in modo che nella maschera che
apro mengano visualizzati solo i record che contengono il CAMPO_X
ugale  al valore "VALORE".
Quindi come eseguire un filtraggio prima di aprire uma maschera in
automatico?
Serve una query?
Grazie,
Roby
Inviato da
www.mynewsgate.net


title: Aprire una maschera e filtrarla..?

author: Pablitomf

text:
roby ha scritto:
> Apro una maschera con un pulsante , con qlc riga di VBA, e vorrei
> eseguire un filtraggio, su di un campo, in modo che nella maschera che
> apro mengano visualizzati solo i record che contengono il CAMPO_X
> ugale  al valore "VALORE".
> Quindi come eseguire un filtraggio prima di aprire uma maschera in
> automatico?
DoCmd.OpenForm "Tua_Form_Filtrata", , , "[Tuo_Campo_VALORE]=" &
Me![Tuo_Campo_X]
> Serve una query?
E' un metodo alternativo...utile, ma non necessario...a volte sicuramente
più performante.
> Grazie,
> Roby
Ciao
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aprire una maschera e filtrarla..?

text:
Pablitomf <
maurizio...@accessgroup.it
> ha scritto:
> roby ha scritto:
>
> > Apro una maschera con un pulsante , con qlc riga di VBA, e vorrei
> > eseguire un filtraggio, su di un campo, in modo che nella maschera
che
> > apro mengano visualizzati solo i record che contengono il CAMPO_X
> > ugale  al valore "VALORE".
> > Quindi come eseguire un filtraggio prima di aprire uma maschera in
> > automatico?
>
> DoCmd.OpenForm "Tua_Form_Filtrata", , , "[Tuo_Campo_VALORE]=" &
> Me![Tuo_Campo_X]
>
> > Serve una query?
>
> E' un metodo alternativo...utile, ma non necessario...a volte
sicuramente
> più performante.
>
Scusa chi è + performante la query o il filtro?
Al codice che mi hai suggerito
"DoCmd.OpenForm "Tua_Form_Filtrata", , , "[Tuo_Campo_VALORE]=" &
Me![Tuo_Campo_X]"
se volessi aggiungere la possibilità di creare e posizionarmi
automaticamente su un nuovo record, se non esiste nessun record con tale
valore, come fare?
Ciao,
Roby,
Grazie.
Inviato da
www.mynewsgate.net


title: Aprire una maschera e filtrarla..?

text:
roby ha scritto:
> Scusa chi è + performante la query o il filtro?
Query!
> Al codice che mi hai suggerito
> "DoCmd.OpenForm "Tua_Form_Filtrata", , , "[Tuo_Campo_VALORE]=" &
> Me![Tuo_Campo_X]"
> se volessi aggiungere la possibilità di creare e posizionarmi
> automaticamente su un nuovo record, se non esiste nessun record con tale
> valore, come fare?
Devi gestire l'errore...
On Error goto ERRORE:
...
...
...
...
ERRORE :
Apri la maschera in mod. inserimento
End Sub
> Ciao,
> Roby,
> Grazie.
> Inviato da
www.mynewsgate.net



title: Aprire una maschera e filtrarla..?

text:
Pablitomf <
maurizio...@accessgroup.it
> ha scritto:
> roby ha scritto:
>
> > Scusa chi è + performante la query o il filtro?
>
> Query!
E se la volessi usare dove la dovrei richiamare e come?

> > Al codice che mi hai suggerito
> > "DoCmd.OpenForm "Tua_Form_Filtrata", , , "[Tuo_Campo_VALORE]=" &
> > Me![Tuo_Campo_X]"
> > se volessi aggiungere la possibilità di creare e posizionarmi
> > automaticamente su un nuovo record, se non esiste nessun record con tale
> > valore, come fare?
>
> Devi gestire l'errore...
nella routine di caricamento della maschera?
ho fatto così:
Private Sub Form_Load()
    Me!LOTTO = Forms!TAB_LOT!LOTTO
    DoCmd.OpenForm "TAB_SAG", , , "[LOTTO]=" & Me![LOTTO]
On Error goto ERRORE:
ERRORE:
        DoCmd.OpenForm "TAB_SAG", , , , acFormAdd
End Sub

> On Error goto ERRORE:
> ....
> ....
> ERRORE :
> Apri la maschera in mod. inserimento
>
> End Sub
Ma nn funge,
quando trovo un valore nn presente nella 2 tabella mi devo posizionare alla
fine per poterci scrivere il nuovo recodr.
forse sbaglio con il comando acFormAdd, ma nn conosco il VB.
Ancora GRAZIE,
Roby
Inviato da
www.mynewsgate.net


title: Importazione file XML

author: Marco

text:
Ciao a tutti di nuovo
che voi sappiate è già possibile con access (xp o 2003) importare un
file XML?
Mi sembra che con XP developer di possa esportare un XML ma non ho
trovato nulla sull'importazione.
Ciao
Marco
pisani.marco(LEVAMI)@
tiscali.it


title: Questions

text:
Sorry for the question buy I'm new to SabreDAV
Can I use SabreDAV with an pre-existing database to create a calendar with the protocol CalDAV?
And can I only use Mysql and SQLite or can I also use MS SQL?
Thank to everyone that will answer and sorry if I made some grammatic mistakes but I'm italian...


title: Questions

author: Bruno Campanini

text:
francescom...@gmail.com
 has brought this to us :

E se sei italiano, perché non parli italiano?
I mutamenti climatici...

Bruno


title: Questions

text:

Ha sbagliato Forum, oppure è per i Romani...

@Alex


title: Questions

author: Alessandro Cara

text:

.....Che sono famosi per il loro inglese fluente

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


title: Questions

author: Ammammata

text:
Il giorno Fri 21 Jun 2019 11:10:55a, *@Alex* ha inviato su
it.comp.appl.access il messaggio news:43ee33f0-5482-449d-b1cd-
688f04...@googlegroups.com
. Vediamo cosa ha scritto:

> Ha sbagliato *Forum*

eh?

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


title: Account utenti con Access 97 su win nt

author: max

text:
Piccolo problema con Access 97  su Win NT.
Ho notato che impostando un certo numero di utenti nel menu
strumenti -->sicurezza --> account utenti e gruppi,  le impostazioni sono
valide solo sul pc sul quale ho lavorato.
O meglio condividendo il file ad altre macchine in rete l'unica impostazione
che rimane attiva è la PW sul DB.
Come faccio a rendere effettive le impostazioni utenti anche sulle altre
macchine della rete?
Come posso costruire dei profili utente con vari privilegi sul DB in rete
NT?
Grato in anticipo


title: Account utenti con Access 97 su win nt

author: Lorenzo Coronati

text:
Scrisse "max" <
maxmian...@libero.it
>:
>Ho notato che impostando un certo numero di utenti nel menu
>strumenti -->sicurezza --> account utenti e gruppi,  le impostazioni sono
>valide solo sul pc sul quale ho lavorato.
>O meglio condividendo il file ad altre macchine in rete l'unica impostazione
>che rimane attiva è la PW sul DB.
Devi "costringere" tutti gli utenti a usare l'mdw
personalizzato al posto di quello standard, al quale sara'
opportuno togliere i permessi.
Sul sito comune c'e' un tutorial che spiega passo per passo
come procedere.
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in
internet che sia in grado di recuperare le
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--


title: UNION ALL , quante tabelle al max ?

author: Diego

text:
So che non è molto elegante ma ho scritto una query UNION del tipo :
SELECT   Vasca1.*
FROM Vasca1 WHERE contatore = (SELECT MAX (contatore) FROM vasca1)
UNION ALL SELECT  Vasca2.*
FROM Vasca2 WHERE contatore = (SELECT MAX (contatore) FROM vasca2)
UNION ALL SELECT  Vasca3.*
FROM Vasca3 WHERE contatore = (SELECT MAX (contatore) FROM vasca3)
.....
UNION ALL SELECT  Vasca45.*
FROM Vasca45 WHERE contatore = (SELECT MAX (contatore) FROM vasca45);
Questa query trova l'ultimo record immesso in ognuna delle 45 tabelle e
successivamente unisce tutti i 45 record ritrovati.
il problema è che in access xp funziona , in access 2000 no !!!
In questo caso l' unione arriva fino ad un max di 22 tabelle. Qualcuno
di vuoi può darmi un suggerimento per risolvere il problema , sia
utilizzando UNION o qualcos'altro?
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: UNION ALL , quante tabelle al max ?

author: Proli

text:
Diego ha scritto nel messaggio ...

Si può eseguire il raggruppamento unio per le prime 20, poi per le
successive 20, e in seguito per le mancanti. A questo punto si può fare una
union sulle tre query ottenute.
Saluti
Dell'Oca Marco
D.M.Software


title: UNION ALL , quante tabelle al max ?

text:
"Proli" <
pr...@tiscalinet.it
> wrote in message
news:aeq90r$l3k$
1...@lacerta.tiscalinet.it
>
> Diego ha scritto nel messaggio ...
>
>di vuoi può darmi un suggerimento per risolvere il problema , sia
> >utilizzando UNION o qualcos'altro?
> >
>
> Si può eseguire il raggruppamento unio per le prime 20, poi per le
> successive 20, e in seguito per le mancanti. A questo punto si può fare una
> union sulle tre query ottenute.
>
> Saluti
> Dell'Oca Marco
> D.M.Software
Ti ringrazio molto, ho provato subito e ne sono uscito. In effetti avevo
visto che nell' help in linea UNION valeva anche per query indipendenti
(?).
Avevo scritto l'istruzione per unire 2 query di raggruppamento e la
tabella mancante ma non funzionava. Probabilmente mischiavo un pò
troppo.
Grazie ancora
Diego



title: UNION ALL , quante tabelle al max ?

author: Diego Viccioli

text:
"Diego" <
vet....@tiscali.it
> wrote in message
news:64063ab7f6d83abab88...@mygate.mailgate.org
> "Proli" <
pr...@tiscalinet.it
> wrote in message
> news:aeq90r$l3k$
1...@lacerta.tiscalinet.it
>
> >
> > Si può eseguire il raggruppamento unio per le prime 20, poi per le
> > successive 20, e in seguito per le mancanti. A questo punto si può fare una
> > union sulle tre query ottenute.
> >
> > Saluti
> > Dell'Oca Marco
> > D.M.Software
>
> Grazie
> Diego
Scusate ancora , ma ora si presenta un nuovo problema.
Nel programma c'era anche una Query UNION che raggruppava completamente
le 45 tabelle del tipo :
SELECT  Vasca1.*
FROM Vasca1
UNION ALL SELECT  Vasca2.*
FROM Vasca2
...UNION ALL SELECT  Vasca45.*
From Vasca45;
Ora grazie al suggerimento di Marco è diventata :
SELECT  1a20C.*
FROM 1a20C
UNION ALL SELECT  21a40C.*
FROM 21a40C
UNION ALL SELECT  41a45C.*
FROM 41a45C;
dove 1a20c è l'unione delle prime 20 tabelle e così via.
Fin qui tutto ok ma da questa query chiamata COMPLETO facevo una query
di selezione (di nome carico),per raggruppare i record secondo un campo
data(da una maschera)e sommare un campo quantità:
SELECT [Completo].[Codice], Sum([Completo].[QtaCarico]) AS
Totale_Caricate,
[Completo].[DataCarico], Count([Completo].[Vasca]) AS N°_Vasche
FROM Completo
GROUP BY [Completo].[Codice], [Completo].[DataCarico]
HAVING (((Completo.DataCarico)=Forms!Maschera1!miadata));
Purtroppo la stessa cosa ora non va. Si rifiuta di raggruppare anche un
solo campo. Ho provato anche a creare da questa query, una query per
creare
una tabella su cui lavorare. Ma l'errore è sempre "Alias non valido".
Qualcuno ha un suggerimento da darmi ?
Grazie ancora a tutti.



title: UNION ALL , quante tabelle al max ?

text:
On Wed, 19 Jun 2002 14:25:43 +0000 (UTC), "Diego"
<
vet....@tiscali.it
> wrote:
>So che non č molto elegante ma ho scritto una query UNION del tipo :
>
>SELECT   Vasca1.*
>FROM Vasca1 WHERE contatore = (SELECT MAX (contatore) FROM vasca1)
>UNION ALL SELECT  Vasca2.*
>FROM Vasca2 WHERE contatore = (SELECT MAX (contatore) FROM vasca2)
>UNION ALL SELECT  Vasca3.*
>FROM Vasca3 WHERE contatore = (SELECT MAX (contatore) FROM vasca3)
>.....
>UNION ALL SELECT  Vasca45.*
>FROM Vasca45 WHERE contatore = (SELECT MAX (contatore) FROM vasca45);
>
>Questa query trova l'ultimo record immesso in ognuna delle 45 tabelle e
>successivamente unisce tutti i 45 record ritrovati.
>
>il problema č che in access xp funziona , in access 2000 no !!!
>In questo caso l' unione arriva fino ad un max di 22 tabelle. Qualcuno
>di vuoi puň darmi un suggerimento per risolvere il problema , sia
>utilizzando UNION o qualcos'altro?
>
>Grazie
probabilmente hai incontrato il limite di caratteri per la stringa sql
che sull'XP č stato aumentato di brutto rispetto al 2000
Saluti.
Emanuele.


title: UNION ALL , quante tabelle al max ?

text:
Diego Viccioli ha scritto nel messaggio ...

Scusa se ti rispondo solo ora.
Non è un problema di lunghezza di stringa ma il fatto che probabilmete hai
modificato il tipo di campo tra una unione ed un'altra.
Per poter ottenere una unione devi necessariamente unire dei record che anno
assolutamente il numero ed il tipo dei campi uguali.
Se una select include dei campi che hanno un formato diverso, tutta l'unione
crea un errore
Saluti
Marco Dell'Oca
D.M.Software


title: problema cap o lista aziende

text:
Ho un elenco di aziende con indirizzo.
Devo creare tre gruppi, aziende nord/centro/sud
Che metodo mi suggerite di usare ?


title: problema cap o lista aziende

author: Salvatore

text:
<
als...@libero.it
> ha scritto nel messaggio
news:bn0t8c$mtl$1...@newsreader.mailgate.org...
> Ho un elenco di aziende con indirizzo.
> Devo creare tre gruppi, aziende nord/centro/sud
> Che metodo mi suggerite di usare ?
Il primo numero del CAP corrisponde ad una regione o un gruppo di regioni.
Potrebbe essere un discriminante..
Creati una tabella CAP con due campi: codice e zona.
Potrai sfruttare poi tale tabella per dividere i tuoi indirizzi in tre
guppi.
Ciao
Salvatore


title: problema cap o lista aziende

author: namor

text:
als...@libero.it
 ha scritto:
> Ho un elenco di aziende con indirizzo.
> Devo creare tre gruppi, aziende nord/centro/sud
> Che metodo mi suggerite di usare ?
Se come criterio per inserire una ditta in una delle zone usi la
provincia, puoi creare una tabella "ZONE" con due campi: provincia e zona,
dove assegni ogni provincia d'Italia (sono poco piů di 100) ad una zona,
cosě:
NA - SUD
CE - SUD
RM - CENTRO
AQ - CENTRO
TO - NORD
MI - NORD
TS - NORD
ecc.....
Poi quando ti serve sapere a che zona appartiene una ditta usi una query o
una dlookup().
Sennň aggiungi un campo "ZONA" all'anagrafica delle aziende, e per ogni
azienda indichi a mano a che zona appartiene, ma la prima soluzione
sarebbe preferibile.
Namor
--

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


title: Controllo microsoft outlook view

author: FERRO

text:
BUONGIORNO
VOLEVO UNA INFORMAZIONE IN QUANTO ANCHE A ME INTERESSA POTER APRIRE IL
CLAENDARIO DI OUTLOOK DAL MIO DB.
Quando faccio x inserire il controllo Microsoft outlook View Control nella
maschera mi da  il seguente segnale di allarme:
" impossibile salvare l'oggetto Microsoft office outlook control in quanto
non supporta la persistenza oppure lo sapzio su disco č esaurito "
cosa vuol dire e mi sapete dire come risolvere il problema
grazie


title: Differenza tra Insieme Forms e Controls..

text:
ho questo problemino :
Se usando l'insieme Controls io posso fare questo :
Dim i, conta, dt etc... as ...
dt = Date()
conta = 1
For i = 1 To 7
    Controls("Data_" & i) = Format(DateAdd("d", conta, dt), "dd/mm/yy")
    conta = conta + 1
Next i
Come faccio a gestire allo stesso modo Subform per cambiarne il
RecordSource? Tipo questo :
Dim i, conta, dt etc... as ...
dt = Date()
conta = 1
For i = 1 To 7
    Forms("SubForm_" & i).RecordSource = "Mio_Source"
    conta = conta + 1
Next i
Tnks
--
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


text:
"Pablitomf" <
maurizio...@accessgroup.it
> wrote in message
news:dtk5ms$6kr$1...@news.newsland.it...
[...]
> Come faccio a gestire allo stesso modo Subform per cambiarne il
> RecordSource? Tipo questo :
>
> Dim i, conta, dt etc... as ...
> dt = Date()
> conta = 1
> For i = 1 To 7
>    Forms("SubForm_" & i).RecordSource = "Mio_Source"
>    conta = conta + 1
> Next i
SubForm_x deve essere aperta in modalità Design!
===================================
For i = 1 to 7
    DoCmd.OpenForm "SubForm_" & i, acDesign, , , , acHidden
    Forms("SubForm_" & i).RecordSource = "Mio_Source"
    DoCmd.Close acForm, "SubForm_" & i
Next
===================================
Ciao
Bruno


author: Alessandro Baraldi

text:
Le SubForm sono contenute nella Collection Controls, di fatto
la collection ingloba Classi di controlli e la SubForm è una
Classe di tipo Form ma nella fattiscece controllo figlio della
Form(Princiaple)
Questo però non basta, in quanto riferendoti al controllo in modo
normale
come fai per una TetxBox accedi solo alla cornice della SubForm, quindi
devi puntare all'Oggetto tramite la proprietà Form.
Hai 2 modi per farlo:
1
Dim i, conta, dt etc... as ...
dt = Date()
conta = 1
For i = 1 To 7
    Me.Controls("SubForm_" & i).Form.RecordSource = "Mio_Source"
    conta = conta + 1
Next i
2
Dim ctl as Access.Controls
For Each ctl in Me.Controls
   If ctl.ControlType=acSubForm then
        ctl.Form.RecordSource="ZZZZ"
   End If
Next
La 2° è usata proprio per effettuare le funzioni Ricorsive...!
Ciao
@Alex


text:
MMmmmm!!!
Sicuro sia così..?
@Alex


author: Sergio MAZZA

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1140695647....@o13g2000cwo.googlegroups.com...


1

2
Dim ctl as Access.Controls


Ciao
@Alex
[risposta]
Ma se devi accedere alla collection dei controlli puoi anche fare così:
...
For i = 1 To 7
    Me("SubForm_" & i).Form.RecordSource = "Mio_Source"
...
O no?
Ciao.
--
Sergio MAZZA


text:
Si ma non è iterabile(Enumerabile) come Collection, in ogni caso
è il 3° modo.
@Alex


title: comportamenti diversi

author: SimoRed

text:
Ciao...
sto impazzendo dietro ad un cliente per il quale ho realizzato un
gestionale.
E' possibile che lo stesso gestionale sul pc del cliente che ha il
runtime 2003 dia un tipo di errore (anteprima di stampa a video
corretta, stampa su carta con al posto del totale #Error) mentre su un
pc dell'ufficio sempre con runtime 2003 proprio non apra nemmeno
l'anteprima?
Realizzato con Access 2000, compilato senza errori, non funziona.
Provato a convertire al 2003, compilato senza errori, stesso problema
nelle due forme...
Inutile dire che sul mio pc dove c'è Access tutto funziona a
perfezione...
Sono alla frutta... qualcuno ha qualche suggerimento?
Simo


title: comportamenti diversi

author: MA

text:

I riferimenti sono tutti ok?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: comportamenti diversi

text:
> I riferimenti sono tutti ok?
Credo di sì... nella versione precedente tutto funzionava dal
cliente... poi ho solo allargato un campo e messo un if e ora non va
più.



title: il solito [OT] di skipper

author: skipper

text:
Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno, non
rinuncio al mio OT......
BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
--
Skipper dixit...
on cbr1000rr
Azz... L'č minga el sescčnt!!! L'č 'l mille!!!
motostory su
http://www.superskipper.it/moto.htm


title: il solito [OT] di skipper

text:
skipper wrote:
> Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno,
> non rinuncio al mio OT......
>
> BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
Ciao Skipper
Un calore augurio anche a te.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: il solito [OT] di skipper

text:
"skipper" <skippe...@superskipperNOSPAM.itNOSPAM> ha scritto nel messaggio news:BOyqf.19614$Cn4....@tornado.fastwebnet.it...

Buone Feste a te, famiglia e cbr...
Ciao.
--
Sergio MAZZA


title: il solito [OT] di skipper

author: ciroteo

text:
"skipper" <skippe...@superskipperNOSPAM.itNOSPAM> ha scritto nel
messaggio news:BOyqf.19614$Cn4....@tornado.fastwebnet.it...
> Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno, non
> rinuncio al mio OT......
>
> BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
>
> --
> Skipper dixit...
> on cbr1000rr
> Azz... L'è minga el sescènt!!! L'è 'l mille!!!
> motostory su
http://www.superskipper.it/moto.htm
>
Mitico! Sarà il tuo secondo post del 2005!
Ma non avrai abbandonato il ns.  access?


title: il solito [OT] di skipper

text:
"skipper" <skippe...@superskipperNOSPAM.itNOSPAM> wrote in message
news:BOyqf.19614$
Cn4....@tornado.fastwebnet.it
> Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno, non
> rinuncio al mio OT......
>
> BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
Ciao barcaiolo....!
Auguroni a te e famiglia.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: il solito [OT] di skipper

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:00b95d958236e6c502...@mygate.mailgate.org...
> "skipper" <skippe...@superskipperNOSPAM.itNOSPAM> wrote in message
> news:BOyqf.19614$
Cn4....@tornado.fastwebnet.it
>
>> Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno, non
>> rinuncio al mio OT......
>>
>> BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
>
>
> Ciao barcaiolo....!
>
Barcaiolo???? hahaah quest'anno pochissimo purtroppo, infatti mi rifaccio
adesso... vado in barca dal 30 all'8...... probabile freddo porco....
Ciao
--
Skipper dixit...
on cbr1000rr
Azz... L'è minga el sescènt!!! L'è 'l mille!!!
motostory su
http://www.superskipper.it/moto.htm


title: il solito [OT] di skipper

text:
"ciroteo" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:3hFqf.13837$eD5.2...@twister2.libero.it...

il primo post erano gli auguri in ritardo dell'anno passato? hahaha
non ho abbandonato... leggo leggo... ma non scrivo....



title: il solito [OT] di skipper

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dof3m9$l03$1...@area.cu.mi.it...
> "skipper" <skippe...@superskipperNOSPAM.itNOSPAM> ha scritto nel
> messaggio news:BOyqf.19614$Cn4....@tornado.fastwebnet.it...
>> Non mi dimentico dei vecchi amici e, anche se mi vedete sempre meno, non
>> rinuncio al mio OT......
>>
>> BUON NATALE A TUTTI E FELICISSIMO ANNO NUOVO!!!!
>>
>> --
>> Skipper dixit...
>> on cbr1000rr
>> Azz... L'è minga el sescènt!!! L'è 'l mille!!!
>> motostory su
http://www.superskipper.it/moto.htm
>
>
> Buone Feste a te, famiglia e cbr...
>
io e famiglia ringraziamo.... il cbr si è emozionato per gli auguri e ha
fatto benzina per terra ... ma ringrazia...
hahaha
--
Skipper dixit...
on cbr1000rr
Azz... L'è minga el sescènt!!! L'è 'l mille!!!
motostory su
http://www.superskipper.it/moto.htm


title: Memoria esaurita

author: Carmine Catalano

text:
Ciao,
vorrei chiedervi lumi su un problema di Access 2000 di cui non riesco a
venire a capo.
Sul mio pc desktop (PII 400 64MB Ram) quando provo ad importare in un db
oggetti di un altro db di gestione magazzino (sempre creato da me) mi dà
regolarmente un msg. di memoria esaurita. Lo stesso se provo a copiare
ed incollare l'oggetto (tuttavia, dopo aver cliccato più volte su OK
l'oggetto viene importato). Il guaio è che il problema non si verifica
sempre.
Inoltre, lo stesso problema si verifica solo saltuariamente sul mio
notebook (AMD K6 3D 333-64 MB RAM), non si verifica assolutamente sui
computer di alcuni miei clienti, mentre da un altro cliente (con PIII
800-128mb ram) non mi fa assolutamente aprire il codice.
Chiedo scusa per la lunghezza. TIA.
Carmine
P.S.:
Le maschere hanno un collegamento ad un'immagine di pochi kb in formato
wmf (non incorporata).
Inoltre il db originario era in Access 95 e poi convertito in Access 2K.


title: Memoria esaurita

text:
"Carmine Catalano" <
carm...@box2.tin.it
> ha scritto nel messaggio
news:3A9EBA86...@box2.tin.it...

Hai provato a togliere l'immagine e compattare l'mdb?
Ciao.


title: Memoria esaurita

text:
Sergio MAZZA ha scritto:
> Hai provato a togliere l'immagine e compattare l'mdb?
Innanzitutto, grazie per la risposta.
Non ho tolto l'immagine, credevo che essendo collegata non occupasse molta
memoria.
Tuttavia, quel che mi lascia perplesso è che l'errore non si verifica quando
il database viene effettivamente utilizzato ma soltanto quando provo ad
esportare gli oggetti o (su un solo computer) quando provo a leggere il
codice.
Inoltre, la frequenza dell'errore non è direttamente proporzionale alle
caratteristiche delle macchine sulle quali è installato il Db.
Carmine


title: Memoria esaurita

text:
"Carmine Catalano" <
carm...@box2.tin.it
> ha scritto nel messaggio
news:3AA00976...@box2.tin.it...
> Innanzitutto, grazie per la risposta.
Di nulla;
>
> Non ho tolto l'immagine, credevo che essendo collegata non occupasse molta
> memoria.
Access cambia il formato dei file in bmp;
> Tuttavia, quel che mi lascia perplesso è che l'errore non si verifica
quando
> il database viene effettivamente utilizzato ma soltanto quando provo ad
> esportare gli oggetti o (su un solo computer) quando provo a leggere il
> codice.
> Inoltre, la frequenza dell'errore non è direttamente proporzionale alle
> caratteristiche delle macchine sulle quali è installato il Db.
>
> Carmine
Di solito l'hardware non centra nulla; la casistica degli errori atipici è
lunga e lastricata di cadaveri. Togliere l'immagine è solo un tentativo di
rimuovere il possibile disturbo; sono ancora nuovo ad errori del genere e
access 2000 non lo utilizzo, sarà per questo?
Ciao.
P.S. Io utilizzo un AMD k6-200 con 64Mb e 4Gb di hd...


title: ...e da sottomaschera a maschera?

author: Lety

text:
Come posso invece disabilitare un controllo di una maschera da una
sottomaschera???
Non con PARENT ma con...????
Grazie ancora
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ...e da sottomaschera a maschera?

author: Alessandro

text:
"Lety" <
pipp...@inwind.it
> wrote in message
news:79988e216ea0e6389a2...@mygate.mailgate.org...
> Come posso invece disabilitare un controllo di una maschera da una
> sottomaschera???
> Non con PARENT ma con...????
> Grazie ancora
Perchč non con PARENT...???
Ti sta antipatico.......???
Forms![NomeFormPrincipale]![NomeControllo].Enabled=False
Ma ti assicuro č uguale a:
Me.Parent.Nomecontrollo.Enabled=False
Alessandro.



title: esport txt e nome file

author: maruru

text:
devo esportare una tabella e salvarla con data e ora corrente,
con il seguente modulo riesco ad esportare correttamente la data
    DoCmd.TransferText acExportDelim, "EXPCORR", "lbf", "c:\" & "lbf"
& Format(Date, "dd_mm_yy") & ".txt", False, ""
ma non riesco ad aggiungere l'ora e i minuti, utilizzando questo
modulo ottengo ora 00 e minuti 00
    DoCmd.TransferText acExportDelim, "EXPCORR", "lbf + dest", "c:\" &
"provalbf" & Format(Date, "dd_mm_yy_hh_nn") & ".txt", False, ""
come posso fare?
Grazie Diego


title: esport txt e nome file

text:

OK lo ammetto sono fesso, l'ora non è una data! ho utilizzato
Format(Time, "hh-mm")
tutto risolto!
grazie cmq


title: esport txt e nome file

text:

Usa Now() per avere le ore
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Stampa indirizzi su buste DL11

author: Nemo

text:
Ciao a tutti,
in ufficio hanno cambiato la stampante ed ora non riesco più a stampare
le buste commerciali (DL11).
La nuova stampante è una *Ricoh SP 3410DN* e quando stampo una busta
l'indirizzo risulta troppo alto, si trova nello spazio destinato al
francobollo.
In modalità disegno, nella sezione Report, sono andato in File => Imposta
Pagina e settato il bordo inferiore a a 0cm, ma NON risolvo nulla!!
Questa funzione di stampa è utilissima, perchè una volta scritto
l'indirizzo in Access 2003, rimane memorizzato e lo si può stampare
all'infinito in modo corretto, cosa che non succede quando si scrive
manualmente. Nella frenesia del lavoro, non sempre si possono fare le
cose in modo calmo e rilassato, per cui ho bisogno di risolvere questo
problema.
Qualunque risposta è benvenuta!!!
Ciao
Nemo


title: Stampa indirizzi su buste DL11

author: Marco Pizzamiglio

text:
Nemo ha scritto:
> Ciao a tutti,

Prova ad aumentare di qualche centimetro il margine superiore.
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: Stampa indirizzi su buste DL11

text:
Il Mon, 31 Jan 2011 17:03:34 +0100, Marco Pizzamiglio ha scritto:
> Nemo ha scritto:
>
>> Ciao a tutti,
>
>> in ufficio hanno cambiato la stampante ed ora non riesco piÃ¹ a
>> stampare le buste commerciali (DL11).
>> La nuova stampante Ã¨ una *Ricoh SP 3410DN* e quando stampo una busta
>> l'indirizzo risulta troppo alto, si trova nello spazio destinato al
>> francobollo.
>> In modalitÃ  disegno, nella sezione Report, sono andato in File =>
>> Imposta Pagina e settato il bordo inferiore a a 0cm, ma NON risolvo
>> nulla!! Questa funzione di stampa Ã¨ utilissima, perchÃ¨ una volta
>> scritto l'indirizzo in Access 2003, rimane memorizzato e lo si puÃ²
>> stampare all'infinito in modo corretto, cosa che non succede quando si
>> scrive manualmente. Nella frenesia del lavoro, non sempre si possono
>> fare le cose in modo calmo e rilassato, per cui ho bisogno di risolvere
>> questo problema.
>> Qualunque risposta Ã¨ benvenuta!!!
>> Ciao
>> Nemo
>
>
> Prova ad aumentare di qualche centimetro il margine superiore. Ciao.
> -Marco-
Grazie Marco, per la tua risposta!
Proverò a fare come mi hai consigliato o almeno proverò a giocare con i
margini.
Ciao
Nemo


title: Stampa indirizzi su buste DL11

text:


Ho provato a _giocare_ con i margini, ma non c'è nulla da fare. Mi viene
da pensare che è un problema di drivers.
Ciao
Nemo


title: Gruppi di opzioni e colori nei controlli

author: Tiziano

text:
ciao a tutto il NG...
il mio piccolo problema è legato alla
visualizzazione con un colore diverso dei record presenti nella maschera.
Sulla base di una selezione in un "Gruppo di opzione" ho impostato che il
controllo "A" sia invisibile e che il controllo "B" sia visibile.
Private Sub Opzione61_GotFocus()
Me.B.Visible = False
Me.EtichettaB.Visible = False
Me.A.Visible = True
Me.EtichettaA.Visible
= True
End Sub
però io vorrei anche che sulla base delle selezioni
2,3,4 etc i colori dei Controlli(record) fossero diversi.
ho scaricato
questa piccola istruzione
If 2 = True Then
Nomediuncontrollo.ForeColor = 13209
     Else:
Nomediuncontrollo2.ForeColor = 0
 End If
non credo sia corretto però
cercherò di modificarlo e riuscire a farlo funzionare :-)
Ciao Tiziano
--------------------------------
Inviato via
http://usenet.iol.it


author: Antonio Biso

text:
Tiziano <
tizi...@libero.it
> wrote in message
140Z105Z48Z16Y1...@usenet.iol.it...
> ciao a tutto il NG...
> il mio piccolo problema è legato alla
> visualizzazione con un colore diverso dei record presenti nella maschera.
> Sulla base di una selezione in un "Gruppo di opzione" ho impostato che il
> controllo "A" sia invisibile e che il controllo "B" sia visibile.
> Private Sub Opzione61_GotFocus()
> Me.B.Visible = False
> Me.EtichettaB.Visible = False
>
> Me.A.Visible = True
> Me.EtichettaA.Visible
> = True
>
> End Sub
>
> però io vorrei anche che sulla base delle selezioni
> 2,3,4 etc i colori dei Controlli(record) fossero diversi.
> ho scaricato
> questa piccola istruzione
>
> If 2 = True Then
Qui probabilemnte dovresti scrivere
if opzione61 = 2 then
> Nomediuncontrollo.ForeColor = 13209
>      Else:
> Nomediuncontrollo2.ForeColor = 0
>  End If
Antonio


text:
>> If 2 = True Then
>Qui probabilemnte dovresti scrivere
>if
opzione61 = 2 then
>> Nomediuncontrollo.ForeColor = 13209
>>      Else:
>> Nomediuncontrollo2.ForeColor = 0
>>  End If
>Antonio
ciao ti
ringrazio per cercare di risolvere i miei problemi...
ho provato a
inserire lo script però non so dove metterlo...
scusa....l'ho inserito nel
controllo di testo "Nomediuncontrollo" ma non funziona...
Private Sub
Apertura_Posizione_GotFocus()
If 3 = True Then
If Opzione63 = 3 Then
Nomediuncontrollo.ForeColor = 16777215
Else:
Nomediuncontrollo.ForeColor = 8454143
  End If
End If
End Sub
grazie Tiziano



author: Filippo da studio

text:
In data Wed, 24 Oct 2001 17:30:13 GMT,
tizi...@libero.it
 (Tiziano) ha
postato:
CUT
>
>If 3 = True Then
>If Opzione63 = 3 Then
>Nomediuncontrollo.ForeColor = 16777215
>Else:
>Nomediuncontrollo.ForeColor = 8454143
>
>  End If
>End If
>End Sub
>grazie Tiziano
>
Ma che vordě If 3 = TRUE ?????
Filippo
Filippo da studio


text:
Tiziano <
tizi...@libero.it
> wrote in message
140Z105Z48Z16Y...@usenet.iol.it...
>
> >> If 2 = True Then
>
> >Qui probabilemnte dovresti scrivere
> >if
> opzione61 = 2 then
>
> >> Nomediuncontrollo.ForeColor = 13209
> >>      Else:
> >> Nomediuncontrollo2.ForeColor = 0
> >>  End If
>
> >Antonio
>
> ciao ti
> ringrazio per cercare di risolvere i miei problemi...
> ho provato a
> inserire lo script però non so dove metterlo...
> scusa....l'ho inserito nel
> controllo di testo "Nomediuncontrollo" ma non funziona...
>
>
> Private Sub
> Apertura_Posizione_GotFocus()
>
> If 3 = True Then
Ma che significherebbe scusa if 3 = true ?!?!!?
Devi scrivere il tuo codice sull'evento dopo aggiornamento del tuo gruppo di
opzioni. A quel punto, testi il valore del gruppo, quindi vedi se il gruppo
vale 1 2 03
if gruppo = 1 (2) (3) then
e esegui il comando corrispondente.
Antonio


author: tiziano

text:
ciao a tutti,
 vi ringrazio per gli aiuti funziona non l'ho utilizzato sul
controllo Dopo aggiornamento ma sui controlli stessi e vi chiedo un
ulteriore aiuto ovvero se i controlli "Nomecontrollo" fossero più di uno
che fare?!
Private Sub Opzione61_GotFocus()
If Cornice56 = 2 Then
Nomecontrollo.ForeColor = 0
   Else:
   Nomecontrollo.BackColor = 7446561
End If
End Sub
ho provato a mettere un and ma non funziona...



title: [access] - report etichette 2

author: ilmagowalter

text:
scusate se ripropongo il problema ma non essendo proprio pratico di report
ho bisogno di aiuto
devo fare un report di etichette ordinate per CAP, COGNOME e NOME
e fin qui no problem
a rottura di codice sul CAP devo inserire nell'etichetto con l'ultimo CAP
delle
colonne con asterischi
come posso fare?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [access] - report etichette 2

text:
ilmagowalter ha scritto:
> scusate se ripropongo il problema ma non essendo proprio pratico di report
> ho bisogno di aiuto
> devo fare un report di etichette ordinate per CAP, COGNOME e NOME
> e fin qui no problem
> a rottura di codice sul CAP devo inserire nell'etichetto con l'ultimo CAP
> delle
> colonne con asterischi
> come posso fare?
non ci credo che nessuno mi sappia aiutare...



title: [access] - report etichette 2

text:
"ilmagowalter" <
ilmago...@libero.it
> ha scritto nel messaggio
news:be393f$5pt$1...@news.newsland.it...
> scusate se ripropongo il problema ma non essendo proprio pratico di report
> ho bisogno di aiuto
>
> devo fare un report di etichette ordinate per CAP, COGNOME e NOME
> e fin qui no problem
> a rottura di codice sul CAP devo inserire nell'etichetto con l'ultimo CAP
Che significa a rottura di codice???
> delle
> colonne con asterischi
> come posso fare?
MAssimiliano


title: OT: ciao a tutto il NG.

author: AntoGal

text:
Finalmente un paio di settimane di vacanza (i partecipanti della cena di
Palermo immagineranno anche in quale nazione :-) )
Continuate a inviare contributi interessanti per il sito comune, che
provvederò a forwardare a Federico per il prossimo aggiornamento, al mio
ritorno.
Fate i bravi.    ((c) by Lbo)
Cioa, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: OT: ciao a tutto il NG.

author: RoDAgo

text:
AntoGal scrisse...
> Finalmente un paio di settimane di vacanza (i partecipanti della cena di
> Palermo immagineranno anche in quale nazione :-) )
> Continuate a inviare contributi interessanti per il sito comune, che
> provvederò a forwardare a Federico per il prossimo aggiornamento, al mio
> ritorno.
> Fate i bravi.    ((c) by Lbo)
>
> Cioa, AntoGal
Cioa anche a te Anto!
Rilassati anche per me, tu che puoi e salutami le svedesi!!!!
RoDAgo


title: OT: ciao a tutto il NG.

author: Mikael Österhed

text:
Hmm....le svedesi.....
Vi dico solo che oggi non è più come una volta.
Essendo svedese.....
Håll den rak, se upp för hålen...
Hej,
/Mike
"RoDAgo" <
rodago...@tiscalinet.it
> ha scritto nel messaggio
news:89ntth$h1d$1...@lacerta.tiscalinet.it...



title: OT: ciao a tutto il NG.

author: ema

text:
Mio cugino mi ha detto che AntoGal <zer...@NOSPAMtiscalinet.it> scrisse:
> Finalmente un paio di settimane di vacanza (i partecipanti della cena di
> Palermo immagineranno anche in quale nazione :-) )
>
aho aho...
E come direbbe il BisIo, tromba anche per noi.
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
 - Attenzione antispam: ROT13 per rispondermi
Soffre la donna che s'offre?
		-- Da it.hobby.umorismo


title: OT: ciao a tutto il NG.

text:
Mikael Österhed scrisse..
> Hmm....le svedesi.....
> Vi dico solo che oggi non è più come una volta.
> Essendo svedese.....
NOOOOO, non puoi distruggermi un mito con tre sole righe!!
> Håll den rak, se upp för hålen...
Che vor dì?
Scusami sono aggiornato con il bengalese ma ho qualche problema con lo
svedese!
> Hej,
> /Mike
Ciao
RoDAgo


title: OT: ciao a tutto il NG.

author: sib

text:
BUON VIAGGIO!!!
;-))
Sib


title: OT: ciao a tutto il NG.

text:
Mio cugino mi ha detto che Mikael Österhed <
mos...@libero.it
> scrisse:
> Håll den rak, se upp för hålen...
>
che vor di'!?
baie! ;-)
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
 - Attenzione antispam: ROT13 per rispondermi
Un amico incontra Lazzaro: "Ma non eri morto?".
E Lazzaro: "Sta' zitto, sono vivo per miracolo!".
		-- Da it.hobby.umorismo


title: OT: ciao a tutto il NG.

text:
ema ha scritto nel messaggio <89ovrv$10r$
1...@srv.ema.it
>...
>Mio cugino mi ha detto che AntoGal <zer...@NOSPAMtiscalinet.it> scrisse:
>> Finalmente un paio di settimane di vacanza (i partecipanti della cena di
>> Palermo immagineranno anche in quale nazione :-) )
>>
>aho aho...
>E come direbbe il BisIo, tromba anche per noi.
Aspè, se cercasse di emularmi non gli reggerebbe la pompa (POMPA)...
Antonio


title: Somma ore minuti

author: Biplano

text:
Buon anno a tutte -i
Domanda forse banale ma ho dei dubbi.
Ho una maschera in cui la differenza tra due orari mi restituisce il "tempo
trascorso" (formato ora breve).
Ho la neccesità di sommare la casella "tempo trascorso" nel piè di pag  in
modo di ottenere un totale di ore anche superiore a 24
(Es 120 h 35min).
Ora sarà anche banale, ma nn riesco a farlo senza ricorere a sistemi
bizzantini.
Potete darmi un indicazione su come procedere.
Ciao Fulvio
PS.è una mia impressione o con office xp si è perso un bel po' dell'help e
delle magiche risorse del tasto F1?


title: Somma ore minuti

author: Wally

text:
"Biplano" <
fulv...@libero.it
> ha scritto nel messaggio
news:hqqY7.14149$s04.6...@news.infostrada.it...

Ciao
di solito quando si fanno operazioni con i campi in formato ora basta
mettere il simbolo "#" prima e dopo il campo e va tutto bene.
Es. #12:10#-#11:35#
Fammi sapere se hai ancora problemi.
Ciao


title: Somma ore minuti

author: Silvio Berruti

text:
"Biplano" <
fulv...@libero.it
> ha scritto nel messaggio
news:hqqY7.14149$s04.6...@news.infostrada.it...
> Buon anno a tutte -i
> Domanda forse banale ma ho dei dubbi.
> Ho una maschera in cui la differenza tra due orari mi restituisce il
"tempo
> trascorso" (formato ora breve).
> Ho la neccesità di sommare la casella "tempo trascorso" nel piè di pag  in
> modo di ottenere un totale di ore anche superiore a 24
> (Es 120 h 35min).
> Ora sarà anche banale, ma nn riesco a farlo senza ricorere a sistemi
> bizzantini.
Una possibile risposta è presente sul Sito Comune.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Somma ore minuti

author: Emyr

text:
On Tue, 01 Jan 2002 22:07:09 GMT, "Biplano" <
fulv...@libero.it
>
wrote:

potresti creare una funzione ad hoc che trasformi le ore ed i minuti
in minuti e poi sommati questi ultimi riconvertire il tutto in ore e
minuti.
minuti(1:30)  = 90
minuti(1:40) = 100
somma (minuti) =190
su totale convertiminuti(190)=2:10
molto semplice e veloce
Saluti.
Emanuele.


title: prova

author: FM

text: tretr


title: MSDE

author: francoX

text:
ciao
MSDE nescessita di office per lavorare?
Esattamente cosa fa? E in che ambito vale la pena utilizzarlo?
grazie


title: MSDE

author: yQy

text:
"francoX" <
x...@xxxxx.it
> ha scritto nel messaggio
news:edey9.123683$RO.31...@twister1.libero.it...
> ciao
>
> MSDE nescessita di office per lavorare?
> Esattamente cosa fa? E in che ambito vale la pena utilizzarlo?
è il "motore" grezzo di sql server..diciamo l'equivalente di Mysql...
quindi lo usi come base dati (database server) per fare le tabelle
e con access ci fai le mascherine :))
Non necessita di office, ma lo trovi NEL cd di office :)), quidi necessita
l'acquisto di office )
Ciao


title: MSDE

author: Carlo D.

text:
era scaricabile tempo fa, da internet la versione msde7.0.
"yQy" <
fabrizi...@tin.it
> ha scritto nel messaggio
news:chey9.100040$TD1.4...@news2.tin.it...



title: MSDE

author: All Eyez On me

text:
"francoX" <
x...@xxxxx.it
> ha scritto nel messaggio
news:edey9.123683$RO.31...@twister1.libero.it...

Ci sto lavorando da poco ma ho già notato i moltissimi vantaggio di una
struttura client/server di msde rispetto al file/server di jet.
Per un uso in rete è molto valido.
AEOM


title: ricerca....

author: Claudia

text:
Ciao a tutti
ho sempre usato Access solo come db, quindi solo per query e tabelle
ora però ho la necessità di usare le maschere e di fare ricerche.
Mi spiego meglio:
Ho creato una tabella dei clienti e ho pure creato la maschera che mi
visualizza i dati
ma prima dell'apertura della maschera mi serve di avere la possibilità di
effettuare una ricerca del/dei record che effettivamente mi servono....come
fare?
spero di essermi spiegata e di non aver fatto i casini come al solito mio!!!
;P
grazie a tutti
--------------------------------
Inviato via
http://usenet.libero.it


title: ricerca....

author: Antonio Biso

text:
"Claudia" > Ciao a tutti
> ho sempre usato Access solo come db, quindi solo per query e tabelle
> ora però ho la necessità di usare le maschere e di fare ricerche.
> Mi spiego meglio:
> Ho creato una tabella dei clienti e ho pure creato la maschera che mi
> visualizza i dati
> ma prima dell'apertura della maschera mi serve di avere la possibilità di
> effettuare una ricerca del/dei record che effettivamente mi
servono....come
> fare?
> spero di essermi spiegata e di non aver fatto i casini come al solito
mio!!!
Perchè proprio prima tesorino?
Lascia che i dati appaiano, dopo te li filtri come vuoi ... magari col
filtro in base a maschera di Access.
Saluti: Antonio


title: ricerca....

text:
"Claudia" <
venu...@libero.it
> ha scritto nel messaggio
news:195Z223Z88Z226Y...@usenet.libero.it...
> Ciao a tutti
> ho sempre usato Access solo come db, quindi solo per query e tabelle
> ora però ho la necessità di usare le maschere e di fare ricerche.
> Mi spiego meglio:
> Ho creato una tabella dei clienti e ho pure creato la maschera che mi
> visualizza i dati
> ma prima dell'apertura della maschera mi serve di avere la possibilità di
> effettuare una ricerca del/dei record che effettivamente mi
servono....come
> fare?
> spero di essermi spiegata e di non aver fatto i casini come al solito
mio!!!
> ;P
Claudiuccia, una ragazza come te non può fare casini, ne sono certo.
Diciamo che tu devi preparare dei filtri da utilizzare sulla tabella.
Bisogna vedere però che tipo di filtri vuoi applicare, cioè su quali campi e
in che maniera discriminare i record.
Per esempio: sul campo cognome? e su questo campo, cognome esatto o tutti i
cognomi che iniziano per...
La provincia?
Insomma, fatto questo, si può organizzare la cosa. Diciamo per esempio che i
filtri restituiscono i record che verificano esattamente i criteri inseriti
(che è la cosa più semplice)
Potresti mettere nella stessa maschera che visualizzerà i dati delle caselle
di testo o delle combo dove l'utente inserirà i valori di filtro o li
sceglierà da un elenco. La mascherà dovrà avere come origine record non più
la tabella, ma una query sulla tabella che avrà dei criteri sotto i campi
filtro. I criteri saranno cose di questo tipo
like nz([forms]![tuaform]![tuocontrollo];"*")
Ad ogni evento dopo aggiornamento dei controlli filtro dovrai fare una
me.requery per ripetere la query.
Se ci sono problemi potremmo vederci per risolverteli personalmente...
Antonio


title: Item in Casella di riepilogo...

author: EnricoV

text:
Ho una casella di riepilogo con vari campi...
Vorreri cfare doppioclick sulla riga che desidero e aprire una maschera con
i dati in dettaglio...
Il campo chiave è il primo della casella di riepilogo e si chiama
[Contatore]..come faccio ?


title: Item in Casella di riepilogo...

author: Alex De Rossi

text:
"EnricoV" <
nor...@libero.it
> ha scritto nel messaggio
news:1YoGa.87074$lK4.2...@twister1.libero.it...
> Ho una casella di riepilogo con vari campi...
> Vorreri cfare doppioclick sulla riga che desidero e aprire una maschera
con
> i dati in dettaglio...
> Il campo chiave č il primo della casella di riepilogo e si chiama
> [Contatore]..come faccio ?
>
>
>
>
sull' evento doppio click:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "TuaMaschera"
    stLinkCriteria = "[Contatore]="  & Forms("Tuamaschera")![Contatore]
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Naturalmente il campo contatore deve essere presente anche sulla form
contenente i dati in quanto funziona da filtro per la maschera stessa.
p.s. creati anche un buona gestione degli errori.
Ciao
ADR


title: Togliere i record doppi da una tabella

author: Alberto A.

text:
Salve a tutti, chido scusa per il disturbo, ho una tabella con circa 2000
record, molti di questi doppi, ho notato che c'e' la possibilità di vedere
quanti "doppioni ci sono" con una Query.
C'e' la possibilita' di togliere i "doppioni" in modo automatico??
Forse esiste un modo più semplice per fare quello che sto facendo, vi spiego
il problema:
devo creare una lista di clienti che quest'anno non ho piu' movimentato
rispetto agli anni 2003, 2002 ,2001 e 2000.
Grazie
Alberto

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Togliere i record doppi da una tabella

author: . chiarello @gmail.com strano...mavero

text:
"Alberto A." <
anto...@libero.it
> ha scritto nel messaggio
news:80Z18Z96Z132Y1...@usenet.libero.it...
> Salve a tutti, chido scusa per il disturbo, ho una tabella con circa 2000
> record, molti di questi doppi, ho notato che c'e' la possibilità di vedere
> quanti "doppioni ci sono" con una Query.
> C'e' la possibilita' di togliere i "doppioni" in modo automatico??
>
> Forse esiste un modo più semplice per fare quello che sto facendo, vi
> spiego
> il problema:
> devo creare una lista di clienti che quest'anno non ho piu' movimentato
> rispetto agli anni 2003, 2002 ,2001 e 2000.
>
> Grazie
> Alberto
>
Puoi fare una query di selezione, poi nel campo dove ti interessa togliere i
valori diplicati, nello script sql della query, dopo il select, ci metti un
distinct.
Risolve il tuo problema così?
Saluti,
--
strano...mavero
L'universo è cambiamento; la nostra vita è il risultato dei nostri pensieri.
Marco Aurelio


title: Ultimo Recod

author: Massimo

text:
Ciao
sto cercando di creare un piccolo data base per la gestione della
biblioteca, impostando come maschera principale i dati dei libri e come
sottomaschera (chiamata con un pulsante di comando) tutti gli utenti che
hanno prelevato quel libro,  vorrei che all'apertra della sottomaschera
utenti, questa mi si posiziona sull'ultimo utente e non sul primo! Inserendo
il codice su apertura ovvero:
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
anche se mi risulta strano, non funziona, allora ho provato su attivazione
sempre con lo stesso risultato. Volevo provare su caricamento, ma già c'è un
codice e non so come inserire l'altro.
Cosa mi consigliate?
Grazie
Massimo


title: Ultimo Recod

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:agv02f$fui$1...@lacerta.tiscalinet.it...

Prova a POSTARE il codice già presente, per capire il punto in cui
conviene inserire la procedura.
@Alex.


title: Ultimo Recod

author: Giovino

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:agv02f$fui$1...@lacerta.tiscalinet.it...

> Perchè in apertura della sottomaschera non la ordini in ordine decrescente
secondo un campo DataDelPrestito ?
Giovanni


title: Ultimo Recod

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:jTDY8.51048$K_4.9...@twister1.libero.it...
> Prova a POSTARE il codice già presente, per capire il punto in cui
> conviene inserire la procedura.
>
> @Alex.
>
Ciao allego il codice che è già presente sul caricamento della
sottomaschera:
Sub Form_Load()
DoCmd.GoToRecord , , acLast: On Error GoTo Form_Load_Err
    If ParentFormIsOpen() Then Forms![LIBRO]!InterruttoreCollegamento = True
Form_Load_Exit:
    Exit Sub
Form_Load_Err:
    MsgBox Error$
    Resume Form_Load_Exit
End Sub
Grazie
Massimo


title: Ultimo Recod

text:
"Giovino" <
log...@tiscalinet.it
> ha scritto nel messaggio
news:agv9gt$m2n$1...@lacerta.tiscalinet.it...
 > Perchè in apertura della sottomaschera non la ordini in ordine
decrescente
> secondo un campo DataDelPrestito ?
> Giovanni
>
Ciao
Tenendo presente che con access annaspo un po'.
Sono andato sulle proprietà della sottomaschera e su ordinamento ho scritto
"prelievo" (ovvero il campo dove sono inserite le date dei prelievi)senza
nessuna possibilità di decidere se crescente o decrescente, cmq non  è
cambiato nulla.
Grazie
Massimo


title: Ultimo Recod

author: Roberto da casa

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:agv02f$fui$1...@lacerta.tiscalinet.it...

Come origine record della sottomaschera usa una query, basata sull'oggetto
(tabella o query) che è attualmente origine record della sottomaschera;
nella query, ordina in maniera decrescente i record per "prelievo", che, se
non ho capito male, contiene la data di prelievo del libro.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Ultimo Recod

text:
On Mon, 15 Jul 2002 19:15:56 +0200, "Massimo"
<
massimo...@tiscalinet.it
> wrote:
>Private Sub Form_Open(Cancel As Integer)
me.orderby="vampodaordinare"
me.orderbyon=true
>DoCmd.GoToRecord , , acLast
>End Sub
Saluti.
Emanuele.


title: Ultimo Recod

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:ec2aju473cb8n181j...@4ax.com...

Ciao
scusate il ritardo, ma ero al mare........
cmq inserendo queste due righe di comando, il campo mi viene ordinato in
modo crescente, mentre mi servirebbe decrescente.
Grazie
Massimo


title: Ultimo Recod

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LhQY8.45605$7N3.1...@twister2.libero.it...
> Come origine record della sottomaschera usa una query, basata sull'oggetto
> (tabella o query) che è attualmente origine record della sottomaschera;
> nella query, ordina in maniera decrescente i record per "prelievo", che,
se
> non ho capito male, contiene la data di prelievo del libro.
>
> --
> Roberto
Ciao
scusate il ritardo ma ero fuori, adesso è tutto a posto per l'ordinamento.
    Andando avanti nell'impostazione del DB ho creato una tabella in cui
vengono riportati gli utenti (univoci) in un'altra l'elenco dei libri ed in
una terza (che ho chiamato "Prelievo") la data del prelievo e della
restituzione del libro con i rispettivi identificativi riferiti all'utente
ed al libro. Queste tabelle le ho riportate in una maschera "Utenti" con una
sottomaschera "Libri prelevati" che ha come origine una query di selezione
fatta con la tabella "Prelievo" e "Libri"  in cui mi vengono riportati la
data del prelievo, dell'eventuale restituzione e gli estremi del libro
prelevato. Per avere tutto racchiuso in una sola maschera ho creato un'altra
sottomaschera senza alcun legame diretto con le altre, in cui compaiono
l'elenco dei libri presenti in biblioteca, con un pulsante di comando
dispongo per l'assegnazione del libro all'utente, cioè "sul clic " mi apre
la maschera "Prelievi" e mi copia gli identificativi dell'Utente e del
Libro, inserendo la data odierna del prelievo, fin qui tutto a posto.
    Volevo inserire una maschera di popup per la conferma o meno del
prelievo, creata la macro "finestramessaggio" chiamandola  "Verifica" e la
lancio sempre sul clic del pulsante di comando, la cosa funziona in parte,
in quanto prima di fare l'assegnazione mi esce la maschera di popup con il
messaggio impostato, però solo con la possibilità di conferma in quanto il
pulsante di chiusura del popup è disattivato. Per ovviare ad un eventuale
errore ho risolto inserendo sulla maschera Prelievi un pulsante che mi
anulla l'assegnazione, ma avere la possibilita direttamente sul popup mi è
più simpatico.
    Altro problema me lo ritrovo nella sottomaschera "Libri" (che ricordo
non ha nessun legame diretto con gli altri dati presenti in maschera), non
riesco ad effettuare ricerche. Creata una macro "applicafiltro" chiamata
"AUTORE" creo una query parametrica con la tabella libri ed inerisco sul
criterio il parametro da ricercare, ma quando lancio la macro al primo clic
non succede nulla al secondo mi chiede il parametro "AUTORE.LIBRO"???? e al
terzo clic mi chiede il parametro che io avevo impostato, effettuando però
la ricerca sulla maschera principale e non nella sottomaschera. Se è come
penso, cioè che sulla sottomaschera non si possono effettuare ricerche, per
ovviare a questo inconveniente, stavo pensando di inserire un comando
all'apertura della maschera "Utente" che mi apre anche la maschera "Libri"
(a mali estremi estremi rimedi) facendo in modo di affiancarle verticalmete
automaticamente, è possibile? qual'è il comando da inserire per
l'affiancamento verticale e/o orizontale?
Grazie mi scuso per la lunghezza
Massimo


title: Ultimo Recod

text:


me.orderby="vampodaordinare DESC"
Saluti.
Emanuele.


title: Sottoreport affiancato

author: Pool

text:
Ciao a tutti,
ho un problemino a cui ho già sbattuto la testa parecchio.
Devo stampare su un report dei dati anagrafici di alcuni clienti, e non
essendo molti volevo proporli su due colonne, in modo da ottimizzare..
Il mio sottoreport è ripetuto n volte a seconda dei record.
Se compongo nel mio sottoreport già le due colonne, esse quando vengono
visualizzate propongono lo stesso record, essendo nella stessa riga.
Spero di essermi spiegato, sapete aiutarmi?
Grazie grazie!!


title: Sottoreport affiancato

author: Alessandro Cara

text:

Perche' non provi il report di tipo "etichette". Si puo' anche
"tamperingare" un po'
--
ac


title: Sottoreport affiancato

text:
Si perfetto!!
A dire il vero non mi è molto chiaro il termine "tamperingare"!
Forse sinonimo di "smanettare"?
Comunque Grazie 1000!
Alessandro Cara <
al...@puntablunet.it
> ha scritto:



title: Sottoreport affiancato

text:
Pool wrote:
> Si perfetto!!
> A dire il vero non mi è molto chiaro il termine "tamperingare"!
> Forse sinonimo di "smanettare"?
dall'inglese "tamper" (esatto "smanettare").
Per favore rispondi dopo il messaggio (quoting)
--
ac


title: Aggiunta di un numero progressivo con query di accodamento

author: Carlo POTS

text:
Le sto provando tutte ma non ci riesco.

Ho una tabella da cui attivo una query di accodamento per alimentare
un'altra tabella; fin qui tutto bene.

Il problema e' che nella tabella di destinazione ho un campo "Prog"
(Progressivo) dove dovrei inserire un numero di progressivo automaticamente.

Ho provato anche con INSERT INTO tabella SELECT ... Count(ID) + 1 as
PROG ma niente

Se l'avessi avuto dalla tabella principale, non avrei problemi, ma devo
fare in modo da inserirlo io con la stessa query di accodamento.

Ho provato ad usare la funzione Count() ma non riesco ad impostarlo in
modo che mi calcoli un Prog=Prog+1

In verità vorrei evitare di aumentare la tabella principale di un campo
e modificare tutte le maschere; se c'è un modo utile per agevolarmi la
questione ne sono molto grato.

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


text:
Il giorno mercoledì 15 maggio 2019 00:13:41 UTC+2, Carlo POTS ha scritto:
> Le sto provando tutte ma non ci riesco.
>
> Ho una tabella da cui attivo una query di accodamento per alimentare
> un'altra tabella; fin qui tutto bene.
>
> Il problema e' che nella tabella di destinazione ho un campo "Prog"
> (Progressivo) dove dovrei inserire un numero di progressivo automaticamente.
>
> Ho provato anche con INSERT INTO tabella SELECT ... Count(ID) + 1 as
> PROG ma niente
>
> Se l'avessi avuto dalla tabella principale, non avrei problemi, ma devo
> fare in modo da inserirlo io con la stessa query di accodamento.
>
> Ho provato ad usare la funzione Count() ma non riesco ad impostarlo in
> modo che mi calcoli un Prog=Prog+1
>
> In verità vorrei evitare di aumentare la tabella principale di un campo
> e modificare tutte le maschere; se c'è un modo utile per agevolarmi la
> questione ne sono molto grato.

Per fare queste cose io di solito scrivo un campo Calcolato valorizzato da 1 Funzione che ha il compito di Leggere il MAX(Progr) alla prima chiamata, poi di incrementarlo...

Es da mettere in un Modulo:
Option Compare Database
Option Explicit

Private vValue As Variant

Public Function fIncrementa(Optional SetStart) As long
    If not IsMissing(SetStart) Then
        vValue = SetStart
        Exit Function
    End If
    vValue = vValue +1
End Function

Ovviamente devi impostare il valore di partenza... e lo si fa così:

Quindi:
Call fIncrementa(Dmax("TuoCampo","TuaTabella"))
sSQL="INSERT INTO ..... SELECT fIncrementa() As TuoCampoProgressivo, ...."
DbEngine(0)(0).Execute sSQL,dbFailOnerror

Dovrebbe andare... fai qualche prova.

@Alex


text:
Il 15/05/2019 12:51, @Alex ha scritto:

> Per fare queste cose io di solito scrivo un campo Calcolato valorizzato da 1 Funzione che ha il compito di Leggere il MAX(Progr) alla prima chiamata, poi di incrementarlo...
>
> Es da mettere in un Modulo:
> Option Compare Database
> Option Explicit
>
>
> Private vValue As Variant
>
> Public Function fIncrementa(Optional SetStart) As long
>      If not IsMissing(SetStart) Then
>          vValue = SetStart
>          Exit Function
>      End If
>      vValue = vValue +1
> End Function
>
> Ovviamente devi impostare il valore di partenza... e lo si fa così:
>
> Quindi:
> Call fIncrementa(Dmax("TuoCampo","TuaTabella"))
> sSQL="INSERT INTO ..... SELECT fIncrementa() As TuoCampoProgressivo, ...."
> DbEngine(0)(0).Execute sSQL,dbFailOnerror
>
> Dovrebbe andare... fai qualche prova.
>
> @Alex

Perdona Alex, ma mi sono dimenticato che il numero progressivo va
incrementato secondo un prezzo di un prodotto che ... decrementa.
In pratica, andrebbe così:
n°   Prezzo
1      3,5
2      2,5
3      1,5
4      1,0
5      0,5

per cui applicando la ricerca del massimo valore (Dmax) mi è
controproducente, anche in virtu' del fatto che questa tabella deve
contenere diversi dati che hanno un indice differente (Data fattura in
yyymmdd, num fattura e nome dell'articolo), ma hanno dei progressivi che
comunque si ripetono sempre.

Anyway, seppure lo vedo come una mastur.....ne mentale (e forse e'
proprio cosi'), ho risolto in un modo che secondo me e' formalmente
contorto pero' funzionante:
eseguo dapprima la query di accodamento in modo con il campo del valore
del prezzo decrescente (ovviamente il campo del numero progressivo
rimane vuoto...), dopodiche' apro un recordset e mi ricavo una query che
ha per parametro di ricerca l'indice della fattura (yyyymmdd_NNNN); una
volta che si posiziona sul primo record, imposto Prog=1 e faccio
eseguire una query di aggiornamento inserendo Prog nel campo del
progressivo; scorro il recordset eseguendo un Prog=Prog+1 fino a che il
loop non si esaurisce.

Ho fatto diverse prove e nonostante quello che (a mio avviso e')
l'orrore, mi funziona una meraviglia.



text:

In pratica questo e' il codice che ho digitato:

Dim Q_Fatt as String    ' Query di ricerca della fattura
Dim Q_Agg as String     ' Query di aggiornamento del progressivo
Dim RegCon as String    ' Indice della Fattura (ripreso da una tabella
principale a cui la tabella dove andiamo ad operare è legata con
relazione 1 a molti)

Dim rsclass as DAO.Recordset
Dim NClass as Integer   ' numero del progressivo
Dim Fat as string       ' Indice del record

(Ovviamente queste variabili considera che stanno ad inizio di subroutine)

RegCon=Me.NumFattura

Q_Fatt = "SELECT IDCLASSIFICA, PROG, IDFATTURA"
Q_Fatt = Q_Fatt & " FROM tblDettaglioFattura"
Q_Fatt = Q_Fatt & " WHERE (tblDettaglioFattura.IDFATTURA)='" & RegCon & "'"

     Set rsclass = CurrentDb.OpenRecordset(Q_Fatt)
         NClass = 1
	rsclass.MoveFirst
     	Do While Not rsclass.EOF

         Fat = rsclass.Fields("IDCLASSIFICA")
         Q_Agg = "UPDATE FTVE_CLASS"
         Q_Agg = Q_Prog & " SET PROG=" & NClass
	Q_Agg=Q_agg & " WHERE (tblDettaglioFattura.IDCLASSIFICA)='" & FAT & "'"
         CurrentDb.Execute Q_Agg, dbfailonerror
         rsclass.MoveNext
         NClass = NClass + 1
     Loop

---
Una volta che il Loop si esaurisce, il risultato e' completo e
regolarmente ordinato dal prezzo piu' alto al piu' basso



text:
Carlo.... non basta Ordinare per DECRESCENTE ed usare la Funzione che ti ho esposto...?

Boh...

Saluti
@Alex


title: RINGRAZIAMENTO A TUTTI

author: ReiShen

text:
Ciao a tutti, scrivo questo post per ringraziare tutta le persone che
gentilmente e con pazienza rendono la convivenza con access molto piu
piacevole e meno difficoltosa, siete tutti molto gentili, grazie a voi ho
risolto e imparato molte cose, sono anni che uso access ma ho sempre
qualcosa da imparare, spero di poter essere utile agli altri come voi lo
siete stati con me in passato.
Un grazie a tutto il newsgroup
Come dicevano i moschettieri : "UNO PER TUTTI .... TUTTI PER UNO!!!"


title: RINGRAZIAMENTO A TUTTI

author: Luciano (DOC)

text:
ReiShen ha scritto nel messaggio ...
>spero di poter essere utile agli altri come voi lo
>siete stati con me in passato.
A sorelle come stai messo?:-)))
Saluti.
Luciano