title: Gestire l'errore 3024 Impossibile trovare il file

author: MM

text:
Ciao a tutti,
ho un piccolo problema.
Devo riuscire a gestire l'errore 3024 (run-time error 3024  fil enon
trovato)
Ho un DB con FrontEnd e BackEnd.
Devo fare in modo che quando le tabelle del backend non sono collegate al
frontend mi venga gestito
l'errore e successivamente venga eseguito la procedura che ho già creato per
riallegare le tabelle.
Per chi volesse io ho creato la mia soluzione di riallega in modo tale che
tramite una finestra tipo gestione risorse seleziono il file tramite un
pulsante sfoglia e poi lui riallega tutto (invece di usare l'inserimento
manuale del percorso del file!!).
Il mio problema è che non riesco a gestire l'errore.
Ho creato una macro all'avvio (autoexec) che mi apre una maschera (so che
non è bello farlo così ma sono prove che poi ottimizzo ) alla quale è
associato il seguente codice in fase di apertura :
**********codice della maschera controllatabelle**************
Option Compare Database
Private Sub Form_Load()
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb()
On Error Resume Next
Set rst = CurrentDb.OpenRecordset("accettolicenza")
app = rst.EOF
On Error GoTo Gest_err
Gest_err:
MsgBox "Si è verificato un errore."
'If Err = 3024 Or Err = 3044 Then  ' voce appositamente disabilitata in
quanto facendo un debug l'errore è sempre uguale a 0
DoCmd.OpenForm "treeview"
'End If    'appositamente disabilitato in quanto non si verifica
l'istruzione IF
End Sub
*************************fine codice********************
Quando il db viene aperto e le tabelle non sono allegate mi viene eseguita
l'apertura di un'altra maschera che si chiama treeview.
Posto il relativo codice qui di seguito :
*********codice maschera treeview*****************
Option Compare Database
Private Sub Comando2_Click()
Dim db As Database
Dim tabAllegata As TableDef
Dim i As Long
Dim Percorso As String
Set dbsFatt = CurrentDb
Dim fb As OPENFILENAME
    Dim fName As Variant
    Call ShowFile(Me, fb)
    fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    txtFile = fName
Percorso = txtFile
DoCmd.Hourglass True
If Percorso = "" Then
DoCmd.Hourglass False
Exit Sub
End If
With dbsFatt
For i = 0 To .TableDefs.Count - 1
If .TableDefs(i).Connect <> "" Then
.TableDefs(i).Connect = ";DATABASE=" & Percorso
.TableDefs(i).RefreshLink
End If
Next i
End With
DoCmd.Hourglass False
MsgBox "Le tabelle sono state ricollegate. "
Set dbsFatt = Nothing
End Sub
Private Sub Form_Load()
DoCmd.Close acForm, "controllotabelle"            ' mi permette di chiudere
la maschera prima di questa che si chiama controllotabelle
End Sub
******************fine codice maschera treeview********************
Per eseguire tutto correttamente ho creato un modulo che si chiama treeview
il cui codice è il seguente :
********inizio codice modulo treeview**********
Option Compare Database
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
Public Sub ShowFile(frm As Form, fb As OPENFILENAME)
    Dim fName As String
    Dim result As Long
    Dim path As String
    path = "C:\"
    With fb
        .lStructSize = Len(fb)
        .hwndOwner = frm.Hwnd
        .hInstance = 0
        .lpstrFilter = "Tutti i File (*.*)" & vbNullChar & "*.mdb" &
vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar
        .lpstrTitle = "Scelta File" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
