title: Urgente...esportare in excel con filtro

text:

Ciao,
da quanto ho capito dovresti avere due query salvate che hai chiamato
"ESPORTA_EXCELQuery" e "SOCI GENERALE": lasciale come erano in origine
e non ci pensare più.
Probabilmente non sono stato chiaro nella risposta: io ho modificato
un po' il tuo codice  (ritengo sia la routine dell'evento su clic del
pulsante "esporta") usando una istruzione sql invece della query
salvata ESPORTA_EXCELQuery;
e per questo ho aggiunto l'istruzione
...
dim strsql as string    ' dichiara il campo strsql come stringa
...
strsql=" Select .... etc. un istruzione SQL che non fa altro che
prendere dati dalla query originale ESPORTA_EXCELQuery e dalla query
"Soci Generale" aggiungendo il campo [Soci Gnenerale]ID e cambiando la
Inner Join in Left Join per avere anche i soci che non hanno pagato.
Sarebbe meglio prendere i dati direttamente dalla tabelle Soci e quidi
ti conviene sostituire nella istruzione SQL [Soci] a [Soci Generale]
l'errore 1) "Istruzione SQL non valida." potrebbe accadere perchè
probabilmente qualche chiusura di doppi apici o qualche spazio non è
stato correttamente rispettato nel trasferire l'istruzione nell'editor
VBA; ti consiglio di portare su di una unica riga l'istruzione:
strsql="SELECT [SOCI].ID, [SOCI].GruppoDi, [SOCI].Cognome,
[SOCI].Nome, [SOCI].LuogoNascita, [SOCI].DataNascita, [SOCI].CompCri,
PAGAMENTI.DataVer,* " _
badando che non ci siano spazi fra " e Select, ci sia uno spazio
libero dopo DataVer,* prima della chiusura degli apici e uno spazio
libero prima del trattino basso.
altrettanto fai per
&"FROM [SOCI] LEFT JOIN PAGAMENTI ON [SOCI].ID = PAGAMENTI.IdSoc " _
quindi no spazi fra " e FROM, spazio prima della chiusura degli apici
e uno spazio libero prima del trattino basso
per
&"WHERE (((Right(PAGAMENTI.DataVer,4) Between '"& Right([FORMS]!
[CONSOLIDATO]![Dalla Data],4) &"' And '" & RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4) &"')) " _
l'istruzione estrapola l'anno di pagamento (ultimi 4 caratteri di
dataVer) e li confronta con l'anno della data del form. Qui devi stare
attento che gli apici e i doppi apici siano correttamente posizionati
e no spazio tra " e WHERE, dopo between ci vuole un apice singolo
seguito da un doppio apice. L' apice singolo serve ad indicare che
stai confrontando una stringa, il doppio apice chiude l'istruzione SQL
per far riferimento ad un campo di un form (Right([FORMS]!
[CONSOLIDATO]![Dalla Data],4)) con la & più il doppio apice riapri
l'istruzione SQL e subito dopo, con l'apice singolo chiudi la stringa
di confronto. Segui la stessa identica sequenza di apici e e doppi
apici dopo l'istruzione AND. Alla fine del rigo bada bene che ci sia
uno spazio dopo le due parentesi e prima del doppio apice ed uno
spazio dopo il doppio apice prima del trattino basso
l'ultimo rigo della istruzione SQL:
&"ORDER BY   [SOCI].Cognome, [SOCI].Nome,PAGAMENTI.DataVer"
no spazi tra " e ORDER
ordina per nome, cogome e data di pagamento: se hai più persone con lo
stesso nome e cognome puoi aggiungere [Soci].ID
in quest'ultimo rigo non c'è bisogno di lasciare lo spazio prima degli
apici finali.
Errore 2: Come ho detto sopra, ristabilisci la query [Soci Generale]
originale
Errore 3: questo è un mio errore di distrazione e probabilmente il
debug te lo da sulla prima riga dove ho aggiunto -2 per ottenere
l'anno 2009 (o meglio due anni prima di FORMS]![CONSOLIDATO]![Alla
Data)
invece di scrivere  if Right(rst!DataVer,4) =RIGHT([FORMS]!
[CONSOLIDATO]![Alla Data],4) - 2
devi scrivere
if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 2
in pratica usando Right estrapolo gli ultimi 4 caratteri delle date
che voglio confrontare come stringa e naturalmente non posso detrarre
2. Ho aggiunto quindi l'istruzione Val che trasforma la stringa
ottenuta in numero.
Tale correzione deve essere fatta per tutti e tre gli If.
Spero, questa volta, di essere stato un po' più chiaro
fammi sapere...


title: Urgente...esportare in excel con filtro

text:

Ciao,
ho inserito tutto il codice corretto come riferisci su di un nuovo
pulsante, ma quando inserisco l'istruzione
if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 2
in debug mi da questo errore:
"errore di compilazione: previsto: Then oppure GoTo"
Grazie nella speranza che tutto funzioni.
ho provato a dare un'occhiata se c'erano errori nel copiare la
stringa, ma niente non sono riuscito a trovare l'errore.


title: Urgente...esportare in excel con filtro

text:
On 25 Giu, 19:54, leblanc <
manliodonad...@gmail.com
> wrote:

---------------------------------------------------------------
Ti posto tutto il codice inserito sul pulsante:
---------------------------------------------------------------
Private Sub Comando637_Click()
Dim strsql As String
strsql = "SELECT [SOCI GENARALE].ID, [SOCI GENARALE].GruppoDi, [SOCI
GENERALE].Cognome, [SOCI GENERALE].Nome, [SOCI GENERALE].LuogoNascita,
[SOCI GENERALE].DataNascita, [SOCI GENERALE].CompCri,
PAGAMENTI.DataVer,*" _
& "FROM [SOCI GENERALE] LEFT JOIN PAGAMENTI ON [SOCI GENERALE].ID =
PAGAMENTI.IdSoc" _
& "WHERE (((Right(PAGAMENTI.DataVer,4) Between '" & Right([Forms]!
[CONSOLIDATO]![Dalla Data], 4) & "' And '" & Right([Forms]!
[CONSOLIDATO]![Alla Data], 4) & "')) " _
& "ORDER BY   [SOCI GENERALE].Cognome, [SOCI
GENERALE].Nome,PAGAMENTI.DataVer"
Set rst = CurrentDb.OpenRecordset(strsql)
    'contatore righe ESPORTA_EXCELQuery
    n = 1
   'Copia tutti i record di ESPORTA_EXCELQuery nel file excel
    rst.MoveFirst ' mi sposto su primo record
    Do Until rst.EOF
   If MyIDSocio = rst!ID Then GoTo ScriveData
    n = n + 1
    excDoc.Worksheets(1).Cells(n, 1) = rst!GruppoDi
'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(n, 2) = rst!COGNOME
    excDoc.Worksheets(1).Cells(n, 3) = rst!NOME
    excDoc.Worksheets(1).Cells(n, 4) = rst!LuogoNascita
    excDoc.Worksheets(1).Cells(n, 5) = rst!DataNascita
    excDoc.Worksheets(1).Cells(n, 6) = rst!CompCri
ScriveData:
    if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4)) - 2  'qui filtra la data del 1° anno cioe' 2009
        excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
    End If
    if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4)) - 2 'qui  filtra la data del 2° anno cioe' 2010
        excDoc.Worksheets(1).Cells(n, 8) = rst!DataVer
    End If
     if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4)) - 2
        excDoc.Worksheets(1).Cells(n, 9) = rst!DataVer  'qui filtra la
data del 3° anno cioe' 2011
     End If
MyIDSocio = rst!ID
    rst.MoveNext 'passa al prossimo record
   Loop
   rst.Close
   Set rst = Nothing
End Sub
------------------------------------------------------------------------------------
Dagli un'occhiata


title: Urgente...esportare in excel con filtro

author: leblanc

text:

Scusa ,
l'errore che ti da è  dovuto ancora ad una mia disattenzione: mi sono
dimenticato il then alla fine di ogni if
If Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 2  then    'qui filtra la data del 1° anno cioe' 2009
        excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
End If
If Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 1 then 'qui  filtra la data del 2° anno cioe' 2010
        excDoc.Worksheets(1).Cells(n, 8) = rst!DataVer
End If
If Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) then  'qui filtra la data del 3° anno cioe' 2011
        excDoc.Worksheets(1).Cells(n, 9) = rst!DataVer
     End If
MyIDSocio = rst!ID
    rst.MoveNext 'passa al prossimo record
   Loop
   rst.Close
   Set rst = Nothing
'Devi anche aggiungere l'ultima parte del tuo precedente codice e
cioè:
If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub
Nel tuo messaggio iniziale chiedevi di filtrare una data di pagamento
per ogni anno collocandola in una diversa colonna del foglio di excel
e Il codice riportato qui sopra dovrebbe funzionare; nel caso però ci
fossero più pagamenti nello stesso anno, il foglio di excel  ti
riporterà solo l'ultima data di pagamento registrata.


title: Urgente...esportare in excel con filtro

text:

Ho risposto ieri sera ma oggi non ho trovato il mio post quindi lo
riscrivo:
il debug ti da errore perchè manca il then alla fine di ogni if. devi
correggere il codice come segue:
if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 2  then   'qui filtra la data del 1° anno cioe' 2009
        excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
    End If
    if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4)) - 1 then 'qui  filtra la data del 2° anno cioe' 2010
        excDoc.Worksheets(1).Cells(n, 8) = rst!DataVer
    End If
     if Val(Right(rst!DataVer,4)) = Val(RIGHT([FORMS]![CONSOLIDATO]!
[Alla Data],4))         ''qui filtra la data del 3° anno cioe' 2011
        excDoc.Worksheets(1).Cells(n, 9) = rst!DataVer
     End If
inoltre devi sempre aggiungere il resto del tuo codice originale dopo
set rst=nothing e quindi
  If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
Vorrei inoltre precisare che tale codice esporta su excel solo la data
di un versamento all'anno come, del resto hai chiesto nel tuo primo
messaggio. se ci sono più versamenti nello stesso anno, il codice
riporta la data dell'ultimo versamento.
Fammi sapere...


title: Urgente...esportare in excel con filtro

text:

> ...
>
> leggi tutto
Scusa è la seconda volta in due giorni che rispondo e il post non
appare!!! :-(
il debug ti da errore perchè alla fine di ogni riga di IF devi
aggiungere un then
il codice sarà quindi:
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 2  then 'qui filtra la data del 1° anno cioe' 2009
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4)) - 1  then 'qui filtra la data del 1° anno cioe' 2010
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla
Data],4))  then 'qui filtra la data del 1° anno cioe' 2011
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
dopo rst=nothing devi aggingere il resto del tuo vecchio codice e
cioè:
  If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
il codice, come da te richiesto nel messaggio iniziale,  seleziona la
data di versamento per i due anni precedenti alla data impostata come
data finale + l'anno corrente ma se ci sono più versamenti nello
stesso anno riporta solo l'ultimo versamento registrato per l'anno
Fammi sapere sviluppi....


title: Urgente...esportare in excel con filtro

text:
Scusa è la seconda volta in due giorni che rispondo e il post non appare!!! :-(
il debug ti da errore perchè alla fine di ogni riga di IF devi aggiungere un then
il codice sarà quindi:
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4)) - 2  then 'qui filtra la data del 1° anno cioe' 2009
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4)) - 1  then 'qui filtra la data del 1° anno cioe' 2010
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
if Val(Right(rst!DataVer,4)) =Val(RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4))  then 'qui filtra la data del 1° anno cioe' 2011
excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
end if
dopo rst=nothing devi aggingere il resto del tuo vecchio codice e cioè:



title: Urgente...esportare in excel con filtro

text:

Ciao,
ho inserito il then alla fine di ogni riga if come suggerisci, ma esce
ancora un'altro errore e sarebbe.
Errore di run-time '2450':
SCHEDE soci: impossibile trovare la maschera 'CONSOLIDATO' a cui si fa
riferimento in un'espressione macro o nel codice Visual Basic.
Ma la form CONSOLIDATO esiste e ci sono solo due caselle di testo con
nome elemento 'Dalla Data'  'Alla Data'.
Ho notato che dalla finestra di gestione progetti di visual basic, non
visualizza form che al suo interno ci sono solo caselle di testo
(compreso quella in oggetto 'CONSOLIDATO').
Cosa bisogna fare ancora per farlo funzionare?
Ciao e grazie ancora.


title: Urgente...esportare in excel con filtro

text:

Grazie! Grazie! Grazie!
Con il tuo aiuto hai risolto un mio grandissimo problema e funziona
alla grande, ho adattato il codice al mio programma e lo sto testando
e funziona benissimo.
L'unica cosa che ti chiedo è se mi servirebbe ancora il tuo aiuto, per
migliorare il programma, posso contare su di te?
Di nuovo graziiiisssiiimooo!
Antonio Bifulco


title: Urgente...esportare in excel con filtro

