title: Log di errori in tabella

text:
>
>
> > a mio avviso, generalmente, vale la pena registrare le azioni degli
utenti
> > sui record non la loro attività sulle maschere, e gli errori che si
> generano
> > all'interno, possibilmente con le informazioni di cui al 3d precedente.
> >
> >
> > ciao.
> >
> >
>
> Ciao e grazie per l'attenzione. Io loggo le aperture delle maschere in una
> tabella per verificare a livello statistico le attività più utilizzate e
occhio ai volumi di questa tabella, rischi che in breve tempo diveni enorme
e appesantisca tutto.
Eventualmente mettila in un db a se stante e collegala. Io sono comunque
sempre più propenso a usare file di testo, eventualmente, quando vuoi fare
analisi li colleghi o li importi
> simili. Per gli errori siamo d'accordo. Ho un URL che può essere
> interessante ma devo ancora studiarmelo. Te lo posto
>
http://allenbrowne.com/ser-23a.html
>
>
>
nel 3d precedente ti ho scritto le istruzioni per creare il file di testo:
vedi istruzioni open, write, put, get ecc. è abbastanza semplice.
nel link che hai postato, c'è la routine "LogError" che fa al caso tuo.
ciao.


title: Log di errori in tabella

author: Gianluca

text:
CUT
Ancora una cosa: sto provando a fare come mi hai suggerito, a loggare
l'apertura delle maschere su un file di testo.
Sai suggerirmi come convertire il metodo che utilizzo attualmente (aggiunta
di record sulla tabella) per poter sparare nel file il log?
Al momento funge così (forse l'ho già messo dentro un 3d precedente):
* dalla maschera:
    LoggaLogga Me
* nel modulo:
    Public Sub LoggaLogga2(Maschera As Form)
    Dim rS As Recordset
    Dim User, Data
    User = CurrentUser
    Data = Now()
    Set rS = CurrentDb.OpenRecordset("tblLog")
    rS.AddNew
    rS.Fields("User") = User
    rS.Fields("Data") = Data
    rS.Fields("Form") = Maschera.name
    rS.Update
    rS.Close
    Set rS = Nothing
    End Sub
Se io provo a modificare e a mettere nel modulo:
* nel modulo:
    Public Function LoggaLogga (Form As Form)
    Open "NomeFile.txt" For Append As #1
    Write #1, Form ; Now; CurrentUser
    Close #1
    End Function
mi viene restituito un errore di run-time.
E non so come modificare la sintassi nel modulo o nella maschera.
Sai darmi una mano?


title: Log di errori in tabella

author: ramblers

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:ldS19.21935$n04.6...@twister2.libero.it...

il codice è corretto.
Probabilmente non viene accettata la variabile FORM  (non è conveniente dare
alle variabili il nome della classe o del tipo che rappresentano).
cosi dovrebbe andare:
 Public Function LoggaLogga (Frm As Form)
    Open "NomeFile.txt" For Append As #1
    Write #1, Frm ; Now; CurrentUser
    Close #1
Function
fammi sapere.
ciao.


title: Log di errori in tabella

text:
CUT
> il codice è corretto.
> Probabilmente non viene accettata la variabile FORM  (non è conveniente
dare
> alle variabili il nome della classe o del tipo che rappresentano).
>
> cosi dovrebbe andare:
>
>  Public Function LoggaLogga (Frm As Form)
>     Open "NomeFile.txt" For Append As #1
>     Write #1, Frm ; Now; CurrentUser
>     Close #1
> Function
>
> fammi sapere.
>
> ciao.
>
>
Purtroppo non va...
Mi viene detto:
Errore di run-time '450':
Numero errato di argomenti o assegnazione di proprietà non valida
Che sia il codice dalla maschera?
Mah, spero in un tuo o altrui suggerimento!


title: Log di errori in tabella

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:pwT19.22256$n04.6...@twister2.libero.it...
> CUT
>
> > il codice è corretto.
> > Probabilmente non viene accettata la variabile FORM  (non è conveniente
> dare
> > alle variabili il nome della classe o del tipo che rappresentano).
> >
> > cosi dovrebbe andare:
> >
> >
> > fammi sapere.
> >
> > ciao.
> >
> >
>
>
> Purtroppo non va...
> Mi viene detto:
> Errore di run-time '450':
> Numero errato di argomenti o assegnazione di proprietà non valida
>
> Che sia il codice dalla maschera?
> Mah, spero in un tuo o altrui suggerimento!
>
>
e cià ragione 'azzo!!! :)
gli si vuola far scrivere una form in un file di testo .......
     Write #1, Frm ; Now; CurrentUser
alla routine passa in nome della form anzichè il riferimento all'oggetto
 Public Function LoggaLogga (sNameForm As string)
     Open "NomeFile.txt" For Append As #1
     Write #1, sNameForm ; Now; CurrentUser
     Close #1
Function
ciao.


title: Log di errori in tabella

text:
"ramblers" <
clint...@yahoo.it
> ha scritto nel messaggio
news:ai90tb$12km0r$1...@ID-57322.news.dfncis.de...

L'avevo già provato, e dalla maschera mi dice
Tipo non corrispondente
L'errore e sulla riga
LoggaLogga2 Me


title: Log di errori in tabella

text:
CUT
Ca##o finalmente!
Grazie ramblers!
Bastava passargli
LoggaLogga2 Me.name
avendo impostato la variabile nel modulo come stringa!!!!
Alla prossima, ribaldo...


title: Log di errori in tabella

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:eNT19.22309$n04.6...@twister2.libero.it...

hasta siempre!


title: somma in un controllo

author: Franco

text:
ciao a tutti

perchè se metto somma ho errore?

=Somma(IIf(IsNull([nfattfornit]);0;[Scontoinfatt]))

Grazie


title: somma in un controllo

author: Bruno Campanini

text:
It happens that Franco formulated :
> ciao a tutti
>
> perchè se metto somma ho errore?
>
> =Somma(IIf(IsNull([nfattfornit]);0;[Scontoinfatt]))

=Sum(Nz([Scontoinfatt], 0)

Bruno


title: somma in un controllo

text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:4fb6f53e$0$1391$4faf...@reader1.news.tin.it...
> It happens that Franco formulated :
>> ciao a tutti
>>
>> perch� se metto somma ho errore?
>>
>> =Somma(IIf(IsNull([nfattfornit]);0;[Scontoinfatt]))
>
> =Sum(Nz([Scontoinfatt], 0)
>
> Bruno
grazie


title: Tanti tasti simili: suggerimenti?

author: Zampalunga

text:
Ciao a tutti e buone feste.
    Sto cercando di fare un progetto per un circolo Tennis e vorrei creare
una maschera (Situazione) con tanti tasti (uno per ogni ora dalle 7 alle 23
per 7 campi =96) in modo che a fronte dell'evento su clic mi si apra la
maschera  (Prenotazioni) dove mettere data,ora e campo (che voglio che
inserire automaticamente sempre sull'evento Su clic) nonchè i nomi dei
giocatori. Qualcuno ha un idea per evitarmi di scrivere il codice per ogni
tasto che assegna i primi tre valori ai campi della maschera Prenotazioni.
Ogni suggerimento è gradito, grazie mille


title: Tanti tasti simili: suggerimenti?

author: Giuseppe

text:
"Zampalunga" <zampalunga@_NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:v3926.14944$ag5.9...@twister1.tin.it...

 puoi aggiungere una Casella di reipilogo per le ore e alla proprietà
Origine riga:7;8;9;10;11;.....
una Casella di riepilogo per i campi e alla proprietà Origine
riga:1;2;3;.....
seleziona i valori,
e dopo il codice che apre la maschera Prenotazioni :
Forms!Prenotazioni!txtOra = Forms!maschera1!lstOra
Forms!Prenotazioni!txtCampi = Forms!maschera1!lstCampi
giuseppe


title: Per chi non ha resistito alla tentazione di scaricare IE6.0

text:
Dalla newsletter di PI:
INTERNET EXPLORER DIGERISCE I BISCOTTI
Arriva il cerottone per una falla  per la quale Microsoft aveva dovuto dare
istruzioni cautelative. Ecco i dettagli
URL:
http://punto-informatico.it/pi.asp?i=38090
Per chi e' interessato la patch e' gia' disponibile e scaricabile seguendo
il link sopra.
Ciao
----
leo_duca


author: Roberto dal portatile

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:TjqK7.134352$sq5.6...@news.infostrada.it...

E tu la patch l'hai provata?
>
> Ciao
>
> ----
> leo_duca
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9te2le$4vmk$1...@stargate1.inet.it...

No, anche per me la notizia e' fresca fresca.
Ti diro' di piu': non ho nemmeno visto il bug
dato che da circa un mese a questa parte,
 il PC lo uso solo per scaricare la posta.
Ho postato ugualmente il link per motivi di coscenza :)
----
leo_duca


text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:BjxK7.137404$sq5.6...@news.infostrada.it...
[CUT]
>
> No, anche per me la notizia e' fresca fresca.
> Ti diro' di piu': non ho nemmeno visto il bug
> dato che da circa un mese a questa parte,
>  il PC lo uso solo per scaricare la posta.
> Ho postato ugualmente il link per motivi di coscenza :)
>
> ----
> leo_duca
OK, grazie!



text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9tea4n$1gvs$1...@stargate1.inet.it...
>
> "leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
> news:BjxK7.137404$sq5.6...@news.infostrada.it...
> [CUT]
> >
> > No, anche per me la notizia e' fresca fresca.
> > Ti diro' di piu': non ho nemmeno visto il bug
> > dato che da circa un mese a questa parte,
> >  il PC lo uso solo per scaricare la posta.
> > Ho postato ugualmente il link per motivi di coscenza :)
> >
> > ----
> > leo_duca
>
> OK, grazie!
>
> --
> Roberto
>
Se ti puo' interessare
http://zeusnews.com/news.php3?cod=920
Ciao
---
leo_duca


text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:ZHvL7.158812$sq5.7...@news.infostrada.it...

OK, letto.
Comunque mi sembra di aver capito che le cose nel mio caso non sono
peggiorate, visto che prima di IE 6.0 usavo IE 5.5 .
Grazie!



title: Registrazione Mscomm32.ocx

author: almorel

text:
Salve a tutti,
sono un vecchio (e anziano)  iscritto ebbi, anni fa, un problema con lo stesso controllo, l'ottimo Karl me lo risolse tempestivamente (il killbit).
Ora, ho sviluppato un'applicazione per un banco di collaudo per trasformatori di misura che legge, da porta seriale, lo strumento che misura l'errore del trasformatore rispetto al campione. Ho sviluppato su di un portatile Asus, (win 10 64b, A 2019 32 b) ed il controllo Mscomm funziona regolarmente. Stamattina sono andato in azienda per attivare il sistema, ma, pur registrando il controllo da amministratore (stesso ocx preso dal portatile) sul PC del banco, mi da l'errore: "Il modulo MSCOMM32 è stato caricato, ma il punto di ingresso DllInstall non è stato trovato".
Il PC é un Asus I5  (win 64b, A 2016 32b) . L'icona dell'ocx è un quadrato bianco, invece del "telefono".
Cosa posso fare ?
Grazie.
Almorel


title: Formula da excel in access con calcolo in matrice

text:
Ciao a tutti,
in un file excel ho una formula di questo tipo in una serie di celle:
='C:\XlsErlangFunctionsV2_4.xla'!xlsN_InvMultiERLANGB_ABR(S8:Z8,$S
$1:$Z
$1,$S$2:$Z$2)
Nei campi da S8 a Z8 ho dei valori variabili mentre nei campi che
vanno da S1 a Z1 e da S2 a Z2 ho dei valori statici (Tutti e tre i
range hanno lunghezza 8).
Ho la necessità di far effettuare in Access questi calcoli ed ho
importato:
1) Il modulo vba in oggetto che mi serve per effettuare il calcolo
(XlsErlangFunctionsV2_4.xla'!xlsN_InvMultiERLANGB_ABR)
2) Una tabella con i valori da S8 a Z8 che importo da excel (sono dati
che ciclicamente variano)
3) Due tabelle statiche per i rispettivi range S1-Z1 / S8-Z8
Dopo una serie di tentativi vani mi sono arenato.
Come faccio a far gestire ad access questo calcolo in matrice?
Avrei bisogno di una cosa relativamente semplice da applicare.
Ringrazio in anticipo tutti coloro che sapranno aiutarmi.


author: mansportivo

