text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:58c095ba-0a4d-49ab...@g26g2000vba.googlegroups.com...
Ciao a tutti,ho questa problematica (prob. banale,ma non ne riesco ad
uscire.
Sull'evento "prima di aggioenare di un combo ho inserito il seguente
codice :
Me.Codicefiscale = Me.Combo.Column(8)
Ovviamente per praticita' ho inserit ouna sola riga ma il concetto no
cambia.
Mi succede che se il valore del combo alla colonna 8(colonna che
corrisponde al CF) e'  Null mi esce la segnalazione "il campo
Codicefiscale non puo' contenere una stringa di val null"
Ovviamente se nella colonna del combo ci sono dati il prob. non
sussiste.
Per ovviare al problema ho provato ad utilizzare  On error gto
err...........Err:
Facendo cos� mi evita il messaggio di errore ma quando il combo
contirnr i dati non vengono scritti.
Ho provato anche con un istruzione If.....
If  isnull(me.Codicefiscale ) then
else
Me.Codicefiscale = Me.Combo.Column(8)
endif
In questo caso dopo il ..Then ho volutamente non scritto nulla ma il
risultato non cambia.
Come posso fare per risolvere il prob????'
Dino
-----------------------------------
Forse il problema � da ricercare nelle propriet� del campo nella tabella:
Richiesto = No
Consenti lunghezza zero = S�
Ovviamente, come ti � stato gi� detto, l'evento va gestito anche dalla
maschera.
Infatti se Me.Codicefiscale non accetta un valore null e se la combo
restituisce un null, allora...
Ciao, Carlo


title: Segnalazione di errore su combo con valore Null

author: Dino

text:
On 6 Gen, 22:12, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:58c095ba-0a4d-49ab...@g26g2000vba.googlegroups.com...

Ciao ragazzi e grazie a tutti per le vostre risposte.Ha ragione
Carlo,bastava mettere "Consenti lunghezza zero = S" nelle prop. del
campo in tabella.
Problema risolto
grazie mille a tutti.
Dino
NB:Super Carlo ti ricordi del mio problema (livelli e sottolivelli)????
Hai ancora la copia del DB ??O devo rimandartela ????


title: MsgBox "dopo aggiornamento" per flag di controllo

author: Gianni

text:
Buongiorno a tuti del NG
Il problema è:
ho un db cosi composto
in una maschera "visualizzazione dati" basata su una query  ho i seguenti
campi:
Data - seriale - cod art- Descizione - Marca -Flag-
quando inserisco il seriale automaticamente mi mostra i  cod art descr.
marca e flag prelevati dalla tabella magazzino, io vorrei fare in modo che
se inserisco un seriale doppione (che nella sua tabella è chiave
primaria),oppure mi compare una flag già spuntata  mi esca un messagio che
l'articolo in questione è già stato usato
Ho provato  a cercare sul gruppo ma non ho trovato .
Grazie spero di essermi ben spiegato.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.686 / Virus Database: 447 - Release Date: 14/05/2004


author: Pablitomf

text:
Gianni ha scritto:
> Buongiorno a tuti del NG
> Il problema è:
> ho un db cosi composto
> in una maschera "visualizzazione dati" basata su una query  ho i seguenti
> campi:
> Data - seriale - cod art- Descizione - Marca -Flag-
> quando inserisco il seriale automaticamente mi mostra i  cod art descr.
> marca e flag prelevati dalla tabella magazzino, io vorrei fare in modo che
> se inserisco un seriale doppione (che nella sua tabella è chiave
> primaria),oppure mi compare una flag già spuntata  mi esca un messagio che
> l'articolo in questione è già stato usato
> Ho provato  a cercare sul gruppo ma non ho trovato .
> Grazie spero di essermi ben spiegato.
+ o -...
cmq per la ricerca dei duplicati basta l'help di Access... metodo
alternativo? Bhò, magari la verifica di un Dlookup (da help) nullo o meno
su filtro seriale inserito.
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
cmq per la ricerca dei duplicati basta l'help di Access... metodo
> alternativo? Bhò, magari la verifica di un Dlookup (da help) nullo o meno
> su filtro seriale inserito.
>
>
> --
> Pablitomf
Ho provato a fare in questo modo:
su evento dopo aggiornamento della casella seriale
Private Sub Cod_Articolo_AfterUpdate()
    If Not IsNull(Articoli_Stato) Then
    MsgBox "HAI INSERITO UN CODICE GIA' USATO", vbOKCancel = vbOK
    End If
End Sub
Ma mio esce anceh se la casella non è spuntata.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.690 / Virus Database: 451 - Release Date: 22/05/2004


text:
Gianni ha scritto:
> Ho provato a fare in questo modo:
> su evento dopo aggiornamento della casella seriale
> Private Sub Cod_Articolo_AfterUpdate()
>     If Not IsNull(Articoli_Stato) Then
>     MsgBox "HAI INSERITO UN CODICE GIA' USATO", vbOKCancel = vbOK
>     End If
> End Sub
> Ma mio esce anceh se la casella non è spuntata.
Hai dimenticato di controllare il FLAG :
If Not IsNull(Articoli_Stato) Or flag = true Then
MsgBox "HAI INSERITO UN CODICE GIA' USATO", vbOKCancel = vbOK
Else : End If



text:
Infatti era quello l'errore
Sei stato gentilissimo.
Gianni



title: password

author: Butta

text:
Scusate l'ignoranza.....se io avessi una tabella alla quale facessero
riferimento 3 maschere....potrei mettere una password ad ogni maschera, in
modo che solo gli autorizzati la possano aprire? Se si come?
Grazie in anticipo.
Cristian


title: password

author: ALESSANDRO Baraldi

text:
"Butta" <
bu...@superemail.it
> ha scritto nel messaggio
news:421ba28c$0$6301$5fc...@news.tiscali.it...

Perchè 3 maschere su una sola tabella...??
No mi pare molto sensato.!
Per la password forse è l'ultimo dei problemi
ma usa un'inputbox per chiederla e se non corretta
chiudi la Maschera.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: password

text:
> Tre maschera perchè ogni utente possa entrare nella sua maschera (che fa
> riferimento ad una query su una tabelll) e possa modificare solo i dati
che
> gli riguardino (nella tabella escono solo i dati inseriti con il suo nome
> come primo campo).
> Non sarà un gran sistema, ma sono un po più indietro di voi, e non ne sò
> tantissimo....e allora mi arrangio come posso.
> Se ti va,mi insegni come si usa l'inputbox?
>
> grazie comunque.
> cristian
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:421ba716$0$6298$5fc...@news.tiscali.it...



title: password

text:
"Butta" <
bu...@superemail.it
> ha scritto nel messaggio
news:421baa62$0$32343$5fc...@news.tiscali.it...
> > Tre maschera perchè ogni utente possa entrare nella sua maschera (che fa
> > riferimento ad una query su una tabelll) e possa modificare solo i dati
> che
> > gli riguardino (nella tabella escono solo i dati inseriti con il suo
nome
> > come primo campo).
> > Non sarà un gran sistema, ma sono un po più indietro di voi, e non ne sò
> > tantissimo....e allora mi arrangio come posso.
> > Se ti va,mi insegni come si usa l'inputbox?
> >
> > grazie comunque.
> > cristian
La soluzione che hai adottato come hai premesso anche tu è
molto discutibile, ma se non ti interessa approfondire la cosa
per imparare non è un problema.
Per usare l'inpotbox si fà così:
Alla'pertura della Maschera su Evento Load:
Dim retPwd as string
retPwd=Inputbox("Digita la Password")
If retPwd<>"cristian" then docmd.Close
Ciao
--
@Alex (Alessandro Baraldi)



title: password

text:
Sbagli....mi interesserebbe tantissimo imparare.
....ma sono talmente indietro che mi vedo costretto a chiederti dove si
inserisca:
> Dim retPwd as string
> retPwd=Inputbox("Digita la Password")
> If retPwd<>"cristian" then docmd.Close
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:421baba8$0$32341$5fc...@news.tiscali.it...




title: password

text:
"Butta" <
bu...@superemail.it
> ha scritto nel messaggio
news:421bad71$0$6305$5fc...@news.tiscali.it...
> Sbagli....mi interesserebbe tantissimo imparare.
> ....ma sono talmente indietro che mi vedo costretto a chiederti dove si
> inserisca:
>
> > Dim retPwd as string
> > retPwd=Inputbox("Digita la Password")
> > If retPwd<>"cristian" then docmd.Close
Lo sospettavo, e non voglio certo demoralizzarti, ma prima
di smanettare è sempre buona cosa imparare a conoscere
lo strumento che si usa.
L'esempio delle 3 Maschere è assolutamente da rivedere, e ritengo
molto più importante capire i concetti di come si deve realizzare
un progetto ben fatto che a come mettere Password.
E' per questo che ho assunto l'idea che il tuo problema fosse
contingente e non finalizzato ad imparare(e direi più che legittimo
non tutti ci mangiano con Access).
In ogni caso il codice lo devi inserire nell'Evento Load come ti dicevo
ma non è facile farti capire cos'è:
Se accedi alle proprietà della maschera cliccando il DestroMouse
nell'angolo in alto a Sinistra della Maschera in modaòlità struttura,
dove vedi il quadratino per capirci appare un menù---> Proprietà:
Si apre una mascherina con diverse schede, una tra queste è "Evento"
ora vai "Su Apertura" e seleziona [Routine evento], quindi clicca sul
pulsantino
che appare a Destra ed inserisci il codice.
Chiudi la maschera ed aprila in modalità Normale.
Capisci però che non è una cosa normale spiegare in questo modo
come si opera su un programma....!!!
Ciao
--
@Alex (Alessandro Baraldi)



title: password

text:
Butta ha scritto:
> Sbagli....mi interesserebbe tantissimo imparare.
Ecco, bravo. Per cominciare, prima che si abbattano su di te gli strali
degli dei dell'Olimpo, scrivi i tuoi commenti dopo il testo e non prima.
DEL_REC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Inserimento data in un textbox

author: roma

text:
Buon Giorno
Ho il seguente problema:
ho due textbox in formato data, uno vorrei che mi scrivesse il primo
giorno del mese inserendo solo il mese e l'anno, il secondo textbox
vorrei che mi scrivesse l'ultimo giorno del mese inserendo come nel
precedente solo il mese e l'anno, come posso fare?
Grazie in anticipo


title: Inserimento data in un textbox

author: MA

text:
"roma" <
romano...@gmail.com
> ha scritto nel messaggio
news:1179404931.3...@h2g2000hsg.googlegroups.com...

ciao devi usare dateserial
e dateserial + dateadd per l'ultimo giorno


title: Inserimento data in un textbox

text:
"roma" <
romano...@gmail.com
> ha scritto nel messaggio
news:1179404931.3...@h2g2000hsg.googlegroups.com...

Non ho capito benissimo... vorresti che l'utente nelle 2 TextBox inserisse
solo mm/yyyy(mese/anno) senza il giorno...?
Se avessi fatto centro devi gestirlo con la proprietą Maschera di
Input=00/0000
Ovviamente poi devi validare i dati in quanto se sono associati a campi Data
di sicuro non andrebbe bene, e per fare Filtri di tempo la cosa si complica
un pņ...
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Inserimento data in un textbox

author: Access

text:
Ciao Roma,
"roma" <
romano...@gmail.com
> ha scritto nel messaggio
news:1179404931.3...@h2g2000hsg.googlegroups.com...

questo forse fa al caso tuo:
http://www.donkarl.com/it/?FAQ2.8
Ciao


title: Inserimento data in un textbox

text:
Infatti hai fatto centro, sia sul fatto che vorrei mettere solo il
mese e l'anno senza mettere il giorno, in modo da non sbagliare a
mettere l'ultimo giorno del mese, anche che i campi sono associati a
campi data.
On 17 Mag, 20:00, "ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote:
> "roma" <
romano.ch...@gmail.com
> ha scritto nel messaggionews:1179404931.3...@h2g2000hsg.googlegroups.com...
>
> > Buon Giorno
> > Ho il seguente problema:
> > ho due textbox in formato data, uno vorrei che mi scrivesse il primo
> > giorno del mese inserendo solo il mese e l'anno, il secondo textbox
> > vorrei che mi scrivesse l'ultimo giorno del mese inserendo come nel
> > precedente solo il mese e l'anno, come posso fare?
> > Grazie in anticipo
>
> Non ho capito benissimo... vorresti che l'utente nelle 2 TextBox inserisse
> solo mm/yyyy(mese/anno) senza il giorno...?
>
> Se avessi fatto centro devi gestirlo con la proprietà Maschera di
> Input=00/0000
>
> Ovviamente poi devi validare i dati in quanto se sono associati a campi Data
> di sicuro non andrebbe bene, e per fare Filtri di tempo la cosa si complica
> un pò...
>
> --
> @Alex (Alessandro Baraldi)
> ---------------------------------------------------------------------------
http://www.sitocomune.com/http://www.alessandrobaraldi.it
> ---------------------------------------------------------------------------


title: eliminare record selezionato in sottomaschera

author: nwrr

text:
al click voglio eliminare il record selezionato in una sottomaschera
(dentro a tale sottomaschera ho una form in modalità continua)
ho provato con
Private Sub Click()
       Dim rcMio As Recordset
       Set rcMio = Me![nome_Sottomaschera].Form.RecordsetClone
       rcMio.Delete
       'scarico la variabile
                rcMio.Close
                Set rcMio = Nothing
       'aggiorno sottomaschera
       Me![nome_Sottomschera].Requery
End Sub
Ma funziona solo alla prima cancellazione e quando non ho ancora scelto
nessun record. Poi dà errore e mi evidenzia il
rcMio.Delete
come è risolvibile?
--------------
ho provato a mettere prima del selete la seguente riga
rcMio.Bookmark = Me![nome_Sottomschera].Bookmark
rcMio.Delete
ma non succede nulla
n.b. l'ho presa estrapolandola da un esempio incompleto però di tutta la
spiegazione
ed in cui si parlava di cancellazione record e però non vi erano le
sottomaschere
(quindi l'ho giusto provata)
---------------


text:
nwrr ha scritto:
> al click voglio eliminare il record selezionato in una sottomaschera
> (dentro a tale sottomaschera ho una form in modalità continua)
>
> ho provato con
>
> Private Sub Click()
>        Dim rcMio As Recordset
>        Set rcMio = Me![nome_Sottomaschera].Form.RecordsetClone
>        rcMio.Delete
>
>        'scarico la variabile
>                 rcMio.Close
>                 Set rcMio = Nothing
>        'aggiorno sottomaschera
>        Me![nome_Sottomschera].Requery
>
> End Sub
>
> Ma funziona solo alla prima cancellazione e quando non ho ancora scelto
> nessun record. Poi dà errore e mi evidenzia il
> rcMio.Delete
>
> come è risolvibile?
> --------------
> ho provato a mettere prima del selete la seguente riga
>
> rcMio.Bookmark = Me![nome_Sottomschera].Bookmark
> rcMio.Delete
>
> ma non succede nulla
rcMio.Bookmark = Me![nome_Sottomschera].Form.Bookmark
rcMio.Delete
così mi funziona, praticamente voleva il .form per il bookmark
Me![nome_Sottomschera].Requery
però non ho capito perchè qui anche senza .form fa comunque la requery?


author: OndaMax

text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C53301A...@lycos.it...
[cut]
> >        'aggiorno sottomaschera
> >        Me![nome_Sottomschera].Requery
> >
> > End Sub
> >
> > Ma funziona solo alla prima cancellazione e quando non ho ancora scelto
> > nessun record. Poi dà errore e mi evidenzia il
> > rcMio.Delete
Ciao, utilizzo pochino il Recordsetclone per le cancellazioni, ma spesso
effettuando il delete da una maschera via SQL sono costretto a dare il
Requery sia prima che dopo l'operazione.  Magari dico una c@xxata, ma
potresti provare a mettere un Requery anche prima del Recordsetclone.
OndaMax


title: testo scorrevole

text:
ciao a tutti

In una combo box ho inserito sull'evento
"su non in elenco" il seguente codice (che funziona perfettamente):

 Private Sub UM_NotInList(NewData
As String, Response As Integer)

Dim strsql As String, X As Integer

X = MsgBox("VUOI AGGIUNGERE QUESTO
VALORE ALLA LISTA?", vbYesNo)

If X = vbYes Then

    strsql = "Insert
Into TbNormaUM " & "([UM],[Norma]) values " & "('"
& NewData & "','" & InputBox("HAI INSERITO UN
NUOVA UNITA' DI MISURA PER LA NORMA...", "ATTENZIONE...E' GIUSTO?",
Me!Norma) & "');"

    'MsgBox strsql

    Response = acDataErrAdded

    CurrentDb.Execute strsql,
dbFailOnError

    Me!UM = NewData

    Me!UM.Requery

    Else

    Response = acDataErrContinue

End If

End Sub

Vorrei "solo" che il messaggio
"ATTENZIONE...E' GIUSTO?" fosse scorrevole o lampeggiante o che
cambiasse colore, che richiamasse l'attenzione insomma....

Come posso modificare il codice? Io
non sono esperto di vba, il codice mi era stato suggerito ancora dal newsgroup.
Ho access 2000

Grazie infinite


title: testo scorrevole

author: Pablitomf [Acces]

text:
un piccolo esempio ti testo scorrevole... poi adattalo tu...
Dim testoscorrevole As String
Private Sub Form_Open(Cancel As Integer)
testoscorrevole = "QUESTO TESTO SCORRE... "
me.timerinterval = 300 'imposto la velocità di scorrimento
End Sub
Private Sub Form_Timer()
testoscorrevole = Mid(testoscorrevole, 2) & Left(testoscorrevole, 1)
Text1.Text = testoscorrevole
End Sub
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: finestra sfoglia

author: danieleni

text:
C'è un modo in VB per far comparire la finestra window di sfoglia per
cercare un file al clic di un pulsante su di una form?
Grazie


title: finestra sfoglia

author: Mrok

text:
"danieleni" <
a...@a.it
> ha scritto nel messaggio
news:3c46eda8...@news.tiscalinet.it...
> C'è un modo in VB per far comparire la finestra window di sfoglia per
> cercare un file al clic di un pulsante su di una form?
> Grazie
Common Dialog (API)?


title: finestra sfoglia

text:
"danieleni" <
a...@a.it
> ha scritto nel messaggio
news:3c46eda8...@news.tiscalinet.it...
> C'è un modo in VB per far comparire la finestra window di sfoglia per
> cercare un file al clic di un pulsante su di una form?
> Grazie
prova a vedere qui
http://www.mauro.sistel.it/down.htm


title: finestra sfoglia

author: Emyr

text:


Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private 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 Function cmdlg_file()
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String

   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Immagini (*.wmf,*.bmp,*.jpg,*.tif)" & Chr(0) &
"*.wmf;*.bmp;*.jpg;*.tif" & Chr(0)
   OpenFile.hwndOwner = Application.hWndAccessApp
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)

   If lReturn = 0 Then
      cmdlg_file = ""

   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      Forms![tbl_Marca]![tbl_DESCRIZIONE Sottomaschera]!Immagine =
cmdlg_file
   End If
End Function
Saluti.
Emanuele.


title: finestra sfoglia

text:


Grazie per l'enorme onteressamento, ma dove lo metto? in un modulo?
come lo richiamo da pulsante? cosa richiamo?
Grazie


title: finestra sfoglia

text:
On Fri, 18 Jan 2002 13:21:21 GMT,
a...@a.it
 (danieleni) wrote:
CUT
>
>
>Grazie per l'enorme onteressamento, ma dove lo metto? in un modulo?
>come lo richiamo da pulsante? cosa richiamo?
>Grazie
si lo metti su uno dei moduli e poi lo devi adattare alle tue
esigenze...
in genere si richiama la funzione da pulsante di comando
Saluti.
Emanuele.


title: Problemi con controlli ActiveX e maschere

author: GINO PALMIA

text:
Aiuto!!
Devo inserire, attraverso il codice un controllo active x  di tipo
MSFlexGrid in una maschera in
 un file di access2000.
Lo faccio con questo codice:
        Dim flx As New Control
        Set flx = CreateControl("NomeMaschera", acCustomControl, , , , 1000,
1000, 300, _
        300)
Tutto ciò funziona ma per creare qualcosa che sembra essere solo il
contenitore del controllo, da qualche parte ci vorrà un riferimanto alla
classe!
Naturalmente nel progetto ho impostato il riferimento alla libreria per il
FlexGrid ma dopo questo non so da che parte voltarmi.
Probabilmente la soluzione sta nella costante acCustomControl ...
Che mi dite?


title: db Multiutente.........Problemino.......

author: Gianni B

text:
Salve ragazzi ho una domanda che credo questa volta non sia (per me ) da
poco.........
Ho relaizzato un db che ho diviso in due uno solo con le tabelle , che resta
in un server , l'altro solo con le maschere macro ecc.......
adesso leggendo legendo i vari problemi esposti mi è venuto in mente una
cosa....... cosa succede se per esempio due persone (o +)
contemporaneamente inseriscono dei dati ?  Cioè se per esempio un utente sta
immettendo nella tabella un nuovo record con un Id per esempio 20, mentre un
altro nello stesso tempo sta facendo la medesima cosa.?! non verrebbe un
errore di duplicazione della chiave o qualcosa del genere?!?
Premttendo che ad ogni record salvato faccio fare il requery della maschera
che mi visualizza i dati.........
posso avere dei problemi?!? C'E qualche metodo per aggirare quello che
potrebbe essere un futuro problema???
Grazie spero di essere stato abbastanza chiaro...............
--
Gianni B.
--
Gianni B.


author: All Eyez On me

text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3eda85af$1...@news.bluewin.ch...

non ti preoccupare la chiave primaria non viene duplicata, pensa  a tutto
jet
cioa, AEOM


text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:vhBCa.28255$pR3.5...@news1.tin.it...

Ciao AEOM ,grazie della tua tempestiva risposta mi ha sollevato un po',
quindi il motore jet dici che pensa a tutto ?!? ,
Se avresti un po di tempo mi potresti spiegare come?!
Sai per essere ancora + tramquillo.
Grazie
--
Gianni B.


text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:vhBCa.28255$pR3.5...@news1.tin.it...

Beh........ io non sarei così tranquillo..................!!!
Se stai inserendo un Nuovo Record tutto OK, ma nel caso
di modifica di un VECCHIO, come accennava nella domanda....??????
Io quì mi preoccuperei bene.............................................!
Non scendo nella trattazione dei Recordset ad accesso esclusivo poichè
è un mattone, ma questo è in realtà uno dei problemi più fastidiosi da
risolvere.
@Alex.


text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:BlJCa.54332$lK4.1...@twister1.libero.it...

se due utenti modificano lo stesso record jet avvisa chi salva per secondo,
dov'è il problema?
Ciao, AEOM


text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:4VJCa.30179$pR3.6...@news1.tin.it...
[CUT]
> > > > --
> > > > Gianni B.
> > > >
> > > non ti preoccupare la chiave primaria non viene duplicata, pensa  a
> tutto
> > > jet
> > >
> > >
> > > cioa, AEOM
> >
> > Beh........ io non sarei così tranquillo..................!!!
> > Se stai inserendo un Nuovo Record tutto OK, ma nel caso
> > di modifica di un VECCHIO, come accennava nella domanda....??????
> >
> > Io quì mi preoccuperei
bene.............................................!
> > Non scendo nella trattazione dei Recordset ad accesso esclusivo poichè
> > è un mattone, ma questo è in realtà uno dei problemi più fastidiosi da
> > risolvere.
> >
> > @Alex.
> >
> se due utenti modificano lo stesso record jet avvisa chi salva per
secondo,
> dov'è il problema?
>
> Ciao, AEOM
>
Il problema c'è solo se l'operazione di accesso contemporaneo è un problema.
Va analizzato se l'accesso è Associato o non associato, ma visto che si
parla
di semplificazione consideriamo lo standard di Form Associate.
Mi spiego se io e te accediamo allo stesso record ed entrambi modifichiamo
il dato non stiamo lavorando in realtà sul Recordset originale, ma su di un
CLONE
non aggiornato.
Io salvo per primo e tu per secondo, bene tu ricevi il Warning, c'è un solo
problema
che avendo avuto l'accesso io potrei aver modificato qualcosa che poteva
influenzare
il tuo accesso, ma ovviamente tu non potevi
vederlo..............................!!!!!
Caso raro se vuoi ma in base all'esigenza della multiutenza va considerato
se è o meno
un problema, non a priori...........................!!!!!
Io preferisco lavorare con Form non associate e Recordset aperti in modo
esclusivo
in modo che il 2° apre in sola lettura, ma anche quì dipende........!!!!
Ciao.
@Alex.


text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:TTPCa.55682$lK4.1...@twister1.libero.it...

Grazie del chiarimento ,
--
Gianni B.


title: Re: Errore di sintassi nel FindFirst (!)

author: vuLCan Karayan

text:
> La colpa non è delle Quadre ma del fatto che
> hai usato un NOME_CAMPO con lo spazio, cosa sempre
> da EVITARE.
Verissimo.
Ma si tratta di enorme gestionale. E' stata una svista all'inizio della
programmazione (1999)
Modificare il nome del campo adesso sarebbe un suicidio.


text:
>  rs1.FindFirst "Codice Impresa = " & int(me.CodiceImpresaCorrente) ?
?!
intCodiceImpresaCorrente č una variabile Integer.
Seguo sempre le regole per il naming.
Ciao


text:
Il compilatore mi comunica un errore qui
rs1.FindFirst "Codice Impresa = " & intCodiceImpresaCorrente
Ma è corretto, no?


text:
> rs1.FindFirst "Codice Impresa = " & intCodiceImpresaCorrente
Trovato, scusate.
Mancavano le quadre



author: Alessandro Baraldi

text:
"vuLCan Karayan" <
nos...@nospam.it
> wrote in message
news:PLT%d.684668$
b5.31...@news3.tin.it

La colpa non è delle Quadre ma del fatto che
hai usato un NOME_CAMPO con lo spazio, cosa sempre
da EVITARE.
Saluti.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: ciroteo

text:
"vuLCan Karayan" <
nos...@nospam.it
> ha scritto nel messaggio
news:xIT%d.684657$b5.31...@news3.tin.it...
> Il compilatore mi comunica un errore qui
>
> rs1.FindFirst "Codice Impresa = " & intCodiceImpresaCorrente
>
> Ma è corretto, no?
>
>
>
 rs1.FindFirst "Codice Impresa = " & int(me.CodiceImpresaCorrente) ?


title: Sottoreport Multipli

author: Giulio

text:
Ritorno a chiedervi consiglio per quanto riguarda i sottoreport multipli
Nel mio database secondo la selezione di un parametro devo poter
visualizzare differenti sottoreport che la stessa origine dati, ma
differenti visualizzazioni cioè etichette di campi diverse con la
possibilità di rendere visibili o meno alcuni campi.
Ho pensato di realizzare questa cosa inserendo un sottoreport per ogni
visualizzazione possibile però questo mi può creare dei problemi a livelli
di totali e subtotali (comparsa dell'errore #errore nei subtotali di quei
report che sono senza dati)
Mi è stato suggerito sul NG di usare la funzione nz() ma non sono molto
esperto con le funzioni
Spero di essere stato sufficientemente chiaro
Grazie per le eventuali risposte
Giulio


title: Sottoreport Multipli

text:
se non vuoi impattare con la scrittura di codici (cmq dall'help in linea
ottiene facilmente le istruzioni per la funzione nz() che restituisce a zero
i campi nulli) puoi impostare una query di aggiornamento che "aggiorni a
zero i tuoi campi impostando criteri "is null"
non è il massimo ma funziona
ciao
antonio
"Giulio" <
gar...@libero.it
> ha scritto nel messaggio
news:jLL_5.117594$hk4.4...@news.infostrada.it...



title: Sottoreport Multipli

author: Antonio Biso

text:
<
ari...@libero.it
> wrote in message
ZPS_5.120968$hk4.4...@news.infostrada.it...
> se non vuoi impattare con la scrittura di codici (cmq dall'help in linea
> ottiene facilmente le istruzioni per la funzione nz() che restituisce a
zero
> i campi nulli) puoi impostare una query di aggiornamento che "aggiorni a
> zero i tuoi campi impostando criteri "is null"
> non è il massimo ma funziona
> ciao
> antonio
Arirà, bello de Antonio tuo....
Perchè non cominci a scrivere DOPO il quoting, come ripetutoti più volte?
Antonio


title: Query di aggiornamento per sostituire punto con virgola

author: Giuseppe

text:
Ciao a tutti
Ho bisogno di sostituire da una cifra tipo 0.125 , 0.85 , 1.90 , 165.20
ecc. ecc.
il punto con la virgola  ovvero le cifre devono diventare  0,125 - 0,85 -
1,90 , 165,20
Il campo è  TESTO  e si chiama  "Valore"
Come posso fare con una query di aggiornamento ?
Grazie anticipato
Giuseppe


author: ALESSANDRO Baraldi

text:
"Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:45c8c8fa$0$1156$4faf...@reader2.news.tin.it...

UPDATE T1 SET [Valore]=Replace([Valore];'.';',')
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Schedule+ e Outlook

author: troll

text:
ho creato un database per la gestione della teleassistenza e per i reparti
tecnici e commerciali della mia ditta.
Al momento stiamo usando per il repato commerciale schedule+ poiche permette
di condividere le agende senza aver obbligatoriamente exchange server (in
outlook OVVIAMENTE questa funzione e' stata segata) e un programma in
access2 di terze parti per i contatti.
Il mio problema e' questo, vorrei eliminare sicuramente il programma di
terza parti e le possibilita' sono due:
o lo riescrivo nel mio database, o utilizzo i contatti di schedule+ o
outlook
visto che l'esigenza di una agenda sul network non e' eliminabile, e che
riscriverla sotto access non e' un bruscolino, pensavo di accorpare elenco
contatti e agenda e poi linkare il tutto da access e qui il problema!
Se utilizzo l'apposito wizard di microsoft, riesco innanzitutto a linkare
solo outlook (visto che sul pc ho sia outlook che schedule, il fetente si
linka solo outlook) e ammesso che voglia usare outlook e usare access da
"exchange server" andando a scrivere sulle agende i vari appuntamenti e
accollandomi cosi' tutta la gestione di rete, la sopresa e' che i link di
outlook non sono cosi' friendly, nel senso che riesco a leggere, riesco a
cancellare ma......non riesco a scriverci dentro!!!!!
HELP !!!!!
ringrazio anticipatamente e, ovviamente sono accette anche altre idee o
consigli


title: codice Vba!

author: Eros genellini

text:
come faccio a confrontare il valore testuale della seguente funzione
????????
Y = [nome del form di immissione dati nella maschera]
'  Y è un testo!!!!!
X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = ???????  ")
ho provato anche a
"TipoScheda.Creatore = Y"
ma access si inca..a dicendomi: "l'espressione immessa come parametro di
query ha provocato il seguente errore: "l'oggetto non contiene l'oggetto di
automazione 'y'"
che cosa vuol dire?
inoltre come faccio ad inserire delle variabili nell'istruz sql inert
into????
strSQL = "INSERT INTO Consiste VALUES ( X,45,45,45 );"
GRAZIE !!!!


title: codice Vba!

author: LaLo at home

text:
"Eros genellini" <
gene...@libero.it
> ha scritto nel messaggio
news:kDn66.767$eB2....@news.infostrada.it...
> come faccio a confrontare il valore testuale della seguente funzione
> ????????
>
> Y = [nome del form di immissione dati nella maschera]
>
> '  Y č un testo!!!!!
>
> X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = ???????  ")
>
Se Y č il nome del controllo della maschera, prova:
X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = " & Y)
> ho provato anche a
> "TipoScheda.Creatore = Y"
>
> ma access si inca..a dicendomi: "l'espressione immessa come parametro di
> query ha provocato il seguente errore: "l'oggetto non contiene l'oggetto
di
> automazione 'y'"
>
> che cosa vuol dire?
>
>
> inoltre come faccio ad inserire delle variabili nell'istruz sql inert
> into????
>
> strSQL = "INSERT INTO Consiste VALUES ( X,45,45,45 );"
>
Esegui l'istruzione con: CurrentDb.Execute strSQL
>
> GRAZIE !!!!
>
Prego.
LaLo


title: codice Vba!

text:
"LaLo at home" <reg...@LLtin.it> ha scritto nel messaggio
news:Nyo66.13789$FF1.9...@twister1.tin.it...
> "Eros genellini" <
gene...@libero.it
> ha scritto nel messaggio
> news:kDn66.767$eB2....@news.infostrada.it...
> > come faccio a confrontare il valore testuale della seguente funzione
> > ????????
> >
> > Y = [nome del form di immissione dati nella maschera]
> >
> > '  Y è un testo!!!!!
> >
> > X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = ???????  ")
> >
> Se Y è il nome del controllo della maschera, prova:
> X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = " & Y)
>
> > ho provato anche a
> > "TipoScheda.Creatore = Y"
> >
> > ma access si inca..a dicendomi: "l'espressione immessa come parametro di
> > query ha provocato il seguente errore: "l'oggetto non contiene l'oggetto
> di
> > automazione 'y'"
> >
> > che cosa vuol dire?
> >
> >
> > inoltre come faccio ad inserire delle variabili nell'istruz sql inert
> > into????
> >
> > strSQL = "INSERT INTO Consiste VALUES ( X,45,45,45 );"
> >
>
> Esegui l'istruzione con: CurrentDb.Execute strSQL
>
> >
> > GRAZIE !!!!
> >
> Prego.
> LaLo
>
>
per il primo problema....nulla...continua a dirmi " tipo di dato non
corrispondente" ....
per il secondo anche qs nulla....mi dice parametro mancante....
E' POSSIBILE CHE NON RIUSCIAMO A RISOLVERE QSTI PROBLEMINI???? AIUTOOOOOO


title: codice Vba!

text:
"Eros genellini" <
gene...@libero.it
> ha scritto nel messaggio
news:Sip66.1788$eB2.1...@news.infostrada.it...
>
> "LaLo at home" <reg...@LLtin.it> ha scritto nel messaggio
[CUT]
> > Se Y è il nome del controllo della maschera, prova:
> > X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = " & Y)
[CUT]
> > >
> > > strSQL = "INSERT INTO Consiste VALUES ( X,45,45,45 );"
> > >
> >
> > Esegui l'istruzione con: CurrentDb.Execute strSQL
> >
> >
> per il primo problema....nulla...continua a dirmi " tipo di dato non
> corrispondente" ....
> per il secondo anche qs nulla....mi dice parametro mancante....
>
> E' POSSIBILE CHE NON RIUSCIAMO A RISOLVERE QSTI PROBLEMINI???? AIUTOOOOOO
>
Se segui il NG avrai senz'altro visto che Federico Luciani posta
regolarmente delle regole che bisognerebbe seguire (in altre parole, non
urlare); comunque se il campo 'Creatore' è di tipo testo, occorrerebbero gli
apici singoli, in altre parole:
X = DLookup("IdScheda", "TipoScheda", "TipoScheda.Creatore = '" & Y & "'")
Per il secondo problema, la stringa che stai costruendo contiene come primo
valore 'X'. Se si tratta di una variabile, allora la stringa devi scriverla
così:
strSQL = "INSERT INTO Consiste VALUES ( " & X & ",45,45,45 );"
Se si tratta di una costante:
strSQL = "INSERT INTO Consiste VALUES ('X',45,45,45 );"
Ciao
LaLo


title: Problema con stampa report

author: lismax

text:
Situazione : 2 computer in rete di cui il primo con Win 98 e Access XP, il
secondo con Win XP e Access XP
Azione: stampo report di prova con un solo controllo con bordo continuo (non
trasparente)
Problema:
-Computer con Win XP stampa il contenuto del controllo disallineato rispetto
al bordo, in particolare il bordo appare rispetto al testo due linee sotto a
sinistra.
-Computer con Win 98 stampa correttamente
Non riesco ad individuare la causa. Non credo che sia un bug di Access XP in
quanto il difetto è macroscopico (e poi perchè funzionerebbe sul primo
compiuter, solo perche il SO è Win 98 ?!!!)
Aspetto ansioso qualche vostro suggerimento per porre rimedio.
Grazie.


title: Problema con stampa report

author: Carlo Costarella

text:
"lismax" <
lismax...@tiscali.it
> ha scritto nel messaggio
news:VC7wa.116637$DT4.3...@twister1.libero.it...

Credo che il roblema risieda nel modo di WindowsXp di trattare il testo e la
grafica.
Questo nuovo sistema operativo ha aggiunto una quantità di funzioni per
migliorare la leggibilità del testo e della grafica. Per non parlare delle
nuove schede grafiche.
Prova a disabilitare tutte queste funzioni da WXP.
Ciao, Carlo


title: ScrollBars in sottomaschera...problema

author: spedysoft

text:
Ho una maschera principale che contiene una sottomaschera (a maschere
continue), la sottomaschera è predefinita con la sola barra orizzontale e
vorreri che la barra verticale apparisse solo dopo aver conteggiato i record
presenti nella tabella relativa...
Io ho provato a mettere questo codice nell evento apertura della maschera
principale:
Dim rst as DAO.Recordset
Set rst = Currentdb.Openrecordset("MiaTabella")
if rst.recordcount > 20 then
me.mia_sottomaschera.form.scrollbars = 3
rst.close
set rst = nothing
End if
Ma nulla da fare !!!!


title: ScrollBars in sottomaschera...problema

text:
"spedysoft" <
in...@spedysoft.com
> ha scritto nel messaggio
news:LCyXa.225616$Ny5.6...@twister2.libero.it...

> nulla da fare un cazzo...
se magari ci metto rst.movelast prima del conteggio non è meglio ?
vabbè...
come non detto, sarà il caldo va...
>


title: ScrollBars in sottomaschera...problema

text:
"spedysoft" <
in...@spedysoft.com
> ha scritto nel messaggio
news:ijzXa.225942$lK4.6...@twister1.libero.it...

E usare DCOUNT(...)...............................??????????????
Mah...!
@Alex.


title: è possibile visualizzare il nome del campo se esso contiene il valore vero?

author: NSantini

text:
detto così, sembra extraterrestre. In Pratica da Excell ho importato una
tabella con dati anagrafici e poi ci sono 7 campi denominati: 96, 97, 98...
02. Il contenuto dei campi è un Si o No a seconda se l'interessato ha
versato o non ha versato la quota di iscrizione. Ora, desidererei creare
delle lettere tipo stampa unione, ma utilizzando i report e in questo
dovrebbe comparire qualcosa del tipo
"La SV è invitata a regolarizzare la posizione contributiva in quanto
risultano non ancora pagati gli anni" e qui dovrà essere visualizzato il o i
nomi dei campi che contengono il valore No.
Grazie per l'aiuto che vorrete darmi
--
Saluti da
NSantini


author: Maurizio Borrelli

text:
> "NSantini" [...]:

    Rudimentale ma efficace, credo, vista la struttura dei dati:
Dim sMsg
With rst.Fields
    sMsg = ""
    With .Item("[96]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    ' ...
    With .Item("[02]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
End With
If (Len(sMsg) > 0) Then
    sMsg _
      = "La S.V. è invitata a regolarizzare la posizione" _
      & " contributiva in quanto risultano non ancora" _
      & " pagati gli anni " _
      & Left$(sMsg, Len(sMsg) - 2)
Else
    ' ...
End If
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


text:
> "Maurizio Borrelli" [...]:
    Mi correggo:
> Dim sMsg
    Dim sMsg As String



text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ak20tu$1e4rru$1...@ID-52090.news.dfncis.de...
> > "Maurizio Borrelli" [...]:
>
>     Mi correggo:
>
> > Dim sMsg
>
>     Dim sMsg As String
>
>
> --
> Ciao.
> Maurizio
si blocca in rst e mi segnala "Variabile non definita"
Ho provato con istruzioni quali dim rst as recordset ecc, ma mi sono
incartato
potresti darmi un'ulteriore suggerimento?
Grazie
Saluti da NSantini


text:
> "NSantini" [...]:
> > "Maurizio Borrelli" [...]:
> si blocca in rst e mi segnala "Variabile non definita"
> Ho provato con istruzioni quali dim rst as recordset ecc, ma mi sono
> incartato
> potresti darmi un'ulteriore suggerimento?
        Strumenti > Macro > Visual Basic Editor
        Strumenti > Riferimenti
    Verifica che esista il riferimento a:
        Library DAO
            <...>\DAO\DAOXXX.DLL
            Microsoft DAO x.x Object Library
quindi:
    Dim rst As DAO.Recordset



text:
> > Ho provato con istruzioni quali dim rst as recordset ecc, ma mi sono
> > incartato
> > potresti darmi un'ulteriore suggerimento?
>
>         Strumenti > Macro > Visual Basic Editor
>         Strumenti > Riferimenti
>
>     Verifica che esista il riferimento a:
>
>         Library DAO
>             <...>\DAO\DAOXXX.DLL
>             Microsoft DAO x.x Object Library
>
> quindi:
>
>     Dim rst As DAO.Recordset
>
> --
> Ciao.
> Maurizio
Non gira ancora!
 ti posto il codice e vediamo assieme
private Sub Report_Open(Cancel As Integer)
Dim sMsg As String
Dim rst As DAO.Recordset
With rst.Fields             (si blocca qui e mi dice *variabile del blocco
With non impostata*)
        sMsg = ""
        With .Item("[96]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[97]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[98]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[99]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[00]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[01]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    With .Item("[02]")
        If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
End With
If (Len(sMsg) > 0) Then
    sMsg _
      = "La S.V. è invitata a regolarizzare la posizione" _
      & " contributiva in quanto risultano non ancora" _
      & " pagati gli anni " _
      & Left$(sMsg, Len(sMsg) - 2)
Else
    ' ...
End If
'invitotx è il nome del controllo che visualizzerà il frutto
dell'elaborazione
 Me.invitotx = sMsg
End Sub
Ho impostato i riferimenti come indicato, ma ancora non gira.
Scusami se ti sto scocciando
Ciao, NSantini


text:
> "NSantini" [...]:
> Non gira ancora!
>  ti posto il codice e vediamo assieme
    Grazie. :-))
> private Sub Report_Open(Cancel As Integer)
> Dim sMsg As String
> Dim rst As DAO.Recordset
> With rst.Fields
> (si blocca qui e mi dice *variabile del blocco With non impostata*)
    Ok. Facciamo cosi'. Cancella tutto e ricominciamo.
N.B.: useremo l'evento Su formattazione della sezione Corpo del report
perche' l'operazione andra' fatta per ogni record.
Private Sub Corpo_Format( _
  ByRef Cancel As Integer _
, ByRef FormatCount As Integer)
  Dim sMsg As String
  sMsg = ""
  With Me
    With ![96]
      If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    ' ...
    With ![02]
      If .Value = False Then sMsg = sMsg & .Name & ", "
    End With
    If (Len(sMsg) > 0) Then
      sMsg _
        = "La S.V. è invitata a regolarizzare la posizione" _
        & " contributiva in quanto risultano non ancora" _
        & " pagati gli anni " _
        & Left$(sMsg, Len(sMsg) - 2)
    Else
      sMsg = "I pagamenti sono regolari, grazie."
    End If
    !invitotx.Value = sMsg
  End With
End Sub



text:
>     Ok. Facciamo cosi'. Cancella tutto e ricominciamo.
>
> N.B.: useremo l'evento Su formattazione della sezione Corpo del report
> perche' l'operazione andra' fatta per ogni record.
>
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Dim sMsg As String
sMsg = ""
With Me
    With .[96] (con il ! mi dava errore dicendo che non trovava il
campo...Boh)
        If .Value = False Then sMsg = sMsg & .Name & ", "
 ora si ferma in .Name con questo messaggio    *Impossibile trovare il
metodo o il membro dei dati*
Un momento di pausa: tu ti riferisci ad A97 o A2000? Succede che alcuni
termini sono diversi tra i due Access (es. A97 li chiama Pannelli di
controllo mentre A2000 li chiama Swichboard) quindi se così è potrebbe
essere che tu chiami .Name qualcosa che in A2000 è diverso... non so, sto
provando di capire e penso anche alle cose più assurde!
End With
.......
Ciao
NSantini


text:
> "NSantini" [...]:
> >     Ok. Facciamo cosi'. Cancella tutto e ricominciamo.
> > N.B.: useremo l'evento Su formattazione della sezione Corpo del report
> > perche' l'operazione andra' fatta per ogni record.
> Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
> Dim sMsg As String
> sMsg = ""
> With Me
>     With .[96] (con il ! mi dava errore dicendo che non trovava il
> campo...Boh)
    O scrivi:
        ![96]
o scrivi:
        .Item("96")  ' (Credo...)
ma in entrambi i casi *deve* esistere un controllo con quel nome. Esiste? Io
ho scritto cosi' copiando dal tuo post nel quale si ricavava che fossero
questi i nomi dei controlli. Invece come si chiamano? Penso che il problema
sia tutto qui. Magari si chiamano Testo1, Testo2, Testo3?...
>         If .Value = False Then sMsg = sMsg & .Name & ", "
>  ora si ferma in .Name con questo messaggio    *Impossibile trovare il
> metodo o il membro dei dati*
> Un momento di pausa: tu ti riferisci ad A97 o A2000?
    A2000 (AC2K)



text:
"Maurizio Borrelli"
> > >     Ok. Facciamo cosi'. Cancella tutto e ricominciamo.
> > > N.B.: useremo l'evento Su formattazione della sezione Corpo del report
> > > perche' l'operazione andra' fatta per ogni record.
> > Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
> > Dim sMsg As String
> > sMsg = ""
> > With Me
> >     With .[96] (con il ! mi dava errore dicendo che non trovava il
> > campo...Boh)
>
>     O scrivi:
>
>         ![96]
>
> o scrivi:
>
>         .Item("96")  ' (Credo...)
>
> ma in entrambi i casi *deve* esistere un controllo con quel nome. Esiste?
Ceeeerto che esiste, me lo fa vedere anche nella finestrella con l'elenco
dei campi disponibili mentre si è in modalità struttura report!
> Io ho scritto cosi' copiando dal tuo post nel quale si ricavava che
fossero
> questi i nomi dei controlli. Invece come si chiamano? Penso che il
problema
> sia tutto qui. Magari si chiamano Testo1, Testo2, Testo3?...
Parli di controlli? Beh allora le cose cambiano! Nel report non avevo
piazzato nessun controllo collegato
ai rispettivi campi [96]...  [02], non mi serve visualizzare il loro
contenuto e se glieli inserisco li
devo rendere invisibili. Glieli ho inseriti, li ho resi invisibili e ora
così funziona. Prima avevo inserito solo i contrlli collegati ai campi
Cognome, Nome, Indirizzo, CAP e Città perché di questi mi interessa
visualizzare il loro contenuto, mentre per i campi [96]... [02] A2K ne deve
verificare il contenuto e creare la stringa contenete i nomi di quelli che
contengono il valore No.
>
> >         If .Value = False Then sMsg = sMsg & .Name & ", "
> >  ora si ferma in .Name con questo messaggio    *Impossibile trovare il
> > metodo o il membro dei dati*
> > Un momento di pausa: tu ti riferisci ad A97 o A2000?
>
>     A2000 (AC2K)
>
> --
> Ciao.
> Maurizio
Bene, ora sembra tutto apposto a parte il fatto che ho dovuto inserire dei
controlli *inutili* al report.
Grazie infinite
Saluti da NSantini


text:
> "NSantini" [...]:
> Bene, ora sembra tutto apposto a parte il fatto che ho dovuto inserire dei
> controlli *inutili* al report.
    Mi fai sentire in colpa. Ligure?
> Grazie infinite
--
Ciao :-)



text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ake1ro$1i0tpk$1...@ID-52090.news.dfncis.de...
> > "NSantini" [...]:
> > Bene, ora sembra tutto apposto a parte il fatto che ho dovuto inserire
dei
> > controlli *inutili* al report.
>
>     Mi fai sentire in colpa. Ligure?
No, non  sono ligure; sono di Comiso (RG) e ligure o non ligure mi sembra
una inutilità aggiungere dei controlli che non serviranno: Ma facendo un
discorso più didattico, perché non si può fare direttamente riferimento ai
campi della tabella?
Grazie ancora, t'ho fatto sudare!
Saluti da NSantini


text:
> "NSantini" [...]:
> > "Maurizio Borrelli" [...]:
> > > "NSantini" [...]:
> > > Bene, ora sembra tutto apposto a parte il fatto che ho dovuto inserire
> > > dei controlli *inutili* al report.
> >     Mi fai sentire in colpa. Ligure?
> No, non  sono ligure; sono di Comiso (RG) e ligure o non ligure mi sembra
> una inutilità aggiungere dei controlli che non serviranno:
    Come fai a dire che sono inutili se li *usi* per ottenere lo scopo che
ti proponi?
    (Ok, ho capito cosa vuoi dire... Ma lasciami fare 'sta battuta. Grazie)
> Ma facendo un
> discorso più didattico, perché non si può fare direttamente riferimento ai
> campi della tabella?
    Ecco. Questa e' una bella domanda. Ma non so rispondere. A naso dovrebbe
essere possibile. Avevo tenuto da parte questo tuo post sperando di trovare
il tempo per fare delle prove ma ancora 'sto tempo non s'e' fatto vedere.
Per caso hai fatto tu qualche verifica?
> Grazie ancora, t'ho fatto sudare!
    Tranquillo. Ho la maglietta della salute.



title: Help me. Manuale o tutorial di Access online

author: Deborah Filo

text:
Vi prego aiutatemi. Cerco materiale in rete per imparare a maneggiare Access
in modo non troppo *spinto*...
Mi sapete indicare qualche link utile?


author: lbo dal portatile

text:
>Vi prego aiutatemi. Cerco materiale in rete per imparare a maneggiare Access
>in modo non troppo *spinto*...
>Mi sapete indicare qualche link utile?
boh, qualche tempo fa sono stati nominati
manuali.net
 e
risorse.net
.
comuqnue davvero non hai 30-40mila per comprarti un manualetto?
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: FindFirst....di nuovo

author: MarkRed

text:
Salve,
innanzitutto saluto, in particolar modo tutti quelli che hanno pazientemente
risolto alcuni miei problemi, e poi a tutti gli utenti di questo
meraviglioso n.g.
Dunque, ancora una volta "claudico" con FindFirst......
Dopo il validissimo suggerimento vorrei poter effettuare questo tipo di
ricerca:
sapere se esiste un nominativo già inserito e darmi l'avviso che esiste e di
che sesso è.
Premetto che, per esempio, ho una tabella "ELENCO" con i campi Cognome, Nome
e Sesso:
Private Sub nome_AfterUpdate()
'Mi dice se un nominativo è maschile o femminile
Dim nominativo As String
nominativo = "[cognome]= '" & Me.cognome & "' And [nome]='" & Me.nome &
"'and [sesso]= Me.RecordsetClone.FindFirst nominativo
If Me.RecordsetClone.NoMatch Then ecc. ecc.
Come va terminata la stringa che deve contenere il criterio F alla stringa
relativa al nominativo?
Ho provato in tutti i modi che conosco ma, niente!
Grazie, Marco.


title: FindFirst....di nuovo

author: Alessandro

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:DMf68.2839$dd4....@twister1.libero.it...

Premesso che io utilizzerei la Funzione Dlookup per fare quello
che dici, ma è opinione personale condizionabile dalla quantità
di RECORDS, devi inserire "F" così:
nominativo = "[cognome]= '" & Me.cognome & "' And [nome]='" & Me.nome &
"'and [sesso]= 'F'"
Me.RecordsetClone.FindFirst nominativo
Usando Dlookup invece
dim Esiste as Variant,Dim nominativo As String
nominativo = "[cognome]= '" & Me.cognome & _
"' AND [nome]='" & Me.nome & "' AND [sesso]= 'F'"
Esiste=Dlookup("[IdChiave]";"TuaTabella";nominativo)
If not isNull(Esiste) then ec...
Eviti un RECORDSET....
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: FindFirst....di nuovo

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:77c0c9dee8c4f4ed13...@mygate.mailgate.org...

Come al solito.........sei gentilissimo! Il codice funziona e non avrei
immaginato che andasse racchiuso semplicemente così: 'F' e non da " oppure
&. Grazie.
Per quanto riguarda la scelta di usare FindFirst nasce dal fatto che devo
fare questo tipo di controllo:
se quello che inserisco è, per esempio, un nominavito esistente femminile
deve fare una cosa se invece è maschile ne deve fare un'altro. Approfitto
dell'occasione per porti questa domanda: nel caso dovessi inserire un altro
FindFirst come sopra ma questa volta con il criterio 'M', possono
"coesistere" le due condizioni nella stessa routine??? Mi spiego meglio:
esegue FindFirst e mi dice che è maschile e lo mando ad eseguire, per
esempio, me.prova.value=1; posso inserire un altro FindFirst dove mi trova
'F' in modo da eseguire, per esempio, me.prova.value=2 ????
Grazie, Marco.
P.S. - La funzione Dlookup mi ricordo di averla usata in un caso ove io
selezionavo una determinata città e, dopo l'aggiornamento, negli altri
controlli della maschera mi inseriva la provincia, la targa, ecc. tra
l'altro usato in una macro e, da tempo, non uso più e nemmeno query perchè
le costruisco tramite codice.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> ha scritto nel messaggio
news:Fwh68.3712$dd4....@twister1.libero.it...

Ciao Alessandro,
tanto che ho provato e sono riuscito ad ottenere quello che volevo. Guarda
se ti piace anche se, forse, un pò maccheronico ma funziona:
Private Sub nome_AfterUpdate()
'Mi dice se un nominativo è maschile o femminile
Dim nominativo As String
Dim nominativo2 As String
nominativo = "[cognome]= '" & Me.cognome & "' And [nome]='" & Me.nome &
"'and [sesso]='F'"
nominativo2 = "[cognome]= '" & Me.cognome & "' And [nome]='" & Me.nome &
"'and [sesso]='M'"
Me.RecordsetClone.FindFirst nominativo
If Me.RecordsetClone.NoMatch Then
GoTo condizione2
Else
MsgBox "Nominativo femminile", vbCritical
DoCmd.CancelEvent
SendKeys "{esc}"
DoCmd.GoToControl "cognome"
GoTo fine
condizione2:
Me.RecordsetClone.FindFirst nominativo2
If Me.RecordsetClone.NoMatch Then
MsgBox "Nessun nominativo presente", vbCritical
GoTo fine
Else
MsgBox "Nominativo maschile", vbCritical
DoCmd.CancelEvent
SendKeys "{esc}"
DoCmd.GoToControl "cognome"
fine:
End If
End If
End Sub
Ciao, grazie!
Marco.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:IPi68.3972$kv.1...@twister2.libero.it...
[CUT]
Scusa se ho eliminato tutto, ma come sai da Mailgate ci sono
limitazioni...!
Direi che è ottimo e funzionale...!
Si potrebbe semplificare considerando che la prima parte di stringa
del Nominativo è sempre la Stessa e cambia solo "'M'" o "'F'"
quindi puoi utilizzare una variabile sola al quale sommi la diff..:
Caso Maschio
Nominaivo=Nominativo & "'M'"
Caso Femmina
Nominativo=Nominativo & "'F'"
Poi in questo modo riduci il FindFirst ad un unico passaggio....!
In ogni caso sono solo demagogia della Programmazione.
Personalmente preferisco scrivere meno righe possibile, sono pigro..!
Ciao.



title: FindFirst....di nuovo

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:116da3fff9328ec9c1...@mygate.mailgate.org...

No no, è giusto. Anzi, se mi dai queste "dritte" sono contento. Infatti
anch'io avevo pensato ad un solo passaggio di findfirst ma, purtroppo,
ancora non "mastico" bene VBA e, quindi, sto "crescendo" soprattutto grazie
a Voi e sbircio nel codice di alcuni programmi già fatti da Microsoft.
Non riesco a togliere dalla mente il GWBASIC e, per il momento, quello che
mi "rafforza" per inoltrarmi in un linguaggio strutturato è il fatto che mi
piace creare routine con la prima istruzione condizionale IF...THEN...ELSE!
per il resto ho speso un sacco di soldi per libri vari; l'ultimo Visual
Basci 6 dell'Apogeo: bello ma dà per scontato che se ne capisca un pò e,
soprattutto, è poverissimo di semplici esempi!
Comunque, grazie ancora.
Marco.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:iCw68.658$5M4....@twister2.libero.it...
> No no, è giusto. Anzi, se mi dai queste "dritte" sono contento. Infatti
> anch'io avevo pensato ad un solo passaggio di findfirst ma, purtroppo,
> ancora non "mastico" bene VBA e, quindi, sto "crescendo" soprattutto grazie
> a Voi e sbircio nel codice di alcuni programmi già fatti da Microsoft.
> Non riesco a togliere dalla mente il GWBASIC e, per il momento, quello che
> mi "rafforza" per inoltrarmi in un linguaggio strutturato è il fatto che mi
> piace creare routine con la prima istruzione condizionale IF...THEN...ELSE!
> per il resto ho speso un sacco di soldi per libri vari; l'ultimo Visual
> Basci 6 dell'Apogeo: bello ma dà per scontato che se ne capisca un pò e,
> soprattutto, è poverissimo di semplici esempi!
> Comunque, grazie ancora.
> Marco.
Spiacente dirtelo ma purtroppo anch'io ho comprato quel LIBRO 1,5 anni
fa visto che fondamentalmente lavoravo con VB, ma mi sono pentito
pochi gg dopo ed oggi ancora di più.
E' inconcludente, non capisco a che pubblico sia rivolto, per i
Principianti è una SUOLA, per chi ha dimestichezza non c'è nulla
di interessante.SOLDI BUTTATI VIA.
Libri che passione.
Io sono legato ad ACCESS97 e ti posso consigliare:
ACCESS97 Programmazione di Scott F.Barker
Jackson Libri
Cosice ISBN 88-256-1278-8
Non so se lo trovi ancora ha qualche anno ma è FANTASTICO.
Un'ottima alternativa se conosci l'Inglese è quello di Ken Getz
sempre su A97, ma non ricordo il Nome....!
Alessandro



title: FindFirst....di nuovo

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:b473b63f838ed91990...@mygate.mailgate.org...

Questo testo lo terrò in forte considerazione. Scusami se oso chiederti
un'altra cosa:
ritornando al codice precedente ho la necessità di "dichiarare" che i
controlli per esempio cognome, nome ed altri
da una maschera diversa da quella di lavoro. Faccio un esempio:
criterio= "[cognome] = " ecc. ecc.
findfirst ecc. ecc.
quindi [cognome] è il controllo della maschera "attiva" e, cioè, dove sto
lavorando, ma...
volendo lavorare su un'altra maschera diversa da quella che contiene il
controllo cognome, ad esempio, della tabella Nominativi e, quindi, sulla sua
relativa maschera Nominativi, ho provato in questa maniera:
criterio="form_nominativi.cognome=" ecc. ecc.
ed anche in diverse sintassi mi dà sempre lo stesso errore che
form_nominativi.cognome è errato.
Come devo fare, se si può?
Grazie.
Marco.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:AyE68.3972$nI1.1...@twister1.libero.it...
> Questo testo lo terrò in forte considerazione. Scusami se oso chiederti
> un'altra cosa:
> ritornando al codice precedente ho la necessità di "dichiarare" che i
> controlli per esempio cognome, nome ed altri
> da una maschera diversa da quella di lavoro. Faccio un esempio:
>
> criterio= "[cognome] = " ecc. ecc.
> findfirst ecc. ecc.
> quindi [cognome] è il controllo della maschera "attiva" e, cioè, dove sto
> lavorando
Ops...Errore:
[Cognome] in questo caso non è un Controllo, ma il Campo dell'origine
dati
es. la Tabella che usi per la ricerca.
Il controllo è Me.Cognome o Me![Cognome], ma non sono la stessa cosa
anche se si chiamano nello stesso modo.
Io preferisco sempre utilizzare i prefissi per i controlli es.:TextBox
la chiamerei txtCognome....
In questo modo [Cognome] è inequivocabilmente il CAMPO di riferimento.
, ma...
> volendo lavorare su un'altra maschera diversa da quella che contiene il
> controllo cognome, ad esempio, della tabella Nominativi e, quindi, sulla sua
> relativa maschera Nominativi, ho provato in questa maniera:
> criterio="form_nominativi.cognome=" ecc. ecc.
> ed anche in diverse sintassi mi dà sempre lo stesso errore che
> form_nominativi.cognome è errato.
> Come devo fare, se si può?
> Grazie.
> Marco.
Scusa Marco ma hai fatto proprio un gran CASINO tra CAMPI e CONTROLLI.
Nel CRITERIO inserisci una stringa di Testo che deve fare riferimento
al NOME del Campo sul quale effettuare la Ricerca, come può in una
stringa andare il CONTROLLO di una Form nel modo che hai fatto tu....!
Sinceramente quindi non riesco a capire cosa devi fare visto il
GARBUGLIO.
Alessandro.



title: FindFirst....di nuovo

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:0831581b0feca92959...@mygate.mailgate.org...

ok presto detto:
il codice va benissimo però, se creo una maschera non associata a nessuna
tabella e neanche nessuna query, in una casella di testo inserisco, ad
esempio, il cognome; la funzione (spero sia giusto) FindFirst vuole un campo
per la dovuta comparazione quindi il criterio dichiarato potrebbe essere
criterio="[cognome]=" ecc. significando che il campo [cognome] è presente in
questa maschera o quantomeno la stessa associata ad una tabella, giusto? e
se questo campo non è presente in maschera e la stessa mashera non è
associata a nessuna tabella? devo indicare questo campo a quale maschera e/o
tabella appartiene, giusto? quindi:
criterio="forms_nominativi.cognome=" ecc.
non capisco la giusta sintassi perchè mi dà sempre errore.
Spero di essere stato chiaro.
A proposito, visto che ci siamo, ma possibile che specificare un campo di
una tabella si deve far riferimento sempre e solo ad una maschera e, quindi,
crearla appositamente? IN soldoni: form_ ecc. CHE FA RIFERIMENTO A MASCHERE
MA UNA CHE FA RIFERIMENTO A TABELLE? senza passare o creare una
maschera?ILLUMINAMI.
Grazie.
Marco.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> ha scritto nel messaggio
news:M8G68.4522$5M4.1...@twister2.libero.it...

Scusami di nuovo ma rileggendo ho sbadatamente confuso tra controlli e
campi! Diciamo così: i controlli si trovano nelle maschere associate a campi
che si trovano nelle tabelle. Questo l'ho capito e ti prego di non far caso,
se puoi, a questi, ahime', gravi errori.
Attendo tue notizie.
Grazie


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:M8G68.4522$5M4.1...@twister2.libero.it...
> ok presto detto:
>
> il codice va benissimo però, se creo una maschera non associata a nessuna
> tabella e neanche nessuna query, in una casella di testo inserisco, ad
> esempio, il cognome; la funzione (spero sia giusto) FindFirst vuole un campo
> per la dovuta comparazione quindi il criterio dichiarato potrebbe essere
> criterio="[cognome]=" ecc. significando che il campo [cognome] è presente in
> questa maschera o quantomeno la stessa associata ad una tabella, giusto? e
> se questo campo non è presente in maschera e la stessa mashera non è
> associata a nessuna tabella? devo indicare questo campo a quale maschera e/o
> tabella appartiene, giusto? quindi:
> criterio="forms_nominativi.cognome=" ecc.
> non capisco la giusta sintassi perchè mi dà sempre errore.
> Spero di essere stato chiaro.
>
> A proposito, visto che ci siamo, ma possibile che specificare un campo di
> una tabella si deve far riferimento sempre e solo ad una maschera e, quindi,
> crearla appositamente? IN soldoni: form_ ecc. CHE FA RIFERIMENTO A MASCHERE
> MA UNA CHE FA RIFERIMENTO A TABELLE? senza passare o creare una
> maschera?ILLUMINAMI.
> Grazie.
> Marco.
Caro Marco mi ritrovo quì oggi per smentire nuovamente le tue
convinzioni.
Come ti dicevo con FindFirst non fai riferimento a nessun Controllo
e non importa nulla cosa tu abbia associato nella tua FORM o meno.
Con FindFirst fai riferimento al RECORDSET che non è altro che un
insieme
di Record.
Nel criterio="[Cognome]='Bianchi'" e lo ripeto per l'ultima volta non
c'è nessun riferimento a COntrolli(Es.:TextBox) quel [Cognome]
è il Relativo CAMPO della Base Dati del RECORDSET.
Il recordset può essere un CLONE dell'origine dati della Form
da cui Recordsetclone, ma sempre contiene CAMPI come le Tabelle.
E' ovvio che se hai una Form non associata per utilizzare FindFirst
devi costruirti un RECORDSET, ma a cosa ti serve non saprei....!
Se invece vuoi realizzare una sorta di Form per inserire criteri di
RICERCA, beh sei proprio fuori strada............................!
Ci sono 2 sistemi semplicissimi:
1)Query Parametrica in cui inserisci come CRITERIO il Riferimento
  al CONTROLLO della FORM non ASSOCIATA. Questa QRY sarà l'origine
  dati della FORM "RisultatoRicerca".
2)La Form "RisultatoRicerca" ha come origine dati la Tabella Completa.
  La tua Form "Criteri" costruirà il Criterio così come lo abbiamo
  visto precedentemente, e quando esegui il
  DOCMD.OPENFORM "RisultatoRicerca",,CRITERIO
  Apre la Form in questione FILTRATA in Base al Criterio che hai
  passato all'apertura.
Scusa se sono stato brusco, ma sinceramente ho la certezza che tu
abbia solo una gran confusione, quindi mi risulta molto difficile
spiegarti alcuni concetti, che vedo ti sfuggono.
Non voglio nè scoraggiarti nè offenderti, ci mancherebbe altro,
anzi mi fa piacere darti quando posso alcuni consigli, ma il mio
consiglio è quello di non buttare troppa carne al fuoco,
spezza i problemi e affrontali uno alla volta, hai troppe lacune
di concetti per buttarti a capofitto sugli oggetti DAO.
Ciao.



title: FindFirst....di nuovo

text:
Esimio Alessandro,
Grazie della tua pazienza e non sono per niente offeso od altro perchè hai
ragione.
Dovrò subito mettermi alla ricerca del libro che hai gentilmente suggerito,
affinchè possa attingere le dovuti basi nonchè i concetti di programmazione
VB ma scusami se insisto in questo senso:
come devo fare nel caso dovessi creare una maschera non associata, con una
sola casella di testo ove posso inserire, ad esempio, "Bianchi" e
sull'evento AfterUpdate voglio eseguire la routine che contiene FindFirst
per trovarmi il record che contiene "Bianchi" nel campo cognome della
tabella "Nominativi", se questo esiste?
Capisco benissimo che non so ancora cos'è un recordset, come si apre e,
soprattutto, come si chiude;cos'è un DAO ecc. ABBI PIETA'
Spero tanto che in questo modo mi sia espresso nel modo più chiaro
possibile.
Se si può fare aspetto in concitata attesa.
Grazie e un affettuoso saluto.
Marco.


title: FindFirst....di nuovo

text:
RISOLTO ALLA GRANDE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Esimio Alessandro,
ho risolto il caso semplicemente ragionandoci e ho potuto constatare con
grande felicità che il tutto funziona.
Finalmente ho scoperto che in una maschera non associata i dovuti
riferimenti sono:
Criterio="Nominativi.cognome= ecc. ecc.
quando devo fare il controllo se non esiste e quindi NoMatch allora:
If Form_nominativi.RecordSetClone.NoMatch ecc. ecc.
quindi nel criterio va direttamente specificato il nome della tabella con il
relativo campo ma quando deve verificare deve fare riferimento ad una Form,
in questo caso, la maschera Nominativi.
Ho provato anche a fare riferimento direttamente alla tabella:
Nominativi.RecordSetClone.NoMatch ecc. ecc. ma dà errore.
Comunque mi sta BENISSIMO così anche se, forse (quasi sicuramente), non è il
modo migliore ma mi accontento lo stesso considerato il mio stato ancora
"embrionale" in programmazione VB.
Grazie ancora.
Marco.


title: FindFirst....di nuovo

text:
"MarkRed" <
con...@libero.it
> wrote in message
news:zoQ68.6098$nI1.1...@twister1.libero.it...
> RISOLTO ALLA GRANDE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>.NoMatch ecc. ecc. ma dà errore.
>
> Comunque mi sta BENISSIMO così anche se, forse (quasi sicuramente), non è il
> modo migliore ma mi accontento lo stesso considerato il mio stato ancora
> "embrionale" in programmazione VB.
>
> Grazie ancora.
> Marco.
Non darmi dell'ESIMIO se non vuoi delle parolacce....! ;-)
Benissimo, quando le cose funzionano è un grosso passo avanti.
Per perfezionarle si fa sempre a tempo.
Ciao Buon Week-End



title: Contatore progressivo

author: maxcondor

text:
stavo realizzando un'applicazione access per un gestionale di
protocollo. Ho inserito la seguente formula in un campo maschera:
="P" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("[Nprt]";"[Protocollo]";"[Nprt] like 'P" &
Format(Date();"aa") & "/????'"));
1;Right(DMax("[Nprt]";"[Protocollo]";"[Nprt] like 'P" &
Format(Date();"aa") & "/????'");4)+1);"0000")
praticamente il campo numero di protocollo aumentava correttemente in
modo incrementale
p07/0001, p07/0002 e cosi via, e se l'anno cambiava automaticamente il
campo si azzerava (p08/0001) Il problema è che però devo gestire un
protocollo di Arrivo e uno in partenza. Quindi dovrei fare in modo che
se il record da inserire è in arrivo il il campo numero dovrebbe darmi
A07/0001 e cosi via, mentre ise inserisco un record in partenza il
campo dovrebbe darmi P07/0001 e cosi via... E' un casino vero?


