Hola buenas a todos escribo este post a ver si alguien puede ayudarme ya que tengo un error y no se xq sucede.

Os comento como funciona el formulario:

tengo un formulario para crear mensajes en una base de datos en access, a la base de datos le paso un usuario, un mensaje y un tema de mensajes, el mensaje lo escribo yo a mano pero el usuario se lo paso de otro formulario, el tema lo eligo de un listbox en el cual aparecen los temas que tengo en mi base de datos, pues bien  hasta aqui bien si le doy a crear un tema me lo creo pero el problema es que hay temas que estan cerrados y otros no, los q estan cerrados me los detecta y no me deja escribir en ellos, pero los que no estan cerrados solo me deja crear un mensaje al salir y volver a entrar al escribir un mensaje en el mismo tema me salta una excepcion y no se xq sucede esto.

Alguien podria ayudarme x favor?!!

Muchas gracias, un saludo

pone un titulo descriptivo con la duda que tenes, sino se te puede borrar el post.

el error debe saltar en un linea del codigo, ¿ porque no vas linea por linea y te fijas donde salta el error. ?

Ahi esta el codigo que tengo para crear los mensajes, el error me los da al añadir un nuevo mensaje despues de esta parte del codigo es donde me salta a la excepcion que le puse en el try

Usuario.ProyectoDEGDataSet.Mensajes.AddMensajesRow(newmensaje)



CODIGO:


try

If String.IsNullOrEmpty(TextBoxMensaje.Text) Then
                MessageBox.Show("Debe escribir un mensaje para crear el mensaje")
            Else
                If Usuario.TemasTableAdapter.FillByTemaCerrado(Usuario.ProyectoDEGDataSet.Temas, Me.TextBoxPertenece.Text) Then


                    Dim newmensaje As ProyectoDEGDataSet.MensajesRow
                    newmensaje = Usuario.ProyectoDEGDataSet.Mensajes.NewMensajesRow
                    newmensaje.Id = Usuario.ProyectoDEGDataSet.Mensajes.IdColumn.AutoIncrement
                    newmensaje.Usuario = TextBoxUsuario.Text
                    newmensaje.Fecha_Creacion = fecha
                    newmensaje.Mensaje = TextBoxMensaje.Text
                    newmensaje.Pertenece = TextBoxPertenece.Text
                    Usuario.ProyectoDEGDataSet.Mensajes.AddMensajesRow(newmensaje)

                    Usuario.Validate()
                    Usuario.MensajesBindingSource.EndEdit()

                    Usuario.MensajesTableAdapter.Insert(TextBoxUsuario.Text, fecha, TextBoxMensaje.Text, TextBoxPertenece.Text)


                    MessageBox.Show("Mensaje creado con exito")
                    Me.Close()


                Else
                    MessageBox.Show("El tema seleccionado esta cerrado")
                End If


             End If


        Catch ex As Exception
            MessageBox.Show("Se ha producido un error")

        End Try



gracias x ayudar un saludo