text:
micione73 ha scritto:
> Ciao a tutti,
> in un file excel ho una formula di questo tipo in una serie di celle:
> ='C:XlsErlangFunctionsV2_4.xla'!xlsN_InvMultiERLANGB_ABR(S8:Z8,$S
> $1:$Z
> $1,$S$2:$Z$2)
> Nei campi da S8 a Z8 ho dei valori variabili mentre nei campi che
> vanno da S1 a Z1 e da S2 a Z2 ho dei valori statici (Tutti e tre i
> range hanno lunghezza 8).
> Ho la necessit� di far effettuare in Access questi calcoli ed ho
> importato:
> 1) Il modulo vba in oggetto che mi serve per effettuare il calcolo
> (XlsErlangFunctionsV2_4.xla'!xlsN_InvMultiERLANGB_ABR)
> 2) Una tabella con i valori da S8 a Z8 che importo da excel (sono dati
> che ciclicamente variano)
> 3) Due tabelle statiche per i rispettivi range S1-Z1 / S8-Z8
> Dopo una serie di tentativi vani mi sono arenato.
> Come faccio a far gestire ad access questo calcolo in matrice?
> Avrei bisogno di una cosa relativamente semplice da applicare.
> Ringrazio in anticipo tutti coloro che sapranno aiutarmi.
io sinceramente non ho capito bene
prova a spiegare con un esempio pratico cosa devi fare
ad intuito dovresti riuscire a scrivere una public function che fa il
calcolo e poi te lo restituisce dove meglio credi
ma forse con un esempio pratico � possibile aiutarti dipi�
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: metodo Open

author: k

text:
Perché quando tento di riaprire il recordset "rst" usando la stessa sintassi
viene provocato l'errore di run-time -
2147217904
 (80040e10) "nessun valore
specificato per alcuni parametri necessari"?
"IDF" è un'integer, mentre "CF" è una variant/string ed entrambe mostrano un
valore assegnato nel momento in cui il metodo Open viene applicato.
rst.Open "SELECT [PROPRIETARI].[IDFabbricato]  FROM PROPRIETARI
WHERE (PROPRIETARI.IDFabbricato) =" & IDF & ";", CurrentProject.Connection,
adOpenKeyset, adLockOptimistic
rst.Close
rst.Open "SELECT [ANAGRAFICA_CONTRIBUENTI].[CodiceFiscale]  FROM
ANAGRAFICA_CONTRIBUENTI
WHERE (ANAGRAFICA_CONTRIBUENTI.CodiceFiscale) =" & CF & ";",
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Grazie per l'aiuto.
OS


title: metodo Open

author: Antonio Biso

text:
k <
kro...@anturio.com
> wrote in message
Gp958.19438$761.6...@twister1.libero.it...
> Perché quando tento di riaprire il recordset "rst" usando la stessa
sintassi
> viene provocato l'errore di run-time -
2147217904
 (80040e10) "nessun valore
> specificato per alcuni parametri necessari"?
> "IDF" č un'integer, mentre "CF" č una variant/string ed entrambe mostrano
un
> valore assegnato nel momento in cui il metodo Open viene applicato.
>
> rst.Open "SELECT [PROPRIETARI].[IDFabbricato]  FROM PROPRIETARI
Scusa eh?
Ma il metodo open dell'oggetto recordset, almeno fino all'A97 non mi pare
che esista. Esiste il metodo openrecordset da applicare ad un oggetto
database, tipicamente currentdb che restituisce un recordset.
Comunque, supponendo che esista, se CF č una stringa, nel criterio devi
cricondarlo da doppi apici quindi
(ANAGRAFICA_CONTRIBUENTI.CodiceFiscale) =""" & CF & """;",
Antonio


title: metodo Open

author: Alessandro

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:FK958.19526$761.6...@twister1.libero.it...
> >[CUT]
> > rst.Open "SELECT [PROPRIETARI].[IDFabbricato]  FROM PROPRIETARI
>
> Scusa eh?
> Ma il metodo open dell'oggetto recordset, almeno fino all'A97 non mi pare
> che esista. Esiste il metodo openrecordset da applicare ad un oggetto
> database, tipicamente currentdb che restituisce un recordset.
> Comunque, supponendo che esista, se CF č una stringa, nel criterio devi
> cricondarlo da doppi apici quindi
> (ANAGRAFICA_CONTRIBUENTI.CodiceFiscale) =""" & CF & """;",
>
> Antonio
Forse si tratta di un "misto" con ADO-DAO=ADDAO, che io sappia č
Connection.Open,
quindi rimangono assolutamente valide le tue considerazioni.
Alessandro
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Totale progressivo in una form tabellare con campo calcolato e non in tabella

author: Bruno - S95

text:
Access 00/XP
Salve a tutti, ho scaricato un db dal sito di Alessandro Baraldi e che ha
come autore Roberto. Ringraziando tutti, vista la mia urgenza di risolvere,
chiedo se qualcuno sa indicarmi come poter avere un totale progressivo in
una maschera tabellare, avendo come valore di partenza un campo calcolato e
non un valore in un campo della tabella collegata ala form.
Per quanto ci capisco (molto poco) il modulo di Roberto funziona solo con i
campi in tabella.
Mille grazie per l'aiuto.
Bruno


author: MA

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:464dcead$0$10623$4faf...@reader2.news.tin.it...

Se ti serve che la tabella sia anche scrivibile devi usare una funzione
altrimenti una subquery come cmpo calcolato
in ogni caso, la funzione
Function fctCalcola(intId as integer)
dim db as dao.database
dim rs as dao.recordset
set db = currentdb
set rs = db.openrecordset("SELECT sum(tuocampo) as Pippo FROM Tuatabella
WHERE id <= " & intId)
fctCalcola = rs!Pippo
db.close: set db = nothing
end function
quindi nella tua maschera ci metti un controllo che ha come origine
fctcalcola(Iddelrecord)
l'ho scritta direttamente qui, quindi ci possono essere grandi errori


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f2kl7l$7qk$1...@tdi.cu.mi.it...

======================================================
Massimiliano, grazie per la celere risposta. Ho provato senza riuscire;
incomincio a pensar male di me stesso.
Per cortesia, posso inviarti il db per vederlo tu; ha solo una tabella e una
maschera. E' molto piccolo.
Grazie
Bruno


text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:464de271$0$36440$4faf...@reader5.news.tin.it...

Manda pure
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


author: ciroteo

text:
On 19 Mag, 19:52, "MA" <
mas...@massimilianoamendola.it
> wrote:
> "Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggionews:464de271$0$36440$4faf...@reader5.news.tin.it...

fregato!
:-)


text:
[CUT]
Risolto il totaLE GENERALE CON LA FUNZIONE dSUM() , RESTA IRRISOLTO IL
PROGRESSIVO.
cIAO ... bRUNO


title: qualche riga di troppo

author: Franco dellavalle

text:
ciao a tutti
ho creato questa function,
ma anche se funziona
vorrei migliorarla, perchè
c'è qualche riga di codice
di troppo...
Grazie per l'aiuto.

Public Function fctConf_Chiusura( _
  ByRef frm As Form) As Boolean

  Dim rsCheck As DAO.Recordset
  Dim CheckArray(1 To 3) As String, J As Byte
  Dim campo1 As Byte, campo2 As Byte, campo3 As Byte
  Dim X As String

  Set rsCheck = frm!SM_DettCarichi.Form.RecordsetClone

  If rsCheck.BOF Then 'se non ci sono record nel recordset
    MsgBox "Non ci sono record.", vbExclamation, "Attenzione!"
  Else
    rsCheck.FindFirst "nColli=0"
    campo1 = IIf(rsCheck.NoMatch, 1, 0)

    rsCheck.FindFirst "Quantità=0"
    campo2 = IIf(rsCheck.NoMatch, 1, 0)

    rsCheck.FindFirst "Prezzo=0"
    campo3 = IIf(rsCheck.NoMatch, 1, 0)

    If IsNull(frm!DataChiusura) Then
      frm!DataChiusura.SetFocus
    ElseIf IsNull(frm!TargaCamion) Then
      frm!TargaCamion.SetFocus
    Else
      CheckArray(3) = "nColli"
      CheckArray(2) = "Quantità"
      CheckArray(1) = "Prezzo"

    For J = 1 To 3
      rsCheck.FindFirst CheckArray(J) & " = 0"

      If Not rsCheck.NoMatch Then
        frm!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark
        frm!SM_DettCarichi.SetFocus
        frm!SM_DettCarichi.Form(CheckArray(J)).SetFocus

      End If

    Next
    End If

    X = IIf(IsNull(frm!DataChiusura), ", data Chiusura", "") _
      & IIf(IsNull(frm!TargaCamion), ", Targa", "") _
      & IIf(campo1 = 0, ", n°Colli", "") _
      & IIf(campo2 = 0, ", Quantità", "") _
      & IIf(campo3 = 0, ", Prezzo", "")

    If (X) <> "" Then
      MsgBox "Attenzione manca:" & Mid(X, 2) & ".", vbExclamation, "Attenzione!"
    Else
      fctConf_Chiusura = True

    End If

  End If

  Set rsCheck = Nothing

End Function


title: qualche riga di troppo

text:
Franco, mi spiace ma è più forte di me quando vedo certe cose...
Scrivi codice che di tecnico NON HA NULLA, sembra una accozzaglia di cose senza senso.
Che poi restituisca l'effetto richiesto è un dettaglio, quasi casuale,... ma è assolutamente INCOMPRENSIBILE per i comuni mortali.

Contiene errori concettuali enormi e tecnici altrettanto enormi...

Function Public che poi ha riferimenti FISSI a SubForm ed a Campi.... non ha senso sia Public.
Usi un ARRAY inutilmente sono 3 Elementi che nei FindFirst usi in modo esplicito poi invece, su condizione popoli un Array e fai la stessa cosa che hai fatto sopra nel RS della SubForm, ma senza array...

Secondo me ti manca la logica razionale, tu scrivi codice iserendolo in Function e pensi faccia già il 90% del lavoro... ma non è così...!

Queste osservazioni te le feci oltre un anno fa... ed il tuo metodo di strutturazione del codice NON E' MIGLIORATO DI NULLA.

Ora, critica a parte che un po soddisfano il mio sadismo, mi chiedo se hai provato a studiare qualche testo tecnico che spiega da zero come dichiarare variabili, oggetti, come usare i cicli, come condizionare le scelte, come usare gli Oggetti, i Recordset...?

Credimi che leggere il tuo codice è IMPOSSIBILE, presenta fattori di estrema ILLOGICITA' che per chi invece scrive codice in modo più strutturato è estremamente fuorviante...!

Si fa prima, come accade spesso, se spieghi cosa devi fare, e riscrivere il codice da ZERO... ma questo non è proprio quello che si chiede nel NG.

@Alex


title: qualche riga di troppo

text:

ciao Alex e grazie
Infatti se ero convinto di quello che avevo
fatto, non chiedevo aiuto.
Ora io vorrei realizzare una function tipo
questa sotto, che credo sia corretta.
In pratica su di un pulsante,
prima dell'apertura del report,
se ci sono controlli non compilati
o con valore "=0" il Msgbox
me li elenca e il cursore si posiziona
sul primo controllo da compilare.

Private Function fctConf_Carico( _
  ByRef frm As Form) As Boolean

  Dim rsCheck As DAO.Recordset
  Dim strFrm As String, vData As Variant
  Dim X As String

  Set rsCheck = frm!SM_DettCarichi.Form.RecordsetClone

  If rsCheck.BOF Then 'se non ci sono record nel recordset
    MsgBox "Non ci sono record.", vbExclamation, "Attenzione!"
  Else
    strFrm = frm.Name

    If strFrm = "M_GestioneOrdini" Then
      vData = frm!SM_CarichiFornitori.Form!DataCarico
      frm!SM_CarichiFornitori.SetFocus
      frm!SM_CarichiFornitori.Form!DataCarico.SetFocus
    Else
      vData = frm!DataCarico
      frm!DataCarico.SetFocus

    End If

    rsCheck.FindFirst "nBancali=0 And nColli=0"

    If Not rsCheck.NoMatch Then
      frm!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark
      frm!SM_DettCarichi.SetFocus
      frm!SM_DettCarichi.Form!nBancali.SetFocus

    End If

    X = IIf(IsNull(vData), ", data Carico", "") _
      & IIf(Not rsCheck.NoMatch, ", n°Bancali", "")

    If (X) <> "" Then
      MsgBox "Attenzione manca:" & Mid(X, 2) & ".", vbExclamation, "Attenzione!"
    Else
      fctConf_Carico = True
- nascondi testo citato -



title: qualche riga di troppo

text:
Prima di dare la spiegazione avevo solo il dubbio non andasse bene... ora ho la certezza... e tu dici che è corretta...?

Ma se vuoi verificare i controlli perché stai a controllare il recordsetclone...(poi veniamo alla Subform che spero sia in modalità continua)...
Nella form si cicla la collection Controls ma se hai 3 controlli verifica quelli in modo esplicito... su BeforeUpdate oppure su evento prima di stampare.
per la subform mi chiedo perché non verifichi i dati al momento dell'inserimento dove hai il singolo record invece che alla stampa che ti tocca colare tutto...?
In tutti i casi... se usi il recordsetclone poi devi spostare il bookmark altrimenti non va bene... e se i controlli non hanno lo stesso nome del campo... Non lo trovi più se non con un nuovo ciclo...
boh...

mi fermo.
@Alex


title: qualche riga di troppo

text:
Il giorno martedì 11 luglio 2017 22:50:58 UTC+2, @Alex ha scritto:

ancora Grazie

