Guardar me da error...

[erick185]

Hola amigos

Trabajo en una aplicación tipo bibliotecario, y le tengo un boton "Guardar", y al pincharlo me da este error:

"Error '3075' en tiempo de ejecución.

Error de sintaxis (falta un operador) en la expresión de consulta 'Título del CDRoom='Text1".

       Y en el Proyecto me destaca la primera línea de código?(con verde y negrita).Hace más de un mes que trato de sulucionar el problema, y como no pude hacerlo solicito ayuda a los maestros.

Código [Seleccionar] Expandir

Private Sub cmdBuscar_Click()
    'Se hará el conteo de los registros.
    Set Rs = Db.OpenRecordset("Select Count(*) As Conteo From CDRoom Where Titulo CDRoom= '" & txtTituloCDRoom.Text & "'")
       
       Select Case Rs!Conteo    'Dependiendo del número de Registros
                                   'se hará un procedimiento.
                 Case "0"        'En el caso de que no hayan registros, entonces...
                     MsgBox "No se encontró el Registro especificado", 48, "AVISO AL USUARIO"
    Set Rs = Nothing 'Con Esta insrucción vaciamos la variable Rs.
                     Exit Sub
                 Case "1"        'Si solo existe un registro se deshabilitaran los botones, para que navegar??.
                     frmInformeCDRoom.fraNavegador.Visible = False   'Hacemos invisible el FRAME que contiene los botones
                                                               'ya que existe sólo un Registro.
                          frmInformeCDRoom.lblInforme.Visible = True
                               frmInformeCDRoom.Shape1.Visible = True
                                   Set Rs = Nothing    'Con Esta insrucción vaciamos la variable Rs.
                     '
    Set Rs = Db.OpenRecordset("Select *From CDRoom Where Titulo CDRoom = '" & txtTituloCDRoom.Text & "'")
                 '
                 Case Else   'Quiere decir que hay mas de 1 registro entonces ahora si se va a operar loa anterior.
                     frmInformeCDRoom.fraNavegador.Visible = True
                          frmInformeCDRoom.cmdPrimero.Enabled = False
                     frmInformeCDRoom.cmdAnterior.Enabled = False
                 frmInformeCDRoom.lblRegistroII.Visible = True
               frmInformeCDRoom.lblCantidad.Visible = True
             frmInformeCDRoom.lblCantidad.Caption = Rs!Conteo
               frmInformeCDRoom.Shape1.Width = 1630
                 frmInformeCDRoom.Shape1.Visible = True
        Set Rs = Nothing   ''Con Esta insrucción vaciamos la variable Rs.
             

   Set Rs = Db.OpenRecordset("Select *From CDRoom Where Ttulo CDRoom = '" & txtTituloCDRoom.Text & "'")
        End Select
       
        Rs.MoveFirst    'El cursor se moverá al primer registro.
        With frmInformeCDRoom
             .txtTituloCDRoom.Text = Rs.Fields(1)
             .txtEstante.Text = Rs.Fields(5)
             .txtCasilla.Text = Rs.Fields(6)
             .txtValor.Text = Rs.Fields(2)
             .txtCalidad.Text = Rs.Fields(7)
             .txtRegistro.Text = Rs.Fields(0)
        End With
             frmBuscarCDRoom.Visible = False
             txtTituloCDRoom.Text = ""
             frmInformeCDRoom.Visible = True
             frmInformeCDRoom.Show
   

End Sub

   De antemano se los agradezco, ojalá se con una pequeña explicación para poder entender mejor.

                         Saludo a todos.

                               

[el_chente23]

Aparentemente el codigo esta correcto, no veo algun error, lo que puede estar provocando el error puede ser el nombre del campo de la tabla

Código [Seleccionar] Expandir

Select Count(*) As Conteo From CDRoom Where Titulo CDRoom= '" & txtTituloCDRoom.Text & "'"
porque no intentas cambiando el nombre a titulo_cdroom o titulocdroom o como quieras llamarlo, pero sin dejar espacio en blanco.

Saludos

[erick185]

gracias
pero ya encontre el problema, a simple vista, si el nombre de un campo tiene espacios debe ir entre corchetes [Titulo CDRom]

esto era, debe ir entre corchetes.


Gracias