title: OT: per Roberto da casa

text:
"lau" <
lau...@bpsinf.it
> ha scritto nel messaggio
news:43e592474c37942d2d7...@mygate.mailgate.org...
> perdono, solamente ora ho visto il tuo post "Come ci si dovrebbe
> comportare in un newsgroup, ovvero 'Istruzioni per l'uso'", lo leggo
> appena ho un attimo di tempo.
> Comunque cercherò di stare più attenta, sorry.
>
> lau
Beh, volevo scriverti per dirti che per penitenza dovevi metterti cinque
minuti in ginocchio sui ceci, ma per questa volta sei perdonata. :-))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Stringhe nella finestra di debug

author: barbi

text:
Ho verificato che nella finestra di debug non mi fa vedere per intero il
valore di una stringa lunga piu' di 256 caratteri ma me la sega appunto a
256 (o 255, o 254...non mi voglio rovinare la vista) - c'e' un sistema per
vederla tutta?
grazie da barbi


title: Stringhe nella finestra di debug

author: Stefano Bettini

text:
barbi ha scritto nel messaggio ...

debug.print mid(MiaStringa,1, 250) & vbcrlf & mid(MiaStringa, 251, 250)
Bye, Ste


title: Stringhe nella finestra di debug

text:
Stefano Bettini <
sbet...@iol.it
> wrote in message
10kfmg9$3br$1...@fe2.cs.interbusiness.it...
>
> barbi ha scritto nel messaggio ...
> >Ho verificato che nella finestra di debug non mi fa vedere per intero il
> >valore di una stringa lunga piu' di 256 caratteri
>
> debug.print mid(MiaStringa,1, 250) & vbcrlf & mid(MiaStringa, 251, 250)
>
grazie, ma cosi' mi devo scrivere l'istruzione ogni volta... io pensavo che
ci fosse qualcosa di automatico, che so, un'opzione del debug...
barbi


title: Stringhe nella finestra di debug

text:
barbi ha scritto nel messaggio ...
>
>> debug.print mid(MiaStringa,1, 250) & vbcrlf & mid(MiaStringa, 251, 250)
>>
>grazie, ma cosi' mi devo scrivere l'istruzione ogni volta... io pensavo che
>ci fosse qualcosa di automatico, che so, un'opzione del debug...
Non c'è; xò se ti dicessi:  MioDebug(MiaStringa)
cosa ti verrebbe in mente ?
Bye, Ste


title: Stringhe nella finestra di debug

text:
Stefano Bettini <
sbet...@iol.it
> wrote in message
10kr03m$p9s$1...@fe2.cs.interbusiness.it...

mi viene in mente che ho messo un Msgbox e me la vedo cosi'...
barbi


title: Send Mail andata fino a ieri, oggi non va piu

author: RobertoA

text:
Uso il seguente codice per spedire posta
------------------------------------------------
Set SendMail = New modClsMAPISendMail
SendMail.Clear
SendMail.AddTo "", DESTINATARIO
SendMail.Subject = OGGETTO
SendMail.Body = MESSAGGIO
SendMail.FileAdd (NOME_FILE)
SendMail.SendImmediately = True

dummy = SendMail.Send
if dummy > 0 Then
     ESITO = "Errore => " & dummy & " = " & SendMail.MAPIError(dummy)
     Else
     ESITO = "Msg inviato a " & DESTINATARIO & " con successo"
     End If

Set SendMail = Nothing
------------------------------------------------

Queste routine sono nella classe modClsMAPISendMail
http://www.vbsimple.net/index.htm?/howto/ht_020-2.htm

Bene, almeno fino a ieri funzionava tutto bene
Stamattina proviamo a spedire, ed alla riga

dummy = SendMail.Send

viene ritornato l'errore 2, che in letterale e' la costante  MAPI_E_FAILURE

Ma che de' ?


text:

Ha ripreso a funzionare
Senza modificare niente (almeno cosi' mi hanno detto)
Lo dico sempre che 'sembrano vive ste macchine'
A proposito, come si definisce la 'vita' ?
Quand'e' che si puo' dire, e' VIVO ?


text:
Il 02/02/2017 20:12, RobertoA ha scritto:
> Ha ripreso a funzionare
> Senza modificare niente (almeno cosi' mi hanno detto)
> Lo dico sempre che 'sembrano vive ste macchine'
> A proposito, come si definisce la 'vita' ?
> Quand'e' che si puo' dire, e' VIVO ?
> Ha ripreso a funzionare
> Senza modificare niente (almeno cosi' mi hanno detto)
> Lo dico sempre che 'sembrano vive ste macchine'
> A proposito, come si definisce la 'vita' ?
> Quand'e' che si puo' dire, e' VIVO ?

quando agiscono (o sembrano agire) con una volontà propria, anche se
questo coinvolge tutta una serie di fenomeni che non comprendiamo:
"Ci sono più cose in cielo e in terra, Orazio, che nella tua filosofia."
(Amleto, Atto I, sc. III)

Quando i colleghi mi domandano come sono possibili cose come queste, io
rispondo che l'informatica e le tecniche collegate sono un pò come Babbo
Natale, o le scienze olistiche, o anche i pellegrinaggi ai Santuari: se
ci credi, funziona. Però occorre fede. Tanta fede. ;-)

ciao
--
Stefano


text:

Se fossi un tuo collega risponderetti
"...ma va' in mona vala'..."


text:
Il 03/02/2017 10:26, RobertoA ha scritto:

 > Se fossi un tuo collega risponderetti
 > "...ma va' in mona vala'..."
:D
tu hai le tue ragioni perchè sei più stregone di me, ma qui lo sciamano
(purtroppo) sono io. I "dummies" sono dappertutto ed a volte si fa un
po' fatica a spiegare tutto per filo e per segno, dovendo anche ripetere.
Sicchè, per spiegare il fenomeno, dove non arriva la ragione (perchè
proprio non ci arriva) rimane solo la fede.
(Oh, per amor del Cielo: sono chiacchiere per strappare un sorriso
davanti alla macchinetta del caffè... perchè poi la collega credente e
praticante mi ha richiamato all'ordine ricordandomi di scherzare con i
fanti lasciando in pace i santi).

ciao
--
Stefano


title: scrivere in una tabella file di immagini

author: Marianna

text:
Buonasera,
io vorrei leggere i nomi dei file che si trovano sotto una directory (in
questo caso d:\immagini\) e scriverli in una tabella di access (Nomi).
Scrivendo questo codice mi viene errore di run time 13 tipo non
corrispondente.
Dim MyPath As String
Dim MyName As String
Dim rs As Recordset
'Set rs = CurrentDb.OpenRecordset("nomi")
   CurrentDb.Execute "delete from NOMI"
MyPath = "D:\immagini\*.*" ' Imposta il percorso.
MyName = Dir(MyPath, vbNormal)   ' Recupera la prima voce.
Do While MyName <> ""     ' Avvia il ciclo.
    Set rs = CurrentDb.OpenRecordset("select * from Nomi")
    rs.AddNew
    rs("nome") = MyName
    rs.Update
    rs.Close
    MyName = Dir    ' Legge la voce successiva.
Loop
End Sub
dove nome è il nomi della tabella
nome è il nome del campo impostato a testo.
Qualcuno mi sa dire dove sbaglio?
Grazie in anticpo
Mary


author: aaa

text:
Marianna ha scritto:
> Buonasera,
> io vorrei leggere i nomi dei file che si trovano sotto una directory (in
> questo caso d:immagini) e scriverli in una tabella di access (Nomi).
> Scrivendo questo codice mi viene errore di run time 13 tipo non
> corrispondente.
> Dim MyPath As String
> Dim MyName As String
> Dim rs As Recordset
> 'Set rs = CurrentDb.OpenRecordset("nomi")
>    CurrentDb.Execute "delete from NOMI"
> MyPath = "D:immagini*.*" ' Imposta il percorso.
> MyName = Dir(MyPath, vbNormal)   ' Recupera la prima voce.
> Do While MyName <> ""     ' Avvia il ciclo.
>     Set rs = CurrentDb.OpenRecordset("select * from Nomi")
>     rs.AddNew
>     rs("nome") = MyName
>     rs.Update
>     rs.Close
>     MyName = Dir    ' Legge la voce successiva.
> Loop
> End Sub
> dove nome è il nomi della tabella
> nome è il nome del campo impostato a testo.
> Qualcuno mi sa dire dove sbaglio?
> Grazie in anticpo
> Mary
controlla con msgbox o debug.print cosa ti restituisce il ciclo.
da quello che mi pare di capire cerchi di scrivere qualcosa nella tabella
che non è corretto. esempio scrivi un testo in un campo numerico
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Roberto da casa

text:
"Marianna" <
marianna...@aliceposta.it
> ha scritto nel messaggio
news:Ole6e.761906$b5.34...@news3.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi queste
due FAQ:
1) 6.31 Creare una tabella contenente i nomi dei files presenti in una
directory di Lorenzo Coronati
2) 6.133 Creare una tabella contenente la struttura di un File System di
Roberto
> Grazie in anticpo
>
> Mary
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Somma condizionale su report

author: Oder

text: Scusate la maiuscola


title: Recordset ADO...

author: FabioS

text:
Il metodo "Delete"  fa cilecca se il recordset deriva da una istruzione Sql,
mentre funziona se mi baso direttamente sulla tabella; ho provato con tutti
i cursori e blocchi ma niente. In pratica, nel ciclo, il primo record viene
annullato, poi il cursore si sposta sul record successivo (testato), ma
sull'istr. Delete mi dà l'errore "... record annullato" e ...fine. Poi
approfitto: il metodo "Find" supporta solo un criterio singolo?
Mio esempio:
SQLDetBol è l'istruz. Sql
T_SitDettMov  è la tabella
Sub ...()
..... connessione già aperta
SQLDetBol = "SELECT SSit, CausDesc, * " & _
              "FROM CAPCEDAT_CERDEBPF_MDB LEFT JOIN
_CausaliMovimentiCampagna ON " & _
              "CAPCEDAT_CERDEBPF_MDB.C4CAUS =
T_CausaliMovimentiCampagna.Caus " & _
              "" & PrmAnn & _
              " ORDER BY C4PRRN;"
  Set rst2 = New ADODB.Recordset
  rst2.ActiveConnection = cnn1
  rst2.CursorType = adOpenKeyset
  rst2.LockType = adLockOptimistic
  rst2.Open T_SitDettMov   'tabella
' oppure
'  rst2.Open SQLDetBol   'sql
'--> inizio TRANSAZIONE
  cnn1.BeginTrans
.....
  rst2.MoveFirst
  Do Until rst2.EOF
    Call BarraProgressione("Preparazione tabelle in corso...", 1)
    rst2.Delete
    rst2.MoveNext
  Loop
...
End sub
Ringrazio chi mi da una dritta.


title: Recordset ADO...

author: Luciano (DOC)

text:
FabioS ha scritto nel messaggio <9b3l70$24tk$
1...@half.spin.it
>...
>Il metodo "Delete"  fa cilecca se il recordset deriva da una istruzione
Sql,
>mentre funziona se mi baso direttamente sulla tabella; ho provato con tutti
>i cursori e blocchi ma niente. In pratica, nel ciclo, il primo record viene
>annullato, poi il cursore si sposta sul record successivo (testato), ma
>sull'istr. Delete mi dà l'errore "... record annullato" e ...fine.
Non capisco esattamente l'SQL che hai scritto (che e'  & PrmAnn & ?) ma mi
viene da dire che il problema potrebbe essere li'. L'errore lo becchi al
secondo delete e visto che sei sicuro che il cursore s'e' spostato, vuol
dire che stai cancellando una cosa che non c'e' piu'. Magari l'integrita'
referenziale o l'aggiornamento/eliminazioni a catena t'hanno fatto qualche
scherzetto. Prova a dare un'occhiata a lrecordset che ottieni aprendolo col
query builder.
 Poi
>approfitto: il metodo "Find" supporta solo un criterio singolo?
Mi sembra di no.
Saluti.
Luciano
(DOC)


title: cosa significa questo codice ??

author: GM

text:
salve in una sottomaschera ho il seguente codice mi sapreste
spiegare cosa significa ??
-----------------
Option Compare Database
Option Explicit
Private Sub CasellaCombinata28_GotFocus()
(questa mi pare che la cmb28 prende il fuoco)
If Forms!Mask1.Dirty = True Then
(se la Form mask1  (è sporca... in che senso?? = vero, allora)
Forms!Mask1.Recalc
form mask1 (recalc cosa significa ??? ))
End If
End Sub
-----------------------------
grazie


title: cosa significa questo codice ??

author: Beppe

text:

ti consiglio questo link
http://enigmaco.de/enigma/enigma.swf
...oltre che un subject più significativo.
bye


title: cosa significa questo codice ??

author: Alessandro Baraldi

text:
On 7 Mar, 15:53, "GM" <
t...@toglilibero.it
> wrote:

Leggi l'help relativamente a quando va a True la proprietà Dirty....
ti potrebbe aiutare....
In pratica va a True quando viene rilevata una modifica, in quel caso
effettua un Ricalcolo delle Calcolate(campi calcolati)
@Alex


title: Filtro

author: x

text:
Salve !!!
Ho un problema per impostare un filtro.
Selezionando da una combobox [codice] un valore (es. 0003) e cliccando sul
pulsante di comando a fianco dovrebbe aprirmi la maschera "Selezione per
codice" ed estrarmi i valori corrispondenti selezionati nella combobox
facendo una ricerca nei campi [settoreA1], [settoreA2] e [settoreA3]
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Selezione per codice"
stLinkCriteria = "[SettoreA1] or [settoreA2] or [settoreA3]like  '" &
Me![codice] & "*'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Io ho provato a impostare la ricerca "stLinkCriteria" ma mi da errore di
sintassi ! NOn riesco  a trovare un help in linea o una guida che mi possa
aiutare !
Help !
Grazie mille
Monica