text:
Ciao,
ti rinnovo i ringraziamenti della buona riuscita del tuo consiglio, ti
volevo chiedere alcune modifiche.
Vorrei aggiungere allo stesso codice, questo:
1) - Quando clicco sul pulsante per esportare in excel, nel file excel
che mi va a riempire, vorrei che mi riportasse nella prima riga i nomi
dei campi:
es: | GruppoDi | Cognome | Nome | Luogo di Nascita | Data di Nascita |
CompCri | DataVer | DataVer | DataVer |
2) - Inserire una colonna prima del campo "Gruppo Di" con la
numerazione progressiva delle righe.
3) - Al momento dell'esportazione delle date di versamento, far in
modo che sul foglio excel invece di riportare la data cosi' come e'
stata registrata, al posto della data la deve convertire in una "X"
che sta a significare che quella persona in quella data ha pagato la
quota associativa.
Non so se mi sono fatto capire, spero di si.
Vorrei far fare queste modifiche in automatico ad access per evitare
di farle a mano, cosi' con un solo clic mi crea il consolidato senza
apportare ulteriori modifiche al foglio excel.
Grazie e scusami se do troppo fastidio, mi hai gia' risolto un
grossissimo problema, e se non puoi mi basta anche quello che gia' hai
fatto.
Grazie.


title: Urgente...esportare in excel con filtro

text:

------------------------------
Ciao,
mi devi scusare se dopo un po di tempo mi rifaccio vivo con lo stesso problema ti spiego subito il problema.
Avevo chiesto di creare un pulsante che mi esportasse in excel alcuni campi filtrati da due tabelle e la cosa era andata (dopo tante domande che ti ho posto) a buon fine e l'ho utilizzata che andava un'amore.
Essendo che le direttive hanno cambiato alcune cosucce ho dovuto mettere mano di nuovo al codice per aggiornarlo ma probalbilmente ho fatto qualche errore ed ora quando mi esporta in excel mi esporta solo una riga e senza inserirmi le colonne con le date da asportare. Al codice ho fatto alcune modifiche esempio nel file excel deve iniziare ad inserire i dati dalla riga 12 e non piu' dalla riga 1, l'intestazione vorrei che mi iniziasse sulla riga precedente ai dati che sarebbe la 11, isomma facendo di testa mia ora il codice mi esporta le modifiche appena mensionate ma solo una riga e senza le tre colonne delle date. Dove ho sbagliato? Ti incollo il codice che ho modificato e se puoi dargli un'occhiata ed aggiungere le correzioni da fare.
Ti ringrazio dellla tua pazienza.
----------------------------------------------
Private Sub Comando4_Click()
On Error GoTo gestErrori
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
    Dim n As Integer

   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")

    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori

    Set excDoc = excApp.Workbooks.Open("W:\CRI SOCI\CONSOLIDATO.xlsx") 'Percorso del file excel
    excApp.Visible = True
Set DB = CurrentDb()
Dim strsql, mystart, myfinish As String
mystart = Right(Forms![CONSOLIDATO]![Dalla data], 4)
myfinish = Right(Forms![CONSOLIDATO]![Alla data], 4)

strsql = "SELECT
SOCI.ID
, SOCI.GruppoDi, SOCI.Cognome, SOCI.Nome, SOCI.LuogoNascita, SOCI.DataNascita,PAGAMENTI.Att, PAGAMENTI.DataVer, Year(Pagamenti.DataVer) AS AnnoData " _
        & "FROM SOCI LEFT JOIN PAGAMENTI ON
SOCI.ID
 = PAGAMENTI.IdSoc " _
        & "WHERE Year(Pagamenti.DataVer) between '" & Year(Forms![CONSOLIDATO]![Dalla data]) & "' And '" & Year(Forms![CONSOLIDATO]![Alla data]) & "' " _
        & "ORDER BY SOCI.Cognome, SOCI.Nome, PAGAMENTI.DataVer"

    Debug.Print ("SQL: " + strsql)
    Set rst = DB.OpenRecordset(strsql)

    'contatore righe ESPORTA_EXCELQuery

   'Copia tutti i record di ESPORTA_EXCELQuery nel file excel

    'testata
    excDoc.Worksheets(1).Cells(11, 1) = "N." 'Contatore di riga
    excDoc.Worksheets(1).Cells(11, 2) = "Unità CRI" 'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(11, 3) = "Cognome"
    excDoc.Worksheets(1).Cells(11, 4) = "Nome"
    excDoc.Worksheets(1).Cells(11, 5) = "Luogo Nascita"
    excDoc.Worksheets(1).Cells(11, 6) = "Data Nascita"
    excDoc.Worksheets(1).Cells(11, 7) = "Soci attivi"
    excDoc.Worksheets(1).Cells(11, 8) = "Soci ordinari"

    rst.MoveFirst ' mi sposto su primo record
    n = 11
    Do Until rst.EOF
   If MyIDSocio = rst!ID Then GoTo ScriveData

    n = n + 1

    excDoc.Worksheets(1).Cells(n, 1) = Str(n - 11) 'Contatore di riga
    excDoc.Worksheets(1).Cells(n, 2) = rst!GruppoDi 'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(n, 3) = rst!COGNOME
    excDoc.Worksheets(1).Cells(n, 4) = rst!nome
    excDoc.Worksheets(1).Cells(n, 5) = rst!LuogoNascita
    excDoc.Worksheets(1).Cells(n, 6) = Format(rst!DataNascita, "dd/mm/yyyy")
    excDoc.Worksheets(1).Cells(n, 7) = rst!CompCri
ScriveData:
    If Val(Right(rst!DataVer, 4)) = Val(Right([Forms]![CONSOLIDATO]![Alla data], 4)) - 2 Then 'qui filtra la data del 1° anno cioe' 2009
        excDoc.Worksheets(1).Cells(n, 8) = Format(rst!DataVer, "dd/mm/yyyy")
    End If
    If Val(Right(rst!DataVer, 4)) = Val(Right([Forms]![CONSOLIDATO]![Alla data], 4)) - 1 Then 'qui  filtra la data del 2° anno cioe' 2010
        excDoc.Worksheets(1).Cells(n, 9) = Format(rst!DataVer, "dd/mm/yyyy")
    End If
     If Val(Right(rst!DataVer, 4)) = Val(Right([Forms]![CONSOLIDATO]![Alla data], 4)) Then
        excDoc.Worksheets(1).Cells(n, 10) = Format(rst!DataVer, "dd/mm/yyyy")  'qui filtra la data del 3° anno cioe' 2011
     End If
MyIDSocio = rst!ID
    rst.MoveNext 'passa al prossimo record

   Loop

   rst.Close
   Set rst = Nothing
  If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub


title: alcuni quesiti su access con sql server

author: mario rossi

text:
ho alcuni dubbi che mi frenano sull'utilizzo di sql server come back end di access se qualcuno può chiarirmeli lo ringrazio anticipatamente

1. ha sempre senso utilizzare con backend sql server rispetto alle tabelle di access anche quando il db è su un solo pc o in rete lan?

2. creando le tabelle con relative relazioni in sql server poi l'utilizzo di access in merito a query, maschere macro moduli rimane inviariato o necessità dell'apporto di opportune modifiche richieste da sql server?

3. in termini di prestazioni ha sempre senso usare sql server?

4. esiste una guida chiara su come integrare una base dati sql server in access?

Grazie.


title: alcuni quesiti su access con sql server

text:
Il giorno martedì 24 aprile 2018 12:01:25 UTC+2, mario rossi ha scritto:
> ho alcuni dubbi che mi frenano sull'utilizzo di sql server come back end di access se qualcuno può chiarirmeli lo ringrazio anticipatamente

Ciao caro il mio "Paolo Rossi".

> 1. ha sempre senso utilizzare con backend sql server rispetto alle tabelle di access anche quando il db è su un solo pc o in rete lan?

No, se sei in LOCALE direi che non è indispensabile, ma è opportuno fare dei distinguo...
Quando si sviluppa, lo si fa sempre con l'ottica di RICICLO e, chi sviluppa con Access, senza esperienza di SQL_SERVER poi si troverà dei problemi rilevanti nel passaggio... quindi, se il tuo "LOCALE" rimarrà LOCALE usa Access ma fallo con le attenzioni che servono per rendere il tuo lavoro SCALABILE.

> 2. creando le tabelle con relative relazioni in sql server poi l'utilizzo di access in merito a query, maschere macro moduli rimane inviariato o necessità dell'apporto di opportune modifiche richieste da sql server?

Devi LINKARE le Tabelle via ODBC, poi usarle nel modo opportuno, e quì vengono al pettine i nodi che accennavo al punto 1.
Ti faccio un esempio banale ma ce ne sono mille di queste casistiche che sfuggono ai poco esperti.
Questa Query, non viene risolta dal SERVER ma in LOCALE anche avendo un DatabaseServer, vanificando la potenza del DB:
   strSQL="SELECT * FROM T1 WHERE Id=Forms!NomeForm!NomeCampo"
Questa invece che è uguale in linea teorica, viene risolta dal Server:
   strSQL="SELECT * FROM T1 WHERE Id=" & Forms!NomeForm!NomeCampo

Stesse considerazioni si applicano ai criteri delle funzioni di aggregazione sui domini, o sui FILTRI...
Ecc...

> 3. in termini di prestazioni ha sempre senso usare sql server?

In LOCALE, non è un MUST, dipende da diversi fattori... ma il problema non è solo sulle prestazioni quanto sulla Sicurezza dati in termini di Vulnerabilità ed anche in termini di Corruttibilità.

> 4. esiste una guida chiara su come integrare una base dati sql server in access?

Non c'è nulla di specifico, ma quì trovi una siscreta guida(Scaricalo e rinominalo con estensione ZIP):
http://mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=281.html

> Grazie.

Purtroppo alla base del passaggio JET Vs RDBMS ci deve essere un passaggio di chi ha sviluppato, altrimenti hai una FERRARI che corre come una bicicletta ed ho sentito molti dire che SQLServer è più lento di Access(JET)... ovviamente per ineseprienza.

@Alex


title: alcuni quesiti su access con sql server

author: BFS

text:

ti do la mia personale opinione, lavorando con sql server da 15 anni
(sia con i per me fenomenali ADP che purtroppo non sono più supportati
sia con tabelle ODBC collegate)

1)Se devo fare un db con 3 tabelle in croce non uso sql server, se il
database dovrà contenere molti dati e dati importanti mi affido a
sqlserver che lo trovo molto più semplice da gestire. Posso modificare
la struttuda del db del cliente con degli script o collegarmi
direttamente con il management studio

2)l'applicazione va "rifatta e ottimizzata". SQL al posto delle query
offre view e stored procedure (parametriche e non) che girano lato
server e che devono essere sfruttate per avere vantaggi in termini di
prestazioni. Se non viene fatta questa operazione si perde il vantaggio
di usare un cliente server rispetto a un file server

3)se si elaborano grandi quantita di dati si, anche in locale la
differenza si vede eccome

4)google

ciao
BFS


title: alcuni quesiti su access con sql server

text:

Un pò in ritardo grazie a entrambi per i chiarimenti molto completi.


title: VB-Searching for data in any field

text:
Hi, I'm trining to find a data in any field of the record set, using VBA.
any one can help me about the best selution for that.
With My Best Regards


title: VB-Searching for data in any field

author: Roberto dal portatile

text:
"
news.iprolink.ch
" <
fa...@unlo.ch
> ha scritto nel messaggio
news:9g25ut$4oo$1...@unlisys.unlisys.net...
> Hi, I'm trining to find a data in any field of the record set, using VBA.
> any one can help me about the best selution for that.
>
> With My Best Regards
>
>
Use acAll argument in the DoCmd.FindRecord.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: VB-Searching for data in any field

author: Leo

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9g28hl$2dss$1...@stargate1.inet.it...

 6 un mito!!! :)))))))))))))
Leo


title: Ancora Query!!!!

author: Luca

text:
Ciao a tutti.. ho ancora un problemino!!!
vi spiego qual'č...
ho creato una tabella con una campo si o no!!! che equivale per me a venduto
e non venduto..
vorrei creare ora una query che mi elenchi i venduti di quella tabella, che
criterio devo usare?
Grazie ancora per l'aiuto!!1


title: Ancora Query!!!!

author: Lna

text:

Inserisci nel criterio True se vuoi visualizzare tutti i record che hanno Si
o False se vuoi visualizzare tutti i record che hanno No.
Ciao
Lna
--------------------------------
Inviato via
http://usenet.libero.it


title: Ancora Query!!!!

text:
Tante grazie!!!!!
"Lna" <
leonardo...@dietsmann.com
> ha scritto nel messaggio
news:213Z211Z122Z2Y...@usenet.libero.it...



title: Ancora Query!!!!

author: Antonio Biso

text:
"Luca" <
lb...@inwind.it
> ha scritto nel messaggio
news:dH7pa.56735$iy5.1...@twister2.libero.it...
> Tante grazie!!!!!
Tante grazie DOPO il quoting!!!
Antonio


title: DateDiff

author: maurizio 56

