Newsgroup: it.comp.appl.access
Titolo: INSERT INTO e campo MEMO

Ciao a tutti ho creato una query di inserimento solo che mi da un 
errore, da un attenta analisi della query non sono riuscito a trovare 
errori solo che se elimino il campo memo questa funziona
vi ripropongo la query
Dim sql As String
Dim codiceufficio As Integer
Dim denominazione As String
Dim piano As String
Dim pianta As String
Dim note As String
codiceufficio = Me.rif_codiceufficio
denominazione = Me.rif_descrizione
piano = Me.rif_piano
pianta = Me.rif_pianta
note = Me.rif_note
sql = "INSERT INTO uffici (codiceufficio,ufficio,Piano,Note,Pianta) 
VALUES ( '" & codiceufficio & " ','" & denominazione & " ','" & piano & 
" ','" & note & " ','" & pianta & " ');"
il campo memo è: "note"

 il campo memo č: "note"
Ciao,
Se il campo note contiene i doppi apici la tua stringa sql
non regge piu', la sintassi viene falsata. Idem se contiene
l'apostrofo o singolo apice.
Se e' il tuo caso prova a vedere, in base alla tua versione di access,
l'utilizzo di Replace(....) dove puoi convertire il carattere che da
fastidio
in uno piu' consono. Potresti ad esempio usare il doppio apice come
delimitatore di stringa, lo raddoppi per le variabili di testo e al limite
converti il doppio apice contenuto nei controlli della maschera in
doppio singolo apice.
sql = "INSERT INTO uffici (codiceufficio,ufficio,Piano,Note,Pianta)
sql=sql & "VALUES ( """ & codiceufficio & """,""" & denominazione & ""","""
& piano
sql=sql & """,""" & Replace(note,""","''") & """,""" & pianta & """)"
Spero di non aver fatto piu' confusione io di quanto
e' il tuo problema   :-)
--
Lorenzo

 vi ripropongo la query
[CUT]
Ciao Maurizio,
nel linguaggio SQL di Jet, il nome Note è riservato, quindi devi 
racchiuderlo tra parentesi quadre.
----
 sql = "INSERT INTO uffici (codiceufficio,ufficio,Piano,[Note],Pianta)
 VALUES ( " & codiceufficio & ",'" & denominazione & " ','" & piano &
 " ','" & note & " ','" & pianta & " ');"
----
inoltre, se non vuoi aver problemi con apici, formattazione delle date, 
importi con virgola ecc ecc
usa l'oggetto Command come da esempio
----
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim tue variabili ecc ecc
tuo codice
.....
.....
Set cn = CurrentProject.Connection
With cmd
 .Name = "InsertDati"
 .ActiveConnection = cn
 .CommandText = _
   "INSERT INTO uffici (codiceufficio,ufficio,Piano,[Note],Pianta) " & _
   "VALUES(?,?,?,?,?)"
End With
cn.InsertDati _
   codiceufficio , _
   ufficio, _
   Piano, _
   Note, _
   Pianta
Set cmd = Nothing
Set cn=Nothing
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP] 

giorgio rancati ha scritto:

Ciao a tutti
Come prevedeva Giorgio, ho risolto il primo problema, adesso se in note 
inserisco caratteri particolare (asterischi, apostofi, date ecce ecc) mi 
da un errore
Ho provato a seguire quanto suggerito da Giorgio ma l'errore permane, 
ora vi posto l'intero mio codice:
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim sql As String
Dim codiceufficio As Integer
Dim denominazione As String
Dim Piano As String
Dim Pianta As String
Dim Note As String
codiceufficio = Me.rif_codiceufficio
denominazione = Me.rif_descrizione
Piano = Me.rif_piano
Pianta = Me.rif_pianta
Note = Me.rif_note
sql = "INSERT INTO uffici (codiceufficio,ufficio,Piano,[Note],Pianta) 
VALUES ( '" & codiceufficio & " ','" & denominazione & " ','" & Piano & 
" ','" & Note & " ','" & Pianta & " ');"
Set cn = CurrentProject.Connection
With cmd
  .Name = "InsertDati"
  .ActiveConnection = cn
  .CommandText = _
     "INSERT INTO uffici (codiceufficio,ufficio,Piano,[Note],Pianta)" & _
     "VALUES(?,?,?,?,?)"
End With
cn.InsertDati _
    codiceufficio, _
    denominazione, _
    Piano, _
    Note, _
    Pianta
Set cmd = Nothing
Set cn = Nothing
On Error GoTo Err_Comando15_Click
         DoCmd.RunSQL sql
         Form_frm_master!contenitore!eleco_uffici.Requery
         DoCmd.Close
Exit_Comando15_Click:
     Exit Sub
Err_Comando15_Click:
     MsgBox Err.Description
     Resume Exit_Comando15_Click

"Maurizio" <*@.it> ha scritto nel messaggio 
news:44f04bac$0$35071$4faf...@reader4.news.tin.it...

A me sembra di vedere un miscuglio di codice tuo e di Giorgio...
Ciao.
-- 
Sergio MAZZA