Newsgroup: it.comp.appl.access
Titolo: casella Combo e codice fiscale, non accetta apostrofo

salve
mi sono accorto, avendo un db anagrafico, ed un controllo in una Form in 
cui si
inserisce il comune di residenza con completamento automatico durante la 
digitazione
per il calcolo del codice fiscale che digitando dei comuni con apostrofo 
mi procura errore:
esempio: digitando Sant'Ambrogio all'apostrofo mi procura errore...
sono convinto che il problema è parte di questo codice....
 Private Sub Form_Current()
Me.txtProvincia = Nz(DLookup("COMU_PROV", "Comuni", "COMU_DESCR=" & """" 
& Me.TxTComune & """"), "")
Me.txtCodiceComune = Nz(DLookup("COMU_COD", "Comuni", "COMU_DESCR=" & 
"""" & Me.TxTComune & """"), "")
Me.txtProvinciaRes = Nz(Me.TxtComResidenza.Column(1), "")
Me.txtCodiceComuneRes = Nz(Me.TxtComResidenza.Column(2), "")
End Sub
ciao e grazie per l'aiuto 


o usi il replace o sostituisci l'apostrofo con il chr(34)
"COMU_DESCR=" & chr(34) & Me.TxTComune & chr(34)
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 ciao e grazie per l'aiuto
o usi il replace o sostituisci l'apostrofo con il chr(34)
"COMU_DESCR=" & chr(34) & Me.TxTComune & chr(34)
------------------
ciao Ma... fatto quanto da te descritto (forse male) ma mi procura lo 
stesso
errore... l'errore consiste che quando arrivo a digitare l'apostrofo mi 
compare la finestrella
che dice "comune non in elenco" ma il comune esiste in elenco...
ecco la modifica: è esatta ???
COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)), "")
COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)), "")
ciao 

 ciao


"MA"
Yuuuuu, huuuuuu?
Hai testato quella faccenda (che interessa tutti) ed eventualmente segnalato
sul blog di Access il problema che "affliggerebbe" il Runtime 2007 SP1?
La lentezza *random* delle SubForms dipende dal gran volume di dati o da
particolarità della tua applicazione?
Ciao: Oscar


sì
mi ha non-rispossto Covinton
It is hard to tell what might be causing the problem. Your best bet would be to call support and have them help narrow things down.
 
http://support.microsoft.com/kb/936982
 
This is the type of issue we would likely try to fix but the request has to come through the support channels.
 
Clint
 
-----Original Message-----
From: 
mas...@massimilianoamendola.it
 [mailto:
mas...@massimilianoamendola.it
]
Sent: Wednesday, April 09, 2008 3:48 AM
To: Access Bloggers
Subject: (Access Team Blog) : Low perfomances of subforms
Importance: High
 
 
Dear mr. Convinton,
in an application in LAN with a Back End of 300MB and 15 users, the  ambient is mixed among Access 2003, runtime Xp, runtime 2007 SP1.
Unfortunately the runtime (eng first and ita version after) gives very bad perfomances in navigation of the subform. This problem happens scrolling the records and the fields of the same record.
Is there any solution?
Tks
MAssimiliano


"MA" <
sě
mi ha non-rispossto Covinton
-----------------------------------------------
Ben fatto comunque!  ;-)
Una cosa m'era sfuggita: il problema si verifica solo in ambiente "misto"?
Ovvero, se gli utenti utilizzassero solo Access 2007 Runtime, il degrado si
verifica o no?
Ciao: Oscar

 sì

Questo non l'ho testato anche perchè non ne vedo il senso


 COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)), "")
 "COMU_DESCR=" & chr(34) & Me.TxTComune & chr(34)
Guarda le doppie virgolette, sono uguali?
-----------
perdona la mia incapacità... se ti riferisci alle doppie virgolette 
finali
le ho tolte, ma il codice si colora di rosso quindi mi da errore...
ho copiato pari-pari la tua stringa di sopra e fa lo stesso..
dove procura l'errore ??
Ciao
"COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)
-- 


 Ciao: Oscar
Questo non l'ho testato anche perchè non ne vedo il senso
--------------------------------------------------
??
Spero tu stia scherzando: io, al contrario, non vedo il senso in
quell'insalata mista di versioni di Access.
A maggior ragione se il Runtime 2007 è free ... distribuisci quello e basta.
Le rogne te le stai cercando...
Ciao: Oscar

> COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)), "")
 COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34) &")
-- 
Ciao
Geppo

"geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:NNqMj.56969$FR.2...@twister1.libero.it...