title: Filtro

text:
"x" <
e-ma...@libero.it
> ha scritto nel messaggio
news:1jtJ6.30712$UW4.1...@news.infostrada.it...

Ipotizziamo che i campi settoreA1, settoreA2 e settoreA3 siano di tipo
testo.
Ipotizziamo anche che il valore selezionato nella combo sia solo la parte
iniziale dei valori contenuti in questi tre campi.
Ipotizziamo, infine, che i criteri di filtraggiio debbano operare in OR.
Se TUTTI i presupposti di cui sopra sono veri, prova a scrivere la
stringa dei criteri di filtraggio in questo modo:
stLinkCriteria="[settoreA1] Like" & Chr$(34) & Me!codice & "*" & Chr$(34) _
& " Or [settoreA2] Like" & Chr$(34) & Me!Codice & "*" & Chr$(34) & _
" Or [settoreA3] Like" & Chr$(34) & Me!Codice & "*" & Chr$(34)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Filtro

text:
siiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!
Grazie infinite !!
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:UfuJ6.31040$UW4.1...@news.infostrada.it...



title: ordinare i record in una maschera continua come in explorer

author: Oscar

text:
un saluto a tutti:
ho uma maschera continua che viene generata da una query.
vorrei che cliccando sull'etichetta di un campo i recor fossero
ordinati in ordine crescente (se non fosse tropppo difficile al 2�
click in ordine decrescente) proprio come avviene in esplora risorse
di windows.
ho provato con order by, ma sbaglio la sintassi e non so come fare.
qulacuno mi puo' aiutare?
grazie
oscar


text:
Oscar ha scritto:

Metti il seguente codice in un modulo
Public Sub Ord(ByRef Maschera As Form, ByRef CAMPO As String, ByRef Etichetta As String, ByRef TITOLO As String)
On Error GoTo Err_desc

    If InStr(1, TITOLO, "�") = 0 And InStr(1, TITOLO, "�") = 0 Then

        DoCmd.Hourglass (True)                           ' Clessidra. Routine al lavoro

        Call ResetIntesta(Maschera)

        With Maschera

            .Controls(Etichetta).SpecialEffect = 2       ' Premo il "PULSANTE"
            .Controls(Etichetta).BackColor = 26367       ' Cambio colore
            .OrderBy = CAMPO                             ' Ordino
            .OrderByOn = True                            ' Effettuo l'ordinamento
            .Controls(Etichetta).SpecialEffect = 0       ' Rilascio il "PULSANTE"
            .Controls(Etichetta).BackColor = 16777164    ' Colore originale
            .Controls(Etichetta).Caption = TITOLO & " �"

        End With

        DoCmd.Hourglass (False)                          ' Rimuovo clessidra

    ElseIf InStr(1, TITOLO, "�") = 0 Then

        DoCmd.Hourglass (True)                           ' Clessidra. Evidenze st� lavorando

        TITOLO = Left(TITOLO, Len(TITOLO) - 2)

        Call ResetIntesta(Maschera)

        With Maschera

            .Controls(Etichetta).SpecialEffect = 2       ' Premo il "PULSANTE"
            .Controls(Etichetta).BackColor = 26367       ' Cambio colore
            .OrderBy = CAMPO                             ' Ordino
            .OrderByOn = True                            ' Effettuo l'ordinamento
            .Controls(Etichetta).SpecialEffect = 0       ' Rilascio il "PULSANTE"
            .Controls(Etichetta).BackColor = 16777164    ' Colore originale
            .Controls(Etichetta).Caption = TITOLO & " �"

        End With

        DoCmd.Hourglass (False)

    Else

        DoCmd.Hourglass (True)                           ' Clessidra. Routine al lavoro

        TITOLO = Left(TITOLO, Len(TITOLO) - 2)

        Call ResetIntesta(Maschera)

        With Maschera

            .Controls(Etichetta).SpecialEffect = 2       ' Premo il "PULSANTE"
            .Controls(Etichetta).BackColor = 26367       ' Cambio colore
            .OrderBy = CAMPO & " desc"                   ' Ordino
            .OrderByOn = True                            ' Effettuo l'ordinamento
            .Controls(Etichetta).SpecialEffect = 0       ' Rilascio il "PULSANTE"
            .Controls(Etichetta).BackColor = 16777164    ' Colore originale
            .Controls(Etichetta).Caption = TITOLO & " �"

        End With

        DoCmd.Hourglass (False)                          ' Rimuovo clessidra

    End If

Uscita:
    Exit Sub
Err_desc:
    MsgBox ErrDesc & Chr(13) & Err.Description & Chr(13) & Chr(13) & "(" &
Screen.ActiveForm.Name
 & ")" & Chr(13) & Err.Number, vbCritical, ErrTitolo
    Resume Uscita

End Sub
Public Function ResetIntesta(Maschera As Form) As String

  Dim ctr As Control

  For Each ctr In Maschera.Controls
       If ctr.ControlType = acLabel Then
            If InStr(1, ctr.Caption, "�") <> 0 Or InStr(1, ctr.Caption, "�") <> 0 Then
                 ctr.Caption = Left(ctr.Caption, Len(ctr.Caption) - 2)
            End If
       End If
  Next ctr
End Function
la puoi chiamare da ogni form che vuoi. Basta passarli i parametri
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


text:
On Sun, 10 May 2009 17:40:52 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:

sono un principiante e quindi ci ho capito poco o nulla: la cosa che
ho fatto � aprire un nuovo modulo che ho chiamato "ordina" e ci ho
copiato-incollato il lungo codice che mi hai postato ed adesso?
ciao e grazie
Oscar


author: CIDI

text:
"Oscar" <
os...@tiscali.it
> ha scritto nel messaggio
news:4a06aeb8...@news.fastwebnet.it...

3.64 Ordinare i dati di una vista tabellare cliccando sull'intestazione di
colonna
www.sitocomune.com
ciao
Daniele


text:
Oscar ha scritto:
>On Sun, 10 May 2009 17:40:52 +0000 (UTC), Fair87<roby.ces@gmail,com >

>>Questo articolo e` stato inviato dal sito web  http :// www .nonsolonews,it
>
>sono un principiante e quindi ci ho capito poco o nulla: la cosa che
>ho fatto � aprire un nuovo modulo che ho chiamato "ordina" e ci ho
>copiato-incollato il lungo codice che mi hai postato ed adesso?
>ciao e grazie
>Oscar
Hai fatto benissimo!!!!
Sull'evento 'su click' dell'etichetta (la chiamo Et1) che ordina il campo 'Campo1' scrivi
Call Ord(Me, "Campo1", "Et1", Me.Et1.Caption)
ed � fatta!!!



text:
On Mon, 11 May 2009 10:48:26 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:
>Oscar ha scritto:

non funziona:
se scrivo la stringa da te suggerita direttamente  sulla riga
dell'evento su click compare il seguente errore:
impossibile trovare la macro Call Ord(Me, "Riduzione", "Etichetta11",
Me.Etichetta11.Caption)
se la ricopio nel codice compare quest'altro errore:
errore di compilazione variabile non definita
Cosa c'� che non va?
grazie dell'aiuto
Oscar


text:
On Sun, 10 May 2009 20:17:38 +0200, "CIDI" <
dado...@spamtin.it
>
wrote:

molto bello e utile l'esempio che mi hai suggerito, ma funziona al
50%:
nella maschera continua ho quattro campi generati da una queery , uno
di testo ed uno numerico che vengono direttamente dalla tabella, e due
campi calcolati dalla query. la maschera funziona pefettamente per i
primi due, mentre per gli altri due mi da il seguente messaggio di
errore:
438 proprite� o metodo non supportatati dall'oggetto.
hai qualche suggerimento da darmi?
ciao e grazie
Oscar


text:
Oscar ha scritto:
>On Mon, 11 May 2009 10:48:26 +0000 (UTC), Fair87<roby.ces@gmail,com >

>>Questo articolo e` stato inviato dal sito web  http :// www .nonsolonews,it
>
>non funziona:
>se scrivo la stringa da te suggerita direttamente  sulla riga
>dell'evento su click compare il seguente errore:
>impossibile trovare la macro Call Ord(Me, "Riduzione", "Etichetta11",
>Me.Etichetta11.Caption)
>se la ricopio nel codice compare quest'altro errore:
>errore di compilazione variabile non definita
>Cosa c'� che non va?
>grazie dell'aiuto
>Oscar
>
nn devi copiarla sulla riga dell'evento, ma creare l'evento Su click (scegli dal menu [Routine evento]) e poi scriverlo dentro
Se ti da ancora errore posta quale variabile risulta ad Access 'nn definita'



text:
On Tue, 12 May 2009 16:53:40 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:

mi visualizza in giallo le prime righe:
Public Sub Ord(ByRef Maschera As Form, ByRef CAMPO As String, ByRef
Etichetta As String, ByRef TITOLO As String)
e poi l'errore nelle ultime righe in gialo "ErrDesc".
Non potendo evidenziarlo in altro modo lo separo dal resto del testo e
lo racchiudo tra doppie parentesi quadre (che naturalmente non ci
sono)
Uscita:
    Exit Sub
Err_desc:
    MsgBox     	  [[ErrDesc]]   	    & Chr(13) &
Err.Description & Chr(13) & Chr(13) & "(" &
Screen.ActiveForm.Name
 &
")" & Chr(13) & Err.Number, vbCritical, ErrTitolo
    Resume Uscita

End Sub
grazie di nuovo
oscar


text:
Oscar ha scritto:
>On Tue, 12 May 2009 16:53:40 +0000 (UTC), Fair87<roby.ces@gmail,com >

>>Questo articolo e` stato inviato dal sito web  http :// www .nonsolonews,it
>
>mi visualizza in giallo le prime righe:
>
>Public Sub Ord(ByRef Maschera As Form, ByRef CAMPO As String, ByRef
>Etichetta As String, ByRef TITOLO As String)
>
>e poi l'errore nelle ultime righe in gialo "ErrDesc".
>Non potendo evidenziarlo in altro modo lo separo dal resto del testo e
>lo racchiudo tra doppie parentesi quadre (che naturalmente non ci
>sono)
>
>Uscita:
>    Exit Sub
>
>Err_desc:
>    MsgBox     	  [[ErrDesc]]   	    & Chr(13) &
>Err.Description & Chr(13) & Chr(13) & "(" &
Screen.ActiveForm.Name
 &
>")" & Chr(13) & Err.Number, vbCritical, ErrTitolo
>    Resume Uscita
>
>End Sub
>
>grazie di nuovo
>oscar
sono un idiota...chiedo venia...ci sono variabili globali che uso e definisco io....
Err_desc:
Err.Description & "(" & Err.Number & ")", vbCritical, "GESTIONE ERRORI"
Resume Uscita



text:
On Tue, 12 May 2009 17:35:05 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:

io sono sicuramente peggio di te:
ho sostituito le righe errate che ti ho postato con la tua ultima che
dovrebbe essere corretta, ma mi da un errore di sintassi ed essendo io
un analfabeta al riguardo non riesco a trovarlo.
scusa per la petulanza
Oscar


text:
[MEGA CUT]
>>sono un idiota...chiedo venia...ci sono variabili globali che uso e definisco io....
>>Err_desc:
>>Err.Description & "(" & Err.Number & ")", vbCritical, "GESTIONE ERRORI"
>>Resume Uscita
questa � nata male......scusa la perdita di tempo
Err_desc:
msgbox Err.Description & "(" & Err.Number & ")", vbCritical, "GESTIONE ERRORI"
Resume Uscita
nel caso si incantasse ancora, tagliamo la testa al toro:
Err_desc:
msgbox "Errore n. " & Err.Number



text:
On Tue, 12 May 2009 21:53:10 +0000 (UTC), Fair87<
roby...@gmail.com
>
wrote:
>[MEGA CUT]

� perfetto!!!
grazie mille
Oscar


text:
Oscar ha scritto:
>On Tue, 12 May 2009 21:53:10 +0000 (UTC), Fair87<roby.ces@gmail,com >
>wrote:
>
>>[MEGA CUT]
>>
>>>>sono un idiota...chiedo venia...ci sono variabili globali che uso e definisco io....
>>>>Err_desc:
>>>>Err.Description & "(" & Err.Number & ")", vbCritical, "GESTIONE ERRORI"
>>>>Resume Uscita
>>
>>questa � nata male......scusa la perdita di tempo
>>
>>Err_desc:
>>msgbox Err.Description & "(" & Err.Number & ")", vbCritical, "GESTIONE ERRORI"
>>Resume Uscita
>>
>>nel caso si incantasse ancora, tagliamo la testa al toro:
>>
>>Err_desc:
>>msgbox "Errore n. " & Err.Number
>>Resume Uscita
>>
>>
>>--
>>Questo articolo e` stato inviato dal sito web  http :// www .nonsolonews,it
>
>
>� perfetto!!!
>grazie mille
>Oscar
:-)



title: ricerca con controlli non associati errore 2001

author: Antonio in the city