> Prima di dare la spiegazione avevo solo il dubbio non andasse bene... ora ho la certezza... e tu dici che è corretta...?
lasciando perdere il fatto che si puo' fare di meglio,
ma anche quest'ultima è errata?

>
> Ma se vuoi verificare i controlli perché stai a controllare il recordsetclone...(poi veniamo alla Subform che spero sia in modalità continua)...

si è in modalità continua

> Nella form si cicla la collection Controls ma se hai 3 controlli verifica quelli in modo esplicito... su BeforeUpdate oppure su evento prima di stampare.
> per la subform mi chiedo perché non verifichi i dati al momento dell'inserimento dove hai il singolo record invece che alla stampa che ti tocca colare tutto...?

come?

> In tutti i casi... se usi il recordsetclone poi devi spostare il bookmark altrimenti non va bene... e se i controlli non hanno lo stesso nome del campo... Non lo trovi più se non con un nuovo ciclo...
> boh...
>
> mi fermo.
> @Alex

grazie


title: combinazione di tasti

text:
qualcuno sa dirmi come si possono associare delle routine ad una
combinazione di tasti?
per esempio se avessi questa routine:
Public Function IntelliPaste()
   'questa routine incolla nella form attiva un controllo copiato 'con
IntelliCopy, con tutto il codice associato On Error Resume Next
   On Error Resume Next
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim c As Control
   Set c = CreateControl(
f.name
, ControlToIntelliCopy.ControlType)
   Dim p As Long
   For p = 0 To ControlToIntelliCopy.Properties.Count - 1
       c.Properties(p) = ControlToIntelliCopy.Properties(p)
   Next p
   Dim m As Module
   Set m = f.Module
   m.InsertLines m.CountOfLines + 1, CodeToIntelliCopy
End Function
e volessi associarla a Maiusc+Ctrl+V
Grazie


title: combinazione di tasti

author: Sergio MAZZA

text:
"lory22" <
la.a...@tiscali.it
> ha scritto nel messaggio
news:47ff39f1$0$29975$5fc...@news.tiscali.it...

Utilizzi la macro chiamata AutoKeys...
Ciao.
--
Sergio MAZZA


title: combinazione di tasti

author: Carlo Costarella

text:
"lory22" <
la.a...@tiscali.it
> ha scritto nel messaggio
news:47ff39f1$0$29975$5fc...@news.tiscali.it...

Va bene la risposta di Sergio...io vorrei sapere da dove hai preso le due
funzioni IntelliPaste() e IntelliCopy() e se puoi postare il loro codice e
come funzionano.
Ciao, Carlo


title: combinazione di tasti

author: Sam --

text:


forse l'op si riferisce a queste ( vecchio post del 2000... )
==============================================================
Option Compare Database
Option Explicit
Public ControlToIntelliCopy As Control
Public CodeToIntelliCopy As String
Public Function IntelliCopy()
   'questa routine copia un controllo da una form con tutto il codice
'associato, per incollare il tutto in un'altra form con IntelliPaste
   On Error GoTo annulla
   Set ControlToIntelliCopy = Screen.ActiveControl
   CodeToIntelliCopy = ""
   Dim n As String
   n = "Sub " & ControlToIntelliCopy.Name & "_"
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim m As Module
   Set m = f.Module
   Dim ir As Long, ic As Long, fr As Long, fc As Long, rigai As Long,
rigaf
As Long
   Do While m.Find(n, ir, ic, fr, fc)
       rigai = ir: fr = 0: fc = 0
       If m.Find("End Sub", ir, ic, fr, fc) Then rigaf = fr
       CodeToIntelliCopy = CodeToIntelliCopy & m.Lines(rigai,
Abs(rigaf -
rigai) + 1) & vbCrLf
       fr = 0: fc = 0
   Loop
   Exit Function
annulla:
   MsgBox "Si e' verificato un problema." & vbCrLf & "Codice di errore
" &
Err.Number, vbCritical + vbOKOnly, "IntelliCopy"
End Function
Public Function IntelliPaste()
   'questa routine incolla nella form attiva un controllo copiato 'con
IntelliCopy, con tutto il codice associato On Error Resume Next
   On Error Resume Next
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim c As Control
   Set c = CreateControl(f.Name, ControlToIntelliCopy.ControlType)
   Dim p As Long
   For p = 0 To ControlToIntelliCopy.Properties.Count - 1
       c.Properties(p) = ControlToIntelliCopy.Properties(p)
   Next p
   Dim m As Module
   Set m = f.Module
   m.InsertLines m.CountOfLines + 1, CodeToIntelliCopy
End Function
quindi una macro chiamata Autokeys
^C eseguicodice - nome funzione IntelliCopy()
^P eseguicodice - nome funzione IntelliPaste()
======================================================


title: combinazione di tasti

author: Giady

text:
"Sam --" <
noe...@hotmail.com
> ha scritto nel messaggio
news:0f83045n13nvfsqd4...@4ax.com...

Carlo, le ho prese dal sitocomune...  Forms 3.11 Copiare controlli da una
form all'altra.


title: combinazione di tasti

text:
"Sam --" <
noe...@hotmail.com
> ha scritto nel messaggio
news:0f83045n13nvfsqd4...@4ax.com...
cut
Grazie.
Ciao, Carlo


title: combinazione di tasti

text:
"Giady" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:4801e92e$0$17941$5fc...@news.tiscali.it...
>
cut
> Carlo, le ho prese dal sitocomune...  Forms 3.11 Copiare controlli da una
> form all'altra.
>
Perfetto.
Ciao, Carlo


title: protezione da modifiche dati

author: ^luigi^

text:
ho un db in cui tra i vari campi, ce n'� uno dove viene memorizzato in
automatico il nome dell'utente che inserisce i dati,
Devo permettere alcuni utenti a inserire i dati, ma a non poterli pi�
modificare dopo l'inserimento,  volevo cavarmela con la protezione della
condivisione in rete della cartella sul server dove � collocato il BE ma
non � stata una buona idea,
al limite potrei gestire le modifiche tramite inserimento di una password,
Mi consigliate una soluzione migliore e conveniente?
oh! naturalmente mi aiutate anche con il codice :-)) che io sono una
schiappa a livello di programmazione eh!
grazie!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: protezione da modifiche dati

text:

Ciao, quando mi è servito parzializzare gli accessi a livello di campi
ho fatto così:
- tabella anagrafica utenti con utente, password e classe di
abilitazione
- accesso con utente e password
- test delle varie condizioni al fine di abilitare o non a certe
funzionalità.
Nel mio caso specifico:
studio legale
le segretarie aprono le pratiche
gli avvocati accedono solo ai dati di competenza
le segretarie di classe superiore accedono ai dati finanziari
l' amministratore non ha alcun vincolo.
Quindi il perno è la classe di abilitazione.
Ciao
Alberto


title: protezione da modifiche dati

text:
almorel ha scritto:
> On 16 Giu, 10:01,
onofriolNOTS...@tin.it
 (^luigi^) wrote:
> > ho un db in cui tra i vari campi, ce n' uno dove viene memorizzato in
> > automatico il nome dell'utente che inserisce i dati,
> > Devo permettere alcuni utenti a inserire i dati, ma a non poterli pi
> > modificare dopo l'inserimento, �volevo cavarmela con la protezione della
> > condivisione in rete della cartella sul server dove collocato il BE ma
> > non stata una buona idea,
> > al limite potrei gestire le modifiche tramite inserimento di una password,
> > Mi consigliate una soluzione migliore e conveniente?
> > oh! naturalmente mi aiutate anche con il codice :-)) che io sono una
> > schiappa a livello di programmazione eh!
> > grazie!
> >
> > --
> >
> > questo articolo e` stato inviato via web dal servizio
gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
> Ciao, quando mi � servito parzializzare gli accessi a livello di campi
> ho fatto cos�:
> - tabella anagrafica utenti con utente, password e classe di
> abilitazione
> - accesso con utente e password
> - test delle varie condizioni al fine di abilitare o non a certe
> funzionalit�.
> Nel mio caso specifico:
> studio legale
> le segretarie aprono le pratiche
> gli avvocati accedono solo ai dati di competenza
> le segretarie di classe superiore accedono ai dati finanziari
> l' amministratore non ha alcun vincolo.
> Quindi il perno � la classe di abilitazione.
> Ciao
> Alberto
l'idea mi piace, ma metterlo in pratica per me � come andare sulla luna a
piedi!
up p� di codice come il post precedente :-))) non mi farebbe male eh!  :-))
grazie!
ci metto la speranza?
l.
--
questo articolo e` stato inviato via web dal servizio gratuito



title: protezione da modifiche dati

text:
On 16 Giu, 11:33,
onofriolNOTS...@tin.it
 (^luigi^) wrote:
> almorel ha scritto:
>
>
>
>
>
> > On 16 Giu, 10:01,
onofriolNOTS...@tin.it
 (^luigi^) wrote:
> > > ho un db in cui tra i vari campi, ce n' uno dove viene memorizzato in
> > > automatico il nome dell'utente che inserisce i dati,
> > > Devo permettere alcuni utenti a inserire i dati, ma a non poterli pi
> > > modificare dopo l'inserimento, volevo cavarmela con la protezione della
> > > condivisione in rete della cartella sul server dove collocato il BE ma
> > > non stata una buona idea,
> > > al limite potrei gestire le modifiche tramite inserimento di una password,
> > > Mi consigliate una soluzione migliore e conveniente?
> > > oh! naturalmente mi aiutate anche con il codice :-)) che io sono una
> > > schiappa a livello di programmazione eh!
> > > grazie!
>
> > > --
>
> > > questo articolo e` stato inviato via web dal servizio
>
> gratuitohttp://
www.newsland.it/newssegnalagli
 abusi ad
ab...@newsland.it
>
>
>
>
>
> > Ciao, quando mi servito parzializzare gli accessi a livello di campi
> > ho fatto cos :
> > - tabella anagrafica utenti con utente, password e classe di
> > abilitazione
> > - accesso con utente e password
> > - test delle varie condizioni al fine di abilitare o non a certe
> > funzionalit .
> > Nel mio caso specifico:
> > studio legale
> > le segretarie aprono le pratiche
> > gli avvocati accedono solo ai dati di competenza
> > le segretarie di classe superiore accedono ai dati finanziari
> > l' amministratore non ha alcun vincolo.
> > Quindi il perno la classe di abilitazione.
> > Ciao
> > Alberto
>
> l'idea mi piace, ma metterlo in pratica per me come andare sulla luna a
> piedi!
> up p di codice come il post precedente :-))) non mi farebbe male eh!  :-))
> grazie!
> ci metto la speranza?
> l.
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
Ciao, se parliamo di superare intoppi, ok ma se bisogna partire da
zero ....
visto che la speranza è l'ultima a morire .... ammazzala subito ;-))
Ciao, non me ne volere ....
Alberto


title: protezione da modifiche dati

text:
almorel ha scritto:


> visto che la speranza � l'ultima a morire .... ammazzala subito ;-))
> Ciao, non me ne volere ....
> Alberto
grazie lo stesso.
ti capisco eh!
l.
--
questo articolo e` stato inviato via web dal servizio gratuito



title: Record Type,  tabelle collegate ed eliminazione record

author: Stolcius Von Stolcenberg

text:
Salve a tutti,
vi sottopongo un piccolo problema che mi fa ululare nelle notti di
plenilunio(lo so, sto a esagera’ un pochino....)

Premesse
************

tblParent
------------------------------
pID PK(numero)
pCampoQualsiasi(testo)

tblChild
------------------------------
cID PK (contatore)
cParentID FK(numero)
cCampoQualsiasi(testo)

Relazione
------------------------------
Left Join  pID -> cParentID

******
Creo una query di  selezione basata sulle  tabelle sopraelencate
Popolo il pID +  i due  xCampoqualsiasi
Il record viene creato correttamente senza se e senza ma.

Problema
----------------------
Veniamo al dunque
Elimino uno  o più record della query(ad sanctam manellam: bottone
destro del mouse sulla tupla)

Risultato: vengono  eliminati  solo i  corrispondenti  record di
tbChild

Per far si che venga eliminata  l’intera tupla Parent+Child  debbo
impostare   Il Record Type della query su “Dynaset(aggiornamenti
inconsistenti)”

Tutto ciò indipendentemente dall’impostazione dell’integrità
referenziale.

Per soprammercato, se riseleziono una tupla  semi-
eliminata(perdonatemi i termini poco appropriati) e provo a
rieliminarla, mi viene mostrato il messaggio di belle speranze:  “stai
per cancellare 1 record...bla bla ”; ma anche dopo l'implacabile "ok",
nisba: il record di tblParent  permane più arzillo è più bello che
pria!

Conclusione
------------------
Qualche anima pia mi potrebbe sviscerare le ragioni di un siffatto
comportamento.?
A me i conti non tornano.

Tia per l'aiuto,
Stolcius AKA Michele Collatina


text:
Errata corrige: mi sono reso conto che l'oggetto del post è un po'
sviante; a rigore non si tratta di tabelle collegate, ma di join tra
tabelle.

Chiedo venia,

Stolcius


