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