text:
Ho creato una form per la ricerca dei dati, anche avvalendomi dei vecchi
messaggi. La form è basata su una query, ha 4 controlli visibili più alcuni
non visibili, modalità continua.
Nell'intestazione ho creato 4 controlli non associati (caselle di testo) a
cui per default ho assegnato il valore 0. Ho fatto un pulsante con il codice
di seguito illustrato che però si blocca nel caso in cui faccia una ricerca
con il controllo che è legato all'IDcodice. I 4 controlli logicamente
filtrano in base ad un valore che io ci scrivo (es il cognome, la squadra o
entrambi), ma quando selezione quello corrispondente all'IDcodice (che nella
tabella associata alla query di origine corrisponde ad un campo numerico
intero lungo) il codice si blocca dandomi un "errore di runtime 2001" con
scritto "l'operazione precedente è stata annullata". Nell'help non c'è
questo errore ma pare di capire che dipenda dagli apici, è possibile?
Secondo voi è giusto il sistema di ricerca adottato, in particolare con gli
0 di default? Il problema è che avevo provato con delle variabili ma non
riuscivo a passargli il valore nullo nel caso in cui volessi fare la ricerca
su un solo campo.
Private Sub Comando9_Click()
If Filtronome = 0 And Filtrocognome = 0 And Filtrocodice = 0 And
Filtrosquadra = 0 Then 'questi sono i controlli non associati
MsgBox "Immetti i criteri di ricerca", vbInformation
ElseIf Filtronome = 0 And Filtrocodice = 0 And Filtrosquadra = 0 Then
'filtra per cognome
Me.Filter = "cognome='" & Filtrocognome & "'"
Me.FilterOn = True
ElseIf Filtronome = 0 And Filtrocognome = 0 And Filtrocodice = 0 Then
'filtra per nome della squadra
Me.Filter = "nomesquadra='" & Filtrosquadra & "'"
Me.FilterOn = True
ElseIf Filtrosquadra = 0 And Filtrocodice = 0 Then
'filtra per nome e cognome
Me.Filter = "nome='" & Filtronome & "' and cognome='" & Filtrocognome & "'"
Me.FilterOn = True
ElseIf Filtronome = 0 And Filtrocodice = 0 Then
'filtra per cognome e squadra
Me.Filter = "cognome='" & Filtrocognome & "' and nomesquadra='" &
Filtrosquadra & "'"
Me.FilterOn = True
ElseIf Filtronome = 0 And Filtrosquadra = 0 And Filtrocognome = 0 Then
Me.Filter = "Idcodice='" & Filtrocodice "'"
Me.FilterOn = True 'QUI SI ARRESTA IL DEBUG
Il codice ha altre possibilità ma tutti i criteri in cui c'è l'Id codice si
arrestano
End If
Grazie per i chiarimenti
Antonio


author: Sergio MAZZA

text:
"Antonio in the city" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9habpm$ot2$1...@pegasus.tiscalinet.it...

Scusa, se dici che l'Idcodice corrisponde ad un campo numerico intero e poi
nella condizione lo tratti come una stringa quale messaggio ti puoi
aspettare?
Tu hai scritto:
'------------
Me.Filter = "Idcodice='" & Filtrocodice "'"
Me.FilterOn = True 'QUI SI ARRESTA IL DEBUG
'------------
E secondo le tue indicazioni dovrebbe, invece, essere:
'------------
Me.Filter = "Idcodice=" & Filtrocodice
Me.FilterOn = True 'QUI SI ARRESTERA' PIU' IL DEBUG
'------------
Ciao.


text:
> Scusa, se dici che l'Idcodice corrisponde ad un campo numerico intero e
poi
> nella condizione lo tratti come una stringa quale messaggio ti puoi
> aspettare?
> Tu hai scritto:
> '------------
> Me.Filter = "Idcodice='" & Filtrocodice "'"
> Me.FilterOn = True 'QUI SI ARRESTA IL DEBUG
> '------------
>
> E secondo le tue indicazioni dovrebbe, invece, essere:
> '------------
> Me.Filter = "Idcodice=" & Filtrocodice
> Me.FilterOn = True 'QUI SI ARRESTERA' PIU' IL DEBUG
> '------------
>
> Ciao.
>
Grazie Sergio per la risposta. Il mio problema č dato dal fatto che sono
alle prime armi con il VBA e sto pian piano imparando la sintassi anche
grazie al Ns. e ai messaggi che quotidianamente leggo.
Dalla tua risposta deduco che gli apici delimitano delle stringhe. Ora mi č
tutto piů chiaro e non capivo la successione delle virgolette e degli apici
!
Ciao e grazie
Antonio


title: R: contatore

author: Roberto dalla campagna

text:
Angelo <
ang...@aerofiltri.it
> wrote in message
vhK49.77722$C8.1...@tornado.fastwebnet.it...
> Salve, Sto impazzendo nel tentativo di far funzionare una istruzione, che
> per altro funziona benissimo in un'altra applicazione access.
>
> uso il seguente codice in valore predefinito del campo:
> =dmax("[contatore]";"nome_tabella")+1
>
> ma mi da errore.
>
> Boh!!!?
Invece che nel valore predefinito del campo della tabella, nel valore
predefinito del controllo della maschera associato a tale campo prova a
scrivere:
=IIf(IsNull(DMax("[contatore]";"nome_tabella"));1;DMax("[contatore]";"nome_t
abella")+1)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: errore di run time 2001 apertura maschera

author: jamirez

text:
ciao a tutti,
sto impazzendo nel capire perchè sia da codice che da access non
riesco ad aprire la maschera Prodotti. Finora ho inserito 1738
prodotti e non ho avuto mai problemi, mentre adesso non mi apre più la
maschera e neanche le sottomaschere.
mi da errore run time 2001.
Aiutoooo
Grazie.


author: Carlo Costarella

text:
"jamirez" <
filippo...@agrigioia.it
> ha scritto nel messaggio
news:1178653268....@p77g2000hsh.googlegroups.com...
ciao a tutti,


Aiutoooo
Grazie.
[risposta]
Potrebbe essere un uso non corretto di dlookup, oppure l'uso di parole
riservate per Access come Nome, User, Password...
In ogni caso metti un punto d'interruzione sul codice e seguilo passo passo,
dovresti trovare l'inghippo.
Ciao, Carlo


text:
On 9 Mag, 08:13, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "jamirez" <
filippo.cant...@agrigioia.it
> ha scritto nel messaggionews:1178653268....@p77g2000hsh.googlegroups.com...

il codice dove si blocca è questo,
DoCmd.OpenForm "PRODOTTI", acNormal, , "IDPRODPR=" & CERCAPROD, ,
acWindowNormal
ma il problema è che neanche cliccando sulla maschera si apre.
grazie aiuto.


author: access

text:
"jamirez" <
filippo...@agrigioia.it
> ha scritto nel messaggio
news:1178697920....@h2g2000hsg.googlegroups.com...
On 9 Mag, 08:13, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "jamirez" <
filippo.cant...@agrigioia.it
> ha scritto nel
> messaggionews:1178653268....@p77g2000hsh.googlegroups.com...
> ciao a tutti,
>
> sto impazzendo nel capire perchč sia da codice che da access non
> riesco ad aprire la maschera Prodotti. Finora ho inserito 1738
> prodotti e non ho avuto mai problemi, mentre adesso non mi apre piů la
> maschera e neanche le sottomaschere.
>
> mi da errore run time 2001.
>
> Aiutoooo
>
> Grazie.
>
> [risposta]
> Potrebbe essere un uso non corretto di dlookup, oppure l'uso di parole
> riservate per Access come Nome, User, Password...
> In ogni caso metti un punto d'interruzione sul codice e seguilo passo
> passo,
> dovresti trovare l'inghippo.
>
> Ciao, Carlo
il codice dove si blocca č questo,
DoCmd.OpenForm "PRODOTTI", acNormal, , "IDPRODPR=" & CERCAPROD, ,
acWindowNormal
ma il problema č che neanche cliccando sulla maschera si apre.
grazie aiuto.
Posta tutto il codice.
Ciao


text:
On 9 Mag, 11:21, "access" <
p...@exsample.it
> wrote:
> "jamirez" <
filippo.cant...@agrigioia.it
> ha scritto nel messaggionews:1178697920....@h2g2000hsg.googlegroups.com...
> On 9 Mag, 08:13, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
>
>
>
>
>
> > "jamirez" <
filippo.cant...@agrigioia.it
> ha scritto nel
> > messaggionews:1178653268....@p77g2000hsh.googlegroups.com...
> > ciao a tutti,
>
> > sto impazzendo nel capire perchè sia da codice che da access non
> > riesco ad aprire la maschera Prodotti. Finora ho inserito 1738
> > prodotti e non ho avuto mai problemi, mentre adesso non mi apre più la
> > maschera e neanche le sottomaschere.
>
> > mi da errore run time 2001.
>
> > Aiutoooo
>
> > Grazie.
>
> > [risposta]
> > Potrebbe essere un uso non corretto di dlookup, oppure l'uso di parole
> > riservate per Access come Nome, User, Password...
> > In ogni caso metti un punto d'interruzione sul codice e seguilo passo
> > passo,
> > dovresti trovare l'inghippo.
>
> > Ciao, Carlo
>
> il codice dove si blocca è questo,
> DoCmd.OpenForm "PRODOTTI", acNormal, , "IDPRODPR=" & CERCAPROD, ,
> acWindowNormal
>
> ma il problema è che neanche cliccando sulla maschera si apre.
>
> grazie aiuto.
>
> Posta tutto il codice.
>
> Ciao- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
è troppo ti dovrei postare tutto il programma.
comunque per il momento ho risolto grazie alla copia che avevo fatto.
Ho copiato dalla Copia la maschera ed ora funziona.
Misteri della Fede
Ciao


text:
cut
comunque per il momento ho risolto grazie alla copia che avevo fatto.
Ho copiato dalla Copia la maschera ed ora funziona.
Misteri della Fede
Ciao
------------------
Infatti...era corrotto il modulo della maschera.
Ciao, Carlo


text:

In che senso corrotto!


author: Access

text:
"jamirez" <
filippo...@agrigioia.it
> ha scritto nel messaggio
news:1178722535.4...@h2g2000hsg.googlegroups.com...

Nel senso che non se apreeeee..
Ciao


title: identificare un pc e copiare file

author: Ammammata

text:
devo effettuare due operazioni:
- identificare il pc su cui gira il programma (nome delcomputer? un
particolare file sul disco? l'indirizzo MAC della scheda di rete? il nome
dell'utente?)
- copiare tutti i file di una cartella da un disco di rete al disco locale
se ci sono esempi me li potreste cortesemente indicare?
grazie
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


title: identificare un pc e copiare file

author: pablitomf

text:
On 11 Feb, 12:31, Ammammata <
ammamm...@tiscalinet.it
> wrote:
> devo effettuare due operazioni:
> - identificare il pc su cui gira il programma (nome delcomputer? un
> particolare file sul disco? l'indirizzo MAC della scheda di rete? il nome
> dell'utente?)
Seriale dell'HD...
http://lmgtfy.com/?q=Access+Seriale+HD
> - copiare tutti i file di una cartella da un disco di rete al disco locale
FileCopy
F1 - Help online


title: identificare un pc e copiare file

author: Karl Donaubauer

text:
Ammammata wrote:
> devo effettuare due operazioni:
> - identificare il pc su cui gira il programma (nome delcomputer? un
> particolare file sul disco? l'indirizzo MAC della scheda di rete? il
> nome dell'utente?)
> - copiare tutti i file di una cartella da un disco di rete al disco
> locale
>
> se ci sono esempi me li potreste cortesemente indicare?
http://www.donkarl.com/it?FAQ2.24
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: identificare un pc e copiare file

text:
Ammammata <
amma...@tiscalinet.it
> wrote in
news:Xns9E897F4AEA5CFam...@194.177.97.96
:
>
> devo effettuare due operazioni:
>
grazie a chi ha risposto, terrò conto dei vostri consigli



title: Formato "evidenzia negativi": ancora supportato?

author: Massimiliano Bertoglio

text:
#,###.00[Black];-#,###.00[Red];0.00
E' un formato utilizzabile con i campi numerici per evidenziare (in questo
caso in Rosso) i valori negativi.
Funziona almeno fino alla release 2003 di Access.
Qualcuno � in grado di dirmi se continua ad essere supportato dalle versioni
pi� attuali (2007 - 2010)?
Ciao a tutti.


text:

S�, � supportato in A07 e A10.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
"Karl Donaubauer"
> Massimiliano Bertoglio wrote:
>> #,###.00[Black];-#,###.00[Red];0.00
>>
>> E' un formato utilizzabile con i campi numerici per evidenziare (in
>> questo caso in Rosso) i valori negativi.
>> Funziona almeno fino alla release 2003 di Access.
>>
>> Qualcuno � in grado di dirmi se continua ad essere supportato dalle
>> versioni pi� attuali (2007 - 2010)?
>
> S�, � supportato in A07 e A10.
Grazie Karl, efficiente come sempre   ;-)
Ciao, Max


title: Cambiare valore negativo in valore positivo

author: FabrizioLoL

text:
Ciao ragazzi,
Dovrei per motivi di necissità da report cambiare il valore di una campo
cmp_Quantità da valore negativo a positivo...
es: su un report che chiamo fattura mi viene fuori il campo quantità in
negativo. -34 perche dalla maschera devo calolare cosi
come faccio nel report a farlo diventare 34?
grazie
--
Creato con il rivoluzionario client e-mail di Opera:
http://www.opera.com/mail/


text:
FabrizioLoL ha scritto:
> Ciao ragazzi,
>
> Dovrei per motivi di necissità da report cambiare il valore di una campo
> cmp_Quantità da valore negativo a positivo...
>
> es: su un report che chiamo fattura mi viene fuori il campo quantità in
> negativo. -34 perche dalla maschera devo calolare cosi
> come faccio nel report a farlo diventare 34?
>
>
>
> grazie
Funzione ABS([NomeCampo])
@Alex


text:
In data Mon, 11 Sep 2006 20:32:29 +0200, Alessandro Baraldi
<
ik2...@libero.it
> ha scritto:

Grazie alessandro dell'aiuto ma non riesco a capire do mettere quello che
dici tu:..
La Funzione ABS([NomeCampo]) devo impostarlo sul report , perche sulla
maschera mi va bene che sia valore negativo..
Come faccio ad impostarlo sul report?



text:
FabrizioLoL ha scritto:
[CUT]
> Grazie alessandro dell'aiuto ma non riesco a capire do mettere quello che
> dici tu:..
>
> La Funzione ABS([NomeCampo]) devo impostarlo sul report , perche sulla
> maschera mi va bene che sia valore negativo..
>
> Come faccio ad impostarlo sul report?
Se è solo questione di Visualizzazione, metti un controllo TextBox non
associato nel quale inserisci come Origine Controllo
=ABS([NomeCampoOriginale])
e magari rendi NON VISIBILE il campo con segno...!
@Alex


text:

Per la visualizzazione basta anche impostare la proprietà
"Formato" della casella a:
#;#
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
Karl Donaubauer ha scritto:
 [CUT]
> Per la visualizzazione basta anche impostare la proprietà
> "Formato" della casella a:
>
> #;#
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Molto meglio così verissimo.... certe semplificazioni non riesco mai a
vederle....!
Ciao Karl
@Alex


text:
Alessandro Baraldi wrote:
> Karl Donaubauer ha scritto:
>
>  [CUT]
>
>> Per la visualizzazione basta anche impostare la proprietà
>> "Formato" della casella a:
>>
>> #;#
>
> Molto meglio così verissimo.... certe semplificazioni non riesco mai a
> vederle....!
Ciao Alessandro,
Sì, ma sono convinto che troveresti le funzioni API giuste per
gestire il segno.
--
;-)



text:
Karl Donaubauer ha scritto:

Ehehehe....
Se così fosse dovrei preoccuparmi però....!
@Alex


text:
In data Tue, 12 Sep 2006 10:14:30 +0200, Alessandro Baraldi
<
ik2...@libero.it
> ha scritto:
>
> Karl Donaubauer ha scritto:
>
>> Alessandro Baraldi wrote:
>> > Karl Donaubauer ha scritto:
>> >
>> >  [CUT]
>> >
>> >> Per la visualizzazione basta anche impostare la proprietà
>> >> "Formato" della casella a:
>> >>
>> >> #;#
>> >
>> > Molto meglio così verissimo... certe semplificazioni non riesco mai a
>> > vederle....!
>>
>> Ciao Alessandro,
>>
>> Sì, ma sono convinto che troveresti le funzioni API giuste per
>> gestire il segno.
>>
>> --
>> ;-)
>> Karl
>> *********
>> Access FAQ:
www.donkarl.com/it
>
> Ehehehe....
> Se così fosse dovrei preoccuparmi però....!
>
> @Alex
>
Grazie ad entrambi siete grandi....