Ciao Geppo... provato come sopra ma non va... mi segna queste 2 righe di 
rosso...
vi sono altre soluzioni ???
Me.txtProvincia = Nz(DLookup("COMU_PROV", "Comuni", "COMU_DESCR=" & 
Chr(34) & Me.TxTComune & Chr(34)&")
Me.txtCodiceComune = Nz(DLookup("COMU_COD", "Comuni", "COMU_DESCR=" & 
Chr(34) & Me.TxTComune & Chr(34)&")
Ciao

 Ciao
-- 
Ciao
Geppo 

> Chr(34) & Me.TxTComune & Chr(34)&")
-----------
penso tu ti riferisca in questo modo:
"COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)&"))
mi dà sempre errore dice che manca separatore di elenco...
mi editi tu le stringhe ??? grazie
"COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)&")
"COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)&")
Giuseppe 

 "COMU_DESCR=" & Chr(34) & Me.TxTComune & Chr(34)&"))
Me.txtProvincia = Nz(DLookup("COMU_PROV", "Comuni", "COMU_DESCR=" & Chr(34) 
& Me.TxTComune & Chr(34) & ""))
Me.txtCodiceComune = Nz(DLookup("COMU_COD", "Comuni", "COMU_DESCR=" & 
Chr(34) & Me.TxTComune & Chr(34) & ""))
-- 
Ciao
Geppo 

 Chr(34) & Me.TxTComune & Chr(34) & ""))
---------------
ti ringrazio dell'aiuto Geppo... provato quanto sopra... il codice non 
mi procura errore
ma purtroppo il problema originale permane ossia quando in maschera vado 
ad inserire un Comune con l'apostrofo mi esce la finestrella di errore 
che recita "comune non in elenco".
pazienza... forse non si può fare..
Ciao 

 Ciao
-- 
Ciao
Geppo 

 su modifica:
Private Sub txtComune_Change()
    Dim S As String
    Dim T As String
    Dim Colore As Long
    On Error GoTo ErrFas
    Colore = 0
    T = Trim(Nz(Me.TxTComune.Text, ""))
    If T = "" Then
        Me.TxTComune.Tag = T
        Exit Sub
    End If
    If Len(T) = 1 Then S = T
    COMUNI.Seek ">=", T
    If Not COMUNI.EOF And Not COMUNI.NoMatch Then
      If UCase(T) = UCase(Mid(COMUNI!COMU_DESCR, 1, Len(T))) Then
        If Len(T) > Len(Me.TxTComune.Tag) Then
            Me.TxTComune = COMUNI!COMU_DESCR
            Me.TxTComune.SelStart = Len(T)
            Me.TxTComune.SelLength = Len(Me.TxTComune) - (Len(T))
            Me.txtProvincia = COMUNI!COMU_PROV
            Me.txtCodiceComune = COMUNI!COMU_COD
        End If
      Else
        If Me.TxTComune.ForeColor = 0 Then MsgBox "Comune non in elenco"
        Colore = &H80&
        Me.txtProvincia = ""
        Me.txtCodiceComune = ""
        Me.TxTComune.SetFocus
      End If
    End If
    If Me.TxTComune.ForeColor <> Colore Then Me.TxTComune.ForeColor = 
Colore
    Me.TxTComune.Tag = T
Exit Sub
ErrFas:
    MsgBox ("FasMsg: " & Err.Number & " " & Err.Description)
    Err.Clear
End Sub
---------------
Ciao ed ancora grazie


    T = Trim(Nz(Chr(34) & Me.txtComune.Text & Chr(34), ""))

-- 
Ciao
Geppo 

    T = Trim(Nz(Chr(34) & Me.txtComune.Text & Chr(34), ""))
---------------->
Ciao Geppo... mi pare che la stringa da modificare era solo questa.. 
giusto..??
cmq ho fatto la prova e la cosa peggiora nel senso che ora appena digito 
un tasto sulla
tastiera, ossia una lettera qualsiasi, mi dice sempre "comune non in 
elenco"...
Ciao


Se puoi mettere a disposizione una copia del DB, forse diventa più facile 
darti una mano.
-- 
Ciao
Geppo 


----------
ne sarei felicissimo... vi sono 1600 record.. lo svuoto e te lo mando.
mi dai l'indirizzo email valido ??
grazie e ciao
Giuseppe 


p i e t r o 1 9 9 chiocciola i n t e r f r e e . i t
senza spazi
-- 
Ciao
Geppo 


Ti ho rinviato il db.
-- 
Ciao
Geppo