title: Impossibile caricare file SETUP.LST

text:
Ciao ragazzi,
sto cercando di prendere la mano con ode 2000.
Il problema è che quando clicco sul file SETUP.EXE mi dice che non può
caricare il file SETUP.LST.
Avete idea di quello che sto combinando?
Alessandro


title: Come si fa a cambiare Work group?

author: Gonzo

text:
Ho creato un database protetto, ora, ogni volta che voglio aprire un file
con access mi chiede la password dell'account, che però non riconosce.
Ho già provato a creare un collegamento che mi apra sia il file access che
quello che contiene i dati degli account...
cosa devo fare?
Grazie
--
Posted from [212.210.223.158] by way of
oe40.pav1.hotmail.com
 [64.4.30.97]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Come si fa a cambiare Work group?

author: Sib dall'ufficio

text:
""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel messaggio
news:OE40VhEUsebms...@hotmail.com...
> Ho creato un database protetto, ora, ogni volta che voglio aprire un file
> con access mi chiede la password dell'account, che però non riconosce.
Cosa non riconosce? La password o l'account?
> Ho già provato a creare un collegamento che mi apra sia il file access che
> quello che contiene i dati degli account...
In che senso hai provato?
Hai scritto qualcosa come:
TuoDB.mdb /wrkgrp C:/TuoPercorso/Tuomdw.mdw?
Sib


title: Come si fa a cambiare Work group?

text:
>""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel
messaggio
>
OE40VhEUsebms...@hotmail.com
">news:OE40VhEUsebms...@hotmail.com...
>>
Ho creato un database protetto, ora, ogni volta che voglio aprire un
file
>> con access mi chiede la password dell'account, che però non
riconosce.
>Cosa non riconosce? La password o
l'account?
>> Ho già provato a creare un collegamento che mi apra
sia il file access che
>> quello che contiene i dati degli
account...
>In che senso hai provato?
>Hai scritto qualcosa
come:
>TuoDB.mdb /wrkgrp
C:/TuoPercorso/Tuomdw.mdw?
>Sib

Non so cosa non mi riconosca, Mi visualizza il messaggio di errore e non mi
fa proseguire.

Si, ho gia provato a fare quel tipo di collegamento.

Inoltre non riesco neanche a creare un Database nuovo, mi da lo stesso
errore.


title: Come si fa a cambiare Work group?

author: Sib dal portatile

text:
-------------------------------------------------------
""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel messaggio
>""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel messaggio
>> Ho creato un database protetto, ora, ogni volta che voglio aprire un file
>> con access mi chiede la password dell'account, che però non riconosce.
>Cosa non riconosce? La password o l'account?
>> Ho già provato a creare un collegamento che mi apra sia il file access
che
>> quello che contiene i dati degli account...
>In che senso hai provato?
>Hai scritto qualcosa come:
>TuoDB.mdb /wrkgrp C:/TuoPercorso/Tuomdw.mdw?
Non so cosa non mi riconosca, Mi visualizza il messaggio di errore e non mi
fa proseguire.
--------------------------------------
Suppongo che il messaggio di errore cui ti riferisci sia "Nome utente o
password non validi".
In questo caso sei assolutamente certo di non avere impostato la password?
hai creato degli utenti?
stai usando lo stesso file mdw con cui hai creato il db?
quando hai creato il db con quale utente eri connesso?
hai altri file mdw sul tuo pc?
c'e' la possibilita' che qualcuno ti abbia modificato la password o
eliminato l'utente?
hai provato a cambiare file mdw predefinito tramite l'apposita utilita'?
---------------------------
Inoltre non riesco neanche a creare un Database nuovo, mi da lo stesso
errore.
----------------------------
Ovvio. Il fatto che non puoi entrare non dipende dal tuo file mdb (come puoi
intuire dalle domande che ti ho fatto).
Sib


title: Come si fa a cambiare Work group?

text:
Rispondo in ordine:
>>Suppongo che il messaggio di errore cui ti riferisci sia "Nome utente o
>>password non validi".
Il messaggio di errore è proprio quello.
>>In questo caso sei assolutamente certo di non avere impostato la password?
>>hai creato degli utenti?
Gli utenti e la password funzionano perfettamente quando utilizzo il data
base chiamato "Pippo" (esempio), che è quello che ho creato io e protetto
tramite account.
>>stai usando lo stesso file mdw con cui hai creato il db?
Ecco, il problema è che non so se sto usando lo stesso file mdw. Access mi
chiede la password, ma non la riconosce (quando cerco di creare un nuovo
file).
>>quando hai creato il db con quale utente eri connesso?
Ho creato il db e poi ho creato gli account, che, ripeto, funzionano
perfettamente con "Pippo".
>>hai altri file mdw sul tuo pc?
No, non riesco a crearli.
>>c'e' la possibilità che qualcuno ti abbia modificato la password o
>>eliminato l'utente?
No, io sono l'amministratore. E comunque Pippo funziona.
>>hai provato a cambiare file mdw predefinito tramite l'apposita utilità?
BINGO! E' proprio quello che cercavo, qual è "l'apposita utilità?
Rispondimi presto, ti sarò eternamente grato!!!
Grazie.
Gonzo. <--- è un diminutivo, non un aggettivo.
--
Posted from [212.210.223.158] by way of
oe70.pav1.hotmail.com
 [64.4.30.205]



title: Come si fa a cambiare Work group?

text:
""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel messaggio
CUT
> >>In questo caso sei assolutamente certo di non avere impostato la
password?
> >>hai creato degli utenti?
>
> Gli utenti e la password funzionano perfettamente quando utilizzo il data
> base chiamato "Pippo" (esempio), che è quello che ho creato io e protetto
> tramite account.
Non capisco. Se il tuo db funziona non vedo come sia possibile che non ti
faccia creare un altro db.
Ma Access non ti si apre completamente?
Hai provato ad apreire il tuo db e quindi a chiuderlo senza chiudere Access
e a provare (a questo punto) a creare un nuovo db?
> >>hai provato a cambiare file mdw predefinito tramite l'apposita utilità?
>
> BINGO! E' proprio quello che cercavo, qual è "l'apposita utilità?
> Rispondimi presto, ti sarò eternamente grato!!!
Wrkgadm.exe
Apri questo programmino e seleziona il file mdw che vuoi (quello predefinito
e' System.mdw)
Sib


title: Come si fa a cambiare Work group?

text:
Grazie mille, col programmino che mi hai segnalato ho creato un nuovo WG e
ci sono entrato, ora il mio vecchio DB funziona e posso creare nuovi DB.
Grazie mille per le informazioni e per la pazienza che hai saputo dimostrare
in questi giorni.
Se in qualche modo posso esserti utile non esitare a cercarmi.
Grazie ancora.
--
Posted from [212.210.223.158] by way of
oe53.pav1.hotmail.com
 [64.4.30.46]



title: Come si fa a cambiare Work group?

text:
""Gonzo"" <
ultra...@hotmail.com
> ha scritto nel messaggio
news:OE53bexdn6PxS...@hotmail.com...
> Grazie mille
CUT
prego, ciao
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: rendere replicabile una tabella creata da query da codice vba

author: giannirusso

text:
Buongiorno a tutti, ho la necessità di rendere replicabile una tabella
dopo che è stata creata da una query.

Ho access 2003 ed in rete ho trovato il seguente codice:

Function SetReplica(nomeTabella As String)
     Dim x As New JRO.Replica

     x.ActiveConnection = CurrentProject.Connection

     x.SetObjectReplicability nomeTabella, "Tables", True
End Function

Viene anche specificato che occorre includere nei Riferimenti Microsoft
Jet and Replication Object Library ma non trovo questa voce
"Riferimenti" nel menu strumenti (forse non c'è in A2003?).

Inoltre non so dove mettere questa funzione e vi chiedo, cortesemente,
un aiuto per rendere replicabile la tabella TblNew dopo che viene creata
dal comando di seguito riportato.

DoCmd.OpenQuery "QueryCreazioneTblNew"

Grazie
Gianani


author: Karl Donaubauer

text:
Salve,

giannirusso:
> Buongiorno a tutti, ho la necessità di rendere replicabile una tabella
> dopo che è stata creata da una query.
>
> Ho access 2003 ed in rete ho trovato il seguente codice:
>
> Function SetReplica(nomeTabella As String)
>     Dim x As New JRO.Replica
>
>     x.ActiveConnection = CurrentProject.Connection
>
>     x.SetObjectReplicability nomeTabella, "Tables", True
> End Function

Vedi anche
https://msdn.microsoft.com/en-us/library/bb237218(v=office.12).aspx
 .

> Viene anche specificato che occorre includere nei Riferimenti Microsoft
> Jet and Replication Object Library ma non trovo questa voce
> "Riferimenti" nel menu strumenti (forse non c'è in A2003?).

Apri l'editore VBA e scegli la voce del menu Strumenti - Riferimenti.

> Inoltre non so dove mettere questa funzione e vi chiedo, cortesemente,
> un aiuto per rendere replicabile la tabella TblNew dopo che viene creata
> dal comando di seguito riportato.
>
> DoCmd.OpenQuery "QueryCreazioneTblNew"

Dopo che crei la tabella prova di chiamare la funzione (che senza valore
da ritornare meglio sarebbe una procedura sub):

SetReplica "MiaBellaTabella"

In caso che non lo sai: la MS con la versione 2013 di Access ha
eliminato la replica.

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

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


text:
 >Il 03/04/2017 16:30, Karl Donaubauer ha scritto:
[cut]
> Dopo che crei la tabella prova di chiamare la funzione (che senza valore
> da ritornare meglio sarebbe una procedura sub):
>
> SetReplica "MiaBellaTabella"

Funziona perfettamente!

> In caso che non lo sai: la MS con la versione 2013 di Access ha
> eliminato la replica.

Non lo sapevo affatto. Adesso do un'occhiata per capire come gestisce
gli accessi da più postazioni.

Grazie
Gianni


title: controllo colonne casella combinata da codice

author: Neo

text:
apro una determinata tabella attraverso DAO
nella tabella ho un campo che ho inserito come casella combinata.
questo tipo di inserimento (ovviamente da struttura tabella)
è solo per velocizzare la creazione delle maschere?
posso con DAO accedere alle varie colonne di questo campo?
spero di essermi spiegato.
grazie


author: Roberto da casa

text:
"Neo" <senz...@chiedetesul.NG> ha scritto nel messaggio
news:Cfwib.31575$vO5.1...@twister1.libero.it...
> apro una determinata tabella attraverso DAO
> nella tabella ho un campo che ho inserito come casella combinata.
>
> questo tipo di inserimento (ovviamente da struttura tabella)
> č solo per velocizzare la creazione delle maschere?
>
> posso con DAO accedere alle varie colonne di questo campo?
>
> spero di essermi spiegato.
>
> grazie
Il campo non ha colonne, che invece ci sono in una maschera nella casella
combinata associata a tale campo; il campo ritengo sia di tipo numerico e
contiene il codice che ti permette di ricercare la descrizione che
visualizzi in un altra tabella.
Per ottenere tale descrizione nella routine VBA nella quale hai aperto un
recorset sulla tua tabella, devi usare la funzione DLookup (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Internicserver

text:
Redhat, Linux, SUSE, Debian, FreeBSD, Windows
http://www.italiaserver.net


title: MI5 Persecution: Surveillance methods 5/8/95 (5435)

text:
From: Pamela Willoughby <
pj...@willouby.demon.co.uk
>
Newsgroups: uk.misc
Date: Sat, 05 Aug 1995 18:08:32 GMT
Organization: Myorganisation
Lines: 15
Message-ID: <
142297...@willouby.demon.co.uk
>
>Hmmm, strange eh.
>I mentioned all this goings on to my boyfriend, who works for the
>British intelligence service, and he assures me this sort of thing
>never goes on.. not ever...honest.
>Though he said the name was familiar...
it does go on, although it's an open question who does it.
Some time ago there were press reports of an Army intelligence person
called Jones who claimed Diana and Hewitt had been photographed in a
compromising position... he said he'd been doing this as part of an
Army unit which had previously operated in Northern Ireland.
Then Hewitt said he'd been told the same thing by some Army people,
and that they were threatening to release the tapes unless they
curtailed their liaison... as per usual everyone denied everything,
painted Jones as the "Jones twins" - not very original in how
they deal with their perceived enemies, are they?
You have to wonder how they manage to achieve this sort of
surveillance though. Audio you can understand, it's possible to put
a microphone through the wall, and apparently there exist devices
which will retrieve sound from a laser beam bounced off a window -
sounds sci-fi, but there's a well known surveillance electronics
company in London which sells these things.
But how would you get video out of a room, unless you had actual
physical access in order to plant a device for pickup? We're not
talking about looking in from afar, but an actual device within
the room. You could either drill through the wall and shove a
pickup through; or you could supply a trojan device with a hidden
pickup inside; but most likely, you would have to physically break
into your target room to plant a camera. That's not an infeasible
option; all it means is having your target(s) watched to make sure
they're not in the vicinity, then you negotiate any locks on the
property and find a suitable receptacle for your device.
The next question is how they defeat the usual methods of counter-
surveillance. We had private detectives carry out a "sweep" of
every room and the telephone line. They found nothing. That
indicates at least four possibilities that I can think of;
(this is all guesswork BTW, and probably fanciful guesswork
at that!)
1) no bugs (pull the other one)
2) radio-transmitting devices which can be controlled from an
   external source, ie you can instruct them to switch off
   when you detect a counter-surveillance sweep taking place
3) hard-wired devices; probe microphones or whatever they're
   called, things you poke through the wall
4) passive surveillance devices; so you bounce laser or
   radio waves off a suitable reflecting surface (again,
   sounds far-fetched but such things may apparently exist).