title: [OT] - Routing sulla stessa scheda di rete.

author: Sib

text:
Scusate l'OT ma preferisco postare qui...
Penso che tutti sappiamo che WinXP consente di inserire diversi IP sulla
stessa scheda di rete, questo è interessante perchè se sulla stessa rete
lavorano divere subnet è possibile configurare un PC in modo che le veda
entrambe.
Ora, qualcuno mi saprebbe aiutare a configurare una macchina in modo che
faccia da router tra le due subnet? o che almento possa fare da gateway per
una subnet indirizzandola verso il gateway dell'altra subnet?
Mi sono intrecciato con le parole?
Aspettate un attimo... rileggo...
mi pare di no...
...forse
Sib
--
http://www.gestionedati.com


author: MA

text:

Fammi capire bene (non perchè purtroppo abbia la soluzione, ma perchè
probabilmente ho lo stesso problema...).
tu hai due Adsl e vuoi che funzionino entrambe a seconda di quella che ha
una connessione attiva?
E' questo il caso?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> Sib wrote:
>> Scusate l'OT ma preferisco postare qui...
>> Penso che tutti sappiamo che WinXP consente di inserire diversi IP
>> sulla stessa scheda di rete, questo è interessante perchè se sulla
>> stessa rete lavorano divere subnet è possibile configurare un PC in
>> modo che le veda entrambe.
>> Ora, qualcuno mi saprebbe aiutare a configurare una macchina in modo
>> che faccia da router tra le due subnet? o che almento possa fare da
>> gateway per una subnet indirizzandola verso il gateway dell'altra
>> subnet?
>>
>> Mi sono intrecciato con le parole?
>> Aspettate un attimo... rileggo...
>> mi pare di no...
>>
>> ...forse
>>
>> Sib
> Fammi capire bene (non perchè purtroppo abbia la soluzione, ma perchè
> probabilmente ho lo stesso problema...).
> tu hai due Adsl e vuoi che funzionino entrambe a seconda di quella che ha
> una connessione attiva?
> E' questo il caso?
Ciao MA, come va?
Mi spiego: 2 reti, una dotata di connessione a banda larga, l'altra no.
Lo scopo è che la seconda rete pur usando lo stesso switch non vede la
prima.
Però vorrei condividere la connessione internet.
Ciao
Sib
--
http://www.gestionedati.com


text:
Sib wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
>> Sib wrote:
>>> Scusate l'OT ma preferisco postare qui...
>>> Penso che tutti sappiamo che WinXP consente di inserire diversi IP
>>> sulla stessa scheda di rete, questo è interessante perchè se sulla
>>> stessa rete lavorano divere subnet è possibile configurare un PC in
>>> modo che le veda entrambe.
>>> Ora, qualcuno mi saprebbe aiutare a configurare una macchina in modo
>>> che faccia da router tra le due subnet? o che almento possa fare da
>>> gateway per una subnet indirizzandola verso il gateway dell'altra
>>> subnet?
>>>
>>> Mi sono intrecciato con le parole?
>>> Aspettate un attimo... rileggo...
>>> mi pare di no...
>>>
>>> ...forse
>>>
>>> Sib
>> Fammi capire bene (non perchè purtroppo abbia la soluzione, ma perchè
>> probabilmente ho lo stesso problema...).
>> tu hai due Adsl e vuoi che funzionino entrambe a seconda di quella
>> che ha una connessione attiva?
>> E' questo il caso?
>
> Ciao MA, come va?
Bene
> Mi spiego: 2 reti, una dotata di connessione a banda larga, l'altra
> no. Lo scopo è che la seconda rete pur usando lo stesso switch non
> vede la prima.
> Però vorrei condividere la connessione internet.
>
> Ciao
> Sib
Credo ti serva un SO Server e usare quello come gateway



text:
"Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
news:4411a1bd$0$18295$4faf...@reader1.news.tin.it...

Usando un bridge di rete? (Wxp ne ha uno nativo).
Ovviamente l'alternativa sarebbe quella di aggiungere una seconda scheda di
rete (10 euro).
Ciao, Carlo


text:

L'ho pensato, ma capisci bene le complicazioni che ne nascerebbero
Sib
--
http://www.gestionedati.com


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
> "Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
>> Scusate l'OT ma preferisco postare qui...
>> Penso che tutti sappiamo che WinXP consente di inserire diversi IP sulla
>> stessa scheda di rete, questo è interessante perchè se sulla stessa rete
>> lavorano divere subnet è possibile configurare un PC in modo che le veda
>> entrambe.
>> Ora, qualcuno mi saprebbe aiutare a configurare una macchina in modo che
>> faccia da router tra le due subnet? o che almento possa fare da gateway
>> per una subnet indirizzandola verso il gateway dell'altra subnet?
>>
>> Mi sono intrecciato con le parole?
>> Aspettate un attimo... rileggo...
>> mi pare di no...
>>
>> ...forse
>>
>> Sib
>>
>
> Usando un bridge di rete? (Wxp ne ha uno nativo).
> Ovviamente l'alternativa sarebbe quella di aggiungere una seconda scheda
> di rete (10 euro).
Grazie del suggerimento Carlo, il problema è che il bridge non fa la
conversione degli IP e quindi le due subnet restano isolate.
Servono funzionalità di routing.
Potrei risolvere in modo estremamente semplice se il SO vedesse il router
come una miniport WAN come spesso accade (poi basterebbe condividere la
connessione che è esattamente quello che mi serve), ma non è assolutamente
così, purtroppo...



author: Gabriele Bertolucci

text:
>> Ovviamente l'alternativa sarebbe quella di aggiungere una seconda
>> scheda
>> di rete (10 euro).
> Servono funzionalità di routing.
Il suggerimento di Carlo (scheda aggiuntiva) è la soluzione migliore e più
a basso costo.
Quello che mi viene in mente poi sono le DMZ. Spiego meglio: ci sono alcuni
router che hanno una o più porte dedicate alla DMZ e questa viene trattata
"quasi" come se fosse una sottrete.
Il mio router ADSL, uno Zyxel 642R, infatti, ha uno switch 4 porte integrato.
3 porte sono dedicate alla sezione LAN, configurata come 10.0.0.x, mentre
la quarta porta è dedicata alla DMZ, configurata come 192.168.2.x.
Il firewall integrato, volendo, permette di far passare il traffico dalla
LAN alla DMZ e viceversa (default=block).
Risultato: mi trovo con due "sottoreti" che navigano tranquillamente entrambe
ma non si vedono tra di loro.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
>> Ovviamente l'alternativa sarebbe quella di aggiungere una seconda
>> scheda
>> di rete (10 euro).
> Servono funzionalità di routing.



text:
"Gabriele Bertolucci" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
>>> Ovviamente l'alternativa sarebbe quella di aggiungere una seconda
>>> scheda
>>> di rete (10 euro).
>
>> Servono funzionalità di routing.
>
> Il suggerimento di Carlo (scheda aggiuntiva) è la soluzione migliore e più
> a basso costo.
Il bridge non interconnette subnet con IP diversi. Qundi questa non è una
soluzione.
Sarai il benvenuto se mi indichi un modo di configurare un bridge che
connetta due sottoreti
> Quello che mi viene in mente poi sono le DMZ. Spiego meglio: ci sono
> alcuni router che hanno una o più porte dedicate alla DMZ e questa viene
> trattata "quasi" come se fosse una sottrete.
> Il mio router ADSL, uno Zyxel 642R, infatti, ha uno switch 4 porte
> integrato. 3 porte sono dedicate alla sezione LAN, configurata come
> 10.0.0.x, mentre la quarta porta è dedicata alla DMZ, configurata come
> 192.168.2.x.
> Il firewall integrato, volendo, permette di far passare il traffico dalla
> LAN alla DMZ e viceversa (default=block).
> Risultato: mi trovo con due "sottoreti" che navigano tranquillamente
> entrambe ma non si vedono tra di loro.
Questo è un uso improprio del DMZ.
Il DMZ va usato per rendere un server interno visibile su internet, non per
dare a un pc un accesso ad internet.
In pratica tutto ciò che hai connesso in DMZ è visibile richiamando da
internet il tuo IP esterno.



text:
>> Il suggerimento di Carlo (scheda aggiuntiva) è la soluzione migliore
>> e più a basso costo.
>>
> Il bridge non interconnette subnet con IP diversi. Qundi questa non è
> una
> soluzione.
C'è stato un fraintendimento.
Io mi riferivo al suggerimento di Carlo di utilizzare una scheda aggiuntiva.
Questa E' una soluzione, ma non nel senso che il pc con due schede di rete
fa da bridge, bensì perché fa da router.
> Sarai il benvenuto se mi indichi un modo di configurare un bridge che
> connetta due sottoreti
Difatti non ne ho idea :-)
> Questo è un uso improprio del DMZ.
Sì, ok.
Mi pare di essere stato preso troppo alla lettera.
Questa della porta DMZ NON E' una soluzione. E' piuttosto un accrocchio che,
se proprio sei alla frutta, può tornare utile.
> Il DMZ va usato per rendere un server interno visibile su internet,
> non per
> dare a un pc un accesso ad internet.
Concordo pienamente.
Tuttavia, ti posso anche dire che a me fa comodo perché quando porto in ufficio
un pc di un cliente, e questo deve scaricare una marea di aggiornamenti,
io lo connetto tranquillamente alla porta DMZ, gli configuro l'IP e sono
tranquillo che non possa interagire con la mia LAN.
Non sarà troppo professionale, ma è efficacie per il mio scopo.
> In pratica tutto ciò che hai connesso in DMZ è visibile richiamando da
> internet il tuo IP esterno.
Questa infatti è la caratteristica primaria di una DMZ.



text:
"Gabriele Bertolucci" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
>>> Il suggerimento di Carlo (scheda aggiuntiva) č la soluzione migliore
>>> e piů a basso costo.
>>>
>> Il bridge non interconnette subnet con IP diversi. Qundi questa non č
>> una
>> soluzione.
>
> C'č stato un fraintendimento.
> Io mi riferivo al suggerimento di Carlo di utilizzare una scheda
> aggiuntiva.
> Questa E' una soluzione, ma non nel senso che il pc con due schede di rete
> fa da bridge, bensě perché fa da router.
CUT
Non credevo, sei sicuro?
Comunque non sarebbe una soluzione perchč io voglio che questi pc possano
accedere a internet ma che non vedano l'altra rete.
>> Questo č un uso improprio del DMZ.
>
> Sě, ok.
> Mi pare di essere stato preso troppo alla lettera.
CUT
No no,
intendevo dire che in questo modo esporrei i pc a internet e quindi non va
bene.
Di fatto ci vuole un altro router che perň faccia solo da gataway, in modo
da reinstradare il traffico internet verso l'altro router ma non consenta di
vedere i pd della seconda rete.