title: Contatore progressivo

author: mak

text:

Ti posso dire come procedo normalmete io:
Utilizzo le Tabelle per  salvare numerazione e lettere di espansione e
con VBA e Recodset " Prelievo" i dati che mi occorrono con istruzioni
If o Select Case
Come sei messo a VBA ?
Ciao
Mak


title: Contatore progressivo

author: cidi

text:
"maxcondor" <
massim...@intec.kr.it
> ha scritto nel messaggio
news:1170261684.8...@a75g2000cwd.googlegroups.com...



No! :-)
guarda qua:
http://groups.google.com/group/it.comp.appl.access/browse_thread/thread/5913749af29e878b/d870609a4fc54b3f?lnk=st&q=&rnum=6#d870609a4fc54b3f
Daniele


title: Contatore progressivo

text:
On 31 Gen, 23:58, "cidi" <
dadonzinos...@tin.it
> wrote:
> "maxcondor" <
massimo.ru...@intec.kr.it
> ha scritto nel messaggionews:1170261684.8...@a75g2000cwd.googlegroups.com...
> stavo realizzando un'applicazione access per un gestionale di
> protocollo. Ho inserito la seguente formula in un campo maschera:
>
> ="P" & Format(Date();"aa") & "/" &
> Format(IIf(IsNull(DMax("[Nprt]";"[Protocollo]";"[Nprt] like 'P" &
> Format(Date();"aa") & "/????'"));
> 1;Right(DMax("[Nprt]";"[Protocollo]";"[Nprt] like 'P" &
> Format(Date();"aa") & "/????'");4)+1);"0000")
>
> praticamente il campo numero di protocollo aumentava correttemente in
> modo incrementale
> p07/0001, p07/0002 e cosi via, e se l'anno cambiava automaticamente il
> campo si azzerava (p08/0001) Il problema è che però devo gestire un
> protocollo di Arrivo e uno in partenza. Quindi dovrei fare in modo che
> se il record da inserire è in arrivo il il campo numero dovrebbe darmi
> A07/0001 e cosi via, mentre ise inserisco un record in partenza il
> campo dovrebbe darmi P07/0001 e cosi via... E' un casino vero?
>
> No! :-)
> guarda qua:
http://groups.google.com/group/it.comp.appl.access/browse_thread/thre.
..
>
> Daniele
Ho visto la soluzione proposta dal link :
Se il tuo Gruppo di opzioni si chiama TuaOpzione ed assume il valore 1
se
vuoi usare la lettera A ed il valore 2 se vuoi usare la lettera B,
nel
valore predefinito del controllo N_Fatture prova a scrivere:
=IIf([TuaOpzione]=1; "A"; "B") &
Format(IIf(IsNull( DMax("[N_Fattura]";
"[Tab_Fatture]"; "[N_Fattura] like '" & IIf([TuaOpzione]=1; "A"; "B")
&
"???/" & Format(Date(); "aa") & "'")); 1; Mid(DMax("[N_Fattura]";
"[Tab_Fatture]"; "[N_Fattura] like '" & IIf([TuaOpzione]=1; "A"; "B")
&
"???/" & Format(Date(); "aa") & "'"); 2; 3) + 1);"000") & "/" &
Format(Date(); "aa")
Se quindi campio l'opzione il valore predefinito del contatore si
aggiorna automaticamente? oppure devo usare codice vba ( per questo
sono un pò in alto mare)


