title: Re: Inattivare l'uso del tasto shift

text:
"Alxx" <
Al...@freemail.it
> ha scritto nel messaggio
news:37rq9eF...@individual.net...
> > adesso non ho sotto mano quella faq per poter controllare, ma della
> > protezione del db mi sembra che ne avevamo già parlato qualche giorno fa
> > dove ti consigliavo di creare un mdw con utenti e gruppi e di
trasformare
> > in
> > Mde il  tuo mdb per la faccenda della struttura delle form ecc....
Ciao Alxx,
> si, l'FE ed il BE sono gia' stati impostati.
> M'interessa capire se le barre possono essere definitivamente
> disabilitate per dare una schermata unica con l'autoexec.
crei un modulo e ci metti ad esempio :
Public Function menuavviop()
       DoCmd.ShowToolbar "Barra dei menu", acToolbarNo
End Function
Poi nella macro autoexec ci metti esegui codice e in basso a dx dove dice
nome funzione scrivi :
=menuavviop()
> Lascio il BE sul server e diciamo che non lo tocco,
> metto gli FE sulle altre macchine e li vorrei intervenire
> sulle barre. Vorrei cioe' inattivarle definitivamente.
> nel codice del sito c'e' la stringa
>
> strMdb = [Opz.] percorso+nome del database
>
> che mi sembra stia ad indicare la posizione dell'mdb,
> cio' forse significa che se inattivo, tramite il codice,
> il tasto shift, questo rimane tale fintantoche' l'mdb
> resta in quella posizione??
>
> ciao Sandro, grazie
> Alxx
No, l'mdb rimane con l'inibizione dello shift fintanto che non riabiliti
nuovamente con lo stesso metodo.
Ci sono due pulsanti di opzione se non erro nella faq


title: Re: Inattivare l'uso del tasto shift

author: Alxx

text:
> Ottieni qulche centinaio di risposte alla tua domanda, non è
> difficile prova....!!!
>
attento che dalle mie parti vendono esche buone per pesci
aggressivi.....
itulaS
Alxx


title: Re: Inattivare l'uso del tasto shift

author: Sandro

text:
"Alxx" <
Al...@freemail.it
> ha scritto nel messaggio
news:37rl1pF...@individual.net...

Ciao Alxx,
prova a controllare sul sito comune nella sezione general
Disabilitare/abilitare l'effetto del tasto shift all'avvio.-
gaetano.dizanni e cidi questi li conosco non ho capito la storia del
pescecane, boh saranno cose vostre !
Ciao


title: Re: Inattivare l'uso del tasto shift

author: ALESSANDRO Baraldi

text:
"gaetano.dizanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:4218a3a5$0$6309$5fc...@news.tiscali.it...
> E' un grosso pescecane che si aggira nei paraggi di Mantova...
>
Già, prima periferia....!
;-)



title: Re: Inattivare l'uso del tasto shift

text:
> adesso non ho sotto mano quella faq per poter controllare, ma della
> protezione del db mi sembra che ne avevamo già parlato qualche giorno fa
> dove ti consigliavo di creare un mdw con utenti e gruppi e di trasformare
> in
> Mde il  tuo mdb per la faccenda della struttura delle form ecc....
si, l'FE ed il BE sono gia' stati impostati.
M'interessa capire se le barre possono essere definitivamente
disabilitate per dare una schermata unica con l'autoexec.
Lascio il BE sul server e diciamo che non lo tocco,
metto gli FE sulle altre macchine e li vorrei intervenire
sulle barre. Vorrei cioe' inattivarle definitivamente.
nel codice del sito c'e' la stringa
strMdb = [Opz.] percorso+nome del database
che mi sembra stia ad indicare la posizione dell'mdb,
cio' forse significa che se inattivo, tramite il codice,
il tasto shift, questo rimane tale fintantoche' l'mdb
resta in quella posizione??
ciao Sandro, grazie
Alxx



title: Re: Inattivare l'uso del tasto shift

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:rc1Sd.568063$b5.26...@news3.tin.it...




title: .... cercare un BUCO !

author: Paolo Dal Bosco

text:
:-) per non fraintendere.
Un saluto a tutti.
Ho una tabella in cui i records sono consecutivi
cioè oltre all'id c'è un campo numerico chiamato "Numero"
e questo campo contiene un valore crescente.
Se cancello un record, es. quello in cui il campo numero
contiene il valore 40, mi ritrovo un buco tra 39 e 41.
Ha provato varie soluzioni, senza naturalmente risolvere
il problema.
Qualche consiglio?
Grazie
Paolo


title: .... cercare un BUCO !

author: Massimo Piubelli

text:

potresti provare a vedere l'esempio sul sitocomune di namor
sezione tabelle, 1.21
per poi adattarlo a quello che vuoi tu, tipo creare dei record con scritto "recuperare" o ...
> Grazie
> Paolo
prego.
Ciao,
Max


title: .... cercare un BUCO !

text:
"Massimo Piubelli" <massim...@accessgroup.it.invalid> ha scritto nel
messaggio news:ed9b9i$3bf$1...@area.cu.mi.it...



> Grazie
> Paolo
prego.
Ciao,
Max
----------------
Grazie, addesso vado a vedere.
Paolo


title: .... cercare un BUCO !

author: Alessandro Baraldi

text:
Paolo Dal Bosco ha scritto:

Io farei un ciclo sul campo del RS (Numero), e per trovare il buco ti
basta
memorizzare il valore precedente e sottrarlo all'attuale, se la
differenza>1 c'è un buco.
Function CercaBuco() as Long
     Dim rs as DAO.Recordset
     Static prevN as variant
     prevN=null
     Set rs=Currentdb.Openrecordet("SELECT Numero FORM T1",dbreadOnly)
     If rs.eof then cercaBuco=0:exit function
     Do until rs.Eof
          If prevN<>Null then
               If (rs!numero-prevN)>1 then exit do
          end if
          prevN=rs!numero
          rs.movenext
     Loop
     CercaBuco=PrevN+1
     rs.close
Exit Function
@Alex


title: .... cercare un BUCO !

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1157117475.2...@b28g2000cwb.googlegroups.com...
Paolo Dal Bosco ha scritto:
> :-) per non fraintendere.
> Un saluto a tutti.
> Ho una tabella in cui i records sono consecutivi
> cioč oltre all'id c'č un campo numerico chiamato "Numero"
> e questo campo contiene un valore crescente.
> Se cancello un record, es. quello in cui il campo numero
> contiene il valore 40, mi ritrovo un buco tra 39 e 41.
> Ha provato varie soluzioni, senza naturalmente risolvere
> il problema.
> Qualche consiglio?
>
> Grazie
> Paolo
Io farei un ciclo sul campo del RS (Numero), e per trovare il buco ti
basta
memorizzare il valore precedente e sottrarlo all'attuale, se la
differenza>1 c'č un buco.
Function CercaBuco() as Long
     Dim rs as DAO.Recordset
     Static prevN as variant
     prevN=null
     Set rs=Currentdb.Openrecordet("SELECT Numero FORM T1",dbreadOnly)
     If rs.eof then cercaBuco=0:exit function
     Do until rs.Eof
          If prevN<>Null then
               If (rs!numero-prevN)>1 then exit do
          end if
          prevN=rs!numero
          rs.movenext
     Loop
     CercaBuco=PrevN+1
     rs.close
Exit Function
@Alex
--------------------
basta ed avanza, č che i record set mi sono antipatici
cerco sempre di evitarli, mi dovrň mettere d'impegno
e una buona volta imparmeli bene.
Grazie.
Paolo


title: .... cercare un BUCO !

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1157117475.2...@b28g2000cwb.googlegroups.com...
Paolo Dal Bosco ha scritto:



@Alex
----------------------------
scusami se rompo, non ne vuol saper di escire per >1.
ho aggiunto un debug.print
          -----
          End If
          Debug.Print rs!numero & "-" & prevN <----------
          prevN = rs!numero
          rs.MoveNext
     Loop
         ------
che mi dà:
1-
2-1
4-2   <------- dovrebbe uscire quì ma non ne vol sapere
5-4
6-5
7-6
Ciao
Paolo


title: .... cercare un BUCO !

text:
> @Alex
> ----------------------------
> scusami se rompo, non ne vuol saper di escire per >1.
> ho aggiunto un debug.print
>           -----
>           End If
>           Debug.Print rs!numero & "-" & prevN <----------
>           prevN = rs!numero
>           rs.MoveNext
>      Loop
>          ------
> che mi dà:
>
> 1-
> 2-1
> 4-2   <------- dovrebbe uscire quì ma non ne vol sapere
> 5-4
> 6-5
> 7-6
>
> Ciao
> Paolo
>
ho provato a passare i valori  rs!numero e prevN
a due variabili a e b dim as integer
ed il
Debug.Print "-" & a & "-" & b & "-"
mi dà:
-0-0-
-0-0-
-0-0-
-0-0-
-0-0-
-0-0-
ho varie trasformazioni, ma senza risultato.
Ciao
Paolo


title: .... cercare un BUCO !

text:
Paolo Dal Bosco ha scritto:
> > @Alex

Paolo Ciao.
C'era un errore nella determinazione del valore NULL, secondo me
dovresti
provare a fare un po di debug, seguendo passo passo la funzione, in
questo caso
l'avevo scritta senza provarla....., ma se invece di usare solo il
Debug.Print verifichi
passo passo con i BreakPoint e F8 ti accorgi meglio del perchè certe
cose non vanno..
Function CercaBuco() As Long
     Dim rs As DAO.Recordset
     Static prevN As Variant
     prevN = Null
     Set rs = CurrentDb.OpenRecordset("SELECT CampoNumerico FROM T1",
dbReadOnly)
     If rs.EOF Then CercaBuco = 0: Exit Function
     Do Until rs.EOF
          If IsNumeric(prevN) Then
               If (rs!CampoNumerico - prevN) > 1 Then Exit Do
          End If
          prevN = rs!CampoNumerico
          rs.MoveNext
     Loop
     CercaBuco = prevN + 1
     rs.Close
End Function
Ho creato una tabella con :
1
2
3
4
6
7
8
Mi restituisce:
5
Ciao
@Alex


title: .... cercare un BUCO !

text:
[Cut]
Ciao
@Alex
-----------------
mille grazie, Alex
ora funziona.
Ciao, buona serata
Paolo


title: .... cercare un BUCO !

author: diego

text:
la funzione è estremamente interessante, perchè da quello che vedo
non dovrebbe dare possibilità ad un campo di tipo progressivo numerico
di rimanere con valori Null, una cosa mi chiedo e vi chiedo, ma dove la
posso richiamare questa funzione?
Cioe' se sull'evento click di un command faccio partire prima ancora di
alcune query di inserimento una funzione che mi restituisce il
progressivo attraverso il select1+max, prima ancora che questa funzione
mi restituisca il progressivo dovrebbe fare un controllo per verificare
che non ci siano "Buchi", se non c'e' ne sono mi assegna il progressivo
se invece c'e' ne mi assegna il Tappa Buco, e sino a qui ci siamo, ma
dove la piazzo la funzione cerca buco?
si potrebbe fare un qualcosa del tipo :
Privatre sub Commad1_Click()
CercaBuco
Progressivo
ecc.
ecc
ecc
end sub
considerando che progressivo e la funzione che mi restituisce il valore
numerico maggiorato di 1.
grazie
saluti
Diego


title: .... cercare un BUCO !

text:
"diego" <
diegoci...@hotmail.com
> ha scritto nel messaggio
news:1157361464....@b28g2000cwb.googlegroups.com...



ecc.
ecc
ecc
end sub

grazie
saluti
Diego
--------------------
io l'inserita per mia utilità in apertura maschera,
comunque la puoi inserire dove vuoi.
resituisce esattamente il valore mancate
(se il buco è fra 3 e 5 restituisce 4, cioè 3+1)
Ciao
Paolo


title: .... cercare un BUCO !

text:
diego ha scritto:

Se lavori in monoutenza va bene su apertura, se lavori in Multiutenza
fose è rischioso
e sarebbe meglio il BeforeUpdate di Form...!
@Alex


title: .... cercare un BUCO !

text:
> Se lavori in monoutenza va bene su apertura, se lavori in Multiutenza
> fose è rischioso
> e sarebbe meglio il BeforeUpdate di Form...!
>
> @Alex
In effetti Alex ha centrato il punto, il Db lavora in multiutenza, è
diviso in B.E ed F.E.
ed inoltre l'inserimento dati della form in questione si basa su query
di inserimento e aggiornamento essendo Forms non associate, per questo
chiedevo come potevo collocare la funzione sull'evento click del
command, dal momento che l'evento BeforeUpdate non funziona su una Form
non associata.
Grazie
Saluti
Diego


title: .... cercare un BUCO !

text:
diego ha scritto:

Su form non associate generalo prima di eseguire la Query, ci sarà
bene un pulsante che
esegue il SALVA del Record....!!!!!!
@Alex


title: .... cercare un BUCO !

text:
Alessandro Baraldi ha scritto:
>
> Su form non associate generalo prima di eseguire la Query, ci sarà
> bene un pulsante che
> esegue il SALVA del Record....!!!!!!
>
> @Alex
si che c'e'... :=))
Grazie
Saluti
Diego


title: .... cercare un BUCO !

text:
Alessandro Baraldi ha scritto:
>
> Su form non associate generalo prima di eseguire la Query, ci sarà
> bene un pulsante che
> esegue il SALVA del Record....!!!!!!
>
> @Alex
e se volessi fare di questa function una public function come dovrei
modificarla?
cioe' devo pur passargli dei parametri, da cosi:
Function CercaBuco() As Long
     Dim rs As DAO.Recordset
     Static prevN As Variant
     prevN = Null
     Set rs = CurrentDb.OpenRecordset("SELECT Numero FROM Tabella",
dbReadOnly)
     If rs.EOF Then CercaBuco = 0: Exit Function
     Do Until rs.EOF
          If IsNumeric(prevN) Then
               If (rs!Numero - prevN) > 1 Then Exit Do
          End If
          prevN = rs!Numero
          rs.MoveNext
     Loop
     CercaBuco = prevN + 1
     rs.Close
End Function
dovrebbe diventare tipo così:
Function CercaBuco(Numero as Integer, Tabella as string)
     Dim rs As DAO.Recordset
     Static prevN As Variant
     prevN = Null
     Set rs = CurrentDb.OpenRecordset("SELECT Numero FROM Tabella",
dbReadOnly)
     If rs.EOF Then CercaBuco = 0: Exit Function
     Do Until rs.EOF
          If IsNumeric(prevN) Then
               If (rs!Numero - prevN) > 1 Then Exit Do
          End If
          prevN = rs!Numero
          rs.MoveNext
     Loop
     CercaBuco = prevN + 1
     rs.Close
End Function
solo che la query non va come cacchio gli do il parametro numerico alla
query?
"SELECT" & Numero & FROM" & Tabella ?
quando faccio eseguire la funzione tramite la finestra immediata mi
dice : ERRORE DI COMPILAZIONE: TIPO NON CORROSPONDENTE PER L'ARGOMENTO
BYREF
è evidente che il parametro numerico non lo passo nel giusto modo no??
Saluti
Diego


title: .... cercare un BUCO !

text:
pero' se il valore lo passo come stringa mi funziona alla perfezione
questa e' la modifica:
Public Function CercaBuco(Numero As String, Tabella As String)
     Dim rs As DAO.Recordset
     Static prevN As Variant
     prevN = Null
     Set rs = CurrentDb.OpenRecordset("SELECT (" & Numero & ") AS New
FROM " & Tabella, dbReadOnly)
     If rs.EOF Then CercaBuco = 0: Exit Function
     Do Until rs.EOF
          If IsNumeric(prevN) Then
               If (rs!New - prevN) > 1 Then Exit Do
          End If
          prevN = rs!New
          rs.MoveNext
     Loop
     CercaBuco = prevN + 1
     rs.Close
End Function
ma per quale cavolo di motivo non mi funziona con il numerico?
Saluti
Diego


title: .... cercare un BUCO !

text:
diego ha scritto:

Diego mi pare tu stia facendo molta confusione.....!!!
Supponiamo tu voglia generalizzare la funzione, che parametri devi
rendere disponibili
alla personalizzazione...?
A mio avviso(anche se mi pare poco utile questa cosa...) 2:
1° NomeTabella
2° NomeCampo
Entrambi sono Nomi e di conseguenza STRINGHE....! Con le quali devi
ricostruire
il predicato SQL in modo corretto e si usano le parentesi QUADRE e non
TONDE:
Function CercaBuco(NumeTabella as string, NomeCampo as String)
     Dim rs As DAO.Recordset
     Dim sSQL as string
     Static prevN As Variant
     prevN = Null
     sSQL="SELECT [" & NomeCampo & "] FROM " & NomeTabella & " ORDER BY
[" & NomeCampo & "]"
     Set rs = CurrentDb.OpenRecordset(sSQL,dbReadOnly)
     If rs.EOF Then CercaBuco = 0: Exit Function
     Do Until rs.EOF
          If IsNumeric(prevN) Then
               If (rs!Numero - prevN) > 1 Then Exit Do
          End If
          prevN = rs!Numero
          rs.MoveNext
     Loop
     CercaBuco = prevN + 1
     rs.Close
End Function
E' importante anche ORDER BY per avere la certezza di trovare il 1°
buco reale....!
@Alex


title: .... cercare un BUCO !

text:
Alessandro Baraldi ha scritto:
> Diego mi pare tu stia facendo molta confusione.....!!!
INFATTI...ERO PIU' CONFUSO CHE PERSUASO!!
ADESSO LA COSA E' CHIARA PERO'
COME SEMPRE NON HO PAROLE PER RINGRAZIARTI!!
Saluti
Diego


title: Windows 10 e visualizzazione XML con browser predefinito

author: OneEDP

text:
Buon giorno NG,

per visualizzare un file XML strNomeFileTemp utilizzo la seguente istruzione:

'Apertura con browser predefinito
ShellExecuteA Application.hWndAccessApp, "open", strNomeFileTemp, vbNullString, vbNullString, 1

Dove ShellExecuteA è istanziata come segue:

Private Declare Function ShellExecuteA Lib "Shell32.dll" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

In windows 10 viene chiesto in modo snervante la conferma di utilizzare il browser predefinito nonostante l'utente indica "usa sepre questa app per aprire i file XML"

Ho provato nelle impostazioni di windows 10 ad associare i file con il browser predefinito ma non funge.

Suggerimenti?

Grazie

Daniele


text:
Se usi FollowHyperlink invece che quell'API... (avrai ugualmente la domanda)...

@Alex


author: Cheope

text:
Il 05/04/2019 09:53, OneEDP ha scritto:
> Buon giorno NG,
>
> per visualizzare un file XML strNomeFileTemp utilizzo la seguente istruzione:
>
> 'Apertura con browser predefinito
> ShellExecuteA Application.hWndAccessApp, "open", strNomeFileTemp, vbNullString, vbNullString, 1

e se indichi esplicitamente il browser , aggiungendo il parametro ? : così:
  ShellExecuteA Application.hWndAccessApp....., "open",
L"c:\\windows\\...\nomebrowser.exe".....


text:

Proverò. Grazie.


text:
...
> > e se indichi esplicitamente il browser , aggiungendo il parametro ? : così:
> >   ShellExecuteA Application.hWndAccessApp....., "open",
> > L"c:\\windows\\...\nomebrowser.exe".....
>
> Proverò. Grazie.

Ovviamente con FollowHyperlink come suggerito tutte queste "pippe" non servono a nulla dal momento che esegue il LINK con l'applicazione di Default... ma vi lascio giocare.

@Alex


text:

:-) In realtà è Windows 10 che si prende gioco di noi!! :-))


text:
..
>
> :-) In realtà è Windows 10 che si prende gioco di noi!! :-))

Non credo... tant'è che se usi il mio suggerimento, che funziona da Win3.1 ed Access2, funziona anche con Windows10 ed A365... quindi spesso qualcuno è uso fare TAFAZI.

@Alex


text:

Sì uso FollowHyperlink  ma su Win 10 (al contrario di Win 7) chiede la conferma


text:
...
> Sì uso FollowHyperlink  ma su Win 10 (al contrario di Win 7) chiede la conferma

Sono le POLICY di Win10 la differenza non è questione del METODO usato...
L'uso di FollowHyperlink e SHELL invocano la stessa chiamata al S.O. !

Verifica in W10 cosa, in relazione alle POLICY, vada modificato, vai nelle impostazioni di sicurezza Area Internet e verifica li.

@Alex


title: Run Time con XP Developer

author: Re Artů

text:
Ciao a tutti
Ho creato un programma di installazione con XP Dev, includendo il run time
di access xp
Installandolo su un pc con solo xp pro, non č stato installato il run time
di access, manca il file msaccess.exe
Lancianto a mano il setup del run time dalla cartella di installazione
successivamente viene installato e funziona tutto, a parte i collegamenti
nel menů programma che fanno riferimento ad un percorso errato per l'exe.
Credo che basti capire perchč non viene installato il run time al primo
colpo per risolvere il problema
Grazie
Ciao
Luca


title: Run Time con XP Developer

text:
"Re Artů" <
lucc...@tiscali.it
> ha scritto nel messaggio
news:bs6g09$9rjk2$1...@ID-202568.news.uni-berlin.de...

Funziona tutto. Ho riprovato varie volte su w98 e wXp e nessun problema.
bo....un caso
Ciao
Luca


title: SitoComune - Forms 3.122 Database di esempio delle due FAQ relative a Come creare un controllo di ricerca - Evidenziare campo attivo con ricerca da pressione tasto INVIO

author: EmMeCi - Style

text:
Scusate l'oggetto Kilometrico...non è la giornata tipo di quelle buone,
meglio di così non riuscivo a metterlo giu!
Come da oggetto, se uso il di ricerca.mdb - form COMUNI1 vorrei ottenere
quanto segue:
A seconda che io scelga di filtrare da parte del campo o inizio campo, se
scrivo la mia stringa di ricerca e premo invio, il record attivo  vorrei si
evidenziasse di rosso ... oggi la formattazione condizionale non mi riesce,
da codice ... beh ... non sarei qui a chiedere aiuto altrimenti.
Provato su google ma ripeto, oggi purtroppo non c'è verso di lavorar bene
... causa nevralgia dolorosissima.
Scusate nel caso sia, come immagino, argomento trito e ritrito ... ma di più
oggi non ho potuto ...
Grazie anticipatamente per ogni Vs. gradito aiuto.
Buona giornata, la mia proseguirà con un bell'aulin :o(
--
**********
EmMeCi - Strano...Mavero
**********
Inviato da X-Privat.Org - Registrazione gratuita
http://www.x-privat.org/join.php


author: Roberto da casa

text:
"EmMeCi - Style" <
mcs...@email.it
> ha scritto nel messaggio
news:44634317$1...@x-privat.org...
> Scusate l'oggetto Kilometrico...non è la giornata tipo di quelle buone,
> meglio di così non riuscivo a metterlo giu!
> Come da oggetto, se uso il di ricerca.mdb - form COMUNI1 vorrei ottenere
> quanto segue:
>
> A seconda che io scelga di filtrare da parte del campo o inizio campo, se
> scrivo la mia stringa di ricerca e premo invio, il record attivo  vorrei
si
> evidenziasse di rosso ... oggi la formattazione condizionale non mi
riesce,
> da codice ... beh ... non sarei qui a chiedere aiuto altrimenti.
>
> Provato su google ma ripeto, oggi purtroppo non c'è verso di lavorar bene
> ... causa nevralgia dolorosissima.
>
> Scusate nel caso sia, come immagino, argomento trito e ritrito ... ma di
più
> oggi non ho potuto ...
>
> Grazie anticipatamente per ogni Vs. gradito aiuto.
> Buona giornata, la mia proseguirà con un bell'aulin :o(
Potresti ricavarti l'ID del record (o del primo record selezionato) quindi
evidenziare la riga corrispondente; per fare questo puoi dare un'occhiata
sul Sito Comune (sezione Forms) alla FAQ di Silvio Savoldi intitolata "3.57
Evidenziare records specifici nelle maschere continue".
>
>
> --
> **********
> EmMeCi - Strano...Mavero
> **********
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Aiuto traduzione parola siciliana

author: badush

text:
Ciao Elvira mentre ti scrivo mi sto scaricando il testo della canzone
"Vitti na crozza" Che significa crozza?
Sicuramente saprai cosa significa perché sei tu sempre  la piu brava!!
Parola mia, di Rispoli, Chiara Gambarale, ecc...... e puru di l'aceddu.


title: Aiuto traduzione parola siciliana

author: Antonio Biso

text:
"badush" <
bad...@martucci.com
> ha scritto nel messaggio
news:jGgVa.210295$lK4.6...@twister1.libero.it...

Hai provato ad utilizzare la funzione Traduce() ?
Antonio


title: Aiuto traduzione parola siciliana

author: Sergio MAZZA

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:SCoVa.210704$lK4.6...@twister1.libero.it...
>
> Hai provato ad utilizzare la funzione Traduce() ?
>
> Antonio
Che chiaramente nella versione 97 non c'č... Mannaggia!
Ciao.
--
Sergio MAZZA


title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bg64lq$lre$1...@canarie.caspur.it...

> Sergio MAZZA
Sib č in ferie......???
Pottrebe se ben retribuito spedire il Runtime della dll
non inclusa nel SP contenente il Traduttore.....tipo Babilon,
solo sarebbe Sicilcon....!
@Alex.


title: Aiuto traduzione parola siciliana

author: happy

text:
"badush" <
bad...@martucci.com
> ha scritto nel messaggio
news:jGgVa.210295$lK4.6...@twister1.libero.it...

Non sono elvira, ma se vuoi ti traduco la parola "crozza" ;
 nel caso specifico della canzone significa  "teschio"  ma anche testa et
similia.
Ciaoooo
Antonio


title: Aiuto traduzione parola siciliana

author: Sib

text:
"badush" <
bad...@martucci.com
> ha scritto nel messaggio

Eccoci pronti!
Servizio traduzione siculo-italiano on line.
crozza vuol dire "teschio" o "testa".
cruzzune vuol dire "testone", "testa dura" "essere di coccio".
------
vitti na crozza ("vidi un teschio")
supra nu cannuni ...
fuvu curuiusu e ci vosi spiari ("fui curioso e gli volli domandare")
idda m'arrispunniu, chi gran duluri ("lei mi rispose, che gran dolore")
moriri senza toccu di campani.
------
Non traduco le parti che si intuiscono e vi risparmio le strofe successive.
Sib


title: Aiuto traduzione parola siciliana

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:eFKVa.45353$Za4.1...@news2.tin.it...
>
----- omissis -----
> ------
> vitti na crozza ("vidi un teschio")
> supra nu cannuni ...
> fuvu curuiusu e ci vosi spiari ("fui curioso e gli volli domandare")
> idda m'arrispunniu, chi gran duluri ("lei mi rispose, che gran dolore")
> moriri senza toccu di campani.
> ------
Hai la tastiera sporca...
> Sib
Ciao.
--
Sergio MAZZA


title: Aiuto traduzione parola siciliana

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:SayVa.212145$Ny5.6...@twister2.libero.it...
>
> Sib č in ferie......???
No č intento a spillar quattrini al comune di nonsňdove...
> Pottrebe se ben retribuito spedire il Runtime della dll
> non inclusa nel SP contenente il Traduttore.....tipo Babilon,
> solo sarebbe Sicilcon....!
o Sibilon...
> @Alex.
Ciao.
--
Sergio MAZZA


title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> >
> ----- omissis -----
> > ------
> > vitti na crozza ("vidi un teschio")
> > supra nu cannuni ...
> > fuvu curuiusu e ci vosi spiari ("fui curioso e gli volli domandare")
> > idda m'arrispunniu, chi gran duluri ("lei mi rispose, che gran dolore")
> > moriri senza toccu di campani.
> > ------
>
> Hai la tastiera sporca...
>
> > Sib
>
> Ciao.
>
> --
> Sergio MAZZA
Scusa, scusa...
vecchie reminiscenze...
Sib


title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
> "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> >
> > Sib è in ferie......???
>
> No è intento a spillar quattrini al comune di nonsòdove...
Ci sono comuni che ancora mi rimpiangono.
Al comune di Misilmeri, quando ho lasciato la ditta per cui gli facevo
assistenza, mi hanno fatto cercare a casa (non so neanche come hanno avuto
il numero) perche' il nuovo tecnico non gli dava affidamento.
> > Pottrebe se ben retribuito spedire il Runtime della dll
> > non inclusa nel SP contenente il Traduttore.....tipo Babilon,
> > solo sarebbe Sicilcon....!
>
> o Sibilon...
Bellissimo.
Questo sara' il nome del mio prossimo SW.
Ovviamente, date certe assonanze, conterra' anche delle parti di codice che
mi invieranno a poco a poco il contenuto dell'HD dei clienti che lo
installeranno.
Sib


title: Aiuto traduzione parola siciliana

author: omasnc

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:eFKVa.45353$Za4.1...@news2.tin.it...
> "badush" <
bad...@martucci.com
> ha scritto nel messaggio
cut
> Servizio traduzione siculo-italiano on line.
> crozza vuol dire "teschio" o "testa".
> cruzzune vuol dire "testone", "testa dura" "essere di coccio".
Ecco perchè il comico Crozza si chiama così: con quella capoccia!
Allora è vero che le qualità delle persone dipendono dai nomi:)
Ciao
Galliano.


title: Aiuto traduzione parola siciliana

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:MFLVa.30798$Df5.9...@news1.tin.it...
>
> Ci sono comuni che ancora mi rimpiangono.
Eh! Eh! Non ne avevo dubbi; Lbo si stà comprando la moto nuova, al porto di
Ostia c'è una motonave che si chiama "Biso"... Se tanto mi d'ha tanto...
> Al comune di Misilmeri, quando ho lasciato la ditta per cui gli facevo
> assistenza, mi hanno fatto cercare a casa (non so neanche come hanno avuto
> il numero) perche' il nuovo tecnico non gli dava affidamento.
Bastava fare il 112..
> Bellissimo.
Calma, calma; che gli racconti alla mogliera?
> Questo sara' il nome del mio prossimo SW.
> Ovviamente, date certe assonanze, conterra' anche delle parti di codice
che
> mi invieranno a poco a poco il contenuto dell'HD dei clienti che lo
> installeranno.
>
> Sib
Eh! Eh! Ma voglio un percentuale!
Ciao.
P.S. Comunque è successo pure a me di essere richiamato dopo anni... Un buon
lavoro paga sempre.
--
Sergio MAZZA


title: Aiuto traduzione parola siciliana

text:
"omasnc" <
omaTOGL...@rdn.it
> ha scritto nel messaggio
news:HyQVa.214116$lK4.6...@twister1.libero.it...
>
> Ecco perchè il comico Crozza si chiama così: con quella capoccia!
> Allora è vero che le qualità delle persone dipendono dai nomi:)
>
> Ciao
>
> Galliano.
Mannaggia hai scoperto il mio punto forte...
Ciao.
--
Sergio MAZZA


title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bg8m0b$dtj$1...@canarie.caspur.it...

Certe scoperte le lascio volentieri ad altri meglio disposti :)
Galliano


title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > Al comune di Misilmeri, quando ho lasciato la ditta per cui gli facevo
> > assistenza, mi hanno fatto cercare a casa (non so neanche come hanno
avuto
> > il numero) perche' il nuovo tecnico non gli dava affidamento.
>
> Bastava fare il 112..
hehehe.
cut
> > Questo sara' il nome del mio prossimo SW.
> > Ovviamente, date certe assonanze, conterra' anche delle parti di codice
> che
> > mi invieranno a poco a poco il contenuto dell'HD dei clienti che lo
> > installeranno.
> >
> > Sib
>
> Eh! Eh! Ma voglio un percentuale!
in euro o in Mbyte?
> Ciao.
>
> P.S. Comunque è successo pure a me di essere richiamato dopo anni... Un
buon
> lavoro paga sempre.
Vero.
> --
> Sergio MAZZA
Sib


title: Aiuto traduzione parola siciliana

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:nQRVa.284$cl3....@news2.tin.it...
>
> in euro o in Mbyte?
Ah! Prima mi chiama tesoro e ora fa il venale!!! Pfui...



title: Aiuto traduzione parola siciliana

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> >
> > in euro o in Mbyte?
>
> Ah! Prima mi chiama tesoro e ora fa il venale!!! Pfui...
Viviamo in un'epoca materialista!
Sib


title: HELP ME !!

author: Geo

text:
E' da tempo che chiedo sull'NG se c'è qualcuno che sa come far funzionare un
file di Access (.mdb) in assenza di access installato,
ho sentito parlare di file ODBC e altro installato dopo era possibile farlo
eseguire.
Inviate per favore in merito notizie su come fare, GRAZIE !!!!
sin...@usa.net


title: HELP ME !!

author: Ricky

text:
"Geo" <
ken...@usa.net
> wrote in message news:8dl8p2$5ii$1...@nmaster.tin.it...

Ci vuole l'access runtime che puoi distribuire se ha Office Dev. Edition
Ciao da Ricky


title: HELP ME !!

author: lbo dal portatile

text:
>E' da tempo che chiedo sull'NG se c'è qualcuno che sa come far funzionare un
>file di Access (.mdb) in assenza di access installato,
dai un'occhiata al faqqone sul sito comune.
si parla di una cosa chiamata ode.
per il momento comunque ode e' stato ritirato dal mercato iun quanto
troppo pieno di bug, almeno la versione 2000.  la versione 97, che
andava benino, ovviamente non si trova piu'.
>ho sentito parlare di file ODBC e altro installato dopo era possibile farlo
>eseguire.
odbc non c'entra asssssssssolutamente niente.  odbc e' la sigla di uno
standard tra case produttrici di gestori database (quindi microsoft,
oracle, informix, borland ecc.) per permettere l'interscambio di dati
tra db di diversi produttori.
>Inviate per favore in merito notizie su come fare, GRAZIE !!!!
vientele a leggere sul ng.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: fatturazione

author: FrancescoFranz

text:
Sto cercando un freeware per gestire la
fatturazione, sia con che senza ritenuta
d'acconto, possibilmente con funzioni statistiche.
Qualcuno può darmi qualche dritta?
Saluti
FrancescoFranz


title: EVENTO DOPO AGGIORNAMENTO! PROBLEMA?

author: Roberto

text:
CIAO A TUTTI,
USO UNA MACRO CON LA FUNZIONE "ApplicaFiltro" SU EVENTO DOPO AGGIORNAMENTO
DELLA CASELLA DI TESTO.
SUL MIO PC TUTTO FUNZIONA CORRETTAMENTE.
SUI PC DEI MIEI COLLEGHI VIENE ESEGUITA SOLO AL PRIMO AGGIORNAMENTO E NOI AI
SUCCESSIVI.
QUINDI BISOGNA CHIUDERE E APRIRE LA MASCHERA.
DA COSA PUO' DIPENDERE?
GRAZIE
ROBERTO


title: EVENTO DOPO AGGIORNAMENTO! PROBLEMA?

text:
"Roberto" <
robyh...@virgilio.it
> ha scritto nel messaggio
news:0vQec.65328$rM4.2...@news4.tin.it...
> CIAO A TUTTI,
Mi (CI) hai assordito!!!
Antonio


title: da access a Visual basic

author: Ugo

text:
ho trovato in internet il seguente sito:
http://www.gfminc.com/
si tratta di una societa' specializzata nella conversione dei database da
access a Visual basic,  rendendo il database, dopo la conversione, autonomo
da access.
il prezzo del programma e' di oltre 400 euro.
Qualcuno del gruppo lo ha provato??? Funziona veramente??
Ha dei limiti, o delle falle??? Se veramente funzionasse bene, costo a
parte, risolverebbe molti problemi a tanti di noi.
Grazie. Ugo
---o-o-o-o-o-o-o-o-o-o-o-o-o--o-o-o-o-o-o-o----
ALBERGHI DA SBALLO ! ! !
Ci sono alberghi scavati nel tufo, altri fatti di sale, altri con il
ghiaccio, altri ancora costruiti sott'acqua, o sugli alberi, o sotto terra.
Ecco un piccolo elenco di questi singolari
alberghi.
www.geocities.com/probiviro/alberghi.htm
---o-o-o-o-o-o-o-o-o-o-o-o-o--o-o-o-o-o-o-o----


title: da access a Visual basic

text:
> ho trovato in internet il seguente sito:
>
http://www.gfminc.com/
> si tratta di una societa' specializzata nella conversione dei database da
> access a Visual basic,  rendendo il database, dopo la conversione,
autonomo
> da access.
Mhà!!!!! ... titubante lo sono e come!
> il prezzo del programma e' di oltre 400 euro.
400 euro per qualcosa che come dici tu
> risolverebbe molti problemi a tanti di noi.
????
> Qualcuno del gruppo lo ha provato??? Funziona veramente??
> Ha dei limiti, o delle falle???
Io non l'ho provato... ma vedi un attimo il listino di una versione
"Developper" di Access... è due volte tanto, ed è solo un compilatore di
Access!!!
Le sue funzioni le avrà di sicuro, ma chissà quanto vicine alle tue
aspettative!
Maurizio


title: da access a Visual basic

author: Emyr

text:
On Tue, 12 Mar 2002 09:06:34 +0100, "Ugo" <
ugo....@tiscalinet.it
>
wrote:

ma se con circa 600 € ti compri il developer upgrade che te ne fai di
questo che costa 400 e che sicuramente nn fà tutto?
Saluti.
Emanuele.


title: da access a Visual basic

author: Oscar Manfredini

text:
"Ugo" <
> Ha dei limiti, o delle falle??? Se veramente funzionasse bene, costo a
> parte, risolverebbe molti problemi a tanti di noi.
Potresti comprare Office Developer...
Ciao.


title: da access a Visual basic

author: Alessandro

text:
"Ugo" <
ugo....@tiscalinet.it
> wrote in message
news:a6kcuu$app$1...@pegasus.tiscalinet.it...
> ho trovato in internet il seguente sito:
>
http://www.gfminc.com/
> si tratta di una societa' specializzata nella conversione dei database da
> access a Visual basic,  rendendo il database, dopo la conversione, autonomo
> da access.
> il prezzo del programma e' di oltre 400 euro.
> Qualcuno del gruppo lo ha provato??? Funziona veramente??
> Ha dei limiti, o delle falle??? Se veramente funzionasse bene, costo a
> parte, risolverebbe molti problemi a tanti di noi.
> Grazie. Ugo
>
Bada bene al controsenso, ti rendi autonomo da ACCESS e ti rendi
schiavo del RUNTIME di VB.
Ricordati che VB non crea dei veri EXE, ma li simula sfruttando
le librerie Runtime.
Secondo te c'è differenza...???
Con Developper Tools fai la stessa cosa.
Limiti o falle...???
Si sono soldi che forse è meglio valutare se investire in altro modo.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Re: destinazione diversa del cliente

author: Popi - TheBadHabits

text:
On 4 Mag, 08:51, ugo conte <
ugo.cont...@gmail.com
> wrote:
> Ciao a tutti
>
> volendo aggiungere una destinazione diversa del cliente
> come devo procedere e che relazione devo creare?
Ciao!
Una soluzione potrebbe essere aggiungere una tabella
Clienti_Destinazioni con campi
CodiceCliente
CodiceDest
NomeDest
IndirizzoDest
La chiave primaria sarebbe composta da CodiceCliente e CodiceDest, e
la relazione dovrebbe essere impostata con la tabella Clienti in base
al campo CodiceCliente.
A quel punto, nella maschera con cui gestisci questi dati (fatture?
spedizioni?)  avrai un combo che ti permette di scegliere il cliente
e, in base a quello, popolera' un'altra combo contenente le
destinazioni a questo associate.
HTH
Popi


title: Re: destinazione diversa del cliente

text:
On 4 Mag, 09:41, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 4 Mag, 09:20, ugo conte <
ugo.cont...@gmail.com
> wrote:

> > ciao Popi
>
> > io avrei impostato così la Tb:
> > IDdestinazionediversa, numerico duplicati non ammessi
> > NomeCliente, testo
> > IndirizzoDiverso, testo
> > CittàDiversa, testo
> > CAP, testo
>
> > ma ho bisogno d'aiuto per proseguire
> > Grazie
>
> ciao Popi
> ho fatto così, eventualmente correggimi;
>
> TbClientiDestinazioni
> IdNomeCliente in relazione con l'id Clienti della TbClienti
> uno a molti con applica integrità referenziale e aggiorna campi a
> catena;
> IndirizzoDiverso, testo
> CittàDiversa, testo
> CAP, testo
>
> Poi nella TbClientiDestinazioni
> in ricerca dell'IDNomeCliente
> ho inserito in visualizza controllo
> casella combinata per visualizzare
> il nome del cliente invece dell'ID
Ma il Cliente ha veramente 2 Destinazioni oppure ha solo cambiato la
precedente...?
Nel 1° Caso devi affrontare lo sviluppo implementando una Relazione 1-
Molti, e potrebbe essere il caso di Clienti con Molte sedi, devi però
distinguere il dato in Tabella Anagrafica che dovrebbe
riportare la Sede Legale(SEMPRE E SOLO UNICA) da quelle che possono
essere sedi Commerciali...
Detto questo direi che la cosa è banale... fai tuttavia attenzione che
la Tabella Destinazioni deve essere relazionata anche alla eventuale
Tabella Acquisti o Consegne... in quanto per ogni Movimento merce o
contabile
potresti aver bisogno del relativo riferimento di locazione di
consegna(Destinazione)...
@Alex


title: Re: destinazione diversa del cliente

text:
On 4 Mag, 17:14, ugo conte <
ugo.cont...@gmail.com
> wrote:

> grazie Alex per l'aiuto
> ma non ho ben capito.
>
> io ho una TbClienti
> ed ora una TbClientiDestinazioni (per eventuali destinazioni diverse
> del cliente)
> Ora a me servirebbe avere l'IdClientiDestinazioni nella TbClienti o
> sbaglio?
> perchè se è così non riesco a farsi che l'id contatore della
> TbClientiDestinazioni
> finisca nel campo IdClientiDestinazioni della TbClienti.
Dipende che cosa significa per te Destinazione...!
Normalmente come ti ripeto la destinazione intesa come Indirizzo
Fiscale dell'azienda è solo ed unicamente uno, e nella TabClienti
io metto quello...!
Ciò non toglie che un'azienda possa avere indirizzi(Destinazioni)
commerciali multiple..., in questo caso la relazione è al contrario di
come la dici tu...!
Ogni Cliente(Anagrafica) ha MOLTE destinazioni, quindi sarà nella
Tabella DestinazioniCliente che devi mettere come ChiaveEsterna
IDCLiente e non viceversa...!
Devi però pensare a DOVE è utile accedere alle destinazioni
commerciali del cliente... di certo non per l'invio della Fattura...
quello è di solito l'indirizzo
fiscale(quello che trovo in camera di commercio per capire)... quindi
è quello salvato nell'anagrafica...!
Se si parla di COnsegna/Spedizione l'accesso alle possibili
Destinazioni del Cliente serve solo per la consegna, quindi non va
legato alla tabella Clienti, ma alla tabella MovimentoMerci...
Tuttavia stiamo parlando di nulla in quanto non sò di cosa parli come
struttura non è chiara l'esigenza ecc..., ho voluto solo darti
un'indicazione nell'ottica della strutturazione.
@Alex


title: Re: destinazione diversa del cliente

text:
CUT]
>Hai capito perfettamente il problema.
>In pratica io devo riportare nel documento di trasporto
>per la consegna
>l'Indirizzo della sede ma se la consegna =E8  in un magazzino
>secondario entrambi.
>Quindi avr=F2 2 indirizzi.
>
>Grazie
Allora è molto più semplice. SE E SOLO SE puoi avere solo l'anagrafica cliente
e un ipotetico luogo di destinazione (non per forza diverso dall'anagrafica)
io aggiungerei alla tab clienti i campi
SpedNominativo
SpedIndirizzo
SpedCittà
SpedNcivico
SpedCAP
Nella maschera di inserimeno e modifica fai in modo che se lasci vuoti i campi
Sped, si copi il nominativo e l'indirizzo anagrafico. Nelle bolle usi SEMPRE i
campi Sped e sei a posto
--


title: Re: destinazione diversa del cliente

text:

Ma no... se avesse più destinazioni di spedizione che fai torni punto
a capo...!
La soluzione è quella che dicevo io, ed è strutturalmentr il
contrario, tabella esterna con chiave da TabellaClienti.
Quando vai a compilare la distinta per la spedizione dalla Combo di
LuogoConsegna peschi dalla Tabella Legata al Cliente...
Non complichiamoci la vita...
@Alex


title: Re: destinazione diversa del cliente

text:
@Alex ha scritto:
>On 5 Mag, 00:41, Fair87<
roby....@gmail.com
> wrote:
>> CUT]
>>
>> >Hai capito perfettamente il problema.
>> >In pratica io devo riportare nel documento di trasporto
>> >per la consegna
>> >l'Indirizzo della sede ma se la consegna =3DE8 =A0in un magazzino
>> >secondario entrambi.
>> >Quindi avr=3DF2 2 indirizzi.
>>
>> >Grazie
>>
>> Allora =E8 molto pi=F9 semplice. SE E SOLO SE puoi avere solo l'anagrafic=
>a cliente
>> e un ipotetico luogo di destinazione (non per forza diverso dall'anagrafi=
>ca)
>> io aggiungerei alla tab clienti i campi
>> SpedNominativo
>> SpedIndirizzo
>> SpedCitt=E0
>> SpedNcivico
>> SpedCAP
>>
>> Nella maschera di inserimeno e modifica fai in modo che se lasci vuoti i =
>campi
>> Sped, si copi il nominativo e l'indirizzo anagrafico. Nelle bolle usi SEM=
>PRE i
>> campi Sped e sei a posto
>>
>> --
>
>Ma no... se avesse pi=F9 destinazioni di spedizione che fai torni punto
>a capo...!
>La soluzione =E8 quella che dicevo io, ed =E8 strutturalmentr il
>contrario, tabella esterna con chiave da TabellaClienti.
>Quando vai a compilare la distinta per la spedizione dalla Combo di
>LuogoConsegna peschi dalla Tabella Legata al Cliente...
>
>Non complichiamoci la vita...
>
>@Alex
La tua è la soluzione perfetta e generalizzata (quello che poi uso io nei
gestionali!!! :) ). Ma se il caso non è multidestinatario.....si ma se poi lo
diventa? Hai ragione......
--


title: Re: destinazione diversa del cliente

text:

Io ragiono sempre nell'ottica di non dover lavorare domani se oggi con
1ora di lavoro in più posso evitarlo.
@Alex


title: login msde

author: ciroteo

text:
Spero di intervenire a proposito.
Ho fatto un po' di prove con msde e stavo testando le connessioni dei
client.
Questo č ciň che ho fatto: (seguendo anche l'esempio di connessione dal
sitocomune)
creo una nuova connessione
indico l'ip del pc su cui gira sqlserver
login con sa e relativa pwd ...
ma mi esce una bella scritta di errore:
SALState: '01000'
Errore di SQL Server:10061 Impossibile effettuare la connessione:
SQLState:'08001'
Errore di SQL Server:17
in locale funziona benissimo.
(a proposito... il progetto di database serve x amministrare le varie
tabelle e poi posso usare un normale db access x i client,collegando
soltanto le tabelle e mantenendo query,report,maschere di access... ho
capito bene??)


title: login msde

author: AEOM

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c1nb32$157$1...@hulme.interac.it...
> Spero di intervenire a proposito.
> Ho fatto un po' di prove con msde e stavo testando le connessioni dei
> client.
> Questo è ciò che ho fatto: (seguendo anche l'esempio di connessione dal
> sitocomune)
> creo una nuova connessione
> indico l'ip del pc su cui gira sqlserver
> login con sa e relativa pwd ...
> ma mi esce una bella scritta di errore:
>
> SALState: '01000'
> Errore di SQL Server:10061 Impossibile effettuare la connessione:
> SQLState:'08001'
> Errore di SQL Server:17
>
> in locale funziona benissimo.
>
> (a proposito... il progetto di database serve x amministrare le varie
> tabelle e poi posso usare un normale db access x i client,collegando
> soltanto le tabelle e mantenendo query,report,maschere di access... ho
> capito bene??)
>
usi l'autenticazione di sql server o quella mista?
su che s.o. è il server?
ciao,
AEOM


title: login msde

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:LlG%b.29746$gk.11...@news3.tin.it...
>
> "ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
> news:c1nb32$157$1...@hulme.interac.it...
> > Spero di intervenire a proposito.
> > Ho fatto un po' di prove con msde e stavo testando le connessioni dei
> > client.
> > Questo č ciň che ho fatto: (seguendo anche l'esempio di connessione dal
> > sitocomune)
> > creo una nuova connessione
> > indico l'ip del pc su cui gira sqlserver
> > login con sa e relativa pwd ...
> > ma mi esce una bella scritta di errore:
> >
> > SALState: '01000'
> > Errore di SQL Server:10061 Impossibile effettuare la connessione:
> > SQLState:'08001'
> > Errore di SQL Server:17
> >
> > in locale funziona benissimo.
> >
> > (a proposito... il progetto di database serve x amministrare le varie
> > tabelle e poi posso usare un normale db access x i client,collegando
> > soltanto le tabelle e mantenendo query,report,maschere di access... ho
> > capito bene??)
> >
> usi l'autenticazione di sql server o quella mista?
> su che s.o. č il server?
>
> ciao,
> AEOM
>
>
ho fatto un'installazione mista:
setup.exe sapwd="pwd" ...
il s.o. č winxp su client e server.
Non vorrei che fosse problemi di rete o firewall ...


title: login msde

author: Giorgio Prx

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c1nb32$157$1...@hulme.interac.it...
> Spero di intervenire a proposito.
> Ho fatto un po' di prove con msde e stavo testando le connessioni dei
> client.
> Questo è ciò che ho fatto: (seguendo anche l'esempio di connessione dal
> sitocomune)
> creo una nuova connessione
> indico l'ip del pc su cui gira sqlserver
> login con sa e relativa pwd ...
> ma mi esce una bella scritta di errore:
>
> SALState: '01000'
> Errore di SQL Server:10061 Impossibile effettuare la connessione:
> SQLState:'08001'
> Errore di SQL Server:17
>
> in locale funziona benissimo.
per default l'installazione di msde (in computer con SO Win2000 WinXp WinNt)
utilizza l'autenticazione di Windows quindi non puoi collegardi con
un'autenticazione di Sql Server.
Per risolvere
HOW TO: Connect to Microsoft Desktop Engine
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q319930
> (a proposito... il progetto di database serve x amministrare le varie
> tabelle e poi posso usare un normale db access x i client,collegando
> soltanto le tabelle e mantenendo query,report,maschere di access... ho
> capito bene??)
>
 capito male !!
Un progetto ADP o ADE utilizza il linguaggio T-SQL e comunica con Sqlserver
via ADO, se vuoi allegare le tabelle in un'applicazione MDB e utilizzare le
tue query (DAO) devi usare il driver ODBC.
Ciao Giorgio


title: login msde

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
news:c1nf4b$to8$1...@lacerta.tiscalinet.it...
>
> "ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
> news:c1nb32$157$1...@hulme.interac.it...
> > Spero di intervenire a proposito.
> > Ho fatto un po' di prove con msde e stavo testando le connessioni dei
> > client.
> > Questo č ciň che ho fatto: (seguendo anche l'esempio di connessione dal

Scusa Giorgio non mi sono spiegato bene.
Volevo dire che nel caso passassi a msde come be, potrei utilizzare io, in
quanto "amministratore" del db un progetto .adp con cui gestire le tabelle,
e lasciare i singoli client con l'applicazione .mdb  solamente collegando le
tabelle via odbc.
In tal modo manterrei il lavoro fatto finora su query maschere e vba.
Che ne dici ? In questo caso non guadagno un bel niente in prestazioni?
Pensavo che in questo modo potrei fare un backup piů sicuro usando
msdemanager e avere un maggior carico di dati


title: aiuto cancellare contenuto campo

author: sissione

text:
Se possibile avrei bisogno di un Vs. aiuto o per meglio dire di un Vs.
codice di programmazione.
Avrei l'esigenza che ogni qualvolta apro la maschera (se Vi viene piů
facile anche tramite un pulsante dentro la maschera) "giovanni", cancelli
tutto il contenuto del campo numerico "selezione".
Ovviamente i dati del campo numerico "selezione" dovranno rimanere
memorizzati fino al prossimo riavvio della maschera (o cliccando
sull'eventuale pulsante) in maniera tale da poterli stampare tramite
report.
distinti saluti.
PS. cercate di essere il piů semplice possibili perchč conosco
pochissimissimo di programmazione.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: aiuto cancellare contenuto campo

author: CIDI

text:
"sissione" <
siss...@libero.it
> ha scritto nel messaggio
news:f4dvui$tom$1...@news.newsland.it...
> Se possibile avrei bisogno di un Vs. aiuto o per meglio dire di un Vs.
> codice di programmazione.
> Avrei l'esigenza che ogni qualvolta apro la maschera (se Vi viene piů
> facile anche tramite un pulsante dentro la maschera) "giovanni", cancelli
> tutto il contenuto del campo numerico "selezione".
Premesso che i campi si trovano in tabelle e query, nelle maschere e
report si chiamano "Controlli".
ciň che tu chiami: campo numerico "selezione" č un controllo della
maschera "giovanni"?
> Ovviamente i dati del campo numerico "selezione" dovranno rimanere
> memorizzati fino al prossimo riavvio della maschera (o cliccando
> sull'eventuale pulsante) in maniera tale da poterli stampare tramite
> report.
questa non l'ho capita, chiarisci meglio aggiungendo qualche altra info.
> distinti saluti.
>
> PS. cercate di essere il piů semplice possibili perchč conosco
> pochissimissimo di programmazione.
>
> --
Ciao
Daniele


title: aiuto cancellare contenuto campo

author: Access

text:
Ciao sissione,
"sissione" <
siss...@libero.it
> ha scritto nel messaggio
news:f4dvui$tom$1...@news.newsland.it...
--cut--
> PS. cercate di essere il più semplice possibili perchè conosco
> pochissimissimo di programmazione.
Inizia ad essere piu' chiaro.
Definisci meglio cio che vuoi fare
Ciao
Access


title: aiuto cancellare contenuto campo

text:
Allora cercherò di spiegarmi meglio.
Io ho una tabella con 4 campi testo
COGNOME
NOME
VIA
CITTA'
ed uno numerico
SELEZIONE
Tramite una query fatta con l'autocomposizione metto dei controlli per
l'ordinamento o la stampa.
Con la maschera "GIOVANNI" fatta sempre con l'autocomposizione inserisco i
dati in tutti i campi sopracitati.
Ora io cosa faccio tramite la maschera inserisco oltre i dati negli altri
campi nel campo "selezione" immetto un codice a piacimento che mi permette
una volta che apro il report, di stampare (sfruttando la query) solo le
schede che anno il codice ad esempio 50.
Il mio problema è per evitare di utilizzare sempre lo stesso codice vorrei
che solo quando apro la maschera di inserimento o tramite un pulsante
inserito dentro la maschera, di cancellare i dati dentro il campo
"selezione" prima che io immetto il nuovo codice.
Mi è successo di stampare schede che non mi interessavano perchè magari in
precedenza avevo utilizzato lo stesso codice.
Ovviamente gli altri dati non dovranno essere cancellati.
Sperando che stavolta sia stato più chiaro, invio distinti saluti e
ringrazio per la Vs collaborazione.



title: Query in orizzontale da qry verticale...

author: Announced

text:
Ciao ragazzi...
ho una query con questa struttura:
ID   NomeCliente     NroPrev      ImpPrev
1     A                      111           10,00
5     A                      222           12,00
7     A                      333           14,00
8     B                      444           15,00
10   B                      555           18,00
Dovrei ottenere questo:
Nome Cliente            Testo
A                              Nro111  Imp10,00; Nro222  Imp12,00;
Nro333  Imp14,00
B                              Nro444  Imp15,00; Nro555  Imp18,00
Mi aiutereste a capire come posso fare?
Grazie
Paolo


author: Gabriele Bertolucci

text:
[CUT]
Purtroppo tra le funzioni di raggruppamento non è prevista la concatenazione
di stringhe.
Con una query non puoi risolvere.
Ti serve il VBA.
Per la prossima volta: cercare prima su Google per verificare se il problema
è stato già trattato.
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/d3ab4b78c0d052c9/cf1d2772b6cb1d78?lnk=st&q=query+di+raggruppamento+concatenazione+di+stringhe&rnum=2&hl=it#cf1d2772b6cb1d78
http://groups.google.it/group/microsoft.public.it.office.access/browse_thread/thread/bf46b91179f01726/6aa08fadd049161a?lnk=st&q=query+di+raggruppamento+concatenazione+di+stringhe&rnum=5&hl=it#6aa08fadd049161a
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
Ti tingrazio Gabriele,
...credimi ho cercato e anche parecchio, solo che ho cercato nel modo
sbagliato.
Grazie ancora per l'indicazione.
Ciao
Paolo


title: Sendkeys

author: Rosario

text:
come faccio a scrivere nella macro che usa sendkey la combianzione di
caratteri CRTL + '?
Thanks


title: Sendkeys

author: Carlo Costarella

text:
"Rosario" <
rci...@tin.it
> ha scritto nel messaggio
news:5zUqe.9046$75.6...@news4.tin.it...
> come faccio a scrivere nella macro che usa sendkey la combianzione di
> caratteri CRTL + '?
> Thanks
>
Il tasto CTRL è simboleggiato da: "^"
quindi Sendkeys "^ quello che vuoi"
Non dimenticare di leggere la guida a: "Istruzione SendKeys".
Inoltre qui puoi trovare delle notizie:
http://www.donkarl.com/it/
  paragrafo 7(bug).8
Ciao, Carlo


title: MsComm32.ocx

author: almorel

text:
Salve a tutti, sono un neo iscritto con un problema...
Ho sviluppato varie applicazioni per acquisire dati da porta seriale
utilizzando l'ocx in oggetto. Da circa un mese, però, Access mi dice
che non lo supporta e me lo fa vedere come un oggetto grafico. Credo
che il  fatto sia accaduto dopo avere installato qualcosa (?) sul PC,
infatti, effettuando il rispristino al 12 giugno, la normale
funzionalità riprende (solo che poi mi perdo varie altre cose).
Qualcuno può darmi lumi ? Ovviamente ho reinstallato Access (2003) ma
senza esito. L' MsComm32 continua invece a funzionare sotto Excel.
Oggi sono costretto a gestire le applicazioni dal vecchio PC di mio
figlio.
Grazie e cordiali saluti al gruppo
Alberto Morelli


title: MsComm32.ocx

author: Karl Donaubauer

text:
almorel wrote:
> Ho sviluppato varie applicazioni per acquisire dati da porta seriale
> utilizzando l'ocx in oggetto. Da circa un mese, per�, Access mi dice
> che non lo supporta e me lo fa vedere come un oggetto grafico. Credo
> che il  fatto sia accaduto dopo avere installato qualcosa (?) sul PC,
> infatti, effettuando il rispristino al 12 giugno, la normale
> funzionalit� riprende (solo che poi mi perdo varie altre cose).
> Qualcuno pu� darmi lumi ? Ovviamente ho reinstallato Access (2003) ma
> senza esito. L' MsComm32 continua invece a funzionare sotto Excel.
> Oggi sono costretto a gestire le applicazioni dal vecchio PC di mio
> figlio.
Leggi la mia risposta nel thread precedente in questo teatro.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: MsComm32.ocx

text:
On 13 Lug, 18:59, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> almorel wrote:
> > Ho sviluppato varie applicazioni per acquisire dati da porta seriale
> > utilizzando l'ocx in oggetto. Da circa un mese, però, Access mi dice
> > che non lo supporta e me lo fa vedere come un oggetto grafico. Credo
> > che il  fatto sia accaduto dopo avere installato qualcosa (?) sul PC,
> > infatti, effettuando il rispristino al 12 giugno, la normale
> > funzionalità riprende (solo che poi mi perdo varie altre cose).
> > Qualcuno può darmi lumi ? Ovviamente ho reinstallato Access (2003) ma
> > senza esito. L' MsComm32 continua invece a funzionare sotto Excel.
> > Oggi sono costretto a gestire le applicazioni dal vecchio PC di mio
> > figlio.
>
> Leggi la mia risposta nel thread precedente in questo teatro.
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
G R A Z I E  !
Alberto


title: Capire se una scheda è aperta ?

author: MarcoS

text:
Devo riuscire a intercettare se una scheda è aperta, per poi chiuderla.
Per la chiusura no problem, ma non riesco a capire quale propietà o metodo
devo usare per capire se è aperta.
If (form=aperta) then  (form=chiusa)
grazie
--
Ciao Marco S.
www.marcosanti.it


title: Capire se una scheda è aperta ?

author: Fabio

text:
"MarcoS" <
marco.santi...@libero.it
> ha scritto nel messaggio
news:ajvlvp$1dvljr$1...@ID-122915.news.dfncis.de...

Questa funzione ti dice se un form è aperto:
Function IsLoaded(ByVal strFormName As String) As Integer
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
End Function
Quindi nella tua funzione usa
If IsLoaded("NomeMaschera") then docmd.close acForm, "NomeMaschera"
Ciao, FABIO


title: Capire se una scheda è aperta ?

text:
Fabio wrote:
> Questa funzione ti dice se un form è aperto:
>CUT
> Quindi nella tua funzione usa
funziona tutto perfettamente, complimenti e grazie :-)



title: stampa word in pdf senza richiesta nome file

author: mino

text:
Public Sub SaveReportAsPDF(strReportName As String, strPath As String)
Dim strOldDefault As String
'MsgBox strPath
strOldDefault =
QueryKey("Software\Microsoft\WindowsNT\CurrentVersion\Windows", "Device")
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", "Acrobat PDFWriter", REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "PDFFilename", strPath,
REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "bExecViewer", 0, REG_SZ
DoCmd.OpenReport strReportName
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", strOldDefault, REG_SZ
End Sub
ho copiato questa routine dal questo newsgroupe funziona perfettamente con
i report di access. Mi chiedevo se potevo utilizzarla anche per stampare
un file di word senza che mi chieda il percorso del file nuovo.
il file di word riesco a stamparlo sulla stampante acrobat ma mi chiede
sempre il nome del file. è possibile evitarlo adattando questa routine o
in qualche altro modo?
ciao a tutti
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ricerca valori su una matrice

text:
Ho il seguente problema devo cercare all'interno di una matrice
bidimensionale un valore da moltiplicare ad un altro  presente in campo. Su
excel utilizzo la funzione Indice dandogli in pasto le coordinate prelevate
da una cella. Come faccio su Access? Avevo pensato di utilizzare la funzione
dlookup ma credo  di essere fuori strada mi date un'aiuto?
ciao e grazie
kzt


title: ricerca valori su una matrice

author: Sergio MAZZA

text:
"6!0" <
x...@aimail.com
> ha scritto nel messaggio news:44a404a2$0$16933$4faf...@reader4.news.tin.it...

Forse ho capito male ma:
Dim matrice(2, 2) As String
matrice(1, 1) = "vi"
matrice(1, 2) = "vgv"
matrice(2, 1) = "vivfv"
matrice(2, 2) = "ssvgv"
For a = 1 To UBound(matrice, 1)
    For b = 1 To UBound(matrice, 2)
        Debug.Print "valore matrice: " & matrice(a, b)
    Next b
Next a
Ciao.
--
Sergio MAZZA


title: ricerca valori su una matrice

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:e811uj$5fd$1...@area.cu.mi.it...
>
>
> Forse ho capito male ma:
>
> Dim matrice(2, 2) As String
>
> matrice(1, 1) = "vi"
> matrice(1, 2) = "vgv"
> matrice(2, 1) = "vivfv"
> matrice(2, 2) = "ssvgv"
>
>
> For a = 1 To UBound(matrice, 1)
>    For b = 1 To UBound(matrice, 2)
>        Debug.Print "valore matrice: " & matrice(a, b)
>    Next b
> Next a
>
non vorrei sbagliare ma in questo modo "popoli" la matrice con dei valori,
io ho già una tabella con i valori da inserire costituita da circa 144
records,  12 mesi per 12 anni, ogni elemento della matrice dev'essere
moltiplicato per il valore di un campo. L'elemento della matrice dovrebbe
essere individuato attraverso la data inserita in un campo quindi se ho ad
es il 27/6/2006 devo prelevare nella sesta colonna della tabella, e nella
riga dell'anno 2006,  il valore da moltiplicare. Devo per forza utilizzare
codice VBA per ricercare questi valori nella tabella
Spero di essere stato un po' più chiaro.
intanto mille grazie
g!0


title: ricerca valori su una matrice

text:
"6!0" <
x...@aimail.com
> ha scritto nel messaggio news:44a4bdc8$0$5091$4faf...@reader2.news.tin.it...
>
> non vorrei sbagliare ma in questo modo "popoli" la matrice con dei valori, io ho già una tabella con i valori da inserire
> costituita da circa 144 records,  12 mesi per 12 anni, ogni elemento della matrice dev'essere moltiplicato per il valore di un
> campo. L'elemento della matrice dovrebbe essere individuato attraverso la data inserita in un campo quindi se ho ad es il
> 27/6/2006 devo prelevare nella sesta colonna della tabella, e nella riga dell'anno 2006,  il valore da moltiplicare. Devo per
> forza utilizzare codice VBA per ricercare questi valori nella tabella
> Spero di essere stato un po' più chiaro.
>
> intanto mille grazie
>
> g!0
Veramente quell'esempio è per ciclare in una matrice e la debug.print è per visualizzare il contenuto della matrice in quel momento.
L'unico "popolamento" è quando assegno dei valori alla matrice, ma lo devo fare per forza altrimenti l'esempio come funzionava?
Tu hai già una matrice? Bene, sostituiscila a quella scritta da me, al posto del debug.print ci metti una IF per verificare se il
contenuto è uguale a quello che cerchi e il gioco è fatto; sempre che io abbia capito che ti serve...
Ciao.
--
Sergio MAZZA


title: ricerca valori su una matrice

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:e82fbs$ddq$1...@area.cu.mi.it...
> "6!0" <
x...@aimail.com
> ha scritto nel messaggio
> news:44a4bdc8$0$5091$4faf...@reader2.news.tin.it...
> Veramente quell'esempio è per ciclare in una matrice e la debug.print è
> per visualizzare il contenuto della matrice in quel momento.
> L'unico "popolamento" è quando assegno dei valori alla matrice, ma lo devo
> fare per forza altrimenti l'esempio come funzionava?
> Tu hai già una matrice? Bene, sostituiscila a quella scritta da me, al
> posto del debug.print ci metti una IF per verificare se il contenuto è
> uguale a quello che cerchi e il gioco è fatto; sempre che io abbia capito
> che ti serve...
>
mi metto in moto! se è la strada giusta ti faccio sapere, spero proprio di
si'.
mille grazie
g!o


title: cancellare record

author: marco

text:
Ciao  a tutti!!
come faccio a crearmi un messaggio personalizzato su evento elimina record?
ovvero, vorrei che cancellando un record, mi chieda la conferma della
cancellazione,(yes,no).
ho creato un pulsante di comando, che nell'evento click, mi cancelli il
record.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
quindi vorrei che cliccando su yes, mi cancella il record selezionato, o mi
ritorna sul record...
grazie per l'aiuto


title: cancellare record

text:
> Ciao  a tutti!!
> come faccio a crearmi un messaggio personalizzato su evento elimina
record?
> ovvero, vorrei che cancellando un record, mi chieda la conferma della
> cancellazione,(yes,no).
> ho creato un pulsante di comando, che nell'evento click, mi cancelli il
> record.
>
>
> DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>
> quindi vorrei che cliccando su yes, mi cancella il record selezionato, o
mi
> ritorna sul record...
>
> grazie per l'aiuto
DoCmd.SetWarnings False
If MsgBox("Sei sicuro di voler cancellare il record?", vbYesNo) = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.SetWarnings True
Else: Me.Undo
End If
Funziona?
--
Maurizio75


title: cancellare record

text:
purtroppo non va!!
ottengo solo il messaggio,"Sei sicuro di voler cancellare il record?".
Quando clicco su yes, non mi cancella i record.
Maurizio75 <
maurizio...@gevi.it
> wrote in message
4pkr8.123713$%g7.39...@twister2.libero.it...



title: cancellare record

author: Roberto da casa

text:
"marco" <
eol...@virgilio.it
> ha scritto nel messaggio
news:tfkr8.63761$S52.2...@news2.tin.it...

A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "Conferma di cancellazione record"
strMsg = "Sei sicuro di voler cancellare il record corrente?"
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings True
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: cancellare record

text:
Mi sa che c'è qualcosa che non va nell'orologio del tuo PC: sembrerebbe
avanti di un giorno. ;-)



title: cancellare record

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
jSzr8.126985$%g7.40...@twister2.libero.it...

Roberto, ti ringrazio per il consiglio !!!!


title: DLookUp e Tipo non corrispondente

author: Paolo Donnarumma

text:
In una maschera "frmFonti" con origine record "tblFonti", con un pulsante
comando voglio far apparire il messaggio "nessun record" utilizzando DLookUp
sulla "tblArticoli" contenente il campo "FONTE" nel caso non ci siano record
uguali al campo testo "Fonte" (origine Fonte di tblFonti") della maschera
"frmFonti": con la macro non c'è problema, con il VBA creato dalla macro
tramite l'autocoposizione mi viene generato il seguente codice:
    If (DLookup("[FONTE]", "TArt", "[FONTE] =
Forms![MUtiArtFonti]![Fonte]")) Then
        Beep
        MsgBox "nessun record", vbExclamation, "Messaggio di Arresto"
    End If
che però mandato in esecuzione mi da errore 13 "Tipo non corrispondente"
Sia il campo di tblFonti sia quello di tblArticoli hanno medesima lunghezza
e per nessuno dei due la proprietà "Richiesto" della tbl è impostata a Sì:
l'unica cosa è che il campo "FONTE" della tblFonti è la chiave primaria.
C'è qualcuno che sa dirmi il perche?
Grazie a tutti quanti, ciao!


title: DLookUp e Tipo non corrispondente

author: Paolo opg

text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> wrote in
news:ywSoa.66713$
T34.1...@news2.tin.it
:

la sintassi che hai usato per specificare il criterio, è quella che si
usa quando l'argomento (nel tuo caso Forms![MUtiArtFonti]![Fonte]) è un
dato numerico.
il tuo campo invece, è molto probabilmente una stringa.
prova a mettere un paio d apici (a inizio e fine) e vedi se va a posto...
tipo non corrispondente, significa esattamente questo: criterio numerico
per campo testuale (ovvero campi di tipi diversi)
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------


title: SCARICARE ACCESS RUN-TIME

author: AG DISTRIBUZIONE

text:
Ma dove si può scaricare access run-time?
grazie x l'aiuto
Antonio


title: SCARICARE ACCESS RUN-TIME

author: Sib

text:
"AG DISTRIBUZIONE" <
agdistr...@virgilio.it
> ha scritto nel messaggio
> Ma dove si può scaricare access run-time?
> grazie x l'aiuto
Dal CD ROM di Office Developer Edition
Sib


title: SCARICARE ACCESS RUN-TIME

author: Emyr

text:


se non è originale è del tutto inutile....tanto vale distribuire
l'office professional completo
Saluti.
Emanuele.


title: SCARICARE ACCESS RUN-TIME

author: Flyzone

text:
On Tue, 05 Nov 2002 11:50:39 GMT, "AG DISTRIBUZIONE"
<
agdistr...@virgilio.it
> wrote:

se funziona ancora:
http://www.sys2.com/dl/WinInstaller/ART2KMin.exe
c'è anche sul sito della microsoft ma non mi ricordo esattamente dove,
cmq basta che cerchi il file ART2Kmin.exe 33 MB
Saluti,
Fly


title: Re: query con sottoquery

author: Bruno Campanini

text:
> Salve!
> Già postato.
> Ho questa tabella
> Con OpzNota=0 inseririsco delle note in una sottomaschera a maschere
> continue, mentre con OpzNota=-1 vorrei che le note relative
> all'idCli e all'idFo, fossero escluse.
>
> IdCli..IdFo..IdNota..TipoNota..OpzNota
> null.......20....122.......2........0
> 78.......null....106.......2........0
> 10.......null....127.......1........0
> 33.......null......98.......2........0
> 33.......null......91.......2........0
> 9.........null....109.......2........0
> 9.........null......35.......1........0
> 10.......99.....127........1.......-1 (esclusa)
> 78......837....106.......2.......-1 (esclusa)
> 78.......20.....122.......2.......-1 (esclusa)
>
> per inserirle uso questa query d'esempio:
>
> strSql = "Select IdNota, TipoNota From tbNote" _
>   & " Where IdNota In" _
>   & " (Select IdANota From tbImp" _
>     & " Where (TipoNota=2 And OpzNota=0 And IdCli =78 And IdFo Is Null)" _
>     & " Or (TipoNota=2 And OpzNota=0 And IdCli =78 Is Null And IdFo =30));"
>
> Il problema l'ho per le note che non si devono inserire, perchè
> in qualsiasi modo faccia, se funziona una cosa non ne funziona un'altra.
> Grazie per l'aiuto.

Un altro bell'esempio da esporre al pubblico:

 - And IdCli = 78 Is Null... potrà mai IdCli essere Null
   quando è uguale a 78?
 - And IdFo = 30... ma un IdFo = 30 nell'esempio non esiste.

Questa volta che scusa t'inventi?

Bruno


title: aggiunta records a + tabelle

author: Nico

text:
Ho questa esigenza:
da una maschera con controlli che deve riempire l'utente, devo aggiungere
dei records a 3 tabelle, ma non ho ben capito dalla guida in linea come fare
per gestire il recordset, per associare i controlli ai relativi campi delle
tabelle alla fine dell'immissione (senza associare la maschera alla
tabella).
In A97 avevo risolto tutto con una assegnazione finale dopo aver aperto la
tabella, ma adesso sono cambiate un po di istruzioni e non ne vengo a capo.
Grazie per l'aiuto.


title: aggiunta records a + tabelle

author: Roberto in campagna

text:
"Nico" <
ni...@axiria.com
> ha scritto nel messaggio
news:99466934...@giasone.teseo.it...
> Ho questa esigenza:
> da una maschera con controlli che deve riempire l'utente, devo aggiungere
> dei records a 3 tabelle, ma non ho ben capito dalla guida in linea come
fare
> per gestire il recordset, per associare i controlli ai relativi campi
delle
> tabelle alla fine dell'immissione (senza associare la maschera alla
> tabella).
Crea la tua maschera in modo che non abbia origine record, ovvero con i
controlli non associati ad alcun campo. A fronte dell'evento "Su clic" di un
pulsante di comando inserito nella maschera genera un codice VBA che apre
tre recordset sulle tue 3 tabelle; usando i metodi Addnew e Update dei tre
recordset, aggiungi i record che ti serve inserire assegnando ai campi dei
record i valori che l'utente ha digitato nei controlli della maschera; alla
fine imposta a Nothing i 3 recordset.
> In A97 avevo risolto tutto con una assegnazione finale dopo aver aperto la
> tabella, ma adesso sono cambiate un po di istruzioni e non ne vengo a
capo.
Se ora stai usando A2000, di default fai riferimento con VBA alle librerie
ADO, mentre con A97 facevi riferimento alle librerie DAO: in effetto il modo
di ottenere certi risultati va scritto diversamente.
Se però vuoi continuare ad usare il codice VBA così come lo hai scritto in
A97, è sufficiente che al tuo database aggiungi i Riferimenti alle librerie
DAO (fai però in maniera che, nell'elenco dei Riferimenti, il richiamo
allelibrerie DAO si trovi prima del richiamo alle librerie ADO).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
> Grazie per l'aiuto.
>
>
>


title: aggiunta records a + tabelle

text:
quello che non mi è chiaro è proprio l'uso del recordset e purtroppo
(anche
se mi sembra strano vista l'importanza dell'argomento) ne la guida in
linea
ne un manuale che ho acquistato mi danno maggiori informazioni, in tutti i
casi viene utilizzata una form associata alla tabella. Se mi potessi
chiarire questi punti anche con qualche riga indicativa di codice te ne
sarei grato e cioè:
- va aperta prima la tabella?
- come associare solo due dei campi del form al recordset?
- e come salvarlo nella tabella dato che nel record tabellare non ci sono
solo quei dati che memorizzo nel recordset? devo fare delle assegnazioni
distinte?
Ad esempio in A97 risolvevo così:
 Dim DB As database, T2 As Table, TES As Form
     Set DB = CurrentDb()
     Set T2 = DB.OpenTable("fattura")
     DoCmd.OpenForm "scheda testa fattura"
     Set TES = SCHEDE![scheda testa fattura]
     T2.AddNew
         T2![ID FATTURA] = TES.[ID FATTURA]
         T2![DATA FATTURA] = TES.[DATA FATTURA]
         T2![ID CLIENTE] = TES.[ID CLIENTE]
         T2![NR BOLLA] = TES.[NR BOLLA]
   ... etc. etc.
     T2.Update
 T2.Close
 Grazie ancora per l'aiuto.
 Ciao,
 Nico
Silvio Berruti <
s...@libero.it
> wrote in message
mO%%6.20657$F85.6...@news.infostrada.it...
>
> "Nico" <
ni...@axiria.com
> ha scritto nel messaggio
> news:99407606...@giasone.teseo.it...
> > Ho la necessità di salvare un record in una tabella senza collegare
> > direttamente la maschera di immissione alla tabella. In Access 97 ci
sono
> > riuscito con una assegnazione di variabili, come faccio in 2000? Non ho
> > trovato aiuto sulla guida in linea.
>
> Se ho capito bene: apri un recordset, aggiungi un record, riempi i campi,
lo
> memorizzi, chiudi il recordset.
> La procedura è la stessa in A97 e in A2000.
>
> --
>
>
> Silvio
>
>
> il sito comune di it.comp.appl.access:
>
http://www.sitocomune.com
>
>
>
Roberto in campagna <
r.ma...@libero.it
> wrote in message
m_k27.357$1u2....@news.infostrada.it...



title: aggiunta records a + tabelle

text:


     T2.Update
 T2.Close

 Nico

> "Nico" <
ni...@axiria.com
> ha scritto nel messaggio



title: aggiunta records a + tabelle

text:
"Nico" <
ni...@axiria.com
> ha scritto nel messaggio
news:99484328...@giasone.teseo.it...

Questo mi sembra un modo corretto di operare; la sola differenza è che
anziché aprire in output un solo recordset, se i dati che hai nella maschera
li devi registrare in tre diverse tabelle, apri tre recordset.
Dove è il problema?
Forse che prima usavi A97 ed ora A2000.
Se è qui la differenza, certo che ora per default devi fare riferimento alle
librerie ADO e non DAO come in A97, il che ti porterà ad usare una sintassi
alcune volte diversa. In questo però non posso esserti utile: non uso e non
conosco A2000 e ADO.
Mentre ti acculturi su A2000 e ADO, nel frattempo puoi aggiungere al tuo
database i riferimenti alle librerie DAO e continuare a gestire i recordset
come eri abituato in A97: ma in questo ci sono frequentatori del NG che
hanno già vissuto la metamorfosi A97=>A2000 che sicuramente sono più in
grado di me a darti una mano.



title: Re: aggiornamento controlli dopo eliminazione record

author: Popi - TheBadHabits

text:
On 21 Apr, 11:27, ugo conte <
ugo.cont...@gmail.com
> wrote:
> ciao a tutti
>
> il mio problema è che quando elimino un record (da combo)nella
> sottomaschera
> utilizzando il selettore di record e il tasto Canc i pulsanti
> non si aggiornano come dovrebbero.
> In pratica le descrizioni della combo rendono visibili o meno
> due controlli nella maschera.
>
> Allora per tenere traccia della sequenza, ho creato una query di
> aggiornamento,
> aggiungendo un campo si/no "inserito" nella TbDettaglio.
>
> Premetto che la query d'aggiornamento funziona bene.
>
> questo è il codice che ho inserito su current della Maschera:
>
>     Dim blnFlag As Boolean
>     Dim sequ As String
>     sequ = DLast("Inserito", "TbDettaglio")
>
>     If sequ = -1 Then
>     blnFlag = True
>     End If
>
>     Me.Nero.Visible = blnFlag
>     Me.Bianco.Visible = Not blnFlag
>     Me.Nero22.Visible = blnFlag
>     Me.Bianco22.Visible = Not blnFlag
>
> Ho provato anche in dopo conferma eliminazione,
> ma non ci sono ancora riuscito.
> Grazie per l'aiuto
Ciao!
Non sono sicuro di aver capito, quindi provo a riassumere la sequenza.
Hai una form con un combo, una subform, altri due controlli.
Nel combo scegli se eliminare il record che sta nella subform.
Dopo l'eliminazione dovresti dovresti impostare la visibilita' degli
altri due controlli che sono nella form.
E' corretto?
Popi


text:
On 21 Apr, 11:43, ugo conte <
ugo.cont...@gmail.com
> wrote:

> ciao Popi
>
> La combo è nella subform
> e i controlli che si devono aggiornare sono nella form
Allora provo a rivoluzionarti il gioco
Se nella finestra Strumenti/Opzioni/ModificaTrova la casella
"Modifiche record" e' spuntata, adatta il codice sotto.
Private Sub Form_AfterDelConfirm(Status As Integer)
    Select Case Status
        Case acDeleteOK
            MsgBox "La cancellazione è stata eseguita."
        Case acDeleteCancel
            MsgBox "La cancellazione non eseguibile."
        Case acDeleteUserCancel
            MsgBox "Cancellazione annullata."
    End Select
    Me.Parent.uno.Visible = Not Me.Parent.uno.Visible
    Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
Int(Me.CurrentRecord / 2))
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As
Integer)
    Response = acDataErrContinue
    Cancel = (MsgBox("Confermi l'eliminazione di questo record?",
vbYesNo + vbDefaultButton2 + vbCritical, "") <> vbYes)
End Sub
Private Sub Form_Delete(Cancel As Integer)
    MsgBox "Sto passando per la delete", vbOKOnly + vbInformation
End Sub
Se, invece, la casella "Modifiche record" non e' spuntata, il codice
da adattare e' questo.
Private Sub Form_Delete(Cancel As Integer)
    Cancel = (MsgBox("Confermi l'eliminazione di questo record?",
vbYesNo + vbDefaultButton2 + vbCritical, "") <> vbYes)
    Me.Parent.uno.Visible = Not Me.Parent.uno.Visible
    Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
Int(Me.CurrentRecord / 2))
End Sub
HTH
Popi


text:
On 21 Apr, 14:16, ugo conte <
ugo.cont...@gmail.com
> wrote:

> Ciao Popi e grazie
> suppongo nella sottomaschera
E' satto! :)
Popi


text:
On 21 Apr, 14:57, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 21 Apr, 14:45, ugo conte <
ugo.cont...@gmail.com
> wrote:

> > non ci sono ancora arrivato perchè mi manca dove inserire il
> > riferimento di un controllo
> > ma già ti dico che è ben fatto.
>
> > io ho:
> > 1-uno con uno_uno
> > 2-due con due_due
>
> > qui ho:
> >   Me.Parent.uno.Visible = Not Me.Parent.uno.Visible
> >     Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
> > Int(Me.CurrentRecord / 2))
>
> > quindi:
>
> >   Me.Parent.uno.Visible = Not Me.Parent.uno_uno.Visible
> >     Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
> > Int(Me.CurrentRecord / 2))
>
> > e il due_due?
>
> > o forse non è così che va!
>
> credo di esserci riuscito:
>
>     Me.Parent.uno.Visible = Not Me.Parent.uno_uno.Visible
>     Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
> Int(Me.CurrentRecord / 2))
>
>     Me.Parent.due.Visible = Not Me.Parent.due_due.Visible
>     Me.Parent.uno.Visible = ((Me.CurrentRecord / 2) =
> Int(Me.CurrentRecord / 2))
>
> vero?
No, nessuna delle due! :)))
Quelle due righe le ho inserite per simulare l'accendi/spegni di due
controlli in base a condizioni pseudocasuali, cosi' da darti un codice
completamente testato.
Dovrai quindi sostituire "uno" e "due" in "me.parent.uno" e
"me.parent.due" con i nomi dei controlli che sono nella tua form e
mettere dopo il "=" le reali condizioni in base alle quali i tuoi
controlli si devono accendere/spegnere.
Popi


text:
On 22 Apr, 08:34, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 21 Apr, 21:22, ugo conte <
ugo.cont...@gmail.com
> wrote:
>
>
>
>
>
> > On 21 Apr, 15:40, ugo conte <
ugo.cont...@gmail.com
> wrote:

> > > ora ho un "=" di troppo:
>
> > >     Me.Parent.uno.Visible = uno_uno Not Me.Parent.uno.Visible
> > >     Me.Parent.due.Visible = due_due ReportMerce ((Me.CurrentRecord /
> > > 2) = ??(qui cosa va?) Int(Me.CurrentRecord / 2))
>
> > ciao Popi
> > sono in difficoltà, spero nel tuo aiuto..................
>
> > la mia reale condizione è:
> > sequ = -1
>
> > poi sono in difficoltà con queste due righe di codice:
>
> >     Me.Parent.uno.Visible = Not Me.Parent.uno.Visible
> >     Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
> > Int(Me.CurrentRecord / 2))
>
> > anche perchè non so a cosa serve  ((Me.CurrentRecord / 2) e
> > Int(Me.CurrentRecord / 2))
>
> > io ho 4 controlli da inserire abbinati 2 a 2:
>
> >     Forms("MiaForm").Nero.Visible = blnFlag
> >     Forms("MiaForm").Bianco.Visible = Not blnFlag
> >     Forms("MiaForm").Nero22.Visible = blnFlag
> >     Forms("MiaForm").Bianco22.Visible = Not blnFlag
>
> > mentre nel codice sopra ne posso inserire 3.
>
> > Saluti
>
> ho fatto così, ma non va bene
>
>     Dim blnFlag As Boolean
>     Dim sequ As String
>     sequ = DLast("Inserito", "TbDettaglio")
>     If sequ = -1 Then
>     blnFlag = True
>     End If
>
>     Me.Parent.Nero.Visible = Not blnFlag
>     Me.Parent.Nero.Visible <-(ERRORE 438 proprietà o metodo non
> supportato dall'oggetto)
>     Me.Parent.Bianco.Visible = ((Me.CurrentRecord / 2) =
> Int(Me.CurrentRecord / 2))
>
>     questo è l'unico modo che ho per compilare il codice senza avere
> errore prima dell'esecuzione,
>     anche perchè dopo gli altri due "=" non mi permette di scrivere
> senza darmi errore.
>
>     Mentre durante l'esecuzione ho errore 438 (vedi segnalazione)
Dando per scontato che la tua "MiaForm" contiene i controlli Nero,
Bianco, Nero22 e Bianco22 *e la subform in cui stai eseguendo il
codice*, quel che ti serve e':
Me.Parent.Nero.Visible = blnFlag
Me.Parent.Bianco.Visible = Not blnFlag
Me.Parent.Nero22.Visible = blnFlag
Me.Parent.Bianco22.Visible = Not blnFlag
A scanso di equivoci ripeto: il codice
    Me.Parent.uno.Visible = Not Me.Parent.uno.Visible
    Me.Parent.due.Visible = ((Me.CurrentRecord / 2) =
Int(Me.CurrentRecord / 2))
che ho usato io serve solo da esempio e nulla ha a che vedere con quel
che serve a te!
Popi


text:
On 22 Apr, 11:15, ugo conte <
ugo.cont...@gmail.com
> wrote:
> Poi (Me.CurrentRecord / 2) non capisco a cosa serve
A te non serve ad una benamata mazza, se mi perdoni il francesismo :)
Popi


text:
On 22 Apr, 12:21, ugo conte <
ugo.cont...@gmail.com
> wrote:

> allora io non lo devo tenere in considerazione?
> dammi un'ulteriore indizio
Rileggi il thread e ripeti con me:
- ho una maschera con una sottomaschera e 4 controlli
- nell'evento della sottomaschera ho del codice
- nel codice mostro e nascondo i 4 controlli in base a sequ
Se tutto questo e' vero, posta tutto il codice dell'evento che hai
messo nella sottomaschera e vediamo di capirci qualcosa.
Se, per contro, ho detto qualcosa che non va, posta tutto il codice
dell'evento che hai messo nella sottomaschera e spiega le differenze,
che vediamo di capirci qualcosa.
Popi


text:
On 22 Apr, 15:03, ugo conte <
ugo.cont...@gmail.com
> wrote:

> Popi hai capito benissimo.
> Io ho una maschera con sottomaschera
>
> nella sottomaschera ho una combo
> che in base alla selezione
> accende e spegne nella maschera due controlli
> abbinati tra loro
>
> Nero con Nero22
> bianco con bianco22
>
> cioè se vedo
> Nero e Nero22 che è = -1
> non devo vedere
> bianco e bianco22 che è = 0
> e viceversa
>
> in pratica questo è dovuto da una query di aggiornamento
> che mi spunta una checkbox nel campo "Inserito" della tabella
> TbDettaglio
>
>     Dim blnFlag As Boolean (questa variabile e per attivare o spegnere
> i controlli)
>     Dim sequ As String
>     sequ = DLast("Inserito", "TbDettaglio")
>
>     Me.Nero.Visible = blnFlag (acceso = -1)
>     Me.Bianco.Visible = Not blnFlag (spento = 0)
>     Me.Nero22.Visible = blnFlag (acceso = -1)
>     Me.Bianco22.Visible = Not blnFlag (spento = 0)
>
> poi ho inserito la variabile "sequ" dove con l'espressione
> =Dlast("Inserito", "TbDettaglio") ho ottenuto
> l'ordine inverso dei records inseriti, in modo che cancellando
> l'ultimo troverò il penultimo e coì via a ritroso.
> In questo modo se cancello un record dalla sottomaschera della
> TbDettaglio, i controlli saranno visibili
> o meno come al momento dell'inserimento.
>
> cioè se ho inserito dei records
> p.e.
>
> 1-prodotto alimentare       (nero e nero 22 acceso mentre bianco e
> bainco22 spento)
> 2-prodotto non alimentare   (bianco e bianco22 acceso mentre nero e
> nero22 spento)
> 3-prodotto non alimentare   (bianco e bianco22 acceso mentre nero e
> nero22 spento)
> 4-prodotto alimentare       (nero e nero 22 acceso mentre bianco e
> bainco22 spento)
> ecc. ecc.
>
> quando vado a cancellare
> 4-prodotto alimentare       (nero e nero 22 acceso mentre bianco e
> bainco22 spento)
> troverò esattamente questo record con i controlli come voglio io cioè:
> 3-prodotto non alimentare   (bianco e bianco22 acceso mentre nero e
> nero22 spento)
> poi se elimino quest'ultimo troverò:
> 2-prodotto non alimentare   (bianco e bianco22 acceso mentre nero e
> nero22 spento)
> e così via.............
>
> ora volendo utilizzare il tuo codice Popi sono completamente nel
> pallone
> e non so proprio metterci le mani.
Temo (spero per me) che tu ti stia perdendo in un bicchier d'acqua :)
Se nella finestra Strumenti/Opzioni/ModificaTrova la casella
"Modifiche record" e' spuntata, adatta il codice sotto.
Private Sub Form_AfterDelConfirm(Status As Integer)
    Dim blnFlag As Boolean
    If (Status = acDeleteOK ) Then
        blnFlag=DLast("Inserito", "TbDettaglio")
        Me.Nero.Visible = blnFlag
        Me.Bianco.Visible = Not blnFlag
        Me.Nero22.Visible = blnFlag
        Me.Bianco22.Visible = Not blnFlag
    End If
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As
Integer)
    Response = acDataErrContinue
    Cancel = (MsgBox("Confermi l'eliminazione di questo record?",
vbYesNo + vbDefaultButton2 + vbCritical, "") <> vbYes)
End Sub
Se, invece, la casella "Modifiche record" non e' spuntata, il codice
da adattare e' questo.
Private Sub Form_Delete(Cancel As Integer)
    Dim blnFlag As Boolean
    If (MsgBox("Confermi l'eliminazione di questo record?", vbYesNo +
vbDefaultButton2 + vbCritical, "") <> vbYes) Then
        Cancel = True
    Else
        blnFlag=DLast("Inserito", "TbDettaglio")
        Me.Nero.Visible = blnFlag
        Me.Bianco.Visible = Not blnFlag
        Me.Nero22.Visible = blnFlag
        Me.Bianco22.Visible = Not blnFlag
    End If
End Sub
HTH
Popi


text:
On 22 Apr, 17:00, ugo conte <
ugo.cont...@gmail.com
> wrote:
> si può abbinare un codice per eliminare
> l'ultimo record (inserito dalla combo della sottomaschera)
> se ce n'e' un eventuale identico già inserito?
> se si, come?
Se l'argomento della discussione cambia e' buona norma iniziare un
nuovo thread.
Popi


text:
On 22 Apr, 15:36, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 22 Apr, 15:17, Popi - TheBadHabits <
rlu...@yahoo.com
> wrote:
>
> > Private Sub Form_Delete(Cancel As Integer)
>
> >     Dim blnFlag As Boolean
>
> >     If (MsgBox("Confermi l'eliminazione di questo record?", vbYesNo +
> > vbDefaultButton2 + vbCritical, "") <> vbYes) Then
> >         Cancel = True
> >     Else
> >         blnFlag=DLast("Inserito", "TbDettaglio")
>
> >         Me.Nero.Visible = blnFlag
> >         Me.Bianco.Visible = Not blnFlag
> >         Me.Nero22.Visible = blnFlag
> >         Me.Bianco22.Visible = Not blnFlag
> >     End If
>
> > End Sub
>
> grazie Popi, ma non conoscevo
>  (Status = acDeleteOK )
> e non sapevo che riassumesse
>
>     Dim sequ As String
>     sequ = DLast("Inserito", "TbDettaglio")
>
>     If sequ = -1 Then
>     blnFlag = True
>     End If
>
> ora spiegami cos'è!
Cos'e' ... cosa ???
Popi


text:
On 22 Apr, 18:26, ugo conte <
ugo.cont...@gmail.com
> wrote:

> Status = acDeleteOK
> cioè status- Nascondi testo citato
>
> - Mostra testo citato -
E' il parametro che (come puoi trovare anche nell'help di Access)
indica l'esito della cancellazione e viene passato all'evento
Form_AfterDelConfirm
Popi


text:
On 23 Apr, 16:44, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 23 Apr, 09:43, ugo conte <
ugo.cont...@gmail.com
> wrote:
>
>
>
>
>
> > On 22 Apr, 18:26, ugo conte <
ugo.cont...@gmail.com
> wrote:

> > > Status = acDeleteOK
> > > cioè status
>
> > ciao Popi
> > ho un problema ;-((
>
> > ho notato dopo aver chiuso il programma che
> > se l'ultimo record è p.e.
> >   Me.Nero.Visible = blnFlag
> >   Me.Bianco.Visible = Not blnFlag
>
> > riaprendo il programma, tutti i record
> > saranno
> >   Me.Nero.Visible = blnFlag
> >   Me.Bianco.Visible = Not blnFlag
>
> > e medesima cosa se l'ultimo è:
> >   Me.Nero22.Visible = blnFlag
> >   Me.Bianco22.Visible = Not blnFlag
>
> > in pratica non ricorda la sequenza.
>
> > Come posso risolvere?
> > Grazie
>
> Ciao Popi
>
> ho notato facendo delle prove che se vario qualche descrizione e poi
> elimino i records
> la sequenza visibile e non visibile non corrisponde più, mentre la
> query
> funziona benissimo.
Difficile dirlo, senza sapere che codice stai usando.
Prova a postarlo e vediamo se si riesce a cavare il proverbiale ragno
dal buco.
Popi


title: combo notinlist

author: Cholo

text:
ho provato ad applicare ad una maschera questo script che ho trovato su
sitocomune.com
, ma mi da questo errore in esecuzione:
"errore di run-time 13:
tipo non corrispondente"
in corrispondenza della riga
Set miorst = CurrentDb.OpenRecordset("Prodotti")
perchč???
Private Sub MiaCombo_NotInList(NewData As String, Response As Integer)
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "Prodotto digitato non in elenco"
strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) & Chr(10)
& "in elenco?"
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    Dim miorst As Recordset
    Set miorst = CurrentDb.OpenRecordset("Prodotti")
    miorst.AddNew
    miorst!Prodotto = NewData
    Me![MiaCombo] = miorst![IdProdotto]
    miorst.Update
    miorst.Close
    strTitolo = "Inserimento nuovo Prodotto in elenco"
    strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrAdded
    Me![MiaCombo].Requery
Else
    strTitolo = "Nome del prodotto errato"
    strMsg = NewData & " non č in elenco." & Chr(13) & Chr(10) & "Seleziona
un prodotto dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrContinue
    Me![MiaCombo].Undo
End If
End Sub


title: combo notinlist

text:
"Cholo" <m.mag...@NOSPAMlibero.it> ha scritto nel messaggio
news:La0Pd.26939$lB4.7...@twister1.libero.it...
> ho provato ad applicare ad una maschera questo script che ho trovato su
>
sitocomune.com
, ma mi da questo errore in esecuzione:
> "errore di run-time 13:
> tipo non corrispondente"
> in corrispondenza della riga
> Set miorst = CurrentDb.OpenRecordset("Prodotti")
>
> perchè???

>     strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) &
"Seleziona
> un prodotto dall'elenco"
>
>     IntFinestraMsg = vbOKOnly + vbExclamation
>
>     IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
>
>     Response = acDataErrContinue
>
>     Me![MiaCombo].Undo
>
> End If
>
> End Sub
La routine di cui sopra fa riferimento alla libreria Microsoft DAO quindi,
se usi una versione di Access successiva ad Access 97, aggiungi ai
riferimenti del tuo database tale libreria e per tranquillità sostituisci la
riga di codice:
Dim miorst As Recordset
con:
Dim miorst As DAO.Recordset
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: combo notinlist

author: Karl Donaubauer

text:
Cholo wrote:
> ho provato ad applicare ad una maschera questo script che ho trovato
> su
sitocomune.com
, ma mi da questo errore in esecuzione:
> "errore di run-time 13:
> tipo non corrispondente"
> in corrispondenza della riga
> Set miorst = CurrentDb.OpenRecordset("Prodotti")
>...
www.donkarl.com/it
 FAQ 7.11
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


title: combo notinlist

text:
> aggiungi ai  riferimenti del tuo database tale libreria
come si fa???


title: combo notinlist

text:
"Cholo" <m.mag...@NOSPAMlibero.it> ha scritto nel messaggio
news:V92Pd.27339$QG6.4...@twister2.libero.it...
> > aggiungi ai  riferimenti del tuo database tale libreria
>
> come si fa???
La risposta alla tua domanda la trovi nel messaggio di Karl.



title: Ereditare modulo stampa su tutti i client con DB in rete

author: PsyCat

text:
Buonasera NG
ho un db in rete e una stampante 'generico solo testo' dov'è caricato un modulo continuo personalizzato.
La stampante è in rete tramite IP (su adattatore print server) ed è configurata con lo stesso nome su tutti i client.
Il tipo modulo con le relative misure altezza e larghezza è stato creato in tutti i client anch'esso tramite 'proprietà serverer di stampa'.
Il problema nasce quando vado a stampare da un client diverso dal mio, dove ho impostato le opzioni di stampa per i form, il modulo non viene ereditato nel form e l'anteprima di stampa non è quella desiderata.
Dove sbaglio ?
C'è una soluzione al problema (magari mettendo mano nel registro) oppure dovrò stampare sempre e solo da un client ?

Grazie
Alex


text:
PsyCat wrote:
> ho un db in rete e una stampante 'generico solo testo' dov'� caricato
> un modulo continuo personalizzato.
> La stampante � in rete tramite IP (su adattatore print server) ed �
> configurata con lo stesso nome su tutti i client.
> Il tipo modulo con le relative misure altezza e larghezza � stato
> creato in tutti i client anch'esso tramite 'propriet� serverer di
> stampa'.
> Il problema nasce quando vado a stampare da un client diverso dal
> mio, dove ho impostato le opzioni di stampa per i form, il modulo non
> viene ereditato nel form e l'anteprima di stampa non � quella
> desiderata.
> ...

Se capisco bene, ti potrebbe aiutare questa discussione:
https://groups.google.com/forum/?fromgroups#!topic/microsoft.public.it.office.access/FJm9VEWul-w

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:
Grazie provero questa soluzione

Alex


title: Come si usano le funzioni

author: Franco

text:
Ho copiato dal sitocomune questa funzione 'Rimuovere il pulsante di chiusura
(X), il menu e i pulsanti di ridimensionamento di Access' e l'ho inserira in
un nuovo modulo di A97. E poi............ che devo fare per utilizzarla
subitoall'apertura di un file .mdb da me creato?
Ciao
Franco


title: Come si usano le funzioni

author: ALESSANDRO Baraldi

text:
"Franco" <
fc2...@virgilio.it
> ha scritto nel messaggio
news:ZqAOc.60151$OR2.3...@news3.tin.it...

Hi diverse soluzioni, le piůcomuni:
1)Macro chiamata "Autoexec"
Viene eseguita automaticamente all'avvio, a questo punto
inserisci l'esecuzione della Funzione con "Esegui Comando"
quindi "=NomeFunzione()"
2)Se hai una Form d'avvio su evento Load esegui la Funzione
Ciao.
@Alex


title: Come si usano le funzioni

author: Roberto dalla campagna

text:
"Franco" <
fc2...@virgilio.it
> ha scritto nel messaggio
news:ZqAOc.60151$OR2.3...@news3.tin.it...

Richiamare la funzione di cui sopra da una macro cui darai il nome Autoexec,
che come tale verrà eseguita automaticamente all'apertua del database (vedi
help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: ottimizzare query con 14000 record

author: wildsurfer

text:
ho una query che gestisce circa 14000 record composti da 2 campi: DRG e
DIAGNOSI.
ho importato questi dati da un documento che li metteva in ordine di DRG .
questo è un campo testo organizzato con una numerazione particolare che ho
gestito tramite codice.
la numerazione è del tipo
001            'menu principale
002            'menu principale
002.1         'sottomenu di 002
002.11       'sottomenu di 002.1
002.12       'sottomenu di 002.1
002.2         'sottomenu di 002
...
999            'menu principale
ovviamente la ricerca di informazioni all'interno di 14000 record non è
veloce utilizzando query semplici, che inoltre utilizzano anche funzioni da
me create per fare delle suddivisioni nei vari menu e sottomenu che derivano
dalla numerazione DRG.
credo però che essendo la numerazione crescente sia un vantaggio per
analizzare il recordset.
Quello che a me serve è infatti muovermi tra i vari menù che i drg creano ad
esempio:
alla prima visualizzazione ho
001
002
003
...
999
e selezionando 002 avrò
002.1
002.2
e selezionando 002.1 avrò
002.11
002.12
per muovermi nel sottomenù selezionato eseguo delle query che mi ricercano
in TUTTO il file.Ho pensato che sarebbe molto più veloce se la query che
dovrei implementare col vostro aiuto non analizzasse tutti i record ma possa
saltare in avanti o indietroguardando che la parte iniziale del drg(qualcosa
di simile ad un algoritmo di tipo Bubble sort o qualcuno simile) .Un'altra
caratteristica di questa query dovrebbe essere anche quella di fermarsi nel
cercare una volta che il si sia trovato un drg di un sottomenù diverso da
quello selezionato.
Un altro parere:
secondo voi, visto la mole di dati, mi conviene eseguire una sola volta le
procedure di suddivisione dei dati in menu e creare 3 tabelle diverse che
conterranno i tre menu progressivi (che avranno rispettivamente i drg del
tipo XXX ; XXX.X ; XXX.XX)? Penso che già il fatto di non eseguire più volte
la stessa procedura di calcolo possa velocizzare il tutto.
Si consideri che non ho l'esigenza di modificare ulteriormente questi dati
in quanto utilizzo questi dati in sola lettura per poi utilizzarli copiando
il codice drg in altre tabelle di immisione dati.
Vi ringrazio moltissimo per la vostra collaborazione.
[OT]Vi prego di darmi anche un'altro consiglio:
mi rendo conto del fatto che ho scritto molto cercando di essere più preciso
possibile nel spiegarvi il mio problema.Non so se questa può essere una cosa
utile o meno... fatemi sapere ciò che ne pensate anche perchè non vorrei
ammorbarvi con messaggi lunghissimi che poi non risultino utili anche a
tutti gli altri che frequentano il newsgroup.
Personalmente ritengo di aver imparato molto dalle risposte agli altri post
e ritengo che sia notevolmente più facile imparare se le cose sono spiegate
dettagliatamente...in questa logica ho scritto questo messaggio...spero che
siate daccordo con me...altrimenti...vedrò come modificare il mio modo di
scrivere.
grazie a tutti (soprattutto per aver letto fin qua!!!)