title: Record eliminato su maschera dopo DELETE e INSERT

author: caezan

text:
Buongiorno a tutti, ho un problema di questo tipo.
Per semplicità di manutenzione dell'applicativo Access, ho pensato di agganciare una tabella ad una maschera (non continua) e di aggiornare i campi della maschera collegati alla tabella cancellando il record attuale con DELETE * e aggiungendo il record voluto con una INSERT (entrambi i comandi agiscono sulla tabella tramite il comando VBA RunSQL).
La sequenza funziona nel seguente modo:
0) la form punta sull'unico record attualmente presente nella tabella;
1) si preme il pulsante sulla form per avviare procedura;
2) lancia delete * from tabella;
3) lancia insert into tabella select (1 solo record);
4) infine requery / refresh della form  , mi aspetto che venga visualizzato l'unico record appena inserito.
Il problema è che nel punto 4) esce l'errore "Errore di run-time '3167' Record eliminato".
Ovviamente Access ha ragione, ma sono un po' arrugginito in materia Access:
devo scegliere eventi diversi per le varie operazioni? oppure forzare il salvataggio con Me.Dirty? oppure forzare il passaggio al nuovo record inserito, ecc. ?
Grazie in anticipo se mi potete dare una dritta.


text:
> ... agganciare una tabella ad una maschera e di aggiornare i campi collegati cancellando il record attuale con DELETE * e aggiungendo il record con INSERT ...
> 2) lancia delete * from tabella;
> 3) lancia insert into tabella select (1 solo record);
> 4) infine requery / refresh della form , mi aspetto che venga visualizzato l'unico record appena inserito.
> Il problema è che nel punto 4) esce l'errore "Errore di run-time '3167' Record eliminato".

Grazie lo stesso ho risolto facendo uso della buona vecchia chiave del record:
inserire il record con una chiave
aprire la Form puntando alla chiave
cancellare tutti i record di tabella diversi dal valore chiave.

DoCmd.RunSQL _
"INSERT INTO Ordine" _
& " SELECT * FROM qOrdineRead" _
& " WHERE ID='" & sChiave & "'"

DoCmd.OpenForm "Form", , , "ID='" & sChiave & "'"
DoCmd.RunSQL "DELETE * FROM Ordine WHERE ID<>'" & sChiave & "'"

Forse la soluzione è naive ma permette di risparmiare molto tempo rispetto ad alimentare una maschera non associata con assegnazioni campo per campo.


title: dati seqenziali

author: Fax

text:
Devo risolvere questo quesito che da tempo mi assale.
Il mio database ha dei campi numerici e campi con data.
i campi numerici sono sequenziali e possono contenere anche valori identici,
così per i campi data.
Cio che vorrei evitare e questo:
il secondo campo numerico con relativa data non puo essere inferiore al
primo campo numerico se ha data superiore alla prima, e così via.
Per un esempio pratico:
N° 12 del 12/12/01
N° 13 del 13/12/01 (possibile)
N° 14 del 12/12/01 (impossibile)
N° 14 del 14/12/01 (possibile)
esiste un codice ho una rutine o una macro che eviti questo?


title: dati seqenziali

author: Antonio Biso

text:
"Fax" <
ovv...@tin.it
> ha scritto nel messaggio
news:zIHia.47931$Jg1.1...@news1.tin.it...
> Devo risolvere questo quesito che da tempo mi assale.
> Il mio database ha dei campi numerici e campi con data.
> i campi numerici sono sequenziali e possono contenere anche valori
identici,
> cosě per i campi data.
> Cio che vorrei evitare e questo:
> il secondo campo numerico con relativa data non puo essere inferiore al
> primo campo numerico se ha data superiore alla prima, e cosě via.
> Per un esempio pratico:
> N° 12 del 12/12/01
> N° 13 del 13/12/01 (possibile)
> N° 14 del 12/12/01 (impossibile)
> N° 14 del 14/12/01 (possibile)
> esiste un codice ho una rutine o una macro che eviti questo?
Non spieghi come vengono inseriti questi valori.
Comunque, tramite le funzioni DLookup o Dmax puoi scrivere del codice a
fronte dei dopo aggiornamenti sulla maschera e risputare gli inserimenti non
corretti
Antonio


title: maschera di input

author: Pivo

text:
in una form di anagrafica ho il campo cognome. Devo forzarlo a miuscole e
lunghezza massima 25 caratteri. Il problema č che devono essere solo lettere
e non simboli, quindi ho messo come maschera di input
>aaaaaaaaaaaaaaaaaaaaaaaaa
e cosě dacendo non č consentito inserire cognomi accentati tipo SALO'
come lo risolvete voi?
ciao


title: maschera di input

author: SR

text:
"Pivo" <
NOSPAM...@excite.it
> ha scritto nel messaggio
news:9r3vke$1ca6$1...@stargate1.inet.it...

nel tuo ragionamento ci sono due concetti che si escludono mutualmente:
1) Ci devono essere solo lettere
2) Ci possono essere apostrofi
Possibile soluzione:
Nel codice dell'evento "su pressione" metti
KeyAscii= GetAsc(KeyAscii)
dove GetAsc č questa funzione:
Function GetAsc(nAsc As Long) As Long
    ' Costante con i caratteri che si lasciano passare (occhio all'apostrofo
all'inizio)
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If InStr(scChars, Chr(nAsc) > 0) Then
        GetAsc = nAsc
    Else
        GetAsc = 0
    End If
End Function


title: maschera di input

text:
C'era una parentesi messa male:
Function GetAsc(nAsc As Long) As Long
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If InStr(scChars, Chr(nAsc)) > 0 Then



title: maschera di input

text:
fantastico!
il problema era proprio di concetto: non vogliono simboli tranne il simbolo
'
bisogna saperlo fare!
ciao grazie


title: maschera di input

author: Filippo da studio

text:
In data Tue, 23 Oct 2001 16:39:49 +0200, "Pivo"
<
NOSPAM...@excite.it
> ha postato:
>in una form di anagrafica ho il campo cognome. Devo forzarlo a miuscole e
>lunghezza massima 25 caratteri. Il problema è che devono essere solo lettere
>e non simboli, quindi ho messo come maschera di input
>>aaaaaaaaaaaaaaaaaaaaaaaaa
>e così dacendo non è consentito inserire cognomi accentati tipo SALO'
>come lo risolvete voi?
>ciao
>
Private Sub txtCognome_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
	Case 39, 65 to 90
		' Niente perché apostrofo e lettere maiuscole
	Case 97 to 122
		KeyAscii=KeyAscii - 32   ' Trasforma minuscole in
maiuscole
	Case Else
		KeyAscii = 0        ' Nessun altro carattere è ammesso
	End Select
End Sub
Ciao Filippo
Filippo da studio


title: maschera di input

text:
funziona, ma adesso non mi prende più gli spazi e il tasto back
Come fare?


title: maschera di input

text:
con il tuo metodo basterebbe trovare i codici dello spazio e back ed
aggiungerli ai case?
Non l'ho ancora provato però, scusami
ciao


title: maschera di input

text:
"Pivo" <
NOSPAM...@excite.it
> ha scritto nel messaggio
news:9r4phl$ul$1...@nreada.inwind.it...
> funziona, ma adesso non mi prende più gli spazi e il tasto back
> Come fare?
guarda il commmento della funzione che ti ho scritto, nella costante vanno i
caratteri che accetti, aggiungi anche lo spazio. Non puoi rappresentare il
backspace per cui mettici una riga di codice che testa nAsc=9 (backspace)


title: maschera di input

text:
"SR" <
stefano...@effecta.it
> ha scritto nel messaggio
news:9r5p1i$r3jub$1...@ID-106197.news.dfncis.de...
>
> "Pivo" <
NOSPAM...@excite.it
> ha scritto nel messaggio
> news:9r4phl$ul$1...@nreada.inwind.it...
> > funziona, ma adesso non mi prende piů gli spazi e il tasto back
> > Come fare?
>
> guarda il commmento della funzione che ti ho scritto, nella costante vanno
i
> caratteri che accetti, aggiungi anche lo spazio. Non puoi rappresentare il
> backspace per cui mettici una riga di codice che testa nAsc=9 (backspace)
>
Scusa, il backspace č 8. Comunque fai cosě
Function GetAsc(nAsc As Long) As Long
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If (InStr(scChars, Chr(nAsc)) > 0) Or (nAsc = 8) Then



title: maschera di input

text:
In data Wed, 24 Oct 2001 00:04:37 +0200, "Pivo"
<
NOSPAM...@excite.it
> ha postato:
>con il tuo metodo basterebbe trovare i codici dello spazio e back ed

Si certo, space è 32 e back è 8
per Back non dovrebbe neabche essere necessario perché se non ricordo
male è insensibile a KeyAscii (cioè non viene intercettato) però non
sono sicuro. Controlla.



title: maschera di input

text: siete fantastici, grazie ad entrambi!


title: Query accodamento e criterio Like

author: Spider

text:
In una query di accodamento ho un valore da accodare nel campo
della tabella di destinazione ( e che poi e' il discriminante dei dati
della query) che viene richiesto mediante il criterio:
Like[inserisci valore]
La query viene lanciata da codice con una DoCmd.OpenQuery.
All'interno della maschera il cui codice lancia la query
ho gia' il valore che deve essere accodato.
Come posso fare per accodare il valore prendendolo direttamente
dalla maschera evitando il prompt del 'Like'?
Ciao


title: Query accodamento e criterio Like

author: Pablitomf

text:
Spider ha scritto:

> Like[inserisci valore]


> Ciao
il criterio deve essere : Like [Forms]![Tua_Form]![Tuo_Campo]
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query accodamento e criterio Like

text:
"Pablitomf"
> Pablitomf (Maurizio Facciuti)
tnx , as usual aggiungerei...:)
Spider


title: Query accodamento e criterio Like


title: format(12.13, "#.00") restituisce 12,13 come faccio ...

author: Ever

text:
format(12.13, "#.00") restituisce 12,13 come faccio per ottenre 12.13 senza
sostituire il carattere , con . nella stringa e senza variare le
impostazioni internazionali
Grazie fin'd'ora
Ever


author: AleC

text:

Si immagina che tu voglia 12.13 in formato stringa:
str(12.13)
Ciao
AleC


text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:260f1c07-d053-405b...@h23g2000prf.googlegroups.com...

E' quello che mi serviva.
Grazie
Ever


title: Valore da query a casella d testo

text:
Ho creato una query che ottiene il valore massimo del campo NumeroFattura e
lo incrementa di +1 mettendo il valore nella espressione newnumber.
Come faccio a passare questo valore dall'espressione nella query in una
casella di testo (NumeroFattura) in una maschera (fatture)?
Ho provato a guardare sul sito comune ma non sono riuscito a trovare niente.
Grazie.


title: Valore da query a casella d testo

author: Roberto da casa

text:
"Nefasto82" <
ste...@libero.it
> ha scritto nel messaggio
news:UH9kb.11074$e5.3...@news1.tin.it...