title: Contatore progressivo

text:
"maxcondor" <
massim...@intec.kr.it
> ha scritto nel messaggio
news:1170329707.0...@a34g2000cwb.googlegroups.com...




si aggiorna automaticamente. nessun codice.
fai delle prove.
come determini se il protocollo è in arrivo o partenza?
pulsanti diversi che aprono maschere diverse?
Daniele


title: Contatore progressivo

text:
On 1 Feb, 15:40, "cidi" <
dadonzinos...@tin.it
> wrote:
> "maxcondor" <
massimo.ru...@intec.kr.it
> ha scritto nel messaggionews:1170329707.0...@a34g2000cwb.googlegroups.com...

Per determinare se il protocollo è in arrivo o in partenza utilizzo
una casella combinata, oppure vorrei utilizzare dei radio button.
Comunque la maschera è una sola


title: Contatore progressivo

text:
"maxcondor" <
massim...@intec.kr.it
> ha scritto nel messaggio
news:1170404718.6...@q2g2000cwa.googlegroups.com...


Allora  hai risolto?
se ancora non hai risolto, cambia nel codice "TuaOpzione" con il nome della
combo.
ed "B" con P
Daniele


title: Contatore progressivo

text:
On 2 Feb, 12:19, "cidi" <
dadonzinos...@tin.it
> wrote:
> "maxcondor" <
massimo.ru...@intec.kr.it
> ha scritto nel messaggionews:1170404718.6...@q2g2000cwa.googlegroups.com...