text:
Salve a tutti, sto cercando di trovare una soluzione ad un piccolo
dubbio. Devo trovare i giorni tra una data ed un'altra e, copiando ho
assemblato questa funzione:
Giorni:
-(DateDiff("g";DLookUp("[DataControllo]";"AccoppiamentoDate";"[NumAccoppiamento]
= " & [NumAccoppiamento]+1);[DataControllo]))
però come faccio a calcolare i giorni fino alla fine del mese??
Es. 29/01 al 31/01 e per tutti i mesi??
Fiducioso di una vostra attenzione
maurizio56


title: DateDiff

text:
maurizio 56 ha scritto:

Supponendo l'esistenza di un campo denom."AL" questo è il codice :
Me.AL = CVDate(Format(DateAdd("m", 1, DateAdd("d", -Day(Now) + 1, Now())),
"dd/mm/yy")) 'Data mese successivo a quello attuale
basta nella query  inserire come criterio "< " al contenuto del campo "AL"
Va bene?
Pablitomf
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: DateDiff

text:
maurizio 56 ha detto: in data 27/04/2004 16.51:

E se voglio conteggiare i giorni dell'anno? Io ho creato questo:
Private Sub Comando5_Click()
     anno = Year(Now())
     Me.Testo6.Value = anno
     DataInizio = "01/01/" & anno
     DataFine = "31/12/" & anno
     Me.Testo6.Value = "" & DateDiff("d", DataInizio, DataFine)
End Sub
però mi dà sempre 365, mentre quest'anno è 366
maurizio56


title: funzione If(month()=1;a;b)

author: montanaro®

text:
Dov'è l'errore? Mi dice "tipi di dati non corrispondenti
nell'espressione criterio=
SELECT s_canrighe.codvds, s_cancdc.descrizion,
Sum(IIf(Month([s_canrighe]![datacomp])=1,[s_canrighe]![importo],"")) AS
Gennaio
FROM (s_canrighe INNER JOIN s_cancdc ON s_canrighe.codcdc =
s_cancdc.codice) INNER JOIN s_canvds ON s_canrighe.codvds =
s_canvds.codice
GROUP BY s_canrighe.codvds, s_cancdc.descrizion
ORDER BY s_canrighe.codvds;
grazie


title: funzione If(month()=1;a;b)

author: Sergio MAZZA

text:
"montanaro®" <
jor...@gmail.com
> ha scritto nel messaggio
news:1164361291.4...@j72g2000cwa.googlegroups.com...


grazie
[risposta]
A me sembra nella Sum; come fai a sommare delle stringhe vuote ("") se
Month([s_canrighe]![datacomp])<>1?
Prova con:
... Sum(IIf(Month([s_canrighe]![datacomp])=1,[s_canrighe]![importo],0)) ...
Ciao.
--
Sergio MAZZA


title: funzione If(month()=1;a;b)

author: VT @ Work

text:
On 24 Nov 2006 01:41:31 -0800, "=?iso-8859-1?B?bW9udGFuYXJvrg==?="
<
jor...@gmail.com
> wrote:
 (...)
>Dov'=E8 l'errore? Mi dice "tipi di dati non corrispondenti
>nell'espressione criterio=3D
>
>
>SELECT s_canrighe.codvds, s_cancdc.descrizion,
>Sum(IIf(Month([s_canrighe]![datacomp])=3D1,[s_canrighe]![importo],"")) AS
>Gennaio
>FROM (s_canrighe INNER JOIN s_cancdc ON s_canrighe.codcdc =3D
>s_cancdc.codice) INNER JOIN s_canvds ON s_canrighe.codvds =3D
>s_canvds.codice
>GROUP BY s_canrighe.codvds, s_cancdc.descrizion
>ORDER BY s_canrighe.codvds;
>
>
>grazie
Prova cosě:
SELECT s_canrighe.codvds, s_cancdc.descrizion,
Sum(IIf(Month([s_canrighe]![datacomp])=1,nz([s_canrighe]![importo];0),0))



title: funzione If(month()=1;a;b)

text:
VT @ Work ha scritto:
> On 24 Nov 2006 01:41:31 -0800, "=?iso-8859-1?B?bW9udGFuYXJvrg==?="
> <
jor...@gmail.com
> wrote:
>  (...)
>
> >Dov'=E8 l'errore? Mi dice "tipi di dati non corrispondenti
> >nell'espressione criterio=3D
> >
> >
> >SELECT s_canrighe.codvds, s_cancdc.descrizion,
> >Sum(IIf(Month([s_canrighe]![datacomp])=3D1,[s_canrighe]![importo],"")) AS
> >Gennaio
> >FROM (s_canrighe INNER JOIN s_cancdc ON s_canrighe.codcdc =3D
> >s_cancdc.codice) INNER JOIN s_canvds ON s_canrighe.codvds =3D
> >s_canvds.codice
> >GROUP BY s_canrighe.codvds, s_cancdc.descrizion
> >ORDER BY s_canrighe.codvds;
> >
> >
> >grazie
>
> Prova così:
>
> SELECT s_canrighe.codvds, s_cancdc.descrizion,
> Sum(IIf(Month([s_canrighe]![datacomp])=1,nz([s_canrighe]![importo];0),0))
> AS Gennaio
> FROM (s_canrighe INNER JOIN s_cancdc ON s_canrighe.codcdc =
> s_cancdc.codice) INNER JOIN s_canvds ON s_canrighe.codvds =
> s_canvds.codice
> GROUP BY s_canrighe.codvds, s_cancdc.descrizion
> ORDER BY s_canrighe.codvds;
Ho provato quella di Mazza e funziona, era la mancanza dello 0
l'errore.
La seconda nn l'ho provata.
Grazie 1000 ad entrambi.


title: funzione If(month()=1;a;b)

text:
On 24 Nov 2006 03:11:10 -0800, "=?iso-8859-1?B?bW9udGFuYXJvrg==?="
<
jor...@gmail.com
> wrote:
 (...)
>
>VT @ Work ha scritto:
>Ho provato quella di Mazza e funziona, era la mancanza dello 0
>l'errore.
>La seconda nn l'ho provata.
>Grazie 1000 ad entrambi.
>
La formula di Sergio assume che il campo [s_canrighe]![importo] non
contenga mai il valore NULL.
Se anche uno solo dei record dovesse contenere NULL in quel campo, la
Sum restituirebbe 0.
Quindi se sei sicuro che il campo sarà sempre valorizzato (al limite
con 0) la formula di Sergio va benissimo.
La mia formula invece gestisce anche la presenza di NULL.


title: funzione If(month()=1;a;b)

text:
VT @ Work ha scritto:
> On 24 Nov 2006 03:11:10 -0800, "=?iso-8859-1?B?bW9udGFuYXJvrg==?="
> <
jor...@gmail.com
> wrote:
>  (...)
>
> >
> >VT @ Work ha scritto:
> >Ho provato quella di Mazza e funziona, era la mancanza dello 0
> >l'errore.
> >La seconda nn l'ho provata.
> >Grazie 1000 ad entrambi.
> >
> La formula di Sergio assume che il campo [s_canrighe]![importo] non
> contenga mai il valore NULL.
> Se anche uno solo dei record dovesse contenere NULL in quel campo, la
> Sum restituirebbe 0.
> Quindi se sei sicuro che il campo sarà sempre valorizzato (al limite
> con 0) la formula di Sergio va benissimo.
> La mia formula invece gestisce anche la presenza di NULL.
si si, il campo nn puo essere vuoto sono scritture di analitica, grazie.


title: funzione If(month()=1;a;b)

text:
"montanaro®" <
jor...@gmail.com
> ha scritto nel messaggio
news:1164372168.5...@k70g2000cwa.googlegroups.com...
si si, il campo nn puo essere vuoto sono scritture di analitica, grazie.
[risposta]
Fiuuu... M'é andata bene...
Ciao.
--
Sergio MAZZA


title: Access e rete

author: rgtczmate

text:
Ho installato un file database di access 2000 sopra un PC condividendo la
relativa cartella, nella rete collegata vi sono altri tre PC, su di uno con
OS Win2000 tutto OK, gli altri due con OS Win ME all'avvio di access si
blocca sia access2000 che IExplore, cosa posso fare per risolvere,
premettendo che non posso sostituire WinME perchè obbligato da altre
procedure?
Grazie ....


title: access 97 e Vista

author: Matteo

text:
Ho provato ad installare Access 97 su Vista ma non riesco a terminare
l'installazione perché non riesco ad installare system.mdw. Qualcuno ha
avuto lo stesso problema?
Grazie
Matteo


title: access 97 e Vista

author: Carlo Costarella

text:
"Matteo" <
gestser...@uno.it
> ha scritto nel messaggio
news:fhufmc$h84$1...@aioe.org...

Segui questo tread molto illuminante:
http://www.thescripts.com/forum/thread600637.html
C'è poi anche questo da tenere in considerazione e che potrebbe risolvere
qualche altro problema di A97 su Vista:
http://support.microsoft.com/?scid=kb%3Ben-us%3B937248&x=10&y=12
Ciao, Carlo


title: access 97 e Vista

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:fhul8u$rdg$1...@tdi.cu.mi.it...

Ho letto quanto mi hai suggerito, ma il problema secondo me é a monte. Non
riesco a concludere l'installazione perché mi compare il messaggio "Errore
durante il cambiamento del database del gruppo del lavoro" quindi vengo
inviatato a finire l'installazione, riavviare e creare il file sytem.mdw
mediante Amministratore gruppi di lavoro. Ho quindi fatto quanto sopra
mediante amministratore gruppi di lavoro, si apre una finestra che mi indica
già Nome, Società e file di informazioni gruppo di lavoro
C:\\Windows\system32\system.mdw e mi compare l'opzione Crea Entra o Esci. A
questo punto se Creo mi compare una finestra "Informazioni sul gruppo di
lavoro" che mi propone in default il nome, l'organizzazione e mi posiziona
su "ID gruppo di lavoro" ma quando inserisco un qualsiasi nome nell'ID e
confermo mi compare un messaggio di errore "Errore durante il cambiamento
del database del gruppo di lavoro"
Grazie a chi può aiutarmi a risolvere il problema
Matteo


title: access 97 e Vista

author: Simone Calligaris

text:
"Matteo" <
> Ho provato ad installare Access 97 su Vista ma non riesco a terminare
> l'installazione perché non riesco ad installare system.mdw. Qualcuno ha
> avuto lo stesso problema?
Ho incontrato il problema anche con Windows XP, due settimane fa.
Può darsi che il problema non sia legato al S.O. ma ad altro (forse il
limite di  1 GB di installazioni Access 97 non patchate a S.P2?).
Io il problema l'ho risolto in maniera sporca, sebbene funzionante: ho
installato un'applicazione Runtime '97 SP2 e poi, senza difficoltà, ho
potuto installare FULL Access 97.
Saluti.


title: access 97 e Vista

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:47447cca$0$10623$4faf...@reader2.news.tin.it...

grazie Simone,
ma la Runtime '97 dove si trova per installarla? O meglio, che cos'é?
grazie


title: access 97 e Vista

text:
"Matteo"
> > Io il problema l'ho risolto in maniera sporca, sebbene funzionante: ho
> > installato un'applicazione Runtime '97 SP2 e poi, senza difficoltà, ho
> > potuto installare FULL Access 97.
> grazie Simone,
> ma la Runtime '97 dove si trova per installarla? O meglio, che cos'é?
E' ... purtroppo la ver. Runtime 97 non è disponibile Free (ne è più in
commercio).
Naturalmente sono fatti tuoi se la trovi sul web o sulla rete P2P.
Per i dettagli su "cosa sia" puoi leggere il Faqqone su
www.sitocomune.com
Indipendentamente da discorso Runtime, un tentativo che si potrebbe fare per
confermare o smentire la mia "teoria" è il seguente:
1-  Si toglie RAM dalla macchina (se possibile) scendendo sotto 1 GB
2-  Si installa Office 97
3-  Si installano i 2 Service Pack cumulativi
4-  Si reinstallano tutti i banchi di RAM
Oppure trovare da qualche parte un CD con Office 97 SR2: molto rare le
versioni patchate (uscite solo negli ultimi tempi, ovviamente) ma so per
certo che esistevano...
Saluti.


title: lettura dati da file su web

author: blackdog

text:
Salve,
    devo sviluppare un'applicazione per venditori da utilizzare sul proprio
portatile. Ogni giorno(!) l'azienda per cui vendono comunica i prezzi minimi
del prodotto e la mia applicazione deve andare a leggerli.
Penso che la cosa più semplice sia per l'azienda di inserirlo da qualche
parte in internet e la mia applicazione dorebbe andare a leggere i dati da
questo file.
Avete qualche suggerimento per come potrei dire ad access di collegarsi a
quel sito e aggiornare certi campi? Posso usare anche semplici files di
testo?
grazie
blackdog


title: lettura dati da file su web


title: lettura dati da file su web

author: Gigi

text:
La risposta č una soltanto ( per me).
Active Server Page su server intranet o internet dell'azienda.
blackdog <
nospam-eug...@mediacom.it
> wrote in message
8omkh6$f4o$1...@fe2.cs.interbusiness.it...
> Salve,
>
>     devo sviluppare un'applicazione per venditori da utilizzare sul
proprio
> portatile. Ogni giorno(!) l'azienda per cui vendono comunica i prezzi
minimi
> del prodotto e la mia applicazione deve andare a leggerli.
> Penso che la cosa piů semplice sia per l'azienda di inserirlo da qualche



title: Esportazione di report in un documento Word esistente

author: Mirko Caporali

text:
Ciao a tutti,
Come noto, aprendo un report è possibile esportarne il contenuto in un
file word (nuovo) facendo click sull'iconcina "collegamenti ad Office".
Il mio problema è il seguente: anzichè esportare il contenuto del
report in un file nuovo, avrei l'esigenza di esportarlo alla fine di un
file Word già esistente.
In altri termini, avrei un file Word di (diciamo) 3 pagine, alla fine
di queste 3 pagine, avrei la necessità di consentire all'utente di
esportarvi il contenuto di un report.
Sapete come si può fare una cosa del genere?
Grazie.


text:
"Mirko Caporali" <
mirko.c...@tin.it
> ha scritto nel messaggio
news:1143540508.3...@e56g2000cwe.googlegroups.com...
Ciao a tutti,

www.sitocomune.com
 - Sezione Generals - cerca: utilizzo dei bookmark in word
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:
>
www.sitocomune.com
 - Sezione Generals - cerca: utilizzo dei bookmark in word
Bell'esempio di automazione con Word. Grazie.
Ciao


author: Four wheeler

text:


Ho provato l'esempio che, immagino, sia quello contenuto in
"6.137 Esempio di automazione per l'invio e la formattazione di dati
da Access a Word usando i bookmarks" del sito comune.
Molto interessante ed istruttivo però ho rilevato un problema nella
seguente sequenza:
1) esporto i dati del primo Cliente
2) senza salvare il file di word torno alla maschera ed esporto i dati
del secondo cliente
3) mentre osservo la scrittura dei dati nel nuovo documento di Word
passo al precedente documento Word (quello del primo cliente)
A questo punto salto sulla sedia inorridito!
la routine continua a scrivere i record dei prodotti del secondo
cliente sul documento del primo e ne viene fuori un pasticcio
colossale.
Non capisco come mai succeda questo. Apparentemente nel codice non ci
sono riferimenti al "documento corrrente" e quindi se la routine sta
lavorando sul Documento2 dovrebbe continuare a farlo anche se rendo
attivo il Documento1.
Come si può evitare questo comportamento?
Grazie per l'aiuto