Se la query che hai creato l'hai anche registrata, usa la funzione DLookup
(vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valore da query a casella d testo

author: Alessandro Baraldi

text:
"Nefasto82" <
ste...@libero.it
> wrote in message
news:UH9kb.11074$
e5.3...@news1.tin.it

Secondo me non è il modo giusto per operare.
La funzione che hai usato per calcolare il nuovo
numero di Fattura la generi Public in un Modulo
usando le funzioni di aggregazione sui domini, magari
usando DMAX("NumeroFattura","TabellaFattire") se il campo
è esclusivamente numerico, altrimenti usa la stessa funzione della
Query.
A questo punto nella Casella di Testo come Valore Predefinito
inserisci il nome della Funzione che hai generato:
=MaxFattura()
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Valore da query a casella d testo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:J_akb.48250$e6.16...@twister2.libero.it...
>
> "Nefasto82" <
ste...@libero.it
> ha scritto nel messaggio
> Se la query che hai creato l'hai anche registrata, usa la funzione DLookup
> (vedi help).
>
> --
> Roberto
Grazie mille, funziona!


title: FDF Toolkit e file PDF

text:
Ciao a tutti,
sto tentando di creare un codice per compilare automaticamente i campi
nascosti in un file PDF.
su internet ho trovato che questo ė possibile tramite FDF Toolkit, Adobe
acrobat per creare i campi nel file PDF e Visual basic per scrivere il
codice per poter valorizzare i campi.
A questo punto il mio dubbio ė di sapere se il codice scritto con Visual
basic è uguale a quello che devo compilare con Visual basic for access,
a me sembrano uguali!
Sul sito simply4you ho trovato le istruzioni che fanno riferimento a
Visual basic, sapete dove posso trovare le informazioni per Microsoft
access?
Grazie


title: FDF Toolkit e file PDF

text:

Sono sostanzialmente uguali in quanto VBA è un dialetto di VB6
specifico per l'applicativo, passatemi l'esempio.
Di fatto il VBA è composto dalle istruzioni VB6+Istruzioni specifiche
per l'applicativo.
@Alex


title: gif anitata ocx asimetrix

author: Antonio in the city

text:
Con questo ocx creo una gif animata. Riesco a far comparire in una form il
gif, qundo ci clicco sopra inizia l'animazione ma vorrei anche fermarla, non
riesco a capirre però su quale evento.
Qualcuno ha già risolto questo problema ?
Grazie
Antonio


title: Riepilogo di una serie di Query

author: Liano Amato

text:
Salve,
ho bisogno di un vostro aiuto, giacché con la mia conoscenza di Access
(molto limitata, sigh) non riesco a risolvere questo problema.
Dunque ho una tabella dove ho i dati principali, chiamiamola "Tabella",  i
campi interessati sono:
...    Data    ...    Importo    Note    Esiti
I campi "Note" ed "Esiti" hanno valori diversi; attraverso l'incrocio di
tali valori estrapolo gli importi necessari, costruendomi tre query ad hoc
(ed utilizzando un range "Data" Between [da data] And [a data]), e sono:
Criterio: Note="Contanti" quindi è l'incassato
Criterio: Note="Contanti" Or Esiti="C" quindi è la rimessa clienti
Criterio: Note="Reso" Or Esiti="C" quindi è il giroconto
Attreverso tre report diversi ho effettuato al loro interno i totali delle
rispettive query, ma adesso vorrei costruirmi un report riepilogativo dove
posso inserire questi tre dati su un unico foglio, come devo procedere? ho
provato a costruirmi una query inserendo i tre "Importo" delle rispettive
query ma non so come visualizzarle tutte usando un range "data" che sia
comune a tutte le tre query.
Spero sia stato chiaro nell'esposizione (mi sono anche un po incartato
nell'esposizione, scusatemi...) e, ringraziandovi anticipatamente, ne
approfitto per salutare tutti gli amici della news .
Liano


title: Riepilogo di una serie di Query

text:
"Liano Amato" <
liano...@libero.it
> ha scritto nel messaggio
news:p_k1c.45283$Kc3.1...@twister2.libero.it...
> Salve,
> ho bisogno di un vostro aiuto, giacché con la mia conoscenza di Access
> (molto limitata, sigh) non riesco a risolvere questo problema.
> Dunque ho una tabella dove ho i dati principali, chiamiamola "Tabella",  i
> campi interessati sono:
>
> ...    Data    ...    Importo    Note    Esiti
>
> I campi "Note" ed "Esiti" hanno valori diversi; attraverso l'incrocio di
> tali valori estrapolo gli importi necessari, costruendomi tre query ad hoc
> (ed utilizzando un range "Data" Between [da data] And [a data]), e sono:
>
> Criterio: Note="Contanti" quindi è l'incassato
> Criterio: Note="Contanti" Or Esiti="C" quindi è la rimessa clienti
> Criterio: Note="Reso" Or Esiti="C" quindi è il giroconto
Quegli or non dovrebbero essere un and?
>
> Attreverso tre report diversi ho effettuato al loro interno i totali delle
> rispettive query, ma adesso vorrei costruirmi un report riepilogativo dove
> posso inserire questi tre dati su un unico foglio, come devo procedere? ho
> provato a costruirmi una query inserendo i tre "Importo" delle rispettive
> query ma non so come visualizzarle tutte usando un range "data" che sia
> comune a tutte le tre query.
La query avrà tre campi calcolati fatti così
Importo_Incassato: iif(note = "Contanti" AND Esiti <> "C";importo;0)
Importo_Rimessa: iif(note = "Contanti" AND Esiti = "C";importo;0)
Importo_Giroconto: iif(note = "Reso";importo;0)
Facendo le somme nel report di questi campi calcolati hai gli importi per
catogoria
Antonio


title: Riepilogo di una serie di Query

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:syn1c.48516$FJ6.1...@twister1.libero.it...

Salve,
gli Or dovevano essere effettivamente Or, visto che i campi "Note" ed
"Esiti" possono anche avere valore nullo, comunque ho provato e funziona
alla grande, grazie!!!!!!!!!!!!!!!!!!
Saluti
Liano
P.S.: scusami per l'e-mail privata ma ho sbagliato ad inoltrare la risposta,
non volevo.


title: Esportare con filtro

text:
Salve a tutti,
Ho un grosso problema di esportazione, e volevo che qualcuno mi
aiutasse a risolverlo.
Sono un dipendente militare della C.R.I. e sono addetto alla gestione
dei soci.
Ho creato un po di tempo fa grazie anche all'aiuto del NG, un database
per la gestione dei soci ora il mio problema è questo:
ho una tabella soci con inseriti i dati anagrafici ed altro di tutti i
soci, una tabella pagamenti che riporta le date dei pagamenti ed altro
dei diversi anni.
Ho creato una maschera dalla tabella soci, ed una sottomaschera
pagamenti da una query pagamenti.
Ora io vorrei creare dalla maschera soci, un pulsante chiamato
"consolidato" che mi esporta in excel, alcuni dati della tabella soci,
e filtrare il campo "DataVer" senza estrapolarmi le date ma solo
controllare che nel pampo DataVer esiste una data e riportarmi nel
foglio excel il simbolo X nella cella appropriata. Faccio un esempio.
Campi che deve estrapolarmi dalla tabella soci:
GruppoDi | Cognome | Nome | LuogoNascita | DataNascita | CompCri |
DataVer | DataVer | DataVer |
Come vedi il campo DataVer è ripetuto per tre volte, è solo per farmi
capire che nel foglio excel invece di riportarmi nelle tre colonne le
date dei versamenti, mi deve inserire una X per ogni data.
Non so se mi sono fatto capire, ma se ci sono problemi di comprensione
alla mia maccheronica spiegazione, mi spieghro meglio sule vostre
domande.
Grazie del vostro aiuto.


title: Esportare con filtro

text:

Ne abbiamo parlato già alcune volte...!
Il metodo più comodo per esportare in EXCEL è [CopyFromRecordset]
proprio perchè è flessibile e consente diverse personalizzazioni.
Ad esempio questa riga consente di esportare dalla Cella "A5" il
Recordset di base della Form che, include i criteri di Filtro...
    oWkb.Sheets(1).Range("A5").CopyFromRecordset Forms!
NomeForm.RecordsetClone
Ovviamente devi aprire l'oggetto di Automazione di Excel da VBA, ma
trovi un mio esempio... in qualche altro 3D se cerchi bene.
@Alex


title: Esportare con filtro

text:

Ciao,
ho adattato questo codice trovato sul ng:
-------------------------------------------------------------
Private Sub ESPORTA_Click()
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
    Dim n As Integer
   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori
    Set excDoc = excApp.Workbooks.Open("C:\Documents and Settings
\Bifulco1\Desktop\SOCI\CONSOLIDATO 2011\CONSOLIDATO.xlsx")
    excApp.Visible = True
    'Apro il recordset
    Set rst = CurrentDb.OpenRecordset("ESPORTA_EXCELQuery")
    'contatore righe ESPORTA_EXCELQuery
    n = 1
   'Copia tutti i record di ESPORTA_EXCELQuery nel file excel
    With rst
    .MoveFirst ' mi sposto su primo record
    While Not .EOF
    n = n + 1
    excDoc.Worksheets(1).Cells(n, 1) = !GruppoDi  'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(n, 2) = !COGNOME
    excDoc.Worksheets(1).Cells(n, 3) = !NOME
    excDoc.Worksheets(1).Cells(n, 4) = !LuogoNascita
    excDoc.Worksheets(1).Cells(n, 5) = !DataNascita
    excDoc.Worksheets(1).Cells(n, 6) = !CompCri
    excDoc.Worksheets(1).Cells(n, 7) = !DataVer
    excDoc.Worksheets(1).Cells(n, 8) = !DataVer
    excDoc.Worksheets(1).Cells(n, 9) = !DataVer
    .MoveNext 'passa al prossimo record
    Wend
    End With
   rst.Close
   Set rst = Nothing
    If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub
--------------------------------------
sono riuscito ad esportare quello che mi serve in excel, ma non so
come filtrare DataVer.
Come vedi nel codice invece di inserire una tabella, ho inserito una
query, perche' i dati da esportare si trovano su due tabelle. Solo che
ho un problema, non so come filtrare il campo DataVer ed ed esportare
il filtraggio su tre colonne del file excel.
Nella query ho inserito una tabella con i primi 6 campi, e dalla
seconda tabella ho prelevato solo il campo DataVer che si trovano le
date dei pagamenti dei soci.
Ora io avrei bisogno di filtrare questo campo esportando solo un range
di date, e riportarle su tre colonne del file excel.
esempio:
----------------
  DataVer
----------------
24/06/2005
19/01/2006
19/01/2007
13/01/2009
26/01/2010
15/02/2011
----------------
Questi sono i dati presenti nel campo DataVer per ogni socio.
Dovrei filtrare questo unico campo estrapolando solo tre date e
riportarlo nel file excel, una data per ogni colonna.
Spero di non aver fatto un casino per farmi capire.
Ti ringrazio dell'aiuto.


title: Memoria Esaurita!!!!!!!!!

author: Luca

text:
Salve a tutti.
Ripropongo un errore ormai noto, ma che comunque non ho ancora capito a cosa
sia dovuto.
Mi spiego meglio.
Ho costruito un semplicissimo DB che non presenta alcuna imperfezione nella
sua struttura. Di questo ne sono certo.
Ora nel momento in cui compio una serie di operazioni quali:
* inserimento di dati,
* visualizzazione report,
* apertura e chiusura di una maschera,
* passaggio all'altra maschera,
ecc..
indovinate chi si presenta??
"Memoria Esaurita, Impossibile aggiornare la visualizzazione...chiudere i
programmi non necessari e riprovare"
...quali programmi!?
Beh...io non so più dove andare a "parare"!
Vorrei proprio sapere se qualcuno di voi ha risolto definitivamente questo
problema e se ha scoperto la "vera" causa del tutto.
Vi ringrazio anticipatamente!!!
Luca


title: Memoria Esaurita!!!!!!!!!

author: Alessandro Nazzani

text:
Come tu sai, l'errore č noto: Access non va tanto per il sottile con la
memoria del PC!
Le cause del problema possono essere tante, per cui mi limito a darti i
suggerimenti piů comuni (quelli che conosco io almeno ;-) partendo dal
presupposto che tu stia utilizzando A97 (per il 2000 non sono
attrezzato!).
1) Installa la SR-2 (e magari anche la SP di Jet).
2) Controlla lo spazio su disco (quello che contiene lo Swapfile di
Windows e la directory Temp) e fai uno Scandisk.
3) Verifica che nel tuo codice gli oggetti vengano opportunamente
deassegnati quando non piů utilizzati (ad es.: rst.close / set
rst=Nothing).
4) Rimuovi le immagini dal background delle maschere.
5) Fai il classico Compact (e magari anche un Repair).
6) Limita l'uso dei campi Memo al minimo indispensabile.
C'č altro?...
Mi pare di no.
Ah sě, una piccola nota: sicuramente sei una persona molto piů precisa
ed accorta di me, ma l'esperienza mi induce a credere che sono MOOOLTO
poche le cose CERTE in questo mestiere! :-)
Buona fortuna!
Alex.
In article <86urkf$ils$
1...@nslave2.tin.it
>,
  "Luca" <
ra...@freemail.it
> wrote:
> Salve a tutti.
> Ripropongo un errore ormai noto, ma che comunque non ho ancora capito
a cosa
> sia dovuto.
> Mi spiego meglio.
> Ho costruito un semplicissimo DB che non presenta alcuna imperfezione
nella
> sua struttura. Di questo ne sono certo.
> Ora nel momento in cui compio una serie di operazioni quali:
> * inserimento di dati,
> * visualizzazione report,
> * apertura e chiusura di una maschera,
> * passaggio all'altra maschera,
> ecc..
> indovinate chi si presenta??
>
> "Memoria Esaurita, Impossibile aggiornare la
visualizzazione...chiudere i
> programmi non necessari e riprovare"
>
> ...quali programmi!?
>
> Beh...io non so piů dove andare a "parare"!
> Vorrei proprio sapere se qualcuno di voi ha risolto definitivamente
questo
> problema e se ha scoperto la "vera" causa del tutto.
>
> Vi ringrazio anticipatamente!!!
> Luca
>
>
Sent via Deja.com
http://www.deja.com/
Before you buy.


title: Listbox e Lebans

author: Roberto

text:
Salve a tutti.
Sto tentando di studiare la soluzione di Lebans per modificare gli
attributi di una listbox.
Con questo codice il testo diventa in grassetto in base alla richiesta:
If Left(rs("UTENTE"), 1) <> "A" Then
objFlistWnd.ItemAttributes(rs.AbsolutePosition) = 0
Else
objFlistWnd.ItemAttributes(rs.AbsolutePosition) = 1
End If
Ma se volessi assegnare un colore di sfondo alla riga, che comado
doveri usare?
Grazie per l'attenzione