5) there is a fifth possibility, that the PI's didn't detect
   an actual transmitting device; there are technologies
   specifically designed to avoid detection, eg frequency hopping
   and suchlike. But how much sophistication could you build in
   to a device which would have to be small enough to be
   physically concealable?
I guess the real question is to find out who is ultimately
behind these "goings on". And if the "great and good" (or
the better known, at any rate) can't protect themselves,
what hope is there for the rest of us?
5435
--
Posted via a free Usenet account from
http://www.teranews.com


title: Modifica report

author: Fausto T

text:
Salve,
una domanda semplice semplice.
Sto gestendo un magazzino ricambi con un database di access. Quando un
cliente mi ordina del materiale, e qualcosa è momentaneamente mancante in
magazzino, consegno al cliente un foglio con la sua merce in residuo
indicandogli la data approssimativa di arrivo (prendendola dalla tabella
gestione ordini a fornitore), tutto questo utilizzando un report che ho
creato con i dati di una query.
Capita però che un cliente mi ordini un ricambio che non ho e che non ho mai
ordinato, pertanto la data approssimativa di arrivo rimane in bianco.
Come posso cambiare il report per fare in modo che se il campo è null, lo
modifichi con un dato di mio piacimento es: date()+ 40 gg (il tempo previsto
di arrivo se lo ordino al fornitore oggi).
Grazie anticipato del vostro aiuto.
Fausto


title: Modifica report

author: RoDAgo

text:
Fausto T scrisse...

=nz([nomecontrollo];Date()+40)
Ciao RoDAgo


title: Apertura Form filtrata

author: lolince

text:
Salve a tutti , ho una maschera che accoda i dati in una tabella con
un campo "prenota" in comune, ora da un comando su click , questo mi
apre un'altra maschera visualizzandomi i dati filtrando proprio
"me.prenota" in comune, ho arrezato il db , ora questo comando non
funziona piu apre la maschera2 totalmente vuota , ho provato con tutte
le soluzioni ricercate qui ma nulla , qualche idea?
posto alcune prove da me fatte :
Dim stDocName As String
    Dim stLinkCriteria As String
   stDocName = "maschera2"
  stLinkCriteria = "[prenota]=" & Me![prenota]
  DoCmd.OpenForm stDocName, , , stLinkCriteria
oppure
docmd.openform "maschera2",,, " prenota= " & me.prenota
ect ect
ma nulla , qualche idea?
Grazie in anticipo


title: Apertura Form filtrata

text:

Mi rispondo da solo , non so come mai ma nelle proprieta della
maschera2 si e impostato immisione dati si e quindi partiva sempre con
un nuovo record ....misteri


title: cambiare formato valuta da 12,26 € spostando il simbolo a sinistra € 12,26

author: mario rossi

text:
buongiorno a tutti,

qualcuno sa come posso formattare un campo valuta spostando il simbolo a sinistra?

il valore 12,26 € dovrebbe essere scritto  € 12,26

grazie.


author: BFS

text:

a livello di windows è impostato correttamente?
il formato valuta "dovrebbe" adeguarsi a quanto impostato nel pannello
di controllo

BFS


text:

Ok grazie ho visto ora che windows permette di scegliere anche nel formato che serve a me nel pannello di controllo\area area geografica\impostazioni aggiuntive\valuta

è l'unico modo? pernsavo di poterlo fare in access senza dover toccare nulla in windows.


title: AIUTO

text:
E' da poco che utilizzo Access e mi trovo per l'ennesima in difficoltà.
Qualcuno saprebbe dirmi come fare a trasferire un file creato con access
2000 pro da un computer ad un altro?
Ho tentato in questa maniera ma senza riuscirci:
1- ho masterizzato il file con le varie cartelle collegate, ricreando lo
stesso percorso originale e partendo da C:/ecc/ecc/file.mdb
2- ho copiato il tutto sul secondo computer sempre ricreando lo stesso
percorso.
Risultato all'apertura del file copiato - Mi avverte che il data base è di
sola lettura
Conseguenza - non mi permette e di aggiungere nessun record
Cosa faccio di sbagliato?
Ciao a tutti e Grazie anticipatamente a chi mi volesse rispondermi.


title: AIUTO

author: MA

text:
Il 10 Set 2002, 19:11, "
tin.it
" <
gtri...@tin.it
> ha scritto:
> 1- ho masterizzato il file con le varie cartelle collegate, ricreando lo
> stesso percorso originale e partendo da C:/ecc/ecc/file.mdb
> 2- ho copiato il tutto sul secondo computer sempre ricreando lo stesso
> percorso.
> Risultato all'apertura del file copiato - Mi avverte che il data base è di
> sola lettura
> Conseguenza - non mi permette e di aggiungere nessun record
> Cosa faccio di sbagliato?
ciao, prima cosa la prossima volta usa un soggetto + significativo,
altrimenti avrai sempre (e sottolineo sempre) la tempesta che ora vedi si
scatenerà.
Poi il file è di sola lettura perchè viene da un cd: no dipende dal db.
Vai nelle proprietà del file (tasto dx) e togli la spunta dal flag "sola
lettura".
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: AIUTO

text:
"MA" <
kk...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...

Scusate a tutti per l'oggetto striminzito.
E' la prima volta in assoluto che scrivo ad una news.
Massimiliano grazie del tuo aiuto, stavo impazzendo da giorni e per una cosa
davvero banale.
E grazie a Voi tutti che tenete in vita questi canali così importanti per
tutti.
Ciao Massimiliano da Gabriele


title: msarn200.exe ?

author: Frank

text:
Ciao a tutto il NG,
volevo chiedervi cos'è e cosa serve l'eseguibile
msarn200.exe?
(Si trova spesso questa applicazione associata ad un db di access)
E' un programma free?
Grazie
--
Posted from
ve1-886.dialup.tiscalinet.it
 [62.10.54.118]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: msarn200.exe ?

author: Roberto - Syd

text:
"Frank" <
eff...@tiscalinet.it
> ha scritto nel messaggio
news:f5ff29466370a307897...@mygate.mailgate.org...

E' il run-time di Access 2.0
Ciao Roberto - Syd


title: Emulazione del comando DELTREE del DOS sotto ACCESS

author: Dario

text:
Salve a tutti,
sto realizzando un'applicazione e ho la necessità, all'apertura della
stessa, di eliminare una intera directory (e relative sottodirectory e
file).
La cosa si potrebbe fare con un BATCH DOS lanciato dalla shell di ACCESS che
attiva il comando DELTREE del DOS, ma la soluzione non è molto 'pulita' e,
quindi, preferirei non utilizzarla.
Sapreste indicarmi una soluzione alternativa realizzata tramite codice
ACCESS ?
GRAZIE A TUTTI
Dario Girelli
Soluzione Srl


author: Dario Girelli

text:
Ho dimenticato,
per rispondermi per posta, togliere le XXX dall'indirizzo di posta.
d.gire...@soluzione-vda.com
GRAZIE !


author: Roberto dal portatile

text:
"Dario" <
d.gire...@soluzione-vda.com
> ha scritto nel messaggio
news:3bfa2e77@master...

Prova a cercare sull'help le istruzioni Kill e RmDir; penso che facciano al
caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: MegaMax

text:
"Dario" <
d.gire...@soluzione-vda.com
> ha scritto nel messaggio
news:3bfa2e77@master...
> Salve a tutti,
>
> sto realizzando un'applicazione e ho la necessità, all'apertura della
> stessa, di eliminare una intera directory (e relative sottodirectory e
> file).
>
> La cosa si potrebbe fare con un BATCH DOS lanciato dalla shell di ACCESS
che
> attiva il comando DELTREE del DOS, ma la soluzione non è molto 'pulita' e,
> quindi, preferirei non utilizzarla.
Nota in proposito....
SU WinXP NON ESISTE IL DELTREE!!!!!   8-o
Ho provato a casa di un amico... non va, non esiste l'eseguibile, ed anche
diverse altre cose in emulazione dos fungono in modo molto diverso.
Okkio ad XP.
Max


author: Pietro Satta

text:
"Dario" <
d.gire...@soluzione-vda.com
> ha scritto nel messaggio
news:3bfa2e77@master...

Se la cosa può esserti di conforto volevo solo dirti
che in un interessantissimo libro di Mike Davis che sto leggendo in questi
gg. (Costruire applicazioni con access 97 e 2000) l'autore, piuttosto
navigato , nel descrivere un esempio proprio sull'uso della shell di access
per lanciare un file batch di dos,  sostiene  che una delle più osservate
regole della programmazione, anche se non scritta, è quella di non stare a
perdere tempo a inventare l'ombrello ogni volta che piove, o ad inventare la
ruota ogni volta che occorre qualcosa che giri ...
Pertanto, visto che il DOS in questo caso funziona alla perfezione, perché
farsi scrupolo di usarlo?
In ogni caso potresti usare la costante vbHide come argomento di shell, per
fare tutto in modo "pulito", appunto ...
Ciao
Pietro


text:
"MegaMax" <
a...@a.com
> ha scritto nel messaggio
news:d_4L7.5559$4M2.1...@news2.tin.it...

Grazie Max !!


title: [GRAZIE]

author: GeKODE

text:
Grazie a tutti coloro che mi hanno aiutato.
Ho creato un piccolo traduttore di parole da PAROLA DI USO COMUNE a LEET
SPEAK ... se qualcuno fosse interessato ... ne girerň volentieri una copia a
partire da lunedě ... ora sono in procinto di chiusura giornata!!!
Grazie Brown, Carlo C. e Alberto C.
--
Ciao
GeKODE


title: [GRAZIE]

text:
...scusate ... volevo legarlo al tread scomporre parola e popolare.... e
invece ho aperto una nuova discussione.
Non era mia intenzione, scusatemi.
--
GeKODE


title: [GRAZIE]

author: Sergio MAZZA

text:
"GeKODE" <
macchia...@gmail.com
> ha scritto nel messaggio news:dioji9$51u$1...@domitilla.aioe.org...

Potresti inviarlo al sito comune (
www.sitocomune.com
)...
Ciao.
--
Sergio MAZZA


title: inviare dati di una query in formato excel

author: ^luigi^

text:
su una maschera, vorrei inserire un pulsante che mi prende i dati di una
query, li trasforma in formato excel e me li mandi ad un indirizzo di
posta elettronica, � possibile senza usare macro? o, se si deve usare per
forza una macro, un suggerimento di come fare?
grazie
Ancora meglio sarebbe se si potrebbero inviare i dati di 3 query
differenti con fonte dei dati 3 tabelle diverse.
grazie
l.

--

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


title: Sto cercando un tutorial di access avanzato gratuito in rete...

author: Max Ghetti

text:
Sono un autodidatta. Sono arrivato a una conoscenza base di Access, vorrei
approfondire il discorso iniziando ad usare il VB (sempre per Access). Sto
cercando in rete un manuale "avanzato " di Access 2000 ma trovo solo dei
manuali "base". Mi potete aiutare con qualche link ?
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Sib dal portatile

text:
"Max Ghetti" <
magh...@tin.it
> ha scritto nel messaggio
> Sono un autodidatta. Sono arrivato a una conoscenza base di Access, vorrei
> approfondire il discorso iniziando ad usare il VB (sempre per Access). Sto
> cercando in rete un manuale "avanzato " di Access 2000 ma trovo solo dei
> manuali "base". Mi potete aiutare con qualche link ?
Nienete e' gratis a questo mondo, se vuoi un manuale avanzato devi
comprarlo.
Se vuoi consigli vedi sul sito comune.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bin laden saddam attentato medio oriente


author: Paolo P

text:
"Max Ghetti" <
magh...@tin.it
> ha scritto nel messaggio
news:95a6b39e9986693837f...@mygate.mailgate.org...

Partecipando al NG ne impari 30 al giorno, poi vedi su
www.sitocomune.com
Ciao, Paolo


author: Emyr

text:
On Sun, 06 Jan 2002 19:59:18 GMT, "Sib dal portatile"
<
sibN...@iol.it
> wrote:
CUT
>
>Nienete e' gratis a questo mondo, se vuoi un manuale avanzato devi
>comprarlo.
>Se vuoi consigli vedi sul sito comune.
>
>Sib
e gli aiuti che diamo su questo NG?
e Linux?
Saluti.
Emanuele.


author: marceme