text:
On Wed, 29 Mar 2006 19:45:03 +0200, Four wheeler
<no_ma...@nomail.it.invalid> wrote:
>
>Ho provato l'esempio che, immagino, sia quello contenuto in
>"6.137 Esempio di automazione per l'invio e la formattazione di dati
>da Access a Word usando i bookmarks" del sito comune.
>
>Molto interessante ed istruttivo però ho rilevato un problema nella
>seguente sequenza:
>1) esporto i dati del primo Cliente
>2) senza salvare il file di word torno alla maschera ed esporto i dati
>del secondo cliente
>3) mentre osservo la scrittura dei dati nel nuovo documento di Word
>passo al precedente documento Word (quello del primo cliente)
>
>A questo punto salto sulla sedia inorridito!
>la routine continua a scrivere i record dei prodotti del secondo
>cliente sul documento del primo e ne viene fuori un pasticcio
>colossale.
>
>Non capisco come mai succeda questo. Apparentemente nel codice non ci
>sono riferimenti al "documento corrrente" e quindi se la routine sta
>lavorando sul Documento2 dovrebbe continuare a farlo anche se rendo
>attivo il Documento1.
>
>Come si può evitare questo comportamento?
>
>Grazie per l'aiuto
Mentre attendevo una risposta ho aguzzato l'ingegno ed ho trovato lda
solo la soluzione: per risolvere il problema bisogna sostituire nel
codice, quando si fa riferimento all'oggetto Selection,  Wrd.Selection
con Doc.ActiveWindow.Selection.


title: Associare una casella combinata ad un'altra...?

author: Atanas

text:
Ho la necessità di fare si chè una casella combinata (B) venga influenzata
dal contenuto di un'altra casella combinata (A).
Come fare? Io ho aggirato l'ostacolo mettendo nell'origine riga (della
seconda casella combinata (B)) il comando in cui dico alla query di
mostrarmi tutti i record che hanno il contenuto della prima casella
combinata(A). Tutto bene, funziona, ma solo al 50%!!
Già, perchè se mi accorgo di aver fatto una scelta sbagliata e riselezione
un'altra voce dalla prima casella (A), la seconda (B) non rilegge più la
nuova informazione (ma sembra che memorizzi solo la prima scelta, ammeno che
non chiudo e riapro la maschera).
Come risolvere questo problema?


author: bradipo

text:
"Atanas" <
rifnet...@tariffenet.it
> ha scritto nel messaggio
news:KLUZ8.521$zL4....@news.edisontel.com...

tempo fà ho fatto un modulo che risolve e generalizza il problema e l'ho
postato per intero... ma pareva non interessasse a nessuno!    :)
peraltro ci stò lavorando per migliorarlo con degli eventi personalizzati ma
non fungono...    :-(    comunque eccoti di seguito la versione precedente,
grezza ma funzionante:
____________________________________________________________________________
_____________________________
'modulo (non di classe)
Private Sub filtra(FormName As String)
'questa funzione serve per implementare funzioni di filtro associativo
'per mezzo di combo box non associate su una maschera, la funzione và
chiamata
'all'evento Load della maschera e a ogni evento AfterUpdate delle combo
'
'Private Sub <nomecombo>_AfterUpdate()
'
'    filtra (Me.Name)
'
'End Sub
'
'limiti: non è importante settare il RowSource delle combo, ci pensa la
funzione
'richiamata all'avvio della maschera, l'importante è settare la proprietà
Tag delle
'combo CON IL NOME DEL CAMPO CHE SI DEVE FILTRARE.
'ATTENZIONE: il RecordSource della maschera contenente le combo può
contenere solo
'il nome di una query o tabella, se è impostato a una istruzione SQL
esplicità
'la funzione darà errori, INOLTRE IL NOME DEL CAMPO DEVE ESSERE UNIVOCO
'IN TUTTO IL DATABASE
'SI CONSIGLIA: nell'evento DblClick delle combo scrivere il seguente codice:
'
'Private Sub <nomecombo>_DblClick(Cancel As Integer)
'
'   Me.<nomecombo>.Text = ""
'   strDivisione = ""
'   Call filtra(Me.Name)
'
'End Sub
'
'
'____________________________________________________________
    Dim Mask As Form
    Dim cmb As Control
    Dim filtro As String
    Dim Tipo As String
    Dim Valore As String
    filtro = ""
    Set Mask = Forms(FormName)
        For Each cmb In Mask
            If cmb.ControlType = acComboBox And IsNull(cmb.Tag) = False And
cmb.Tag <> "" Then
                If IsNull(cmb) = False Then
                    Tipo = FindField(cmb.Tag)
                    Valore = cmb
                    If Tipo = "testo" Then
                        If InStr(Valore, Chr(34)) = 0 Then
                            filtro = filtro & " and " & cmb.Tag & "=" &
Chr(34) & Valore & Chr(34)
                        Else
                            Valore = Replace(Valore, Chr(34), "*")
                            filtro = filtro & " and " & cmb.Tag & " like " &
Chr(34) & Valore & Chr(34)
                        End If
                    End If
                    If Tipo = "data" Then
                        filtro = filtro & " and " & cmb.Tag & "=#" &
Mid(Valore, 4, 3) & Left(Valore, 3) & Mid(Valore, 7, 4) & "#"
                    End If
                    If Tipo = "numerico" Then
                        filtro = filtro & " and " & cmb.Tag & "=" & Valore
                    End If
                    If Tipo = "errore" Then
                        MsgBox "questa applicazione ha provocato un errore
inaudito e verrà inesorabilmente terminata", vbCritical + vbOKOnly, "SEI
NELLA MERDA"
                        DoCmd.Quit
                    End If
                End If
            End If
        Next
        If Len(filtro) > 5 Then
            filtro = Right(filtro, Len(filtro) - 5)
        End If
        For Each cmb In Mask
            If cmb.ControlType = acComboBox And IsNull(cmb.Tag) = False And
cmb.Tag <> "" Then
                If filtro = "" Then
                    cmb.RowSource = "select distinct " & cmb.Tag & " from "
& Mask.RecordSource & ";"
                Else
                    cmb.RowSource = "select distinct " & cmb.Tag & " from "
& Mask.RecordSource & " where " & filtro & ";"
                End If
            End If
        Next
        Mask.FilterOn = False
        Mask.Filter = filtro
        Mask.FilterOn = True
End Sub
Private Function FindField(Lui As String) As String
        Dim tbl As TableDef
        Dim fld As dao.field
        Dim prp As Variant
        For Each tbl In CurrentDb.TableDefs
            For Each fld In tbl.Fields
                If fld.Name = Lui Then
                    Select Case fld.Type
                        Case dbDate
                            MsgBox "data"
                            FindField = "data"
                        Case dbText
                            MsgBox "testo"
                            FindField = "testo"
                        Case dbInteger, dbLong, dbByte, dbFloat, dbSingle,
dbDouble, dbBigInt, dbBinary, dbBoolean, dbCurrency, dbDecimal, dbNumeric
                            MsgBox "numerico"
                            FindField = "numerico"
                        Case Else
                            MsgBox "errore"
                            FindField = "errore"
                    End Select
                End If
            Next
        Next
End Function


author: Marco Tognon

text:


Prova a forzare una requery della casella combinata B sull'evento
AfterUpdate della casella A.
Ciao
Marco.


author: Roberto da casa

text:
"Atanas" <
rifnet...@tariffenet.it
> ha scritto nel messaggio
news:KLUZ8.521$zL4....@news.edisontel.com...

Oltre a quello che hai già fatto e ti funziona al 50%, a fronte dell'evento
"Dopo aggiornamento" della casella combinata (A) esegui un Requery della
casella combinata (B).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
--> per Marco Tognon e Roberto da Casa:
Ehmm... dimenticavo di darvi una un piccolissimo dettaglio. Sono alle prime
armi, e alcune di queste "parolacce" non le conosco. Mi vergogno un po a
confessarvelo, ma se non lo faccio continuo a rimanere un ignorante.
Ho cercato di trovare in giro la "parolaccia" REQUERY, ma nulla!
Vuoi forse dire di R(E)iproporre la QUERY ? o è un comando che non conosco
ancora?
--> per Bradipo: Grazie, ma per ora credo sia troppo per me, utilizzare i
tuoi suggerimenti, ma ne farò sicuramente tesoro conservandoli ed
esaminandoli non appena sarò in grado di capirli.



text:


Inserisci il codice seguente nell'evento "Dopo aggiornamento" della
casella combinata A:
	me![Nome della tua casella combinata B].requery
Avrai ottenuto un comando che viene eseguito dopo che la tua casella A
viene modificata (non è precisamente così ma è per capirci) e che dice
ad Access di eseguire il ricalcolo dell'origine dalla quale arrivano i
dati nella casella B.
Ciao
Marco.


text:
Ci siamo quasi. E' proprio quello che mi serve, ma mi sfugge qualcosa visto
che mi da errore. Mi spiego meglio:
La casella combinata "A" mostra un elenco di categorie e la casella "B" una
sottocategoria della "A".
Per cui, quando su "A" io seleziono "CATEGORIA LAMPADE" su "B" io scelgo il
tipo di lampada "NEON"
Con questo voglio dire che "B" mostra un nome diverso da quello che appare
su "A", e se io ho ben capito la formula che mi hai dato - me![Nome della
tua casella combinata B].requery - , quando "me" non trova il corrispondente
valore identico ad "A" su "B", questo mi da errore!!
E' esatto?
Se č cosi, come risolvo questo problema?
mi da il seguente errore:
l'oggetto non contiene l'oggetto di automazione 'me'
___________________
>
> Inserisci il codice seguente nell'evento "Dopo aggiornamento" della
> casella combinata A:
>
> me![Nome della tua casella combinata B].requery
>
> Avrai ottenuto un comando che viene eseguito dopo che la tua casella A
> viene modificata (non č precisamente cosě ma č per capirci) e che dice



text:
On Sat, 20 Jul 2002 23:56:55 +0200, "Atanas"
<
rifnet...@tariffenet.it
> wrote:
>Ci siamo quasi. E' proprio quello che mi serve, ma mi sfugge qualcosa visto
>che mi da errore. Mi spiego meglio:
>La casella combinata "A" mostra un elenco di categorie e la casella "B" una
>sottocategoria della "A".
>Per cui, quando su "A" io seleziono "CATEGORIA LAMPADE" su "B" io scelgo il
>tipo di lampada "NEON"
>Con questo voglio dire che "B" mostra un nome diverso da quello che appare
>su "A", e se io ho ben capito la formula che mi hai dato - me![Nome della
>tua casella combinata B].requery - , quando "me" non trova il corrispondente
>valore identico ad "A" su "B", questo mi da errore!!
>E' esatto?
>Se è cosi, come risolvo questo problema?
>mi da il seguente errore:
>l'oggetto non contiene l'oggetto di automazione 'me'
>___________________
No, l'errore non è determinato dal trovare il valore identico.
Le tue caselle combinate hanno sicuramente un'origine controllo (il
nome del campo dove andranno memorizzati i dati) e un'origine riga
(l'insieme dal quale prelevare i valori da memorizzare). Probabilmente
la frase SQL che hai inserito nell'origine riga di una o dell'altra
casella non è corretta.
Ti faccio un esempio con una tabella come la immagino io. Ho una
tabella ARTICOLI contenente tra gli altri il campo CATEGORIA ed il
campo TIPO_ARTICOLO (che sono quelli che ci interessano)
Nella maschera tu hai creato due caselle combinate, una con origine
controllo = CATEGORIA e l'altra con origine controllo = TIPO_ARTICOLO;
questi sono i campi dove verranno registrati i dati.
Per evitare confusione, chiama le caselle CASELLA_CATEGORIA e
CASELLA_TIPO_ARTICOLO. Chiamare i tuoi controlli in modo diverso dal
nome del campo di origine è una buona cosa in Access, per evitare
riferimenti scorretti.
Nella casella combinata CASELLA_CATEGORIA l'origine riga la pongo a:
SELECT Articoli.Categoria FROM Articoli GROUP BY Articoli.Categoria;
mentre la CASELLA_TIPO_ARTICOLO avrà come origine riga:
SELECT Articoli.Articolo FROM Articoli WHERE
(((Articoli.Categoria)=[Casella_Categoria]));
Se poi inserisci il codice che ti dicevo, cioè:
me.Casella_Tipo_Articolo.requery
nel codice corrispondente all'evento dopo aggiornamento della
CASELLA_CATEGORIA, hai completato il quadro.
A me funziona.
Se per caso non sai come inserire del codice in risposta al
verificarsi di un evento, fai così:
- In modalità struttura della maschera, seleziona la CASELLA_CATEGORIA
e visualizza le proprietà
- Clicca sulla linguetta EVENTO
- Clicca sulla riga "Dopo aggiornamento"
- Clicca sui tre puntini che appaiono a destra della riga.
- Quello che ti appare è il posto dove scrivere il famoso
me.Casella_Tipo_Articolo.requery
Chiudi tutto salvando e vedrai che va.
Buon Lavoro!
Marco


text:
On Sat, 20 Jul 2002 23:56:55 +0200, "Atanas"
<
rifnet...@tariffenet.it
> wrote:
>Ci siamo quasi. E' proprio quello che mi serve, ma mi sfugge qualcosa visto
>che mi da errore. Mi spiego meglio:
>La casella combinata "A" mostra un elenco di categorie e la casella "B" una
>sottocategoria della "A".
>Per cui, quando su "A" io seleziono "CATEGORIA LAMPADE" su "B" io scelgo il
>tipo di lampada "NEON"
>Con questo voglio dire che "B" mostra un nome diverso da quello che appare
>su "A", e se io ho ben capito la formula che mi hai dato - me![Nome della
>tua casella combinata B].requery - , quando "me" non trova il corrispondente
>valore identico ad "A" su "B", questo mi da errore!!
>E' esatto?
>Se è cosi, come risolvo questo problema?
>mi da il seguente errore:
>l'oggetto non contiene l'oggetto di automazione 'me'
>___________________
No, l'errore non è determinato dal trovare il valore identico.



text:

______________________________________________________
Ok! ma se io ho la necessità di aggiornare periodicamente la tabella
"ARTICOLI" da distribuire ad altri db, e debbo memorizzare solo
"TIPO_ARTICOLO" in una tabella diversa (riassunto: tARTICOLI in solo lettura
e tTIPO_ARTICOLO in scrittura), come modifico la tua "istruzione"?
Ora ti dico come avevo strutturato io le istruzioni (legenda: cr=casella di
riepilogo; t=tabella; q=query -questi sono i prefissi che uso davanti ai
nomi-):
Ho creato 3 tabelle:
tCATEGORIE con solo il campo "CATEGORIA"
tELENCO con i campi "ARTICOLO" ed il campo "CATEGORIA"
tVUOTO con i campi da riempire "ARTICOLO" "PREZZO" ed eventuali altri campi
creo una crCATEGORIA che non ha nessun origine di controllo ma che ha solo
un origine riga così composta:
SELECT tCategorie.Categoria FROM tCategorie;
creo una crARTICOLI con origine di controllo "ARTICOLO" della tabella vuoto,
ed origine riga così composto:
SELECT Elenco.Categoria FROM Elenco WHERE
(((Elenco.Categoria)=Forms!maschera![crCategoria]));


text:
"Atanas" <
rifnet...@tariffenet.it
> ha scritto nel messaggio
news:q10_8.48$L12....@news.edisontel.com...
> --> per Marco Tognon e Roberto da Casa:
> Ehmm... dimenticavo di darvi una un piccolissimo dettaglio. Sono alle
prime
> armi, e alcune di queste "parolacce" non le conosco. Mi vergogno un po a
> confessarvelo, ma se non lo faccio continuo a rimanere un ignorante.
> Ho cercato di trovare in giro la "parolaccia" REQUERY, ma nulla!
> Vuoi forse dire di R(E)iproporre la QUERY ? o è un comando che non conosco
> ancora?
Mi sembra che stai risolvendi il tuo problema dialogando con Marco.



text:
"Roberto da casa"
> Mi sembra che stai risolvendi il tuo problema dialogando con Marco.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Ciao Roby,
se mi dai una mano anche tu ad imparare qualcosa non mi offendo!  ;-))
Sai com'č... a volte, un pensiero, un idea espressa in modo diverso puň
illuminare qualcuno... e tra tante persone che si esprimono c'č sempre
quella che ci illumina... Ciao!!