title: Listbox e Lebans

text:
Roberto ha scritto:

Aiutaci a capire di quale Demo di Lebans stai parlando...!
A spanne la collection ItemAttributes(Index) potrebbe, e dico potrebbe,
esporre
anche l'attributo che chiedi puntando all'indice dell'attributo, ma
sinceramente non vedendo il codice non posso aiutarti di più....!
@Alex


title: Listbox e Lebans

text:
La demo è quella per la formattazione delle listbox
Questa è una piccola parte del codice; ho omesso il resto ma se serve
..
Private Declare Function apiSendMessage Lib "user32" Alias
"SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1
As String, ByVal lpsz2 As String) As Long
Private Sub LoadListBox()
Dim intCount As Integer
' Set picture prop. Contains Bitmap of
' a blank Box and a Box containing a CheckMark
objFList.Picture = ListPic
objFList.PictureCols = 2
objFList.PictureRows = 1
'Add a field list window control
'Me.oleFList.AddFieldList
objFList.AddFieldList "Drag & Drop ListBox", 0, 0, 180, 180, _
     m_MultiSelect, 0, m_ShowCheckBoxes
' Release previous reference if we are recreating Listbox
Set objFlistWnd = Nothing
' Set Reference to our Listbox
Set objFlistWnd = objFList.FieldLists(0)
' The sorted prop seems broken
'objFlistWnd.Sorted = True
' Allow a couple of pixels margin on Left side
objFlistWnd.ListBoxInset = 1
' No mutli column support in this sample
'objFlistWnd.Columns = 0
' No MultiSelect support in this sample
'objFlistWnd.MultiSelect = 3
' Set Text Style
objFlistWnd.ListBoxTextStyle = m_ListBoxTextStyle
' Set the Caption - not used in this release
objFlistWnd.ShowCaption = True
' Border = Flat
objFlistWnd.BorderStyle = 0
' Remove sizeable border
objFlistWnd.AllowMoveSize = 1
' Grab some Data, in this case the Recordset
' behind this Form.
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
objFlistWnd.BackColor = RGB(255, 255, 0)
rs.MoveFirst
Do While Not rs.EOF
    objFlistWnd.AddItem rs.Fields("user")
    ' Bold every other line
    If Left(rs("USER"), 1) = "A" Then
        objFlistWnd.ItemAttributes(rs.AbsolutePosition) = 1
    Else
        objFlistWnd.ItemAttributes(rs.AbsolutePosition) = 0
    End If
    rs.MoveNext
Loop
m_ListBoxhWnd = FindWindowEx(objFlistWnd.hwnd, 0&, "ListBox",
vbNullString)
End Sub


title: Listbox e Lebans

text:
Roberto ha scritto:
> La demo è quella per la formattazione delle listbox
> Questa è una piccola parte del codice; ho omesso il resto ma se serve
[CUT]
Ascolta.... ultimo tentativo....
Nel sito di Lebans ci sono almeno 10 Demo che formattano le ListBox(con
il Cerca ne ho trovati 24).
Ti riferisci a questo:
http://www.lebans.com/vb_listbox.htm
Ora se non ti è troppo difficile postare il Link per evitarmi di
guardare tutti i demo, cosa che
peraltro non farei mai, posso provare a vedere quello che dici,
altrimenti io passo.
Il codice che posti è inutile perchè i demo di Lebans che gestiscono
queste formattazioni grafiche sono sempre molto complessi e risponderti
sarebbe molto presuntuoso senza
aver approfondito, almeno per me e per le mie capacità, magari
postando sul NG americano ti risponde Lebans direttamente e non gli
serve nemmeno il codice.
@Alex


title: Listbox e Lebans

text:
> Ti riferisci a questo:
>
http://www.lebans.com/vb_listbox.htm
si, scusa, non avevo capito la domanda ...


title: Listbox e Lebans

text:
Roberto ha scritto:
> > Ti riferisci a questo:
> >
http://www.lebans.com/vb_listbox.htm
>
> si, scusa, non avevo capito la domanda ...
Non si può fare quello che chiedi in quel modo.
Se hai notato non esiste nessuna ListBox nella/e Form/s, ma sfrutta un
Oggetto Ole
che associa Runtime, e se non ho caito male usa la ListBox di VB
all'interno di Access...!
In ogni caso all'inizio del codice espone "' ** Field list control
constants **" e non esiste nulla inerente al BackColor.
In ogni caso on sono esposti attributi per lo sfondo dell'Item, per
quello saresti costretto
a SubClassare l'Handle del controllo "m_ListBoxhWnd", ma a quel punto
dovresti avere una
pictureBox per semplicità (cosa non presente in VBA) oppure devi
prenderti l'altro Demo di Lebans che realizza la Formattazione
Condizionale via SubClassing su una Form in visualizzazione Continua ed
adattarla alla List in questione......!
Se avessi visto qualche Demo in VB6 fatto con le ListView ti saresti
reso conto prima che le 2 cose sono concettualmente diverse.
Anche la ListView di MsCommonControl non consentirebbe di modificare lo
sfondo delle singole Row, in realtà si fà tranquillamente(è
un'eufemismo) con la Tecnica che ti ho detto prima.
A mio avviso hai fatto un passo troppo lungo......
@Alex


title: Listbox e Lebans

text:
> prenderti l'altro Demo di Lebans che realizza la Formattazione
> Condizionale via SubClassing su una Form in visualizzazione Continua ed
> adattarla alla List in questione......!
provo a vedere se ci capisco qualcosa ...
> A mio avviso hai fatto un passo troppo lungo......
>
> @Alex
hai ragione, ma se non si prova mai ...


title: Listbox e Lebans

text:
> > prenderti l'altro Demo di Lebans che realizza la Formattazione
> > Condizionale via SubClassing su una Form in visualizzazione Continua ed
> > adattarla alla List in questione......!
a quale ti riferisci?


title: Listbox e Lebans

text:
Roberto ha scritto:

Per creare i rettangoli colorati senza PictureBox a questo:
http://www.lebans.com/alternatecolordetailsection.htm
@Alex


title: Impedire ad una maschera senza righe di aprirsi

author: LUIGI C.

text:
Buon Giorno
A97
ho uma naschera ORDINE
con sottomaschera RIGHE ORDINE
link tra le 2 (Master e Slave) ID ORDINE in entrambi i casi
voglio ad apertura maschera che se la maschera slave non ha record mi si
inibisca l'apertura della stessa con msgbox 'la maschera non presenta
record..."
come si puo' fare????
Grazie
Luigi
BARI


author: MA

text:

if dcount("*", tuatabella, Tuofiltro) >0 then
    docmd.openform...
else
msgbox
end if
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dt1qtc$sar$1...@area.cu.mi.it...

Vosa vuol dire tuatabella e tuofiltro????
Io apro la maschera (con sottomaschera in questione) utilizzando un pulsante
abbinato
ad una macro (apri maschera condizione where)
Voglio che nel momento che seleziono il numero d'ordine
e spingo il pulsante ad apertura della amschera mi faccia un controllo se
esistonto recorsds in sotoo maschera...
in caso negativo (non presenza di records) nessuna apertura...
Grazie


author: Morgan

text:
"LUIGI C." <
luigic...@hotmail.com
> ha scritto nel messaggio
news:nh_If.5456$uQ4....@tornado.fastwebnet.it...

Vuol dire che Ma ti ha indicato una traccia che tu adesso devi sviluppare.
Premi F1 si apre la guida in linea e li ti cerchi DCount e trovi
È possibile utilizzare la funzione DCount per stabilire il numero di record
contenuti in un determinato set di record, un dominio. Utilizzare la
funzione DCount in Visual Basic, in una macro, in una espressione nella
query o in un controllo calcolato.
È possibile, ad esempio, utilizzare la funzione DCount in un modulo per
restituire il numero di record contenuti in una tabella Ordini
corrispondente agli ordini inoltrati in una determinata data.
Sintassi
DCount(espr, dominio[, criteri])
nota quanto assomiglia a  " if dcount("*", tuatabella, Tuofiltro) >0 then"
Poi se sei audace clicchi su Esempio e .....
Esempio di funzione DCount
Nell'esempio riportato di seguito si restituisce il numero di ordini
inoltrati nel Regno Unito dopo il 1 gennaio 1995. Il dominio è la tabella
Ordini. L'argomento criteri limita il set di record risultante ai record per
i quali PaeseDestinatario è uguale a UK e DataSpedizione è posteriore al
01/01/95.
intX = DCount("[DataSpedizione]", "Ordini", _
 "[PaeseDestinatario] = 'UK' AND [DataSpedizione] < #01/01/95#")
Nell'esempio riportato di seguito l'argomento criteri include il valore
corrente di una casella combinata chiamata PaeseDestinatario. I valori
contenuti nella casella combinata PaeseDestinatario provengono dal campo
PaeseDestinatario della tabella Ordini. Si noti che non viene incluso il
riferimento al controllo tra le virgolette che denotano la stringa. In tale
modo si assicura che ogni volta che viene richiamata la funzione DCount, il
controllo fornisca il valore corrente.
intX = DCount("[DataSpedizione]", "Ordini", "[PaeseDestinatario] = '" _
 & Forms!Ordini![PaeseDestinatario] & "'AND [DataSpedizione] < #01/01/95#")
Morgan.


title: Proprietà RecordsetType

author: Wanda

text:
Ciao,
situazione Form con sottoForm, impostati su Snapshot per evitare modifiche
dall'utente A
L'utente B può modificare i dati dopo log sulla Form
riesco ad impostare la proprietà recordsetType per la form principale, ma
non riesco per la parte sottoscheda, mi chiedo:
è possibile? e come
ciao
Fabio


title: Proprietà RecordsetType

text:

Avrei risolto lavoranto sulla proprietà Locked devo ancora verificare se
fattibile su tutti i SottoForm
Mi interessa sapere però se sia possibile utilizzare la proprietà
recordsetType nelle sottoform
Grazie
Fabio
> ciao
> Fabio


title: Proprietà RecordsetType

author: Antonio Biso

text:
"Wanda" <
wa...@wanda.org
> ha scritto nel messaggio
news:45dea2de$0$3817$5402...@news.sunrise.ch...

Hai provato a usare la solita sintassi per referenziare controlli dentro una
sottomaschera e cioè
me.sottomaschera.form.controllo. ... ?
Antonio


title: Proprietà RecordsetType

text:

Questo si, ma mi pare di capire che non sia possibile agire in questo modo
Ciao
Fabio
>
> Antonio


title: numerazione gruppi record in una query

author: newsmino

text:
ho una tabella così
id  |           tipo|     gruppo|
1  |            1   |      1
2  |            2   |      1
3  |            3   |      1
4  |            1   |      2
5  |            2   |      2
10|            2   |      2
11|            3   |      2
12|            1   |      3
13             2   |      3
25|            3   |      3
sostanzialmente ad ogni tipo 1 vorrei che il gruppo aumentasse di 1
anche per i record di tipo 2 e 3 , che sono ovviamente in numero
variabile come si vede dagli id 5 e 10
è possibile? se sì come deve essere scritta l'sql?
ciao a tutti e buona giornata


title: numerazione gruppi record in una query

author: Karl Donaubauer

text:
newsmino wrote:
> ho una tabella cos�
>
> id  |           tipo|     gruppo|
> 1  |            1   |      1
> 2  |            2   |      1
> 3  |            3   |      1
> 4  |            1   |      2
> 5  |            2   |      2
> 10|            2   |      2
> 11|            3   |      2
> 12|            1   |      3
> 13             2   |      3
> 25|            3   |      3
>
> sostanzialmente ad ogni tipo 1 vorrei che il gruppo aumentasse di 1
> anche per i record di tipo 2 e 3 , che sono ovviamente in numero
> variabile come si vede dagli id 5 e 10
>
> � possibile? se s� come deve essere scritta l'sql?
In un campo calcolato di una query puoi usare p.e.
DCount("*","tabella","tipo = 1 And id<=" & id)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: numerazione gruppi record in una query

text:
Karl Donaubauer ha scritto:



anzitutto grazie per l'interessamento e per la risposta, per� in questo mi
numera solo i record di tipo 1 ma i record successivi (con id maggiore del
record di tipo 1 precedente) di tipo 2 e 3 non vengno ovviamente numerati
� prorio questo il mio problema maggiore....
magari hai qualche idea con qualche subquery o devo magari utilizzare
qualche function?
ciao e per ora grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: numerazione gruppi record in una query

text:
Karl Donaubauer ha scritto:



tra le altre cose non funziona il dcount che mi hai segnalato, mi
restituisce sempre 0



title: numerazione gruppi record in una query

text:
Karl Donaubauer ha scritto:



scusami ho detto solo fesserie funziona alla perfezione, sei stato come la
solito gentilissimo e ultra competente
ciao e grazie mille ancora



title: Doppia installazione di Access ver 97 e 2000

author: Carlo Ve

text:
Ciao ben ritrovati e
caldissimi saluti a tutti
volevo chiedere se a qualcuno che ha installato sullo stesso pc sia la
versione di Access 97 che la 2000
capita che  avviando  A2000 gli si apra una maschera che dice qualcosa tipo
"conversione di Access in corso bla bla bla " ritardando l'avvio
dell'applicativo
( preciso che non e' la richiesta di conversione del programma da A97 a
A2000)
stessa storia anche se viene avviato il prg da icona con il percorso
mentre se si annulla la maschera l'appicazione si apre ugualmente senza
problemi
Avete qualche idea a proposito ?
non sara'  la fine del mondo pero' rimane sempre qualcosa di poco simpatico
da vedere
Carlo Ve


title: ARCHIVIAZIONE DOCUMENTI

author: FABIO

text:
Vorrei realizzare un applicativo che gestista l'archiviazione di documenti.
Per ogni documento archiviato vorrei conservare anche una copia
scannerizzata....
per il database penso di avere le idee chiare.....
che tipo di controllo devo utilizzare per avviare la scansione e archiviare
l'immagine insieme al record direttamente da access?
grazie Ciao


title: ARCHIVIAZIONE DOCUMENTI

text:
"FABIO" <
FGUL...@TISCALINET.IT
> ha scritto nel messaggio
news:bmqs8h$fup$1...@lacerta.tiscalinet.it...

Se con VBA di Access vuoi scannerizzare un documento la cosa migliore è
usare i controlli ActiveX Kodak che, se usi una versione di Windows
precedente a Windows XP, li trovi già installati nel tuo PC insieme al
programma Imaging, anche quello della Kodak.
Con essi puoi creare un file immagine .tif o .bmp scannerizzando da VBA
un'immagine, scegliendo tu il nome del file ed il nome della directory che
lo conterrà.
A questo punto in una tabella sarà sufficiente memorizzare, in un campo di
tipo testo, il percorso completo (directory + nome + estensione) del file
immagine; per visualizzare in una maschera o in un report il contenuto del
file immagine esterno al database, sarà sufficiebte inserire in essi un
controllo Immagine ed impostare la sua proprietà Picture con il percorso
completo del file. In alternativa potrai visualizzare l'immagine in un
controllo ActiveX Kodak.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella Combinata e valore "Tutti"

author: PaoloD

text:
Ciao a tutti!
Prendendo spunto dalla Faq di Roberto sul SC ed avendo la necessità di
aggiungere una scelta "Tutti" all'interno dei campi di una casella
combinata, ho indicato come origine riga della stessa:
SELECT 0 As Oper, "Tutti" As OperChiaro
FROM TCasOper
UNION SELECT TCasOper.Oper, TCasOper.OperChiaro FROM TCasOper;
E fin qui tutto bene, il valore "Tutti" compare in testa alle scelte ed
è ok!
Tuttavia non mi riesce di far comparire detto valore "Tutti" come
valore predefinito! Penso che dipenda dalla Query, ma non riesco a
venirne a capo. C'è qualcuno che può darmi una mano?
Grazie!


title: Casella Combinata e valore "Tutti"

text:

www.donkarl.com/it
FAQ 4.12 Casella combinata/di riepilogo - Selezionare una riga
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Casella Combinata e valore "Tutti"

text:
Karl Donaubauer ha scritto:

Ok, molte grazie, funziona alla grande, ma siccome l'appetito vien
mangiando, dovrei anche poter impostare da evento click di pulsante di
comando, il valore "Tutti": con un semplice
 Me!Casella Combinata = "Tutti"
 non compare niente! Mi dai ancora una piccola mano? Devo aggiornare lo
schermo?
Grazie!


title: Casella Combinata e valore "Tutti"

author: Roberto dal portatile

text:
"PaoloD" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:1153905642.5...@i42g2000cwa.googlegroups.com...

Se la casella combinata si chiama MiaCombo, a fronte dell'evento "Su
corrente" della maschera genera il seguente codice VBA:
Private Sub Form_Current()
Me!MiaCombo = Me!MiaCombo.ItemData(0)
End Sub
Per maggiori dettagli vai sul Sito Comune e nella Sezione Forms leggi la mia
FAQ intitolata "3.111 Selezionare da VBA la riga di una casella combinata".
>Grazie!
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Casella Combinata e valore "Tutti"

text:
Roberto dal portatile ha scritto:

Però non è possibile farlo dall'evento click di un pulsante di
comando? In pratica vorrei impostare a "Tutti" il valore della casella
combinata, qualsiasi sia il valore selezionato in quel momento(con form
aperta ed in uso): non mi pare una buona soluzione chiudere e riaprire
la maschera, ma dall'evento click sul pulsante di comando non riesco a
far uscire il mio "Tutti"!


title: Casella Combinata e valore "Tutti"

text:
"PaoloD" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:1153926729.4...@h48g2000cwc.googlegroups.com...


>Però non è possibile farlo dall'evento click di un pulsante di
>comando?
Certo che è possibile.
Se  la casella combinata, come io penso, è non associata, la riga di codice
VBA:
Me!MiaCombo = Me!MiaCombo.ItemData(0)
La generi, quindi la esegui, quando ti pare.
> In pratica vorrei impostare a "Tutti" il valore della casella
>combinata, qualsiasi sia il valore selezionato in quel momento(con form
>aperta ed in uso): non mi pare una buona soluzione chiudere e riaprire
>la maschera,
Non è affatto necessario aprire e richiudere la maschera, è sufficiente
eseguire quella riga di codice VBA.
> ma dall'evento click sul pulsante di comando non riesco a
>far uscire il mio "Tutti"!
Certamente si: non vedo proprio dove sia il problema a farlo.



title: Casella Combinata e valore "Tutti"

text:


Scusami per questa storia senza fine, ma la Casella combinata è
associata ad una tabella che non contiene il valore "Tutti", che è
stato aggiunto con
SELECT 0 As Oper, "Tutti" As OperChiaro
FROM TCasOper
UNION SELECT TCasOper.Oper, TCasOper.OperChiaro FROM TCasOper
Di solito non ho problemi ad impostare su click e pulsante di comando
qualunque valore per una casella combinata associata ad una tabella, ma
in questo caso non riesce: sarà una questione di aggiornamento di
schermo?


title: Casella Combinata e valore "Tutti"

text:
PaoloD ha scritto:

Mi rispondo da solo: e' solo questione di aggiornamento di schermo, con
un bel
'Me.Refresh'
riesco ad impostare sto valore!
Grazie molte a tutti!


title: Perchè l'invio di posta non funziona ?

author: Ferrante Luigi

text:
Ciao a tutti ! Ho problemi a spedire dei report tramite posta elettronica da
Access.mi da un errore ""impossibile aprire la sessione di posta
elettronica" Controllare l'applicazione per assicurarsi che funzioni
correttamente.
    Che significa ?
Gigi


title: Perchè l'invio di posta non funziona ?

author: MegaMax

text:
"Ferrante Luigi" <
luigi.f...@telecomitalia.it
> ha scritto nel messaggio
news:RRpO6.2244$d8.4...@news2.tin.it...

come fai a spedire un report via posta?
lo stampi su file? lo converti in pdf? o cosa?
Max


title: Far apparire una combobox su selezione di un valore

text:
Ciao a tutti!
Ho un problema che so già che non riuscirò a spiegare :)
Allora, sto facendo un database in cui vengono inserite delle
informazioni, diciamo che è il fulcro del database, poi viene tutto il
resto: cioè fonti delle info, chi riguardano, oggetto
dell'informazione, ecc....
Nella maschera di inserimento dell'informazione ad un certo punto ho
una casella combinata dove posso scegliere l'oggetto. E fin qui tutto
bene, solo che mi è stato chiesto di fare un'ulteriore suddivisione.
Se in Oggetto scelgo un determinato oggetto (tra: Prodotti, Progetti
futuri, Vendite, e altri), cioè "Prodotti", vorrebbero poter inserire
anche il prodotto specifico cui riguarda l'info.
C'è un modo per far si che alla scelta nella CasellaCombinata di
"Prodotti" appaia di fianco una casella combinata che mi mostri i
prodotti? (ho già creato la tabella in questione, il dubbio è proprio
su come far apparire la Casella solo in quel caso)
Grazie per eventuali risposte!