************fine codice modulo*************
Allora , innanzitutto devo dirvi che tutto funziona, ma l'unico problema è
che secondo il db esiste sempre l'errore (0) e quindi anche se le tabelle
sono collegate lui mi richiede di collegarle.
Sono sicuro che con qualche dritta o correzzione/aggiunta di qualche guru o
appassionato riesco a risolvere il mio problema.
Spero in bene.
Ciao da Marco
Con simpatia.
PS: AIUTATEMI VI PREGO   :-(


author: Al

text:
Non so se ho ben capito, ma credo che puoi risolvere il problema eliminando
la prima riga di On Error e anteporre a tutto il codice la seconda riga di
On Error, in questo modo:
 Private Sub Form_Load()
 Dim dbs As Database, rst As Recordset
 On Error GoTo Gest_err
 Set dbs = CurrentDb()
 Set rst = CurrentDb.OpenRecordset("accettolicenza")
 app = rst.EOF
a questo punto qualsiasi errore generato dalle istruzioni seguenti farà
riferimento alla sezione di gestione dell'errore che dovrai riabilitare per
"catturare" l'errore che ti interessa!
Prova e dimmi qualcosa
Alb
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:reGs9.56841$%M1.14...@twister2.libero.it...



text:
"Al" <
al...@tiscali.it
> ha scritto nel messaggio
news:aovbr8$59k$1...@lacerta.tiscalinet.it...
> Non so se ho ben capito, ma credo che puoi risolvere il problema
eliminando
> la prima riga di On Error e anteporre a tutto il codice la seconda riga di
> On Error, in questo modo:
>
>  Private Sub Form_Load()
>  Dim dbs As Database, rst As Recordset
>  On Error GoTo Gest_err
>  Set dbs = CurrentDb()
>
>  Set rst = CurrentDb.OpenRecordset("accettolicenza")
>  app = rst.EOF
>
> a questo punto qualsiasi errore generato dalle istruzioni seguenti farà
> riferimento alla sezione di gestione dell'errore che dovrai riabilitare
per
> "catturare" l'errore che ti interessa!
>
> Prova e dimmi qualcosa
>
> Alb
>
Innanzitutto grazie per aver risposto.
Ho fatto le modifiche come mi hai detto (tra l'altro lo avevo provato già a
fare in tal modo)
Ti posto di seguito il codice modificato:
****inizio codice********
Private Sub Form_Load()
Dim dbs As Database, rst As Recordset
'On Error Resume Next
On Error GoTo Gest_err
Set dbs = CurrentDb()
Set rst = CurrentDb.OpenRecordset("accettolicenza")
app = rst.EOF
Gest_err:
If Err = 3024 Or Err = 3044 Then
DoCmd.OpenForm "treeview"
End If
DoCmd.Close
End Sub
*********fine codice********
L'errore viene gestito in modo corretto ma il problema è il seguente :
Premettendo che le tabelle non siano collegate in quanto il backend è stato
spostato,
in fase di appertura il db mi presenta i seguenti errori :
Impossibile trovare il file c:\................\backend.mdb       --> clicco
su ok
e di nuovo mi si presenta il messaggio :
Impossibile trovare il file c:\................\backend.mdb       --> clicco
su ok
e di nuovo mi si presenta il messaggio :
Impossibile trovare il file c:\................\backend.mdb       --> clicco
su ok
e mi si presenta il seguente messaggio :
Errore di run-time "3024" : Impossibile trovare il file
c:\................\backend.mdb       --> clicco su fine
e finisco sessione delle maschere del mio db.
Quindi non viene eseguito il db.
Ho molti dubbi , ma sono sicuro che mi hai pstato la soluzione corretta solo
che ho dubbi sulla riga
'On Error Resume Next
che ho disabilitato come vedi nel codice ma che sembra facia la differenza.
Come posso fare ?
Grazie in anticipo.
Con simpatia
marco


text:

Ringrazio Al per la dritta !!
Dopo alcune prove e opportune modifiche sono riuscito a farlo funzionare
grazie anche al suggerimento di AL.
Per chi fosse interessato ho realizzato nel seguente modo :
*******codice modulo treeview*********
Option Compare Database



        .lpstrFilter = ".MDB" & vbNullChar & "*.mdb" & vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar
        .lpstrTitle = "Scelta File" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
***********fine codice modulo treeview***********
**********inizio codice maschera treeview**********
Option Compare Database
Private Sub Form_Load()

Set dbsFatt = CurrentDb

Percorso = txtFile
DoCmd.Hourglass True


DoCmd.Hourglass False
MsgBox "Le tabelle sono state ricollegate. " & Chr(13) & "Riaprire il DB per
apportare le modifiche."
DoCmd.Close acForm, "controllotabelle"
Set dbsFatt = Nothing
Application.Quit
End Sub
**********fine codice maschera treeview********
*********inizio codice maschera controllatabelle**********
Option Compare Database
Private Sub Form_Load()
Dim dbs As Database, rst As Recordset
'Set dbs = CurrentDb()
'On Error Resume Next
On Error GoTo Gest_err
Set dbs = CurrentDb()
Set rst = CurrentDb.OpenRecordset("accettolicenza")
app = rst.EOF
Gest_err:
If Err = 3024 Then GoTo riallega Else
If Err = 3044 Then GoTo riallega Else
GoTo fine
riallega:
MsgBox "Le tabelle non sono collegate." & Chr(13) & "Nella schermata
successiva selezionate il DB che le contiene ! " & Chr(13) & "Se effettuate
la scelta errata poterebbe verificarsi la perdita di tutti i dati.",
vbCritical, "Ricollegare le tabelle !"
DoCmd.OpenForm "treeview", , acNormal
'End If
fine:
DoCmd.Close
End Sub
*********fine codice maschera controllatabelle*********
Il tutto viene fatto con un'istruzione aprimaschera --> controllatabelle
situato nella macro autoexec.
Ciao a tutti e grazie tante.
Con simpatia e felicità
Marco.


title: Evidenziare un testo

text:
Ciao a tutti,
Mi intereserebbe che quando eseguo una ricerca da una casella di testo e
sempio nome e cognome, quando mi apre le form contenenti il testo
risultante mi venga evidenziato il testo inserito nella casella di ricerca.
questo č possibile? anche se compare piů volte?
grazie
Tuxedo


title: Evidenziare un testo

author: Carlo Costarella

text:
"Tuxedo2004" <
Tuxed...@yahoo.es
> ha scritto nel messaggio
news:9ra6wvgxk29l$.1v8a1i69p39m2$.dlg@40tude.net...

Probabilmente con la formattazione condizionale.
Dovresti chiarire meglio in quale situazione ti trovi e che versione di
Access usi.
Ciao, Carlo


title: Evidenziare un testo

text:


Utilizzo  Access 2002
ho una forma dove si trova una casella di testo per l'immissione della
stringa da ricercare, con un tasto per l'avvio della ricerca, che viene
operata su piů tabelle l'esito mi compare in una maschera in una casella di
testo memo ed č qui che vorrei che la stringa venisse evidenziata.
ciao Tuxedo


title: Evidenziare un testo

text:
"Tuxedo2004" <
Tuxed...@yahoo.es
> ha scritto nel messaggio
news:puacc9yowmg3$.g44mpgo0mvwc$.dlg@40tude.net...

Per esempio se la parola ricercata č "sole" e se il testo risultante č "una
bella giornata di sole" tu vorresti che nella casella di testo fosse
evidenziata la sola parola "sole" o tutte le ricorrenze di "sole". E' cosě?
Non si puň fare!
Forse potresti farlo usando l'ocx richtext.ocx...in pratica trasformando in
rtf lo scritto dalla tua casella.
Ciao, Carlo


title: errore creazione relazione 1 a molti fra tabelle con ADO

text:
Qualcuno sa dirmi perchè da errore? ho copiato il codice già funzionante di
2 tabelle simili
Devo creare una relazione (UNO) da tabella (componenti)  campo (ID) a molti
alla tabella (ComponentiQuote) campo (IDCOMPONENTE)
qualcuno sa illuminarmi? graziie.
---- code -----------
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=C:\Programmi\mioprogramma\dati.mdb;" & _
             "Jet OLEDB:Database Password=1234;"
    Cn.Execute "ALTER TABLE ComponentiQuote " & _
               "ADD CONSTRAINT C1 FOREIGN KEY (IdComponente) " & _
               "REFERENCES componenti (Id) " & _
               "ON UPDATE CASCADE ON DELETE CASCADE"
    Cn.Close
    Set Cn = Nothing


author: Gabriele Bertolucci

text:
A parte il fatto che avrebbe fatto comodo vedere l'errore che ti viene
restituito, ho provato il codice che hai postato e pare funzionare senza
alcun problema.
L'unica cosa che mi viene in mente è che io ho fatto la prova su tabelle
vuote, mentre non vorrei che nelle tue fossero presenti dati che violano le
regole di integrità.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


text:
Scusa il ritardo ma ho risolto il problema, il problema era nel nome della
relazione
crwavo già una relazione di nome C1, ho messo C2 e tutto è andato a posto.
Grazie mille lo stesso.


title: Strano comportamento delle combo box

author: Tonio Tanzi

text:
Salve a tutti.
Ho una maschera associata alla tabella Ordini e una combo box non
associata che prende i dati della lista dalla tabella Clienti.
Nel momento in cui scelgo un cliente dalla combo, devo visualizzare
tutti gli ordini di quel cliente, se la combo è vuota, la maschera deve
restare vuota.
Per far questo, nell'evento Change della combo modifico il record source
della maschera con una select.
Il problema è il seguente: se dopo aver scelto un cliente (ed aver
ricevuto normalmente l'elenco di ordini) cancello il contenuto della
combo, la maschera non viene svuotata, ma conserva l'elenco ordini
attuale.
Ho provato a fare l'esecuzione passo passo e, sorpresa, nell'evento
Change della combo il valore della stessa è ancora quello che aveva
subito prima della cancellazione.
In pratica è come se la cancellazione del testo della combo non
provocasse un cambio nel valore della stessa (io mi sarei aspettato che
in questa situazione la combo fosse posta a Null) o almeno questo non
avviene durante l'evento Change.
Ora, premesso che (per motivi che è troppo complesso spiegare) non posso
usare una soluzione a sottomaschera (lo so sarebbe stato troppo facile)
e che ho provato anche a gestire l'evento "Non in elenco" senza
risultati, c'è qualcuno che sa come gestire tale meccanismo?
Grazie, Tonio


title: Strano comportamento delle combo box

author: Sib

text:
"Tonio Tanzi" <
vi....@inwind.it
> ha scritto nel messaggio
> Ho una maschera associata alla tabella Ordini e una combo box non
> associata che prende i dati della lista dalla tabella Clienti.
> Nel momento in cui scelgo un cliente dalla combo, devo visualizzare
> tutti gli ordini di quel cliente, se la combo è vuota, la maschera deve
> restare vuota.
> Per far questo, nell'evento Change della combo modifico il record source
> della maschera con una select.
>
> Il problema è il seguente: se dopo aver scelto un cliente (ed aver
> ricevuto normalmente l'elenco di ordini) cancello il contenuto della
> combo, la maschera non viene svuotata, ma conserva l'elenco ordini
> attuale.
> Ho provato a fare l'esecuzione passo passo e, sorpresa, nell'evento
> Change della combo il valore della stessa è ancora quello che aveva
> subito prima della cancellazione.
> In pratica è come se la cancellazione del testo della combo non
> provocasse un cambio nel valore della stessa (io mi sarei aspettato che
> in questa situazione la combo fosse posta a Null) o almeno questo non
> avviene durante l'evento Change.
Prima di tutto hai sbagliato evento.
Non dovevi usare l'evento change ma l'evento DopoAggiornamento.
Comunque non sono daccordo che esistano situazioni in cui non sia possibile
usare maschera e sottomaschera, al limite potevi fare una maschera che
contenesse solo la combo.
Sib


title: Strano comportamento delle combo box

text:
Sib ha scritto:
>
> Prima di tutto hai sbagliato evento.
> Non dovevi usare l'evento change ma l'evento DopoAggiornamento.
Se la memoria non m'inganna, l'evento DopoAggiornamento viene scatenato
solo se il controllo è associato ad un campo, ma questo controllo non è
associato, quindi...
> Comunque non sono daccordo che esistano situazioni in cui non sia possibile
> usare maschera e sottomaschera, al limite potevi fare una maschera che
> contenesse solo la combo.
>
> Sib
A questo punto mi vedo costretto a dilungarmi nella spiegazione
effettiva del problema (l'avrei risparmiato, ma mi ci hai tirato per i
capelli ;o) ).
In realtà ho 3 combo box che filtrano 3 campi diversi (per es. Cliente,
TipoProdotto, Modalità), questi 3 campi compaiono insieme solo nella
tabella Ordini, per cui non so quale tabella dovrei associare alla
maschera master.
A complicare la cosa c'è il fatto che questa maschera non serve solo a
leggere gli ordini, ma anche ad inserirne di nuovi, questo significa che
ad un certo punto devo poter scegliere una combinazione nuova dei 3
campi ed avere nella sottomaschera un record vuoto da riempire.
Ho provato a fare una query del tipo "Select Distinct Cliente,
TipoProdotto, Modalità From Ordini" e ad associarla alla maschera master
usando i 3 campi come collegamento alla sottomaschera (che è associata
direttamente ad Ordini), ma mi combina casini; per es. se seleziono un
nuovo valore in una combo, mi dice "Recordset non aggiornabile", se
cerco di creare una combinazione non ancora utilizzata delle 3 combo non
mi mostra il record vuoto, ecc.
L'unica soluzione accettabile che ho trovato è quella da me postata.
Comunque, nel frattempo sono riuscito a risolvere il problema: gestisco
sia l'evento Change che l'evento Exit di ogni combo, infatti l'evento
Exit mi da sempre il valore aggiornato della combo (anche Null se
cancello il contenuto). Sono obbligato a gestirli entrambi perché se uso
solo l'Exit, per vedere il cambiamento devo appunto uscire dal
controllo. In pratica è come se l'evento Change mi servisse ad
aggiornare i dati quando cambio il contenuto di una combo, mentre
l'evento Exit mi servisse a svuotare la maschera quando ne annullo il
contenuto.
Lo so è una soluzione incasinata, ma è l'unica che mi da il
comportamento che voglio.
Se riuscite a trovare qualcosa meglio fatemelo sapere.
Ciao e grazie
Tonio


title: Strano comportamento delle combo box

text:
"vi.tan" <
vi....@inwind.it
> ha scritto nel messaggio
> Sib ha scritto:
> >
> > Prima di tutto hai sbagliato evento.
> > Non dovevi usare l'evento change ma l'evento DopoAggiornamento.
>
> Se la memoria non m'inganna, l'evento DopoAggiornamento viene scatenato
> solo se il controllo è associato ad un campo, ma questo controllo non è
> associato, quindi...
"scatenato" e' una parola grossa.
Comunque si verifica anche se non e' associato.
> > Comunque non sono daccordo che esistano situazioni in cui non sia
possibile
> > usare maschera e sottomaschera, al limite potevi fare una maschera che
> > contenesse solo la combo.
> A questo punto mi vedo costretto a dilungarmi nella spiegazione
> effettiva del problema
CUT
No, figurati. Puoi fare come meglio credi.
La mia era solo una considerazione che non ho neanche il tempo di discutere
per approfondirla.
> Comunque, nel frattempo sono riuscito a risolvere il problema: gestisco
> sia l'evento Change che l'evento Exit di ogni combo, infatti l'evento
> Exit mi da sempre il valore aggiornato della combo (anche Null se
> cancello il contenuto). Sono obbligato a gestirli entrambi perché se uso
> solo l'Exit,
CUT
Come ti dicevo: DopoAggiornamento.
Sib


title: Strano comportamento delle combo box

author: lindbergh

text:
"Tonio Tanzi" <
vi....@inwind.it
> ha scritto nel messaggio
news:3C8B2529...@inwind.it...
> Salve a tutti.
> Ho una maschera associata alla tabella Ordini e una combo box non
> associata che prende i dati della lista dalla tabella Clienti.
> Nel momento in cui scelgo un cliente dalla combo, devo visualizzare
> tutti gli ordini di quel cliente, se la combo è vuota, la maschera deve
> restare vuota.
> Per far questo, nell'evento Change della combo modifico il record source
> della maschera con una select.
>
> Il problema è il seguente: se dopo aver scelto un cliente (ed aver
> ricevuto normalmente l'elenco di ordini) cancello il contenuto della
> combo, la maschera non viene svuotata, ma conserva l'elenco ordini
> attuale.
> Ho provato a fare l'esecuzione passo passo e, sorpresa, [CUT]
> risultati, c'è qualcuno che sa come gestire tale meccanismo?
>
> Grazie, Tonio
Mah...io avevo un problema simile al tuo :
Io applico un filtro sull'evento Change nella Combo...anche con piu' combo a
cascata
ed ho trovato un modo per tornare alla situazione originale(tutti i record)
forse poco elegante
o poco professionale..non so ma funzia ed è velocissima.
Piccolo botton con una bella X sopra e sull'evento click :
Docmd.ShowAllRecords
Me.Requery
Lo so , lo so ...Me.Requery sembra inutile dopo uno ShowAllRecords, ma
senza,
l'aggiornamento della maschera era piu' lento e a volte dovevo cliccare 2
volte sul botton.
Cosi' invece è una scheggia.
Non so se puo' servirti o è poco ortodossa come soluzione...ma....
Ciao
Eddie


title: Strano comportamento delle combo box

text:
Sib ha scritto:
>
> Come ti dicevo: DopoAggiornamento.
>
> Sib
Ok, ok hai ragione tu. Chissà perché ero convinto che non funzionasse.
Comunque grazie e alla prossima.
Tonio


title: Strano comportamento delle combo box

text:
lindbergh ha scritto:
>
> Mah...io avevo un problema simile al tuo :
> Io applico un filtro sull'evento Change nella Combo...anche con piu' combo a
> cascata
> ed ho trovato un modo per tornare alla situazione originale(tutti i record)
> forse poco elegante
> o poco professionale..non so ma funzia ed č velocissima.
> Piccolo botton con una bella X sopra e sull'evento click :
> Docmd.ShowAllRecords
> Me.Requery
>
> Lo so , lo so ...Me.Requery sembra inutile dopo uno ShowAllRecords, ma
> senza,
> l'aggiornamento della maschera era piu' lento e a volte dovevo cliccare 2
> volte sul botton.
> Cosi' invece č una scheggia.
> Non so se puo' servirti o č poco ortodossa come soluzione...ma....
> Ciao
> Eddie
Grazie per il suggerimento, lo terrň presente
Tonio


title: [1/2 OT] Acquistare in Quintali e vendere in Kg

author: RobertoA

text:
Portate pazienza per il mezzo ot, ma essendo che Access e' sicuramente
usato per applicazioni gestionali classiche, credo ci siano molti
esperti di queste problematiche
Il problema per il quale cerco un aiuto e' classico, l'utilizzo di un
articolo con unita' misure differenti

Esempio, acquisto dello zucchero, il fornitore vende a quintali e
supponiamo quindi in bolla mi trovo "pallett zucchero semolato da 2
quintali", quantita n.1 (pallett), prezzo 2000 euro/pallett

Lo zucchero arriva su pallet, in scatoloni da 24 sacchetti, ognuno del
classico peso da 1Kg
Quindi abbiamo acquistato un pallett di zucchero (scatole contenenti
sacchetti, peso totale 2 quintali) al prezzo di 2000 euro/pallett (sono
1 euro/kg)

Ora andiamo a vendere, ed e' possibile che ad un cliente si forniscano 6
sacchetti di zucchero, a 2 euro/sacchetto

Per un'altra vendita potremmo fornire una scatola di sacchetti di
zucchero (scatola da 24 sacchetti), a 45 euro/scatola

Bene, penso si intuisca la richiesta, che e':
- come gestite la cosa?
Voglio dire, tenete tre articoli diversi (pallett, scatola, sacchetto)
oppure tenete un articolo unico con piu' unita' di misura?
E la rimanenza quantita/valore come la terreste, in Kg, in scatole, in
pallett?

Ho fatto l'esempio con tre confezioni diverse ma potrebbero essere anche
piu' di tre, per la stessa 'sostanza'


author: Bruno Campanini

text:
RobertoA presented the following explanation :

Questa la dovevo ancora sentire...
Acquisti a 1 euro il kg e rivendi a 2 o 1.75 o a 2.20, etc.
Ma qual è il problema: tieni tutto in kg, in entrata e in uscita.
A chi interessa sapere se vendi una confezione a più di un'altra,
posto che acquisti a confezioni uniche, e chi poi le diversifica
(il venditore) può farlo a piacimento, suppongo a costo zero?
Non al Bilancio che ti chiede di valutare le merci, distinte
o non distinte, al valore che più ti piace, aderente comunque a
quello del 31/12.
Non al fisco cui interessa solo che tu le valuti al LIFO.

Ovvero c'è un problema che, obnubilamento mio, proprio non vedo.

Bruno


author: BFS

text:

i miei clienti che gestiscono impianti elettrici acquistano bobine di
cavi da centinaia di metri e può capitare che li vendano a bobine intere
(nel caso di mega impianti), oppure al metro (impianto casalingo), o a
bobine di decine di metri che producono loro con il cavo della mega
bobina acquistato.

vengono trattati con codici diversi
esempio
b01  è la bobina da 500mt di cavo che comprano dal fornitore (che
possono anche rivendere cosi com'è)
C01 è il cavo venduto al metro
SB01 è la bobina che creano loro da 20 mt

il carico di magazzino lo fanno per b01
quando spacchettano una b01 per tagliarsi 20 mt di cavo
scaricano a magazzino 1pz di b01 e caricano a magazzino 500mt di c01

quando si producono in casa una bobina da 20 mt da rivendere
scaricano 20mt di c01 e caricano a magazzino 1pz di SB01

quando vendono direttamente il cavo al metro ovviamente scaricano c01

per evitare che facciano questi passaggi di carico/scarico a mano ho
realizzato un apposito automatismo. "Sbobiba", "Crea Sottobobina A"
"Crea Sottobobina B" con appositi indici di conversione..una sorta di
mini distinta base per creare in automatico le movimentazioni di magazzino

BFS


text:

Si, capisco, quindi e' la prima delle due ipotesi
Articoli diversi e conversione tra uno e l'altro


text:

"..ancora sentire.." bene, fa piacere portare una ventata di novita'

"..Ma qual è il problema.."  e' che la fattura di acquisto arriva con
unita' misura 'pallet' e costo relativo a questa unita' di misura
E venendo letta dall'xml in automatico, il fine cui tendere e' di farla
'entrare' nel gestionale senza toccare niente
Se devo mettermi a fare la conversione da pallet a kg su gran parte
delle righe fatture acquisto, allora tanto vale inserirle a mano che si
fa prima

"..posto che acquisti a confezioni uniche.." e' una semplificazione che
non si puo' fare perche' potrei acquistare a pallett o a scatoloni

Non e' questione ne di fisco ne di bilancio, ma un problema meramente
gestionale, e si tratta di acquisire le informazioni dello 'stesso
prodotto sostanziale' in diverse unita' di misura, e di fare poi lo
scarico con altre unita' di misura (vendita a kg, o a scatolone, ...)


text:
RobertoA used his keyboard to write :

Ma i palets e gli scatoloni saranno pure standard (intendo sempre
contenenti le stesse quantità di merci), sono due divisioni...
Boh, continuo a non capire, ma fa niente. Come non detto.

> Non e' questione ne di fisco ne di bilancio, ma un problema meramente
> gestionale
Come se Fisco e Bilancio non fossero problemi gestionali.

Bruno


text:

Continui a dare per scontate delle informazioni che non lo sono
Pallet e scatoloni non e' detto che siano standard, perche' se acquisti
da una fornitore hai il pallett da 450 Kg, se acquisti da un altro ha il
pallet da 680 Kg, stesso dicasi per le statole chi te le fa con 24
sacchetti da 1 Kg, chi te le fa con 20 sacchetti da 1 Kg

"..non fossero problemi gestionali.." la sostanza di quel che volevo far
intendere e' che l'obiettivo principale e' semplificare il lavoro sia di
chi registra gli acquisti sia di chi sta preparando la lista della
spesa, consentendo loro di indicare lo 'stesso prodotto sostanziale', in
questo esempio lo zucchero, con unita' misura diversa
Mi sembra che la questione posta, sia comprensibile


text:
RobertoA explained on 07-02-23 :

> Continui a dare per scontate delle informazioni che non lo sono
> Pallet e scatoloni non e' detto che siano standard, perche' se acquisti da
> una fornitore hai il pallett da 450 Kg, se acquisti da un altro ha il pallet
> da 680 Kg, stesso dicasi per le statole chi te le fa con 24 sacchetti da 1
> Kg, chi te le fa con 20 sacchetti da 1 Kg
>
> "..non fossero problemi gestionali.." la sostanza di quel che volevo far
> intendere e' che l'obiettivo principale e' semplificare il lavoro sia di chi
> registra gli acquisti sia di chi sta preparando la lista della spesa,
> consentendo loro di indicare lo 'stesso prodotto sostanziale', in questo
> esempio lo zucchero, con unita' misura diversa
> Mi sembra che la questione posta, sia comprensibile

Per parte mia consideravo già chiuso l'argomento che riguarda
circostanze che non ho mai verificato, e non intendo far
polemiche al riguardo.

Ma visto che hai comunque risposto, faccio l'ultima domanda
e poi mi taccio:
quindi la fattura, oltre a contenere il riferimento a palets
e/o scatoloni per i quali viene emessa, non contiene anche
il peso totale e il prezzo per Kg?

Bruno


text:
It happens that RobertoA formulated :

L'affermazione l'avevi già fatta al primo post, non ho rilevato
la circostanza pensando a un typo (uno zero in più).
Ma qui lo ripeti: 2 quintali sono 200 kg, 200 kg a €2000
fa €10 al kg lol

Ciao e buon lavoro
Bruno


text:

Si dai, ovviamente ho sbagliato x10 il prezzo
E capiscimi   :)
Era la logica dell "acquistare con una unita di misura e vendere con
altra" che volevo descrivere


text:
RobertoA explained :

Che è proprio quello che non riesco a comprendere.
Tu acquisti pacchetti da 1 kg variamente aggregati
(in palets, scatoloni, etc) ad €x/Kg,
e vendi pacchetti da 1 Kg o scatole contenenti vari
pacchetti ad €y/Kg.
L'unità di misura non cambia, cambia il prezzo per unità di misura.
Acquisti 3 palets da 100 Kg: carichi il magazzino di 300 Kg;
vendi 4 scatole da 24 Kg: scarichi il magazzino di 96 Kg.

E in contabilità:
in Dare  -> Merci c/Acquisti per 300*x
in Avere -> Merci c/Vendite  per  96*y

Sono procedure che ho eseguito migliaia di volte con un
mio programma di contabilità e con altri programmi: si
trattasse di merci o di servizi.

Mi piacerebbe capire il problema ma evidentemente le mie
meningi hanno un limite.

Bruno


title: ODBC

author: Stefano Zago

text:
Ciao a tutti.
Allego una tabella da un database Oracle mediante un determinato utente
Ne allego un altra con un altro utente.
All'avvio del database seleziono una tabella e mi viene chiesto
l'username e la password. E fin qui tutto ok.
Adesso se seleziono l'altra tabella, non mi viene chiesto nulla e si
comporta come se fossi collegato con l'utente precedente.
Come faccio a far si' che mi chieda per ogni tabella l'utente con il
quale mi sono collegato al momento della creazione del collegamento.
Non so se sono stato chiaro, ma se qualcuno ha avuto problemi simili e
li ha risolti, grazie fin da ora.
Stefano
--
Posted from  [62.110.70.21]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ODBC

author: SR

text:
"Stefano Zago" <
atre...@yahoo.it
> ha scritto nel messaggio
news:a5f4395e2c1636b6822...@mygate.mailgate.org...
> Adesso se seleziono l'altra tabella, non mi viene chiesto nulla e si
> comporta come se fossi collegato con l'utente precedente.
*Sei* collegato con l'utente precedente. Il canale ODBC resta aperto, che io
sappia non ci puoi fare nulla. P


title: Domanda su Access 2003

author: ringo

text:
Salve a tutti,
volevo sapere se chi utilizza Access 2003 accoppiato
a msde2000 ha incontrato particolari problemi
Grazie!
ringo


title: query sql in access

text:
devo riuscire a far girare delle query scritte per sql server in access
ma ho dei problemi.
in varie query ho delle cross  JOIN come posso spostarle su access?
grazie,kat


title: query sql in access

author: Karl Donaubauer

text:

JET non conosce il CROSS JOIN. Per ricevere un prodotto
cartesiano devi usare la sintassi <SQL92, cioč senza JOIN:
... FROM tabella1, tabella2 ...
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Ma Access.Application non funziona....

author: Giulia

text:
con un ambiente ridotto creato sfruttando l'ODE Tools? ho creato un setup
per il run-time di access ma il mio programma continua a non funzionare, si
inchioda alla prima istruzione che č:
Public objAPP As Object
Set objAPP = CreateObject("Access.Application")
con un errore del tipo "errore di automazione..."
mi sta venendo un piccolo dubbio non č che nun funziona il run-time in
questo caso? Ho provato su un piccolo db con una maschera e una macro
denominata "autoexect" che mi nasconde la finestra del database e mi fa
partire una maschera e tutto funziona. Quindi non so piů come fare perchč
alcuni clienti non vogliono acquistare Access e cosě io non posso fare le
stampe.
Premetto che sto facendo le prove con il seguente ambiente
sviluppo
vb 5.0
access 97
ode tools senza service pack
test
W Nt
Giulia


title: disattivare modifica su campo

author: ciccio

text:
cioa a tutti ho un database in particolare una maschera che punta ad
un atabella con 3 campi
nome cognome note
vorrei fare in modo che i primi 2 campi siano in controllo completo e
che il campo note sia solo inserimento ma non modificabile
come posso fare?
grazie ciccio


title: disattivare modifica su campo

author: Alessandro Cara

text:
ciccio ha scritto:

su current
controllomemo.enabled = newrecord
o
controllomemo.locked = not newrecord
--
ac


title: disattivare modifica su campo

text:
Alessandro Cara ha scritto:
> controllomemo.enabled = newrecord
>
> o
> controllomemo.locked = not newrecord
> --
> ac
ps
o
controllomemo.enabled = iif("" & controllomemo="",true,false)
o
controllomemo.locked= iif("" & controllomemo="",false,true)
--
ac


title: disattivare modifica su campo

text:

scusa ma non ho capito nelle proprietà della maschera dove inserire il
parametro , grazie


title: disattivare modifica su campo

text:
ciccio ha scritto:
> On 27 Apr, 15:57, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
>> Alessandro Cara ha scritto:
>>
>>> controllomemo.enabled = newrecord
>>> o
>>> controllomemo.locked = not newrecord
>>> --
>>> ac
>> ps
>>
>> o
>>
>> controllomemo.enabled = iif("" & controllomemo="",true,false)
>> o
>>
>> controllomemo.locked= iif("" & controllomemo="",false,true)
>> --
>> ac
>
> scusa ma non ho capito nelle propriet� della maschera dove inserire il
> parametro , grazie
sull'evento di current
--
ac


title: banale... come scrivere un record ?

author: Marco Favata

text:
Ho un paio di domande... sicuramente molto banali, ma sono proprio
all'inizio di Access e VB.
1) Ho usato il comando (metodo .. ?) Dlookup per "prelevare" dei dati, ma
solo dal record numero 1... posso selezionare il record (cioč... come si
utilizza il paramentro [criteria] .. dall'help non ho capito molto bene).
2) Come posso scrivere da VBA un certo dato ? Cioč voglio scrivere in un
dato record, di una data tabella il valore x... come si fŕ ? Non ho avuto
molta fortuna dall'help !!!
Grazie,
Marco.


title: banale... come scrivere un record ?

author: Emyr

text:
On Fri, 31 Jan 2003 15:36:22 GMT, "Marco Favata"
<
mfavataN...@inwind.it
> wrote:
>Ho un paio di domande... sicuramente molto banali, ma sono proprio
>all'inizio di Access e VB.
>
>1) Ho usato il comando (metodo .. ?) Dlookup per "prelevare" dei dati, ma
>solo dal record numero 1... posso selezionare il record (cioè... come si
>utilizza il paramentro [criteria] .. dall'help non ho capito molto bene).
>
>
dlookup("Nomecampodaleggere";"NometabellaoQuerydaLeggere";"Criteriodeltipo
nomecampo=valore")
>2) Come posso scrivere da VBA un certo dato ? Cioè voglio scrivere in un
>dato record, di una data tabella il valore x... come si fà ? Non ho avuto
>molta fortuna dall'help !!!
dipende se con dao o ado
un esempio
dim rs as recordset
currentdb.openrecordset("Select * from tabella")
rs.addnew
rs.campo1=1
rs.update
rs.close
>
>Grazie,
>
>Marco.
>
Saluti.
Emanuele.


title: banale... come scrivere un record ?

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:g2qm3v8h1uosju0a7...@4ax.com...
> On Fri, 31 Jan 2003 15:36:22 GMT, "Marco Favata"
> <
mfavataN...@inwind.it
> wrote:
>
>
>
> dipende se con dao o ado
> un esempio
Come faccio a sapere su uso DAO o ADO ?
>
>
> dim rs as recordset
> currentdb.openrecordset("Select * from tabella")
> rs.addnew
> rs.campo1=1
> rs.update
> rs.close
>
>
Ok, provato.... ma "campo1" cosa è  ? Io pensavo il nome del mio campo, ma
non è così e mi dà:
"Impossibile trovare il metodo o il membro dei dati"
.... sigh... (scusate ma sto iniziando ad usare Access ora...)
Grazie !!
Marco.


title: Casella di testo in masch. continua: si espande solo in ant. stampa?

author: robviv

text:
(vers.access97)
Dalla guida ed in pratica ho riscontrato che, per una casella
di testo inserita in una maschera continua, pur impostando
su si l'opzione espandibile della casella, in realtà l'espansione in
base al contenuto si ha solo in antemprima di stampa.
E' possibile da codice o macro ecc., fare in modo che:
anche nella visualizzazione della masch. continua, si possa
avere l'espansione della casella?
Thank you
By By
robviv


author: Roberto dal portatile

text:
"robviv" <
XXXv...@usa.net
> ha scritto nel messaggio
news:399B000D...@usa.net...

Mi pare proprio che non si possa; l'help, relativamente alle proprietè
Espandibile e Riducibile, infatti dice:
Queste proprietà influenzano il modo in cui le sezioni e i controlli di
maschera vengono visualizzati solo quando la maschera viene stampata o
visualizzata in anteprima, non quando essa viene visualizzata in
visualizzazione Maschera, visualizzazione Foglio dati o visualizzazione
Struttura.
Roberto


title: Orderby su Sottoreport

author: Mattia

text:
Ho creato un report principale "Anagrafica" con un sottoreport "Organi
Sociali". Se sul sottoreport setto la orderby con un campo del sottoreport e
la orderbyon a si, questa mi funziona solo se apro il sottoreport da solo
mentre non funzia quando apro il report principale con all'interno il
sottoreport.
Avete suggerimenti ?
TIA
Aloa                Mattia
--
P.S. Togli NOSPAM dall'indirizzo e-mail


title: Orderby su Sottoreport

text:
"Mattia" <
smatti...@libero.it
> ha scritto nel messaggio
news:QYTH6.25829$0t6.1...@news.infostrada.it...

Ordina l'ggetto che è origine record del sottoreport (tabella o query che
sia) nella maniera in cui vuoi vedere ordinate le righe del sottoreport.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Orderby su Sottoreport

text:
P.S. Togli NOSPAM dall'indirizzo e-mail
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:SXWH6.30073$0t6.1...@news.infostrada.it...
>
> "Mattia" <
smatti...@libero.it
> ha scritto nel messaggio
> news:QYTH6.25829$0t6.1...@news.infostrada.it...
> > Ho creato un report principale "Anagrafica" con un sottoreport "Organi
> > Sociali". Se sul sottoreport setto la orderby con un campo del
sottoreport
> e
> > la orderbyon a si, questa mi funziona solo se apro il sottoreport da
solo
> > mentre non funzia quando apro il report principale con all'interno il
> > sottoreport.
> > Avete suggerimenti ?
> >
> > TIA
> >
> > Aloa                Mattia
> >
>
> Ordina l'ggetto che è origine record del sottoreport (tabella o query che
> sia) nella maniera in cui vuoi vedere ordinate le righe del sottoreport.
>
> --
>
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Sembra quasi fantascienza ma  non funzia. La tabella da cui ha origine il
sottoreport ha tre id di cui uno chiave primaria: IDOrgani (chiave
primaria), IDAnagrafica che mi serve per legami con altra tabella e
IDIncarico che mi serve per altro legame con tabella Incarico.
Se metto una "select * from organi order by idincarico" nell'origine record
del report non funziona mentre se nella proprietà order by inserisco
idincarico il sottoreport viene ordinato (comunque solo se apro il
sottoreport da solo mentre non funzia quando apro il report principale con
all'interno il sottoreport).
Grazie ancora                    Mattia


title: Orderby su Sottoreport

text:
"Mattia" <
smatti...@libero.it
> ha scritto nel messaggio
news:c27I6.1748$eJ6.2...@news.infostrada.it...

Ammettiamo che attualmente hai come origine record del sottoreport
tblOrgani.
Se crei una query basata su tblOrgani, la chiami Query1 e la ordini per
IDIncarico, e a questo punto metti Query1 come origine record della
sottomaschera, una cosa è sicura: le righe della sottomaschera risulteranno
ordinate per IDIncarico come Query1. Naturalmente per IDIncarico e non per
la descrizione dell'incarico.



title: Orderby su Sottoreport

text:
--
P.S. Togli NOSPAM dall'indirizzo e-mail
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hQhI6.2769$UW4....@news.infostrada.it...
>
[SUPERCUT]
> Ammettiamo che attualmente hai come origine record del sottoreport
> tblOrgani.
> Se crei una query basata su tblOrgani, la chiami Query1 e la ordini per
> IDIncarico, e a questo punto metti Query1 come origine record della
> sottomaschera, una cosa è sicura: le righe della sottomaschera
risulteranno
> ordinate per IDIncarico come Query1. Naturalmente per IDIncarico e non per
> la descrizione dell'incarico.
>
> --
>
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Prima di tutto scusa per il ritardo ma altri casini su Unix mi hanno
costretto a leggere il ng solo oggi. Come al solito hai ragione e mi sento
anche un po imbecille: se ordino per idincarico non avro' mai un ordinamento
sulla descrizione !!!
E' proprio ora di ferie e mi sa che la prox. settimana vado in Mar Rosso
.....
Aloa e grazie ancora di tutto....            Mattia


title: Problema con una queryed inner join

text:
Ho una query che lega una serie di codici presenti nella tab2 ad un elenco
di nomi presenti nella tab1 cosě definita:
SELECT tab2.nome FROM tab1 INNER JOIN tab2 ON tab1.elenco =
tab2.id
;
Ora, se nella tab2 ho dei codici che non esistono nell'elenco della tab1
(cioč la tab1 preenta alcuni codici in piů) dalla query, mi perdo i nomi
associati a tali codici. non so se mi sono spiegato.
Come posso fare affinche' cio' non accada? Mi basterebbe, anche
semplicemente che nella query comparisse una riga vuota (o con dei trattini)
tanto per capire che si č verificato il caso di cui sopra.
Grazie


title: Problema con una queryed inner join

author: massimo

text:
> SELECT tab2.nome FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
Prova in questo modo
Ciao.


title: Problema con una queryed inner join

text:
>> SELECT tab2.nome FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
Perfetto grazie, anche se adesso mi sento più ignorantone che mai... ma
lascierò access appena finito questo "lavoretto" per l'ufficio!
Un'ultima cosetta... tralaciando il fatto che mi andrebbe bene anche così,
ma ci sarebbe il modo di mettere una qualche stringa al posto dello spazio
vuoto lasciato dalla tua query?


title: Problema con una queryed inner join

text:
"3giolo" <
nos...@spam.no
> ha scritto nel messaggio
news:435f3b4b$0$8499$5fc...@news.tiscali.it...

si, puoi fare per esempio:
SELECT tab2.nome, iif(
tab2.id
 is null; "----------------";
tab2.id
) FROM
tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
metti il campo che ti interessa al posto del
tab2.id
 o un stringa.
Ciao.


title: Problema con una queryed inner join

text:
> si, puoi fare per esempio:
> SELECT tab2.nome, iif(
tab2.id
 is null; "----------------";
tab2.id
)
> FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
> metti il campo che ti interessa al posto del
tab2.id
 o un stringa.
Troppo gentile.
Mi da però un'errore di sintassi che non riesco  a trovare (a parte,
ovviamente iif con if).
Ciao