Provo e vi faccio sapere.... lunedi però... adesso sono in partenza...
speriamo che funzioni...
Alla prossima...


title: Chek Box da assegnare ai record.

author: Eric

text:
In una maschera ho una casella combinata [TipoArticolo] che controlla una
sottomaschera in cui appaiono tutti i codici del
[TipoArticolo]. Mi interesserebbe aggiungere una casella di controllo a
fianco di ciascun codice che appare nella
sottomaschera in modo che sia possibile selezionare o meno particolari
codici di quel [TipoArticolo].
Per avere un controllo sul codice devo per forza aggiungere una Check Box
(ad esempio Selezionato) nella tabella degli
Articoli (una check box per ogni articolo e quindi per ogni codice) che mi
apparirà a fianco di ciascun codice che mi appare
nella sottomaschera o c'è un modo per associare le check box della
sottomaschera ai codici senza dover creare il campo
nella tabella?
Grazie a tutti coloro che mi forniranno una qualche soluzione.
Ciao.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Chek Box da assegnare ai record.

author: Sergio MAZZA

text:
"Eric" <no...@nospam.nospam> ha scritto nel messaggio
news:193Z207Z127Z33Y...@usenet.libero.it...

A mio avviso no; io utilizzarei una tabella di appoggio (identica alla
prima) con in più il campo checkbox. Ma perchè devi selezionare più di un
codice nella sottomaschera?
Ciao.
--
Sergio MAZZA