author: Paolo Holzl

text:
lant...@gmail.com
 wrote:
> C'è un modo per far si che alla scelta nella CasellaCombinata di
> "Prodotti" appaia di fianco una casella combinata che mi mostri i
> prodotti? (ho già creato la tabella in questione, il dubbio è proprio
> su come far apparire la Casella solo in quel caso)
La crei con visibile a false, dopo aggiornamento del campo prima fai un IF
che rende visibile la combo o la rinasconde.
Ciao


text:
> La crei con visibile a false, dopo aggiornamento del campo prima fai un IF
> che rende visibile la combo o la rinasconde.
>
> Ciao
Si, è proprio quello che ho fatto, ma nell'IF devo aver sbagliato
qualcosa.
Come si fa a dirgli "se il valore selezionato della casella combinata
è uguale a <valore>"???
Ho fatto una If di prova con 2 msgbox a seconda che il valore sia
uguale o no, ma non lo è mai, quindi inizio a pensare che sia
sbagliato il codice.
Grazie!


title: Re: Blocco Tastiera

text:
"Matteo" <mat...@tin.itxxx> ha scritto nel messaggio
news:B35ce.88798$zZ1.2...@twister1.libero.it...
> E' una richiesta insolita (credo), ma ho la necessità di bloccare
> completamente la tastiera allo schiacciamento di un tasto, questo perchè
il
> tasto mi va ad eseguire una serie di righe di codice (abbastanza lungo
> perchè va a fare varie operazioni su tabelle e query) che se viene
> inavvertitamente interrotto (per esempio premendo ESC) mi manda all'aria
> tutto...
>
> C'è un modo per bloccare la tastiera via codice o qualche altra scappatoia
a
> questo problema ?
>
> Grazie
>
>
durante l'azione del tuo codice imposta a null l'effetto keypress\keydown e
riabilitalo quando il codice avrà finito di girare.
non l'ho testata, ma così a naso, credo sia la strada giusta da seguire.
saluti,
--
strano...mavero


title: Re: Blocco Tastiera

author: Matteo


title: Re: Blocco Tastiera

text:
"strano...mavero" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:4270d...@x-privat.org...
>
> durante l'azione del tuo codice imposta a null l'effetto keypress\keydown
e
> riabilitalo quando il codice avrà finito di girare.
> non l'ho testata, ma così a naso, credo sia la strada giusta da seguire.
> saluti,
> --
> strano...mavero
>
C'ho pensato su, ma non riesco a capire come fare operativamente...
C'è qualche proprietà particolare da impostare sul form oppure che altro ?
grazie


title: Sicurezza con Access 2010

author: ulderico