title: Problema con una queryed inner join

text:
"3giolo" <
nos...@spam.no
> ha scritto nel messaggio
news:435f3ffe$0$8481$5fc...@news.tiscali.it...


sostituisci il ; con la , su questo pezzettino dovrebbe funzionare
Non ti ho domandato se usi un database access o sql server?


title: Problema con una queryed inner join

text:
massimo wrote:
> "3giolo ha scritto:
>>> si, puoi fare per esempio:
>>> SELECT tab2.nome, iif(
tab2.id
 is null; "----------------";
tab2.id
)
>>> FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
>>> metti il campo che ti interessa al posto del
tab2.id
 o un stringa.
>>
>> Troppo gentile.
>>
>> Mi da però un'errore di sintassi che non riesco  a trovare (a parte,
>> ovviamente iif con if).
> ...
> iif(
tab2.id
 is null; "----------------";
tab2.id
)
>
> sostituisci il ; con la , su questo pezzettino dovrebbe funzionare
> ...
Lui puo anche usare:
nz(
tab2.id
, "----------------")
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Problema con una queryed inner join

text:
> Lui puo anche usare:
>
> nz(
tab2.id
, "----------------")
>
si questo va bene se non deve visualizzare 2 stringhe diverse.
ciao.


title: Problema con una queryed inner join