title: Funzionalita' aggiunta record disabilitata in maschera ...

author: Clax

text:
Ciao a tutti, scrivo in quanto sono mooolto arruginito con access ed ho
incontrato il seg. problema:
Ho creato una maschera in autocomposizione con tre tabelle collegate tra
loro (una va in una sottomaschera).
In seguito ho fatto delle modifiche più che altro stilistiche alla
maschera per renderla più adatta alle mie esigenze.
Non so in seguito a quale modifica, ma ora mi capita che non mi consente
+ di aggiungere un nuovo record (il tastino della barra di navigazione è
in grigio).
Tenete presente che se facio 1 nuova autocomposizione poi tutto funziona
bene ma vorrei evitare di perdere tutte le modifiche apportate ... e poi
vorrei capire come è capitato.
Ho anche provato ad aggiungere un pulsante associandolo all'aggiunta di
un record ma premendolo mi restituisce l'errore: "Impossibile passare al
record specificato"
Qualcuno ha idea di come risolvere il problema?
PS: Giusto per la cronaca, la base dati è MySQL e mi ci collego tramite
ODBC (ma visto che se rifaccio l'autocomposizione funza,penso che la
cosa sia irrilevante)
Grazie a tutti.


text:

Proprietà maschera/Dati/ConsentiAggiunte è impostato su sì?
F


text:
al...@libero.it
 ha scritto:
> On 12 Mar, 12:26, Clax <
c...@email.it
> wrote:
>> Ho creato una maschera in autocomposizione con tre tabelle collegate tra
>> loro (una va in una sottomaschera).
>>
>> In seguito ho fatto delle modifiche più che altro stilistiche alla
>> maschera per renderla più adatta alle mie esigenze.
>> Non so in seguito a quale modifica, ma ora mi capita che non mi consente
>> + di aggiungere un nuovo record (il tastino della barra di navigazione è
>> in grigio).
>>
>> Tenete presente che se faccio 1 nuova autocomposizione poi tutto funziona
>> bene ma vorrei evitare di perdere tutte le modifiche apportate ... e poi
>> vorrei capire come è capitato.
>>
>> Ho anche provato ad aggiungere un pulsante associandolo all'aggiunta di
>> un record ma premendolo mi restituisce l'errore: "Impossibile passare al
>> record specificato"
> Proprietà maschera/Dati/ConsentiAggiunte è impostato su sì?
>
> F
SI


text:

> SI- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
L'origine dati della maschera (una query suppongo), consente
l'aggiunta di record?
Se sì anche a questa, aspetta che tui aiuti uno bravo davvero... ;-)
F.


text:

HO RISOLTO!!!
Mi sono studiato le 2 select presenti nelle maschere funzionante e non
funzionante ed ho scoperto che nella non funzionante mancavano 2 campi!
(i campi di connessione tra le tabelle che ero convinto di aver inserito
:) )
In ogni caso grazie 1000 per le risposte!
Ciao


title: CISA.Net 2008

author: NSantini

text:
Scusate, un'altra informazione: sono previsti costi di iscrizione? Grazie
Spero di non avere altre domande e di non importunarvi ulteriormente. Per
informazioni sugli argomenti farò riferimento alla pagina
http://www.accessgroup.it/
Ciao
NSantini


title: CISA.Net 2008

text:

ciao
mi sembra poco carino rispondere su di un NG dellato economico
Ti posso dire che gli altri anni ci siamo aggirati sui 150 euro
e rimarremo sostanzialmente nel range
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: CISA.Net 2008

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:g2an83$3de$1...@tdi.cu.mi.it...
NSantini wrote:
> Scusate, un'altra informazione: sono previsti costi di iscrizione?
> Grazie Spero di non avere altre domande e di non importunarvi
> ulteriormente. Per informazioni sugli argomenti farò riferimento alla
> pagina
http://www.accessgroup.it/
>
> Ciao
> NSantini
ciao
mi sembra poco carino rispondere su di un NG dellato economico
Ti posso dire che gli altri anni ci siamo aggirati sui 150 euro
e rimarremo sostanzialmente nel range
Sarà, e lo è certamente, ma questa informazione non mi pare di averla letta
nella locandina pubblicata su
http://www.accessgroup.it/
 dove si legge il
programma, la data e la sede. Grazie
Ciao
NSantini


title: CISA.Net 2008

text:

Infatti
lo stiamo aggiornando, prima non potevamo.
Ora stiamo aprendo le iscirzioni
;-)



title: errore di sintassi

author: marcopo

text:
Devo inserire delle modifiche ad un db di un mio amico.
I nomi delle tabelle e dei campi contengono degli spazi e mi trovo in
difficoltà con il codice. Ad esempio
Function MASSIMO() As Long
  MASSIMO = DMax("id prog", "elenco progetti") + 1
End Function
mi da risultato null. Credo che il problema sia da ricondurre alla
mancata apertura del db. Sapete darmi dei consigli su come modificare
il codice. Ho provati con le parentesi e gli apici ma nessun risultato
Marco


title: errore di sintassi

author: Roberto da casa

text:
"marcopo" <
mag...@libero.it
> ha scritto nel messaggio
news:ae7af70d.04061...@posting.google.com...

I nomi che contengono spazi vanno racchiusi tr parentisi quadre: prova così:
  MASSIMO = DMax("[id prog]", "[elenco progetti]") + 1
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Access XP] Runtime e VBA

author: Setec Astronomy

text:
Salve,
ho alcuni problemi riguardo l'esecuzione di codice VBA in un DB Access XP
con il relativo Runtime (sempre XP).
L'installazione è stata fatta correttamente (S.O. Windows 98 SE, DCOM98,
MDAC 2.7, Runtime,  partendo da tabula rasa).
Il problema si propone quando per mezzo della macro AutoExec faccio eseguire
una funzione (ImpostaStartUp()) che inizializza una serie di dati e crea
alcune directori.
Il codice è il seguente:
'    On Error Resume Next
'Non funzione ne con la gestione dell'errore ne senza.
    Dim rstAziende, rstTipiProtocollo As Recordset
    Set rstAziende = New ADODB.Recordset
    rstAziende.CursorType = adOpenKeyset
    rstAziende.LockType = adLockOptimistic
'Errore
    rstAziende.Open "tblAziende", CurrentProject.Connection, , , adCmdTable
'Fine Errore
    Set rstTipiProtocollo = New ADODB.Recordset
    rstTipiProtocollo.CursorType = adOpenKeyset
    rstTipiProtocollo.LockType = adLockOptimistic
    rstTipiProtocollo.Open "tblTipiProtocollo", CurrentProject.Connection, ,
, adCmdTable
L'errore si solleva all'apertura del recordset.
Vi sono per caso alcune limitazioni in ciò che si può fare con l'Access
completo e quello che si può fare con il solo runtime, dal punto di vista
del codice VBA che si può eseguire?
Ringrazio nticipatamente tutti quelli che mi sapranno aiutare.


title: [Access XP] Runtime e VBA

author: Tiziano

text:
"Setec Astronomy"


Utilizzando DAO, non esistono discrepanze di funzionamento rispetto alla
versione Full (e vorrei vedere, il Runtime è praticamente Access con un Flag
internamente settato a True invece che False!!)
Con ADO non ho nulla sulla piattaforma Developer 'XP, quindi non mi
sbilancio.
Solo un appunto:
>     Dim rstAziende, rstTipiProtocollo As Recordset
Così RstAziende è dichiarato come Variant.
Cambia qualcosa con:
Dim rstAziende as recordset, rsttipiprotocollo as recordset
Ma forse il tuo problema è un altro: potrebbero esserci Lost References o
non essere stata registrata correttamente la libreria di oggetti ADO.
Ciao.


title: [Access XP] Runtime e VBA

text:
"Setec Astronomy"
> ho alcuni problemi riguardo l'esecuzione di codice VBA in un DB Access XP
> con il relativo Runtime (sempre XP).
Scusa, ma l'hai acquistata regolarmente la versione DEV?


title: [Access XP] Runtime e VBA

text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:9d2B9.32191$8E3.9...@twister2.libero.it...

Si.
Devo dire che l'ho presa solo per il runtime di Access e l'MSDE 2000 (non
penso di esssere il solo... )
Mi ha un po'  deluso perchè sulla macchina di sviluppo mi ha creato vari
problemi all'installazione ed ho perso 2 gg per riuscire a creare un
pacchetto di installo (solo per creare il runtime completo da distribuire
alla fin dei conti.)


title: [Access XP] Runtime e VBA

text:
"Setec Astronomy
> > "Setec Astronomy"
> > > ho alcuni problemi riguardo l'esecuzione di codice VBA in un DB Access
> XP
> > > con il relativo Runtime (sempre XP).
> > Scusa, ma l'hai acquistata regolarmente la versione DEV?
> Si.
> Devo dire che l'ho presa solo per il runtime di Access e l'MSDE 2000 (non
> penso di esssere il solo... )
> Mi ha un po'  deluso perchè sulla macchina di sviluppo mi ha creato vari
> problemi all'installazione ed ho perso 2 gg per riuscire a creare un
> pacchetto di installo (solo per creare il runtime completo da distribuire
> alla fin dei conti.)
Per questo ti consigliavo di usare qualcos'altro per il Setup dei programmi.
Comunque secondo me i problemi che incontri (presumo di registrazione
librerie ADO) non dovrebbero verificarsi con Win > 98: avevo problemi simili
solo su quella versione con MOD 2000.
Ciao.


title: [Access XP] Runtime e VBA

text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:FC4B9.32803$Zn2.9...@twister1.libero.it...
> > Si.
[cut]
> > Mi ha un po'  deluso perchè sulla macchina di sviluppo mi ha creato vari
> > problemi all'installazione ed ho perso 2 gg per riuscire a creare un
> > pacchetto di installo (solo per creare il runtime completo da
distribuire
> > alla fin dei conti.)
> Per questo ti consigliavo di usare qualcos'altro per il Setup dei
programmi.
Cosa che faccio già con altri programmi, il problema e che non riuscivo a
generare nemmeno il runtime di Access da ridistribuire perchè la procedura
si piantava prima. Ora che ci sono riuscito il sistema di pacchettizzazione
lo uso solo per la verifica delle dipendenza.
> Comunque secondo me i problemi che incontri (presumo di registrazione
> librerie ADO) non dovrebbero verificarsi con Win > 98: avevo problemi
simili
> solo su quella versione con MOD 2000.
Farò delle prove con codice diverso (ADO e DAO) e a verificare l'effettiva
registrazione di ADO.
Grazie.


title: [Access XP] Runtime e VBA

text:
"Setec Astronomy" <
> Cosa che faccio già con altri programmi, il problema e che non riuscivo a
> generare nemmeno il runtime di Access da ridistribuire perchè la procedura
> si piantava prima.
Impossibile, il pacchetto Runtime non viene assemblato dal tuo PC: ha un suo
installer separato.
In verità se si utilizza Inno Setup o roba simile, l'autocomposizione di MOD
per la preparazione pacchetti può essere del tutto scartata.
Ciao.


title: [Access XP] Runtime e VBA

text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:De5B9.32957$Zn2.9...@twister1.libero.it...
> "Setec Astronomy" <
> > Cosa che faccio già con altri programmi, il problema e che non riuscivo
a
> > generare nemmeno il runtime di Access da ridistribuire perchè la
procedura
> > si piantava prima.
> Impossibile, il pacchetto Runtime non viene assemblato dal tuo PC: ha un
suo
> installer separato.
Durante la creazione del primo pacchetto di installazione il Developer crea
il runtime da distribuire, questo perchè il runtime contiene il codice di
licenza ed attivazione dell'utente che lo ha creato.
Per questo viene richiesto il cd di Office XP per il caricamento di alcune
librerie.
> In verità se si utilizza Inno Setup o roba simile, l'autocomposizione di
MOD
> per la preparazione pacchetti può essere del tutto scartata.
Questo è certo, viste le rotture che mi ha creato.
Saluti e grazie.


title: [Access XP] Runtime e VBA

text:
"Setec Astronomy"
> Durante la creazione del primo pacchetto di installazione il Developer
crea
> il runtime da distribuire, questo perchè il runtime contiene il codice di
> licenza ed attivazione dell'utente che lo ha creato.
> Per questo viene richiesto il cd di Office XP per il caricamento di alcune
> librerie.
Hai ragione: ormai faccio confusione tra tre diverse realese Developer!


title: [Access XP] Runtime e VBA

text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:1OnB9.2414$Ka3....@twister1.libero.it...

Sai, dopo una notte insonne (ho fatto le 3 e mezza) la mattina dopo mi sono
alzato con una rivelazione in mente e sono riuscito a risolvere il problema
del codice che si inchioda.
Il problema consistenva nella connessione che utilizzavo per accedere alle
tabelle (utilizzavo CurrentDB.Connection, una connessione JET con una 4
righe di parametri), ho scaricato il software della MS per il controllo
della versione di ADO ( e Jet) installata per verificare se c'era realmente
ADO e poi ho sostituito il codice che non andava con questo:
   Dim rstAziende As Recordset
    Dim rstTipiProtocollo As Recordset
    Dim strConn As String
    strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
GetCurrentDir() & "ArchivioProt.mdb"
    Set rstAziende = New ADODB.Recordset
    rstAziende.CursorType = adOpenKeyset
    rstAziende.LockType = adLockOptimistic
    rstAziende.Open "SELECT * FROM tblAziende", strConn, adOpenKeyset,