text:
"Atanas" <
rifnet...@tariffenet.it
> ha scritto nel messaggio
news:JFT_8.331$L12....@news.edisontel.com...
>
> "Roberto da casa"
> > Mi sembra che stai risolvendi il tuo problema dialogando con Marco.
> >
> > --
> > Roberto
> >
> > ---------------------------------------------
> > il Sito Comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> > ---------------------------------------------
> >
> >
> Ciao Roby,
> se mi dai una mano anche tu ad imparare qualcosa non mi offendo!  ;-))
> Sai com'è... a volte, un pensiero, un idea espressa in modo diverso può
> illuminare qualcuno... e tra tante persone che si esprimono c'è sempre
> quella che ci illumina... Ciao!!
Allora prova ad andare sul Sito Comune (link qui sotto);  fai il download
del database di esempi allegato alla FAQ che si trova nella Sezione Forms e
che è intitolata "Esempi di utilizzo delle forms".
Apri tale database e seleziona il Topic intitolato "Synchronizing Two Combo
Boxes on a Form".
Ti verrà mostrato un esempio di ciò che vuoi realizzare: le spiegazioni
dettagliate di come realizzare l'esempio le trovi al sguente link:
http://support.microsoft.com/support/kb/articles/Q97/6/24.asp?PR=ACC
Con gli omaggi di mamma Mocrosoft. ;-)



title: Prompt x Formato Data....

text:
ciao baldi giovani...
vorrei sapere come fare a far capitare il Prompt all'inizio del formato
data..
dato che me lo ritrovo sempre alla fine dell'anno...e vorrei averlo
all'inizio :
Maschera di Imput... = 99/99/0000;0;_
grazie da cl@udio


title: Prompt x Formato Data....

author: Roberto dal portatile

text:
"CL@UDIO" <_
na...@libero.it
> ha scritto nel messaggio
news:zuSD7.14777$7A4.9...@news.infostrada.it...

Prova a controllare in Strumenti/Opzioni/Tastiera se il Comportamento del
cursore nel campo è settato a Fine campo.
Se non sbaglio però, se si usa una Maschera input per un campo di tipo
Data/ora, a prescindere dal come hai settato il Comportamento del cursore
nel campo, dovresti trovare sempre posizionato sulla prima cifra del giorno.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Prompt x Formato Data....

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9rpdoj$3prq$1...@stargate1.inet.it...
|
| "CL@UDIO" <_
na...@libero.it
> ha scritto nel messaggio
| news:zuSD7.14777$7A4.9...@news.infostrada.it...
| > dato che me lo ritrovo sempre alla fine dell'anno...e vorrei averlo
| > all'inizio :
| > Maschera di Imput... = 99/99/0000;0;_
---------------|
| Prova a controllare in Strumenti/Opzioni/Tastiera se il Comportamento del
| cursore nel campo è settato a Fine campo.
| Se non sbaglio però, se si usa una Maschera input per un campo di tipo
| Data/ora, a prescindere dal come hai settato il Comportamento del cursore
| nel campo, dovresti trovare sempre posizionato sulla prima cifra del
giorno.
| --
| Roberto
-----------------------------
Diavolaccio...  era settato su "Seleziona tetta"  ooppss "Seletiona tutto".
ma se come dici tu a prescindere...da come è settato...
come mai ???
Ciao da Cl@udio


title: Prompt x Formato Data....

text:
"CL@UDIO" <_
na...@libero.it
> ha scritto nel messaggio
news:BocE7.22302$7A4.1...@news.infostrada.it...
> "Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
> news:9rpdoj$3prq$1...@stargate1.inet.it...
> |
> | "CL@UDIO" <_
na...@libero.it
> ha scritto nel messaggio
> | news:zuSD7.14777$7A4.9...@news.infostrada.it...
> | > dato che me lo ritrovo sempre alla fine dell'anno...e vorrei averlo
> | > all'inizio :
> | > Maschera di Imput... = 99/99/0000;0;_
> ---------------|
> | Prova a controllare in Strumenti/Opzioni/Tastiera se il Comportamento
del
> | cursore nel campo č settato a Fine campo.
> | Se non sbaglio perň, se si usa una Maschera input per un campo di tipo
> | Data/ora, a prescindere dal come hai settato il Comportamento del
cursore
> | nel campo, dovresti trovare sempre posizionato sulla prima cifra del
> giorno.
> | --
> | Roberto
> -----------------------------
> Diavolaccio...  era settato su "Seleziona tetta"  ooppss "Seletiona
tutto".
> ma se come dici tu a prescindere...da come č settato...
> come mai ???
Non saprei: non č per caso che nel definire la Maschera input hai usato il
segno di uguale; se č cosě toglilo.
> Ciao da Cl@udio



title: selezionare tutti i record

author: Neo

text:
ho una query di ricerca.
la ricerca si basa su un campo contenuto in una maschera.
il campo può contenere un valore oppure no
quindi la ricerca dovrà dare:
i record che contengono il campo se il campo è compilato
tutti i record della tabella se il campo non è compilato.
avete idee?
io ho scritto questa istruzione sql:
SELECT Tab.*
FROM Tab
WHERE
(((Tab.Foglio1)=IIf(IsNull([forms]![m_ricerca]![foglio]),(Tab.Foglio1)=[fogl
io1],[forms]![m_ricerca]![foglio]))) OR
(((Tab.Foglio2)=IIf(IsNull([forms]![m_ricerca]![foglio]),(Tab.Foglio2)=[fogl
io2],[forms]![m_ricerca]![foglio])));
funziona, solo che se il campo è nullo, mi elenca tutti i record ad
eccezione di quelli che hanno il campo foglio1 e foglio2 nulli.
come posso evitare questo problema?
grazie


title: selezionare tutti i record

author: namor

text:
"Neo" <
neo...@genie.it
> ha scritto nel messaggio
news:j505b.284617$lK4.8...@twister1.libero.it...

SELECT Tab.* FROM Tab
WHERE Tab.Foglio1 Like "*" & nz([forms]![m_ricerca]![foglio]) & "*"
OR Tab.Foglio2 Like "*" & nz([forms]![m_ricerca]![foglio]) & "*";
Namor


title: selezionare tutti i record

author: Roberto dalla campagna

text:
Neo <
neo...@genie.it
> wrote in message
j505b.284617$lK4.8...@twister1.libero.it...

Prova con una query che abbia il seguente codice SQL:
SELECT Tab.*
FROM Tab
WHERE (((Nz([Foglio1],"zzzzz")) Like Nz([Forms]![m_ricerca]![foglio],"*")))
OR (((Nz([Foglio2],"zzzzz")) Like Nz([Forms]![m_ricerca]![foglio],"*")));
In alternativa vai sul Sito Comune (link qui sotto) e nella Sezione Queries
leggi la FAQ di Federico Luciani intitolata "Visualizzare tutti i records
con una query parametrica".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: selezionare tutti i record

text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Gr45b.285576$Ny5.8...@twister2.libero.it...

Grazie è proprio quello che vercavo!
sai dirmi dove posso trovare informazioni sulla funzione nz?
ho cercato nell'help ma non ho trovato nulla..


title: selezionare tutti i record

author: MA

text:
> Grazie č proprio quello che vercavo!
> sai dirmi dove posso trovare informazioni sulla funzione nz?
> ho cercato nell'help ma non ho trovato nulla..
>
Dovrebbe esserci, cmq Nz č l'acrnimo di Null is Zero
MAssimiliano


title: selezionare tutti i record

text:
Neo <
neo...@genie.it
> wrote in message
eLg5b.286877$Ny5.8...@twister2.libero.it...

Strano che nell'help non hai trovato la funzione Nz: cerca meglio.
Comunque, la funzione Nz ti restituisce il valore del primo argomento se
esso è diverso da Null, mentre ti restituisce il valore del secondo
argomento se il valore del primo è uguale a Null. Se il secondo argomento
viene omesso di default assumerà il valore 0 (zero).



title: Problema con caricamento in sottomaschera

author: Fabrizio

text:
Ho creato una maschera di inserimento dati che comprende anche una
sottomaschera.
Nella maschera principale vengono caricati i dati del cliente, mentre nella
sottomaschera vengono caricati gli articoli acquistati dal cliente.
Ora però quando vado a caricare un nuovo articolo appena inserisco tutti i
dati ed esco dall'ultimo controllo, non va al nuovo record, ma bensì torna
al primo record.
Vorrei sapere da cosa può dipendere questo problema.
Fabrizio


text:
On Tue, 24 Sep 2002 10:26:15 +0200, "Fabrizio" <
far...@tiscali.it
>
wrote:

Ho già letto questo post da qlc altra parte.
Ciao. Fabrizio


text:
> >Ho creato una maschera di inserimento dati che comprende anche una
> >sottomaschera.
> >
> >Ora però quando vado a caricare un nuovo articolo appena inserisco tutti
i
> >dati ed esco dall'ultimo controllo, non va al nuovo record, ma bensì
torna
> >al primo record.
Hai per caso inserito inserito un requery?
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


text:
"Fabrizio" <
far...@tiscali.it
> ha scritto nel messaggio
news:amp7f2$gu4$1...@lacerta.tiscalinet.it...
> Ho creato una maschera di inserimento dati che comprende anche una
> sottomaschera.
>
> Nella maschera principale vengono caricati i dati del cliente, mentre
nella
> sottomaschera vengono caricati gli articoli acquistati dal cliente.
>
> Ora perň quando vado a caricare un nuovo articolo appena inserisco tutti i
> dati ed esco dall'ultimo controllo, non va al nuovo record, ma bensě torna
> al primo record.
>
> Vorrei sapere da cosa puň dipendere questo problema.
>
> Fabrizio
>
>
>
>
No non ho inserito nessun requery.
L'unica cosa che ho inserito, ma non nell'ultimo controllo del sottoreport e
un codice in visual del tipo
me.controllo1 = me.controllo2
Ma questo controllo non č l'ultimo della sottomaschera. Dopo la compilazione
di controllo1 questo compilo altri controlli, mentre il codice viene
eseguito all'uscita del controllo1.


text:
On Tue, 24 Sep 2002 08:45:14 GMT,
kk...@kksrl.com
 (MA) wrote:
>
>Hai per caso inserito inserito un requery?
>
>
>ciao MAssimiliano
Non chiederlo a me però , è un caso di omonimia.
Ciao. Fabrizio


author: All Eyez On me

text:
"Fabrizio" <
far...@tiscali.it
> ha scritto nel messaggio
news:amp7f2$gu4$1...@lacerta.tiscalinet.it...
> Ho creato una maschera di inserimento dati che comprende anche una
> sottomaschera.
>
> Nella maschera principale vengono caricati i dati del cliente, mentre
nella
> sottomaschera vengono caricati gli articoli acquistati dal cliente.
>
> Ora perň quando vado a caricare un nuovo articolo appena inserisco tutti i
> dati ed esco dall'ultimo controllo, non va al nuovo record, ma bensě torna
> al primo record.
>
> Vorrei sapere da cosa puň dipendere questo problema.
>
> Fabrizio
>
>
Dopo il caricamento se usi requery, ti si aggiorna la sottomaschera e ti si
posiziona sul primo record, se usi refresh, aggiorna e rimane sull'ultimo
AEOM


text:
E' bene che ti metti d'accordo con l'altro Fabrizio in modo che uno dei due
cambi nik, altrimenti nei thread si creano delle confuzioni.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
On Tue, 24 Sep 2002 10:09:15 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>E' bene che ti metti d'accordo con l'altro Fabrizio in modo che uno dei due
>cambi nik, altrimenti nei thread si creano delle confuzioni.
A parte che c'è clic destro del mouse .... , ma ,visto che sei sempre
gentile, ti dico un segreto : IO mi firmo sempre "Ciao. Fabrizio."
Come dici .... se uno sa che è un mio post non lo scarica ... non
colgo !!! :-))))
Ciao. Fabrizio


title: Vincolare l'inserimento dei dati alla pressione del tasto ok

author: Vincenzino

text:
Salve a tutti.
Ho creato alcune maschewre per l'inserimento dei dati in una database.
Ho notato che se inserisco solo alcuni campi e poi chiudo la maschera i dati
vengono inseriti ugualmente.
Io vorrei invece vincolare l'inserimento dei dati nel db solo alla pressione
di un opportuno bottone "ok", a cui affiancare un bottone "Annulla" che
chiude la maschera senza inserire i dati nel db.
Sapete come fare?
Grazie


author: Sergio MAZZA

text:
"Vincenzino" <
vince...@aliceposta.it
> ha scritto nel messaggio news:MPhfg.19583$cX1.2...@twister2.libero.it...

Devi non associare la maschera e gestire l'evento "su clic" del bottone inserendoci:
es.
'---
if msgbox("Ma sei proprio sicuro di volerlo fare?",vbcritical+vbyesno+vbdefaultbutton2,"Arghhh!")=vbyes then
    Docmd.RunSQL "Insert into nomeTabella Values(" & me!nomeCasellaDiTesto & ")"
    msgbox "L'hai fatta grossa!"
else
    msgbox "L'abbiamo scampata..."
end if
'---
Praticamente devi costruirti una query di accodamento indicando nei valori da scrivere il contenuto delle caselle di testo...
Ciao.
--
Sergio MAZZA


author: wlady

text:
Sergio MAZZA ha scritto:

un'altro metodo che non ti costringa ad usare codice sql (ma forse un
po' troppo semplicistico) è quello di eliminare il pulsante di
chiusura della maschera utilizzando la proprietà closebutton e mettere
due pulsanti OK e Annulla per chiudere e confermare oppure chiudere ed
annullare i dati inseriti. Sul primo inserirai un semplice docmd.close
sul secondo inserirai DoCmd.Close acForm, [form], acSaveNo
ciao


author: Davide (Sib)

text:
"Vincenzino" <
vince...@aliceposta.it
> ha scritto nel messaggio

Sfrutta l'evento "prima di aggiornare" per chiedere conferma
dell'inserimento.
Davide
--
www.gestionedati.com


title: Aggiornamento Sito Comune

text:
Io non riesco a scaricare il database allegato alla FAQ di Alessandro
Baraldi intitolata "Wizard per la creazione di menů nelle maschere stile
"Visual Basic" che si trova nella Sezione Forms.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aggiornamento Sito Comune

author: Claudio

text:
Sat, 16 Nov 2002 15:52:52 GMT, Roberto da casa ha scritto ben 13 righe
per dire:
>Io non riesco a scaricare il database allegato alla FAQ di Alessandro
>Baraldi intitolata "Wizard per la creazione di menů nelle maschere stile
>"Visual Basic" che si trova nella Sezione Forms.
Roberto,
a me funziona... che cosa ti dice?
Se ti serve te lo mando.
Ciao. Claudio.


title: Aggiornamento Sito Comune

text:
"Claudio" <c...@NOSPAMandCOsupereva.it> ha scritto nel messaggio
news:o1rctu4sm77phuaek...@4ax.com...

Grazie Claudio,
Ho riprovato e sono riuscito a fare il download.
Grazie comunque!
Ciao
Roberto


title: Aggiornamento Sito Comune

author: Luciano (DOC)

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:IvuB9.4548$Ka3.1...@twister1.libero.it...
> Ho riprovato e sono riuscito a fare il download.
Perche' nel frattempo zio Luciano (DOC)  ha corretto il bachino...:-)
Saluti.
Luciano


title: Aggiornamento Sito Comune

text:
"Luciano (DOC)" <
XXXlucia...@sitocomune.com
> ha scritto nel messaggio
news:ar5uci$fiqaf$1...@ID-86073.news.dfncis.de...

Bravo zio Luciano (DOC) !!
Ed io che pensavo che fosse colpa dello zio Bill !
Certo che sono maligno: penso sempre male della M$!
:-)



title: Aggiornamento Sito Comune

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:izwB9.38670$8E3.1...@twister2.libero.it...
>
[CUT]
>
> Bravo zio Luciano (DOC) !!
> Ed io che pensavo che fosse colpa dello zio Bill !
> Certo che sono maligno: penso sempre male della M$!
>
> :-)
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Per te ROBERTO posso fare un eccezione, posso inviartelo, anzi
mi piacerebbe un commento sul WIZZARD(anche se č un giochino)...!
@Alex(Alessandro Baraldi)....!


title: Aggiornamento Sito Comune

text:
"Claudio" <c...@NOSPAMandCOsupereva.it> ha scritto nel messaggio
news:o1rctu4sm77phuaek...@4ax.com...

Visto che l'ho fatto io avevi dubbi.....???
;-)
Ciao @Alex.


title: Aggiornamento Sito Comune

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:qqIB9.6552$Ka3.2...@twister1.libero.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:izwB9.38670$8E3.1...@twister2.libero.it...
> >
> [CUT]
> >
> > Bravo zio Luciano (DOC) !!
> > Ed io che pensavo che fosse colpa dello zio Bill !
> > Certo che sono maligno: penso sempre male della M$!
> >
> > :-)
> >
> > --
> > Roberto
> >
> > ---------------------------------------------
> > il Sito Comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> > ---------------------------------------------
> >
>
>
> Per te ROBERTO posso fare un eccezione, posso inviartelo,
Grazie, ma come ho detto, sono poi riuscito a scaricarlo.
> anzi
> mi piacerebbe un commento sul WIZZARD(anche se è un giochino)...!
E' sicuramente funzionale ed utile per creare un sistema scelte basato sui
menu. in alternativa a personalizzare la barra dei menu.
Circa alla tecnica di realizzazione, devo ancora sviscerarla: lo faccio per
tutti i nuovi esempi pubblicati sul Sito Comune e per ora non sono ancora
arrivato al tuo Wizard. :-)
>
> @Alex(Alessandro Baraldi)....!



title: Come impostare un MDE per l'uso in multiutente?

author: Carlo POTS

text:
Buongiorno a tutti.
Come da oggetto, avrei bisogno di trasformare un db in un multiaccesso
con questi parametri:
- Front-end di maschere, query, moduli e quant'altro sui singoli
computer (nel mio caso sono 4 in quattro diverse sedi) che devono
lavorare in modo indipendente (e magari insieme);
- Back-end di tabelle su un'area Dropbox o Google Drive o quant'altro.

Ho letto un pò in giro e ho capito che in primis devo crearmi un db tipo
ACCDE o MDE.
Chi può darmi qualche indirizzo in merito, considerando l'impossibilita'
operativa (almeno per il momento) di convertire il tutto in MySQL e PHP
per le maschere?

Se non c'e' niente da fare e rimanere il tutto in ambito locale, ovvero
in ambito remoto senza separare il DB, ditemelo subito; ma se c'e'
qualcosa da poter fare per realizzare questo "sogno".

Grazie a chi si interessera'
--
Carlo POTS

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


author: BFS

text:

argomento trito e ritrito.
se hai adsl ottima in tutte le sedi puoi tentare di lasciare il backend
su un server e mettere il front end sulle sedi. fancendo una vpn tra le
sedi.

altrimenti valuta un cloud server...aruba te lo da con 5 accessi rdp a
20 euro al mese se lo tieni acceso 10 ore al giorno. con sistema w12
server 4 gb ram 2 processori
dormi tranquillo con l'hardware e ci sbatti dentro il tuo db e tutti si
collegano in rdp da tablet pc mac

soluzione intermedia ti fai il tuo cloud privato con windows srver e rdp
su server locale

infine soluzioni tipo xpunlimited che ti fa la soluzione sopra senza il
bagno di sangue di licenze M$....ma nessuno ha mai chiarito / capito se
legale o no

Ciao
BFS


author: RobertoA

text:

Sembra il problema siano le connessioni simultanee
In pratica se usato su sistemi desktop i vari Xpunlimited e compagnia
violerebbero la licenza di Xp/7/8/10 per il fatto che al sistema
operativo consenti di utilizzare piu' connessioni delle due di serie
Sui sistemi operativi server non c'e' questa limitazione da licenza
Microsoft e quindi un qualsiasi Windows Server XYZ non dovrebbe aver
problemi neanche formali
Ad esempio la versione Windows Server Essential, credo costi sui 500$ e
dovrebbe essere la piu' economica di tutte


text:
Il 29/05/2017 16:50, BFS ha scritto:

Sto scaricando la Demo per vedere come funge; poi ti faro' sapere
--
Carlo



title: Estrazione

text:
Salve
ho un problema per voi banale, ho una taballa con un tot numero di dati, ora
voglio estrarre in  una query, tutti i volavi in cui un determinato campo è
vuoto come faccio?
es:
tabbella
C1                 C2                     C3
Marco            Calcio                Basket
Andrea           Vela
Ciro                Nuoto
...
Query (che voglio):
C1                    C2                C3
Andrea              Vela
Ciro                   Nuoto
Grazie
ciao
mavi


title: Estrazione

author: Antonio Ganci

text:

Nel QBE inserisci i campi C1, C2, C3 e nelle condizioni di C3 scrivi: is
null or ""
Antonio.


title: Estrazione

text:
Ho provato a inserire nel campo Criteri la stringa che mi hai consigliato
(is null or "") ma nn va! Dove sbaglio?
"Antonio Ganci" <
a.ganciNO...@megattera.it
> ha scritto nel messaggio
news:aqintj$a3pkb$1...@ID-162989.news.dfncis.de...



title: Estrazione

author: Alessandro Cara

text:
mavi82 wrote:
[cut]
> Ho provato a inserire nel campo Criteri la stringa che mi hai consigliato
> (is null or "") ma nn va! Dove sbaglio?
Per favore rispondi dopo il messaggio originale e taglia [cut] le parti
superflue
Usa l'icona "SQL" (usa tasto destro posizionandoti sulla barra blu del
titolo)
dovrebbe apparire l'istruzione generata
Copia/incolla e posta
--
a.cara