text:
> if(
tab2.id
 is null; "----------------";
tab2.id
)
>
> sostituisci il ; con la , su questo pezzettino dovrebbe funzionare
No, purtroppo non va...mi da Funzione IF non definita nell'espressione
>
> Non ti ho domandato se usi un database access o sql server?
E' un db access,  con la soluzione proposta da Karl nz(
tab2.id
,
"----------------"), invece, la query viene eseguita ma non mi restituisce
una stringa, bnesi, sempre il campo vuoto.


title: Problema con una queryed inner join

text:
3giolo wrote:
>> if(
tab2.id
 is null; "----------------";
tab2.id
)
>>
>> sostituisci il ; con la , su questo pezzettino dovrebbe funzionare
>
> No, purtroppo non va...mi da Funzione IF non definita nell'espressione
:-))
massimo non ha un problema permanente con la tastiera
ma la funzione veramente si chiama iif (=intermediate if).
>>
>> Non ti ho domandato se usi un database access o sql server?
>
> E' un db access,  con la soluzione proposta da Karl nz(
tab2.id
,
> "----------------"), invece, la query viene eseguita ma non mi restituisce
> una stringa, bnesi, sempre il campo vuoto.
Posta la tua stringa SQL.



title: Problema con una queryed inner join

text:
Sto sprofondando nella mia ignoranza e me ne vergono immensamente :-(
> :-))
> massimo non ha un problema permanente con la tastiera
> ma la funzione veramente si chiama iif (=intermediate if).
Questa č la stringa
SELECT tab1.IDIncontro, tab2.nome, IIf(
tab2.id
 Is Null," - ---------------",
tab2.id
) AS Espr1
FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
Cosě va, ma mi crea un nuovo campo  Espr1 mente io vorrei che la stringa
prendesse il posto del "vuoto" in tab2.nome quindi l'ho corretta cosě:
SELECT tab1.IDIncontro, tab2.nome, IIf(
tab2.id
 Is Null," - ---------------",
tab2.nome) AS Espr1
FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
Perň mi crea sempre il nuovo campo Espr1 cosa che non vorrei.


title: Problema con una queryed inner join