title: Chek Box da assegnare ai record.

text:
Nella maschera principale ho la casella combinata [Tipo Articolo] che filtra
i codici che mi appaiono nella sottomaschera facendomi vedere solo i codici
articolo del [Tipo Articolo] selezionato e ho un'altra casella combinata
[Codice Scheda] da associare solo a determinati articoli.
Spuntando nella sottomaschera la check box di soltanto determinati codici
andrò ad associare solo a quei codici la scheda articolo selezionata.
Ciao,
Eric.



title: Chek Box da assegnare ai record.

text:
"Eric" <nos...@nospam.nospam> ha scritto nel messaggio
news:193Z207Z127Z33Y...@usenet.libero.it...
> Nella maschera principale ho la casella combinata [Tipo Articolo] che
filtra
> i codici che mi appaiono nella sottomaschera facendomi vedere solo i
codici
> articolo del [Tipo Articolo] selezionato e ho un'altra casella combinata
> [Codice Scheda] da associare solo a determinati articoli.
> Spuntando nella sottomaschera la check box di soltanto determinati codici
> andrò ad associare solo a quei codici la scheda articolo selezionata.
>
> Ciao,
> Eric.
Quindi è un passaggio obbligato la selezione di determinati codici con la
checkbox; allora includerei comunque il campo in tabella e finita
l'associazione li azzero con una query di aggiornamento...
Ciao.
--
Sergio MAZZA


