Problema cn un textbox - VB-MUNDO

macorrero82 · #1 (**permalink**) 05-11-2004, 11:01:56

Bueno una facil pa vosotros supongo, a ver si me podeis echar un cable.
Tengo un texbox en el ke guardo registros en una tabla de access y kiero hacer un pekeño control de errores de forma ke nose pueda introducir ningun registro vacio.

Hasta ahora he conseguido hacer ke salte un msgbox advirtiendo cuando se intenta introducir un registro vacio mediante el evento tex.Hasta ahi bien, el problema ke tengo eske si escribe algo y da al boton de guardar registro el msgbox tb sale.

A ver si me podeis decir un evento ke pueda capturar el texto antes de ke guarde el registro o aluna otra opcion.

Tb me gustaria saber si exite un evento ke me permita escribir el text,presionar enter y ke accione un boton determinado.

Muchas gracias

nonnato · #2 (**permalink**) 05-11-2004, 11:22:50

Vamos por partes:

Primero el codigo para al pulsar el enter del textbox que se active el boton

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Command1.Enabled = True
End If
End Sub

Ahora para controlar que no se guarden nulos.

Yo te recomendaria que al usuario lo dejaras "mariposear" por el formulario libremente. Pero cuando presione el boton para guardar, en su evento click antes de comenzar a guardar nada, compruebes si los textbox estan rellenados o no.

Por otro lado, debes controlar que no se manden vacios a la BD, pero creo que los campos de las tablas de la BD deberias permitir que se guarden vacios; esto es, dejar libremente a la BD, pero ser tu el que controle en la aplicacion q desarrollas que dejas null y que no.

macorrero82 · #3 (**permalink**) 05-11-2004, 11:47:54

Lo de controlar si esta rellenado el textbox ya lo hago mediante la proiedad "text" pero pami ke solo lo comprueba cuando va a guardar el registro, de ahi ke salte el msgbox.
Lo qno se es como comprobarlo antes de guardarlo xq hasta ahora escribes,das al boton de guardar, lo guarda y sale el mensaje ke kiero evitar en este caso.

Gracias por las aclaraciones de todas ormas y aupa Cantabria :P

J.M.Movilla · #4 (**permalink**) 05-11-2004, 12:06:47

Cita:

Empezado por macorrero82

Tengo un texbox en el ke guardo registros en una tabla de access y kiero hacer un pekeño control de errores de forma ke nose pueda introducir ningun registro vacio.
Hasta ahora he conseguido hacer ke salte un msgbox advirtiendo cuando se intenta introducir un registro vacio mediante el evento tex.

Es difícil entender dónde te genera el conflicto, porque no sé a qué evento te refieres con eso del evento tex. Por otra parte veo que eres nuevo en el foro y puede que te resulte extraño que yo te diga que con frecuencia hacemos referencia a lo bonito que es el idioma español, y que tenemos una seria obligación de mantenerlo limpio, por lo que a ti también te agradecería que evitases los apócopes que entiendo aceptables en un móvil para ahorrar gastos; pero que aquí cobramos exactamente igual por un mensaje corto que por uno largo... Y te agradeceré (te agradecemos todos) que cuides tus escritos, con lo que estoy seguro de que tú mismo terminarás agradeciéndolo.

Independientemente de lo referente al idioma, te decía que no entiendo bien tu problema, aunque me supongo que te esté creando conflictos el hecho de que tengas en la DB definido que no te admita campos con valor Nulo, y que los textboxes los tengas asociados a un recordset. En este caso no te quedará más remedio que introducir algún valor en la caja para no provocar el error. Yo estoy de acuerdo con nonnato, y te aconsejo que primero revises la configuración de la base de datos y definas los campos que puedan quedar vacíos o nulos (por ejemplo, el código postal, el teléfono... suponiendo que se trate de fichas personales). Luego te aconsejaría que no asocies los textboxes a la base de datos, porque te ata excesivamente a la hora de introducir datos, sobre todo al añadir registros nuevos, sino que inicialices los valores de cada textbox con espacios o date o cero, dependiendo del tipo que tenga que recoger, y luego tengas previsto un comando para GRABAR los datos introducidos. En el evento GRABAR_Clic es donde has de controlar que no te pase ningún campo vacío (si fuera preciso puedes sustituirlo por " ", un espacio, o bien devolver el SetFocus al textbox que no cumpla las condiciones para que pueda grabarse).

Vale, pues bienvenido al foro y suerte...

nonnato · #5 (**permalink**) 05-11-2004, 12:52:02

mira... creo que acabamos antes si haces un copy paste del evento click del boton de guardar en un post, asi todos sabremos bien a lo que te refieres y t aconsejaremos. Documenta un poco el codigo que copies a modo de hacerlo comprensible a todos.

dagoba77 · #6 (**permalink**) 05-11-2004, 20:59:26

Hola :

Saludos

Haber si he entendido

tu quieres evitar valores null en tu campò o registro?

bien existen dos formas muy faciles de hacer tal cosa sobre todo en acses

la primera es a nivl recordset ahi lo unico que tienes que hacer es con acsses abrir la tabla en vista diseño y poner el campo que deseas negar anulo como requerido cierras la tabla y listo si el ususario quiere agregar un registro en blanco salñta un error interceptable que ya manejaras como quieras (con un mensaje o o un beep olo que se te ocurra)

La segunada es a nivel formulario que es como aparentemente lo quieres hacer tu lo cual tambien es muy sencillo, puedes usar el evento validate o lostfocus segun la idea que tengas sobre tu proyecto en ambos caso el codigo seria sencillo

Código:

if text1.text = "" then

msgbox "pon halgo aqui¡¡¡¡¡"
text1.setfocus

else 

botonagregar.setfocus' esto solo si quieres ya agregar un nuevo registro si no que le de el foco al control que gustes

end if"

bueno hasta aqui bien ahora ¿como evitar que salte el mensaje si el usuario agrego algo y luego lo borro bueno nuevamente cosa de condiciones

Código:

ANTES DE LA CONDICION DE NULL PONES 


dim i as integer 

private sub text1_changue()

i = 1

private sub text1.text_lostfocus ()   o en el control siguiente en validate


if i = 1 then
  

condiciones de no null (klas de mas arriba)

end if
end sub

Asi el usuario puede navgar sin broncas y amenos que cambie algo no se mostrara el mensaje

Por cierto no olvides regresar i a 0 cuando agreges un nuevo registro para reiniciar la validacion

Ahora como mandar una tecla en especial algo asi como escape para ya cerrar el mensaje luego luego segun el caso sencillo

Código:

sendkeys " (vbescape)

auqnue esto no se si funcione ya que el enfoque estaria en el msgbox y no en el form , pero cosa de probar

Saludos (espero no haberte confundido mas) si quedan dudas pues preguntas

Bye

macorrero82 · #7 (**permalink**) 06-11-2004, 15:47:44

Gracias por sus ideas, he conseguido solucionar el problema. Al principio grababa en el registro y luego mediante un if comprobaba si el texbox estaba vacio en cuyo caso sacaba el mensaje.
Esto lo solucione simplemente añadiendo un else con el codigo correspondiente para grabar el registro dentro.

Se ke les parecera un fallo garrafal y b se que lo es pero yo es que soy novato en visual y no tengo las ideas muy claras.De todas formas muchas gracias por sus ideas, me han ayudado mucho.

Un saludo!!