text:
3giolo wrote:
> ...
> Questa è la stringa
>
> SELECT tab1.IDIncontro, tab2.nome, IIf(
tab2.id
 Is Null," -
> ---------------",
tab2.id
) AS Espr1
> FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
>
> Così va, ma mi crea un nuovo campo  Espr1 mente io vorrei che la
> stringa prendesse il posto del "vuoto" in tab2.nome quindi l'ho
> corretta così:
>
> SELECT tab1.IDIncontro, tab2.nome, IIf(
tab2.id
 Is Null," -
> ---------------", tab2.nome) AS Espr1
> FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
>
> Però mi crea sempre il nuovo campo Espr1 cosa che non vorrei.
Un campo calcolato non puo sostituire un campo con
un nome identico. Sarebbe un riferimento circolare.
Certo puoi usare un nome della tua scelta. p.e.
SELECT tab1.IDIncontro, IIf(
tab2.id
 Is Null," - ---------------",
tab2.nome) AS MioBelloNome
FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
o come già scritto più breve con nz():
SELECT tab1.IDIncontro, nz(tab2.nome," - ---------------") AS MioBelloNome
FROM tab1 LEFT JOIN tab2 ON tab1.elenco =
tab2.id
;
--



title: utenti

author: cla

text:
In un database, ho inserito una serie di utenti con relativa password.
I nomi degli utenti, sono di due caratteri, quando viene aperto il database,
ognuno digita il suo nome e la sua password.
In ogni tabella c'è un campo che identifica l'utente, praticamente, vorrei,
che ognuno potesse vedere solo i record che contengono nel campo utente, la
stessa sigla che inseriscono nel momento in cui aprono il database (nome
utente).
Ad es., ho la tabella con i campi:
COD, DESCRIZIONE
AT        PIPPO
AT        TOPOLINO
HT        PLUTO
DF        MINNI
quindi se l'utente si collega con il nome AT, aprendo la tabella con una
query di selezione (dopo aver inserito l'utente come criterio, in
corrispondenza del campo cod),deve poter leggere solo i primi 2 record.
Spero di essermi spiegata, vorrei praticamente poter utilizzare l'utente
come una variabile all'interno del database.
Grazie
Claudia


title: utenti

author: sib

text:
cla <
ya...@libero.it
> wrote in message
cut
> In ogni tabella c'è un campo che identifica l'utente, praticamente,
vorrei,
> che ognuno potesse vedere solo i record che contengono nel campo utente,
la
> stessa sigla che inseriscono nel momento in cui aprono il database (nome
> utente).
> Ad es., ho la tabella con i campi:
> COD, DESCRIZIONE
> AT        PIPPO
> AT        TOPOLINO
> HT        PLUTO
> DF        MINNI
>
> quindi se l'utente si collega con il nome AT, aprendo la tabella con una
> query di selezione (dopo aver inserito l'utente come criterio, in
> corrispondenza del campo cod),deve poter leggere solo i primi 2 record.
> Spero di essermi spiegata, vorrei praticamente poter utilizzare l'utente
> come una variabile all'interno del database.
Workspaces(0).UserName
Questo ti dice chi e' l'utente.
Per quanto riguarda le query, stai attenta perche' ti devi ricordare di
rendere non accessibili le tabelle in questione, inoltre le query devono
contenere l'opzione WITH OWNERACCESS OPTION, questo consentira' agli utendi
di accedere ai dati solo dalle query in questione.
Infine dai un'occhiata al sito comune dove si parla di Query protette da
password, li' troverai uno spunto su come usare l'user, ad esempio come
valore restituito da una funzione che poi userai come parametro delle query.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: utenti

text:
Se nella query, nel campo utente, inserisco come criterio questo valore
   Workspaces(0).UserName
mi viene segnalato un errore di sintassi.
Ho provato a scrivere l'istruzione sql che ho trovato in internet, ma non
funziona, mi da errore di sintassi o paracc non è definito......
Dove sbaglio?
Grazie
Ciao
Claudia


title: couldn't find installable ISAM

author: Fabio

text:
Ho provato a far vedere ad un utente che poi dovra' usarlo una bozza del DB
da me appena creato ma quando cercavo di importare i dati da una tabella di
excel il sistema di dava il seguente messaggio in inglese :couldn't find
installable  ISAM
Premetto che nel mio Pc il db funziona benissimo e quindi non mi aspettavo
il seguente errore e non ho potuto mostrare all'utente il mio lavoro.
Guardando sulla guida in linea ho visto che il problema dovrebbe essere
dovuto alla mancanza di un driver che collega access alla tabella di excel.
La posizione ed il settaggio del driver viene gestito  nel registro di
configurazione di Windows.................COME DIAVOLO SI CONFIGURA? E SENZA
FARE DANNI?


title: couldn't find installable ISAM

author: warp

text:
"Fabio" <>

Facendo un'installazione completa di Access.
Il file che cerchi è msexcl35.dll se utilizzi A '97, msexcl40.dll con A>97.
Se rilevi che sul tuo PC è già presente prova a registrarlo a mano
utilizzando la utility di sistema regsvr32
Ciao, Silvio


title: Query di selezione e raggrupamento

author: MM

text:
Ciao a tutti,
Ho un problema.
Ho due tabelle, una si chiama  "Impianto Termico" e l'altra si chiama
"Interventimanevar"
Queste due tabelle sono relazionate tra loro nel seguente modo :
Impianto Termico ...relazione tramite IDImpiantoTermico....uno a molti
....con IDImpiantoTermico della tabella Interventimanevar
Praticamente ogni impianto può avere più interventi (Interventi di
manutenzione oppure Interventi vari).
Il tipo di intervento viene memorizzato nella tabella Interventimanevar
tramite il campo "Codice" dove "0 = Interventi Vari" e "1= Interventi di
manutenzione"
La Tabella Impianto Termico è a sua volta relazionata con la Tabella
Clienti.
Praticamente un Cliente può avere molti impianti termici (relazione uno a
molti)
Supponiamo di avere i seguenti dati nella tabella InterventiManeVar :
IDCliente        IDImpianto termico        Datamanevar            Codice
---------------------------------------------------------------------------
    1                                1                        13/07/2000
1
    1                                1                        15/07/2001
1
    1                                2                        12/06/2000
1
    1                                2                        12/08/2001
1
Io devo creare una query parametrica che mi chieda che mese/anno cercare tra
tutte le manutenzioni (codice = 1)
e succesivamente visualizzare i risultati.
Per capire meglio io inserisco per la data di ricerca i seguenti dati   :
08/2001
La query mi dovrebbe restituire come risultato (considerando la tabella di
esempio qui riportata)
solo l'intervento del IDCliente =1 ; IDImpiantoTermico = 2 ; DataManeVar =
12/08/2001
Se inserivo per la ricerca i seguenti dati :  07/2001
La query parametrica dovrebbe restituirmi i seguenti risultati :
IDCliente = 1         IDImpianto termico  =  1     Datamanevar =
15/07/2001      Codice =   1
Quello che la query deve fare è visualizzare gli interventi di manutenzione
effettuati per la data ricercata , analizzando i seguenti dati :
Ragruppare i clienti e i loro relativi impianti e specificare per ogni
impianto la data dell'ultimo intervento di manutenzione.
Qualcuno mi sa aiutare ???


title: Query di selezione e raggrupamento

author: Antonio Biso

text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:Ezg39.37017$lu5.1...@twister1.libero.it...
> Ciao a tutti,
Co stò caldo solo Roberto dal portatile avrebbe la pazienza di leggerti ...
e risponderti.
Saluti: Antonio
P.S: raggruPPamento con due P!


title: strano comportamento di funzione shell qualcuno mi illumina

text:
ho creato un file scomp.bat che contiene questo comando
C:\Progra~1\pippo\Easy30~1\varie\pkunzip.exe -o
C:\Progra~1\pippo\Easy30~1\varie\listinoM.zip
eseguito in windows con doppio click fà quello che deve fare ovvero
decomprime il file listinoM.zip
se invece
eseguo tale file da vba in access in questo modo
        Dim retVal As Variant, strCmd As String
        strCmd = "C:\Progra~1\pippo\Easy30~1\varie\decomp.bat"
        retVal = Shell(strCmd, vbNormalNoFocus)
non accade nulla, ma non dà nemmeno errore. qualcuno sà illuminarmi? grazie.


text:
ho modificato il codice cosi per semplicità
            lngRetVal = URLDownloadToFile(0,
"
http://www.pippo/listino/listinoM.zip
", "C:\listinoM.zip", 0, 0)
            DATA = DATE
            Dim retVal As Variant, strCmd As String
            strCmd = "c:\pkunzip.exe -o listinoM.zip"
            retVal = Shell(strCmd, vbHide)
il file viene scaricato in c:\ ma non viene decompresso, se inviece apro in
windows istart\esegui e ci incollo la stringa
"c:\pkunzip.exe -o listinoM.zip" e faccio ok, il file viene decompresso.
hoprovato anche con vbnormal al posto di vbhide ma a parte il fatto che si
vede la finestra nera di dos mentre lavora
non cambia nulla, il file non se ne vuole uscire dal file zip.
mi sapete aiutare?


author: stefano (kabisa)

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:bnikdp$o69$1...@lacerta.tiscalinet.it...

Hai provato l'utilità di compressione e decompressione file zip che c'è sul
sito comune
nom mi ricordo il nome esatto ma l'avevo provata e funzionava bene
stefano


title: Macro da Codice

author: Lna

text:
Ciao ragazzi,
volevo sapere se esiste una maniera di inserire/modificare una riga di
comando all'interno di una macro già esistente tramite codice.
Vi ringrazio in anticipo e vi saluto.
Lna
--------------------------------
Inviato via
http://usenet.libero.it


title: Macro da Codice

author: MA

text:
Il 08 Apr 2003, 12:41,
leonardo...@dietsmann.com
 (Lna) ha scritto:
> Ciao ragazzi,
> volevo sapere se esiste una maniera di inserire/modificare una riga di
> comando all'interno di una macro già esistente tramite codice.
> Vi ringrazio in anticipo e vi saluto.
> Lna
Nella task delle macro usa strumenti-macro-converti in vba.
Lì hai la macro scitta in codice e puoi fare quello che vuoi.
ciao MAssimiliano



title: Macro da Codice

text:
Il 08 Apr 2003, 12:45,
massimilia...@kksrl.com
 (MA) ha scritto:
> Il 08 Apr 2003, 12:41,
leonardo...@dietsmann.com
 (Lna) ha scritto:
> > Ciao ragazzi,
> > volevo sapere se esiste una maniera di inserire/modificare una riga di
> > comando all'interno di una macro già esistente tramite codice.
> > Vi ringrazio in anticipo e vi saluto.
> > Lna
>
> Nella task delle macro usa strumenti-macro-converti in vba.
> Lì hai la macro scitta in codice e puoi fare quello che vuoi.
> ciao MAssimiliano
Inanzitutto grazie infinite per l'aiuto, già questo mi ha risolto un
problemino. Ora immaginate che io sia l'utente che utilizza una form per
fissare dei parametri che mi creano, via codice, una query. Il vero problema
è questo: come faccio ad aggiungere la nuova query appena creata,
all'interno di una macro già esistente ? Vi ringrazio ancora per i vostri
sempre preziosi suggerimenti. Naturalmente sono ben accette anche diverse
soluzioni.
Saluti Lna



title: Macro da Codice

text:

Che devi ottenere? Da dove parti?
così com'è è difficile aiutarti
ciao MAssimiliano



title: Macro da Codice

text:

Scusa se non mi sono spiegato bene. Cerco in poche parole di farti capire il
giro (non so se è un'idea giusta, ma questa mi è venuta):
Ho 3 tabelle importate da Excel, TBL1, TBL2 e TBL3; Ho 3 query QRY1 (origine
dati TBL1), QRY2 (origine dati TBL2) e QRY3 (origine dati TBL3); Ho una
Macro MCR1 al cui interno vengono eseguite QRY1, QRY2 e QRY3. Ora potrebbe
nascere la possibilità di importare una TBL4 da Excel. Per rendere la cosa
automatica, utilizzo una form dove passo il nome della nuova tabella da
importare e mi creo QRY4. Domanda: Come faccio ad aggiungere questa QRY4
alla macro MCR1, via codice.
Spero di essermi spiegato e comunque ti ringrazio lo stesso del tuo aiuto.
Ciao
Lna



title: Macro da Codice

text:

Allora per esegiure una query ci sono diversi modi. Quello più comodo per te
è quello di identificare il nome della query nel modo in cui hai fatto tu
(anche se io ti suggerirei una casella combianta che va a pescare le query
presenti nel db, cmq) e farla eseguire: cioè riutilizzare la sintassi per
far eseguire query diverse.
Se tu ti affidi all'autocomposizione, in varie trovi anche esegui query. La
sintassi del pulsante creato opera questi passaggi
ti dichiara una variabile
associa la variabile alla query che ti interssa
esegue la query
in pratica:
dim StDocName
StDocName = qui tu ci metti il nome che viene fuori dalla casella combinata
oppure quello che hai digitato tu
docmd.openquery Stdocname etc.
> Ciao
> Lna
Potevi presentarti prima, io conosco tuo fratello: Dna.
E' eccezionale, per me è vitale!!!
Facci sapere
ciao MAssimiliano



title: Numerazione crescente

author: Ciccio

text:
Salve,
ringrazio Alessandro Baraldi per l'interessamento che mi ha dimostrato nel
vecchio post di qualche giorno fa riguuardo alla mia necessità di avere un
campo simile al contatore la cui numerazione non fosse 1,2,3,4,+1 ma
00001,00002,00003,+1, ecc.
Ho provato a spulciare sul vostro sito comune e sempre ritornavo alla
numerazione crescente per le fatture o altro.
Vi premetto che non ho gran conoscenza sul creare funzioni in Access, per
questo vi chiedo un piccolo aiuto e pazienza.
Ecco cosa ho fatto:
- Ho cambiato il "tipo dati campo" da contatore a testo
- Ora mi devo creare una funzione del tipo:
    dim Progressivo as string
    Progressivo=Format(DMAX(vedi Help)+1,"000000")
ma in quale campo devo inserirla? In "Formato" o "Maschera di input"?
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel
messaggio
news:wQQ4d.19896$B06....@news.edisontel.com...

E l'anno prossimo come fai???
Salva il dato in quel modo e sulla fattura e nella
maschera visualizzi solo il numeratore.
Basta un right(tuonumeratore;4)
MAssimiliano


title: Numerazione crescente

text:
No, aspetta, io con questo campo ho solo bisogno di avere una numerazione
crescente (niente numerazione fatture divise per anni o altro) simile al
contatore.
Il contatore però aumenta con 1 , 2 , 3 ecc, io ho bisogno che aumenti ma
semplicemente con un formato diverso, del tipo 00001, 00002, ecc.
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel
messaggio
news:LkR4d.19907$B06....@news.edisontel.com...

Allora metti nel formato del campo contatore
000000.
Direttamente in tabella
Massimiliano


title: Numerazione crescente

text:
Questo però è solo un settaggio di visualizzazione.
Questo dato poi lo estraggo dal DB e lo visualizzo su una pagina web, così
facendo la visualizzazione resta cmq 1,2,3.
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel
messaggio
news:7uR4d.19910$B06....@news.edisontel.com...
> Questo perň č solo un settaggio di
visualizzazione.
> Questo dato poi lo estraggo dal DB e lo
visualizzo su una pagina web, cosě
> facendo la visualizzazione resta cmq 1,2,3.
Quando lo estrai ci metti Format(tuocontatore;
"000000")
Altrimenti ci metti un campo calcolato
me.Tucampo = Format(tuocontatore; "000000")
e usi il contatore come vuoi tu
MAssimiliano


title: Numerazione crescente

text:
>
> Quando lo estrai ci metti Format(tuocontatore;
> "000000")
> Altrimenti ci metti un campo calcolato
>
> me.Tucampo = Format(tuocontatore; "000000")
> e usi il contatore come vuoi tu
> MAssimiliano
>
In entrambi i casi tu fai riferimento alla visualizzazione dopo averli
estratti.
Non è possibile farlo direttamente nel campo della tabella? in modo che sia
sempre salvato come 00001, 0002, ecc.
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel
messaggio
news:o3S4d.19919$B06....@news.edisontel.com...

Hai settato il secondo campo come Testo???
Altrimenti perderai sempre gli zero
Massimiliano


title: Numerazione crescente

author: Alessandro Baraldi

text:
"Ciccio" <
ciccio...@hotmail.com
> wrote in message
news:o3S4d.19919$
B06....@news.edisontel.com
[CUT]
> In entrambi i casi tu fai riferimento alla visualizzazione dopo averli
> estratti.
> Non è possibile farlo direttamente nel campo della tabella? in modo che sia
> sempre salvato come 00001, 0002, ecc.
>
> Ciao
Io farei così:
Dato il campo Progressivo [TESTO] devi ricorrere
alla Funzione DMAX()+1 per incrementarlo, ma ovviamente
trovi difficoltà essendo testo:
 Format(cstr(Clng(DMAX(.....))+1),"000000")
In questo modo mantieni il formato Originale, lo
converti in Long solo per generare il progressivo
quindi riconverti in stringa e lo Formatti.
Ciao
Alessandro
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Numerazione crescente

text:
Ciao Alessandro,
vorrei impostare il lavoro come mi avevi consigliato qualche giorno fa:
dim Progressivo as string
    Progressivo=Format(DMAX(vedi Help)+1,"000000")
ma non so dove inserire la funzione, in "formato" o in "maschera di input".
Sono una schiappa lo so, vi chiedo solo un piccolo aiuto, sono un neofita.
Saluti


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> wrote in message
news:lDS4d.19930$
B06....@news.edisontel.com

Function retProgress() as string
    retProgress=Format(cstr(Clng(DMAX(.....))+1),"000000")
End Function
Metti la funzione in un Modulo e completa la sintassi
nella Funzione DMAX relativamente all'origine dati Tabella
e Campo.
Metti come Valore PRedefinito del Controllo associato al
Progressivo la Funzione:
=retProgress()
Ad ogni aggiunta il controllo richiamerà la funzione calcolando
il progressivo e inserendolo nella tabella al salvataggio.
Spero di averti chiarito meglio.



title: Numerazione crescente

text:
Scusa Alessandro, vorrei andare passo per passo:
- ora ho creato la funzione retProgress() dentro ad un modulo che ho
chiamato "Incremento"
- l'ho copiata esattamente come mi hai scritto tu, però è sbagliato.
- Come devo cambiare la sintassi?
La mia tabella si chiama "Orders" e il campo che deve incrementarsi
"order_id" ed ora ha come tipo dati "Testo", il DB si chiama "storeDB"
Potrò rileggere solo dopo le 18, scusa per le mie incapacità.
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> wrote in message
news:dYT4d.19948$
B06....@news.edisontel.com

Fondamentalmente devi leggere l'HELP per capire come usare
la Funzione DMAX è decisamente più istruttivo che fare un
copia/Incolla....!
Nella funzione DMAX devi inserire come ti indica l'HELP
i riferimenti alla Tabella ed al campo, il resto è
come ti dicevo.



title: Numerazione crescente

author: Zef

text:
>Ho provato a spulciare sul vostro sito comune e sempre ritornavo alla
>numerazione crescente per le fatture o altro.
>Vi premetto che non ho gran conoscenza sul creare funzioni in Access, per
>questo vi chiedo un piccolo aiuto e pazienza.
>
>Ecco cosa ho fatto:
>- Ho cambiato il "tipo dati campo" da contatore a testo
>- Ora mi devo creare una funzione del tipo:
>    dim Progressivo as string
>    Progressivo=Format(DMAX(vedi Help)+1,"000000")
>ma in quale campo devo inserirla? In "Formato" o "Maschera di input"?
se quanto sopra fa al caso tuo ...
basta inserirla nel "valore predefinito" (Maschera)
ciao, Zef


title: Numerazione crescente

text:
Ho variato così:
Function retProgress() as string
    retProgress=Format(cstr(Clng(DMAX("order_id";"Orders"))+1),"000000")
End Function
L'ho salvata in un modulo VB come "Incremento".
Vado sul campo order_id e nel "valore predefinito" ho scritto =retProgress()
E a questo punto mi esce tale errore:
Funzione "retProgress" sconusciuta nell'espressione di convalida o nel
valore predefinito di "Orders.order_id"
Che vuol dire?


title: Numerazione crescente

author: ALESSANDRO Baraldi

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel messaggio
news:MMY4d.20026$B06....@news.edisontel.com...
> Ho variato cosě:

Probabilmente c'č un'errore di estrazione dati, ma mi pare tu abbia
eliminato
la conversione STRINGA che avevo inserito io..... oltretutto serve la
VIRGOLA
non il PUNTO_VIRGOLA
In ogni caso c'č il Debug con la finestra Immediata da usare per vedere se
funziona
senza lanciare la Form.....:
    FinestraImmediata=CTRL+G
            Digita    ?retProgress()
            ...... dovrestio vedere il risultato se funziona
Function retProgress() as string
    retProgress=Format(cstr(Clng(NZ(DMAX("order_id","Orders"))+1),"000000"))
End Function
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Numerazione crescente

author: Cinzia

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cj1m2l$4gr$1...@lacerta.tiscalinet.it...

Probabilmente manca anche Public davanti a Function per poterla richiamare
in una maschera se l'ha messa in un modulo esterno.
Public Function retProgress() as string
retProgress=Format(cstr(Clng(NZ(DMAX("order_id","Orders"))+1),"000000"))
 End Function
Ciao
Cinzia


title: Numerazione crescente

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:cj1qs0$831$1...@lacerta.tiscalinet.it...
[CUT]
> Probabilmente manca anche Public davanti a Function per poterla richiamare
> in una maschera se l'ha messa in un modulo esterno.
>
> Public Function retProgress() as string
>
> retProgress=Format(cstr(Clng(NZ(DMAX("order_id","Orders"))+1),"000000"))
>  End Function
>
> Ciao
> Cinzia
Ciao Cinzia.
In realtà l'omissione di Public rende la Funzione Public solo
all'interno del Database ugualmente.
Intendo che non verrebbe vista se chiamata come Metodo
dall'esterno, ma dall'interno non fà differenza.
Ciao-



title: Numerazione crescente

text:
Ciao Alex,
ho fatto il debug nella finestra immediata del modulo e mi indica un errore
di compilazione su:
Function retProgress() as string
    retProgress=Format(cstr(Clng(NZ(DMAX("order_id","Orders"))+1),"000000"))
End Function
Alla seconda riga (infatti mi resta evidenziata in rosso), eppure io l'ho
ricopiata come mi hai detto


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel messaggio
news:0xa5d.20131$B06....@news.edisontel.com...

Ha ragione lui...... c'è un errore di sintassi....... in realtà ho fatto
un pò di confusione con le PARENTESI....!
Così l'ho provata e funziona.
Function retProgress() As String
    retProgress = Format(CStr(CLng(Nz(DMax("order_id", "Orders")) + 1)),
"000000")



title: Numerazione crescente

text:
Ciao Alex, ancora qualche problema:
- nel modulo tutto dovrebbe essere a posto e l'ho salvato correttemente
- poi vado ad inserire nel campo "Valore predefinito" nel campo "order_id"
la dicitura "=retProgress()"
- al momento del salvataggio mi esce "funzione retProgress sconosciuta
nell'espressione di convalida o nel valore predefinito di Orders.order_id"
Che problema è ?


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel messaggio
news:p7i5d.20225$B06...@news.edisontel.com...

Guarda quando ti dissi che ho provato e funziona intendevo PROVATO TUTTO
e ti assicuro che da me non dà problemi....!
Il Campo "order_id" nella tua Tabella è di tipo TESTO.....??????????
Del resto deve andare.



title: Numerazione crescente

text:
Si, certo il campo è Testo, il resto dei "settaggi" del campo sono i
classici (tipo richiesto=NO, indicizzato=SI, ecc.), order_id è anche una
chiave primaria
Io uso Access 2002.
Ma il problema resiste !!
Comunque io la finzione la richiamo nel "Valore predefinito" con
=retProgress()
Non hai proprio idea dove può essere il problema?
Ciao.


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel messaggio
news:9qw5d.20331$B06....@news.edisontel.com...

No perchè ho fatto tutto quanto hai detto per provare e con A2002
funziona.....!!
Non è che la Maschera pesca da una Query o che ci sono altri voncoli
sulla generazione del CODICE come RELAZIONI con altre Tabelle...??
Ciao



title: Numerazione crescente

text:
La tabella Orders č relazionata con quella  Prodotti e Utenti, ma non
direttamente con il campo order_id.
Ho anche una query "ordini in corso" che pesca solo le righe di ordine con
determinate caratteristiche, quelli aperti appunto.
Questa č l'ultima cosa che ti posso dire, poi non ti rompo piů le
cosiddette.
Ciao


title: Numerazione crescente

text:
"Ciccio" <
ciccio...@hotmail.com
> ha scritto nel messaggio
news:q2x5d.20338$B06....@news.edisontel.com...

Non stai assolutamente sompendo nulla....., solo non saprei
cosa consigliarti.
Come ti dicevo da me funziona, pertanto deve dipendere da
iterazioni con quanto hai nel tuo progetto.



title: Dato il nome torno l'elemento...

text:
Ciao a tutti,
Ho questo problema:
in una maschera ho 10 campi testo chiamati s1, s2, ..., s10.
condizionati da un valore nVal, nel senso che se nVal =3 dovranno essere
abilitati S1, s2, s3, se nval =1 abilito solo s1 per far cio'
all'apertura della maschera faccio un ciclo
For i=0 to nVal
    testo_da_abilitare = "s" &i+1
    testo_da_abilitare.Locked = True
Next
ma ovviamente la stringa nonostante contenga il nome del campo in
maniera corretta non fa riferimento al campo testuale.
Esiste una funzione che dato il nome torna l'oggetto?
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Dato il nome torno l'elemento...

author: ramblers

text:
"Ale.Sc" <
ale...@bigfoot.com
> ha scritto nel messaggio
news:3a1e9ae79fb44b4a096...@mygate.mailgate.org...

Usa Me(testoDaAbilitare).locked = true
ciao.


title: Dato il nome torno l'elemento...

text:
"Ale.Sc" <
ale...@bigfoot.com
> ha scritto nel messaggio
news:3a1e9ae79fb44b4a096...@mygate.mailgate.org...
> Ciao a tutti,
>
> Ho questo problema:
> in una maschera ho 10 campi testo chiamati s1, s2, ..., s10.
> condizionati da un valore nVal, nel senso che se nVal =3 dovranno essere
> abilitati S1, s2, s3, se nval =1 abilito solo s1 per far cio'
> all'apertura della maschera faccio un ciclo
> For i=0 to nVal
>     testo_da_abilitare = "s" &i+1
>     testo_da_abilitare.Locked = True
> Next
>
> ma ovviamente la stringa nonostante contenga il nome del campo in
> maniera corretta non fa riferimento al campo testuale.
For i=0 to nVal
   for each ctl in me.controls
     if
ctl.name
 = "s" & i then
      ctl.Locked = True
   Next
next  i
Antonio


title: Background color in mashera a schede

author: Luciano

text:
ciao
sto implementando una maschera a schede (Access 2003) ed ho un problema con
il colore di fondo delle pagine. Di default è un bianco sporco, si nota
perche mettendoci una subform senza cornici varie e dando a questa lo sfondo
bianco risulta più bianco di quello della mashera. La prima domanda è: ma si
può modificare lo sfondo di un foglio di una maschera a schede? Sembra di no
dalle proprietà. La seconda è: ma almeno si riesce ad individuarne il codice
numerico in modo da dargli lo stesso codice tramite la proprietà
DatasheetBackColor alla subform? A me va bene tutto, basta che riesco a
dargli lo stesso colore. Adesso sembra una toppa malmessa.
grazie mille.


title: Background color in mashera a schede

author: Roberto da casa

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:8bvkd.304357$35.13...@news4.tin.it...

Prova avedere se trovi una soluzione al tuo problema sul Sito Comune (link
qui sotto), nella Sezione Forms, nella FAQ di Silvio Savoldi intitolata
"Esempi di strutture a schede colorate, nidificate e verticali".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Background color in mashera a schede

author: Karl Donaubauer

text:

Il bianco si vede se è attivato il WinXP design per controlli.
Puoi lo spegnere nel menu Strumenti/Opzioni col'ultima
opzione sulla scheda Maschere/Report.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Repliche in access 2000 e MSDE

author: Stefano Bonnini

text:
Ciao a tutti.
                        Sto sviluppando un progetto web che utilizza come
database server un computer su cui è installato Windows 2000 Professionale e
Access 2000 con MSDE.
Per lo sviluppo dell'applicazione utilizzo un portatile con configurazione
assolutamente identica.
Vorrei sapere come fare per riprodurre la struttura del database, progettato
sul database server, sul database presente nel computer utilizzato per lo
sviluppo.
Colgo l'occasione per salutare tutti visto che questo è il mio primo
messaggio al newgroup.
Ciao.
Stefano Bonnini


title: Repliche in access 2000 e MSDE

author: MegaMax

text:
> Vorrei sapere come fare per riprodurre la struttura del database,
progettato
> sul database server, sul database presente nel computer utilizzato per lo
> sviluppo.
Un'idea da chi non sa usare MSDE.
Credo esista un modo per fare un backup del DB, quindi potresti backupparlo
sul portatile e ripristinarlo sul server.
Max


title: Ve lo devo far sapere....

author: bc

text:
Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
famiglia ...
per cui .... ve lo faccio sapere!
      Cesare Briglia
     Maria Teresa Riccardelli
      annunciano  il  loro matrimonio
      Chiesa di S. Biagio, Marina di Minturno
      29 luglio 2000, alle ore 17.00
      Marina di Minturno
      via  Zeccarelle  n. 58
      tel. 0771 65372
      Minturno
      via  S. Maria  Mater  Domini n. 30
      tel. 0771 682560


title: Ve lo devo far sapere....

author: Federico Luciani

text:
bc wrote:
> Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>      Cesare Briglia
>      Maria Teresa Riccardelli
>      annunciano  il  loro matrimonio
Naturalmente, TANTI AUGURI
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Ve lo devo far sapere....

author: kiccobaua

text:
tanti auguri
bc <
bce...@tiscalinet.it
> wrote in message
8lcn2i$ui0$1...@lacerta.tiscalinet.it...
> Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>
>
>
>       Cesare Briglia
>      Maria Teresa Riccardelli
>
>
>       annunciano  il  loro matrimonio
>



title: Ve lo devo far sapere....

author: Roberto

text:
Tanti Auguri!!! : )
"bc" <
bce...@tiscalinet.it
> ha scritto nel messaggio
news:8lcn2i$ui0$1...@lacerta.tiscalinet.it...



title: Ve lo devo far sapere....

author: Roberto dal portatile

text:
SICERI AUGURI PER TANTA FELICITA'.
Roberto
"bc" <
bce...@tiscalinet.it
> ha scritto nel messaggio
news:8lcn2i$ui0$1...@lacerta.tiscalinet.it...
> Scusate, però a forza di frequentare il Ng mi sembrate tutti un po' di



title: Ve lo devo far sapere....

author: RoDAgo

text:
"bc"  ha scritto nel messaggio ...
> Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>       Cesare Briglia
>      Maria Teresa Riccardelli
>       annunciano  il  loro matrimonio
[cut]
Ma allora il folle non sono solo io!  :))
Una vagonata di Auguri!!!!!
RoDAgo


