Newsgroup: it.comp.appl.access
Titolo: Text Box - solo 255 caratteri?

Ciao a tutti ho un piccolo problemino.
Ho una form non legata ad una specifica tabella dove c'e' una text box.
In questa Text box l'utente inserisce un infinita' di dati anche 5/6000
caratteri.
A questo punto salvo il testo manualmente (via recordset) in un campo memo
di un DB esterno.
Fin qui tutto ok (cioe' il campo memo contiene tutto il testo)
Il problema sorge quando faccio l'inverso, mi spiego meglio, quando sempre
via recordset carico il testo e lo butto dentro alla textbox
(camponote=rst.fields(1))
Stranamente invece di inserirmi tutti il 5/6000 caratteri me ne inserisce
solo 255.
Cosa sbaglio?
Ciao a tutti

 ha scritto nel messaggio
news:8fbq85$s6f$1...@serv1.iunet.it...

in un campo textbox ci puoi far entrare al max 255 caratteri.
Non ho capito perchè non vuoi usare il memo
Bobbit

 Ciao a tutti
Strano, la textbox mi risulta che non abbia limiti!
Personalmente non ho mai avuto problemi di questo tipo.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


Perche' la maschera non e' collegata a nessuna tabella.
Mi spiego.
Se tu fai una form senza collegarla ad una tebella e ci vuoi mettere una
text box con caratteristiche memo come fai?
Io negli strumenti non ce l'ho

 Bobbit
Ciao RoDAgo


Ho controllato tutto, il campo nel DB e correttamente un campo Meno, pero'
quando io faccio textboxnote= rst.fields(1) (che e il campo memo) mi carica
255 caratteri che poi sono correttamente i prima 255.
Non so piu' dove sbattere la testa, qualche consigli?
Ciao alla prossima

 Non so piu' dove sbattere la testa, qualche consigli?
Ho deciso di provare.
Questo e' il codice che ho usato e ti assicuro che funziona
a meraviglia!!!
Private Sub Comando0_Click()
    Dim dbs As Database
    Dim rst As Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("FAQ")
    Me.Testo1 = rst.Fields(6)
    rst.Close
    Set dbs = Nothing
End Sub


 wrote in message
news:391A9D24...@paperino.libero.it...

Scusa se ti posto tutto il codice qui sotto ma da me ancora non funziona.
Il campo in oggetto e il "NOTE" ovvero rst.fields(39)
Il campo nel db esterno e' memo ( ho controllato)
Il codice qui sotto cerca 5 volte il codice in due diverse tabelle in 5
campi
Campo    Tabella
codice    articoli
barcode    articoli
codrif    articoli
codice    distbase
barcode    distbase
Se trova il codice in una delle prime tre mi spara l'anagrafica a video.
Nella form il campo note e' una normalisima textbox non collegata.
A mio parere e' tutto giusto, come il tuo codice di esempio pero' non
funziona.
Se riesci a trovarci qualcosa di sbagliato tu mi faresti una cortesia.
Ti ringrazio ancora per il tuo tempo.
Ciao alla prossima.
dim dbs as database
dim rst as recordset
Set dbs = OpenDatabase(path, , False)
domanda2 = "Digitare codice, barcode o codice fornitore dell'articolo che si
vuole cercare"
Domanda = ""
inizio:
i = 0
codtemp = InputBox(Domanda & domanda2, "Shop 2000", codtemp, 6000, 2250)
codtemp = TrdApo(codtemp)
If Nz(codtemp, "null") = "null" Or codtemp = "" Then beep: Exit Sub
ricercasql(1) = "Select distinct * from articoli where codice='" & codtemp &
"'"
ricercasql(2) = "Select distinct * from articoli where barcode='" & codtemp
& "'"
ricercasql(3) = "Select distinct * from articoli where codrif='" & codtemp &
"'"
ricercasql(4) = "Select distinct * from DISTINTA where CODICE='" & codtemp &
"'"
ricercasql(5) = "Select distinct * from DISTINTA where BARCODE='" & codtemp
& "'"
For i = 1 To 5
    Set rst = dbs.OpenRecordset(ricercasql(i))
    If rst.RecordCount > 1 Then
        Call svuotaarticolitemp
        Set dbs2 = CurrentDb
        Set rst2 = dbs2.OpenRecordset("Select all * from articolitemp")
        For x = 1 To rst.RecordCount
            rst2.AddNew
            For y = 1 To 41
            rst2.Fields(y) = UCase(rst.Fields(y))
            Next y
            rst.MoveNext
            rst2.Update
        Next x
        DoCmd.OpenForm "doppi", acNormal, , , , acDialog, Me.Name
        Exit Sub
    End If
    If rst.RecordCount = 1 Then
    If i = 4 Or i = 5 Then MsgBox "Il codice selezionato corrisponde ad una
Distinta Base." & vbCr _
        & vbCr & "Impossibile modificare i dati in questo contesto",
vbInformation + vbOKOnly, "Shop 2000": Exit Sub
    ID = rst.Fields(0)
    IDFORNITORE = rst.Fields(1)
    Codice = rst.Fields(2)
    Codice.Locked = True
    BARCODE = rst.Fields(3)
    CODRIF = rst.Fields(4)
    DESCRIZIONE = UCase(rst.Fields(5))
    DESCRIZIONE2 = UCase(rst.Fields(6))
    UNITA = rst.Fields(7)
    QUANTITACONF = Nz(rst.Fields(8), 0)
    PERIVA = rst.Fields(9)
    MARGINE = Nz(rst.Fields(10), 0)
    VENDITA = Nz(rst.Fields(11), 0)
    COSTO = Nz(rst.Fields(12), 0)
    LISTINO = Nz(rst.Fields(13), 0)
    VENDITAEURO = Nz(rst.Fields(14), 0)
    COSTOEURO = Nz(rst.Fields(15), 0)
    LISTINOEURO = Nz(rst.Fields(16), 0)
    FORNITORE = UCase(rst.Fields(17))
    SCONTO1 = Nz(rst.Fields(18), 0)
    SCONTO2 = Nz(rst.Fields(19), 0)
    SCONTO3 = Nz(rst.Fields(20), 0)
    SCONTO4 = Nz(rst.Fields(21), 0)
    SCONTO5 = Nz(rst.Fields(22), 0)
    CATEGORIA = rst.Fields(23)
    DISPONIBILITA = Nz(rst.Fields(24), 0)
    CARICHI = Nz(rst.Fields(25), 0)
    SCARICHI = Nz(rst.Fields(26), 0)
    DATAMODIFICA = rst.Fields(27)
    LIST = Nz(rst.Fields(28), 0)
    COST = Nz(rst.Fields(29), 0)
    VEND = Nz(rst.Fields(30), 0)
    LISTEURO = Nz(rst.Fields(31), 0)
    COSTEURO = Nz(rst.Fields(32), 0)
    VENDEURO = Nz(rst.Fields(33), 0)
    OUT = rst.Fields(34)
    If OUT = -1 Then
        selettoreout = 2
        Toggle193.ForeColor = RGB(255, 0, 0)
        Else
        Toggle193.ForeColor = RGB(0, 0, 0)
        selettoreout = 1
    End If
    DAMESE = Nz(rst.Fields(35), 0)
    AMESE = Nz(rst.Fields(36), 0)
    SCORTAMINIMA = Nz(rst.Fields(37), 0)
    ORDINEMINIMO = Nz(rst.Fields(38), 0)
    Me.Note = rst.Fields(39)
    ORDINATI = Nz(rst.Fields(40), 0)
    IMPEGNATI = Nz(rst.Fields(41), 0)
    ricfornitore = ""
    Richiamata = -1
    Modificata = 0
    Exit Sub
    End If
Next i
beep
Domanda = "CODICE NON TROVATO - "
GoTo inizio

 [cut] 
L'unica riga che conta e' questa
   Me.Note = rst.Fields(39)
e qui c'e' poco da controllare!
Purtroppo non vedo spiegazioni al problema.
Hai provato a creare un'altra form e a ripetere
l'operazione solo con le poche righe di codice?
Private Sub Comando0_Click()
  Dim dbs As Database
  Dim rst As Recordset
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("articoli")
  Me.Note = rst.Fields(39)
  rst.Close
  Set dbs = Nothing
End Sub
C'e' lo stesso problema?
P.S.
Sei proprio sicuro che il testo non c'e'?
Con il cursore hai raggiunto la fine del testo?
Hai abilitato la barra di scorrimento verticale?
Non ti offendere se ti faccio queste domande, ti assicuro
che e' gia' successo di uno che diceva la tua stessa cosa e
poi si e' scoperto che contava solo i caratteri visibili!


 --------------------------------------
Trovato il bandolo della matassa!!!!!!
Se guardi sul post precedente nel mio codice le stringhe SQL erano:
"Select distinct * from articoli where codice='" & codtemp & "'"
e sta' qui l'errore o il baco di access.
Mi spiego meglio.
Con la stringa su citata non funziona, se invece metti:
"Select all * from articoli where codice="' & codtemp & "'"
tutto funziona.
Secondo te e giusto che con select distinct peschi 255 car. e con select all
tutti i 65000 dei campi memo e abbiamo scoperto un baco di access?.
Attendo una tua risposta.
Ciao alla prossima

 Ciao alla prossima
E' vero, in una query a valori univoci (DISTINCT) non puoi
includere campi memo, perche' naturalmente non puoi fare un
confronto tra di loro.
Il 'trucco' sta nel trimmarlo, cioe' devi includerlo cosi':
Trim$([campoMemo]).
Pero' quello che non capisco, e perche' non viene generato
l'errore quando crei il recordset, mha!
P.S.
Onestamente non ho guardato attentamente il tuo codice, ma
spero tu conosca bene la differenza tra i predicati ALL,
DISTINCT, DISTINCTROW.
Bye