adLockOptimistic
    Set rstTipiProtocollo = New ADODB.Recordset
    rstTipiProtocollo.CursorType = adOpenKeyset
    rstTipiProtocollo.LockType = adLockOptimistic
    rstTipiProtocollo.Open "SELECT * FROM tblTipiProtocollo", strConn,
adOpenKeyset, adLockOptimistic
Ora va che è una meraviglia.
Grazie e saluti.


title: [Access XP] Runtime e VBA

text:
"Setec Astronomy" <
>    Dim rstAziende As Recordset
>     Dim rstTipiProtocollo As Recordset
>     Dim strConn As String
>     strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> GetCurrentDir() & "ArchivioProt.mdb"
>
>     Set rstAziende = New ADODB.Recordset
>     rstAziende.CursorType = adOpenKeyset
>     rstAziende.LockType = adLockOptimistic
>     rstAziende.Open "SELECT * FROM tblAziende", strConn, adOpenKeyset,
> adLockOptimistic
>
>     Set rstTipiProtocollo = New ADODB.Recordset
>     rstTipiProtocollo.CursorType = adOpenKeyset
>     rstTipiProtocollo.LockType = adLockOptimistic
>     rstTipiProtocollo.Open "SELECT * FROM tblTipiProtocollo", strConn,
> adOpenKeyset, adLockOptimistic
> Ora va che è una meraviglia.
Fa piacere :-)
Una domanda: ma com'è che con Full Acess sul PC di sviluppo funzionava?


title: [Access XP] Runtime e VBA

text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:W%pB9.2832$Ka3....@twister1.libero.it...
[cut]
> Fa piacere :-)
> Una domanda: ma com'è che con Full Access sul PC di sviluppo funzionava?
Gran bella domanda.
Il PC di sviluppo è un Windows 2000 SP3. Il client su cui ho testato è un
Win 98.
L'unica cosa che mi viene in mente è che le versioni di Jet installate siano
diverse, ma sinceramente non mi interessa molto, ci ho già perso troppo
sonno sopra.
Saluti.


title: Non funziona!!

author: DD

text:
Come mai non funziona? Cosa mi sfugge? la stanchezza fà brutti scherzi.
Grazie in anticipo
Access2000
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.N°_elementi_prodotti = 0 And (Me.mc___Calcestruzzo > 0 Or
Me.Ctl1____Calcestruzzo > 0) Then
        If MsgBox("Attenzione!! Campo N° Elementi non compilato, vuoi
proseguire?", vbYesNo + vbDefaultButton2) = vbNo Then
            Exit Sub
        End If
    ElseIf Me.Ctl1____Calcestruzzo = 0 And (Me.mc___Calcestruzzo > 0 Or
Me.N°_elementi_prodotti > 0) Then
        If MsgBox("Attenzione!! Campo 1 - Calcestruzzo non compilato, vuoi
proseguire?", vbYesNo + vbDefaultButton2) = vbNo Then
            Exit Sub
        End If
    ElseIf Me.mc___Calcestruzzo = 0 And (Me.N°_elementi_prodotti > 0 Or
Me.Ctl1____Calcestruzzo > 0) Then
        If MsgBox("Attenzione!! Campo mc - Calcestruzzo non compilato, vuoi
proseguire?", vbYesNo + vbDefaultButton2) = vbNo Then
            Exit Sub
        End If
    End If
End Sub


title: Non funziona!!

author: Antonio Biso

text:
"DD" <
fornac...@libero.it
> ha scritto nel messaggio
news:EHtwa.845$lK4....@twister1.libero.it...
Non funziona il tuo subject poco significativo!!!
E POI CAZZAROLA!!!
Hai postato lo stesso quesito con un altro subject!!!
Ma ce stai a coglioną?!?!?!?!
Antonio


title: Non funziona!!

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:I9uwa.987$Ny5....@twister2.libero.it...

Chiedo perdono per il doppio invio, ma il primo non č stato visualizzato dal
mio browser e quindi l'ho rinviato.
Per quando riguarda il quesito sto cercando di far apparire dei messaggi nel
caso alcuni campi non siano stati compilati.
Grazie in anticipo e ancora perdono.
Diego


title: Non funziona!!

text:
"DD" <
fornac...@libero.it
> ha scritto nel messaggio
news:xhuwa.935$lK4....@twister1.libero.it...
>
> Chiedo perdono per il doppio invio, ma il primo non è stato visualizzato
dal
> mio browser e quindi l'ho rinviato.
> Per quando riguarda il quesito sto cercando di far apparire dei messaggi
nel
> caso alcuni campi non siano stati compilati.
Ecco, devi spiegare cosa succede invece di quello che vuoi tu!
Antonio


title: Non funziona!!

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:A_uwa.1181$Ny5....@twister2.libero.it...

Purtroppo non succede nulla i messaggi non appaiono nonostante i campi non
siano compilati.
Diego


title: Non funziona!!

text:
"DD" <
fornac...@libero.it
> ha scritto nel messaggio
news:bSGwa.2959$Ny5....@twister2.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:A_uwa.1181$Ny5....@twister2.libero.it...
> > "DD" <
fornac...@libero.it
> ha scritto nel messaggio
> > news:xhuwa.935$lK4....@twister1.libero.it...
> > >
> > > Chiedo perdono per il doppio invio, ma il primo non č stato
visualizzato
> > dal
> > > mio browser e quindi l'ho rinviato.
> > > Per quando riguarda il quesito sto cercando di far apparire dei
messaggi
> > nel
> > > caso alcuni campi non siano stati compilati.
> >
> > Ecco, devi spiegare cosa succede invece di quello che vuoi tu!
> >
> > Antonio
> >
> Purtroppo non succede nulla i messaggi non appaiono nonostante i campi non
> siano compilati.
Hai provato a fare un trace passo passo per vedere il flusso reale del
programma?
Antonio


title: Non funziona!!

author: Carlo Costarella

text:
"DD" <
fornac...@libero.it
> ha scritto nel messaggio
news:bSGwa.2959$Ny5....@twister2.libero.it...

Quale è il messaggio di errore?
Hai provato a mettere le parentesi quadre ai nomi dei controlli?
Me.N°_elementi_prodotti diventa
me.[N°_elementi_prodotti]
Credo che quegli underscore (__) siano messi da Access per sostituire gli
spazi.
Usa invece le quadre e lascia il nome del controllo così come è.
Facci sapere.
Ciao, Carlo


title: Non funziona!!

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:_XGwa.96703$3M4.2...@news1.tin.it...
>
> "DD" <
fornac...@libero.it
> ha scritto nel messaggio
> news:bSGwa.2959$Ny5....@twister2.libero.it...
> >
> > "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> > news:A_uwa.1181$Ny5....@twister2.libero.it...
> > > "DD" <
fornac...@libero.it
> ha scritto nel messaggio
> > > news:xhuwa.935$lK4....@twister1.libero.it...
>
> Quale è il messaggio di errore?
> Hai provato a mettere le parentesi quadre ai nomi dei controlli?
> Me.N°_elementi_prodotti diventa
> me.[N°_elementi_prodotti]
> Credo che quegli underscore (__) siano messi da Access per sostituire gli
> spazi.
> Usa invece le quadre e lascia il nome del controllo così come è.
> Facci sapere.
>
> Ciao, Carlo
>
Ho provato a sostituire i nomi con le quadre ma non va, non dà nessun
messaggio e se provo a fare un esecuzione passo passo VB mi richiede una
macro, purtroppo io provengo da VB per excel in cui qualcosa avevo capito, e
solo ora mi sto cimentando con VB Access in cui ancora mi sfuggono le lievi
differenze.
Sto pensando che il valore richiesto (NomeControllo = 0 oppure > 0  ) non
sia corretto per i campi di Access.
Come al solito poi si scopre che c'è la solita sciocchezza che sfugge, ma
quando uno va nel pallone le schiocchezze diventano montagne. :-)
Diego


title: uso di: 6.13 Come implementare correttamente...

author: robi

text:
salve a tutti
devo memorizzare immagini in formato binario in un campo OLE
automatizzando da codice l'operazione: inserisci oggetto -> crea da
file -> sfoglia ecc...
sto cercando di applicare la funzione ReadBLOB trovata sul sito comune:
6.13 Come implementare correttamente  un archivio di immagini di
Stefano Bettini,
ma evidentemente la mia scarsa esperienza non mi permette di risolvere
fino in fondo la questione.
ecco la situazione
____________________________
modulo1
FunctionReadBLOB......
(come da sito)
_____________________________
codice di pulsante su maschera:
Private Sub Comando0_Click()
 Dim db As Database
 Dim rs As Recordset
 Set db = CurrentDb()
 Set rs = db.OpenRecordset("imm")
 Dim val As Variant
 val = ReadBLOB("D:\CZ\immagine.jpg", rs, "ole")
 If val <= 0 Then
 MsgBox "Si è verificato il seguente errore: " & Err.Description
 Exit Sub
 End If
End Sub
____________________________
tabella "imm"
campo ole "ole"
_____________________________.
e questo è l'errore
"tipo non corrispondente argomento BYref"
dove sbaglio?
grazie in anticipo
robi


author: Sergio MAZZA

text:
"robi" <
roberto...@gmail.com
> ha scritto nel messaggio
news:1137769510.6...@g44g2000cwa.googlegroups.com...
salve a tutti




Private Sub Comando0_Click()

 Dim val As Variant



dove sbaglio?
grazie in anticipo
robi
[risposta]
Probabilmente nel scegliere la via più impervia quando comunque sai di
essere poco esperto.
Passa alla 6.75 Implementare un archivio di immagini.
Ciao.
--
Sergio MAZZA


title: Rendere visibile un campo su selezione

author: DBN

text:
In una maschera di imputazione
ho creato un campo "si/no"
Il campo successivo deve essere visibile solo se viene selezionato  il campo
si/no
Nel codice afterUpdate del campo afterUpdate volevo inserire il comando che
rilevasse la selezione si/no ma non so quale istruzione dire pernsavo a...
If  ???? then ME.Societā_persona_fisica.Visible = False


title: Rendere visibile un campo su selezione

text:

> If ???? then ME.Società_persona_fisica.Visible = False
> if me.tuocampo =-1 then...
MAssimiliano

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


title: Rendere visibile un campo su selezione

text:
Grazie come sempre sei un mito!!!!!!!!
Grazie come sempre sei un mito!!!!!!!!
Grazie come sempre sei un mito!!!!!!!!
Grazie come sempre sei un mito!!!!!!!!
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y...@usenet.libero.it...
> Il 10 Lug 2003, 18:48, "DBN" <
dbo...@dalbosco.com
> ha scritto:
> > In una maschera di imputazione
> > ho creato un campo "si/no"
> > Il campo successivo deve essere visibile solo se viene selezionato il
> campo
> > si/no
> >
> > Nel codice afterUpdate del campo afterUpdate volevo inserire il comando
> che
> > rilevasse la selezione si/no ma non so quale istruzione dire pernsavo
a...
> >
> > If ???? then ME.Societā_persona_fisica.Visible = False



title: Rendere visibile un campo su selezione

text:
Il 10 Lug 2003, 19:03, "DBN" <
dbo...@dalbosco.com
> ha scritto:
> Grazie come sempre sei un mito!!!!!!!!
> Grazie come sempre sei un mito!!!!!!!!
> Grazie come sempre sei un mito!!!!!!!!
> Grazie come sempre sei un mito!!!!!!!!
Antonio, incarta e porta a casa



title: Rendere visibile un campo su selezione

author: cidi

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y...@usenet.libero.it...
> Il 10 Lug 2003, 19:03, "DBN" <
dbo...@dalbosco.com
> ha scritto:
> > Grazie come sempre sei un mito!!!!!!!!
> > Grazie come sempre sei un mito!!!!!!!!
> > Grazie come sempre sei un mito!!!!!!!!
> > Grazie come sempre sei un mito!!!!!!!!
>
> Antonio, incarta e porta a casa
> MAssimiliano
>
>
Dopo 'sta bella sviolinata .... ti sei scurdato 'o quoting  :)))
un caldo saluto
Daniele


title: r:numero di formattazione del disco rigido

author: Pasquale Antonacci

text:
Perche' non renderla nota a tutti?
Saluti.  Lino
--
Posted from
sirio.tno.it
 [138.66.200.5]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Verificare la presenza di file

author: Enrica

text:
Salve a tutti.
Premetto che sono una super principiante.
Mi potete suggerire come verificare la presenza di un file, in questo caso
di un'immagine, all'interno di una cartella?
Ciao e grazie


title: Verificare la presenza di file

author: MA

text:
"Enrica" <
zx...@libero.it
> ha scritto nel messaggio
news:kmQSa.192161$Ny5.5...@twister2.libero.it...

if dir("c:\documenti\tuaimmagine.jpg") <>"" then
MAssimiliano


title: Stamapa Pagina report

author: CIDI

text:
ciao a tutti
ho apportato alcune modifiche alla function di Alessandro Baraldi per la
stampa
della pagina corrente di un report, rendendo più veloce l'esecuzione.
potete scaricare il demo qua:
http://mio.discoremoto.alice.it/paperopoli
attendo riscontri
buona giornata
Daniele


title: Stamapa Pagina report

author: Paolo Dal Bosco

text:
"CIDI" <
dado...@spamtin.it
> ha scritto nel messaggio
news:4bb4427e$0$1111$4faf...@reader4.news.tin.it...
> ciao a tutti
> ho apportato alcune modifiche alla function di Alessandro Baraldi per la
> stampa
> della pagina corrente di un report, rendendo pi� veloce l'esecuzione.
> potete scaricare il demo qua:
http://mio.discoremoto.alice.it/paperopoli
>
> attendo riscontri
> buona giornata
> Daniele
>
per renderlo pi� completo aggiungerei una funzione 'cooking'
:-), buona giornata
Paolo