text:
"Max Ghetti" <
magh...@tin.it
> ha scritto nel messaggio
news:95a6b39e9986693837f...@mygate.mailgate.org...
> Sono un autodidatta. Sono arrivato a una conoscenza base di Access, vorrei
> approfondire il discorso iniziando ad usare il VB (sempre per Access). Sto
> cercando in rete un manuale "avanzato " di Access 2000 ma trovo solo dei
> manuali "base". Mi potete aiutare con qualche link ?
>
Mai trovato niente di particolare altre acorsi base
... e ho cercato parecchio


title: dati contenuti in una subform

author: Akery

text:
buonasera,

quando tento di accedere a un campo di una subform ottengo l'errore
2465, impossibile trovare il campo...

la riga incriminata è scritta al seguente modo

Forms![ss_elenco]![subQueryLaveq]![cdl]

ss_elenco è la form principale e subquerylaveq è la subform, ovviamente
cdl è il campo di cui vorrei utilizzare il valore

qual è l'errore che sto commettendo?

grazie
Akery

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


title: dati contenuti in una subform

author: BFS

text:
Il 22/06/2020 18:54, Akery ha scritto:
> buonasera,
>
> quando tento di accedere a un campo di una subform ottengo l'errore
> 2465, impossibile trovare il campo...
>
> la riga incriminata è scritta al seguente modo
>
> Forms![ss_elenco]![subQueryLaveq]![cdl]
>
> ss_elenco è la form principale e subquerylaveq è la subform, ovviamente
> cdl è il campo di cui vorrei utilizzare il valore
>
> qual è l'errore che sto commettendo?
>
> grazie
> Akery
>
prova con

forms_ss_elenco.subQueryLaved.form.cdl

ciao


title: dati contenuti in una subform

text:

ancora errore 2465

grazie



title: dati contenuti in una subform

text:
Il giorno martedì 23 giugno 2020 08:48:56 UTC+2, Akery ha scritto:
> Il 23/06/2020 07:31, BFS ha scritto:
> > Il 22/06/2020 18:54, Akery ha scritto:
> >> buonasera,
> >>
> >> quando tento di accedere a un campo di una subform ottengo l'errore
> >> 2465, impossibile trovare il campo...
> >>
> >> la riga incriminata è scritta al seguente modo
> >>
> >> Forms![ss_elenco]![subQueryLaveq]![cdl]
> >>
> >> ss_elenco è la form principale e subquerylaveq è la subform,
> >> ovviamente cdl è il campo di cui vorrei utilizzare il valore
> >>
> >> qual è l'errore che sto commettendo?
> >>
> >> grazie
> >> Akery
> >>
> > prova con
> >
> > forms_ss_elenco.subQueryLaved.form.cdl
> >
> > ciao
>
> ancora errore 2465
>

Le 2 Sintassi si equivalgono, ovvero sono uguali dal puntoi di vista funzionale se funzionasse...

Ipotizzo ci sia un errore nei Nomi dei controlli... ma ti suggerisco questa verifica:
1° La form da cui il codice deve accedere al controllo in SubForm è quella in cui gira il codice stesso...?
In questo caso usiamo l'abbreviazione [Me] ed appena premi il [.] dopo Me.. appariranno gli Oggetti che la Form contiene, digita subQueryLaveq, se la trovi prosegui... con la sintassi di BSF che viene interpretata dall'intellisense, mentra la TUA, che è altrettanto corretta a parità di correttezza nomi, non verrebbe risolta dall'intellisense.

Fai attenzione che un conto è il Nome della SubForm, altro è il Nome del Container della SubForm, uno è un oggetto SubForm(il container) mentre la SubForm di fatto è un Oggetto Form, quindi la differenza delle 2 sintassi si esplicita proprio in questi 2 concetti...

Da li poi vedi...
@Alex


title: dati contenuti in una subform

text:

risolto col tuo suggerimento, sbagliavo nome

grazie 1000



title: Re: Riferimento ad un report..

author: Alessandro Baraldi

text:
"AA" <
NOSPAMa...@sistemics.it
> wrote in message
news:ckg6d5$oa6$
1...@balena.cs.interbusiness.it
> Salve..Con le form, quando devo collegarmi con un text, faccio "Forms![Nome
> Maschera]![Nome Text]"..Ho la necessità di farlo con un report,è
> possibile?Con quale sintassi?
> Grazie 1000, AA
Reports!NomeReport!NomeControllo
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Slezionare il record più recente

author: Beppe

text:
Salve non riesco a far funzionare a dovere un paio di query
in pratica la prima mi deve restituire il record più recente rispetto ad una
data che viene immessa da input.
mentre la seconda query mi dovrebbe restituire tutti i record ad esclusione
di quello più recente.
esempio
se nella tabelle mi trovo:
01 Pippo 09/11/2005
02 Ciccio 05/03/2005
03 Rossi 04/02/2005
04 Verdi 01/01/2005
se l'utente effettua una ricerca immettendo la data:  08/11/2005
il record più recente che dovrà essere restitutito è:
Ciccio 05/03/2005
mentre tutti gli altri ad esclusione del più recente sarebbero:
Rossi 04/02/2005
Verdi 01/01/2005
per quelli meno recenti ho impostato il seguente criterio:
<=[Forms]![Mask_RicercaStampa1]![Data] And <>DMax("[Data
uno]";"Tab_DatiGenerali";"Codice = '" & [Codice] & "'")
mentre per quelli recenti ho inserito:
<=[Forms]![Mask_RicercaStampa1]![Data] And DMax("[Data
uno]";"Tab_DatiGenerali";"Codice = '" & [Codice] & "'")
la query non restituisce nessun errore tuttavia i risultati non sono quelli
attesi!!


title: Slezionare il record più recente

author: Roberto da casa

text:
"Beppe" <
Be...@bb.it
> ha scritto nel messaggio
news:4372166e$0$27608$4faf...@reader1.news.tin.it...

Se la tabella che contiene i dati si chiama Tab_DatiGenerali ed ha la
seguente struttura:
Id                Contatore e chiave prmaria
Nominativo  Testo
DataUno       Data/ora
Se la maschera in cui digiti il parametro si chiama Mask_RicercaStampa1 e la
casella di testo non associata in cui digiti la data parametro si chiama
Data.
La query che seleziona il record con la data più alta, ma minore alla data
digitata in Data ha il seguente codice SQL:
SELECT Tab_DatiGenerali.*
FROM Tab_DatiGenerali
WHERE (((Tab_DatiGenerali.DataUno)= DMax("DataUno", "Tab_DatiGenerali",
"DataUno <=#" & Format([Forms]![Mask_RicercaStampa1]![Data], "mm/dd/yyyy") &
"#")));
Mentre quella che visualizza tutti i record con DataUno minore a Data tranne
quello con la data nassima ha il seguente codice SQL:
SELECT Tab_DatiGenerali.*
FROM Tab_DatiGenerali
WHERE (((Tab_DatiGenerali.DataUno)<= [Forms]![Mask_RicercaStampa]![Data] And
(Tab_DatiGenerali.DataUno)<> DMax("DataUno", "Tab_DatiGenerali", "DataUno
<=#" & Format([Forms]![Mask_RicercaStampa]![Data], "mm/dd/yyyy") & "#")));
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Doppio click su casella di riepilogo per aprire un report

text:
Salve a tutti i nottambuli!
Sono alle prese con un problemino da piu' di due ore riguardo una maschera
che ha una casella di riepilogo. Una volta filtrati i dati in essa (una
serie di utenti: nome, cognome, tel) vorrei con un doppio click su un
elemento a mia scelta si aprisse un report con in dati inerenti a quell
utente.
Qualcuno mi darebbe una mano?
P.S. Ho letto qualche post,"sarà l'ora"  ma non ho trovato nulla!
Grazie Mitch_TB


author: SunRex

text:
"Mitch_TB" <
matt...@libero.it
> ha scritto nel messaggio
news:VJCRb.291594$e6.11...@twister2.libero.it...

Il problema è riconducibile al passaggio di un valore di un campo della
casella
di riepilogo al report per mezo di una variabile.
Se la tabella si chiama tblUtenti ed i campi sono
IDUtente PK
Cognome
Nome
Telefono
Se chiamiamo casella di riepilogo lstUtenti
e l'origine riga è
SELECT tblUtenti.IDUtente, tblUtenti.Cognome, tblUtenti.Nome,
tblUtenti.Telefono
FROM tblUtenti
ORDER BY tblUtenti.Cognome;
Impostiamo la larghezza colonne della lstUtenti
0cm;5cm;5cm;3cm
Il numero delle colonne sarà 4 ma la prima essendo settata a 0 non si vedrà.
Sul Click ci estraiamo il valore IDUtente che è la chiave primaria della
tblUtenti.
****Questo lo metti in un Modulo******
Option Compare Database
Option Explicit
Public intUtente As Integer
********************************
***Questo lo metti nella maschera******
Private Sub lstUtenti_Click()
On Error GoTo ErrHandle
intUtente = lstUtenti.ItemData(lstUtenti.ListIndex)
If Err.Number = 94 Then
    Exit Sub
End If
End Sub
Private Sub lstUtenti_DblClick(Cancel As Integer)
DoCmd.OpenReport "Il nome del tuo report"
End Sub
***Questo lo metti nel report*********
Private Sub Report_Open(Cancel As Integer)
Dim strSQL as String
strSQL = "SELECT * FROM tblUtenti WHERE IDUtente = " & intUtente & ";"
Me.RecordSource = strSQL
End Sub
SunRex


text:

Devo dire che ci stavo girando attorno e non ero molto distante dalla
soluzione...ma con il tuo tocco...beh! perfetto!
GRAZIE MILLE SunRex


title: Aiuto db

author: epez

text:
Ragazzi ho bisogno di una mano per sistemare un db access.
Il problema è questo ho due tabelle:la prima contiene un codice e una
descrizione.
Nella seconda mettendo la descrizione mi dovrebbe comparire in un altro
campo attributi il codice prelevato dalla prima tabella (senza doverlo
digitare) in base alla descrizione digitata.
Mi sapreste dire come posso fare?
Grazie


title: Aiuto db

text:
epez ha scritto:

Forse una combo con origine dati sulla tabella1 potrebbe esserti d'aiuto. Sull'evento AfterUpdate poi puoi popolare una casella si testo con il codice che cerchi
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Scadenza

author: markann

text:
Come faccio a dare una scadenza sicura(o almeno quasi) all'utilizzo del mio
database?
--------------------------------
Inviato via
http://usenet.libero.it


title: Scadenza

author: Fabrizio Quercia

text:
"markann" <
mar...@libero.it
> ha scritto nel messaggio
news:62Z11Z87Z249Y1...@usenet.libero.it...
> Come faccio a dare una scadenza sicura(o almeno quasi) all'utilizzo del
mio
> database?
-fai una tabella con un campo datafine
-fai una form nascosta con un campo data che ad ogni apertura del db si apre
la form e si aggiorna la data
-fai una routine ke verifica se la data della form è uguale o maggiore di
quella della tabella...in quel caso chiudi il database
Credo sia una soluzione semplice da realizzare, anche se molto limitata e
spartana...cmq funziona :)
Ciao


title: Scadenza

text:
Il 20 Nov 2002, 21:05, "Fabrizio Quercia" <
fabrizi...@tin.it
> ha
scritto:

Grazie fabrizio,se non riuscirò a fare qualcosa con le API (timeGetTime),
sicuramente userò la tua soluzione.
Ciao



title: Scadenza

text:
"markann" <
mar...@libero.it
> ha scritto nel messaggio
news:80Z117Z197Z134Y...@usenet.libero.it...
> Grazie fabrizio,se non riuscirò a fare qualcosa con le API (timeGetTime),
> sicuramente userò la tua soluzione.
eccerto :) se trovi di meglio...è meglio! :)
Fammi sapere se hai risolto in un modo migliore di quello ke ti ho accennato
io...potrebbe servive anche a me :)
Ciao


title: Scadenza

author: TOMMY

text:
"Fabrizio Quercia" <
fabrizi...@tin.it
> ha scritto nel messaggio
news:yWRC9.33502$744.1...@news1.tin.it...

Ciao e scusate l'intrusione, siccome sarei anch'io interessato al problema
mi potreste postare il codice della  routine per l'esempio riportato sopra.
grazie


title: access ed mp3

text:
Salve a tutti
ci sono in giro diveri programmi per l'archiviazione dei file mp3 ma, o sono
in lingua, o sono sharewhere, o altre diavolerie, nessuno riesce pienamente
a soddisfarmi. Così avrei pensato di creare un archivio con access.
Vorrei al riguardo sottoporre due quesiti.
1) C'è modo di impostare access a leggere automaticamente il contenuto di
una unità (es cd-rom) ed autocreare una tabella che contenga i dati
relativi ai file mp3.
2) dato cmq per risolto il primo problema (che nel caso è il male minore -
anche se in caso contrario bisognerebbe digitare materialmente tutti i dati)
c'è la possibilità di allegare ad un button su click la proprietà di
eseguire il file mp3?
ringrazio anticipatamente e auguro a tutti buone feste
antonio


title: access ed mp3

