Ayuda por favor error al crear dos mensajes seguidos.

[birdez]

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

[birdez]

si quereis puedo poner el codigo x si quereis ver lo que tengo, no pido que me deis el codigo si no que intenteis ayudarme.

Muchas gracias un saludo.

[seba123neo]

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. ?

[birdez]

ok intentare mirar linea a linea el codigo a ver si puedo solucionarlo xD

x favor si no te importa estate atento a si escribo algo en este post x si puedes ayudarme, muchas gracias x todo. un saludo.

[birdez]

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