title: automazione access-word

author: Akery

text:
Buongiorno,

ho un db da cui prendo le informazioni e le passo ad un documento word
con questa scrittura:

Private Sub cmdStampa_Click()

     Dim w As New Word.Application
     Dim nome_modello As String

     ' Se abbiamo salvato il modello nella stessa cartella del file di
Access

     nome_modello = CurrentProject.Path & "\modbando.dotx"
     w.Visible = True

     ' Creo un nuovo documento dal modello
     w.Documents.Add Template:=nome_modello, NewTemplate:=False,
DocumentType:=0

     ' Compilo i campi di Word (identificati tramite segnalibri) con i
valori del database

     AggiornaCampo w, "bando", CStr(ID)
     AggiornaCampo w, "decreto", CStr(Me.Form!decreti!ID)
     AggiornaCampo w, "data", CStr(data)

     Set w = Nothing

End Sub

Private Sub AggiornaCampo(ByRef w As Word.Application, campo As String,
valore As String)
     Const LUNGHEZZA_SEGNAPOSTO = 4

     w.ActiveDocument.Bookmarks(campo).Select

     ' Espando la selezione per eliminare i segnaposto
     w.Selection.Expand WdUnits.wdCharacter
     w.Selection.End = w.Selection.End + LUNGHEZZA_SEGNAPOSTO

     w.Selection.Text = valore