title: Ve lo devo far sapere....

author: Sib

text:
Lunga vita e prosperita'.
Tanti Auguri.
Sib
"bc" <
bce...@tiscalinet.it
> ha scritto nel messaggio
news:8lcn2i$ui0$1...@lacerta.tiscalinet.it...
> Scusate, però a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>
>
>
>       Cesare Briglia
>      Maria Teresa Riccardelli
>
>
>       annunciano  il  loro matrimonio
>



title: Ve lo devo far sapere....

author: Tucano

text:
bc <
bce...@tiscalinet.it
> wrote:
>       Cesare Briglia
>      Maria Teresa Riccardelli
>       annunciano  il  loro matrimonio
Auguri :)
Tucano


title: Ve lo devo far sapere....

text:
Ciao
AUGURI E CYBERFIGLI MASCHI
--
------------------------------
Timeo Danaos sed dona ferentes (Omero)
------------------------------
bc <
bce...@tiscalinet.it
> wrote in message
8lcn2i$ui0$1...@lacerta.tiscalinet.it...
> Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>
>
>
>       Cesare Briglia
>      Maria Teresa Riccardelli
>
>
>       annunciano  il  loro matrimonio
>



title: Ve lo devo far sapere....

author: lbo dal portatile

text:
>>       annunciano  il  loro matrimonio
>[cut]
>
>Ma allora il folle non sono solo io!  :))
ao', basta che ce invitate a magna'...
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Ve lo devo far sapere....