title: Stamapa Pagina report

author: OneEDP

text:

Ti sei dimenticato di qualche pezzo...
Ciao
Daniele


title: Stamapa Pagina report

text:
"Paolo Dal Bosco" <
paolo.d...@tin.it
> ha scritto nel messaggio
news:4bb45eb3$0$1111$4faf...@reader4.news.tin.it...
>
> "CIDI" <
dado...@spamtin.it
> ha scritto nel messaggio
> news:4bb4427e$0$1111$4faf...@reader4.news.tin.it...
>> ciao a tutti
>> ho apportato alcune modifiche alla function di Alessandro Baraldi per la
>> stampa
>> della pagina corrente di un report, rendendo più veloce l'esecuzione.
>> potete scaricare il demo qua:
http://mio.discoremoto.alice.it/paperopoli
>>
>> attendo riscontri
>> buona giornata
>> Daniele
>>
> per renderlo più completo aggiungerei una funzione 'cooking'
Buona idea!!
terrò presente :D
ciao Paolo
Daniele


title: Stamapa Pagina report

text:
"OneEDP" <OneEDP@antispam> ha scritto nel messaggio
news:4bb466c5$0$1123$4faf...@reader3.news.tin.it...
> Il 01/04/2010 8.51, CIDI ha scritto:
>> ciao a tutti
>> ho apportato alcune modifiche alla function di Alessandro Baraldi per la
>> stampa
>> della pagina corrente di un report, rendendo pi� veloce l'esecuzione.
>> potete scaricare il demo qua:
http://mio.discoremoto.alice.it/paperopoli
>>
>> attendo riscontri
>> buona giornata
>> Daniele
>>
>>
>>
> Ti sei dimenticato di qualche pezzo...
a me sembra completo!!! :D
ciao OneEDP
CIDI


title: Stamapa Pagina report

text:
Il 01/04/2010 14.54, CIDI ha scritto:
> "OneEDP"<OneEDP@antispam>  ha scritto nel messaggio
> news:4bb466c5$0$1123$4faf...@reader3.news.tin.it...
>
>> Il 01/04/2010 8.51, CIDI ha scritto:
>>
>>> ciao a tutti
>>> ho apportato alcune modifiche alla function di Alessandro Baraldi per la
>>> stampa
>>> della pagina corrente di un report, rendendo più veloce l'esecuzione.
>>> potete scaricare il demo qua:
http://mio.discoremoto.alice.it/paperopoli
>>>
>>> attendo riscontri
>>> buona giornata
>>> Daniele
>>>
>>>
>>>
>>>
>> Ti sei dimenticato di qualche pezzo...
>>
> a me sembra completo!!! :D
>
> ciao OneEDP
>
> CIDI
>
L'unica cosa che vedo sono quattro form con qualche riga di codice,
nessuna tabella, nessun report, nessun altro modulo di classe o modulo
Il link è quello di paperopoli... non è che c'è un topolinia ;-)
Grazie.
Aspetto tue.
Ciao


title: Stamapa Pagina report

text:
"OneEDP" <OneEDP@antispam> ha scritto nel messaggio
news:4bb4a340$0$1119$4faf...@reader2.news.tin.it...

eheheheheheh
uomo di poca fede!
clicca su un pulsante qualsiasi e....vedrai ;-))
ciao
Daniele


title: Stamapa Pagina report

text:
Il 01/04/2010 19.07, CIDI ha scritto:
> "OneEDP"<OneEDP@antispam>  ha scritto nel messaggio
> news:4bb4a340$0$1119$4faf...@reader2.news.tin.it...
>
>> Il 01/04/2010 14.54, CIDI ha scritto:
>>
>>> "OneEDP"<OneEDP@antispam>   ha scritto nel messaggio
>>> news:4bb466c5$0$1123$4faf...@reader3.news.tin.it...
>>>
>>>
>>>> Il 01/04/2010 8.51, CIDI ha scritto:
>>>>
>>>>
>>>>> ciao a tutti
>>>>> ho apportato alcune modifiche alla function di Alessandro Baraldi per
>>>>> la
>>>>> stampa
>>>>> della pagina corrente di un report, rendendo piï¿œ veloce l'esecuzione.
>>>>> potete scaricare il demo qua:
>>>>>
http://mio.discoremoto.alice.it/paperopoli
>>>>>
>>>>> attendo riscontri
>>>>> buona giornata
>>>>> Daniele
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>> Ti sei dimenticato di qualche pezzo...
>>>>
>>>>
>>> a me sembra completo!!! :D
>>>
>>> ciao OneEDP
>>>
>>> CIDI
>>>
>>>
>> L'unica cosa che vedo sono quattro form con qualche riga di codice,
>> nessuna tabella, nessun report, nessun altro modulo di classe o modulo
>> Il link ï¿œ quello di paperopoli... non ï¿œ che c'ï¿œ un topolinia ;-)
>>
> eheheheheheh
>
> uomo di poca fede!
> clicca su un pulsante qualsiasi e....vedrai ;-))
>
> ciao
> Daniele
>
>
>
Presto o tardi
http://www.robertoalajmo.it/public/images/pesce_d_aprile.jpg
Ragazzaccio!
Daniele


title: Colororazione in Maschere continue

author: Fabar

text:
Salve al NG!!
Ho una esigenza particolare: dovrei far colorare in modo differente le
caselle di testo in un form (maschere continue), per realizzare una legenda
colori.
La maschera in questione ha come origine dati una tabella con questi campi:
Codice | Categoria | Colore
Nel campo colore sono memorizzati (come stringa ) i codici dei colori.
Vorrei che all'avvio della maschera, la casella di testo collegata al campo
colore (TxtColore) assuma la colorazione relativa al codice in essa
contenuto
(...TxtColore.Backcolor = TxtColore).
Il risultato però è che tutte le textbox assumono la colorazione del primo
record trovato in tabella (ovviamente!!!!!). Come posso fare per far si che
le colorazioni si differenzino?
Ringrazio anticipatamente e mi scuso se l'argomento è già stato trattato nel
Sitocomune (una risposta al mio problema purtroppo non l'ho trovata)


title: Colororazione in Maschere continue

author: Roberto da casa

text:
"Fabar" <
fabio.a...@tin.it
> ha scritto nel messaggio
news:RF4B9.16164$Yw.7...@news2.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggiti la FAQ di
Silvio Savoldi intitolata "Formattazione Condizionale nelle maschere
continue".
Naturalmente fai il download del database di esempio ad essa allegato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Colororazione in Maschere continue

text:
"Roberto da casa"
> Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggiti la FAQ
di
> Silvio Savoldi intitolata "Formattazione Condizionale nelle maschere
> continue".
> Naturalmente fai il download del database di esempio ad essa allegato.
Però secondo me in questo caso non risolve.


title: Colororazione in Maschere continue

text:
"Tiziano" <
tiziano....@nospam.it
> ha scritto nel messaggio
news:e_7B9.33883$8E3.9...@twister2.libero.it...

Risolve, stai tranquillo che risolve: naturalmente sempre a condizione che
tu abbia ben compreso come funziona l'esempio di Silvio Savoldi allegato
alla FAQ.
Non solo funziona, ma puoi avere un numero molto alto di colori con tuute le
sfumature possibili: puoi realizzare anche il color singhiozzo di cane. :-)
Tutto dipende da come scrivi la funzione Colora inserita nel modulo di
classe della maschera e da come la richiami.
A tale scopo leggiti cosa ha scritto Silvio nel file di tipo txt che si
trova nella stessa cartella del database di esempio.
Forse l'unico inconveniente è quello che devi modificare la maschera ogni
volta che dovesse nascere un nuovo colore.



title: Colororazione in Maschere continue

text:
"
> Forse l'unico inconveniente è quello che devi modificare la maschera ogni
> volta che dovesse nascere un nuovo colore.
E' proprio questo il problema, nella fattispecie ;-)
Ciao, Tiziano


title: Colororazione in Maschere continue

author: Marco, il Padre

text:
On Fri, 15 Nov 2002 16:28:53 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>Non solo funziona, ma puoi avere un numero molto alto di colori con tuute le
>sfumature possibili: puoi realizzare anche il color singhiozzo di cane. :-)
GranVarietà- Corrado.1958  ma non era ... di cane   se ben ricordo!


title: Colororazione in Maschere continue

author: Claudio

text:
Sat, 16 Nov 2002 11:11:37 +0100, Marco, il Padre ha scritto ben 6 righe
per dire:

Pesce?


title: Colororazione in Maschere continue

text:
"Marco, il Padre" <
za...@polito.it
> ha scritto nel messaggio
news:8d6ctuoi14n4gj509...@4ax.com...

Hai ragione: era "color singhiozzo di pesce", ma se non sbaglio non si
trattava di Corrado ma di Nunzio Filogamo.
Se non ricordo male tentava di descrivera alla radio il colore di una
cravatta.



title: Query a campi incrociati

text:
Buonasera a tutti quanti,
qualcuno ha voglia di arrovellarsi con me per capire come far funzionare una query a campi incrociati che se non gli imposto il periodo fisso non modificabile dall'utente funziona e appena glielo metto modificabile no?
Vi spiego meglio: ho una query a campi incrociati così formulata:

TRANSFORM Sum(QFattureClassifica.Imponibile) AS SommaDiImponibile
SELECT QFattureClassifica.RagioneSociale, Sum(QFattureClassifica.Imponibile) AS [Totale di Imponibile]
FROM QFattureClassifica
GROUP BY QFattureClassifica.RagioneSociale
PIVOT QFattureClassifica.TipoDoc;

dove QFattureClassifica è così strutturata:

SELECT Clienti.RagioneSociale, Fattura.IdFattura, Fattura.NumeroFattura, Fattura.DataFattura, Fattura.Imponibile, Fattura.TipoDoc
FROM Clienti INNER JOIN Fattura ON Clienti.IdCliente = Fattura.IdCliente
WHERE (((Fattura.DataFattura) Between #1/1/2014# And #12/31/2016#));

se lancio la pivot così, tutto funziona, se invece metto il parametro delle date cambiabile o così:
Between [Inserire data inizio] And [Inserire data fine]
o così:
Like "*" & [Maschere]![StartUp]![CmbAnno] & "*"
o così:
Between [Forms]![AreaStampeBilanci]![DataInizio] And [Forms]![AreaStampeBilanci]![DataFine]

non funziona più dandomi avviso di campo o espressione non valida...
Qualcuno ha qualche suggerimento da darmi?
Grazie mille per la collaborazione!


title: Query a campi incrociati

author: Potone

text:
Il giorno mercoledì 25 gennaio 2017 19:00:15 UTC+1,
lorena...@gmail.com
 ha scritto:
[Cut]
> Between [Inserire data inizio] And [Inserire data fine]
> o così:
> Like "*" & [Maschere]![StartUp]![CmbAnno] & "*"
> o così:
> Between [Forms]![AreaStampeBilanci]![DataInizio] And [Forms]![AreaStampeBilanci]![DataFine]
>
> non funziona più dandomi avviso di campo o espressione non valida...
> Qualcuno ha qualche suggerimento da darmi?
> Grazie mille per la collaborazione!

Ciao,
prova a definire esplicitamente i parametri all'interno della query di origine.

Se usi
Between [Inserire data inizio] And [Inserire data fine]
metti
PARAMETERS [Inserire data inizio] DateTime, [Inserire data inizio] DateTime;
SELECT Clienti.RagioneSoc...

se usi
Between [Forms]![AreaStampeBilanci]![DataInizio] And [Forms]![AreaStampeBilanci]![DataFine]
metti
PARAMETERS [Forms]![AreaStampeBilanci]![DataInizio] DateTime, [Forms]![AreaStampeBilanci]![DataFine];

ecc.

Ciao
Mat.


title: Query a campi incrociati

text:

Ciao Mat,
grazie per il suggerimento...
Funziona alla grande!!!
Grazie mille


title: ACCESS 2000: tabelle collegate con ADO

author: Sergio de Pretis

text:
Devo convertire un applicazione Access 97 che utilizzava un db Access 97
e che adesso utilizza un db Microsoft SQL 7.0.
Cambiando i collegamenti alle tabelle con dei collegamenti ODBC ci sono
delle funzioni che sono diventate tremendamente lente.
Vorrei utilizzare un progetto di Access 2000 ed accedere direttamente al
dB SQL.
Se ho capito bene devo utilizzare l'accesso ADO ed ho cominciato a
sostituire le sitruzioni che riguardano oggetti database e recordset.
Non so come convertire le seguenti istruzioni che utilizzo per collegare
le tabelle (cosa che mi serve solo per le prove in cui mi collegamento
con Access 2000 al dB Access vecchio):
    Dim dbs As DataBase
    Dim percorso As String
    Dim tdf As TableDef
    Dim rst As Recordset
    On Error GoTo AllegaFile_Error

    FlagOK = False
    percorso = ";DATABASE=" & PercorsoDb
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("TabelleDaAllegare")

    If rst.RecordCount > 0 Then
        rst.MoveFirst
        Do
            If rst!FlagAllego = True Then
                Set tdf = dbs.CreateTableDef(rst!NomeTabella)
                tdf.Connect = percorso & rst!NomeFile
                tdf.SourceTableName = rst!NomeTabella
                dbs.TableDefs.Append tdf
            End If
            rst.MoveNext
        Loop Until rst.EOF
    End If
    rst.Close
Grazie fin d'ora a chi mi aiuta ed eventualmente mi conferma che sto
andando nella giusta direzione.
--------------------------------------------------------------------
Sergio de Pretis      E-mail
depr...@csgen.it
 /
de_p...@libero.it


title: Allineare 2 database

author: Ivan

text:
Salve a tutti
ho la necessità di dover allineare 4 tabelle, in comune  ma non collegate di
2 database diversi. Non posso nè collegarle nè creare delle repliche. Nei 2
database devo creare una piccola maschera con un pulsante "Allinea" che mi
esegua l'allineamento di queste 4 tabelle. Tenete presente che devo
aggiornarle con l'ultima modifica, indipendentemente da quale mdb sia stata
fatta. Le modifiche possono essere eseguite in 4 step ben definiti.
Il massimo sarebbe quello di avvisare se nello stesso giorno sono stati già
fatti degli aggiornamenti.
Avevo in mente di creare una tabella di appoggio dove inserire
TABELLA, ID, DATAORAMODIFICA, STEP
in cui inserire i dati delle modifiche, ma sono in alto mare.
Avete già realizzato qualche cosa di simile?
Avete ideee o consigli?
Grazie per la collaborazione.


title: Allineare 2 database

text:
Ivan wrote:
> Salve a tutti
>
> ho la necessità di dover allineare 4 tabelle, in comune  ma non
> collegate di 2 database diversi. Non posso nè collegarle nè creare
> delle repliche.
Perchè?
Non puoi nel db1 e db2, forse, ma se ti crei un db3 di collegamento puoi
farlo.
> Avete già realizzato qualche cosa di simile?
> Avete ideee o consigli?
>
> Grazie per la collaborazione.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Allineare 2 database

text:
> Ivan wrote:
> > Salve a tutti
> >
> > ho la necessità di dover allineare 4 tabelle, in comune  ma non
> > collegate di 2 database diversi. Non posso nè collegarle nè creare
> > delle repliche.
>
> Perchè?
> Non puoi nel db1 e db2, forse, ma se ti crei un db3 di collegamento puoi
> farlo.
I due mdb non sono collegati in rete ma i dati li devo passare via modem
isdn.


title: Allineare 2 database

text:

ops, particolare che avevi tralasciato...
lavora con la exort/importazione dati ltrimenti la vedo dura



title: CASELLA DI CONTROLLO

author: ^luigi^

text:
� possibile cambiare il colore della spunta della casella di controllo e
del pulsante di opzione in un gruppo di opzioni?
se si, COME?
me lo fa cambiare solo dal classico verde al nero nelle propriet� del
controllo!
l.
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ODBC SQLSERVER ACCESS

author: merco

text:
Ho convertito un FE con le tabelle collegate a un SQL2K tramite ODBC
(named pipe).
Dato che il FE si trova sulla stessa macchina del DBserver (č un terminal
server),
esiste  un modo per farlo "andare" piů veloce possibile dato che, di
fatto, sia l'applicazione MDE che le tabelle ODBC sono sulla stessa
macchina ?
Ad esempio penso che named pipe sia + performante in questo caso del TCP :
e' vero ?
Ho anche un problema, forse, a livello di memoria consumata da SQLserver
con questa applicazione access. Dopo qualche minuto di utilizzo la memoria
schizza a 200Mb occupata per SQLServer: e' normale ?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ODBC SQLSERVER ACCESS

author: Oscar Manfredini

text:
"merco"
> Ho convertito un FE con le tabelle collegate a un SQL2K tramite ODBC
> (named pipe).
> Dato che il FE si trova sulla stessa macchina del DBserver (è un terminal
> server),
> esiste  un modo per farlo "andare" più veloce possibile dato che, di
> fatto, sia l'applicazione MDE che le tabelle ODBC sono sulla stessa
> macchina ?
> Ad esempio penso che named pipe sia + performante in questo caso del TCP :
> e' vero ?
Lo hai verificato o è un'ipotesi?
Comunque per "farlo andare più veloce possibile" si devono evitare quei
costrutti SQL che fanno lavorare esclusivamente JET.
Per esempio stringhe che contengono DLookup, DSum o query a campi incrociati
o su origini dati eterogenee.
> Ho anche un problema, forse, a livello di memoria consumata da SQLserver
> con questa applicazione access. Dopo qualche minuto di utilizzo la memoria
> schizza a 200Mb occupata per SQLServer: e' normale ?
Dipende da cosa fa l'applicazione e cosa fa fare al Server  :-)
Comunque nelle proprietà del Server, scheda Memory, puoi "obbligare" il
Server SQL a non allocare oltre una certa quantità di memoria.
L'opzione default consente a SQL Server d'utilizzare tutte le risorse che
desidera...
Adesso la faccio io una domanda: non hai avuto noie installando SQL Server
in Terminal Server?
Problemi d'installazione, rallentamento evidente del Server dopo
l'installazione, etc?
Ciao.


title: ODBC SQLSERVER ACCESS

text:
Premetto che non ho riscritto da 0 l'applicazione, sarebbe capaci tutti.
Ho fatto qualche intervento qua è lò per tappare qualche situazione
anomale.
> Lo hai verificato o è un'ipotesi?
E' una ipotesi, tuttavia alcune procedure andavano in timeout con il
tcp/ip, mentre con named pipe tutto file liscio...
> Comunque per "farlo andare più veloce possibile" si devono evitare quei
> costrutti SQL che fanno lavorare esclusivamente JET.
> Per esempio stringhe che contengono DLookup, DSum o query a campi incrociati
> o su origini dati eterogenee.
.. e si, però mi tocca rifare l'applicazione.
> Dipende da cosa fa l'applicazione e cosa fa fare al Server  :-)
> Comunque nelle proprietà del Server, scheda Memory, puoi "obbligare" il
> Server SQL a non allocare oltre una certa quantità di memoria.
> L'opzione default consente a SQL Server d'utilizzare tutte le risorse che
> desidera...
Si, lo so... Ho provato a rimuovere la chiusura all'uscita e la
compattazione automatica.
> Adesso la faccio io una domanda: non hai avuto noie installando SQL Server
> in Terminal Server?
Problemi di installazione: NO
Rallentamenti: NI di fatto c'è una applicazione in più che gira, però
di fatto è una macchina di test poco utilizzata.



title: ODBC SQLSERVER ACCESS

text:
"merco"
> > Comunque per "farlo andare più veloce possibile" si devono evitare quei
> > costrutti SQL che fanno lavorare esclusivamente JET.
> > Per esempio stringhe che contengono DLookup, DSum o query a campi
incrociati
> > o su origini dati eterogenee.
> .. e si, però mi tocca rifare l'applicazione.
Accidenti: è messa così male?   :-)
D'altra parte questa è la realtà...
Ciao.


title: ODBC SQLSERVER ACCESS

author: Matteo Barsotti

text:
merco wrote:
> Ho anche un problema, forse, a livello di memoria consumata da SQLserver
> con questa applicazione access. Dopo qualche minuto di utilizzo la memoria
> schizza a 200Mb occupata per SQLServer: e' normale ?
>
>
Installa il service pack 3 di sql server (se non l'hai già fatto):
risolve problemi di allocazione della memoria.
Ciao


title: datediff in query

author: Nicola Bardelli

text:
Salve a tutti
in una query ho bisogno di calcolare l'erà ad una certa data (non odierna)
ho il campo [nascita] nella tabella della query
ho la data di riferimento su cui fare il calcolo in una maschera aperta.

non riesco a fare riferimento alla data della maschera, nell'esempio sotto l'ho chiamata [DATAMASCHERA]

età: DateDiff("aaaa";[nascita];"[DATAMASCHERA]")-IIf(Format([nascita];"mmgg")>Format("[DATAMASCHERA]";"mmgg");1;0)

Grazie


title: datediff in query

author: BFS

text:

=DateDiff('yyyy';[nascita];[datamaschera])

BFS


title: datediff in query

author: Karl Donaubauer

text:
Salve,

Nicola Bardelli:

Invece di
Format("[DATAMASCHERA]";"mmgg")
usa
Format(Forms![NomeMaschera]![DATAMASCHERA];"mmgg")

--
Ciao
Karl
*********
Access News:
https://youtu.be/hvbzxJL8Qh8

Access DevCon:
http://AccessDevCon.com

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


title: datediff in query

text:
Karl Donaubauer:
>
> Nicola Bardelli:
>> ...
>> non riesco a fare riferimento alla data della maschera, nell'esempio
>> sotto l'ho chiamata [DATAMASCHERA]
>>
>> età:
>> DateDiff("aaaa";[nascita];"[DATAMASCHERA]")-IIf(Format([nascita];"mmgg")>Format("[DATAMASCHERA]";"mmgg");1;0)
>
> Invece di
> Format("[DATAMASCHERA]";"mmgg")
> usa
> Format(Forms![NomeMaschera]![DATAMASCHERA];"mmgg")

Beh, certo l'hai due volte, quindi:

DateDiff("aaaa";[nascita];Forms![NomeMaschera]![DATAMASCHERA])-IIf(Format([nascita];"mmgg")>Format(Forms![NomeMaschera]![DATAMASCHERA];"mmgg");1;0)



title: datediff in query

text:

non ho capito perchè mi hai scritto che ce l'ho due volte...
comunque

la soluzione è stata
età inizio: DateDiff("aaaa";[nascita];([Maschere]![nomemaschera]![nomecampodata]))-IIf(Format([nascita];"mmgg")>Format(([Maschere]![nomemaschera]![nomecampodata]);"mmgg");1;0)

in pratica rispetto a come lo facevo io (che non avevo scrittto qui) ho dovuto usare "Maschere" al posto di "Forms"


title: datediff in query

text:

grazie a tutti per l'aiuto!


title: Importazione foglio excel con colonne contenenti dati numerici e alfanumerici

author: Massimo

text:
Salve,
Ho realizzato un database il cui scopo è quello di importare dei dati da
excel 97 e generare  alcuni report. Uno dei file da importare però mi sta
dando dei problemi. Il file in questione è organizzato in due colonne:
CodiceCogen, cioè conto della contabilità generale che purtroppo sono
codificati in parte con codici numerici ed in parte alfanumerici, e
Descrizione. Poiché i dati inseriti in access sono "a perdere", cioè li
butto via ad ogni importazione, ogni volta elimino le tabelle. Qui è sorto
il primo problema. In presenza di codici numerici  e alfanumerici, access fa
parecchia confusione, soprattutto se i primi codici ad essere importati sono
numerici. In tal caso infatti la colonna CodiceCogen viene qualificata come
numerica e, quando l'importazione arriva ai dati alfanumerici, viene
generato un errore. Per  rimediare ho eliminato la tabella, l'ho ricreata
con una query definizione dati (impostandone così a priori le
caratteristiche) e quindi accodato i dati. Sul mio pc questo ha funzionato,
su altri due (pure dotati di office 97sr2) no, nel senso che quando arriva
ai dati alfanumerici, pur sapendo che dovrà accodare del testo, commette un
errore (errore di conversione del tipo). L'unica soluzione che ho trovato è
consistita nel mettere come prima colonna di excel quella contenente le
descrizioni (ovviamente è tutto testo) e come seconda quella con la codifica
CodiceCogen. Mi sembra pazzesco...
Ho sbagliato qualcosa o access 97 è impazzito?
Grazie
Massimo


title: Ricupero di un database

author: il barbi

text:
Non riesco più a recuperare un db Access 97 che avevo zippato... non lo
legge più ne' in Access 97 ne' in Access 2000... mi hanno detto che prob.
dipende dal fatto che in Access 97 alcune informazioni venivano codificate
nel registro di configurazione e quindi per salvarlo non va bene zipparlo...
Altri mi hanno detto che c'e' un'utility che scandisce il .mdb cercando di
raccattare i cocci, e che si possono recuperare tabelle, query, codice...
qualcuno ne sa qualcosa?
grazie dal barbi


title: Ricupero di un database

author: Federico Luciani

text:
il barbi wrote:
> Non riesco piů a recuperare un db Access 97 che avevo zippato... non lo
> legge piů ne' in Access 97 ne' in Access 2000... mi hanno detto che prob.
> dipende dal fatto che in Access 97 alcune informazioni venivano codificate
> nel registro di configurazione e quindi per salvarlo non va bene zipparlo...
> Altri mi hanno detto che c'e' un'utility che scandisce il .mdb cercando di
> raccattare i cocci, e che si possono recuperare tabelle, query, codice...
> qualcuno ne sa qualcosa?
> grazie dal barbi
[Solo se access97]
Prova ad aprire il file da riga di comando con il parametro /decompile, cioe'
"C:\Programmi\Microsoft Office\Office\msaccess.exe" C:\path\tuo.mdb /decompile
se lo apre, ripara e compatta.
Alternativa
Dal Sito Comune c'e' il link per 'Microsoft Jet 3.51 Service Pack 3'.
All'interno ci trovi, tra le altre cose, jetcomp.exe.
Alternativa
crea un db nuovo e vedi se riesci ad importarci gli oggetti dal vecchio
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Ricupero di un database

author: sib

text:
il barbi <
barbi...@libero.it
> wrote in message
fdiM5.2716$fx4....@news.infostrada.it...
> Non riesco più a recuperare un db Access 97 che avevo zippato... non lo
> legge più ne' in Access 97 ne' in Access 2000... mi hanno detto che prob.
> dipende dal fatto che in Access 97 alcune informazioni venivano codificate
> nel registro di configurazione e quindi per salvarlo non va bene
zipparlo...
Questa è una fesseria.
Fai come ti suggerisce Federico.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente