author: Mad® Milox

text:
Effettivamente il tuo post come dice MaGri, e' abbastanza incasino ;)
cmq se ho capito bene , non puoi mettere un refresh o un requery che ti
riaggiorna la visualizzazione della sottomaschera ?
inche senso te li cancella ? nel senso che nella tua sottomaschera inserisci
il recond n°1 e tutto ok , poi inserisci il n° 2 e lui ti fa' sparire il
primo ? .. come se fosse collegata male la sottomaschera alla tabella...
o nella sottomaschera dopo l'aggrionamento non salva l'ID della maschera
master...
mmm...
piu' che una risposta la mia sembra una serie di considerazioni... eheh!!
scusami..
magari ti danno lo spunto per risolvere il problema :)
Ciao,
Lorenzo
"Alessia" <
les...@altavista.it
> ha scritto nel messaggio
news:99pv4k$1q5d$1...@half.spin.it...



title: determinare versione di access o versione runtime

text:
Avrei necessità di una funzione che mi permettesse di conoscere se è
installata una versione completa di access o una versione di runtime
(e quale:access97 o 2000). Dove posso reperire informazioni al
riguardo?
grazie


text:

Trovato per quanto riguarda la versione:
SysCmd(acSysCmdAccessVer)


text:

Trovato per conoscere se ambiente runtime:
SysCmd(acSysCmdRuntime)
da sitocomune:
6.153 Limitazioni in una versione runtime di un database Access di
Silvio Savoldi
Grazie


title: problema con maschere access

author: Michele Ferretto

text:
 Se provo ad aprire e chiudere per un certo numero di volte una maschera
 access (2000) inevitabilmente mi da un errore di memoria esaurita, cioč
 rimangono allocate risorse non piů utilizzate (non dipende dalla maschera
 perchč succede anche con la piu stupida)....qualcuno ha riscontrato lo
 stesso problema ???
 Vi ringrazio anticipatamente per l' aiuto !!!!
 ----------------------------------------------
 Michele Ferretto
 Software developer

mfer...@netics.net
 NETICS EUROPE
 Via S.Agnese, 2/b - 36016 Thiene (VI) - Italy
 tel.
+39 0445 381133
 fax
+39 0445 360011

http://www.netics.net
 - email:
in...@netics.net
 NETICS USA
 303 Twin Dolphin Drive - Suite 600
 Redwood City, CA 94065
 voice
+1 650 632 4415
 fax
+1 650 551 9901

www.netics-usa.com
 -
in...@netics-usa.com
 ----------------------------------------------


title: problema con maschere access

author: Jonathan Canova

text:
"Michele Ferretto" <
mfer...@netics.net
> ha scritto nel messaggio
news:8nitt2$24o$1...@fe2.cs.interbusiness.it...
>
>  Se provo ad aprire e chiudere per un certo numero di volte una maschera
>  access (2000) inevitabilmente mi da un errore di memoria esaurita, cioè
>  rimangono allocate risorse non più utilizzate (non dipende dalla maschera
>  perchè succede anche con la piu stupida)....qualcuno ha riscontrato lo
>  stesso problema ???
Baco a regola risolto con la SR-1. Comunque ti riporto un articolo di MSDN
      ACC2000: "There Isn't Enough Free Memory" Error When Working with a
Form
----------------------------------------------------------------------------
----
The information in this article applies to:
  a.. Microsoft Access 2000
----------------------------------------------------------------------------
----
Novice: Requires knowledge of the user interface on single-user computers.
This article applies to a Microsoft Access database (.mdb) and a Microsoft
Access project (.adp).
SYMPTOMS
When you are working with a form and you switch between Design view and Form
view, or you print preview a form, you may receive the following error
message:
  There isn't enough free memory to update the display. Close unneeded
programs and try again
However, when you close other programs, including Microsoft Access, no
additional memory on your computer is freed.
CAUSE
You may receive this error message if any one of the following conditions is
true:
  a.. You set the Picture property of the form to a .gif file.
  -or-
  b.. You created the form with the Form Wizard and selected one of the
pre-defined styles.
  -or-
  c.. You used the AutoFormat command to apply one of the pre-defined styles
to the form.
  -or-
  d.. You are working in one of the databases created by the Database Wizard
that uses forms with styles set.
The pre-defined styles in Access 2000 that use a .gif file for the Picture
property are:
  a.. Blends
  b.. Blue Print
  c.. Expedition
  d.. Industrial
  e.. Ricepaper
  f.. Sandstone
  g.. Sumi Painting
NOTE: If you apply these styles to the Picture property of a form, the
property sheet erroneously displays '(bitmap)' even though the style
actually uses a .gif file.
RESOLUTION
To resolve this problem, obtain Microsoft Office 2000 Service Release 1
(SR-1).
To obtain SR-1, click the article number below to view the article in the
Microsoft Knowledge Base:
  Q245025 OFF2000: How to Obtain and Install Microsoft Office 2000 Service
Release 1 (SR-1)
To temporarily work around this problem, do the following. After you receive
the error message described in the "Symptoms" section, close all
applications and restart your computer to free the memory on your computer.
To avoid this behavior, you can either use a different graphic format for
the Picture property, or you can remove the .gif file from the Picture
property while you are designing your form, and then add it back when you
are finished.
Using a Different Graphic Format
You can use the graphics program of your choice to convert the .gif file to
some other supported graphic format such as .bmp. After the graphic file is
converted, you need to reference the converted file in the Picture property
of the form. To do so, follow these steps:
  1.. Open the form in Design view and display the property sheet of the
form.
  2.. On the Format tab, select the Picture property and click the Build
button to the right of the text box.
  3.. Browse to and select the converted graphic file.
  4.. Click OK to set the Picture property to that file.
If you use autoformat styles regularly, you may want to convert them to use
a file type other than *.gif. To do so, follow these steps:
  1.. Use the graphics program of your choice to convert the autoformat
graphic files to a format such as *.bmp. The following files used by the
AutoFormat wizard are located in the C:\Program Files\Microsoft
Office\Office\Bitmaps\Styles folder in a default installation of Microsoft
Office:
          Style File Name
          Blends acbends.gif
          Blue Print acbluprt.gif
          Expedition acexpdtn.gif
          Industrial acindstr.gif
          Ricepaper acricepaper.gif
          Sandstone acsndstn.gif
          Sumi Painting acsumipt.gif
  2.. Reset the Picture property as described earlier in this section.
  3.. On the Format menu, click AutoFormat.
  4.. In the AutoFormat dialog box, select the style that the form is using
and click Customize.
  5.. Select Update '<style name>' with values from Form '<form name>'
  6.. Click OK twice.
When you apply the built-in style in the future, it will use the converted
graphic file as the source for the Picture property.
Removing Picture Property During Form Design
While you design the form, remove the .gif file from the Picture property.
Then after you have finished creating the form and will not be toggling
between Design and Form view anymore, you can add the style back to the
form. To do so, follow these steps:
  1.. Open the Form in Design view.
  2.. On the Format menu, click AutoFormat.
  3.. In the AutoFormat dialog box, select the format that you want from the
Form AutoFormats list.
  4.. Click OK.
The picture associated with the autoformat is added back to the form.
STATUS
Microsoft has confirmed this to be a problem in Microsoft Access 2000. This
problem was corrected in Microsoft Office 2000 SR-1.
MORE INFORMATION
When you switch a form from Design view to Form view, the picture on the
form is converted to a special file type so that it can be displayed
correctly. When the Picture property of a form is set to a .gif file, this
conversion process occurs every time that you change the view of the form,
and this process uses up memory.
Additional query words: pra resource resources lose
Keywords : kbdta FmsProb
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbbug
Technology :
      Last Reviewed: March 17, 2000
      © 2000 Microsoft Corporation. All rights reserved. Terms of Use.
----------------------------------------------------------------------------
----
Send feedback to MSDN.Look here for MSDN Online resources.


title: memorizzre nome directory in un campo

author: Lomba

text:
buon giorno a tutti
volevo, da voi piu esperti di me, e non sto scherzando, una cortesia.
vi spiego: ho un pulsante di comando che "carica" una foto in un campo "fotografia". posso anche caricare qualsiasi file in quel campo. detto questo, come posso memorizzare il percorso della directory che ho scelto cliccando su "cambia foto" in un altro campo? giusto per ricordare dove è!
grazie a chi vorrà aiutarmi!
vi posto le due routine:
1) clicca e cambia foto
Private Sub cmdcambiaFoto_Click()
    Dim NumRec As Long
    NumRec = Me.CurrentRecord
    Call associaFoto
    ''DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, NumRec
End Sub

2) la selezione dei files
Private Sub associaFoto()
    Dim fDialog As Office.FileDialog
    Dim nomefile As String
    Dim varFile As Variant

    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog
      ' Allow user to make multiple selections in dialog box
      '.AllowMultiSelect = False
      .AllowMultiSelect = True

      ' Set the title of the dialog box.
      .Title = "Scegliere un foto da associare all'articolo"

      ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "Foto JPEG", "*.jpg"
      .Filters.Add "Immagini PNG", "*.png"
      .Filters.Add "Immagini GIF", "*.gif"
      .Filters.Add "Bitmap", "*.bmp"
      .Filters.Add "All files", "*.*"

      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one file. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then
        'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            nomefile = varFile
         Next
         Me.Fotografia = nomefile

         'Aggiorno la visualizzazione dell'immagine
         Me.Requery
      End If
   End With
End Sub


title: vecchi mde su windows server 2019

author: BFS

text:
Salve a tutti

ho dei vecchissimi file mde fatti ancora con AccessXP
dopo aver installato access runtime xp su windows server 2019 appena
provo ad aprirli si chiudono automaticamente
anche provando ad aprirli in modalità compatibile windows 7 stesso risultato

qualche idea?

BFS


title: vecchi mde su windows server 2019

author: Simone Calligaris

text:

Hai provato ad escludere MsAccess.exe dalla "protezione esecuzione programmi"?

Saluti


title: vecchi mde su windows server 2019

text:

no
dove trovo questo settaggio?


title: vecchi mde su windows server 2019

text:
Il 16/12/2020 09:40, Simone Calligaris ha scritto:

mi hai salvato la giornata
grazie!


title: vecchi mde su windows server 2019

text:
> > Hai provato ad escludere MsAccess.exe dalla "protezione esecuzione programmi"?

> no
> dove trovo questo settaggio?

Di solito  (la trovi anche su tuo Client Windows 10):

Risorse del Computer/Proprietà/Avanzate/Impostazioni/Protezione esecuzione programmi

La prima opzione "disattiva protezione" potrebbe essere invisa al sistemista del Server 2019, quindi puoi settare "attiva protezione esclusi programmi selezionati": click su pulsante "aggiungi" e selezioni MSAccess.exe tuo Runtime.

Saluti


title: Stampare report da visual basic senza aprire il db (baraldi stai buono)

text:
Ho chiesto anche nel newsgroup di visual basic ma non sono riuscito ad
utilizzare l'esempio da qualcuno consigliatomi.
l'esempio è il seguente
Public Function PrintAccessRPT(strPAth as string, rpt as String,optional
ViewMode as access.AcView=acViewNormal, Contidions as string )
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase (strPAth)
ac.DoCmd.OpenReport rpt , ViewMode,,Conditions
' Per gestire l'anteprima Eliminare la riga sotto
' non è elegante, ma può andare.
'Ovviamente l'applicazione verrà chiusa con la chiusura del
'Report, metti 2 righe di codice nel Report su EVENTO Print
ac.CloseCurrentDatabase
questo dovrebbe stampare il mio report senza aprire il db in modo visibile,
qualcuno di voi è riuscito ad usarlo e sa dirmi se funziona?
Grazie.!


author: MA

text:
[CUT]
> Segnalo il Post non per fare un favore a te, che non meriteresti risposta
> ma per SOTTOLINEARE la tua poca volontą nel cambiare questo tuo modo
> di fare, la PAPPA PRONTA............................
>
> Saluti
> --
> @Alex (Alessandro Baraldi)
ciao Alessandro, fai come me, ormai non gli rispondo +, anche a me da
profondamente fastidio il suo modo di fare.
Ma ho paura che anche stavolta non lo capirą
Problemi suoi.
MAssimiliano


author: ALESSANDRO Baraldi

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dooSd.69$tY...@news.edisontel.com...

Vero ma mi ha citato nell'Oggetto...!
Nei vari NG in cui Posta č considerato un pņ come quando si vedeva una
"Prinz Verde".
Senza offese alla Prinz.
Se non lo capisce lui, č normale da quanto si vede, spero lo capiscano
velocemente
i fantomatici Clienti.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
> Vero ma mi ha citato nell'Oggetto...!
> Nei vari NG in cui Posta è considerato un pò come quando si vedeva una
> "Prinz Verde".
> Senza offese alla Prinz.
>
> Se non lo capisce lui, è normale da quanto si vede, spero lo capiscano
> velocemente
> i fantomatici Clienti.
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
ti ho citato nell'oggetto per preventivare un tuo ulteriore messaggio di
rottura di palle come hai fatto nel NG di vb, ma a te i cazzi tuoi proprio
non ti hanno insegnato a farteli?
chiariscimi questa frase che non mi è chiara, cosa vorresti in merito ai
miei clienti?
senti non esagerare perchè se superi il limite sono guai............
vorrei far notare agli altri lettori che io non vi sto attaccando sto
semplicemente rispondendo al fuoco il che è ben diverso.
attaccare è una cosa e difendersi  e contrattaccare è bel altra cosa.
ribadisco per l'ultima volta fatemi i cazzettoni vostri.


text:
> ciao Alessandro, fai come me, ormai non gli rispondo +, anche a me da
> profondamente fastidio il suo modo di fare.
> Ma ho paura che anche stavolta non lo capirà
> Problemi suoi.
> MAssimiliano
fanciulli a questo mondo non per forza le nostre strade si devono incrociare
quindi come dice MA se vi và rispondete altrimenti non fatelo, ma per
cortesia smettela di criticare, io quando posso aiuto a prescindere dal
fatto
che di la ci sia un genio che vuole la pappa pronta o un dilattante alle
prime armi rispondo e basta per lui e per gli altri che leggeranno.
P.S. Baraldi non insultare in merito al mononeurone, purtroppo
l'intelligentometro non esiste quindi il fatto che tu ti senti più
intelligente di me solo perchè tu avresti fatto una ricerca in google
anzichè chiedere è solo un tuo punto di vista.... come sempre noioso e
patetico..............
Per cortesia nel bene e nel male evitatemi grazie. Buon Lavoro a entrambi.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:4219ad6d$0$32339$5fc...@news.tiscali.it...

Colgo lo spunto per confermare che anche questa volta hai perso
un'ottima occasione.... si per stare zitto e cercare nei post precedenti.
Questo codice è stato postato il giorno
venerdì 4 febbraio 2005 23.27
da un certo Alessandro Baraldi ad un certo NEWS nel NG si VB.
Questo signore ha posto la tua stessa domanda, alla quale sia
io che altri hanno dato risposta.
Ora capisco che il MonoNeurone di dotazione ha difficoltà ad
elaborare una R I C E R C A, ma fai proprio ridere.
Segnalo il Post non per fare un favore a te, che non meriteresti risposta
ma per SOTTOLINEARE la tua poca volontà nel cambiare questo tuo modo
di fare, la PAPPA PRONTA............................
Saluti
--
@Alex (Alessandro Baraldi)



text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:421a1ba1$1$6314$5fc...@news.tiscali.it...
> ti ho citato nell'oggetto per preventivare un tuo ulteriore messaggio di
> rottura di palle come hai fatto nel NG di vb,
E vorresti togliermi il bello della partecipazione ai tuoi Post...??
> ma a te i cazzi tuoi proprio
> non ti hanno insegnato a farteli?
No, e dato per scontato che il NG è libero come sostieni, tu sei libero
di fare le domande, e, cosa che mi gratifica molto, io sono libero di
prenderti per il culo.
> chiariscimi questa frase che non mi è chiara, cosa vorresti in merito ai
> miei clienti?
Mi riferisco al livello di quello che fai data la banalità di domande che da
anni continui a fare, sono sempre le stesse, quelle del Novellino, ma non è
un male essere novellino, quello che è male è rimanerlo.
> senti non esagerare perchè se superi il limite sono guai............
SIMBA IL LEONE BIANCO...... poi no la ricordo più
AHAHAHAHHHAAAA....!



text:
>> ma a te i cazzi tuoi proprio
>> non ti hanno insegnato a farteli?
>
> No, e dato per scontato che il NG è libero come sostieni, tu sei libero
> di fare le domande, e, cosa che mi gratifica molto, io sono libero di
> prenderti per il culo.
Ok se la cosa ti appaga fai pure io mi appago in altri modi nel tempo libero
.............
>
>> chiariscimi questa frase che non mi è chiara, cosa vorresti in merito ai
>> miei clienti?
>
> Mi riferisco al livello di quello che fai data la banalità di domande che
> da
> anni continui a fare, sono sempre le stesse, quelle del Novellino, ma non
Be diciamo che a parte il mio errore di non aver guardato i post precedenti,
non vedo cosa ci sia di banale nel chiedere come stampare un report in modo
trasparente da visual basic senza vedere il db access? boooo!
> è
> un male essere novellino, quello che è male è rimanerlo.
>
ok, ti posso dire che da anni faccio dei gestionalini niente male e mi
mantengo da 4 anni con microsoft access, ho qualche lacuna che cerco di
coprire qui con l'aiuto della gente che è disposta ad aiutare (e non a
rompere i .......)
Bye


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:421a42cc$0$6299$5fc...@news.tiscali.it...
[CUT]
> Ok se la cosa ti appaga fai pure io mi appago in altri modi nel tempo
libero
> .............
Grazie ora che ho il tuo consenso sono più tranquillo...!
[CUT]
> Be diciamo che a parte il mio errore di non aver guardato i post
precedenti,
> non vedo cosa ci sia di banale nel chiedere come stampare un report in
modo
> trasparente da visual basic senza vedere il db access? boooo!
Questo è l'errore che commetti da 2 anni su tutti i NG, sarà strano ma da me
quando uno in 2 anni non ha ancora capito non ci sono molti modi per
definirlo.
> ok, ti posso dire che da anni faccio dei gestionalini niente male
Se credo a questa me ne racconti un'altra....?
> e mi mantengo da 4 anni con microsoft access,
Meglio per te, un pò meno per chi si sobbarca l'onere.
> ho qualche lacuna che cerco di
> coprire qui con l'aiuto della gente che è disposta ad aiutare (e non a
> rompere i .......)
Le lacune che denunci io le definirei VORAGINI concettuali.
Praticamente non è il tuo lavoro, ma se vuoi farti del male......
> Bye
Saluti



text:
> Le lacune che denunci io le definirei VORAGINI concettuali.
> Praticamente non è il tuo lavoro, ma se vuoi farti del male......
>
>> Bye
>
> Saluti
>
> --
> @Alex (Alessandro Baraldi)
sono pienamente d'accordo con te su tutto, e se hai altro da dire anche su
quello sono d'accordo ancora prima che lo dici. ciao.


title: help calcoli in maschera

author: Rokkat

text:
ciao a tutti,
sono alle prime armi ed  ho già un problemino che non so come risolvere:
ho una tabella con diversi campi . quello che vorrei fare si incentra su due
di essi A & B
*** il campo "A" identifica delle caratteristiche dei dati  >> formato
tersto ( i dati che verranno immessi sono 4 )
*** il camp"B" invece ne specifica il valore >> formato valuto = ?
dunque vorrei che in una maschera ci fosse la possibilità di poter avere
queste informazioni:
1) la somma di tutti i valori riportati nel campo B a seconda del dato ( uno
dei 4 ) riportati in A
2) la somma di tutti i valori riportai in B per tutti i dati
per il momento mi fermo perchè devo chiarire alcune cosette e poi  <<
GIUSTAMENTE  >>
qualcuno potrebbe dirmi : ma se vuoi te lo facciamo noi sto kakkio di
database????
e non avrebbe torto ???
No grazie
mi voglio buttare ankio nella mischia.
cmq grazie per l'aiuto


title: help calcoli in maschera

author: Emyr

text:
On Mon, 06 Jan 2003 10:39:06 GMT, "Rokkat" <
rok...@mail.xoom.it
>
wrote:

vedi dlookup() dsum(), requery e lostfocus o dopoaggiornamento
Saluti.
Emanuele.


title: passwords

text:
Buongiorno e buona settimana a tutti.
Ho fatto un db con una maschera in cui viene richiesta la password e
il nome utente.
(Ovvero, tramite codice e due textbox, ho fatto una cosa di questo
tipo:
if me.testoNome = "pippo" and me.testoPassword = "1232sd45" then....
mettendo diversi nominativi.
La scelta di usare questo tipo di codice anzichè la protezione vera e
propria di access è stata dovuta a seri problemi di stabilità della
rete... l'ultima volta è andato perso il file relativo alla sicurezza
e abbiamo dovuto buttare il db.
Il prob ora è questo: io non posso più seguire il db perchè me ne
vado, e spiegare a qualche mio collega scome si entra nel codice per
inserire nuovi utenti mi sembra un po' "pericoloso".
C'è secondo voi il modo di poter creare una form che permetta di
andare a scrivere del codice?
Cioè:
se la form "CREA NUOVI UTENTI" chiedesse "Inserire NOME" "inserire
PASSWORD", ad ex (Pluto, 99999), si potrebbe creare nel codice una
scritta del tipo
if me.testoNome = "Pluto" and me.testoPassword = "99999b" then....  ?
Che ne pensate?


title: passwords

author: Sergio MAZZA

text:
<
mys...@gmail.com
> ha scritto nel messaggio
news:1194254601.8...@19g2000hsx.googlegroups.com...






[risposta]
Che fai prima a (es.) creare un nuovo mdb con una tabella e form che gli
permette di creare l'accoppiata utente/password.
La tabella con l'accoppiata la includi (File - Importa - Collega tabelle)
negli altri mdb (dove necessita)...
Ciao.
--
Sergio MAZZA


title: Query, errore assurdo SOLO se eseguita da codice VB, errore "Tipo non corrispondente (errore 13)"

author: MarcoMax

text:
Ho un problema assurdo....
ho una query facile facile
SELECT Config_Prod.metri
FROM Config_Prod
WHERE (((Config_Prod.CONTATORE)=[Forms]![M_creaProd]![ObjProdList]));
che utilizza il parametro     [Forms]![M_creaProd]![ObjProdList]   che
č una banalissima casella di testo in cui l'utente scrive un numero.
Il campo     Config_Prod.CONTATORE     č la chiave della tabella
Config_Prod    ed č generato da access durante l'inserimento dei dati.
Se ho aperta la maschera    M_creaProd   ed ho un valore corretto
nella casella di testo, la query viene eseguita correttamente se la
eseguo con un doppio click dalla finestra del DB.
Perň genera un errore se la eseguo da codice VB,
Private Sub metraturaUpdate()
  Dim dbs As Database
  Dim qdf As QueryDef
  Dim rec As Recordset

    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("QM_creaProd - esrai metratura obj
selezionato, da Config_Prod")

    Set rec = qdf.OpenRecordset
    Metratura = rec!metri
    dbs.Close
    rec.Close
End Sub
cosě mi dice che non trova un parametro, no so perchč ma vede
[Forms]![M_creaProd]![ObjProdList] come un parametro.
Ho provato di tutto, a scrivere l'sql direttamente nel codice...
'    Set rec = dbs.OpenRecordset("SELECT Config_Prod.metri " & _
                                "FROM Config_Prod " & _
                                "WHERE (((Config_Prod.CONTATORE)=" &
[Forms]![M_creaProd]![ObjProdList] & "));", dbOpenSnapshot)
ho provato a convertire il valore con Clng, Cstr.... ma dice sempre
"Tipo non corrispondente (errore 13)"
ma perchč? perchč? PERCHč????
in extremis ho provato a no nusare un controllo, ma un semplice
parametro, quindi la query era
SELECT Config_Prod.metri
FROM Config_Prod
WHERE (((Config_Prod.CONTATORE)=[pippo]));
ed il codice era
Private Sub metraturaUpdate()
  Dim dbs As Database
  Dim qdf As QueryDef
  Dim rec As Recordset

  Set dbs = CurrentDb
  Set qdf = dbs.QueryDefs("QM_creaProd - esrai metratura obj
selezionato, da Config_Prod")
    qdf.Parameters![pippo] = "2"

    Set rec = qdf.OpenRecordset
    Metratura = rec!metri
    dbs.Close
    rec.Close
End Sub
e mi da lo stesso stramaledetto incomprensibile errore....
ho provato pure
    qdf.Parameters![pippo] = 2
(senza apici)
ma il risultato non cambia...
inutile dire che se eseguo la query con un doppio click dalla finestra
DB ed inseriso 2 tutto funziona correttamente....
sono bloccato, no so piů che provare...
se non riesco ad aprire quel recordset da codice non posso estrarre i
dati... e sono fregato... :-((
aiutooooooooooooooooooooooooooooooo
ciao, Max.


author: Alessandro Cara

text:
MarcoMax ha scritto:
>
> Ho un problema assurdo....
> ho una query facile facile
>
> SELECT Config_Prod.metri
> FROM Config_Prod
> WHERE (((Config_Prod.CONTATORE)=[Forms]![M_creaProd]![ObjProdList]));
>
> che utilizza il parametro     [Forms]![M_creaProd]![ObjProdList]   che
> č una banalissima casella di testo in cui l'utente scrive un numero.
>
> Il campo     Config_Prod.CONTATORE     č la chiave della tabella
> Config_Prod    ed č generato da access durante l'inserimento dei dati.
>
> Se ho aperta la maschera    M_creaProd   ed ho un valore corretto
> nella casella di testo, la query viene eseguita correttamente se la
> eseguo con un doppio click dalla finestra del DB.
>
> Perň genera un errore se la eseguo da codice VB,
>
> [cut]
> [Forms]![M_creaProd]![ObjProdList] come un parametro.
> [cut]
> ciao, Max.
ma la form M_creaProd l'hai aperta????  quando esegui da VBA?
la collezione Forms contiene le forms APERTE. Se M_creaProd no e'
aperta  (visibile o hidden fa lo stesso) il sistema non riesce a
"vedere" [Forms]![M_creaProd]![ObjProdList] e quindi giustamente pensa
che lo stesso sia un parametro da immettere
a. cara


text:
On Tue, 06 Jun 2000 02:10:09 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>ma la form M_creaProd l'hai aperta????  quando esegui da VBA?
>la collezione Forms contiene le forms APERTE. Se M_creaProd no e'
>aperta  (visibile o hidden fa lo stesso) il sistema non riesce a
>"vedere" [Forms]![M_creaProd]![ObjProdList] e quindi giustamente pensa
>che lo stesso sia un parametro da immettere
sisi, certo ch è aperta.....
ma il problema si presenta anche se non utilizzo il controllo sulla
form, come nel secondo esempio che riporto....
mi da sempre errore di tipo non valido :-(
ciao, max


author: Tommaso Cafini

text:
a...@a.com
 (MarcoMax) wrote:
>Ho un problema assurdo....
>
>ho provato a convertire il valore con Clng, Cstr.... ma dice sempre
>"Tipo non corrispondente (errore 13)"
>
>ma perchè? perchè? PERCHè????
>
>in extremis ho provato a no nusare un controllo, ma un semplice
>parametro, quindi la query era
>
>SELECT Config_Prod.metri
>FROM Config_Prod
>WHERE (((Config_Prod.CONTATORE)=[pippo]));
>
In fin dei conti e' un parametro, quello che passi alla Query.
Hai provato a registrarlo nella Query stessa?
Nell finestra di Desing della Query:
tasto destro del mouse,
parametri,
dai il nome (esatto) del parametro ed il tipo.
--
Tommaso Cafini                  _...@rhein-neckar.netsurf.de_
                                _tca...@gmx.net_
PGP-KeyID       = C922A2B1
Key fingerprint = 7C 9E 72 C5 11 06 A7 67  54 03 FF 02 4C 90 39 F5


text:
On Mon, 05 Jun 2000 19:40:15 GMT,
a...@a.com
 (MarcoMax) wrote:
>Ho un problema assurdo....
HO CAPITOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
era uno stramaledettissimo riferimento del caXXo che incasinava
access...
per essere precisi er un riferimento a "Microsoft activeX 2.1 library"
che quando ha priorità superiore a "Microsofto DAO 3.6" si vede che
crea dei tipi di oggetti uguali al DAO ma non compatibili.
ed infatti access non riconosceva il tipo recordset....
Ciao, Max


author: Giorgio PS

text:
email:
giorgio....@ps-elettronica.it
MarcoMax <
a...@a.com
> wrote in message 393bfe3...@news.interbusiness.it...
> Ho un problema assurdo....
> ho una query facile facile
>
> SELECT Config_Prod.metri
> FROM Config_Prod
> WHERE (((Config_Prod.CONTATORE)=[Forms]![M_creaProd]![ObjProdList]));
>
> che utilizza il parametro     [Forms]![M_creaProd]![ObjProdList]   che
> è una banalissima casella di testo in cui l'utente scrive un numero.
>
> Il campo     Config_Prod.CONTATORE     è la chiave della tabella
> Config_Prod    ed è generato da access durante l'inserimento dei dati.
>
> Se ho aperta la maschera    M_creaProd   ed ho un valore corretto
> nella casella di testo, la query viene eseguita correttamente se la
> eseguo con un doppio click dalla finestra del DB.
>
> Però genera un errore se la eseguo da codice VB,
>
> Private Sub metraturaUpdate()
>   Dim dbs As Database
>   Dim qdf As QueryDef
>   Dim rec As Recordset
>
>     Set dbs = CurrentDb
>     Set qdf = dbs.QueryDefs("QM_creaProd - esrai metratura obj
> selezionato, da Config_Prod")
>
>     Set rec = qdf.OpenRecordset
>     Metratura = rec!metri
>     dbs.Close
>     rec.Close
> End Sub
>
>
> così mi dice che non trova un parametro, no so perchè ma vede
> [Forms]![M_creaProd]![ObjProdList] come un parametro.
> Ho provato di tutto, a scrivere l'sql direttamente nel codice...
>
> '    Set rec = dbs.OpenRecordset("SELECT Config_Prod.metri " & _
>                                 "FROM Config_Prod " & _
>                                 "WHERE (((Config_Prod.CONTATORE)=" &
> [Forms]![M_creaProd]![ObjProdList] & "));", dbOpenSnapshot)
>
> ho provato a convertire il valore con Clng, Cstr.... ma dice sempre
> "Tipo non corrispondente (errore 13)"
>
> ma perchè? perchè? PERCHè????
>
>
>
> in extremis ho provato a no nusare un controllo, ma un semplice
> parametro, quindi la query era
>
> SELECT Config_Prod.metri
> FROM Config_Prod
> WHERE (((Config_Prod.CONTATORE)=[pippo]));
>
> ed il codice era
>
> Private Sub metraturaUpdate()
>   Dim dbs As Database
>   Dim qdf As QueryDef
>   Dim rec As Recordset
>
>   Set dbs = CurrentDb
>   Set qdf = dbs.QueryDefs("QM_creaProd - esrai metratura obj
> selezionato, da Config_Prod")
>
>     qdf.Parameters![pippo] = "2"
>
>     Set rec = qdf.OpenRecordset
>     Metratura = rec!metri
>     dbs.Close
>     rec.Close
> End Sub
>
> e mi da lo stesso stramaledetto incomprensibile errore....
(...)
prova con qdf.parameters("Pippo")=2
(...)
così dovrebbe andare.
Per inciso, gli apici usali solo se il parametro è stringa, un contatore è
un long!
--
********************************************
Giorgio B. - P.S. elettronica srl - Udine


title: strano problema scaricando file da ftp con comando URLDownloadToFile

author: Nicolas

text:
attraverso il comando
lngRetVal = URLDownloadToFile(0,
"
http://www.miosito.it/cartella/listino.ies
","C:\listino.ies", 0, 0)
scarico un file "listino.ies" dal mio spazio ftp poi lo decomprimo con l'ocx
per zippare i file e infine importo
gli articoli con i prezzi nuovi.
****** l'anomalia è
quando entro la prima volta nel programma e scarico il listino funziona
se riscarico il listino restando nel programma non lo scarica
se esco e rientro nel programma lo scarica correttamente
***** quindi mi chiedo
esiste un modo per svuotare la cache di windows o non so quale altra memoria
temporanea mi crei il problema?
grazie.


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:439e24c2$0$16209$4faf...@reader3.news.tin.it...

(ah! Ora ho capito)
Magari la cache non c'entra nulla visto che rieseguendo la routine funziona tutto. Se utilizzi delle variabili oggetto assicurati di
distruggerle tutte prima di rieseguire le istruzioni...
Ciao.
--
Sergio MAZZA


text:
> (ah! Ora ho capito)
> Magari la cache non c'entra nulla visto che rieseguendo la routine
> funziona tutto. Se utilizzi delle variabili oggetto assicurati di
> distruggerle tutte prima di rieseguire le istruzioni...
>
> Ciao.
>
> --
> Sergio MAZZA
come le distruggo? con il comando destroied? :)


text:
> (ah! Ora ho capito)
> Magari la cache non c'entra nulla visto che rieseguendo la routine
> funziona tutto. Se utilizzi delle variabili oggetto assicurati di
> distruggerle tutte prima di rieseguire le istruzioni...
>
> Ciao.
>
> --
> Sergio MAZZA
comunque pare che ho ragione il mio problema sembra proprio dovuto alla
cache non so se di windows o di IE fatto sta che se riscarico lo stesso file
non scarica quello vero su ftp ma quello che si trova da qualche parte
ancora nel pc
vedi questo link, anche se non ho capito come usarlo
http://www.vbnet.mvps.org/index.html?code/internet/index.html


text:

usando il raggio della stampante Laser
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
>> come le distruggo? con il comando destroied? :)
> usando il raggio della stampante Laser
>
ah ok, ci provo ciao.


text:
> ***** quindi mi chiedo
> esiste un modo per svuotare la cache di windows o non so quale altra
> memoria temporanea mi crei il problema?
>
> grazie.
ho provato anche con il controllo inet ma nulla la cache prevale sul file
vero in ftp
    Comando = "GET """ & "cartella/listino.ies" & """ """ & "C:\listino.ies"
& """"
qualcuno sa aiutarmi?


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:439eb51f$0$13268$4faf...@reader2.news.tin.it...
>
> ho provato anche con il controllo inet ma nulla la cache prevale sul file vero in ftp
>    Comando = "GET """ & "cartella/listino.ies" & """ """ & "C:\listino.ies" & """"
>
> qualcuno sa aiutarmi?
Mah!
Comunque, prova con questo activex; io l'ho usato senza nessun problema (anche INet) scaricando cartelle intere:
http://activex.sourceforge.net/
  - EsFtp
Ciao.
--
Sergio MAZZA


text:
>
> Mah!
> Comunque, prova con questo activex; io l'ho usato senza nessun problema
> (anche INet) scaricando cartelle intere:
>
http://activex.sourceforge.net/
  - EsFtp
>
> Ciao.
>
> --
> Sergio MAZZA
scusa ma una volta aggiunto nei riferimenti non lo trovo nella lista dei
componenti, mi sai dire con che nome compare nei controlli di access?
Grazie.


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:439eec31$0$13268$4faf...@reader2.news.tin.it...
>
> scusa ma una volta aggiunto nei riferimenti non lo trovo nella lista dei componenti, mi sai dire con che nome compare nei
> controlli di access?
>
> Grazie.
Devi solo creare il riferimento all'oggetto EsFtp.EsFtpCtrl.1;
es.
Dim EsFtp1 As esFTP
Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
...
Ciao.
--
Sergio MAZZA


text:
> Devi solo creare il riferimento all'oggetto EsFtp.EsFtpCtrl.1;
> es.
> Dim EsFtp1 As esFTP
> Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
> ...
> Ciao.
> Sergio MAZZA
scusa abbi pazienza ma uso questo codice qui sotto e non mi scarica nulla,
ho guardato il codice vb di esempio e cosi non dovrebbe mancare nulla
    Dim EsFtp1 As esFTP
    Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
    EsFtp1.Port = 21
    EsFtp1.RemoteHost = "
ftp.miosito.it
"
    EsFtp1.UserName = "" & "miouser"
    EsFtp1.Password = "" & "miapass"
    EsFtp1.Connect
    lngRetVal =
EsFtp1.GetRemoteFile("
http://www.miosito.it/cartella/listino.ies
",
"C:\listino.ies", "")
Tu che dici? grazie.


text:
> Devi solo creare il riferimento all'oggetto EsFtp.EsFtpCtrl.1;
> es.
> Dim EsFtp1 As esFTP
> Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
> ...
>
pare che il problema sia .connect cioč vale falso non si collega eppure i
parametri sono gli stessi che usavo con Inet, non capisco.


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:439f00ba$0$16204$4faf...@reader3.news.tin.it...
>
> scusa abbi pazienza ma uso questo codice qui sotto e non mi scarica nulla, ho guardato il codice vb di esempio e cosi non dovrebbe
> mancare nulla
>
>    Dim EsFtp1 As esFTP
>    Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
DoEvents
>    EsFtp1.Port = 21
>    EsFtp1.RemoteHost = "
ftp.miosito.it
"
>    EsFtp1.UserName = "" & "miouser"
>    EsFtp1.Password = "" & "miapass"
Le doppie virgolette vuote che stanno a significare? Toglile.
Poi:
If EsFtp1.Connect Then
    If EsFtp1.ChangeWorkingDir("cartella") = True Then
        If EsFtp1.GetRemoteFile("listino.ies", "C:\listino.ies", "I") = True Then
            Msgbox "Scaricato."
        Else
            Msgbox "Non scaricato."
        End If
    Else
        msgbox "Errore nel cambio directory"
    end if
Else
    msgbox "Connessione fallita"
End If
EsFtp1.Disconnect
msgbox "Disconnesso."
Set EsFtp1 = Nothing
> Tu che dici? grazie.
No, non ci siamo...
Ciao.
--
Sergio MAZZA


text:
> Ciao.
>
> --
> Sergio MAZZA
ottimo l'ocx che mi hai consigliato e infatti ora utilizzo quello
sai se permette anche di gestire una progress bar mentre copia il file?
comunque ho scoperto che non era il download ad avvenire ma bensì l'upload
dall'altra parte ora
prima di fare l'upload nuovo elimino il file dalla cartella ftp e poi faccio
l'upload e tutto è ok.
grazie.


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:439f6e05$0$7328$4faf...@reader4.news.tin.it...
>
> ottimo l'ocx che mi hai consigliato e infatti ora utilizzo quello
> sai se permette anche di gestire una progress bar mentre copia il file?
Quello che fa lo puoi trovare nella documentazione; non avendone bisogno non posso risponderti.
> comunque ho scoperto che non era il download ad avvenire ma bensě l'upload dall'altra parte ora
> prima di fare l'upload nuovo elimino il file dalla cartella ftp e poi faccio l'upload e tutto č ok.
Mi sembrava strano che la cache centrasse qualcosa...
> grazie.
Ciao.
--
Sergio MAZZA


title: estrarre ultimo record (in ordine di tempo)

author: gaetano di zanni

text:
Devo estrarre l'ultimo record inserito in ordine di tempo da una tabella
cosě fatta:
nome, data, ora, temperatura corporea.
il dato da estrarre č quello relativo alla temperatura corporea che viene
registrata anche dieci volte al giorno.
La query deve riportare SOLO un valore, l'ultimo registrato (quello che
riporta l'orario piu' alto) della data corrente (date()) o in una data
scelta da form di filtro con il metodo QBF.
Il metodo piů semplice?


author: Leo

text:
                    Il 19 Dic 2005, 20:41, "gaetano di zanni" <
gaetano...@alice.it
> ha
scritto:

Ciao,
ho riprodotto la tua tabella con i tuoi stessi campi e l'ho chiamata
tbl_temperatura. Questa e' la Query che potresti usare filtrando la data da
una form di input :
SELECT tbl_temperatura.nome, Last(tbl_temperatura.[temperatura corporea]) AS
[LastOftemperatura corporea]
FROM tbl_temperatura
GROUP BY tbl_temperatura.nome, tbl_temperatura.data
HAVING (((tbl_temperatura.data)=[forms]![tuaform]![tuocampofiltro]))
WITH OWNERACCESS OPTION;
Naturalmente puoi sostituire l'input della form con Date(), se vuoi filtrare
per la data del giorno senza utilizzare una form. Questa query ti mostra
l'ultima Temperatura Registrata, in termini di tempo, di una determinata
persona ad una selezionata data.
Fammi sapere se ti ha risolto il problema
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Gaetano Di Zanni

text:
"Leo" <
ch...@tiscali.it
> ha scritto nel messaggio
news:195Z239Z127Z2Y1...@usenet.libero.it...

Grazie Leo, in effetti ho risolto nel modo da Te suggerito.
Auguri di Buon Natale!


title: Problema difficile da risolvere !!! per me ?

author: CED Columbus

text:
Vorrei poter convertire applicazioni da access in
vb, e non riesco ad accedere al codice delle varie maschere, ossia vorrei poter
ritrarre il codice inserito nella maschera, modificarlo a seconda delle esigenze
e shiaffarlo in un form di vb.

Come faccio a ciclare su codice delle
maschere?


author: Antonio Di Marco

text:
Ottimo esempio di netiquette dal formato html al subject, non trovate ?
""CED Columbus"" <
columb...@linet.it
> ha scritto nel messaggio
news:000801c0da05$14443580$645bc881@pc100...



author: ced

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9dgrr1$uqp$1...@pegasus.tiscalinet.it...

questo è la pietra filosofale del secolo!, o meglio per essere alla moda,
"l'isola che non c'è"!


author: CarloCos

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9dgrr1$uqp$1...@pegasus.tiscalinet.it...

Devi ricorrere a programmi scritti da terze parti. Io ne conosco almeno due.
Il più completo: Access97ToVB (cerca questo sui motori oppure guarda
http://www.GFMinc.com
); per il secondo devo fare una ricerca e ti farò
sapere.
Ciao, Carlo


author: giaconet

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9dgrr1$uqp$1...@pegasus.tiscalinet.it...

Beh, per esempio, tu quoti male...ma non vorrei iniziare una polemica.
Bye
giaconet


author: Roberto da casa

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9dgrr1$uqp$1...@pegasus.tiscalinet.it...

Visto che si parla di netiquette, quella del nostro NG prevede di rispondere
dopo e non prima i messaggi precedenti. ;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Simone Calligaris

text:
> Vorrei poter convertire applicazioni da access in vb, e non riesco ad
> accedere al codice delle varie maschere, ossia vorrei poter ritrarre il
> codice inserito nella maschera, modificarlo a seconda delle esigenze e
> shiaffarlo in un form di vb.
> Come faccio a ciclare su codice delle maschere?
Lascia perdere, VB non è molto indicato per il gestionale.
Ciao, Simone


title: FAQ 3.89

author: solaria

text:
Ho utilizzato la funzione InputComboBox. Mi da il seguente errore: Errore di
run-time '2486' impossibile
eseguire l'azione adesso. Potreste aiutarmi a risolvere il problema? grazie
Andrea


title: FAQ 3.89

author: Roberto dal portatile

text:
"solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
news:ZSh5h.38736$uv5.2...@twister1.libero.it...

Quale delle due soluzioni indicate nella FAQ usi?
In che contesto richiami quella funzione?
> Andrea
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: FAQ 3.89

text:
Utilizzo la prima soluzione. Richiamo la funzione nei criteri di una query
che utilizzo per creare un report. Quando eseguo la query, la maschera
temporanea viene creata ma non viene successivamente eliminata, poi esce
l'errore 2486 e si bocca tutto. Ciao andrea
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:HFB5h.39484$Fk1....@twister2.libero.it...



title: FAQ 3.89

text:
"solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
news:q2J5h.40003$Fk1....@twister2.libero.it...



title: FAQ 3.89

text:
"solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
news:q2J5h.40003$Fk1....@twister2.libero.it...
> Utilizzo la prima soluzione. Richiamo la funzione nei criteri di una query
> che utilizzo per creare un report. Quando eseguo la query, la maschera
> temporanea viene creata ma non viene successivamente eliminata, poi esce
> l'errore 2486 e si bocca tutto. Ciao andrea
[CUT]
Scusa ma mi č partito "un colpo" a vuoto.
Nel rispetto delle regole di questo NG sarebbe bene che quando rispondi tu
scriva DOPO e non prima del testo dei messaggi precedenti.
Quanto a tuo problema sembrerebbe che il comando per eliminare la maschera
arrivi quando ancora la maschera non risulta chiusa: č per evitare questo
che il codice relativo all'eliminazione č protetto da una DoEvents; non
saprei proprio ipotizzare il motivo per cui sul tuo computer i DoEvents non
facciano il loro mestiere.
Prova ad usare la seconda soluzione nella quale la maschera tela crei tu a
priori e poi non te la devi concellare: questa seconda soluzione ha il
vantaggio di funzionare anche con un database in versione runtime.



title: FAQ 3.89

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:yQj6h.42352$uv5.2...@twister1.libero.it...
>
> "solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
> news:q2J5h.40003$Fk1....@twister2.libero.it...
> > Utilizzo la prima soluzione. Richiamo la funzione nei criteri di una
query
> > che utilizzo per creare un report. Quando eseguo la query, la maschera
> > temporanea viene creata ma non viene successivamente eliminata, poi esce
> > l'errore 2486 e si bocca tutto. Ciao andrea
> [CUT]
>
> Scusa ma mi è partito "un colpo" a vuoto.
>
> Nel rispetto delle regole di questo NG sarebbe bene che quando rispondi tu
> scriva DOPO e non prima del testo dei messaggi precedenti.
>
> Quanto a tuo problema sembrerebbe che il comando per eliminare la maschera
> arrivi quando ancora la maschera non risulta chiusa: è per evitare questo
> che il codice relativo all'eliminazione è protetto da una DoEvents; non
> saprei proprio ipotizzare il motivo per cui sul tuo computer i DoEvents
non
> facciano il loro mestiere.
> Prova ad usare la seconda soluzione nella quale la maschera tela crei tu a
> priori e poi non te la devi concellare: questa seconda soluzione ha il
> vantaggio di funzionare anche con un database in versione runtime.
>
> --
> Roberto
> -----------------------------------------------
> il Sito Comune di it.comp.appl.access
>
http://www.sitocomune.com
> -----------------------------------------------
> Grazie e scusa per l'errore di locazione del messaggio. Ciao Andrea
>


title: [HELP] Uso di Access come Front End per SQL Server come BE - come scrivere le query ?

author: Pisinho

text:
Access 2007 con tabelle collegate ad un SQL Server 2005.
impostazioni utente SQL su Italiano.
Il DSN non usa le regional settings, quindi presuppongo che usi
l'impostazione in Italiano.
Ho fatto tutte le prove mettendo le date fra apici, con il cancelletto, alla
rovescia con o senza "/", ma ottengo sempre un errore quando compilo
l'applicazione e la metto sul client anch'esso in italiano.
La mia domanda � questa, le query che scrivo in VBA premesso che sono
tabelle collegate, devono essere scritte come le vuole ACCESS o SQL SERVER ?
Ovvero, posso utilizzare comandi che appartengono SOLO al SQL server ?
Nel frattempo continuo con le prove...
Saluti e buona festa


title: INSERT INTO

author: taicon

text:
Salve a tutti
Vorrei, anzichč far eseguire una queri, passare un'istruzione SQL nel
database corrente per inserire dati in una tabella (ie tab01) provenienti da
una query e da una maschera contemporaneamente.
Non ne capisco molto di SQL ma l'aiuto in linea di SQL č un disastro (almeno
secondo me) e mentre tempo fa ero riuscito a risolvere questo problema per
un ASP, ora non ci riesco piů.
Se digito: "INSERT
INTOtab01"&"(campo1,campo2,campo3)VALUES"&"('valore1','valore2','valore3');"
perchč non funziona e nella compilazione in vb continua a dare errori ?
Grazie
T.
--
------------------------------
Timeo Danaos sed dona ferentes (Omero)
------------------------------


title: INSERT INTO

text:
"taicon" <
tai...@infinito.it
> ha scritto nel messaggio
news:8lmabq$hso$1...@nslave1.tin.it...
> Salve a tutti
> Vorrei, anzichč far eseguire una queri, passare un'istruzione SQL nel
> database corrente per inserire dati in una tabella (ie tab01) provenienti
da
> una query e da una maschera contemporaneamente.
> Non ne capisco molto di SQL ma l'aiuto in linea di SQL č un disastro
(almeno
> secondo me) e mentre tempo fa ero riuscito a risolvere questo problema per
> un ASP, ora non ci riesco piů.
> Se digito: "INSERT
>
INTOtab01"&"(campo1,campo2,campo3)VALUES"&"('valore1','valore2','valore3');"
>
> perchč non funziona e nella compilazione in vb continua a dare errori ?
>
> Grazie
> T.
>
>
>
Hai provato con:
    "INSERT INTO tab01 (campo1,campo2,campo3) VALUES
('valore1','valore2','valore3')"
Roberto


title: INSERT INTO

author: Nicola Ardito

text:
"taicon" <
tai...@infinito.it
> ha scritto nel messaggio
news:8lmabq$hso$1...@nslave1.tin.it...
> Salve a tutti
> Vorrei, anzichč far eseguire una queri, passare un'istruzione SQL nel
> database corrente per inserire dati in una tabella (ie tab01) provenienti
da
> una query e da una maschera contemporaneamente.
> Non ne capisco molto di SQL ma l'aiuto in linea di SQL č un disastro
(almeno
> secondo me) e mentre tempo fa ero riuscito a risolvere questo problema per
> un ASP, ora non ci riesco piů.
> Se digito: "INSERT
>
INTOtab01"&"(campo1,campo2,campo3)VALUES"&"('valore1','valore2','valore3');"
>
> perchč non funziona e nella compilazione in vb continua a dare errori ?
>
> Grazie
> T.
Prova
"INSERT INTO Tab01 (campo1,campo2,campo3) VALUES ( " & valore1 & ", " &
valore2 & "," & valore3 & ")"
Attenzione che se i valori sono stringa devi mettere un apostrofo prima e
dopo le virgolette che li comprendono. Ad es se valore1 č di tipo stringa
allora
"INSERT INTO Tab01 (campo1,campo2,campo3) VALUES ( '" & valore1 & "', " &
valore2 & "," & valore3 & ")"
Ciao Nicola


title: INSERT INTO

text:
Grazie ma non funziona , stesso errore dice:
"immettere numero riga o fine istruzione...."
--
------------------------------
Timeo Danaos sed dona ferentes (Omero)
------------------------------
Roberto dal portatile <
r.ma...@libero.it
> wrote in message
NUyf5.679$wS2....@news.infostrada.it...


title: INSERT INTO

text:
Grazie ma non funziona , stesso errore dice:
"immettere numero riga o fine istruzione...."
--
------------------------------
Timeo Danaos sed dona ferentes (Omero)
------------------------------
Nicola Ardito <
nicola...@tin.it
> wrote in message
8lmeek$f22$1...@nslave2.tin.it...
>
....


title: INSERT INTO

author: Lorenzo Coronati

text:
Scrisse "taicon" <
tai...@infinito.it
>:
>Grazie ma non funziona , stesso errore dice:
>"immettere numero riga o fine istruzione...."
ROTFL!
Ma dove la scrivi 'sta roba?
Vediti docmd.runsql, va!
--
Lorenzo Coronati
--
<<Io studio ing gestionale e dei non laureati
che mi sputano in faccia mi faccio beffe.>>
(Andrea "Mr Bad Guy", 10/07/2000)
--


title: Controlli label

author: Paolo

text:
Ciao a tutti
Ho una marea di controlli label il una form chiamati LBL1, LBL2, LBL3
ecc.........
per non dover assegnare a mano il rispettivo caption ad ogni controllo
vorrei fare un ciclo for  ma ho qualche difficoltà !!!!! Dove sbaglio?????
for i = 1 to 200
    me!lbl"& i &.caption= XXXX
next i


title: Controlli label

author: Roberto - Syd

text:
"Paolo" <
paolo...@libero.it
> ha scritto nel messaggio
news:O5fw7.48148$0Y2.4...@news.infostrada.it...

Devi fare così:
 for i = 1 to 200
         Me.Controls("lbl" & Trim(Str(i))).Caption = "Pippo"
 next i
che vuol dire assegna alla proprietà caption del controllo che si chiama
lbl(i) il valore Pippo quando usi un numero con una stringa lo devi
convertire in stringa e togliere lo spazio che la conversione lascia davanti
al numero.
Ciao Roberto - Syd


title: DB lento su sincronia file

author: bio

text:
Ho replicato il BE di un db access su di un portatile collegato in rete.
Accedendo al BE attraverso la rete le prestazioni sono più che buone mentre
se accedo al db sincronizzato in sincronia file il DB diventa
lentissimo....su alcune maschere credo si blocchi addirittura.
Ho provato a trasferire il file BE sul portatlie (pensavo che il BE fosse
troppo grosso per essere gestito dal povero portatile) e tutto funziona
benissimo... (N.B. il BE l'ho copiato di brutto e quindi mantiene tutti i
campi aggiunti dalla replica.)
Che fare.... aspettare l'anno prossimo perchè si apra una maschera?
Grazie a quanti mi daranno una dritta.
Buon Santo Stefano a tutti....
Biotto


title: Azzerare il contatore

author: Antonio Cannavale

text:
Com'è possibile azzerare il contatore?
--
_______
Antonio
_______


title: Azzerare il contatore

author: MA

text:
Antonio Cannavale wrote:
> Com'č possibile azzerare il contatore?
cancella tutti i record e compatta il db
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Azzerare il contatore

author: luigi onofrio

text:
MA ha scritto:
> Antonio Cannavale wrote:
> > Com'č possibile azzerare il contatore?
> cancella tutti i record e compatta il db
se non dovesse andare come ha consigliato MA, converti il contatore in
testo, cancella i record (tutti) e poi riconverti il contatore in
contatore.
Metodo parallero :-))))
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Azzerare il contatore

text:
MA ha scritto:
> Antonio Cannavale wrote:
>> Com'è possibile azzerare il contatore?
> cancella tutti i record e compatta il db
Ok.
Grazie
--
_______
Antonio
_______


title: Azzerare il contatore

text:
luigi onofrio ha scritto:
> MA ha scritto:
>
>> Antonio Cannavale wrote:
>>> Com'è possibile azzerare il contatore?
>> cancella tutti i record e compatta il db
>
> se non dovesse andare come ha consigliato MA, converti il contatore in
> testo, cancella i record (tutti) e poi riconverti il contatore in
> contatore.
> Metodo parallero :-))))
>
Non si ottiene l'azzeramento.
Meglio il metodo di MA



title: come intercettare il campo attivo di una maschera

text:
E' possibile intercettare sulle maschere aperte dove si trova il cursore
del mouse ?
Questa informazione mi serve perchè vorrei utilizzare un tasto funzionale
(es. F3) per compiere una determinata azione (esempio stampa di qualcosa
..) il risultato di questa azione ovviamente dipenderà dal campo della
maschera attiva in quel momento. Grazie per l'aiuto Nicola
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Alessandro Cara

text:
Nicola47 wrote:
> E' possibile intercettare sulle maschere aperte dove si trova il cursore
> del mouse ?
> Questa informazione mi serve perchè vorrei utilizzare un tasto funzionale
> (es. F3) per compiere una determinata azione (esempio stampa di qualcosa
> ..) il risultato di questa azione ovviamente dipenderà dal campo della
> maschera attiva in quel momento. Grazie per l'aiuto Nicola
>
per come hai descritto la cosa dovrebbe essere sufficiente verificare il
me.activecontrol
--
ac
email: w+1=x


title: Data Base multiutente

author: Odla

text:
Buongiorno a tutti.
Ho un db Access sul sever aziendale.
Devo fare qualcosa di particolare fare per far si che da più pc in rete ci
si possa collegare
per fare inserimento dei dati?
Grazie a tutti per l'aiuto
Aldo


title: Data Base multiutente

author: CIDI

text:
"Odla" <
boff...@libero.it
> ha scritto nel messaggio
news:21KJj.51333$FR.2...@twister1.libero.it...

ciao Aldo
normalmente si divide il db in BE-FE.
che intendi per particolare? scongiuri?
in caso di sfiga leggera dovrebbe bastare un:
grattazio pallarum omnia pericula perfugit.  :D
Daniele


title: Data Base multiutente

author: Massimo Piubelli

text:
CIDI wrote:
> grattazio pallarum omnia pericula perfugit.  :D
Che programma di backup figo che usi ^__^
ROTFL


title: Data Base multiutente

text:
"Massimo Piubelli" <massim...@accessgroup.it.invalid> ha scritto nel
messaggio news:ft82n5$2sv$1...@tdi.cu.mi.it...
CIDI wrote:


questo è il minimo.....ne uso anche altri più potenti :<))
per una sfiga media:
Terque quaterque testiculis tactis, pallegiatoque augello,
detracto pilo maiore usque ad sanguem,
advocato sancto patrono, iactura fugata est
Daniele


title: Data Base multiutente

text:
"CIDI" <
dado...@spamtin.it
> ha scritto nel messaggio
news:47f78904$0$10624$4faf...@reader2.news.tin.it...

Ciao Daniele,
scusa la mia ignoranza, cosa vuol dire dividere in BE-FE?
Se lascio in db così come creato quando lo aprono più di una persona
appare il messaggio "il db non è aperto in modalità esclusiva........."
I vorrei semplicemente che ci potessere inserire e visualizzare i dati più
persone
(2 o 3) contemporaneamente.
Grazie ancora
Aldo


title: Data Base multiutente

text:
"Odla" <
boff...@libero.it
> ha scritto nel messaggio
news:N5EKj.284253$%k.40...@twister2.libero.it...
>> ciao Aldo
>> normalmente si divide il db in BE-FE.
>> che intendi per particolare? scongiuri?
>> in caso di sfiga leggera dovrebbe bastare un:
>> grattazio pallarum omnia pericula perfugit.  :D
>>
>> Daniele
>>
> Ciao Daniele,
> scusa la mia ignoranza, cosa vuol dire dividere in BE-FE?
significa avere due file invece di uno.
nel primo, chiamato BE ci sono le tabelle, nel secondo, chiamato FE
contiene tutto il resto.
da menù strumenti->utilità database->divisione guidata database
leggi help e cerca nei post precedenti, la questione è stata ampiamente
discussa.
www.donkarl.com/it?FAQ1.35
Ciao
Daniele


title: Data Base multiutente

text:
"CIDI" <
dado...@spamtin.it
> ha scritto nel messaggio
news:47fb30cd$0$4784$4faf...@reader4.news.tin.it...

Grazie molto! Mi studio bene questa opzione!
Aldo


title: SU APERTURA FORM RIDURRE AD ICONA ALTRA FORM GIA' APERTA (ACCESS 2021)

author: Leonardo Esposito

text:
Buonasera,
vorrei impostare su apertura della maschera frmDDT il comando che fa ridurre ad icona un'altra maschera che è già aperta di nome frmDASHBOARD.
Grazie mille.


author: BFS

text:

DoCmd.SelectObject acForm, "frmDASHBOARD"
DoCmd.Minimize

BFS


author: Ammammata

text:
BFS explained on 21/12/2022 :

ma dopo queste due istruzioni non sarebbe opportuno anche

DoCmd.SelectObject acForm, "frmDDT"

per essere sicuri che il focus torni su quella appena aperta?

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: Collegamento OLE

author: fidel

text:
Da Sitocomune.com ho preso spunto per legare ad un campo di access la
creazione/modifica di un documento di word. Ho creato nella tbl il campo
ole, nel form la cornice oggetto associato e tramite il click con il
pulsante dx posso riempire la casella ole con documento di word, avendolo
cosě disponibile.Stupendo! Il quesito č: posso automatizzare quella
procedura di click e aggangio in modo avere immediatamente disponibile
lěole nella casella?
1000 grazie
L'articolo in questione lo trovate qui
http://www.sitocomune.com/forms/forms008.htm
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Maledizione, perchè?

author: Imbranato

text:
D'accordo, sono alle prime armi, ma mi chiedo perchè avendo collegato ad una
tabella Anagrafica generale una tabella Sesso campi M o F e una tabella
Attività Studente, lavoratore etc....nella colonna corrispondente
dell'Anagrafica generale (e nel relatico report) invece di farmi vedere
Franco      M          Lavoratore
Giovanna   F          Studente
mi fa vedere
Franco       1                2
Giovanna    2               1
???????????????????????????????????


title: Maledizione, perchè?

author: Alessandro Baraldi

text:
"Imbranato" <
webm...@educatori.com
> wrote in message
news:7TuYe.5262$
pJ6.3...@news4.tin.it
> D'accordo, sono alle prime armi, ma mi chiedo perchè avendo collegato ad una
> tabella Anagrafica generale una tabella Sesso campi M o F e una tabella
> Attività Studente, lavoratore etc....nella colonna corrispondente
> dell'Anagrafica generale (e nel relatico report) invece di farmi vedere
Leggi il post di Roberto relativo alla netiquettes.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Maledizione, perchè?

text:
"Imbranato" <
webm...@educatori.com
> ha scritto nel messaggio
news:7TuYe.5262$pJ6.3...@news4.tin.it...

Interessante, ma non mi aiuta


title: Maledizione, perchè?

author: Giovanni

text:
"Imbranato" <
webm...@educatori.com
> ha scritto nel messaggio
news:TBwYe.5990$pJ6.3...@news4.tin.it...

Sicuramente la Tabella Sesso e la Tabella Attività Studente avranno un Campo
(Contatore) forse denominato IDSesso e IDAttivitàStudente (questo non lo
so).
Forse nella maschera relativa all'anagrafica hai creato una Casella
Combinata prendendo con origine riga la Tabella Sesso, se è così dovresti
prendere dalla tabella sesso solo la colonna cche riporta M ed F e non
l'IDSesso.
((c'ho provato))
Fammi sapere Ciao.
GA


title: Maledizione, perchè?

text:
"Imbranato" <
webm...@educatori.com
> wrote in message
news:TBwYe.5990$
pJ6.3...@news4.tin.it
>
[CUT]
> Interessante, ma non mi aiuta
Il fatto è che nemmeno il tuo Subject aiuta gli altri
quindi nel NG si è deciso(alcuni, ma i più presenti) di
non incentivare questi messaggi.
Riproponi il messaggio con un Soggetto valido al fine di
ricerche per argomento, modo in cui si dovrebbe prevenire
la formulazione di quesiti già posti.......!
Saluti



title: Variazione codice

author: mauro

text:
Ho questo codice sul click di un bottone, come faccio per far si che si
esegua senza premere il bottone e senza visualizzare il messaggio di
"cancellazione tabella ecc...?  Mi servirebbe che dopo aver inserito un
campo venga eseguito.
GRAZIE
---------------INIZIO-------------
Private Sub Genera_Calendario_Click()
On Error GoTo Err_Genera_Calendario_Click
    Dim stDocName As String
    stDocName = "QueryCal"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Genera_Calendario_Click:
    Exit Sub
Err_Genera_Calendario_Click:
    MsgBox Err.Description
    Resume Exit_Genera_Calendario_Click
End Sub
------------------ FINE ------------------------


title: Variazione codice

author: Antonio Biso

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:uaT2a.237478$AA2.9...@news2.tin.it...
> Ho questo codice sul click di un bottone, come faccio per far si che si
> esegua senza premere il bottone e senza visualizzare il messaggio di
> "cancellazione tabella ecc...?  Mi servirebbe che dopo aver inserito un
> campo venga eseguito.
Lo metti sull'evento dopo aggiornamento del controllo (l'inserimento lo fai
nel controllo, non nel campo!)
Prima di eseguire disattivi gli avvertimenti, poi li riattivi. Vedi
setwarnings
Antonio


title: Variazione codice

text:
Ma in pratica, come faccio ?
Il codice che devo mettere ?
La query si chiama "Querycal"
GRAZIE
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:dCT2a.115049$YG2.3...@twister1.libero.it...



title: Variazione codice

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:4Ea3a.182188$0v.50...@news1.tin.it...
> Ma in pratica, come faccio ?
> Il codice che devo mettere ?
>
> La query si chiama "Querycal"
Prima e ultima risposta se non scrivi DOPO il quoting!
docmd.setwarnings false
docmd.openquery "Quercal"
docmd.setwarnings true
Antonio


title: Variazione codice

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:%M44a.127197$ZE.36...@twister2.libero.it...

GRAZIE   !  Ma QUOTING   significa scrivere qui ?
Ciao


title: Variazione codice

text:
"mauro" <
maur...@email.it
> ha scritto nel messaggio
news:1Xb4a.259512$AA2.10...@news2.tin.it...

Il quoting è la parte del messaggio a cui rispondi e che lasci nella tua
risposta. Si scrive dopo il quoting, o in mezzo...
Antonio


title: Maschera continua

author: FID

text:
Ho un db mono tabella con un campo dove inserisco un valore univoco per
ogni record, pezzi di ricambio. Avrei quindi la necessità di elencare i
pezzi che in un determinato momento prelevo, uno o più di uno, quindi in
una maschera continua digitare il primo codice e ottenere la
visualizzazione del record, del secondo codice e così via ottenendo così
l'elenco che poi potrò maneggiare in base alle mie esigenze.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Maschera continua

author: Il Gatto

text:
"FID" <
fe_l...@yahoo.it
> ha scritto nel messaggio
news:cu8g3i$p2v$1...@news2.newsland.it...
> Ho un db mono tabella con un campo dove inserisco un valore univoco per
> ogni record, pezzi di ricambio. Avrei quindi la necessità di elencare i
> pezzi che in un determinato momento prelevo, uno o più di uno, quindi in
> una maschera continua digitare il primo codice e ottenere la
> visualizzazione del record, del secondo codice e così via ottenendo così
> l'elenco che poi potrò maneggiare in base alle mie esigenze.
Fai così: crea una seconda tabella contenente un solo campo dello stesso
tipo del tuo codice articolo, che deve essere chiave primaria nella tabella
originale, altrimenti il giochino non funziona. Per lo stesso motivo sulla
nuova tabella non ci deve essere chiave primaria. Quindi crei la maschera
continua dandogli come recordsource una query con un bel inner join tra le
due tabelle, collegate mediante il campo comune e prelevi dalla prima tutti
i campi meno la chiave, dalla seconda l'unico campo che c'è, che diventa il
tuo campo codice articolo, l'unico che dovrai compilare.
Adesso nella tua maschera metti tutti i campi a tua disposizione, avviala,
compila il solo campo che fa riferimento al codice articolo (quello
prelevato dalla seconda tabella) e spostati sul secondo record: tutti i
campi mancanti si compileranno da soli (grazie al join).
Ad operazione conclusa troverai la tabella originaria intoccata, quella
nuova conterrà invece la "lista della spesa".
IG


title: Maschera continua

author: angelodannato

text:
"FID" <
fe_l...@yahoo.it
> ha scritto nel messaggio
news:cu8g3i$p2v$1...@news2.newsland.it...

sii più chiaro....vuoi l'esplosione di una distinta base? cioè digiti il
codice padre e ti fa vedere i figli??
non si capisce!
Ciao


title: Maschera continua

text:
angelodannato ha scritto
> >
> >
> sii più chiaro....vuoi l'esplosione di una distinta base? cioè digiti il
> codice padre e ti fa vedere i figli??
> non si capisce!
> Ciao
Cioò che vorrei è che se devo scegliere 10 articoli del mio db e
modificare il controllo " in magazzini" da vero a falso non mi va di
puntare il primo record  e modificare il valore, puntare il secondo e
modificare, puntare il terzo e così via, vorrei utulizare una maschera
continua che mi permetterebbe di passare il primo codice articolo e
automaticamente riempire i campi, passare il secondo etc e poi in una
unica soluzione modificare il valore. Il codice articolo è un mio barcode
quindi con la pistola diventa selezionare 20 articoli equivale a "sparare"
i 20 barcode e un click e non a 20 puntamenti e modifiche. Spero di essere
stato più chiaro.



title: Maschera continua

text:
Il Gatto ha scritto:




> IG
Perfetto.Ho anche inserito un bottone che dovrebbe scrivere per ogni
record nella lista la data corrente e passare il controlo da vero a falso,
nel click ho messo :
me.inmagazzino.value=false
me.data_uscita.value=date
ma vale solo per il record evidenziato, per farlo valere per tutti?
grazie ancora



title: Maschera continua

text:
"FID" <
fe_l...@yahoo.it
> ha scritto nel messaggio
news:cua81k$4en$1...@news.newsland.it...
> Perfetto.Ho anche inserito un bottone che dovrebbe scrivere per ogni
> record nella lista la data corrente e passare il controlo da vero a falso,
> nel click ho messo :
> me.inmagazzino.value=false
> me.data_uscita.value=date
> ma vale solo per il record evidenziato, per farlo valere per tutti?
Usi una query di aggiornamento e poi rinfreschi la maschera:
DoCmd.RunSQL "UPDATE TuaTabella SET inmagazzino=true, data_uscita=date()
WHERE CodiceArticolo IN (SELECT Codice FROM SecondaTabella)"
Me.Requery


title: Chiarimento su valore letterale ?

text:
Dalla guida Valore Letterale di una Data
è qualsiasi sequenza di caratteri con formato valido
racchiuso tra ## (cancelletti)
#12/31/92# è il valore letterale di una data
corrispondente al 31 dic 1992 in un'applicazione
con impostazioni internazionali italiane.
Utilizzare i valori letterali di date per
ottimizzare la portabilità del codice tra le lingue.
Non ho ben capito quando va usato questo modo
di scrivere le date.
non è meglio scrivere per il formato gg mm aa almeno
sono certo che il primo sono i giorni poi i mesi ed infine l'anno.
Faccio un esempio io uso del codice su un certo pc con una certa impostazione
interna della data
e su una casella di testo voglio avere gg mm aaaa
per uso questo formato
Ora se cambio pc e non so qual'è l'impostazione sua internazionale,
e ammesso per ipotesi è diversa dal precedente, io nella mia casella
avrò sempre gg mm aaaa poichè per il valore della data ho scelto un formato così
oppure cambia qualcosa visto che l'impostazione internazionale è diversa?
Questa impostazione internaz. dove si controlla, sotto windows? (almeno credo)
esattamente dove? o e fissa per ogni nazione dove sono commercializati i pc?
grazie 1000


title: Chiarimento su valore letterale ?

author: Doc Ross

text:
rr12rr ha scritto nel messaggio <3A2A9D52...@NOSPAMusa.net>...

L'impostazione della data/ora viene effettuata dal Pannello di Controllo ->
Impostazioni Internazionali di Windows.
er il resto, non so cosa risponderti.
                                                                        Doc
Ross


title: unire due filtri me.filter  dove sbaglio??

author: Marco

text:
buongiorno,
vorrei unire 2 filtri che sono presenti in una maschera
ci sono 2 caselle di testo che filtrano i risultati

questo e' il codice ma mi da errore di sintassi
dove sbaglio?

Me.Filter = "[COD_ART] like '*" & Me.CODICE.Value & "*'" & "And
[RAG_SOC_CF] like '*" & Me.RAGIONESOCIALE.Value & "*'" & "And
[DES_RIGA] like '*"
            & Me.DESCRIZIONE.Value & "*'"

grazie in anticipo


author: Popi - TheBadHabits

text:
Ciao!

Me.Filter = "[COD_ART] like '*" & replace$(Me.CODICE, "'", "''") & "*' And [RAG_SOC_CF] like '*" & replace$(Me.RAGIONESOCIALE, "'", "''") & "*' And [DES_RIGA] like '*" & replace$(Me.DESCRIZIONE, "'", "''") & "*'"

Così funziona?

HTH
Popi


text:

Ciao

ho risolto cosi'
Me.Filter = "[COD_ART] like '*" & Me.CODICE.Value & "*'" & "And
[RAG_SOC_CF] like '*" & Me.RAGIONESOCIALE.Value & "*'" & "And
[DES_RIGA] like '*" & Me.DESCRIZIONE.Value & "*'"

c'era qualche carattere di troppo

grazie cmq

marco


text:
Sbaglierò, ma a me sembra identica in tutto e per tutto alla prima ... boh!

Popi


author: Bruno Campanini

text:
Popi - TheBadHabits wrote on 02-02-12 :
> Sbaglierò, ma a me sembra identica in tutto e per tutto alla prima ... boh!

No non sbagli, sono identiche.
È il vino che cambia...

Io comunque la scriverei così:

FILTER = "[COD_ART] like '*" & [CODICE] & "*' And
[RAG_SOC_CF] like '*" & [RAGIONESOCIALE] & "*' And
[DES_RIGA] like '*" & [DESCRIZIONE] & "*'"

Bruno


text:
Vino? Se è Santo ci vogliono i Cantuccini ;)

Per quanto riguarda il codice che useresti tu non mi esprimo sulla mancanza del "Me." dato che ho scoperto ora consultando l'help che Access lo sottintende.

Invece, IMVHO [1] mi sa che quel codice va in crisi se uno dei campi filtro contiene un apice ("'"), da qui le replace che lo sterilizzano sostituendolo con una coppia di apici ("''").

:)

Popi

[1] Accetto volentieri smentite e/o suggerimenti migliorativi (e se mi si
    dirà che sono falso come una banconota da 28000 lire ... pazienza! :) ).


title: registrazione del numero di movimenti in valore assoluto

author: thinice

text:
Ciao a tutti. In Access XP, ho una tabella T1 nella quale è presente
un campo [data_aggiornamento]  e un campo [registrazioni] nel quale
vengono inseriti dei valori prelevati periodicamente più volte nel
corso della giornata.
Esempio:
data_aggiornamento   registrazioni
13/05/2008 08:00:00   5
13/05/2008 10:29:15   1
13/05/2008 11:05:00   12
avrei bisogno di calcolare in una query il totale in valore assoluto
dei "movimenti" eseguiti nel corso della giornata a partire dalla
prima registrazione.
Mi spiego (spero):
dalla prima registrazione delle 08:00:00, alla seconda seconda delle
10:29:15, ci sono stati 5-1=4 movimenti. Dalle 10:29:15 alle 11:05:00
della terza registrazione ci sono stati 1-12=11 (in valore assoluto)
movimenti. Quindi 4+11=15 movimenti in tutto.
Avete qualche suggerimento?
Vi ringrazio anticipatamente.
Giancarlo


text:

E' dura capire il motivo del segno meno nei movimenti...!
In ogni caso nel SitoComune trovi un esempio per il calcolo del
RunningSum
o somma progressiva... nel tuo caso basta modificare la routine per
recuperare il valore precedente... o semplicemente salvare in una
Variabile Public il valore attuale e rileggerlo al successivo
passaggio prima di aggiornarlo...!
Ti crei una Function Public alla quale passi il Valore del movimento
attuale, quindi associ il valore restituito al valore precedente poi
aggiorni...!
Private mLastValue as Long
Function getLastValue(actValue as Long) As Long
    getLastValue=mLastValue
    mLastValue=actValue
End Function
Nella tua Query inserisci un campo calcolato:
SELECT *, Abs(getLastValue([registrazioni])-[registrazioni]) AS
ABS_MOV
FROM Tabella
ORDER BY data_aggiornamento
Ciao
@Alex


title: tagliare un dato

author: Claudia G

text:
la mia tabella nomi ha un campo alfa
dentro il campo alfa ho il dato scritto cosi: abc - xyz
devo scrivere il dato abc dentro il campo primo
devo scrivere xyz dentro il campo secondo
come posso fare?
naturalmente si parla di tutti i dati della colonna alfa da portare dentro
primo e secondo...


title: tagliare un dato

author: Roberto da casa

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:44533c2b$0$18289$4faf...@reader1.news.tin.it...

Se la tabella che contiene i dati si chiama Tabella1.
Se il trattino che sapare le due stringhe è preceduto e seguito da uno
spazio.
Prova con una query di aggiornamento che abbia il seguente codice SQL:
UPDATE Tabella1 SET Tabella1.primo = Left([alfa], InStr([alfa], "-")- 2),
Tabella1.secondo = Mid([alfa], InStr([alfa], "-")+ 2);
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: tagliare un dato

text: GRAZIE MILLE


title: tagliare un dato

text:
cavolo mi sono accorta di un altro problema
purtroppo mi sono arrivati dei dati in excel ( 14.000 righe ) e li ho
importati nella mia tabella access
questo è un esempio del dato nel campo address:
Viale dei Cipressi, 15  50041  CALENZANO (Firenze)
Viale dei cipressi, 15 dovrei inserirlo nel campo Indirizzo
50041 nel campo Cap
CALENZANO nel campo Città
(Firenze) nel campo Provincia
è possibile fare cio?


title: tagliare un dato

text:
"Claudia G" <
cla...@libero.it
> wrote in message
news:445361c8$0$18283$4faf...@reader1.news.tin.it...

Posto che il campo sia sempre strutturato allo stesso modo:
-  dal primo carattere a tutto il numero dopo la virgola (indirizzo)
-  l'intero numero successivo (CAP)
-  la stringa prima della parentesi (città)
-  la stringa fra parentesi (provincia),
sì, è possibile.
Ma sarei pronto a scommettere che non è sempre così...
Bruno


title: tagliare un dato

text:
> Posto che il campo sia sempre strutturato allo stesso modo:
> -  dal primo carattere a tutto il numero dopo la virgola (indirizzo)
> -  l'intero numero successivo (CAP)
> -  la stringa prima della parentesi (città)
> -  la stringa fra parentesi (provincia),
>
> sì, è possibile.
>
> Ma sarei pronto a scommettere che non è sempre così...
>
queste sono alcune righe di esempio:
Via Olmetto, 5  20123  MILANO (Milano)
Loc. Madonnina di Prabiano, 17  37069  VILLAFRANCA (Verona)
Via Callalta, 13  30020  BLESSAGLIA DI PRAMAGGIORE (Venezia)
Via Cavedoni, 54  41010  LEVIZZANO DI CASTELVETRO (Modena)
P.zza del Municipio, 1  29014  CASTELL'ARQUATO (Piacenza)
Zona Industriale Piano Lago, 8  87050  MANGONE (Cosenza)
Via Casa Savoia, 156  89055  GALLICO MARINA (Reggio Calabria)
se è possibile come posso fare???


title: tagliare un dato

text:
"Claudia G" <
cla...@libero.it
> wrote in message
news:4455dd81$0$18296$4faf...@reader1.news.tin.it...
> queste sono alcune righe di esempio:
> Via Olmetto, 5  20123  MILANO (Milano)
> Loc. Madonnina di Prabiano, 17  37069  VILLAFRANCA (Verona)
> Via Callalta, 13  30020  BLESSAGLIA DI PRAMAGGIORE (Venezia)
> Via Cavedoni, 54  41010  LEVIZZANO DI CASTELVETRO (Modena)
> P.zza del Municipio, 1  29014  CASTELL'ARQUATO (Piacenza)
> Zona Industriale Piano Lago, 8  87050  MANGONE (Cosenza)
> Via Casa Savoia, 156  89055  GALLICO MARINA (Reggio Calabria)
>
> se è possibile come posso fare???
Tabella t_Indirizzi coi campi:
Indirizzo, Via, CAP, Località, Provincia
per tutti DataType: Text, Lunghezza: 255.
Il primo campo compilato coi dati di cui sopra.
La routine che segue suddivide gli elementi che compongono
l'indirizzo completo.
==========================
Private Sub Command39_Click()
Dim RS As Recordset, i As Long, j As Long, k As Long
Dim CAP As String, h As Long, m As Long
Set RS = Currentdb.OpenRecordset("t_Indirizzi")
Do Until RS.EOF
    For i = 1 To Len(RS![Indirizzo])
        If IsNumeric(Mid(RS![Indirizzo], i, 1)) Then
            j = j + 1
        ElseIf j > 0 Then
            RS.Edit
            RS![Via] = Mid(RS![Indirizzo], 1, i)
            RS.Update
            Exit For
        End If
    Next
    j = 0
    For h = 1 To 20 ' possono esservi più di uno spazio fra indirizzo e CAP
        If Mid(RS![Indirizzo], i + h, 1) = " " Then
        Else
            For k = 1 To 5
                CAP = CAP & Mid(RS![Indirizzo], i + h + k - 1, 1)
            Next
            RS.Edit
            RS![CAP] = CAP
            RS.Update
            CAP = ""
            Exit For
        End If
    Next
    For m = 1 To 20 ' analogamente fra CAP e località
        If Mid(RS![Indirizzo], i + h + m + k - 1, 1) = " " Then
        Else
            RS.Edit
            RS![Località] = Mid(RS![Indirizzo], i + h + m + k - 1, _
                  InStr(1, RS![Indirizzo], "(") - i - h - m - k + 1)
            RS.Update
            Exit For
        End If
    Next
    RS.Edit
    RS![Provincia] = Mid(RS![Indirizzo], InStr(1, RS![Indirizzo], "("))
    RS.Update
    RS.MoveNext
Loop
End Sub
===========================
Bruno


title: criterio per FINDFIRST

author: PWD

text:
Ciao...
mannaggia, sto smanettando per fare un criterio funzionante per il find
first... ma non mi riesce.
Sull'evento doppio click di una casella di riepilogo a 3 colonne (List)
non associata che preleva i valori colonna da una query a runtime:
'-----------------------------------------------------------------------
Dim criterio As String
   strDate = Format(List.Value, "\#yyyy\-mm\-dd\#")
   ord = List.Column(0) 'Preleva il valore dalla prima colonna che
contiene una stringa con numero ordine
   lav = List.Column(2) 'Preleva il valore dalla terza colonna che
contiene una stringa con lav
   criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"
   Me.Recordset.FindFirst criterio
End Sub
'-----------------------------------------------------------------------
L'errore ï¿œ Tipo non corrispondente alla riga in cui assemblo il criterio
da passare al findfirst!!!!
Praticamente il mio obiettivo ï¿œ fare doppio click sulla riga della lista
e fare in modo che il record "doppiocliccato" sia caricato nella
maschera che contiene la lista; usando solo la data, funziona, ma
ovviamente seleziona solo i primo record che trova con quella data.
Aggiungendo con AND tutti i parametri che definiscono la riga, invece
isolo solo quel record.
Grazie in anticipo dell'aiuto
Marco


title: criterio per FINDFIRST

author: Marco Pizzamiglio

text:
PWD ha scritto:
C'� un po' di confusione con apici e delimitatori di data.
Ci metti in mezzo un'istruzione che ti mostri il criterio e vedi subito
cosa c'� che non va.
>    criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"
     msgbox criterio ' (o debug.print criterio)
>    Me.Recordset.FindFirst criterio
Riepilogo:
- le stringhe vanno racchiuse tra apici (semplici o doppi)
- le date tra #
- i numeri vanno senza delimitatori
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: criterio per FINDFIRST

text:
Marco Pizzamiglio ha scritto:
> PWD ha scritto:
>
> C'� un po' di confusione con apici e delimitatori di data.
> Ci metti in mezzo un'istruzione che ti mostri il criterio e vedi subito
> cosa c'� che non va.
>
>>    criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"
>      msgbox criterio ' (o debug.print criterio)
>>    Me.Recordset.FindFirst criterio
>
> Riepilogo:
> - le stringhe vanno racchiuse tra apici (semplici o doppi)
> - le date tra #
> - i numeri vanno senza delimitatori
> Ciao.
> -Marco-
Grazie Marco...
Ecco il mio codice:
strDate = Format(List.Column(1), "\#yyyy\-mm\-dd\#")
ord = List.Column(0)
lav = List.Column(2)
criterio = "lavoratore = '" & lav & "' " & "And numord = '" & ord & "' "
& " And data = " & strDate
*criterio tutto su una riga!!!
Funziona benissimo ora!
Grazie mille
Marco


title: Proprietà differenti nei record di una maschera continua

author: Skywalker Senior

text:
Magari è una cacchiata (o del tutto impossibile)... è possibile cambiare le
proprietà di una maschera continua in modo che, per esempio, una riga sia
rossa o bianca a seconda dei dati contenuti in quel record?
In particolare, vorrei colorare di rosso una riga o un elemento grafico come
un cerchio o un rettangolo se il valore di un certo campo è negativo.
Spero possiate aiutarmi!
--
-------------------------------------------------------
May the Force be with you
Skywalker Senior


author: Claudio

text:
"Skywalker Senior" <
questo.i...@non.esiste.it
> ha scritto nel messaggio
news:RTko9.20477$cS4.8...@news2.tin.it...
> Magari è una cacchiata (o del tutto impossibile)... è possibile cambiare le
> proprietà di una maschera continua in modo che, per esempio, una riga sia
> rossa o bianca a seconda dei dati contenuti in quel record?
Si è parlato parecchio recentemente di questo... prova a cercare per
formattazione condizionale nei messaggi recenti.
Ciao. Claudio.


author: Emyr

text:
On Mon, 07 Oct 2002 19:03:13 GMT, "Skywalker Senior"
<
questo.i...@non.esiste.it
> wrote:
>Magari è una cacchiata (o del tutto impossibile)... è possibile cambiare le
>proprietà di una maschera continua in modo che, per esempio, una riga sia
>rossa o bianca a seconda dei dati contenuti in quel record?
>In particolare, vorrei colorare di rosso una riga o un elemento grafico come
>un cerchio o un rettangolo se il valore di un certo campo è negativo.
>Spero possiate aiutarmi!
guarda su
sitocomune.com
 i vari esempi
Saluti.
Emanuele.


title: Caricamento immagine in campo OLE

text:
Salve a tutti, sono qui a richiamare la magari annosa questione sulle
immagini, perchè qualcosa non mi è chiaro.
In una maschera che contiene delle anagrafiche avrei bisogno di inserire una
foto, una per ogni record ovviamente. Attualmente ho un campo OLE che si
riferisce ad una tabella, contenente una ipotetica immagine incorporata (sì,
perchè collegata mi darebbe dei problemi....l'immagine non è più grande di
4*3 cm, quindi non è un problema di dimensioni del database).
Il mio problema è che non riesco a gestire l'inserimento delle immagini in
modo serio ed efficace... se faccio click destro sull'immagine e inserisco
un oggetto da file, spesso mi compare solo il nome dell'immagine, altre
volte non succede niente, altre ancora mi compare solo una piccola icona....
i filtri grafici in sede di installazione li ho installati tuti, quindi
vorrei evitare questa procedura "entropica" e fare una cosa seria..
Ho letto la FAQ 6.22 di Stefano Bettini per aprire una finestra di dialogo
che consenta la selezione del file....ecco per me questa cosa sarebbe
perfetta, devo solo capire come far entrare quel file nell'oggetto OLE che
ho nella maschera... (e senza avere i soliti problemi dei filtri grafici).
Insomma, voglio cliccare su un bottone, selezionare una immagine dal
percorso, e vedere l'immagine nella cornice, tutto qua.
Ho visto anche delle meravigliose applicazioni di Roberto sulla galleria di
immagini, ma sono troppo oltre il reale utilizzo che ne devo fare...
Spero mi possiate aiutare...
Grazie


title: Caricamento immagine in campo OLE

author: Gaspare

text:
"R1[[ky" <ric...@NOSPAMlibero.it> ha scritto nel messaggio
news:n4Gje.110572$IN.18...@twister2.libero.it...

Ciao,
prova a dare un'occhiata al sito comune -> 6.13 Come implementare
correttamente un archivio di immagini...potrebbe essere una soluzione


title: Caricamento immagine in campo OLE

text:
"R1[[ky" <ric...@NOSPAMlibero.it> ha scritto nel messaggio
news:n4Gje.110572$IN.18...@twister2.libero.it...

Puoi utilizzare le Api (Sito comune6.22 Richiamare la finestra di dialogo
per la selezione di un file)
per aprire un file d'immagine e l'articolo di questo link
http://support.microsoft.com/default.aspx?scid=kb;en-us;103257
 per leggere e
scrivere un file in formato binario


title: Caricamento immagine in campo OLE

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:6PHje.925572$b5.40...@news3.tin.it...
>
> "R1[[ky" <ric...@NOSPAMlibero.it> ha scritto nel messaggio
> news:n4Gje.110572$IN.18...@twister2.libero.it...
>> Salve a tutti, sono qui a richiamare la magari annosa questione sulle
>> immagini, perchč qualcosa non mi č chiaro.
>>
>> In una maschera che contiene delle anagrafiche avrei bisogno di inserire
>> una foto, una per ogni record ovviamente. Attualmente ho un campo OLE che
>> si riferisce ad una tabella, contenente una ipotetica immagine
>> incorporata (sě, perchč collegata mi darebbe dei problemi....l'immagine
>> non č piů grande di 4*3 cm, quindi non č un problema di dimensioni del
>> database).
>>
>> Il mio problema č che non riesco a gestire l'inserimento delle immagini
>> in modo serio ed efficace... se faccio click destro sull'immagine e
>> inserisco un oggetto da file, spesso mi compare solo il nome
>> dell'immagine, altre volte non succede niente, altre ancora mi compare
>> solo una piccola icona.... i filtri grafici in sede di installazione li
>> ho installati tuti, quindi vorrei evitare questa procedura "entropica" e
>> fare una cosa seria..
>>
>> Ho letto la FAQ 6.22 di Stefano Bettini per aprire una finestra di
>> dialogo che consenta la selezione del file....ecco per me questa cosa
>> sarebbe perfetta, devo solo capire come far entrare quel file
>> nell'oggetto OLE che ho nella maschera... (e senza avere i soliti
>> problemi dei filtri grafici).
>>
>> Insomma, voglio cliccare su un bottone, selezionare una immagine dal
>> percorso, e vedere l'immagine nella cornice, tutto qua.
>>
>> Ho visto anche delle meravigliose applicazioni di Roberto sulla galleria
>> di immagini, ma sono troppo oltre il reale utilizzo che ne devo fare...
>>
>> Spero mi possiate aiutare...
>>
>>
>> Grazie
>>
>>
>
> Puoi utilizzare le Api (Sito comune6.22 Richiamare la finestra di dialogo
> per la selezione di un file)
> per aprire un file d'immagine e l'articolo di questo link
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;103257
 per leggere
> e scrivere un file in formato binario
Sě ma come "dare in pasto" al modulo BLOB il file che seleziono dal modulo
che mi fa scegliere il file?


title: Caricamento immagine in campo OLE

author: ALESSANDRO Baraldi

text:
> Sì ma come "dare in pasto" al modulo BLOB il file che seleziono dal modulo
> che mi fa scegliere il file?
Metodo AppendChunk sul Field associato al Blob del recordset aperto sulla
Tabella
In ogni caso sempre nel SitoComune trovi le 2 Routine già fatte sia per
importare che per esportare proprio nell'articolo che ti ha suggerito
Gaspare
il 6.13, l'hai letto prima di fare la domanda......???????
Sono fatte con DAO, e spezzano il Pacchetto in un numero di blocchi
non sò se per un problema di DAO di inglobare BlockSize maggiori
di un TOT oppure se per gusto grafico di vedere l'aggiornamento della
barra, non ho mai verificato la questione.
Sono certo però che non ADO non hai problemi ed eventualmente
tralasciando l'estetica il tutto si risolve in 3 righe di codice.
Saluti
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Caricamento immagine in campo OLE

text:
"R1[[ky" <ric...@NOSPAMlibero.it> ha scritto nel messaggio
news:gdKje.20181$795.6...@twister1.libero.it...
>
> "Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
> news:6PHje.925572$b5.40...@news3.tin.it...
>>
>> "R1[[ky" <ric...@NOSPAMlibero.it> ha scritto nel messaggio
>> news:n4Gje.110572$IN.18...@twister2.libero.it...
>>> Salve a tutti, sono qui a richiamare la magari annosa questione sulle
>>> immagini, perchè qualcosa non mi è chiaro.
>>>
>>> In una maschera che contiene delle anagrafiche avrei bisogno di inserire
>>> una foto, una per ogni record ovviamente. Attualmente ho un campo OLE
>>> che si riferisce ad una tabella, contenente una ipotetica immagine
>>> incorporata (sì, perchè collegata mi darebbe dei problemi....l'immagine
>>> non è più grande di 4*3 cm, quindi non è un problema di dimensioni del
>>> database).
>>>
>>> Il mio problema è che non riesco a gestire l'inserimento delle immagini
>>> in modo serio ed efficace... se faccio click destro sull'immagine e
>>> inserisco un oggetto da file, spesso mi compare solo il nome
>>> dell'immagine, altre volte non succede niente, altre ancora mi compare
>>> solo una piccola icona.... i filtri grafici in sede di installazione li
>>> ho installati tuti, quindi vorrei evitare questa procedura "entropica" e
>>> fare una cosa seria..
>>>
>>> Ho letto la FAQ 6.22 di Stefano Bettini per aprire una finestra di
>>> dialogo che consenta la selezione del file....ecco per me questa cosa
>>> sarebbe perfetta, devo solo capire come far entrare quel file
>>> nell'oggetto OLE che ho nella maschera... (e senza avere i soliti
>>> problemi dei filtri grafici).
>>>
>>> Insomma, voglio cliccare su un bottone, selezionare una immagine dal
>>> percorso, e vedere l'immagine nella cornice, tutto qua.
>>>
>>> Ho visto anche delle meravigliose applicazioni di Roberto sulla galleria
>>> di immagini, ma sono troppo oltre il reale utilizzo che ne devo fare...
>>>
>>> Spero mi possiate aiutare...
>>>
>>>
>>> Grazie
>>>
>>>
>>
>> Puoi utilizzare le Api (Sito comune6.22 Richiamare la finestra di dialogo
>> per la selezione di un file)
>> per aprire un file d'immagine e l'articolo di questo link
>>
http://support.microsoft.com/default.aspx?scid=kb;en-us;103257
 per
>> leggere e scrivere un file in formato binario
>
> Sì ma come "dare in pasto" al modulo BLOB il file che seleziono dal modulo
> che mi fa scegliere il file?
>
Ciao,
la funzione  Function ReadBLOB(Source As String, T As Recordset,  sField As
String)
come vedi richiede 3 parametri
--------
1) Source -> es. "c:\windows\img.gif" oppure se usi le Api di windows il
valore che identifica il tuo file
2) T->  Nome tabella dove viene archiviata l'immagine quindi crei il solito
codice...
 Dim db As Database
 Dim rs As Recordset
 Set db = CurrentDb()
 Set rs = db.OpenRecordset("nometabella")
3) Field -> il nome del campo di tipo OLE  - es. "image"
quindi nel tuo caso richiamerai la funzione nel seguente modo
    Dim val As Variant
        val = ReadBLOB(  "c:\windows\img.gif", rs, "image")
      If val <= 0 Then
             MsgBox "Si è verificato il seguente errore: " & Err.Description
            Exit sub
      End if
Occhio sempre alla gestione degli errori...
--------------------------------------
Per la funzione Function WriteBLOB(T As Recordset, sField As String,
Destination As String) ed anch'essa richiede 3 parametri
  T    -> tabella contenente informazioni circa l'immagine
  sField  -> Nomecampo di tipo OLE
  Destination -> l'imagine viene ricreata al volo (quindi path+filename) per
poi essere visualizzata all'interno di una control di tipo "picture"
-------------------------------------------
Se dovessi avere altri "inconvenienti" ho un db formato da 2 maschere: 1
nella quale selezioni e memorizzi il file e l'altra nella quale lo
visualizza: onde evitare di postare "molte" righe di codice posso spedirtelo
ma devi chiedere in giro perchè non è previsto dal regolamento
Spero di essere stato in qulche modo d'ausilio...
Buon fine-settimana
Gaspare


title: Caricamento immagine in campo OLE

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:d6nseo$3bc$1...@domitilla.aioe.org...

Ciao Alessandro...scusa ma non avevo letto la tua risposta
Buon fine-settimana :-)
A presto
Gaspare


title: Caricamento immagine in campo OLE

text:
> Ciao Alessandro...scusa ma non avevo letto la tua risposta
>
> Buon fine-settimana :-)
>
> A presto
>
> Gaspare
Ciao Gaspare, non preoccuparti, hai dato un chiaro suggerimento.
Buon fine settimana a te e famiglia.



title: Caricamento immagine in campo OLE

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:d6nv6o$9bp$1...@domitilla.aioe.org...

Grazie e altrettante :-)


title: Caricamento immagine in campo OLE

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:aYKje.926170$b5.40...@news3.tin.it...
>[CUT] Ciao,

Quindi la cosa verrebbe più o meno così? (anche se nella seconda parte mi dà
"tipo non corrispondente" per il primo argomento della funzione)
Private Sub IMMAGINE_DblClick(Cancel As Integer)
    Dim db As Database
    Dim T As Recordset
    Set db = CurrentDb()
    Set T = db.OpenRecordset("Anag_Mac")
    Dim Source As String
    Dim Campo As String
    Dim Destinazione As String
    'Si collega alla funzione che mi fa scegliere il file
    Source = cmdlg_file()
    Campo = IMMAGINE
    'File temporaneo di destinazione
    Destinazione = "C:\Programmi\Manutenzione\Temp.jpg"
 Dim val As Variant
        val = ReadBLOB("Source", T, "Campo")
      If val <= 0 Then
             MsgBox "Si è verificato il seguente errore: " & Err.Description
      End If
 Dim val2 As Variant
        val2 = WriteBLOB("T", Campo, "Destinazione")
      If val2 <= 0 Then
             MsgBox "Si è verificato il seguente errore: " & Err.Description
      End If
End Sub
Dove sta l'errore? Come avrai capito sono un Newbie che più di così non si
può.....se hai la pazienza di rispondermi te ne sarei grato, in ogni caso ti
ringrazio già per l'immenso aiuto che mi hai già dato ;-)


title: Caricamento immagine in campo OLE

text:
> Quindi la cosa verrebbe più o meno così? (anche se nella seconda parte mi
> dà
> "tipo non corrispondente" per il primo argomento della funzione)
>
> Private Sub IMMAGINE_DblClick(Cancel As Integer)
>    Dim db As Database
>    Dim T As Recordset
>    Set db = CurrentDb()
>    Set T = db.OpenRecordset("Anag_Mac")
>
>    Dim Source As String
>    Dim Campo As String
>    Dim Destinazione As String
>
>    'Si collega alla funzione che mi fa scegliere il file
>    Source = cmdlg_file()
      'Verifica con MsgBox cmdlg_file() che ti venga
>    Campo = IMMAGINE
>    'File temporaneo di destinazione
>    Destinazione = "C:\Programmi\Manutenzione\Temp.jpg"
>
>
Dim val As Variant
>
>
>        val = ReadBLOB(Source, T, Campo)
>
>      If val <= 0 Then
>             MsgBox "Si è verificato il seguente errore: " &
> Err.Description
>
>      End If
>
>
> Dim val2 As Variant
>
>
>        val2 = WriteBLOB("T", Campo, "Destinazione")
>
>      If val2 <= 0 Then
>             MsgBox "Si è verificato il seguente errore: " &
> Err.Description
>
>      End If
>
>
> End Sub
>
>
> Dove sta l'errore? Come avrai capito sono un Newbie che più di così non si
> può.....se hai la pazienza di rispondermi te ne sarei grato, in ogni caso
> ti ringrazio già per l'immenso aiuto che mi hai già dato ;-)
>
Allora: in 1 modulo ho le 2 funzioni ReadBLOB e WriteBLOB + il seguente
codice
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Const BlockSize = 32768
-------------------
Ho 1 tabella "tb" contenente:
1) Oggetto OLE -> "image"
2) Testo - "estensione"
--------------
Ho 1 maschera contenente:
1) 1 immagine -> nome "image" con la proprietà tipo d'immagine "incorporata"
1) 1 pulsante -> "cmdOK"
-------------------
Private Sub cmdOK_Click()
    Dim File As OPENFILENAME
    File.lStructSize = Len(File)
    'Assegna l'handle della finestra principale
    File.hwndOwner = Me.Hwnd
    'Seleziona un filtro
    File.lpstrFilter = "Immagini -> GIF (*.gif)" + Chr$(0) + "*.gif" +
Chr$(0) + "Immagini -> JPG (*.jpg)" + Chr$(0) + "*.jpg" + Chr$(0) +
"Immagini ->TIFF (*.tiff)" + Chr$(0) + "*.tiff" + Chr$(0) + "Tutti gli altri
files(*.*)" + Chr$(0) + "*.*" + Chr$(0)
    'Crea un buffer per il file
    File.lpstrFile = Space$(254)
    'Assegna la massima lunghezza che può avere il file
    File.nMaxFile = 255
    'Crea un buffer per il titolo del file
    File.lpstrFileTitle = Space$(254)
    'Assegna la massima lunghezza che può avere il titolo del file
    File.nMaxFileTitle = 255
    'Determina la directory iniziale
    File.lpstrInitialDir = "C:\"
    'Assegna il titolo della finestra
    File.lpstrTitle = "Seleziona il file da aprire"
    'Non imposta alcun flags
    File.flags = 0
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tb")
    Dim val As Variant
    'Visualizza la finestra
    If GetOpenFileName(File) Then
        Me.image.Picture = Trim$(File.lpstrFile)
          val = ReadBLOB(Me.image.Picture, rs, "image")
        If val <= 0 Then
          MsgBox "Si è verificato il seguente errore: " & Err.Description
          Exit Sub
        End If
      rs("estensione") = Right(Me![image].Picture, 3)
      rs.Update
        Set rs = Nothing
        Set db = Nothing
        MsgBox "File to Open: " + Trim$(File.lpstrFile)
    Else
        MsgBox "Cancel was pressed"
    End If
End Sub
---------------
Prova a vedere se riesci ad archiviare il file  e poi passiamo alla fase di
lettura...