text:
Buongiorno,
Avendo la necessità di non rendere pubblico un file access che
contiene dati personali, ma dovendo al tempo stesso renderlo
disponibile ad un gruppo di persone autorizzate, abbiamo messo in
rete
il file MDB di access 2002, che però può essere aperto solo con il
comando seguente (già convertito per l'uso con access2010):
"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" D:\per
\giper_xp\XP/WRKGP d:\per\giper_xp\xp_per10.mdw
Il comando funziona e fino a qui nessun problema.   Ma, mentre nella
versione Access 2002, non era possibile aprirlo direttamente, adesso
basta lanciarlo e si apre, mostrando tranquillamente tabelle e dati
riservati.
Come si può gestire questo tipo di  sicurezza con Access 2010?
Grazie Ulderico.


title: Sicurezza con Access 2010

author: BFS

text:

credo di aver letto che convertendo un db in access 2010 la protezione a
livello utente venga rimossa.
google di sicuro ti aiuta
ciao
BFS


title: Sicurezza con Access 2010

text:

Già dalla versione 2007 la gestione del File MDW non è più usata.
Leggi questo:
https://groups.google.com/group/microsoft.public.it.office.access/browse_thread/thread/ebb039467798806a/3b0b166fee1c0c72?hl=it&lnk=gst&q=sicurezza+utente+A2007#3b0b166fee1c0c72
@Alex


title: Sicurezza con Access 2010

text:
On 21 Mar, 14:48, "@Alex" <
ik2...@libero.it
> wrote:
> On 19 Mar, 15:54, ulderico <
ulderico.dannib...@tiscali.it
> wrote:
>
>
>
>
>
> > Buongiorno,
>
> > Avendo la necessità di non rendere pubblico un file access che
> > contiene dati personali, ma dovendo al tempo stesso renderlo
> > disponibile ad un gruppo di persone autorizzate, abbiamo messo in
> > rete
> > il file MDB di access 2002, che però può essere aperto solo con il
> > comando seguente (già convertito per l'uso con access2010):
> > "C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" D:\per
> > \giper_xp\XP/WRKGP d:\per\giper_xp\xp_per10.mdw
>
> > Il comando funziona e fino a qui nessun problema.   Ma, mentre nella
> > versione Access 2002, non era possibile aprirlo direttamente, adesso
> > basta lanciarlo e si apre, mostrando tranquillamente tabelle e dati
> > riservati.
>
> > Come si può gestire questo tipo di  sicurezza con Access 2010?
>
> > Grazie Ulderico.
>
> Già dalla versione 2007 la gestione del File MDW non è più usata.
>
> Leggi questo:
https://groups.google.com/group/microsoft.public.it.office.access/bro.
..
>
> @Alex- Nascondi testo citato
>
> - Mostra testo citato -
GRAZIE per le risposte


title: Sicurezza con Access 2010

author: leblanc

text:

Ciao Ulderico,
non so se hai ricevuto la mia nota  postata due giorni fa perchè non
la vedo nelle risposte al tuo quesito.
Comunque la riepilogo.
Ho avuto lo stesso tuo problema ma io avevo già implementato
nell'applicazione una gestione utenti, come suggerito da  @Alex in
altri posts.
Nel convertire la mia applicazione in access 2010 ho aggiunto nell'
evento load della maschera di startup la seguente istruzione:
Dim MySystemDbase As String
MySystemDbase = SysCmd(acSysCmdGetWorkgroupFile)
If Right(MySystemDbase, 12) <> "Security.mdw" Then
    MsgBox ("You are not allowed to open this application, Please use
proper application")
    DoCmd.Quit
End If
tale istruzione restituisce il percorso completo del file system, ne
estrae solo il nome e lo confronta con il nome del mio file
system(security.mdw).
Se il nome non è lo stesso, lancia il messaggio che la persona non è
abilitata ad aprire l'applicazione e chiude la stessa.
Se il nome è lo stesso,  confronto il nome utente usando l'istruzione
CurrentUser, con l'uleriore lista degli utenti implementata e se
l'utente non è l'amministratore di sistema lancio le seguenti
istruzioni:
       SetProperties "AllowBypassKey", dbBoolean, False
       SetProperties "AllowFullMenus", dbBoolean, False
       SetProperties "AllowBuiltInToolbars", dbBoolean, False
       SetProperties "StartUpShowDBWindow", dbBoolean, False
che disabilitano il menu, di access, i tasti speciali e quanto non
necessario al normale utente.
In Access 2010 se l'applicazione viene lanciata senza far riferimento
ad un file system, niente è cambiato. Il percorso restituito sarà
quello di default (system.mdw) che non esiste più e il CurrentUser
sarà Admin che non è presente nella mia list di utenti abilitati.
Spero di essere stato chiaro e di aver contribuito a risolvere parte
del tuo problema
Saluti


author: Piero

text:
ciao a tutti
su scricamento di una maschera ho inserito:

    If Not IsNull(Forms![MieOrdini]![ordini_a_Fornitori].IDOrdine) Then
        Forms![MieOrdini].SetFocus
        Forms![MieOrdini]![ordini_a_Fornitori].SetFocus
        DoCmd.GoToRecord , , acFirst
    End If

per passare dopo la chiusura della maschera al primo record della
sottomaschera
"ordini_a_Fornitori" (già aperta)

Ma ho l'errore
proprietà o metodo non supportati dall'oggetto

Come posso risolvere?
Grazie


title: proprietà o metodo non supportati dall'oggetto

author: Marco Pizzamiglio

text:
Piero ha scritto:

E' sbagliata la sintassi per il riferimento alla sottomaschera.
Vedi
http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm

4.2   Riferimento ad una sottomaschera/sottoreport
Ciao.
-Marco-

--

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


text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:kp6u69$618$1...@news.newsland.it...

grazie Marco


title: Host

author: CarloCanza

text:
Come si può ottenere il nome dell'host che sta utilizzando un certo database
in una intranet con diversi sistemi operativi Windows ???


title: Host

author: Sergio MAZZA

text:
"CarloCanza" <
carlo...@tiscali.it
> ha scritto nel messaggio
news:bapq0p$9qh$2...@lacerta.tiscalinet.it...
> Come si può ottenere il nome dell'host che sta utilizzando un certo
database
> in una intranet con diversi sistemi operativi Windows ???
>
Se ricordo bene nel file ldb c'è scritto...
Ciao.
--
Sergio MAZZA


title: Host

author: George

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:baq64b$dd9$1...@canarie.caspur.it...

Altrimenti c'è un'API specifica...


title: Problema file sito comune

author: Ilario

text:
Ciao
ho prelevato dal SC il file per il controllo del numero seriale del HD, ma
non riesco a aprirlo, il messaggio di errore parla di autorizzazioni che non
posseggo.
Come risolvo?
Grazie
Ilario


title: Query: espressione

author: GaRom

text:
A97
Un saluto a tutti
In una query con la seguente situazione:
DataReg    Quant
13/01            20
14/01            30
03/02            12
04/02            10
Vorrei creare un campo calcolato che raggruppasse per mese facendo la somma
del campo Quant.
In sostanza vorrei ottenere:
Genn        50
Febb        22
Ringrazio in anticipo chiunque vorrà aiutarmi
Saluti
  Gabriele


title: Query: espressione

author: Roberto da casa

text:
"GaRom" <
garo...@virgilio.it
> ha scritto nel messaggio
news:Xq11c.2720$36.6...@news4.tin.it...

Se la tabella che contiene i dati si chiama Tabella1 ed ha un astruttura
simile a questa:
ID                   Contatore e chiave primaria
DataReg          Data/ora
Quant              Numerico
ecc. ecc.
Creati una query di raggruppamento che abbia il seguente codice SQL:
SELECT Format([DataReg],"yyyy mmm") AS AnnoMese, Sum(Tabella1.Quant) AS
SommaDiQuant
FROM Tabella1
GROUP BY Format([DataReg],"yyyymm"), Format([DataReg],"yyyy mmm");
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Access 2016 - cambiare nome al file allegato alla mail con sendobject

author: mario rossi

text:
mi spiego meglio,

con il comando
DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
genero un file pdf in c:\fatture\001_2019.pdf

poi con il comando
DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True

invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report

----------------
la mia domanda è
----------------
si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?

grazie a tutti.


text:
Domanda molto strana...
Il file che alleghi deve esistere quello che inserisci è il Path del file che verrà passato alla codifica MIME.
Quindi certo che puoi cambiare nome, ma non alla variabile, ma direttamente al file prima di inviarlo ovviamente.

@Alex


author: Karl Donaubauer

text:
Mario Rossi ha scritto:
>
> con il comando
> DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
> genero un file pdf in c:\fatture\001_2019.pdf
>
> poi con il comando
> DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
>
> invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
>
> si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?

Il tuo codice non manda come allegato il file che salvi ma direttamente
il report di Access. Non è possibile di mandare un file salvato con
SendObject. Dovresti usare un codice diverso di automazione di Outlook o
diversi altri metodi di mandare e-mail.

Se invece vuoi solo cambiare il nome del file allegato basta cambiare la
proprietà Caption del report, p.e.

Dim strRptName As String, strPDFName As String

strRptName = "Fattura"
strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"

DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.Close acReport, strRptName, acSaveYes

DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
Oggetto, Testo, True

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:

chiarissimo grazie mille


text:

provato e funziona grazie ancora.


text:

mi è venuto un dubbio, se devo distribuire il file formato accde ce non prevede l'apertura in modalità struttura di un report per cambiarne la proprietà caption, esiste un altro modo per il file accde?

Grazie.


text:
Salve,

Mario Rossi ha scritto:
>>> Karl Donaubauer ha scritto:
>>>> ...
>>>> Se invece vuoi solo cambiare il nome del file allegato basta cambiare la
>>>> proprietà Caption del report, p.e.
>>>>
>>>> Dim strRptName As String, strPDFName As String
>>>>
>>>> strRptName = "Fattura"
>>>> strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
>>>>
>>>> DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
>>>> Reports(strRptName).Caption = strPDFName
>>>> DoCmd.Close acReport, strRptName, acSaveYes
>>>>
>>>> DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
>>>> Oggetto, Testo, True
>>
>> provato e funziona grazie ancora.
>
> mi è venuto un dubbio, se devo distribuire il file formato accde ce non prevede l'apertura in modalità struttura di un report per cambiarne la proprietà caption, esiste un altro modo per il file accde?
> ...

Usa la vis. anteprima di stampa invece di struttura:

...

DoCmd.OpenReport strRptName, acViewPreview, , , acHidden
Reports(strRptName).Caption = strPDFName

DoCmd.SendObject ...

DoCmd.Close acReport, strRptName, acSaveYes



text:

ok grazie.


text:

con acViewPreview non funziona mantiene nome report precedentemente creato


title: messaggio di errore se dati già inseriti

author: Alessia

text:
Buon pomeriggio a tutti, passo subito alla richiesta di aiuto:
nel solito programma di protocollo ho tra gli altri il campo DATA e PROT
Non so come fare per  evitare, magari con un messaggio di errore, che
vengano inseriti dei dati che abbiano la stessa data e lo stesso numero di
protocollo.
In modo da evitare, in fase di digitazione, che qualcuno sbagli anno
(sopratutto in questo periodo) e numerazione progressiva .
Esempio:
Nome Ditta         Data           Prot
Alessia            01/01/00        0001
Alessia            01/01/00        0001        (Errore esiste già il Prot
0001 con data 01/01/00)
Pippo              01/01/01        0001        Ok perchè la data è diversa
Alessia            01/01/01        0002        Ok perchè numero di Prot
diverso
Quindi
- Il campo Data può contenere la stessa data
- il campo Prot può contenere lo stesso Prot solo se data di anno precedente
- il campo PROT e DATA devono dare errore solo se entrambi già digitati.
Spero di essere stata abbastanza chiara.
Grazie tantissime.
Ale


text:
"Alessia" <
les...@altavista.it
> ha scritto nel messaggio
news:93cqgm$1rta$1...@half.spin.it...

Io ho fatto così:
ho inserito due caselle di controllo impostate a 0 (false), le ho chiamate
(nel tuo caso) numeroProtocolloCambiato e dataProtocolloCambiata;
nell'evento "su modifica" delle caselle di testo [Prot] e [data] imposto per
ognuna numeroProtocolloCambiato = -1 (o true) e per l'altra casella
dataProtocolloCambiata =-1. A questo punto nell'evento "prima di aggiornare"
della maschera, verifico lo stato delle caselle di controllo, se una delle
due è -1 (true) vuol dire che è comunque stato digitato qualcosa o il valore
è cambiato; quindi faccio una ricerca nella tabella per vedere se ci sono
già record con le stesse caratteristiche (numero e data); se sì, un bel
msgbox e un setfocus sul controllo che aveva la casella di controllo a true
invitando l'utente a modificare il valore inserito. Questo mi mette al
riparo da eventuali modifiche al numero e/o data di record già inseriti e
validati, e con record da inserire.
Ciao.


author: Antonio Biso

text:
Alessia <
les...@altavista.it
> wrote in message 93cqgm$1rta$1...@half.spin.it...

Per semplificare facciamo il caso che tu usi un pulsante che testa la
correttezza dei dati inseriti, altrimenti dovresti scrivere il codice che ti
dirò sugli eventi dopo aggiornamento di entrambi i controlli PROT e DATA
gestendo il caso di dati ancora non inseriti.
Sull'evento clic del pulsante fai:
dim app as variant
if isnull(PROT) or isnull(DATA) or PROT = "" or DATA = "" then
  msgbox "Ah ciccio, impizza tutti i dati e sveglite!!!"
else
  criterio = "[DATA] = '" & me.data & "' AND [PROT] = '" & me.prot & "'"
  app = Dlookup("[PROT]","tab_dati",criterio)
  if not isnull(app) then
     msgbox "Ma allora dormi! L'hai già impizzato questo!!!"
  else
     msgbox "Sicuramente ti hanno aiutato: va beh, 'namo avanti!"
  end if
end if
Antonio


text:
"Antonio Biso" > Per semplificare facciamo il caso che tu usi un pulsante
che testa la
> correttezza dei dati inseriti, altrimenti dovresti scrivere il codice che
ti
> dirņ sugli eventi dopo aggiornamento di entrambi i controlli PROT e DATA
> gestendo il caso di dati ancora non inseriti.
> Sull'evento clic del pulsante fai:
>
> dim app as variant
>
> if isnull(PROT) or isnull(DATA) or PROT = "" or DATA = "" then
>   msgbox "Ah ciccio, impizza tutti i dati e sveglite!!!"
> else
>   criterio = "[DATA] = '" & me.data & "' AND [PROT] = '" & me.prot & "'"
>   app = Dlookup("[PROT]","tab_dati",criterio)
>   if not isnull(app) then
>      msgbox "Ma allora dormi! L'hai gią impizzato questo!!!"
>   else
>      msgbox "Sicuramente ti hanno aiutato: va beh, 'namo avanti!"
>   end if
> end if
>
> Antonio
>
>
Grazie Grazie della dritta.
Mi sono piaciuti i tuoi msgbox, quasi quasi li lascio cosģ.
Ale


title: x pablitomf - somma su sottomaschera

author: Giuseppe

text:
Buonasera a tutto l'NG.
Prendendo spunto da un db "fatture" creato da Pablitomf, ho voluto
adottare nella mia sottomaschera fatture, la somma degli imponibili,
iva e totali per ogni articolo inserito oltre alla dicitura iva al 4%,
iva al 10% e così via.
A differenza del db  "fatture" il controllo descrizione nel mio caso è
una casella combinata con origine la tabella "tblarticoli" da dove
scelgo l'articolo oggetto della vendita; il controllo relativo
alll'iva è una casella combinata non con origine valori (come nel caso
del db "fatture") ma ha come origine una tabella (tbliva) con idiva 4
(numerico) e descrizione iva al 4%. I Controlli relativi alla quantità
e al prezzo unitario li ho chiamati "qta" e "prezzo".
Ho preso la sottomaschera del db "fatture" l'ho importata nel mio db e
ho collegato i campi master e secondari, ho modificato i nomi e
l'origine dei controlli/caselle combinate e nonostante i nomi sono
giusti se nella casella di testo dove riportare la dicitura "iva al
4%" se la percentuale iva è al 4% e se la somma è maggiore di 0 metto
=IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
esce #Errore; nelle caselle di testo dove riportare la somma degli
imponibile in base alla percentuale iva, ho messo
=IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
0))) e mi dà sempre #errore.
Perchè al db di Pablitomf funziona e a me no?
Pablitomf se ci sei batti un colpo.
Grazie in anticipo.