End Sub

e tutto funziona! quindi penso che copiare lo stesso codice in un nuovo
db potrebbe farmi guadagnare tempo, per cui proseguo e modifico
all'occorrenza il codice di cui sopra in questo modo:

Private Sub Comando41_Click()

     Dim w As New Word.Application
     Dim nome_modello As String

     ' Se abbiamo salvato il modello nella stessa cartella del file di
Access

     nome_modello = CurrentProject.Path & "\lettera.dotx"
     w.Visible = True

     ' Creo un nuovo documento dal modello
     w.Documents.Add Template:=nome_modello, NewTemplate:=False,
DocumentType:=0

     ' Compilo i campi di Word (identificati tramite segnalibri) con i
valori del database

     AggiornaCampo w, "nominativo", CStr(Nominativo)
     AggiornaCampo w, "tutor", CStr(tutor)
     AggiornaCampo w, "data_visita", CStr(data_visita)
     AggiornaCampo w, "struttura", CStr(struttura)

     Set w = Nothing

End Sub

Private Sub AggiornaCampo(ByRef w As Word.Application, campo As String,
valore As String)
     Const LUNGHEZZA_SEGNAPOSTO = 4

     w.ActiveDocument.Bookmarks(campo).Select

     ' Espando la selezione per eliminare i segnaposto
     w.Selection.Expand WdUnits.wdCharacter
     w.Selection.End = w.Selection.End + LUNGHEZZA_SEGNAPOSTO

     w.Selection.Text = valore

End Sub

ma la risposta è un errore "tipo definito dall'utente non definito", che
non riesco a risolvere, cosa sto sbagliando oppure posso fare qualcosa
per migliorare questa automazione?

grazie

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


title: automazione access-word

text:
Riferimenti alla LIB MICROSOFT WORD, avendo sviluppato in modalità EARLYBINDING, cosa peraltro da non fare.

@Alex


title: automazione access-word

text:
Il 08/04/2019 15:50, @Alex ha scritto:
> Riferimenti alla LIB MICROSOFT WORD, avendo sviluppato in modalità EARLYBINDING, cosa peraltro da non fare.
>
> @Alex
>
come più volte scritto nel gruppo sono un dilettante, cortesemente
chiedo un aiuto a risolvere, anche solo un consiglio mi farebbe piacere

grazie
Akery



title: automazione access-word

text:
Il giorno martedì 9 aprile 2019 08:39:25 UTC+2, Akery ha scritto:
> Il 08/04/2019 15:50, @Alex ha scritto:
> > Riferimenti alla LIB MICROSOFT WORD, avendo sviluppato in modalità EARLYBINDING, cosa peraltro da non fare.
> >
> > @Alex
> >
> come più volte scritto nel gruppo sono un dilettante, cortesemente
> chiedo un aiuto a risolvere, anche solo un consiglio mi farebbe piacere
>
> grazie
> Akery

Quello che ti ho scritto è un aiuto...!
Qualsiasi "DILETTANTE" con un minimo di intraprendenza, digita su GOOGLE quello che ti ho suggerito: "MsAccess riferimenti libreria word"
ed ottiene questo:

https://support.office.com/it-it/article/aggiungere-librerie-di-oggetti-a-un-progetto-visual-basic-ed28a713-5401-41b0-90ed-b368f9ae2513

Non mi pare serva Zichichi...

@Alex


title: automazione access-word

text:

[risolto]

il problema non è il codice e nemmno il riferimento, il problema era il
file, infatti, tutto riscritto in un nuovo file funziona, grazie per il
supporto



title: automazione access-word

text:
Attenzione ugualmwnte all'uso di EarlyBinding... che è un errore comune tra i poco esperti...

@Alex


title: Creare file pdf firma posta elettronica

author: Tommy

text:
ho scaricato dal sito comune l'esempio per creare file.pdf. e inviare file
ad autoluk
l'mdb che ho scaricato si chiama "creare file pdf97new.mdb"
funziona tutto ma come faccio quando crea il nuovo email con allegato pdf a
inserire anche la firma.
se faccio nuova email la firma la carica del messaggio email
ciao a tutto il NG
access97


title: creare una cartella data da un report access

text:
Ciao a tutti,

da un report di access ho un pulsante che mi crea un pdf in una determinata cartella:

Private Sub PDF()
DoCmd.PrintOut
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\Users\Public\Ricevute\" & "Ricevuta_N°" & Me.bis & "_" & Format(Date, "YYYYMMDD") & ".pdf", False
DoCmd.Close ObjectType:=acReport, ObjectName:=Me.Name
End Sub

Dovrei modificarlo in modo che giornalmente mi crea una cartella con il nome della data presente nel campo "dataricevuta" della ricevuta .

Se la cartella non esiste la deve creare e salvare la ricevuta li, altrimenti procede a salvare il pdf nella cartella esistente.

Se avete spunti grazie mille.

Grazie,
Marco


text:

Intanto testavo questo
Private Sub Comando0_Click()
If Len(Dir("c:\tappo" & Me.data, vbDirectory)) = 0 Then
   MkDir  "c:\tappo" & Me.data"
End If
End Sub

ma da errore...


text:
Il giorno mercoledì 2 marzo 2016 08:54:12 UTC+1,
mb0...@gmail.com
 ha scritto:

La data la devi formattare non accetterà mai una stringa con [/]...
Di solito si formatta Format([CampoData],ddmmyyyy)

@Alex


author: RobertoA

text:

Magari se ci dici che errore da' ...


title: aggiornare controlli e sottomaschere

text:
ciao a tutti

ho maschera con casella combinata e 4 sottomaschere.

Per aggiornare le maschere, in dopo aggiornamento della casella combinata
cosa è preferibile:

Me!Subform1.requery
Me!Subform2.requery
ecc.

oppure:

Me.refresh
Me.requery

Stessa cosa su chiusura della maschera che apro su doppio click di un controllo
della Subform1;  va:

Forms("MiaForm")!MiaCbo.requery
Forms("MiaForm")!Subform1.requery
Forms("MiaForm")!Subform2.requery
ecc.

oppure:
Forms("MiaForm").refresh
Forms("MiaForm").requery

grazie.


title: aggiornare controlli e sottomaschere

text:

aggiungo che tutte sottomaschere hanno origine da query e
che la prima sottomaschera è filtrata su criteri della query dalla combo posizionata nella maschera, mentre
due sottomaschere hanno come filtri, la combo e l'idclienti della prima sottomaschera.
La quarta è invece collegata a campi master e scondari, con una di queste
sottomaschere.


title: aggiornare controlli e sottomaschere

text:
Il giorno domenica 27 dicembre 2015 09:06:14 UTC+1,
francodel...@gmail.com
 ha scritto:
> ciao a tutti
>
> ho maschera con casella combinata e 4 sottomaschere.
>
> Per aggiornare le maschere, in dopo aggiornamento della casella combinata
> cosa è preferibile:
>
> Me!Subform1.requery
> Me!Subform2.requery
> ecc.
>
> oppure:
>
> Me.refresh
> Me.requery

LEGGI QUELLA BENEDETTA GUIDA IN LINEA...!!!!!!!!!!

SPIEGA BENISSIMO LA DIFFERENZA TRA I 2 METODI...!

PERCHE' DEVI CHIEDERE DI COSE CHE PUOI LEGGERE CERCANDO SULL'HELP...?????????

@Alex


title: problema su codifica caratteri

text:
Buongiorno a tutti
ho realizzato un db che in base alla lingua scelta cliccando
sull'apposita bandierina, effettua le traduzioni delle varie etichette
presenti nelle varie schermate.
Ho appena ricevuto le traduzioni in greco ed ho notato che copiando le
traduzioni da word ed incollandole in VBA mi vengono visualizzati al
posto dei caratteri greci dei punti interrogativi rendendo di
conseguenza vana la possibilità di inserire le varie traduzioni....
C'è modo di aggirare questo ostacolo?
grazie 1000
Nicola


title: problema su codifica caratteri

author: MA

text:
"N1C0L4"  ha scritto nel messaggio
news:8c4db771-6610-4e31...@m22g2000yqh.googlegroups.com...
Buongiorno a tutti
ho realizzato un db che in base alla lingua scelta cliccando
sull'apposita bandierina, effettua le traduzioni delle varie etichette
presenti nelle varie schermate.
Ho appena ricevuto le traduzioni in greco ed ho notato che copiando le
traduzioni da word ed incollandole in VBA mi vengono visualizzati al
posto dei caratteri greci dei punti interrogativi rendendo di
conseguenza vana la possibilit� di inserire le varie traduzioni....
C'� modo di aggirare questo ostacolo?
grazie 1000
Nicola
_________________
Quando � in greco usa e (quindi cambia in) un font adatto
MA


title: problema su codifica caratteri

author: Paolo opg

text:
N1C0L4 <
nick...@gmail.com
> wrote in news:8c4db771-6610-4e31-9db2-
9646b6...@m22g2000yqh.googlegroups.com
:

il testo in lingua e' annegato nel codice vba oppure hai una tabella con le
traduzioni?
--
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--


title: problema su codifica caratteri

text:
"MA"  ha scritto nel messaggio news:j03o1q$uo9$1...@tdi.cu.mi.it...
"N1C0L4"  ha scritto nel messaggio
news:8c4db771-6610-4e31...@m22g2000yqh.googlegroups.com...
Buongiorno a tutti
ho realizzato un db che in base alla lingua scelta cliccando
sull'apposita bandierina, effettua le traduzioni delle varie etichette
presenti nelle varie schermate.
Ho appena ricevuto le traduzioni in greco ed ho notato che copiando le
traduzioni da word ed incollandole in VBA mi vengono visualizzati al
posto dei caratteri greci dei punti interrogativi rendendo di
conseguenza vana la possibilità di inserire le varie traduzioni....
C'è modo di aggirare questo ostacolo?
grazie 1000
Nicola
_________________
Quando è in greco usa e (quindi cambia in) un font adatto
MA
_____________________Risposta:
Aspetta sto rileggendo. Tu le traduzioni le metti in VBA???
e quindi se vuoi cambiarle apri il programma?
metti tutto in tabella, scorrila e cambi le caption
MA


title: problema su codifica caratteri

text:
On 19 Lug, 13:07, Paolo opg <
spamcatc...@tiscali.it
> wrote:
> N1C0L4 <
nickb...@gmail.com
> wrote in news:8c4db771-6610-4e31-9db2-
>
9646b6256...@m22g2000yqh.googlegroups.com
:

Visto che non erano previste lingue con uso di caratteri differenti
dal ns alfabeto (attualmente è in italiano, inglese, spagnolo e
francese), ho implementato il tutto in vba facendo largo uso di
struzioni case-select, ora però mi ritrovo davanti a questo muro che
forse mi constringerà a rivedere il tutto...
Nicola


title: problema su codifica caratteri

text:
On 19 Lug, 13:08, "MA" <
mas...@massimilianoamendola.it
> wrote:
> "MA"  hascritto nel messaggionews:j03o1q$uo9$1...@tdi.cu.mi.it...
>
> "N1C0L4"  hascritto nel messaggionews:8c4db771-6610-4e31...@m22g2000yqh.googlegroups.com...
>
> Buongiornoatuttiho realizzato un db che in baseallalinguasceltacliccandosull'appositabandierina, effettuale traduzioni delle varie etichettepresenti nelle varie schermate.Hoappenaricevuto le traduzioni in greco ed ho notato che copiando letraduzioni daword ed incollandole in VBAmi vengono visualizzatialposto dei caratteri greci dei punti interrogativi rendendo diconseguenzavanalapossibilità di inserire le varie traduzioni....C'è modo diaggirare questo ostacolo?
>
> grazie 1000
>
> Nicola
> _________________Quando è in greco usae (quindi cambiain) un fontadattoMA_____________________Risposta:Aspettasto rileggendo. Tu le traduzioni le metti in VBA???e quindi se vuoi cambiarleapri il programma?metti tutto in tabella, scorrilae cambi le captionMA
Buongiorno e buon inizio settimana
Sto tentando di modificare la struttura del db come mi avete suggerito
mettendo le traduzioni in tabella ma non riesco a capire come
strutturarla e gestirla successivamente sulle varie maschere visto che
comunque c'è la possibilità che in futuro si aggiungano altre
lingue...
mi accendete qualche lampadina?
grazie in anticipo
Nicola