Estrazione


title: Estrazione

text:
mavi82 wrote:
>
> Ho provato a inserire nel campo Criteri la stringa che mi hai consigliato
> (is null or "") ma nn va! Dove sbaglio?
hai provato a fare quanto in mio post ore 13.38?
--
a.cara


title: Estrazione

author: FABIO

text:
mavi82 wrote:
> Ho provato a inserire nel campo Criteri la stringa che mi hai consigliato
> (is null or "") ma nn va! Dove sbaglio?
Prova solo con is null (senza or "")
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Estrazione

text: sono un po impreparato sull'argomento, potresti essere piů chiaro? grazie


title: Numerazione progressiva

author: Alberto Franceschetti

text:
Buon Giorno a tutti,
ripropongo il mio messaggio precedente
Sto cercando ancora un sistema per effettuare la numerazione delle
fatture, operazione che vorrei effettuare nello stesso momento in cui
vengono generate dalle bolle attraverso una query. Ho cercato di
utilizzare il suggerimento di IgnazioC, ossia di rifarmi a quanto
riportato su sitocomune "tables" punto 1.1, creando una specifica funzione.
Attraverso tale procedura, prima, comn una query di accodamento genero le
fatture senza numero, successivamente le debbo richiamare per numerarle.
Ho provato ad inserire la funzione nella query, ed il risultato è che
tutte le fatture emesse in quella sessione hanno lo stesso numero !!!. Il
mio obiettivo è quello di poter effettuare la numerazione direttamente
dalla query di accodamento.
Grazie in anticipo a quanti volessero darmi dei suggerimenti.
Alberto
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Numerazione progressiva

author: ciroteo

text:
"Alberto Franceschetti" <
frances...@alice.it
> ha scritto nel messaggio
news:df18gk$7h0$1...@news.newsland.it...
>
> Buon Giorno a tutti,
> ripropongo il mio messaggio precedente
> Sto cercando ancora un sistema per effettuare la numerazione delle
> fatture, operazione che vorrei effettuare nello stesso momento in cui
> vengono generate dalle bolle attraverso una query. Ho cercato di
> utilizzare il suggerimento di IgnazioC, ossia di rifarmi a quanto
> riportato su sitocomune "tables" punto 1.1, creando una specifica
> funzione.
> Attraverso tale procedura, prima, comn una query di accodamento genero le
> fatture senza numero, successivamente le debbo richiamare per numerarle.
>
> Ho provato ad inserire la funzione nella query, ed il risultato è che
> tutte le fatture emesse in quella sessione hanno lo stesso numero !!!. Il
> mio obiettivo è quello di poter effettuare la numerazione direttamente
> dalla query di accodamento.
>
> Grazie in anticipo a quanti volessero darmi dei suggerimenti.
>
> Alberto
>
>
Ciao Alberto, purtroppo questo è un newsgroup e non un help desk di
Microsoft.
Se continui a postare lo stesso messaggio rischi di apparire un po' noioso e
soprattutto uno che sta cercando la pappa pronta.
Escludo categoricamente che queste possano essere le tue intenzioni, ma,
ahimè, se non si seguono alcune regole di netiquette questo è il rischio che
corri.
Sicuramente appena qualcuno avrà tempo proverà a risponderti, nell'attesa
prova a fare un po' di ricerche sia sul sitocomune, sia sui precedenti post
chissà che qualcosa non salti fuori. Non fermarti alla prima soluzione che
non ti funziona, tenta e ritenta e non perderti d'animo. Soprattutto però
non essere eccessivamente insistente chi frequenta il ng, lo fa per puro
spirito di collaborazione e per passione, e fidati qui c'è gente veramente
preparata che utilizza access professionalmente, non rovinarti la
possibilità di imparare e di farti aiutare.
pazienta e nel frattempo datti da fare.
matteo


title: Numerazione progressiva

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:df1a01$c23$1...@hulme.interac.it...
>
> "Alberto Franceschetti" <
frances...@alice.it
> ha scritto nel messaggio
> news:df18gk$7h0$1...@news.newsland.it...
>>
>> Buon Giorno a tutti,
>> ripropongo il mio messaggio precedente
>> Sto cercando ancora un sistema per effettuare la numerazione delle
>> fatture, operazione che vorrei effettuare nello stesso momento in cui
>> vengono generate dalle bolle attraverso una query. Ho cercato di
>> utilizzare il suggerimento di IgnazioC, ossia di rifarmi a quanto
>> riportato su sitocomune "tables" punto 1.1, creando una specifica
>> funzione.
>> Attraverso tale procedura, prima, comn una query di accodamento genero le
>> fatture senza numero, successivamente le debbo richiamare per numerarle.
>>
>> Ho provato ad inserire la funzione nella query, ed il risultato è che
>> tutte le fatture emesse in quella sessione hanno lo stesso numero !!!. Il
>> mio obiettivo è quello di poter effettuare la numerazione direttamente
>> dalla query di accodamento.
>>
>> Grazie in anticipo a quanti volessero darmi dei suggerimenti.
>>
>> Alberto
>>
>>
>
[CUT]
ok ti sei offeso....
allora provo ad aiutarti.
cito il tuo msg cosi provo a vedere se passo passo ho capito l'esigenza ...
[cit...]
Ho un archivio dove sono registrate le bolle di consegna emesse
giornalmente ai vari clienti, ora, attraverso una query debbo selezionare
da data a data tutte le bolle emesse e raggrupparle per cliente.
le bolle hanno già il cliente?
In questo caso la query di raggruppamento sarà fatta in base alla data (o al
periodo) e in base al cliente.
prova a mettere nella tabella bolle un campo in più di tipo boolean (si/no)
chaimandolo selezione_bolla e un campo numero fattura. (di solito io uso un
campo numerico strutturato su 8 cifre p.e. 20050001 dove le prime 4 cifre
indicano l'anno e le ultime 4 il progressivo fattura.
- tramite una prima query di aggiornamento potrai selezionare il periodo e
il cliente e assegnare a vero il valore di selezione_bolla
- poi puoi fare una nuova query di aggiornamento in cui assegni il valore al
campo numero fattura ricavato dall'ultima fattura ( tramite un dlookup o un
dmax) +1
solo ai record in cui selezione_bolla è vero.
- poi tramite query di accodamento spari tutti i dati nella tabella fatture.
- alla fine tramite una query di aggiornamento aggiorni a falso il valore di
selezione_bolla.
[ ... cit ...]
Nell'eseguire la query vorrei ( se ciò è possibile !) che avvenisse in
automatico la numerazone delle fatture, tenendo conto dell'ultima fattura
emessa nel periodo precedente e che ad ogni inizio di anno tale
numerazione iniziasse da 1.
per questo alla prossima puntata ...
p.s. non è sicuramente la soluzione ottimale, ma se non hai problemi di più
utenze dovrebbe funzionare bene ...
ciao matteo


title: Numerazione progressiva

author: Mister No

text:
[CUT]
Ciao ciroteo,
non la metterei tanto sull'offesa -> in fondo quanto hai suggerito è
giustissimo ! ;-)
Magari il "soggetto" si sarà dimenticato di passare per questa pagina
http://www.accessgroup.it/notiquette.htm
 e quindi adesso starà spendendo
"qualche secondo" x leggerla! :-)
Buona giornata :-)
Gaspare


title: Numerazione progressiva

text:
Mister No ha scritto:
> [CUT]


> Buona giornata :-)
> Gaspare
Grazie per i suggerimenti



title: Numerazione progressiva

text:
[CUT]
> Grazie per i suggerimenti
Di nulla -> cmq è stato "ciroteo" a darteli ! :-)


title: Numerazione progressiva

text:
[CUT]
Grazie per i consigli, sicuramente avrete notato che non sono un esperto
in Access come Voi, le mie competenze sono in altri campi, access č solo
uno "strumento" con il quale, in casi eccezzionali, cerco di risolvere
qualche problema immediato.
Mi scuso ancora per l'inosservanza delle regole, e ringrazio per i
suggerimenti.
Saluti



title: Numerazione progressiva

text:
"Alberto Franceschetti" <
frances...@alice.it
> ha scritto nel messaggio
news:df1nrc$f1q$1...@news.newsland.it...
> [CUT]
>
> Grazie per i consigli, sicuramente avrete notato che non sono un esperto
> in Access come Voi, le mie competenze sono in altri campi, access č solo
> uno "strumento" con il quale, in casi eccezzionali, cerco di risolvere
> qualche problema immediato.
>
> Mi scuso ancora per l'inosservanza delle regole, e ringrazio per i
> suggerimenti.
>
> Saluti
>
> Alberto
>
figurati alberto č un piacere, spero solo di esserti stato utile.
tienici aggiornati.


title: Numerazione progressiva

text:
"Mister No" <
ma...@mail.it
> ha scritto nel messaggio
news:zhZQe.95724$2U1.4...@news3.tin.it...
>
> [CUT]
>
>> Grazie per i suggerimenti
>
> Di nulla -> cmq è stato "ciroteo" a darteli ! :-)
>
si così becco le botte io ... tu li hai visti i bicipiti di Sergio Mazza????
p.s. cacchio Gaspare sei l'uomo con più nickname che conosco .... studio
educational / gaspare / e adesso qusto mistre no ... questo è più che uno
sdoppiamento di personalità! mi son perso qualcosa??!?


title: Numerazione progressiva

text:
[CUT]
> si così becco le botte io ... tu li hai visti i bicipiti di Sergio
>  >Mazza????
No e sinceramente non ci tengo!
> p.s. cacchio Gaspare sei l'uomo con più nickname che >conosco .... studio
> educational / gaspare / e adesso qusto mistre no ... questo >è più che uno
> sdoppiamento di personalità! mi son perso qualcosa??!?
Allora faccio una breve sintesi.
Sono entrato qui con l'email dello studio -> onde evitare malintesi e forme
di pubblicità "occulta" ho diviso il dovere dal piacere -> stare qui! ;-)
Giacchè MA mi ha invitato 2 volte all'iscrizione su AccessGroup e Namor si
chiedeva xchè non lo facessi -> mi sono deciso di farlo! Che Nick usare?
Quello di un rompiscatole...
Sdoppiamento di personalità? Solo x un pò di fantasia...non è che che rimani
"impressionato" da film come "Il silenzio degli innocenti"? ;-)
Nick ->Mister No
Nome:Gaspare
Cognome: Calia
Sesso: M (fidati ! ;-)
etc...
Se qualcos'altro non è chiaro esternati! ;-)


title: Numerazione progressiva

text:
[CUT]
Anzi giacchè ci sei spiegami una cosa -> che vuol dire "ciroteo" ? ;-)
Alla prossima hombre :-)
Gaspare -> "lo sdoppiato" ;-)


title: Numerazione progressiva

text:
[CUT]
Ok -> ci provo
Dim cognome As String
Dim nome aS String
Dim nick As string
cognome="Cirea"
nome="matteo"
nick=left(cognome,3) + "o" + right(nome,3) -> ci siamo ? ;-)


title: Numerazione progressiva

author: MA

text:

Sě deve tutto ad un tizio per cui lavorava che lo battezzň cosě
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Numerazione progressiva

text:
[CUT]
> Sě deve tutto ad un tizio per cui lavorava che lo battezzň >cosě
>
Ah...ho capito! Quindi c'č dietro un "fatto realmente accaduto" -> per
questo il "soggetto" non ha dimistichezza con i nick che vengono fuori dalla
fantasia! ;-)


title: Numerazione progressiva

text:
"Mister No" <
ma...@mail.it
> ha scritto nel messaggio
news:5OkRe.3039$4g5.1...@news4.tin.it...
> [CUT]
>
>> Sì deve tutto ad un tizio per cui lavorava che lo battezzò >così
>>
>
> Ah...ho capito! Quindi c'è dietro un "fatto realmente accaduto" -> per
> questo il "soggetto" non ha dimistichezza con i nick che vengono fuori
> dalla fantasia! ;-)
>
>
In passato ho lavorato per una grossa società informatica a Varese. Il mio
primo collega, nonchè responsabile era soprannominato "mascepao" nomignolo
derivato da paolo  mascetti. Lui mi ha battezzato cosi ... avendo io
l'indirizzo email aziendale ma non un nick per quella personale ho deciso di
utilizzare questo nick per la prima mail  ... e da li è rimasto.
saluti


title: Numerazione progressiva

author: Gaspare Calia

text:
[CUT]
Ciao,
si ho capito -> MA me lo ha spiegato.
Cos'è stata la classica situazione del tipo "prendere o lasciare"?
...insomma o ti va bene il nick o ci si lascia dopo il periodo di prova?
Buona :-)


title: Numerazione progressiva

text:
[CUT]
Lascia perdere -> non rispondermi!
Buona giornata :-)


title: Problema A97 con win2000

author: MarcoS

text:
Ho vari programmi in azienda fatti con Access 97 (runtime), sono in funzione
da vari anni e tutto ok.
Le stazioni più nuove hanno win2000 e solo in queste ogni tanto i programmi
danno degli errori di runtime che sono dovuti alla "perdita" della
connessione di rete, in realtà il PC è perfettamente collegato, basta andare
in Esplora Risorse e vedere, cmq non succede con nessun altro tipo di
programma tranne Autocad perchè anch'esso ha una funzione di ricerca che fà
riferimento a un db di A97.
Succede in tutte le stazioni che hanno win2000 e sono varie, quindi non è
colpa del PC.
Non succede mai in quelle che hanno altri win*
Tutte le stazioni con win2000 hanno SP2+patch w2kSP2SRP1.exe
In sintesi non sono i programmi e non è la rete e neppure i PC, ma qualcosa
tra A97 e win2000.
Ne sapete qualcosa ?
--
Ciao Marco S.
www.marcosanti.it