title: x pablitomf - somma su sottomaschera

author: Pablitomf (da casa)

text:
Giuseppe wrote:
> Buonasera a tutto l'NG.
> Prendendo spunto da un db "fatture" creato da Pablitomf, ho voluto
> adottare nella mia sottomaschera fatture, la somma degli imponibili,
> iva e totali per ogni articolo inserito oltre alla dicitura iva al 4%,
> iva al 10% e cos� via.
> A differenza del db  "fatture" il controllo descrizione nel mio caso �
> una casella combinata con origine la tabella "tblarticoli" da dove
> scelgo l'articolo oggetto della vendita; il controllo relativo
> alll'iva � una casella combinata non con origine valori (come nel caso
> del db "fatture") ma ha come origine una tabella (tbliva) con idiva 4
> (numerico) e descrizione iva al 4%. I Controlli relativi alla quantit�
> e al prezzo unitario li ho chiamati "qta" e "prezzo".
> Ho preso la sottomaschera del db "fatture" l'ho importata nel mio db e
> ho collegato i campi master e secondari, ho modificato i nomi e
> l'origine dei controlli/caselle combinate e nonostante i nomi sono
> giusti se nella casella di testo dove riportare la dicitura "iva al
> 4%" se la percentuale iva � al 4% e se la somma � maggiore di 0 metto
> =IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
> esce #Errore; nelle caselle di testo dove riportare la somma degli
> imponibile in base alla percentuale iva, ho messo
> =IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
> ="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
> 0))) e mi d� sempre #errore.
> Perch� al db di Pablitomf funziona e a me no?
> Pablitomf se ci sei batti un colpo.
> Grazie in anticipo.
Pablitomf c'� sempre... ;)
leggo:
>(tbliva) con idiva 4 (numerico) e descrizione iva al 4%
ma poi scrivi :
>IIf([idiva]="4"
ma � o non � un numero?... qundi IIF([idva]=4;....


title: x pablitomf - somma su sottomaschera

text:
On 3 Nov, 20:06, "Pablitomf \(da casa\)" <
pablit...@hotmail.it
> wrote:
> Giuseppe wrote:
> > Buonasera a tutto l'NG.
> > Prendendo spunto da un db "fatture" creato da Pablitomf, ho voluto
> > adottare nella mia sottomaschera fatture, la somma degli imponibili,
> > iva e totali per ogni articolo inserito oltre alla dicitura iva al 4%,
> > iva al 10% e così via.
> > A differenza del db  "fatture" il controllo descrizione nel mio caso è
> > una casella combinata con origine la tabella "tblarticoli" da dove
> > scelgo l'articolo oggetto della vendita; il controllo relativo
> > alll'iva è una casella combinata non con origine valori (come nel caso
> > del db "fatture") ma ha come origine una tabella (tbliva) con idiva 4
> > (numerico) e descrizione iva al 4%. I Controlli relativi alla quantità
> > e al prezzo unitario li ho chiamati "qta" e "prezzo".
> > Ho preso la sottomaschera del db "fatture" l'ho importata nel mio db e
> > ho collegato i campi master e secondari, ho modificato i nomi e
> > l'origine dei controlli/caselle combinate e nonostante i nomi sono
> > giusti se nella casella di testo dove riportare la dicitura "iva al
> > 4%" se la percentuale iva è al 4% e se la somma è maggiore di 0 metto
> > =IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
> > esce #Errore; nelle caselle di testo dove riportare la somma degli
> > imponibile in base alla percentuale iva, ho messo
> > =IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
> > ="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
> > 0))) e mi dà sempre #errore.
> > Perchè al db di Pablitomf funziona e a me no?
> > Pablitomf se ci sei batti un colpo.
> > Grazie in anticipo.
>
> Pablitomf c'è sempre... ;)
>
> leggo:
>
> >(tbliva) con idiva 4 (numerico) e descrizione iva al 4%
>
> ma poi scrivi :
>
> >IIf([idiva]="4"
>
> ma è o non è un numero?... qundi IIF([idva]=4;....
Ciao Pablito, grazie per la risposta.
Avevo già provato a togliere gli apici dal 4 ma non cambia niente. Il
problema esiste sulla formula Somma.
Mi spiego. Se metto    =IIf([idiva]=4;[prezzo]*[qta];0)  anzichè   =IIf
(Somma(IIf([idiva]=4;[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
restitiusce il valore della moltiplicazione tra qta e prezzo solo del
primo record. Quindi il criterio =4 è giusto, il nome dei due
controlli qta e prezzo sono giusti, il problema nasce nel far fare la
somma a tutti i record in cui l'IdIva è =4.
Attendo una tua risposta. Grazie.
Giuseppe.


title: x pablitomf - somma su sottomaschera

author: pablitomf

text:

ma se al posto di tutta la formula, giusto per fare una prova, metti
=Somma([prezzo]), la somma ti esce?


title: x pablitomf - somma su sottomaschera

text:

No, non me lo fa. Mi da sempre #errore.
Ciao.


title: x pablitomf - somma su sottomaschera

text:

mhhh... e se metti =Sum([prezzo])
????


title: x pablitomf - somma su sottomaschera

text:

Appena nella finestra delle proprietà cambio la formula da =Somma
([prezzo[) a =Sum([prezzo]) me la ricambia con =Somma([prezzo[)
Ciao.


title: x pablitomf - somma su sottomaschera

author: Antonio

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:62cb9e03-75c3-4a2e...@37g2000yqm.googlegroups.com...
On 4 Nov, 09:54, pablitomf <
pablit...@virgilio.it
> wrote:
> On 4 Nov, 09:38, Giuseppe <
gcardas...@tin.it
> wrote:
>
>
>
> > On 4 Nov, 09:24, pablitomf <
pablit...@virgilio.it
> wrote:
>
> > > On 4 Nov, 08:52, Giuseppe <
gcardas...@tin.it
> wrote:
>
> > > > On 3 Nov, 20:06, "Pablitomf \(da casa\)" <
pablit...@hotmail.it
>
> > > > wrote:
>
> > > > > Giuseppe wrote:
> > > > > > Buonasera a tutto l'NG.
> > > > > > Prendendo spunto da un db "fatture" creato da Pablitomf, ho
> > > > > > voluto
> > > > > > adottare nella mia sottomaschera fatture, la somma degli
> > > > > > imponibili,
> > > > > > iva e totali per ogni articolo inserito oltre alla dicitura iva
> > > > > > al 4%,
> > > > > > iva al 10% e cos� via.
> > > > > > A differenza del db "fatture" il controllo descrizione nel mio
> > > > > > caso �
> > > > > > una casella combinata con origine la tabella "tblarticoli" da
> > > > > > dove
> > > > > > scelgo l'articolo oggetto della vendita; il controllo relativo
> > > > > > alll'iva � una casella combinata non con origine valori (come
> > > > > > nel caso
> > > > > > del db "fatture") ma ha come origine una tabella (tbliva) con
> > > > > > idiva 4
> > > > > > (numerico) e descrizione iva al 4%. I Controlli relativi alla
> > > > > > quantit�
> > > > > > e al prezzo unitario li ho chiamati "qta" e "prezzo".
> > > > > > Ho preso la sottomaschera del db "fatture" l'ho importata nel
> > > > > > mio db e
> > > > > > ho collegato i campi master e secondari, ho modificato i nomi e
> > > > > > l'origine dei controlli/caselle combinate e nonostante i nomi
> > > > > > sono
> > > > > > giusti se nella casella di testo dove riportare la dicitura "iva
> > > > > > al
> > > > > > 4%" se la percentuale iva � al 4% e se la somma � maggiore di 0
> > > > > > metto
> > > > > > =IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"")
> > > > > > mi
> > > > > > esce #Errore; nelle caselle di testo dove riportare la somma
> > > > > > degli
> > > > > > imponibile in base alla percentuale iva, ho messo
> > > > > > =IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
> > > > > > ="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
> > > > > > 0))) e mi d� sempre #errore.
> > > > > > Perch� al db di Pablitomf funziona e a me no?
> > > > > > Pablitomf se ci sei batti un colpo.
> > > > > > Grazie in anticipo.
>
> > > > > Pablitomf c'� sempre... ;)
>
> > > > > leggo:
>
> > > > > >(tbliva) con idiva 4 (numerico) e descrizione iva al 4%
>
> > > > > ma poi scrivi :
>
> > > > > >IIf([idiva]="4"
>
> > > > > ma � o non � un numero?... qundi IIF([idva]=4;....
>
> > > > Ciao Pablito, grazie per la risposta.
> > > > Avevo gi� provato a togliere gli apici dal 4 ma non cambia niente.
> > > > Il
> > > > problema esiste sulla formula Somma.
> > > > Mi spiego. Se metto =IIf([idiva]=4;[prezzo]*[qta];0) anzich� =IIf
> > > > (Somma(IIf([idiva]=4;[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
> > > > restitiusce il valore della moltiplicazione tra qta e prezzo solo
> > > > del
> > > > primo record. Quindi il criterio =4 � giusto, il nome dei due
> > > > controlli qta e prezzo sono giusti, il problema nasce nel far fare
> > > > la
> > > > somma a tutti i record in cui l'IdIva � =4.
> > > > Attendo una tua risposta. Grazie.
> > > > Giuseppe.
>
> > > ma se al posto di tutta la formula, giusto per fare una prova, metti
> > > =Somma([prezzo]), la somma ti esce?
>
> > No, non me lo fa. Mi da sempre #errore.
> > Ciao.
>
> mhhh... e se metti =Sum([prezzo])
> ????
Appena nella finestra delle propriet� cambio la formula da =Somma
([prezzo[) a =Sum([prezzo]) me la ricambia con =Somma([prezzo[)
Ciao.
Non sar� prezzo ad essere in errore ? e poi, quella formula, � in un
controllo a pi� di pagina ?


title: x pablitomf - somma su sottomaschera

text:
On 4 Nov, 10:05, "Antonio" <
antonewsgr...@tiscali.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:62cb9e03-75c3-4a2e...@37g2000yqm.googlegroups.com...
> On 4 Nov, 09:54, pablitomf <
pablit...@virgilio.it
> wrote:
>
>
>
> > On 4 Nov, 09:38, Giuseppe <
gcardas...@tin.it
> wrote:
>
> > > On 4 Nov, 09:24, pablitomf <
pablit...@virgilio.it
> wrote:
>
> > > > On 4 Nov, 08:52, Giuseppe <
gcardas...@tin.it
> wrote:
>
> > > > > On 3 Nov, 20:06, "Pablitomf \(da casa\)" <
pablit...@hotmail.it
>
> > > > > wrote:
>
> > > > > > Giuseppe wrote:
> > > > > > > Buonasera a tutto l'NG.
> > > > > > > Prendendo spunto da un db "fatture" creato da Pablitomf, ho
> > > > > > > voluto
> > > > > > > adottare nella mia sottomaschera fatture, la somma degli
> > > > > > > imponibili,
> > > > > > > iva e totali per ogni articolo inserito oltre alla dicitura iva
> > > > > > > al 4%,
> > > > > > > iva al 10% e così via.
> > > > > > > A differenza del db "fatture" il controllo descrizione nel mio
> > > > > > > caso è
> > > > > > > una casella combinata con origine la tabella "tblarticoli" da
> > > > > > > dove
> > > > > > > scelgo l'articolo oggetto della vendita; il controllo relativo
> > > > > > > alll'iva è una casella combinata non con origine valori (come
> > > > > > > nel caso
> > > > > > > del db "fatture") ma ha come origine una tabella (tbliva) con
> > > > > > > idiva 4
> > > > > > > (numerico) e descrizione iva al 4%. I Controlli relativi alla
> > > > > > > quantità
> > > > > > > e al prezzo unitario li ho chiamati "qta" e "prezzo".
> > > > > > > Ho preso la sottomaschera del db "fatture" l'ho importata nel
> > > > > > > mio db e
> > > > > > > ho collegato i campi master e secondari, ho modificato i nomi e
> > > > > > > l'origine dei controlli/caselle combinate e nonostante i nomi
> > > > > > > sono
> > > > > > > giusti se nella casella di testo dove riportare la dicitura "iva
> > > > > > > al
> > > > > > > 4%" se la percentuale iva è al 4% e se la somma è maggiore di 0
> > > > > > > metto
> > > > > > > =IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"")
> > > > > > > mi
> > > > > > > esce #Errore; nelle caselle di testo dove riportare la somma
> > > > > > > degli
> > > > > > > imponibile in base alla percentuale iva, ho messo
> > > > > > > =IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
> > > > > > > ="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
> > > > > > > 0))) e mi dà sempre #errore.
> > > > > > > Perchè al db di Pablitomf funziona e a me no?
> > > > > > > Pablitomf se ci sei batti un colpo.
> > > > > > > Grazie in anticipo.
>
> > > > > > Pablitomf c'è sempre... ;)
>
> > > > > > leggo:
>
> > > > > > >(tbliva) con idiva 4 (numerico) e descrizione iva al 4%
>
> > > > > > ma poi scrivi :
>
> > > > > > >IIf([idiva]="4"
>
> > > > > > ma è o non è un numero?... qundi IIF([idva]=4;....
>
> > > > > Ciao Pablito, grazie per la risposta.
> > > > > Avevo già provato a togliere gli apici dal 4 ma non cambia niente.
> > > > > Il
> > > > > problema esiste sulla formula Somma.
> > > > > Mi spiego. Se metto =IIf([idiva]=4;[prezzo]*[qta];0) anzichè =IIf
> > > > > (Somma(IIf([idiva]=4;[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
> > > > > restitiusce il valore della moltiplicazione tra qta e prezzo solo
> > > > > del
> > > > > primo record. Quindi il criterio =4 è giusto, il nome dei due
> > > > > controlli qta e prezzo sono giusti, il problema nasce nel far fare
> > > > > la
> > > > > somma a tutti i record in cui l'IdIva è =4.
> > > > > Attendo una tua risposta. Grazie.
> > > > > Giuseppe.
>
> > > > ma se al posto di tutta la formula, giusto per fare una prova, metti
> > > > =Somma([prezzo]), la somma ti esce?
>
> > > No, non me lo fa. Mi da sempre #errore.
> > > Ciao.
>
> > mhhh... e se metti =Sum([prezzo])
> > ????
>
> Appena nella finestra delle proprietà cambio la formula da =Somma
> ([prezzo[) a =Sum([prezzo]) me la ricambia con =Somma([prezzo[)
> Ciao.
>
> Non sarà prezzo ad essere in errore ? e poi, quella formula, è in un
> controllo a piè di pagina ?
Sto facendo una nuova fattura e ho duplicato quella del mese scorso.
Tutti gli articoli presenti hanno già il prezzo di vendita ma non la
quantità e la percentuale iva.
In questo modo la formula =Somma([prezzo]) me la fa e non mi dà
errore.
Ciao.


title: x pablitomf - somma su sottomaschera

text:
On 4 Nov, 10:05, "Antonio" <
antonewsgr...@tiscali.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:62cb9e03-75c3-4a2e...@37g2000yqm.googlegroups.com...
> On 4 Nov, 09:54, pablitomf <
pablit...@virgilio.it
> wrote:
>
>
>
> > On 4 Nov, 09:38, Giuseppe <
gcardas...@tin.it
> wrote:
>
> > > On 4 Nov, 09:24, pablitomf <
pablit...@virgilio.it
> wrote:
>
> > > > On 4 Nov, 08:52, Giuseppe <
gcardas...@tin.it
> wrote:
>
> > > > > On 3 Nov, 20:06, "Pablitomf \(da casa\)" <
pablit...@hotmail.it
>
> > > > > wrote:
>
> > > > > > Giuseppe wrote:
> > > > > > > Buonasera a tutto l'NG.
> > > > > > > Prendendo spunto da un db "fatture" creato da Pablitomf, ho
> > > > > > > voluto
> > > > > > > adottare nella mia sottomaschera fatture, la somma degli
> > > > > > > imponibili,
> > > > > > > iva e totali per ogni articolo inserito oltre alla dicitura iva
> > > > > > > al 4%,
> > > > > > > iva al 10% e così via.
> > > > > > > A differenza del db "fatture" il controllo descrizione nel mio
> > > > > > > caso è
> > > > > > > una casella combinata con origine la tabella "tblarticoli" da
> > > > > > > dove
> > > > > > > scelgo l'articolo oggetto della vendita; il controllo relativo
> > > > > > > alll'iva è una casella combinata non con origine valori (come
> > > > > > > nel caso
> > > > > > > del db "fatture") ma ha come origine una tabella (tbliva) con
> > > > > > > idiva 4
> > > > > > > (numerico) e descrizione iva al 4%. I Controlli relativi alla
> > > > > > > quantità
> > > > > > > e al prezzo unitario li ho chiamati "qta" e "prezzo".
> > > > > > > Ho preso la sottomaschera del db "fatture" l'ho importata nel
> > > > > > > mio db e
> > > > > > > ho collegato i campi master e secondari, ho modificato i nomi e
> > > > > > > l'origine dei controlli/caselle combinate e nonostante i nomi
> > > > > > > sono
> > > > > > > giusti se nella casella di testo dove riportare la dicitura "iva
> > > > > > > al
> > > > > > > 4%" se la percentuale iva è al 4% e se la somma è maggiore di 0
> > > > > > > metto
> > > > > > > =IIf(Somma(IIf([idiva]="4";[prezzo]*[qta];0))>0;"Iva al 4%";"")
> > > > > > > mi
> > > > > > > esce #Errore; nelle caselle di testo dove riportare la somma
> > > > > > > degli
> > > > > > > imponibile in base alla percentuale iva, ho messo
> > > > > > > =IIf([Maschere]![frmFatture]![idTipodocumento]=2;Somma(IIf([idiva]
> > > > > > > ="4";-4*([prezzo]*[qta]);0));Somma(IIf([idiva]="4";([prezzo]*[qta]);
> > > > > > > 0))) e mi dà sempre #errore.
> > > > > > > Perchè al db di Pablitomf funziona e a me no?
> > > > > > > Pablitomf se ci sei batti un colpo.
> > > > > > > Grazie in anticipo.
>
> > > > > > Pablitomf c'è sempre... ;)
>
> > > > > > leggo:
>
> > > > > > >(tbliva) con idiva 4 (numerico) e descrizione iva al 4%
>
> > > > > > ma poi scrivi :
>
> > > > > > >IIf([idiva]="4"
>
> > > > > > ma è o non è un numero?... qundi IIF([idva]=4;....
>
> > > > > Ciao Pablito, grazie per la risposta.
> > > > > Avevo già provato a togliere gli apici dal 4 ma non cambia niente.
> > > > > Il
> > > > > problema esiste sulla formula Somma.
> > > > > Mi spiego. Se metto =IIf([idiva]=4;[prezzo]*[qta];0) anzichè =IIf
> > > > > (Somma(IIf([idiva]=4;[prezzo]*[qta];0))>0;"Iva al 4%";"") mi
> > > > > restitiusce il valore della moltiplicazione tra qta e prezzo solo
> > > > > del
> > > > > primo record. Quindi il criterio =4 è giusto, il nome dei due
> > > > > controlli qta e prezzo sono giusti, il problema nasce nel far fare
> > > > > la
> > > > > somma a tutti i record in cui l'IdIva è =4.
> > > > > Attendo una tua risposta. Grazie.
> > > > > Giuseppe.
>
> > > > ma se al posto di tutta la formula, giusto per fare una prova, metti
> > > > =Somma([prezzo]), la somma ti esce?
>
> > > No, non me lo fa. Mi da sempre #errore.
> > > Ciao.
>
> > mhhh... e se metti =Sum([prezzo])
> > ????
>
> Appena nella finestra delle proprietà cambio la formula da =Somma
> ([prezzo[) a =Sum([prezzo]) me la ricambia con =Somma([prezzo[)
> Ciao.
>
> Non sarà prezzo ad essere in errore ? e poi, quella formula, è in un
> controllo a piè di pagina ?
Il nome del controllo prezzo è giusto e la formula si trova in un
controllo a piè di pagina maschera.
Ciao Antonio.


title: x pablitomf - somma su sottomaschera

text:

il sistema è giusto... ma i dati riscontrano un null da qualche parte
e quindi la formula va in errore... inviami il DB...e vediamo qual'è
il problema.


title: x pablitomf - somma su sottomaschera

text:

inviato.
Ciao.


title: x pablitomf - somma su sottomaschera

text:

Ecco fatto...
Ho la netta sensazione che tu non abbia compreso quel demo...
in quanto DEMO ha il solo scopo di illustrare funzionamenti banali...
ma se vuoi esportarlo nel tuo DB devi adattarlo alle regole che ti sei
posto tu, tralasciando quelle insite nel DEMO stesso...
Es.
Non puoi continuare a tenere una formula che inizia con:
=IIf(Maschere!Fatture!Tipo="2"
quando dovrebbe essere
=IIf(Maschere!frmFatture!idTipodocumento=2
perchè la tua maschera padre si chiama "frmFatture" ( e non Fatture
come nel DEMO ), il tuo campo si chiama "idTipodocumento" ( e non Tipo
come nel DEMO ) e il tuo valore è 2 (e non "2" come nel DEMO)...
se non modifichi tutti i riferimenti, basta che 1 solo sia sbagliato,
tutte le formule ti andranno in errore...


title: x pablitomf - somma su sottomaschera

text:

poi ancora...
hai lasciato il campo associato IDFatt quando tu un campo IDFatt
(diversamente dal DEMO) non lo hai...


title: x pablitomf - somma su sottomaschera

text:

Ciao Pablito.
Quello che dici tu è giustissimo ed io così ho fatto. Ma l'ho fatto
solo per la prima riga di totali anzi per l'imponibile della prima
riga (dover per te era al 20% io io l'ho fatto al 4%).
Le altre tre righe le ho lasciate com'erano , ma sapevo che andavano
modificate.
Nella prima invece, come mi avevi detto, ho provato a mettere la
formula =Somma([presso]) che non funzionava e quella ho lasciato.
Per quanto riguarda il campo associato IDFatt che per me è invece è
solo ID (comune sia alla tabella fattura che alla tabella
sottomascherarighefattura) effettivamente l'avevo cambiato ma mettendo
al posto del tuo ID (numero riga).
Ora ho cambiato l'origine e il nome sia all'ID che al numrig ma
continua a non andare bene.
A me sembra che il piè di pagina lavori solo sulla riga del corpo
selezionata e non nel suo insieme di righe relative alla fattura
visualizzata.
Tu hai provato a cambiare e ha funzionato?
Fammi sapere cosa devo fare.
Ciao e ancora grazie.
Giuseppe.


title: x pablitomf - somma su sottomaschera

text:

certo che funziona... l'ho modificato e va tranquillamente...
io te lo posso pure reinviare, ma sono certo che se non guardi la
differenza tra quel che hai fatto tu, e quel che ho fatto io (cioè
quello che ho suggerito) sarà solo un lavoro che non ti porterà valore
aggiunto...
te lo invio...


title: x pablitomf - somma su sottomaschera

text:

anzi, tiè, scaricatelo...
http://85.44.230.157/Maurizio/nuovo.rar
riallega le tabelle... ci sono solo le 2 form incriminate.
ciao


title: x pablitomf - somma su sottomaschera

text:

> anzi, tiè, scaricatelo...
http://85.44.230.157/Maurizio/nuovo.rar
>
> riallega le tabelle... ci sono solo le 2 form incriminate.
> ciao
Pablito ti ringrazio per tutta la disponibilità.
E' mio interesse non utilizzare direttamente gli esempi o i db degli
altri o modificati come in questo caso, ma cercare di capire e
imparare.
Ed è quello che farò certamente non appena importerò le due maschere
nel mio db e le confronterò con quelle vecchie.
Ciao Pablito.
Giuseppe.


title: A proposito di una data

author: elio

text:
Un saluto a tutti i frequentatori del Ng.
Supponiamo di avere in un campo una data in formato "gg/mm/aaaa" esiste una
qualche funzione che mi restituisca i mesi (inteso come mese solare)
mancanti alla fine dell'anno, mi spiego meglio con qualche esempio:
Supp. di avere
20/10/1999 --->deve restituirmi  3 (mese solare)
30/09/2000 --->deve restituirmi  4
10/12/2001 ---> deve restituirmi 1
Su excel esiste la funzione Data.diff (data_iniziale, data_finale,
"parametro"), dove parametro permette di impostare come effettuare la
differenza, su access esiste una funzione analoga?


title: A proposito di una data

text:
elio <el...@NOSPAMlibero.it> wrote in message
piKX6.6934$x_3.2...@news.infostrada.it...

13 - month(tuaData)
Antonio


title: A proposito di una data

author: Silvio Berruti

text:
"elio" <el...@NOSPAMlibero.it> ha scritto nel messaggio
news:piKX6.6934$x_3.2...@news.infostrada.it...

Con poca fantasia si chiama:
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
vedere help x dettagli
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Errore su estrapolazione dati da recordset (per guru!)

author: vuLCan Karayan

text:
Ciao a tutti.
L'intento è quello di aggiungere dei record ad una tabella esistente sulla
base del valore di un campo boolean.
Se il campo boolean è si, viene creato uno o due record e aggiunto/i alla
medesima tabella.
Ecco il codice che ho scritto:
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++
Dim rsFinale As DAO.Recordset
Set rsFinale = CurrentDb.OpenRecordset("SELECT * FROM
TabECI_EstrattoContoFinaleDalAl")
'Popolo il recordset
rsFinale.MoveLast
rsFinale.MoveFirst
Dim intMovimenti As Integer
Dim intNumeroOrdine As Integer
Dim CodiceDistinta
Dim curMaggiorazioni As Currency
Dim curSpeseLegali As Currency
intMovimenti = rsFinale.RecordCount
intContatore = 0
Dim bolD As Boolean
Dim bolV As Boolean
intNumeroOrdine = 1
    Do
           'Controlla che non si stia prendendo uno dei nuovi record creati
per
           'l'addebito di Maggiorazioni o SL :)
           If rsFinale.Fields("Maggiorazioni") = True Or
rsFinale.Fields("SpeseLegali") = True Then
              GoTo NuovoRecord
           End If
           If rsFinale.Fields("Distinta") = True Then
              bolD = True
              bolV = False
              With rsFinale
               .Edit
               !NumeroOrdine = intNumeroOrdine
               .Update
               .Bookmark = .LastModified
               End With
               intNumeroOrdine = intNumeroOrdine + 1
               intContatore = intContatore + 1
           End If
           If rsFinale.Fields("Versamento") = True Then
              bolD = False
              bolV = True
              With rsFinale
               .Edit
               !NumeroOrdine = intNumeroOrdine
               .Update
               .Bookmark = .LastModified
              End With
               intNumeroOrdine = intNumeroOrdine + 1
               intContatore = intContatore + 1
           End If
                    If bolD = True And bolV = False Then
                                CodiceDistinta = rsFinale!IDRiferimento
                                curMaggiorazioni = DLookup("CDDovuto",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                curSpeseLegali = DLookup("SLDovute",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                    'Ci sono
Maggiorazioni?--------------------------------------------------------------
-----------
                                    If curMaggiorazioni > 0 Then
                                       Dim datDataMagg As Date
                                       datDataMagg =
DLookup("CDDataAddebito", "TabECI_DistinteImpresa", "[IDRecord] = " &
CodiceDistinta)
                                       intMese = DLookup("Mese",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                       intAnno = DLookup("Anno",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                       strDescrizione = "Addebitate
maggiorazioni per la distinta di " & intMese & " " & intAnno
                                          With rsFinale
                                               .AddNew
                                               !NumeroOrdine =
intNumeroOrdine
                                               !Data = datDataMagg
                                               !Descrizione = strDescrizione
                                               !Dare = curMaggiorazioni
                                               !Avere = 0
                                               !Distinta = False
                                               !Versamento = False
                                               !Maggiorazioni = True
                                               !SpeseLegali = False
                                               !IDRiferimento =
CodiceDistinta
                                               .Update
                                               .Bookmark = .LastModified
                                          End With
                                               intNumeroOrdine =
intNumeroOrdine + 1 'Aggiorno subito!
                                    End If
                                    ----------------------------------------
------------------------------------------------------
                                    'Ci sono Spese legali?
                                    If curSpeseLegali > 0 Then
                                       Dim datDataSL As Date
                                       datDataSL = DLookup("SLDataAddebito",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                       intMese = DLookup("Mese",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                       intAnno = DLookup("Anno",
"TabECI_DistinteImpresa", "[IDRecord] = " & CodiceDistinta)
                                       strDescrizione = "Addebitate Spese
Legali per la distinta di " & intMese & " " & intAnno
                                          With rsFinale
                                               .AddNew
                                               !NumeroOrdine =
intNumeroOrdine
                                               !Data = datDataMagg
                                               !Descrizione = strDescrizione
                                               !Dare = curMaggiorazioni
                                               !Avere = 0
                                               !Distinta = False
                                               !Versamento = False
                                               !Maggiorazioni = False
                                               !SpeseLegali = True
                                               !IDRiferimento =
CodiceDistinta
                                               .Update
                                               .Bookmark = .LastModified
                                          End With
                                               intNumeroOrdine =
intNumeroOrdine + 1 'Aggiorno Subito
                                    End If
                                    ----------------------------------------
------------------------------------------------------
                    End If
NuovoRecord:
      rsFinale.MoveNext
      Loop Until intContatore = intMovimenti
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++
Non dovrebbero esserci errori di sintassi perchè al primo "giro" funziona
tutto alla perfezione.
Evidentemente c'è qualcosa che non va dopo il MoveNext, infatti, al momento
di effettuare (ripeto, al secondo ciclo perchè il primo va benissimo!) il
controllo
If rsFinale.Fields("Maggiorazioni") = True Or rsFinale.Fields("SpeseLegali")
= True Then
(Il primo della routine) viene generato un errore.
Dove sto sbagliando?
Ciao
vuLCan


text:
OE come al solito taglia le righe!
Se avete difficoltà nella lettura, ecco il TXT:
http://vulcankarayan.altervista.org/Access01.txt
Ciao


author: Potone

text:
"vuLCan Karayan" <
vulcankara...@tiscali.it
> ha scritto nel messaggio
news:Crfpe.1504639$35.56...@news4.tin.it...
> Ciao a tutti.
> L'intento è quello di aggiungere dei record ad una tabella esistente sulla
> base del valore di un campo boolean.
> Se il campo boolean è si, viene creato uno o due record e aggiunto/i alla
> medesima tabella.
> Ecco il codice che ho scritto:
[cut]
>
> Non dovrebbero esserci errori di sintassi perchè al primo "giro" funziona
> tutto alla perfezione.
> Evidentemente c'è qualcosa che non va dopo il MoveNext, infatti, al
momento
> di effettuare (ripeto, al secondo ciclo perchè il primo va benissimo!) il
> controllo
> If rsFinale.Fields("Maggiorazioni") = True Or
rsFinale.Fields("SpeseLegali")
> = True Then
> (Il primo della routine) viene generato un errore.
>
> Dove sto sbagliando?
>
> Ciao
>
> vuLCan
>
ciao,
se l'errore è EOF (riferito al recordset rsFinale) probabilmente è dovuto al
fatto che durante il ciclo aggiungi record con .addnew (il record viene
aggiunto in coda), alla fine spostandoti in avanti con .movenext vai oltre
la fine del recordset causando l'errore tentando di leggere con la if...
Potresti tener traccia del bookmark del record corrente all'inizio di ogni
ciclo e ripristinarlo prima di fare il .movenext
Penso sia comunque buona norma testare la proprietà EOF del recordset prima
di accedervi per leggere o scrivere.
Ciao,
Mat.


author: ALESSANDRO Baraldi

text:
[CUT]
> Non dovrebbero esserci errori di sintassi perchè al primo "giro" funziona
> tutto alla perfezione.
> Evidentemente c'è qualcosa che non va dopo il MoveNext, infatti, al
momento
> di effettuare (ripeto, al secondo ciclo perchè il primo va benissimo!) il
> controllo
> If rsFinale.Fields("Maggiorazioni") = True Or
rsFinale.Fields("SpeseLegali")
> = True Then
> (Il primo della routine) viene generato un errore.
>
> Dove sto sbagliando?
>
> Ciao
>
> vuLCan
Consiglio:
1)
Cicli nel modo meno indicato il Recordst.
Non serve sapere quanti Records hai ti basta una cosa del genere:
rs.MoveFirst
Do until rs.Eof
    '......... Quì metti tutto il tuo CODICE
    rs.MoveNext
Loop
2)Non usare quel marasma di Dlookup, per estrarre alla fine
   i campi di un singolo Record, creati un Recordset ed usa quello
    guadagni 10 volte in velocità d'esecuzione.
ANOMALIA:
A parte questo l'errore che mi pare di aver visto è l'aggiornamento del
Bookmark
nel ciclo, che non deve essere fatto assolutamente in quel punto altrimenti
sposta il
puntatore sull'ultimo Records e non ne trova più....!!!!
Toglilo e dovrebbe andare.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
> ciao,
> se l'errore è EOF (riferito al recordset rsFinale) probabilmente è dovuto
al
> fatto che durante il ciclo aggiungi record con .addnew (il record viene
> aggiunto in coda), alla fine spostandoti in avanti con .movenext vai oltre
> la fine del recordset causando l'errore tentando di leggere con la if...
> Potresti tener traccia del bookmark del record corrente all'inizio di ogni
> ciclo e ripristinarlo prima di fare il .movenext
> Penso sia comunque buona norma testare la proprietà EOF del recordset
prima
> di accedervi per leggere o scrivere.
> Ciao,
> Mat.
Esattamente.
L'errore era nel .bookmark! :)
Grazie.


text:
> 1)
> Cicli nel modo meno indicato il Recordst.
>
> Non serve sapere quanti Records hai ti basta una cosa del genere:
>
> rs.MoveFirst
> Do until rs.Eof
>     '......... Quì metti tutto il tuo CODICE
>     rs.MoveNext
> Loop
OK
> 2)Non usare quel marasma di Dlookup, per estrarre alla fine
>    i campi di un singolo Record, creati un Recordset ed usa quello
>     guadagni 10 volte in velocità d'esecuzione.
Okay!
> A parte questo l'errore che mi pare di aver visto è l'aggiornamento del
> Bookmark
> nel ciclo, che non deve essere fatto assolutamente in quel punto
altrimenti
> sposta il
> puntatore sull'ultimo Records e non ne trova più....!!!!
> Toglilo e dovrebbe andare.
Esatto, Alessandro. L'avevo trovato anche da solo e questo mi fa capire che
sto iniziando a macinare le primissime cose.
Grazie mille per l'aiuto!
Seguirò i consigli.
Ciao


title: email da maschera (modifica inattesa)

author: Raffi

text:
Buongiorno,
nel mio db, la tblclienti ha un campo email che ho salvato come collegamento
ipertestuale, per far si che in tutte le maschere che lo evidenziano, basta
cliccare sul campo e parte la email con destinatario l'indirizzo che il
campo indica; ora, fino a ieri funzionava bene...davvero...e non so come
mai.....ma fatto sta che oggi la cosa non va più! se ad esempio il campo
contiene
mio...@tiscali.it
, anzichè aprirsi una email, mi si apre il
browser che punta a www.tiscali.it...
Come posso risolvere il problema? e soprattutto...cosa ho cambiato perchè si
modificasse la cosa??
grazie, Raffi


title: email da maschera (modifica inattesa)

author: Geppo

text:
Ciao Raffi wrote:
> Buongiorno,
>
> nel mio db, la tblclienti ha un campo email che ho salvato come
> collegamento ipertestuale, per far si che in tutte le maschere che lo
> evidenziano, basta cliccare sul campo e parte la email con
> destinatario l'indirizzo che il campo indica; ora, fino a ieri
> funzionava bene...davvero...e non so come mai.....ma fatto sta che
> oggi la cosa non va più! se ad esempio il campo contiene
>
mio...@tiscali.it
, anzichè aprirsi una email, mi si apre il browser
> che punta a www.tiscali.it... Come posso risolvere il problema?
Elimina il collegamento ipertestuale e usa il metodo
application.FollowHyperlink sotto evento click della casella di testo:
application.FollowHyperlink "mailto:"& me!NomeTuaCaselladiTesto
>e soprattutto...cosa ho cambiato
> perchè si modificasse la cosa??
Bhoooo.
> grazie, Raffi
--
Ciao
Geppo


title: email da maschera (modifica inattesa)

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:QPy6k.12094$Ca.1...@twister2.libero.it...

Grazie ancora..tutto ok!
Post Chiuso