author: bobbit

text:
<
ari...@libero.it
> wrote in message
GwS%5.143030$hk4.5...@news.infostrada.it...

Ci sono parecchi OCX gratis per la riproduzione di file mp3 , li puoi
trovare su
www.download.com
Li inserisci nella tua maschera, dai un'occhiata ai metodi dell'OCX e
gestisci così la riproduzione.
Ciao, Bobbit


title: visualizzazione foglio dati

author: Tennis

text:
Buongiorno a tutti
ringrazio per eventuali risposte:
ho creato una Maschera FrmAccessiInformatici ( Creazione guidata -
tabellaTblAccessiInformatici - Visualizzazione Foglio dati )
Ho necessita' di visualizzare in foglio Dati , quindi dopo averla creata in
quel modo nelle proprieta ho inserito che e' l'unica possibilita' di
visualizzazione.
Bene se apro manualmente tutto ok
da una maschera ho creato un pulsante ( con wizard ) che apre la maschera e
misteriosamente la apre in formato grafico ( non foglio Dati )
come e' possibile ?? e' il codice che viene generato automaticamente che la
fa aprire in modalita non foglio Dati ?
Nelle proprieta' maschera e' tutto ok, ( se inserisco un collegamento
ipertestuale alla maschera stessa va tutto ok )
dal pulsante di comando io la vedo in modalita tabellare non foglio dati
come vorrei
vi posto il codice generato :
Private Sub Comando16_Click()
On Error GoTo Err_Comando16_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "FrmAccessiInformatici"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando16_Click:
    Exit Sub
Err_Comando16_Click:
    MsgBox Err.Description
    Resume Exit_Comando16_Click
Grazie a tutti
Stefano


title: visualizzazione foglio dati

author: Karl Donaubauer

text:
Tennis wrote:
> ...
> dal pulsante di comando io la vedo in modalita tabellare non foglio
> dati come vorrei
> ...
>    DoCmd.OpenForm stDocName, , , stLinkCriteria
> ...
La vis. predefinita del commando OpenForm è la vis. maschera.
Devi cambiarla esplicitamente a foglio dati con
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: visualizzazione foglio dati

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:8ri0rp...@mid.individual.net...

Come sempre problema risolto in 5 minuti , ma una curiosita' Karl c'e'
qualcosa che NON SAI ??
Grazie mille , un saluto
Stefano


title: visualizzazione foglio dati

text:
Tennis wrote:
> ... ma una curiosita' Karl c'e' qualcosa che NON SAI ??
P.e. non so usare bene i modi condizionali e congiuntivi
nell'italiano.
--
:-)



title: visualizzazione foglio dati

author: MA

text:
?"Karl Donaubauer"  ha scritto nel messaggio
news:8ri9ud...@mid.individual.net...



... ma anche sorridere..
;-P
ciao Karl
MA


title: settare copie di report da vba

author: massimo

text:
Ciao a tutti, avrei un piccolo problema da risolvere.
Da una maschera lancio in stampa un report nel quale vorrei settare con vba
il numero di copie da stampare.
Io sto usando il comando docmd.openreport ma ho visto che non prende come
parametro il numero di copie inoltre vorrei evitare di fare un ciclo poichè
essendo delle etichette non verrebbe impaginato correttamente. Come potrei
fare ?
Grazie in anticipo.


title: settare copie di report da vba

author: The-real-Isaac

text:
"massimo" <
mato...@guest.net
> ha scritto nel messaggio
news:9vd5ap$cdb$1...@fe2.cs.interbusiness.it...

Hai provato con
    DoCmd.PrintOut , , , , 5 '(se vuoi stampare 5 copie)
?
--
Alberto


title: Drug and drop di records?

author: giorgio VE

text:
Ciao al NG,
immagino sia possibile fare un taglia  in VBA di alcuni records di una
tabella (A) e incolla in un altra tabella (B).
Come?
grazie 1000
giorgio


title: Drug and drop di records?

author: Alessandro

text:
"giorgio VE" <
giorgio...@hotmail.com
> wrote in message
news:s2ua8.54228$om6.1...@news1.tin.it...

Non proprio, questa č fantascienza.....!
Puoi usare Query di Accodamento, ma te la devi fare(Autocomposizione),
oppure via codice, ma anche quě lo devi fare....!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Drug and drop di records?

author: Emyr

text:


dipende da dove a dove e smacchinando un pò
Saluti.
Emanuele.


title: Licenze e ocx

author: Re Artů

text:
Ciao a tutti.
Vi espongo il mio problema: volevo acquistare un ocx con sorgenti in C++
(per creare i codici a barre) di una ditta statunitense. Nel contratto di
vendita c'è scritto che devo acquistare una licenza dei sorgenti per ogni
programmatore della mia ditta che li utilizza. Fin qui tutto ok. Poi dicono
che si possono distribuire gratuitamente n copie dell'ocx originale o
modificato, purchè non si dia la possibilità ad altri utenti di utilizzare
l'ocx per altre applicazioni al di fuori di quella che distribuisco io.
Praticamente io vendo un gestionale che utilizza un ocx. Questo ocx
installato su altri pc deve funzionare solo con il mio gestionale. A
complicare le cose c'è il fatto che i miei report sono fatti in access e
sono aperti (mdb) alle personalizzazioni. Quindi chiunque può vedere come
uso questo cavolo di ocx (che serve appunto nei report per creare i codici a
barre). Come ne vengo fuori? Premetto che i report devono restare in access
e aperti ...
Pensavo ad alcuni controlli che quando vengono inseriti in form o report
danno il messaggio di errore perché non trovano la licenza ... ma ho un po
le idee confuse su come realizzare un artificio del genere.
Grazie e ciao a tutti


title: Licenze e ocx

author: Luciano (DOC)

text:
"Re Artů" <
lucchin...@tiscalinet.it
> ha scritto nel messaggio
news:9rb33n$f3r$1...@fe2.cs.interbusiness.it...
> Vi espongo il mio problema: volevo acquistare un ocx con sorgenti in C++
> ......
Ma un bel font free no, eh?:-)
Che codice devi usare?
Saluti.
Luciano


title: Dubbio su quale funzione condizionale usare.

author: montanaro®

text:
Ciao, ho una tabe. con diverse colonne (a me ne iteressano 2), la prima
contiene dei codici (meno di mille), la seconda i relativi valori
(euro) da sommare.
All'interno della tabella andrò a scegliere circa 30/40 valori da
sommare, non di +; il problema è che non sono ordinati.
Ad esempio, devo sommare i valori che corrispondono ai codici: 295 296
297 298 299 301 302 303  400 405 410 e così via, naturalmente tra i
codici che interessano a me ce ne sono altri che non mi servono.
Quindi pensavo di usare la fornula switch, che ne pensate?
grazie


text:
montanaro® ha scritto:

No, aspettate, ho letto sull'help che restituisce la prima espressione
vera, quindi non fa al mio caso. Avete un'idea?


author: Sergio MAZZA

text:
"montanaro®" <
jor...@gmail.com
> ha scritto nel messaggio
news:1150211185.6...@h76g2000cwa.googlegroups.com...
montanaro® ha scritto:


[risposta]
Prova con:
'---
Select sum(euro) as totEuro From Tabe Where codici In (295, 296, 297, 298,
299, 301, 302, 303,  400, 405, 410)
'---
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

Ciao, grazie x la risposta.
Mi diceva "tipi di dati non corrispondenti nel criterio"........bho
sbagliavo qualcosa.
Poi ho provato un "ibrido"
espr: Somma(IIf([cod] In (296;297;298;299...ecc);[valore];0))
e funziona a meraviglia.
Grazie! (la via maestra è stata indicata).
p.s.: nn mi è chiara la funzione In(), ho provato con google sul NG,
sul web e l'help di access ma non trovo; avete un riferimento?
Grazie


text:
"montanaro®" <
jor...@gmail.com
> ha scritto nel messaggio
news:1150265380.3...@u72g2000cwu.googlegroups.com...
Ciao, grazie x la risposta.
Mi diceva "tipi di dati non corrispondenti nel criterio"........bho
sbagliavo qualcosa.
Poi ho provato un "ibrido"
espr: Somma(IIf([cod] In (296;297;298;299...ecc);[valore];0))
e funziona a meraviglia.
Grazie! (la via maestra è stata indicata).
p.s.: nn mi è chiara la funzione In(), ho provato con google sul NG,
sul web e l'help di access ma non trovo; avete un riferimento?
Grazie
[risposta]
Veramente non è una funzione di VBA ma un operatore SQL che permette di
indicare un elenco di valori nella condizione where.
Ecco perché ti avevo fatto l'esempio con l'istruzione SQL.
E, tra parentesi, non avevo mai visto l'utilizzo dell'In dentro la funzione
Somma; anzi a dirla tutta neanche dell'IIf... C'aveva ragione la vecchietta
che non voleva mori'...
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

hihihihi


title: dare un nome al report esportato come documento rtf

author: stefano (kabisa)

text:
Salve a tutti
Ho creato una procedura per creare lettere e l'utente mi ha chiesto di farle
esportare per poterle modificare con staroffice o simile.
Io ho creato il bottone che trasferisce in formato rtf
Cioč mi apre la maschera che chiede in che formato e dove salvare il file.
come faccio a far si che venga messo il nome del file e il tipo (rtf) e il
percorso in automatico quando clicco il bottone?
questa č la funzione che uso
Dim stDocName As String
Select Case Me!TipoLettera
    Case 1
        stDocName = "REP_MEDOCULISTA"
        DoCmd.OutputTo acReport, stDocName
    Case 2
        stDocName = "REP_RELMEDCUR"
        DoCmd.OutputTo acReport, stDocName
    Case 3
        stDocName = "REP_LETT_DIMISSIONE"
        DoCmd.OutputTo acReport, stDocName
End Select
Grazie Stefano Kabisa


author: Roberto da casa

text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:wtLlc.138939$hc5.6...@news3.tin.it...

Vai sull'help e leggiti cosa dice circa il metodo OutputTo: ti spega anche
come impostare il tipo ed il percorso completo del file in uscita.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LuPlc.168108$Kc3.5...@twister2.libero.it...

Grazie
dopo un attenta ed accurata lettura (pultroppo ho help in fiammingo)
ho fatto cosi
 DoCmd.OutputTo acReport, stDocName, acFormatRTF, "polpetta.rtf"
ora lui salva il file in documenti
io vorrei salvarlo in una cartella chiamata lettere che si trova sul server
nella stessa directory del BE
Il problema č che da ogni computer il percorso č diverso es
F://...../ocucommon/lettere
Z:// ...../ocucommon/lettere
Come posso recuperare il percorso delle tabelle?
so che č una domanda un po banale ma sono molto fuso in questi giorni.
Grazie


text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:fD0mc.196331$rM4.8...@news4.tin.it...

Devi esplicitare il percorso completo del file polpetta.rtf .
Nella tabella di sistema chiamata MSysObject di ogni FE, nel campo Database
ci trovi il path completo del database BE: usa quel dato per impostare il
percorso del file polpetta.rtf .
Natguralmente per visyualizzare tale tabella di sistema dovrai abilitare
l'opzione Strumenti => Opzioni => Visualizzazione => Oggetti di sistema .



author: sv

text:
stefano (kabisa) ha scritto:



Ti chiedevo, perchč utilizzi un driver diverso per ogni PC?
La cosa io la risolvo dando un percorso assoluto, da risorse di rete, del
tipo \\nomeserver\mietabelle\
<cut>
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:c7afuc$nfv$1...@news.newsland.it...

Pultoppo io non posso gestire la rete č
una lan ospedaliera con centinaia di computer e l'applicativo viene
utilizzato in un reparto con 18 computer ma io non posso decidere dove deve
risiedere il BE
Stefano (Kabisa)


title: casella combinata in ordine alfabetico

author: Nino

text:
Ciao a tutti, vorrei sapere come fare ad mettere in ordine alfabetico gli
elementi di una casella combinata.
Grazie.


title: casella combinata in ordine alfabetico

author: Roberto dalla campagna

text:
Nino <
lama...@libero.it
> wrote in message
6pRWa.33826$sj6.7...@tornado.fastwebnet.it...
> Ciao a tutti, vorrei sapere come fare ad mettere in ordine alfabetico gli
> elementi di una casella combinata.
> Grazie.
Ordina la query che è origine riga della casella combinata per il campo che
visualizzi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: casella combinata in ordine alfabetico

text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:BZRWa.221794$Ny5.6...@twister2.libero.it...

Grazie Roberto hai ragione funziona.... porta pazienza sono un principiante.


title: M.I 5-Pers ecution - purp ose in publici zing i t; censo rship in uk.*  new sgroups

text:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-= purpose in publicizing it;. censorship in uk.* newsgroups -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The postings to uk.misc newsgroup generated a very defensive. reaction from
Usenet readers in the UK. So much so, that they tried strenuously. to
suppress. what was being said, both by breaking the rules of netiquette in
their responses. on the forum, and directly by action to revoke the account
from which the postings. were issued.
Yet the. postings were within the normal boundaries of behaviour for
uk.misc, and other less partisan spectators did not. see justice in the
censorship which. was effected, as the following excerpt shows;
:Karen. Lofstrom (
lofs...@lava.net
) wrote
:>It does seem that the frequency and the size of his posts. are
:>approaching net abuse..  However, IMHO, they aren't quite there yet. If
:>his postmaster were to act in this instance,. it would raise troubling
:>censorship. issues.
The inescapable. conclusion of the censorship effected on the uk.*
newsgroups is that the British are intent. on their wrongdoing remaining
concealed, and therefore seek to subvert and suppress freedom of. speech,
not only in. their own country where the media shows xenophobic bias and
bile against all perceived enemies within and without, but also. in other
countries which have. their own statutes to guarantee the basic human right
of free. speech.
It is absolutely. necessary to bring their hate campaign out into the open
where it. can be placed under scrutiny and the harassers seen for what they
are. That is the only. way of making it impossible for the security services
to carry it out. There is. a wider dimension, though. Xenophobia as
demonstrated by British people and institutions over. the last few years
belongs to the same stable as racial hatred. In one case, two. youths on a
Tube. train made that racism explicit by referring to their victim as a
"soft toy, not up to British Standards". Doubtless. others victimize partly
on. the basis of race (isn’t it odd that they chose to torment someone who
is not. ethnically English?) while expressing their abuse in terms of
another genetic attribute, namely mental. illness. All xenophobia on a
genetic basis is. wrong, but while racial insults are illegal, abusing the
mentally ill is neither against the law nor subject to. similar condemnation
when it is. exposed.
6584


title: eliminazione record

text:
Per eliminare un record ho inserito questo codice:
Private Sub Comando253_Click()
On Error GoTo Err_Comando253_Click
    Dim bytScelta As Byte
bytScelta = MsgBox("SEI VERAMENTE SICURO, LA SCELTA E' IRREVERSIBILE",
vbExclamation + vbYesNo, "ATTENZIONE")
If bytScelta = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings True
End If
Exit_Comando253_Click:
Exit Sub
Err_Comando253_Click:
    MsgBox Err.Description
    Resume Exit_Comando253_Click
End Sub
Nel messaggio pero il  cursore è su YES, quindi, se si da invio si conferma.
Come si può attivare di default il cursore direttamente su NO?
Si accettano suggerimenti anche sul resto del codice.
--
mag...@libero.it
map...@tiscalinet.it
mag...@inwind.it
http://diginander.iol.it/videociak


title: eliminazione record

author: RoDAgo

text:
maga58 scrisse...
> Per eliminare un record ho inserito questo codice:
>
> Private Sub Comando253_Click()
> On Error GoTo Err_Comando253_Click
>     Dim bytScelta As Byte
> bytScelta = MsgBox("SEI VERAMENTE SICURO, LA SCELTA E' IRREVERSIBILE",
> vbExclamation + vbYesNo, "ATTENZIONE")
> If bytScelta = vbYes Then
>     DoCmd.SetWarnings False
>     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
>     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>     DoCmd.SetWarnings True
> End If
> Exit_Comando253_Click:
> Exit Sub
> Err_Comando253_Click:
>     MsgBox Err.Description
>     Resume Exit_Comando253_Click
> End Sub
> Nel messaggio pero il  cursore è su YES, quindi, se si da invio si
conferma.
> Come si può attivare di default il cursore direttamente su NO?
> Si accettano suggerimenti anche sul resto del codice.
Sostituisci la msgbox con questa.
MsgBox("SEI VERAMENTE SICURO, LA SCELTA E' IRREVERSIBILE", 308,
"ATTENZIONE")
Ciao da RoDAgo


title: eliminazione record

author: Federico Luciani

text:
maga58 wrote:
> Per eliminare un record ho inserito questo codice:
>
> Private Sub Comando253_Click()
> On Error GoTo Err_Comando253_Click
>     Dim bytScelta As Byte
> bytScelta = MsgBox("SEI VERAMENTE SICURO, LA SCELTA E' IRREVERSIBILE",
> vbExclamation + vbYesNo, "ATTENZIONE")
> If bytScelta = vbYes Then
>     DoCmd.SetWarnings False
>[snip]
> Nel messaggio pero il  cursore è su YES, quindi, se si da invio si conferma.
> Come si può attivare di default il cursore direttamente su NO?
> Si accettano suggerimenti anche sul resto del codice.
Tra le varie costanti per il secondo argomento della
funzione Msgbox c'e' anche:
VbDefaultButton2, trasforma la funzione in
bytScelta = MsgBox("SEI VERAMENTE SICURO, LA SCELTA E'
IRREVERSIBILE", vbExclamation + vbYesNo + vbDefaultButton2,
"ATTENZIONE")
e vedrai che funziona.
Sull'help e' spiegato benissimo!
--
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: informazioni formattazione report

author: Marceme

text:
Stavo realizzando un piccolo db per un associazione, quando mi hanno chiesto
di stampare i nominativi degli iscritti direttamente sulle schede, che loro
comprano gia stampati su di un cartoncino (modulo continuo) per una
stampante ad aghi ad 80 colonne, considerando che ogni scheda è alta circa
una 7 8 cm e possibile formattare un report per questo tipo di stampa?
Grazie anticipatamente
Marceme


title: informazioni formattazione report

author: Carlo Costarella

text:
"Marceme" <
hhhhhhhioirobe...@tin.it
> ha scritto nel messaggio
news:BBgV9.33934$0v.10...@news1.tin.it...
> Stavo realizzando un piccolo db per un associazione, quando mi hanno
chiesto
> di stampare i nominativi degli iscritti direttamente sulle schede, che
loro
> comprano gia stampati su di un cartoncino (modulo continuo) per una
> stampante ad aghi ad 80 colonne, considerando che ogni scheda č alta circa
> una 7 8 cm e possibile formattare un report per questo tipo di stampa?
> Grazie anticipatamente
> Marceme
>
>
Certo che sě.
Il report lo imposti come vuoi. Devi anche impostare le dimensioni del
foglio (personalizzate) direttamente nella stampante.
Infatti se imposti un report con larg. 10 cm e alt. 8 cm (questa č la somma
di tutte le sezioni) non puoi certo aspettarti che il modulo continuo o il
foglio nella stampante si fermi a quelle dimensioni se č impostao su A4 per
esempio.
Qualche post piů sopra č stato trattato un argomento simile.
Ciao, Carlo


title: informazioni formattazione report

text:
>
> Certo che sě.
> Il report lo imposti come vuoi. Devi anche impostare le dimensioni del
> foglio (personalizzate) direttamente nella stampante.
> Infatti se imposti un report con larg. 10 cm e alt. 8 cm (questa č la
somma
> di tutte le sezioni) non puoi certo aspettarti che il modulo continuo o il
> foglio nella stampante si fermi a quelle dimensioni se č impostao su A4
per
> esempio.
>
> Qualche post piů sopra č stato trattato un argomento simile.
Quinidi devo procedere anche un pň per tentatrivi,  giusto?
orsa mi vedo un po tutti i post
Grazie


title: SELECT ..... particolare

author: Maurino

text:
Ho una tabella Prodotti:
Prodotto -  Quantità
--------------------
prodotto1 -        5
prodotto1 -        6
prodotto1 -        7
prodotto2 -        1
prodotto2 -        2
prodotto2 -        3
prodotto2 -        4
Come faccio a selezionare i primi 2 record per ogni prodotto ?
Cioè la query mi deve restituire:
Prodotto -  Quantità
--------------------
prodotto1 -        5
prodotto1 -        6
prodotto2 -        1
prodotto2 -        2
Grazie a chiunque volesse aiutarmi
    Maurino


title: SELECT ..... particolare

author: Giorgio Prx

text:
"Maurino" <
proge...@tin.it
> ha scritto nel messaggio
news:0vAMa.7555$HU3.2...@news2.tin.it...

Ciao Maurino
Puoi utilizzare un subquery nella clausola WHERE es...
SELECT Prodotto,  Quantita
FROM Prodotti
WHERE Quantita IN  (SELECT TOP 2 Quantita
                                   FROM Prodotti Pr2
                                   WHERE Pr2.Prodotto=Prodotti.Prodotto
                                   ORDER BY Quantita)
Ciao Giorgio.


title: SELECT ..... particolare

text:
"Giorgio Prx" <
giorgio...@tiscali.it
> ha scritto nel messaggio
news:bdumvo$5p4$1...@lacerta.tiscalinet.it...

Grazie .... funziona benissimo
    Maurino


title: problema con la creazione di un file csv

author: stwe

text:
allora il mio problema di oggi è il seguente:
tramite vbscript su una macchina a controllo numerico dovrei leggere dei
valori di una frizione, creare un file csv e poi farne vedere il grafico con
access.
premesso ciò il mio problema, a me servirebbe un file delimitato in questo
modo:
a;b
c;d
o se volete
2;5
55;343
tramite l'help desk del plc mi hanno consigliato questo script:
Private Sub Comando0_Click()
Dim var_1, var_2, var_3, var_4
 var_1 = 2
 var_2 = 5
 var_3 = 55
 var_4 = 343
On Error Resume Next
Dim fs, a, stringa, blank
Set fs = CreateObject("Scripting.FileSystemObject")
Err = 0
Set a = fs.OpenTextFile("C:\test.csv", 8, 0)
If Err <> 0 Then Set a = fs.createtextfile("C:\test.csv", True): a.Close:
Set a = fs.OpenTextFile("C:\test.csv", 8, 0)
stringa = ";"
blank = " "
a.Writeline (CStr(var_1) + stringa): a.Writeline (CStr(var_2) + stringa)
a.Writeline (CStr(var_3) + stringa): a.Writeline (CStr(var_4) + stringa)
a.Writeline (blank)
a.Close
Call PtFct.Visualizza_Testo_segnalaz_sistema("L'esportazione dei valori è
avvenuta con successo")
Call PtScp.GetFileSize
End Sub
le variabili (var_1, var_2, var_3, var_4) le ho create io (quelle tramite il
comando dim all'inizio del codice...) e gli ho assegnato un valore io per
generare la tabella, solo che il risultato che ottengo non è quello sperato,
invece è il seguente:
2;
5;
55;
343;
insomma non riesco a far scrivere il 5 e il 343 dietro rispettivamente al 2
e al 55.
se qualcuno ne sa qualcosa gliene sono veramente grato
by
stwe
al sabato sera alle 1.41 di notte (spero di farvi pena:-))) )


author: Ivan

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:NBWd8.14433$v7.5...@twister1.libero.it...

ciao,  non conosco la sintassi particolare che usi, ma ...
in basic è una vita che per lasciare una riga aperta in scrittura( per
poter,  insomma, aggiungere qualcos'altro inseguito) si mette il   ;  (il
punto e virgola).
Tu scrivi una variabile ( o un testo) e lo termini col punto e virgola. Poi
se vuoi ti attacchi alla fine della riga appena scritta.
Io trasformerei le righe col Writeline in questa maniera :
    a.Writeline (CStr(var_1) + stringa);: a.Writeline (CStr(var_2)+ Stringa)
    a.Writeline (CStr(var_3) + stringa);: a.Writeline (CStr(var_4) +
stringa)
    a.Writeline (blank)
    a.Close
noterai che esiste il puntyo e virgola dopo il primo Writeline.
Se non ti dà errori di sintassi allora funziona, altrimenti trasforma la
riga in una unica Writeline
    a.Writeline (CStr(var_1) + stringa + CStr(var_2) )
ho tolto la seconda istanza di Stringa perchè mi pare che tu non voglia il
puntoevirgola dopo il secondo numero.
fammi sapere ...              van


text:
"Ivan" <
ivan...@tin.it
> ha scritto nel messaggio
news:Zn6e8.10053$_u5.3...@news1.tin.it...

funziona la tua seconda ipotesi che era anche logica da pensare... grazie mi
sei stato veramente di aiuto, spero di poter ricambiare.
by
stwe


title: spedire mail

author: TheDarkMist

text:
E' possibile con access spedire una stessa mail all'indirizzo di posta
elettronica appartenente ad una lista di utenti, che rispondono a
determinate caratteristiche?
Scusate, ma sono nuovo...
grazie,
--
TheDarkMist
home page:
http://www.thedarkmist.cjb.net
ICQ UIN: 12063955
per scrivermi rimuovi NOSPAM dall'indirizzo


title: spedire mail

author: Roberto dal portatile

text:
"TheDarkMist" <theda...@NOSPAMlibero.it> ha scritto nel messaggio
news:GOFz5.734$3R6....@news.infostrada.it...

Prova a dare uno sguardo al Sito Comune, sezione Download; magari una delle
soluzioni proposte potrebbero andarti bene.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Riprovo a chidere MDAC e MSAGENT

text:
Ho problemi con l'hel in linea per i soli oggetti di ADODB dopo
l'installazione di MDAC 2.7.
Non riesco a far parlare il PC da una maschera di Access. Non so da dove
iniziare. Msagen mi dice tutto e mi dice niente.
Vi prego di aiutarmi!
One.Emmedi