author: Sergio MAZZA

text:
"bc" <
bce...@tiscalinet.it
> ha scritto nel messaggio
news:8lcn2i$ui0$1...@lacerta.tiscalinet.it...
> Scusate, perň a forza di frequentare il Ng mi sembrate tutti un po' di
> famiglia ...
> per cui .... ve lo faccio sapere!
>
>
>
>       Cesare Briglia
>      Maria Teresa Riccardelli
>
>
>       annunciano  il  loro matrimonio
>
>       Chiesa di S. Biagio, Marina di Minturno
>
>       29 luglio 2000, alle ore 17.00
>
>
>
>       Marina di Minturno
>
>       via  Zeccarelle  n. 58
>
>       tel. 0771 65372
>
>
>       Minturno
>       via  S. Maria  Mater  Domini n. 30
>       tel. 0771 682560
>
>
>
>
>
>
Direi che č uno dei piů belli OT...
Auguri!


title: Ve lo devo far sapere....

author: togliere]@tiscalinet.it VT @ home

text:
E i confetti ?
AUGURI !


title: Ve lo devo far sapere....

author: Tore Marche

text:
Auguroni,!!!!!!!!!!!!!!!!!!!!!!!!!!!! Access2000!!!!!!!!!!!!!!!!!!!!!!!
bc ha scritto:



title: [?] Non c'è un NG x EXCEL?

text:
v. ogg.
--
<***********************************>
Vigna Federico...CED L'Abbondanza
Email:
in...@labbondanza.it
Http:
www.labbondanza.it
<***********************************>


title: [?] Non c'è un NG x EXCEL?

author: Umberto

text:
A quanto pare no, quindi ho sempre letto e chiesto in merito in
it.comp.os.win.software


title: COSA ASPETTI????????

author: TM


title: Casella combinata e carattere ' (apice)

author: Enzo Radice Sola

text:
Private Sub CasellaCombinata133_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Me.Corpo.Visible = True
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Key_Trova] = '" & Me![CasellaCombinata133] & "'"
    Me.Bookmark = rs.Bookmark
End Sub
Se nel campo [Key_Trova] esiste il carattere  '  (apice) la routine va in
errore di sintassi.
Mi sembra che si dovrebbe il carattere ' (apice) della routine con il
corrispondente codice ASCII nella riga:  rs.FindFirst "[Key_Trova] = '" &
Me![CasellaCombinata133] & "'"
Ho provato, ma non ci sono riuscito
Grazie.
Enzo


title: Casella combinata e carattere ' (apice)

author: namor

text:
Enzo Radice Sola ha scritto:

>     Dim rs As Object

> End Sub