title: problema su codifica caratteri

author: Popi - TheBadHabits

text:

My 2 cents?
Tabella TestoIniziale
ProgTesto, Numerico, Intero lungo
TestoStruttura, Testo, 255, Chiave primaria
Tabella LingueTradotte
ProgTesto, Numerico, Intero lungo, Chiave primaria
CodiceLungua, Testo, 2, Chiave primaria
TestoTradotto, Testo, 255
Le 2 tabelle, .ovviamente, in relazione 1 a molti da
TestoIniziale.ProgTesto su LingueTradotte.ProgTesto.
In pratica, sull'evento apertura di in ogni form e report fai un ciclo
che, per ogni controllo, vada a cercare nella query di estrazione per
la lingua selezionata il testo messo in design su quel controllo e lo
riassegni usando il testo tradotto trovato.
HTH
Popi


title: Aggiornamento campo di una tabella

author: Ugo

text:
Ciao a tutti e buon inizio settimana..
volevo chiedere di un problemino che mi assilla stamani
Ho una form con 2 controlli
"ultimaestr" e "nuovaestr" :
il ctrl "nuovaestr" č non associato e, all'apertura della form assume il
valore "date-1"
il ctrl "ultimaestr" la prima volta che si apre la form deve avere valore
null, poi, alla chiusura della form deve assumere il valore di "nuovaestr",
in maniera tale che alla successiva apertura della form egli segnali la data
dell'ultima estrazione dati.
Solo che,quando associo il ctrl "nuovaestr", al campo "nuovaestr" di una
tbl,per la conservazione della data, mi da' errore di run
time -
2147352567
(80020009) "Impossibile assegnare un valore all'oggetto"
Il campo "nuovaestr"della tabella č settato per "dat/ora" esattamente come
il ctrl della form.
Qualcuno sa spiegarmi il perchč?
grazie anticipate e scusate se non sono stato molto chiaro nella mia
spiegazione.
Ugo


title: Aggiornamento campo di una tabella


title: Aggiornamento campo di una tabella

author: Alessandro Baraldi

text:
"Ugo" <
Ugo...@hotmail.com
> wrote in message
news:9o4f90$gf8$1...@fe1.cs.interbusiness.it...
> Ciao a tutti e buon inizio settimana..
> volevo chiedere di un problemino che mi assilla stamani
> Ho una form con 2 controlli
>
> "ultimaestr" e "nuovaestr" :
>
> il ctrl "nuovaestr" č non associato e, all'apertura della form assume il
> valore "date-1"
> il ctrl "ultimaestr" la prima volta che si apre la form deve avere valore
> null, poi, alla chiusura della form deve assumere il valore di "nuovaestr",
> in maniera tale che alla successiva apertura della form egli segnali la data
> dell'ultima estrazione dati.
>
> Solo che,quando associo il ctrl "nuovaestr", al campo "nuovaestr" di una
> tbl,per la conservazione della data, mi da' errore di run
> time -
2147352567
(80020009) "Impossibile assegnare un valore all'oggetto"
>
> Il campo "nuovaestr"della tabella č settato per "dat/ora" esattamente come
> il ctrl della form.
Ho capito "poco", ma per quello che devi fare credo sia meglio avere una
Tabella
in cui salvare il dato dell'ultimo accesso.
In questo modo ti semplifichi la vita con le ComboBox, poi ogni volta che
accedi
lo aggiorni...., e il controllo che restituisce la data dell'ultimo accesso
lo recuperi all'evento Open della Form utilizzando DAO, tanto poi hai sempre e
solo
1 record.
@Alex.
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: visualizzare immagini JPG in campo BLOB su form Access

author: antonello

text:
Dopo aver letto moltissimi interventi al riguardo, e aver deciso
comunque che scelgo la strada di incorporare le immagini dentro il DB
correndo i rischi della crescita abnorme, mi sembra che nessuno abbia
risolto il seguente problema:
1-in una tabella MySql esiste un campo chiamato Foto1, di tipo BLOB, e
il DB viene gestito da Access tramite MyODBC (quindi il campo viene
visto come OLE)
2-nella maschera relativa ho messo una cornice per oggetto OLE
associato, nel quale controllo incorporo col comando
foto1.Action = acOLEInsertObjDlg
la foto desiderata.
3-se la foto č di tipo BMP tutto va bene, nessun errore, e la ritrovo
sempre lě ogni volta che sfoglio i record con quella maschera, se
invece la foto č di tipo JPG non ottengo nessun messaggio di errore,
la foto compare nella cornice, ma quando cambio record e ci
ritorno...sparita!
4-eppure se entro nel campo BLOB da MySqlFront vedo che nel campo c'č
qualcosa (presumo la suddetta foto)...solo che Access non la mostra
nella sua form.
Grazie


text:
"antonello" <
manco...@tiscali.it
> ha scritto nel
messaggio
news:a33539ee.04070...@posting.google.com...

E' un problema di filtri di conversione immagine
Li hai installati tutti?
MAssimiliano


title: Inserimento dati:problema.

author: Vito

text:
Ciao,
ho realizzato un DB con solo due tabelle relazionate: una lato 1 e l’altra
lato molti.
Ora mi trovo con il seguente problema: dopo aver immesso i dati in entrambe
le tabelle, devo valorizzare in un secondo momento, i campi della sola
tabella lato molti. (per esempio devo aggiungere delle somme per uno steso
individuo, la cui anagrafica si trova nella tabella lato 1).
Non sapendo come fare, ho realizzato una query che richiamando il dato
interessato dalla tabella lato 1 , mi permetta di inerire i dati della
tabella lato molti.
Richiamando la query questa, mi consente di inserire i dati lato 1 , (che
tra l’altro rimangono gli stessi) ma cosa strana non mi permette di inserire
i dati proprio nella tabella lato molti; pur posizionandosi il cursore nel
campo, digitando sulla tastiera nulla accade. Non capisco perché non si
scriva e sopratutto dove sbaglio.
Grazie per l’aiuto
ciao
vito
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Inserimento dati:problema.

text:

Probabilmente hai creato una query di sola lettura
Senza avere maggiori dettagli è difficile aiutarti
parti con la descrizione delle tabelle e poi della query
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Inserimento dati:problema.

author: vito

text:

ti ringrazio per la risposta.
Il Db ha due tabelle: quella lato1 presenta l'anagrafica di una persona
(quindi nome, indirizzo, codice fiscale ecc.); quella lato molti, invece
reca alcuni campi tipo: somma erogata, data di emissione, numero emissione.
In sostanza trattasi di contributi erogate a persone, per cui una persona
può avere più contributi.
Ho realizzato una maschera con sottomaschera per l'inserimento dei dati; per
cui a TIZIO viene erogato una certa somma, con una data e un numero.
Poi inserisco un'altra persona.
Ora se a TIZIO che ho già inserito, volessi aggiungere una nuova somma
erogata devo avere la possibilità di richiamare lo stesso e aggiungergli la
nuova somma.
Quindi ho realizzato la query semplice: ho inserito il codice fiscale
dell'interessato (dalla tabella lato 1 che reca l'anagrafica) , e poi tuti
gli altri campi della tabella lato molti (sommaerogata, data e numero). Però
quando mi posiziono in uno di questi campi con l'intento di inserire nuovi
valori (cioè nuova somma, data e numero) nei rispettivi campi non si scrive
nulla.
Probabilmente credo che non sia questa la coretta procedura per procedere in
modo che allo stesso individuo si possano aggiungere volta per volta nuovi
valori nella tabella lato molti.
Ma non conosco altre soluzioni.
Spero sia stato più chiaro.
Ti ringrazio comunque.
ciao



title: Inserimento dati:problema.

text:

No la procedura è corretta ma non hai detto come hai fatto le relazioni
la tabella con i pagamenti come viene legata alla tabella angrafica?
Con quale campo
come li hai relazionati uno a molti?
Codice fiscale è indicizzato che non ammette duplicati?



title: Inserimento dati:problema.

text:

Ciao,
ho inserito nella tabella pagamenti la chiave esterna (numerica intero
lungo) e relazionata con l'ID contatore della tabella anagrafica (che è
anche chiave primaria); in questa tabella il codice fiscale è rimasto
indicizzato duplicati ammessi ma per puro errore mio perchè devo modificarla
con duplicati non ammessi.
Così ho lato 1 la tabella anagrafica e lato molti la tabella pagamenti.
Ti ringrazio ancora



title: Inserimento dati:problema.

text:
"Vito" <
bavio...@libero.it
> ha scritto nel messaggio news:217Z59Z200Z58Y1...@usenet.libero.it...
> Ciao,
> ho inserito nella tabella pagamenti la chiave esterna (numerica intero
> lungo) e relazionata con l'ID contatore della tabella anagrafica (che è
> anche chiave primaria); in questa tabella il codice fiscale è rimasto
> indicizzato duplicati ammessi ma per puro errore mio perchè devo modificarla
> con duplicati non ammessi.
> Così ho lato 1 la tabella anagrafica e lato molti la tabella pagamenti.
> Ti ringrazio ancora
> ciao
Nella creazione della sottomaschera hai seguito i passi indicati nella procedura guidata? In particolare, hai indicato i campi
Master/Secondari, da mettere in relazione nelle proprietà della sottomaschera?
Ciao.
--
Sergio MAZZA


title: Inserimento dati:problema.

text:

Si, nella procedura guidata per la creazione della sottomaschera ho indicato
i campi della tabella principale e quelli della secondaria.
Veramente non capisco dove sbaglio perchè i dati nella tabella principale
posso scriverli non invece quelli della tabella secondaria.
Non saprei come risolvere....
grazie comunque



title: Inserimento dati:problema.

text:
"Vito" <
bavio...@libero.it
> ha scritto nel messaggio
news:82Z53Z14Z120Y1...@usenet.libero.it...
>
>
> Si, nella procedura guidata per la creazione della sottomaschera ho
> indicato
> i campi della tabella principale e quelli della secondaria.
> Veramente non capisco dove sbaglio perchè i dati nella tabella principale
> posso scriverli non invece quelli della tabella secondaria.
> Non saprei come risolvere....
> grazie comunque
> ciao
Uan moment pliss.
Non puoi inserire dati/record nella sottomaschera se prima non hai inserito
(e salvato) almeno il record "padre" nella maschera principale.
E' questo che vuoi dire?
Ciao.
--
Sergio MAZZA


title: Inserimento dati:problema.

text:
Sergio MAZZA wrote:
> Uan moment pliss.
Sei un poliglotta...



title: Inserimento dati:problema.

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:eaa0tf$o0k$1...@area.cu.mi.it...
>
> Sei un poliglotta...
Si vede che ho studiato eh?
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
> Cisa - Conferenza Italiana per Sviluppatori Access
> Info:
www.donkarl.com/it
Ciao.
--
Sergio MAZZA


title: Inserimento dati:problema.

text:

E' qui il problema.
Infatti i dati nella tabella padre già ci sono e salvati per giunta.
Infatti devo solo aggiornare o meglio aggiungere dati solo nella
sottomaschera.
Mi spiego. Nella tabella padre c'è il nome di un tizio; nella sottomaschera
la somma che gli ho dato;
mettiamo che gli devo un'altra somma questa la devo inserire nella
sottomaschera ovvero nella tabella figlia. I dati della tabella padre
rimangono sempre quelli.
Ci stò perdendo la testa.....



title: Inserimento dati:problema.

text:
"vito" <
bavio...@libero.it
> ha scritto nel messaggio news:82Z61Z14Z104Y1...@usenet.libero.it...
>
> E' qui il problema.
> Infatti i dati nella tabella padre già ci sono e salvati per giunta.
> Infatti devo solo aggiornare o meglio aggiungere dati solo nella
> sottomaschera.
> Mi spiego. Nella tabella padre c'è il nome di un tizio; nella sottomaschera
> la somma che gli ho dato;
> mettiamo che gli devo un'altra somma questa la devo inserire nella
> sottomaschera ovvero nella tabella figlia. I dati della tabella padre
> rimangono sempre quelli.
> Ci stò perdendo la testa.....
Rileggendo il tuo primo messaggio; togli la query alla sottomaschera e legala solo alla tabella Pagamenti e guarda che succede...
Ciao.
--
Sergio MAZZA


title: Inserimento dati:problema.

text:

Si adesso posso inserire i dati con la query legata solo alla tabella
pagamenti. Il problema comunque non è risolto. Infatti posso inserire i
dati, ma non sò di chi.Mi spiego; con la query richiamo i dati della tabella
pagamenti ed inserico i dati (la cifra da erogare) ma come faccio a sapere
che quella cifra la stò erogando a quella determinata persona ? Il dilemma
continua....
Grazie dell'aiuto comunque
ciao