title: Problema A97 con win2000

author: Federico Luciani

text:

non ci giurerei :-)
io verificherei le schede di rete dei nuovi pc, purtroppo Access e'
un buongustaio e pretende solo ottime schede di rete.
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Problema A97 con win2000

author: warp

text:
"Federico Luciani"
> > In sintesi non sono i programmi e non è la rete e neppure i PC, ma
qualcosa
> > tra A97 e win2000.
> non ci giurerei :-)
Concordo ... non ho rilevato niente di strano con Win '2000, che d'altro
canto è una versione migliorata di NT 4.0.
> io verificherei le schede di rete dei nuovi pc, purtroppo Access e'
> un buongustaio e pretende solo ottime schede di rete.
Questione di fortuna: spesso si accontenta anche di schede discrete ;-)
Ah, mai comunque delle Realtek!
Ciao: Silvio


title: Problema A97 con win2000

text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3C890E8D...@sitocomune.com...
>
> non ci giurerei :-)
> io verificherei le schede di rete dei nuovi pc, purtroppo Access e'
> un buongustaio e pretende solo ottime schede di rete.
>
:-)
Il mio ha una 3Com, quelli nuovi devo fare una verifica.
Cmq sul mio PC ho la possibilità di alternare 3 differenti dischi con SO
differenti, quello in cui c'è win98 non mi ha mai dato questo tipo di
problema, quindi penso che non sia una questione di hardware, giusto ?
grazie



title: Problema A97 con win2000

text:
"MarcoS" <
> > non ci giurerei :-)
> > io verificherei le schede di rete dei nuovi pc, purtroppo Access e'
> > un buongustaio e pretende solo ottime schede di rete.
> Il mio ha una 3Com, quelli nuovi devo fare una verifica.
> Cmq sul mio PC ho la possibilità di alternare 3 differenti dischi con SO
> differenti,
 quello in cui c'è win98 non mi ha mai dato questo tipo di
> problema, quindi penso che non sia una questione di hardware, giusto ?
Non è detto ... a proposito di Realtek: se le usi con i Drivers standard di
win '98 ti bruciano un .mdb in mezzo minuto.
Se li aggiorni, mantenendo la stessa scheda sul PC, il problema non si
manifesta più (anche se resta una schedaccia, beninteso).
Ciao: warp


title: GeneraContatore automatizzazione

author: Spider

text:
Ciao a tutti :)
Ho implementato il GeneraContatore di Davide La Mantia
debuggato da Federico Luciani (a cui va il mio ringraziamento)
per generare i progressivi delle fatture.
Vorrei automatizzare la procedura, evitando di aprire ogni
volta la maschera per ottenere il progressivo.
C'e' un modo per generare il progressivo direttamente dalla
maschera della fattura?
--
Spider


title: GeneraContatore automatizzazione

text:
"Spider" <
thespidersp...@interfree.it
> ha scritto nel messaggio
news:oxoMc.37090$OR2.1...@news3.tin.it...

Credo di riuscire a risolvere inserendo la maschera di generazione
come sottomaschera con un bottone di comando e i controlli settati
a invisibile nella maschera della fatturazione.
C'e' un modo piu' elegante?
--
Spider


title: Errore run-time 3331

author: MTofa

text:
Ho realizzato una maschera per la preparazione di fatturazioni con origine
controllo da una
query che raccoglie i dati da due tabelle, una con i dati anagrafici dei
clienti ed una con i dati delle fatture collegate con una relazione
uno-a-molti mediante il campo in comune IDCliente.
Per scegliere il cliente da un elenco preinserito ho creato un'altra query
che raccoglie i dati anagrafici dalla tabella dei clienti che vengono
visualizzati su una maschera tabulare di tipo dialog quando si preme un
tasto nella prima maschera. Il codice inserito nell'evento click del tasto è
il seguente:
Private Sub cmdCercaNomi_Click()
    If IsNull(Forms!Edit_fattura!Nome.Value) Then
        DoCmd.OpenForm "TabulatoClienti"
    Else
        DoCmd.OpenForm "TabulatoClienti", , , "[Nome] Like
'*'+[Forms]![Edit_fattura]![Nome]+'*'", , acDialog
    End If
End Sub
In questo modo inserendo anche un solo carattere nel controllo "Nome" della
maschera principale vengono visualizzati nella dialog tabulare soltanto i
nomi che iniziano con quella lettera o con quelle lettere se sono più di
una. Lasciando il campo vuoto invece vengono visualizzati nella dialog tutti
i nomi.
Per scegliere un cliente e far si che tutti i dati compaiano nei controlli
della form principale ho creato un tasto che una volta premuto inserisce
l'IDCliente del nominativo selezionato nel campo IDCliente della form
principale (chiudendo anche la dialog) cosicchè tutti gli altri dati
compaiono automaticamente negli altri controlli:
Private Sub Scelta_Click()
    Forms!Edit_fattura!IDCliente = Me.IDCliente
    DoCmd.Close acForm, "TabulatoClienti"
End Sub
Purtroppo tutto funziona bene se l'operazione avviene senza aver filtrato i
nominativi ovvero senza aver inserito alcuna lettera nel campo Nome per
effettuare una ricerca più mirata. In questo caso mi si interrompe
l'esecuzione con un errore di run-time 3331: "Per apportare modifiche al
campo è necessario salvare il record". Per quale motivo? Come faccio a
salvare il record se ancora non ho completato le operazioni di inserimento.
Inoltre come
mai nel caso di trasferimento dell'IDCliente dalla dialog che raccoglie i
clienti aperta senza filtrare i dati, la modifica al campo avviene senza
problemi?
Per cortesia qualcuno può aiutarmi?
--
mtofa
mt...@iol.it


title: Errore run-time 3331

author: Roberto dalla campagna

text:
"MTofa" <mt...@NSPMiol.it> ha scritto nel messaggio
news:7OHse.8951$yM4.1...@twister2.libero.it...

E se scrivi:
DoCmd.OpenForm "TabulatoClienti", , , _
"[Nome] Like '*" & [Forms]![Edit_fattura]![Nome] & "*'"
oppure:
DoCmd.OpenForm "TabulatoClienti", , , _
"[Nome] Like '*" & [Forms]![Edit_fattura]![Nome] & "*'", , acDialog
se la maschera TAbulatoClienti va apero in modalità dialogo (anche se mi
sembrerebbe moooolto strano).
>
>
> --
> mtofa
>
mt...@iol.it
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Errore run-time 3331

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:wXRse.9346$yM4.1...@twister2.libero.it...
>
>
> E se scrivi:
>
> DoCmd.OpenForm "TabulatoClienti", , , _
> "[Nome] Like '*" & [Forms]![Edit_fattura]![Nome] & "*'"
>
> oppure:
>
> DoCmd.OpenForm "TabulatoClienti", , , _
> "[Nome] Like '*" & [Forms]![Edit_fattura]![Nome] & "*'", , acDialog
>
> se la maschera TAbulatoClienti va apero in modalità dialogo (anche se mi
> sembrerebbe moooolto strano).
>
Provato, ma non cambia niente... sigh!
Anche facendo aprire la form del tabulato clienti normale, senza acDialog, è
la stessa cosa.
----
mtofa
mt...@iol.it


title: Errore run-time 3331

text:
"MTofa" <
mt...@iol.it
> ha scritto nel messaggio
news:qRVse.9676$D7.2...@twister1.libero.it...

Onestamente non so cosa dirti; per scrupolo ho provato in un datbase di
prova la soluzione che ti ho consigliata ed a me funziona perfettamente.
Probabilmente il maòfunzionamento dipenda da qualche altra cosa del tuo
datbase, che però hai in mano tu e la mia palla di vetro si è rotta. ;-)



title: Errore run-time 3331

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:MBfte.10955$D7.2...@twister1.libero.it...
>
> "MTofa" <
mt...@iol.it
> ha scritto nel messaggio
> news:qRVse.9676$D7.2...@twister1.libero.it...
>>
>> "Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
>> messaggio news:wXRse.9346$yM4.1...@twister2.libero.it...
>> >
>
> Onestamente non so cosa dirti; per scrupolo ho provato in un datbase di
> prova la soluzione che ti ho consigliata ed a me funziona perfettamente.
> Probabilmente il maòfunzionamento dipenda da qualche altra cosa del tuo
> datbase, che però hai in mano tu e la mia palla di vetro si è rotta. ;-)
>
> --
Ti ringrazio ugualmente per esserti interessato. Purtroppo ancora non sono
riuscito a capire cos'è che determina l'errore. Ho provato anche a salvare
il record con il comando:
DoCmd.RunCommand acCmdSaveRecord
ma mi restituisce errore 2046 Comando o azione "SalvaRecord" non
disponibile.
--
mtofa
mt...@iol.it


title: Virus?

text:
Salve a tutti,
Nod32 con la sua rossa finestra mi ha segnalato l'intrusione di Win32/
Qhosts cavallo di troia. Ho chiesto la cancellazione, ma il programma
non può intervenire perché il file è bloccato. L'evento è occorso
durante il tentativo di accesso di un'applicazione...a non so a cosa.
Una successiva scansione profonda del Nod rivela due cartelle "SAM"
con dicitura file bloccato, e sotto la voce mittente riporta- Utente:
NT AUTORITY SERVIZIO DI RETE. All'indirizzo dichiarato da Nod: C
\Windows\sistem32\ drivers\etc\host si rileva una cartella "SAM" di 4
kb.
La scansione però dichiara la presenza di due cartelle di file SAM,
una di 4 kb e l'altra SAM Log di 256 kb.
Chiedo ai sapienti dell'informatica: "Cos è un file SAM? Cos'è
l'AUTORITY DI RETE? Dato che il file è bloccato posso cancellarlo
manualmente senza creare danni al S.O. (Windows XP prof multilingue)
dato che si è inserito in esso?
Grazie a chi vorrà rispondere.
yamasiro


title: Virus?

author: CIDI

text:
<
yamasi...@gmail.com
> ha scritto nel messaggio
news:47bd1ca4-0daa-4192...@v38g2000yqb.googlegroups.com...

sei leggermente OT...prova a chiedere su:
microsoft.public.it.sicurezza
microsoft.public.it.windowsxp
Ciao
Daniele


title: Apertura Word da A97

text:
Ho fatto un programma in A97 che apre automaticamente i file di Word, ma
utilizzo questa funzione che ogni volta mi apre una sissione nuova di Word:
vEsegui = "C:\Programmi\Microsoft Office\Office\winword.exe" & " " &
vNameFile
vStatus = Shell(vEsegui, 3)
Vorrei capire se word è già aperto, quindi aprire il documento sulla
sissione già aperta oppure aprire Word nel caso è chiuso.
Ho già fatto una cosa simile con Autocad:
Public acad As AcadApplication
Public Function AttivaAcad()
AppActivate acad.ActiveDocument.Application.Caption, False
End Function
Public Function LancioAcad()
   Dim myApp As Object      'AcadApplication
    On Error Resume Next
    Set myApp = GetObject(, "AutoCAD.Application.15")
    If Err Then
        Err.Clear
        Set myApp = CreateObject("AutoCAD.Application.15")
        If Err Then
            MsgBox Err.Description
            Exit Function
        End If
    End If
    On Error GoTo 0
    Set acad = myApp.Application
    acad.Application.Visible = True
End Function
Posso utilizzare questo metodo ?
Come devo dichiarare l'oggetto Word ?
grazie 1000
--
Ciao Marco S.
www.marcosanti.it


title: Apertura Word da A97

text:
"MarcoS" <
marco...@libero.it
> ha scritto nel messaggio
news:a6n5v5$fc9mc$1...@ID-122915.news.dfncis.de...
Mi sono scordato di dire che quel programma è fatto in VB6 con caricate le
librerie di Autocad.



title: Apertura Word da A97

text:
"MarcoS" <
marco...@libero.it
> ha scritto nel messaggio
news:a6n5v5$fc9mc$1...@ID-122915.news.dfncis.de...
Questa funziona:
''''''Controllo se Word è già aperto, altrimenti lo apro
Dim MyWord As Object, word As Object
 On Error Resume Next
 Set MyWord = GetObject(, "Word.Application")
 If err Then
     err.Clear
     Set MyWord = CreateObject("Word.Application")
     If err Then
         MsgBox err.Description
         Exit Function
     End If
 End If
On Error GoTo 0
Set word = MyWord.Application
word.Application.Visible = True
Ora devo riuscire ad aprire il file, come faccio ?



title: Apertura Word da A97

author: Emyr

text:
On Wed, 13 Mar 2002 11:22:57 +0100, "MarcoS" <
marco...@libero.it
>
wrote:

dim a as word.document
a=word.open(nomefile)
vedi su
sitocomune.it
 sezione general gli esempi di automazione
Saluti.
Emanuele.


title: Apertura Word da A97

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:61019us278l6a2vu1...@4ax.com...

grazie 1000