Mettici i doppi apici, se non hai doppi apici nella stringa di ricerca.
rs.FindFirst "[Key_Trova] = """ & Me![CasellaCombinata133] & """"
Namor
--

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


title: Casella combinata e carattere ' (apice)

author: Roberto da casa

text:
"Enzo Radice Sola" <
enzor...@tiscalinet.it
> ha scritto nel messaggio
news:bku8tv$qsn$1...@lacerta.tiscalinet.it...

Prova cosě:
rs.FindFirst "[Key_Trova] = " & Chr$(34) & Me![CasellaCombinata133] &
Chr$(34)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Evento click che si ripercuote sulla maschera sottostante

author: Frank

text:
Il titolo non riesce a descrivere il problema, che è questo:
Ho una maschera PopUp che si apre con un doppio click da un campo note
di una maschera continua per visualizzare alcuni dettagli.
La maschera si apre al centro, per cui capita sulle colonne e righe
della sottostante. Quando premo il tasto Esci della PopUp, mi crea un
effetto strano. Infatti il Click sul bottone, si ripercuote sulla
maschera sottostante e va a focalizzare la colonna della riga che è
capitata sotto il bottone della PopUp che ho chiuso.
E' possibile cancellare l'evento del mouse dopo la pressione, per
evitare questo ?


author: Alessandro Baraldi

text:

Hai messo uno spazio nella proprietà HyperLink...?
Si vero...
E' normale.
@Alex


title: fattura elettronica - arrotondamento

author: mario rossi

text:
qualcuno sa aiutarmi su come gestire il tag arrotondamento in dati riepilogo che è obbligatorio se sono stati effettuati degli arrotondamenti?

grazie.


title: fattura elettronica - arrotondamento

text:
Il giorno venerdì 9 novembre 2018 22:35:00 UTC+1, mario rossi ha scritto:
> qualcuno sa aiutarmi su come gestire il tag arrotondamento in dati riepilogo che è obbligatorio se sono stati effettuati degli arrotondamenti?
>
> grazie.

la domanda è : come capisco se sono stati fatti degli arrotondamenti e una volta capito cosa indico nel tag arrotondamento che in quel caso diventa obbligatorio?


title: fattura elettronica - arrotondamento

text:

sulla guida ADE dice questo:
l’arrotondamento degli importi, se necessario, deve sempre seguire la regola che lo prevede per eccesso se la cifra immediatamente successiva a quella da arrotondare è pari o maggiore di 5, per difetto se è inferiore a 5;
per arrotondare alla seconda cifra decimale, si considera la terza cifra decimale:
1400.0352 diventa 1400.04 1400.0349 diventa 1400.03

ma come capisco se access a eseguito un arrotondamento ovvero come controllo se ci sono altre cifre oltre alla 2 decimale in modo da poter decidere se l'importo è stato arrotondato per eccesso o per difetto?

grazie.


title: fattura elettronica - arrotondamento

text:

dice poi sempre la guida ADE per i dati riepilogo fattura:  (voi come fareste?consigli?) grazie.

[2.2.2.4 ] Arrotondamento
Obbligatorietà: SI, ma solo se è stato operato un arrotondamento per arrivare a determinare l’imponibile.

Utilità: serve a dare evidenza dell’eventuale arrotondamento operato nel passaggio da un valore con più di due cifre decimali (quello derivante dalla somma dei valori del campo PrezzoTotale (2.2.1.11) di ogni riga di dettaglio accomunati da stessa aliquota IVA o da stessa natura) ad un valore con due sole cifre decimali (quello del campo ImponibileImporto (2.2.2.5)). Nel campo deve essere indicato il valore dell’arrotondamento e non il valore dell’ ImponibileImporto (2.2.2.5) arrotondato.
Criteri di valorizzazione: il campo deve contenere un valore numerico rappresentato da un intero e da un massimo di otto cifre decimali. In caso di arrotondamento per difetto è preceduto dal segno meno (“-“).


title: Stringhe SQL in VB

author: Valtinoni Amilcare

text:
Ciao a tutti!
Sapreste indicarmi una utility che da una istruzione SQL ricava la
corrispondente stringa da usare in VB o VBA?
Grazie.


title: Stringhe SQL in VB

author: Alex

text:
"Valtinoni Amilcare" <
amil...@inwind.it
> wrote in message
news:9th842$tff$1...@nreadb.inwind.it...

Forse ti do una risposta scontata, ma hai provato con l'editor di QUERY
in Visualizzazione SQL...???
@Alex
--
Posted from  [62.98.31.167]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Stringhe SQL in VB

text:
> > Ciao a tutti!
> > Sapreste indicarmi una utility che da una istruzione SQL ricava la
> > corrispondente stringa da usare in VB o VBA?
> >
> > Grazie.
>
>
> Forse ti do una risposta scontata, ma hai provato con l'editor di QUERY
> in Visualizzazione SQL...???
La sto cercando anchio questa utility, ma sto seriamente pensando di farmela
da me con un AddIn di VB.
Ciao


title: Stringhe SQL in VB

author: Antonio Biso

text:
Valtinoni Amilcare <
amil...@inwind.it
> wrote in message
9th842$tff$1...@nreadb.inwind.it...

Che cosa si intende per corrispodente sstringa vb da istruzione SQL?
Antonio


title: Stringhe SQL in VB

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
cUdL7.153824$sq5.7...@news.infostrada.it...

> Ciao Antonio.
Intendevo la questione degli apici e delle concatenazioni nelle clausole
WHERE quando si porta l'istruzione SQL all'interno di codice che usa ADO o
ADO.
Scrivi sul NG, per favore...
Aaahhh, quindi tu intendi un'utility automatica che faccia quello che
normalemnte si fa a mano e con pazienza?
Hmmm....magari ci fosse...
Antonio


title: Stringhe SQL in VB

author: The-real-Isaac

text:
"Valtinoni Amilcare" <
amil...@inwind.it
> ha scritto nel messaggio
news:9th842$tff$1...@nreadb.inwind.it...

Access97-Manuale di programmazione (recensione anche nel sitocomune).
Nel CD allegato, esempi riferiti al capitolo 6, esiste un piccolo mdb con
una maschera (zsfrmSQLVBA) che dovrebbe proprio fare al caso tuo. Io te la
manderei anche, ma credo ci siano questioni di diritto d'autore ...
Ciao
--
Alberto


title: query di aggiornamento con criteri.

author: Giovanni D'Orsi

text:
Win 98/A00
Oggetto query di aggiornamento con criteri.
Salve a tutti.
Avrei bisogno di scrivere una query SQL di aggiornamento la cui funzionalità
sia quella di estrarre tutti i caratteri a sinistra del CAP e metterli in un
campo, la stessa cosa per quelli a destra del CAP da mettere in un altro
campo. Alla fine avrò tre campi: il primo che contiene l'indirizzo, il
secondo il CAP, il terzo la città.
In pratica si dovrebbe usare la sequenza dei cinque numeri componenti il CAP
come cerniera per separare il resto dell'indirizzo.
Es. Campo di partenza contiene
VIA MUSATORRE, 98 89063 MELITO PORTO SALVO RC
dopo la query di aggiornamento,
campo Indirizzo conterrà
VIA MUSATORRE, 98
campo CAP conterrà 89063
campo Città conterrà
 MELITO PORTO SALVO RC
Ringrazio chi vorrà gentilmente rispondermi
Giovanni


title: query di aggiornamento con criteri.

author: VT @ Work

text:
On Fri, 21 Sep 2007 11:35:44 +0200, "Giovanni D'Orsi"
<
giovan...@fastwebnet.it
> wrote:
 (...)

Credo che con una query sia di fatto impossibile individuare il CAP,
dato che compare in posizione variabile nelle varie stringhe.
Usando VBA il discorso cambia.
Infatti potresti scorrere la tabella applicando la funzione Split,
basata sul carattere spazio, al campo che contiene l'indirizzo.
A questo punto potresti ciclare sugli elementi del vettore risultante
dalla Split, individuando l'elemento che contiene una stringa di
cinque caratteri il cui Val restituisce un valore maggiore di zero.
Ciò fatto, con la funzione Instr puoi ricavare la posizione di tale
stringa all'interno del campo indirizzo ed a questo punto puoi
procedere a dividerla usando la funzione Mid$.
>Ringrazio chi vorrà gentilmente rispondermi
>Giovanni
>
>
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

---------------------------------------------
risorse Access:
http://www.accessgroup.it

---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com

---------------------------------------------


title: Campo con delimitatori: creazione nuovi record

author: Tinset

text:
In un campo vengono inseriti sullo stesso record più codici delimitati da un
";".
Esempio:
CAMPO1                            CAMPO2
      A                                    pane; farina; latte;
      B                                    pesce; uova;
      C                                    carne; burro;
Vorrei creare una nuova tabella in cui per ogni valore racchiuso tra ";"
nasca un nuovo record:
 CAMPO1                           CAMPO2
      A                                    pane
      A                                    farina
      A                                    latte
      B                                    pesce
      B                                    uova
      C                                    carne
      C                                    burro
Qualcuno pùo aiutarmi?
Grazie


author: MA

text:

Dunque vai sul sitocomune e guardati come dividere un capo in due campi
diversi.
Apriti un rst, leggi il primo record
Dividi il capo che ti interessa in left instr e right e li assegni alle
variabili A, B e C.
Quindi ti apri il secondo rst e aggiungi un record assegnando prima left,
poi al successivo instr e al terzo right.
ora non posso scriverti la funzione perchè al Ng ci passo per poco tempo, ma
il ragionamento è questo
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


author: Sergio MAZZA

text:
"Tinset" <
NOATt...@tin.it
> ha scritto nel messaggio
news:isiKa.246071$g92.5...@news2.tin.it...

Proviamo; ingredienti:
- una tabella di partenza (chiamata TabellaA) da dove prelevare i dati;
- una tabella di arrivo (chiamata TabellaB) dove scrivere i dati;
- una soubroutine che esegue il compito previsto (access'97):
Es.
Sub tiSpiezzoInDue()
Dim rstTabA As Recordset, rstTabB As Recordset
Dim numElem As Integer, a As Integer
Set rstTabA = CurrentDb.OpenRecordset("tabella3")
Set rstTabB = CurrentDb.OpenRecordset("tabella4")
Do While Not rstTabA.EOF
    numElem = NumToken(rstTabA!campo2, ";")
    For a = 1 To numElem
        rstTabB.AddNew
        rstTabB!campo1 = rstTabA!campo1
        rstTabB!campo2 = Token(rstTabA!campo2, ";", a)
        rstTabB.Update
    Next
    rstTabA.MoveNext
Loop
rstTabA.Close
rstTabB.Close
Set rstTabA = Nothing
Set rstTabB = Nothing
End Sub
- due funzioni prelevate dal sito comune (
www.sitocomune.com
) e
precisamente:
      Estrarre l'n-mo elemento (token) da un elenco delimitato.
        Alessandro Cara
mescolare il tutto et-voilà...
Ciao.
--
Sergio MAZZA


text:

ROTFL
> Dim rstTabA As Recordset, rstTabB As Recordset
> Dim numElem As Integer, a As Integer
> Set rstTabA = CurrentDb.OpenRecordset("tabella3")
> Set rstTabB = CurrentDb.OpenRecordset("tabella4")
>
> Do While Not rstTabA.EOF
> numElem = NumToken(rstTabA!campo2, ";")
> For a = 1 To numElem
> rstTabB.AddNew
> rstTabB!campo1 = rstTabA!campo1
> rstTabB!campo2 = Token(rstTabA!campo2, ";", a)
> rstTabB.Update
> Next
> rstTabA.MoveNext
> Loop
>
> rstTabA.Close
> rstTabB.Close
>
> Set rstTabA = Nothing
> Set rstTabB = Nothing
>
> End Sub
>
>
> - due funzioni prelevate dal sito comune (
www.sitocomune.com
) e
> precisamente:
> Estrarre l'n-mo elemento (token) da un elenco delimitato.
Non mi ero mai fermato sulla funzione token. Me la vado a vedere.
> Alessandro Cara
>
>
> mescolare il tutto et-voilà...
>
> Ciao.



text:
Grazie a tutti
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...



text:
Sei stato molto gentile ma il comando Token in Access 97 non esiste.
Altri suggerimenti?
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:bdcg76$acq$1...@canarie.caspur.it...



text:
"Tinset" <
NOATt...@tin.it
> ha scritto nel messaggio
news:TzxKa.250797$g92.5...@news2.tin.it...
> Sei stato molto gentile ma il comando Token in Access 97 non esiste.
> Altri suggerimenti?
Due:
1 - scrivi il testo della tua risposta dopo il testo del messaggio
precedente, come faccio io; grazie.
2 - rileggiti il mio messaggio perché ti indicavo due ingredienti nella
ricetta, nella fattispecie due funzioni da prelevare dal sito comune
(
www.sitocomune.com
)...
Ciao.
--
Sergio MAZZA


title: Dove posso scaricare un manuale su access

author: Ricky

text:
ciao a tutti
vorrei sapere se su internet si trova un manuale su access
grazie


author: lbo dal portatile

text:
>vorrei sapere se su internet si trova un manuale su access
non lo so, ma sicuramente in libreria ne trovi a partire da 35-40mila.
un titolo che alcuni qui sul ng hanno trovato buono e' Laboratorio
Access, editore Apogeo.  falla sta spesa.
fa anche meno male agli occhi leggere sulla carta che su schermo.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: OT: stipendi da fame...

author: Alessio Berretta

text:
> > Sull'Espresso di questa settimana c'e un articoletto che spiega che
> > recentemente
> > il Parlamento ha votato all'UNANIMITA'e senza astenuti (ma vą?!) un
> aumento
> > di stipendio per i parlamentari  pari a circa 2.200.000 lire al mese.
> >
> >
> > Inoltre la mozione e stata camuffata in modo tale da non risultare
> > nei verbali ufficiali.
> >
> > STIPENDIO  37.086.079 AL MESE
> >
> > STIPENDIO BASE  19.325.396 al mese
> >
> >  PORTABORSE 7.804.232 al mese (generalmente parente o familiare)
> >
> >  RIMBORSO SPESE AFFITTO 5.621.690 al mese
> >
> >  TELEFONO CELLULARE gratis
> >  TESSERA DEL CINEMA gratis
> >
> >  TESSERA TEATRO gratis
> >  TESSERA AUTOBUS - METROPOLITANA gratis
> >
> >  FRANCOBOLLI gratis
> >
> >  VIAGGI AEREO NAZIONALI gratis
> >
> > CIRCOLAZIONE AUTOSTRADE gratis
> >
> > PISCINE E PALESTRE gratis
> >
> > FS gratis
> >
> > AEREO DI STATO gratis
> > AMBASCIATE gratis
> >
> > CLINICHE gratis
> >
> > ASSICURAZIONE INFORTUNI gratis
> >
> > ASSICURAZIONE MORTE gratis
> >
> > AUTO BLU CON AUTISTA gratis
> > RISTORANTE gratis (nel 1999 hanno mangiato e bevuto gratis  per
> 2.850milioni
> > di lire)
> >
> > si intascano uno stipendio,  hanno diritto alla pensione dopo 35 mesi in
> > parlamento mentre obbligano i cittadini a 35 anni
> >
> > INDENNITA'DI CARICA (da 650.000 circa a 12.500.000)
> >
> > 200.000.000circa li  incassano con il rimborso spese elettorali (in
> > violazione alla legge sul finanziamento ai partiti), 50.000.000 ogni
anno
> >
> > ciascuno e fondano un giornaletto. (Es: la
> > sig.ra Pivetti,  l'auto blu ed una scorta sempre a suo servizio)
> >
> > La classe politica ha  causato un danno al paese di 2 MILIONI E 446 MILA
> > MILIARDI.
> >
> > La sola camera dei deputati costa al cittadino 4.289.968  AL MINUTO
> >
> > Far circolare.......stiamo promovendo un referendum per
> > l'abolizione dei  privilegi di tutti i parlamentari............queste
> > informazioni
> > possono
> > essere lette  solo attraverso Internet in quanto quasi tutti i massmedia
> > rifiutano di  portarle a conoscenza degli italiani......
> >
> > PER FAVORE CONTINUATE LA  CATENA


title: OT: stipendi da fame...

author: Antonio Ganci

text:
Alessio Berretta wrote:
[CUT]
Se governassero bene e rubassero con moderazione, non sarebbe un problema.
Antonio.


title: OT: stipendi da fame...

author: AMR-Giuseppe

text:
"Antonio Ganci" <
a.ganciNO...@megattera.it
> ha scritto nel messaggio
news:atc3t7$12ik8l$1...@ID-162989.news.dfncis.de...

Meglio non preoccuparsi  altrimenti oltre a essere presi per il culo ci stai
pure male ,
cornuto si   mazziato no
Vivi e lascia morire  dai retta
Ciao Giuseppe


title: OT: stipendi da fame...

text:
"Antonio Ganci"
> [CUT]
> Se governassero bene e rubassero con moderazione, non sarebbe un problema.
Il problema è che se governassero (e avessero governato) bene potrebbero
anche starci certi "benefici"... e invece proprio in un momento difficile
del paese si aumentano la paga.
Peraltro è divertente (?) constatare come su queste cose destra e sinistra
vadano d'amore e d'accordo!
Ciao.


title: OT: stipendi da fame...

author: All Eyez On me

text:
"Alessio Berretta" <
alessio...@nospam.it
> ha scritto nel messaggio
news:b86K9.7767$TC5.2...@twister1.libero.it...
>
>
> > > Sull'Espresso di questa settimana c'e un articoletto che spiega che
> > > recentemente
> > > il Parlamento ha votato all'UNANIMITA'e senza astenuti (ma vą?!) un
> > aumento
> > > di stipendio per i parlamentari  pari a circa 2.200.000 lire al mese.
> > >
> > >
cut
Si perņ pieni conto delle spese che hanno, devono andare alle feste dei vip,
fare regali, etc etc
poverini
AEOM


title: OT: stipendi da fame...

author: Fabio

text:
>[CUT]
>"Alessio Berretta" <
alessio...@nospam.it
> ha scritto nel messaggio
news:4HiK9.9914>$Ou4.3...@twister2.libero.it...
>>
>> "Antonio Ganci"
>>
>> > [CUT]
>> > Se governassero bene e rubassero con moderazione, non sarebbe un
problema.
Occhio... questa è una VECCHIA bufala che gira su internet da ANNI.
ciao