Cómo dar nuevas claves a clientes en una aplicación de altas y bajas creada con Visual Basic

Antes que nada, estoy realizando una aplicación donde doy de bajas, altas modifica, y consultas. Pero a la hora de darles de alta introduzco una clave y si ya esta me dice que ya existe, y si no pues se guardan los datos en la tabla clientes ok, pero ese no es mi problema. El error es que si introduzco una clave nueva cons sus datos me salgo del formulario de altas y me voy por ejemplo al de consultas, modifica o elimina e introduzco por ejemplo la clave del cliente que acabo de introducir en la sección de altas y me dice que no existe y regreso al form de altas y quiero dar esa clave y me dice que si existe y vuelvo a regresar a los otros formulararios para volver a checar y me vuelve a decir el mismo msg. De que no existe cuando si existe porque si aparece en la tabla, a parte me salgo de la ejecución y vuelvo a ejecutarlo los formularios de consulta, modifica, elimina y ahora si ya me aparece el dato que no me aparecía no entiendo eso, y checo mi código y creo que esta bien porque desde luego que aparece después de que cierro y regreso a la aplicación y aparece es porque si. Pero no entiendo eso de que introduzco una nueva clave con sus respectivos datos y la quiero consultar, modificar o eliminar y no aparece y ya después de cerrar y abrir la aplicación de nuevo si aparece.
Espero y haya sido clara con mi problema y me lo puedan resolver, es urgente!

1 respuesta

Respuesta
¿Podrías mostrar el código que utilizas al insertar un nuevo registro y el que utilizas para consultarlo? Es que "a ciegas" es un poquito más dicífil adivinar de qué está enfermito tu proyecto.
Saludos desde México, Juan Pablo E.P.
Hola, gracias por responder.
Este es el código que utilizo para consultas:
Private Sub clave_KeyPress(KeyAscii As Integer)
Dim n As String
If KeyAscii = 13 Then
n = clave.Text
banamex1.Recordset.FindFirst "clave= '" & n & "'"
If banamex1.Recordset.NoMatch Then
MsgBox ("error no existe esta clave")
clave.Text = ""
clave.SetFocus
Else
nombre.Text = banamex1.Recordset.Fields("Nombre(s)")
paterno.Text = banamex1.Recordset.Fields("Apellido Paterno")
materno.Text = banamex1.Recordset.Fields("Apellido Materno")
razon.Text = banamex1.Recordset.Fields("Razon Social")
direccion.Text = banamex1.Recordset.Fields("Direccion")
calle.Text = banamex1.Recordset.Fields("Calle")
numero.Text = banamex1.Recordset.Fields("Numero")
municipio.Text = banamex1.Recordset.Fields("Municipio")
estado.Text = banamex1.Recordset.Fields("Estado")
pais.Text = banamex1.Recordset.Fields("Pais")
cp.Text = banamex1.Recordset.Fields("Codigo Postal")
email.Text = banamex1.Recordset.Fields("E-mail")
nc.Text = banamex1.Recordset.Fields("cuenta")
telefono.Text = banamex1.Recordset.Fields("Telefono")
sexo.Text = banamex1.Recordset.Fields("Sexo")
End If
End If
End Sub
este es el código que utilizo para insertar:
En este código las claves las inserto de acuerdo a un botón de comando de la lista de botones de comando es decir tengo una serie de claves el usuario solo da click para escoger una de ellas si ya esta en la tabla entonces muestra un msgbox diciendo que ya existe, son 10 las claves que pongo a disposición el usuario no las teclea solo da click en una de ellas
'a,b,c,...,j son los nombres de los comandos que contienen las claves
Private Sub a_Click()'boton de comando a
banamex1.Recordset.FindFirst "clave= '" & a.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = a.Caption  'se colocan en los textbox  correspondientes
    Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub b_Click()'boton de comando b
banamex1.Recordset.FindFirst ("clave= '" & "B-2017" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = b.Caption ' se colocan en los textbox  correspondientes
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub c_Click()
banamex1.Recordset.FindFirst ("clave= '" & "C-3019" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
    clave.Text = c.Caption
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
'c1,c2,c3,c4,.......,c10 son cuentas bancarias, por asi decir,  los coloque igual en botones de comando
Private Sub C1_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c1.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c1.Caption 'se colocan en los textbox  correspondientes
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c10_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c10.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c10.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c2_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c2.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c2.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c3_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c3.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c3.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c4_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c4.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c4.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c5_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c5.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c5.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c6_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c6.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c6.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c7_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c7.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c7.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c8_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c8.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c8.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub c9_Click()
banamex1.Recordset.FindFirst "cuenta= '" & c9.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta se encuentra libre")
     nc.Text = c9.Caption
    Else
   MsgBox ("ESTA CUENTA YA EXISTE")
   End If
End Sub
Private Sub d_Click()
'Call X("D-4021")
banamex1.Recordset.FindFirst ("clave= '" & "D-4021" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("libre")
     clave.Text = d.Caption
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub e_Click()
banamex1.Recordset.FindFirst ("clave= '" & "E-5023" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = e.Caption
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub f_Click()
banamex1.Recordset.FindFirst ("clave= '" & "F-6025" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = f.Caption
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub g_Click()
banamex1.Recordset.FindFirst ("clave= '" & "G-7027" & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
    clave.Text = g.Caption
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
 'momento en que se guardan todos datos incluyendo las claves y cuentas
Private Sub guardar_Click()
'Verifica si la caja de texto Nombre esta vacía.
If Len(Trim(nombre.Text)) = 0 Then
MsgBox ("Debe introducir el Nombre.")
nombre.SetFocus ' Hace que la caja reciba el enfoque.
'Verifica si la caja de texto Apellido esta vacía.
ElseIf Len(Trim(paterno.Text)) = 0 Then
MsgBox ("Debe introducir el Apellido materno.")
paterno.SetFocus ' Hace que la caja reciba el enfoque.
'Verifica si la caja de texto direccion esta vacía.
ElseIf Len(Trim(direccion.Text)) = 0 Then
MsgBox ("Debe introducir la direccion.")
direccion.SetFocus ' Hace que la caja reciba el enfoque.´
'Verifica si la caja de texto municipio esta vacía.
ElseIf Len(Trim(municipio.Text)) = 0 Then
MsgBox ("Debe introducir el municipio.")
municipio.SetFocus
'Verifica si la caja de texto estado esta vacía.
ElseIf Len(Trim(estado.Text)) = 0 Then
MsgBox ("Debe introducir el estado.")
estado.SetFocus ' Hace que la caja reciba el enfoque.
ElseIf Len(Trim(pais.Text)) = 0 Then
MsgBox ("Debe introducir el pais.")
pais.SetFocus ' Hace que la caja reciba el enfoque.
ElseIf Len(Trim(nc.Text)) = 0 Then
MsgBox ("Debe introducir un numero de cuenta bancaria.")
nc.SetFocus ' Hace que la caja reciba el enfoque.
Else
'Aquí se escribe la codificación para almacenar los datos en la Base de datos.
banamex1.Recordset.AddNew
banamex1.Recordset.Fields("clave") = clave
banamex1.Recordset.Fields("nombre(s)") = nombre
banamex1.Recordset.Fields("Apellido Paterno") = paterno
banamex1.Recordset.Fields("Apellido Materno") = materno
banamex1.Recordset.Fields("Razon Social") = razon
banamex1.Recordset.Fields("Direccion") = direccion
banamex1.Recordset.Fields("Calle") = calle
banamex1.Recordset.Fields("Numero") = numero
banamex1.Recordset.Fields("Municipio") = municipio
banamex1.Recordset.Fields("Estado") = estado
banamex1.Recordset.Fields("Pais") = pais
banamex1.Recordset.Fields("Telefono") = telefono
banamex1.Recordset.Fields("E-mail") = email
banamex1.Recordset.Fields("Codigo Postal") = cp
banamex1.Recordset.Fields("cuenta") = nc
banamex1.Recordset.Fields("inicial") = "0.0"
banamex1.Recordset.Fields("final") = "0.0"
If Len(Trim(sexo.Text)) = 0 Then
MsgBox ("Debe especificar el tipo de sexo")
sexo.SetFocus
Else
If LCase(sexo.Text) = LCase("Femenino") Then
banamex1.Recordset.Fields("sexo") = "FEMENINO"
End If
If LCase(sexo.Text) = LCase("Masculino") Then
banamex1.Recordset.Fields("sexo") = "MASCULINO"
End If
 banamex1.Recordset.Update
MsgBox ("El registro ha sido almacenado satisfactoriamente.")
'Limpiamos las cajas.
clave.Text = ""
nombre.Text = ""
paterno.Text = ""
materno.Text = ""
razon.Text = ""
direccion.Text = ""
calle.Text = ""
numero.Text = ""
municipio.Text = ""
estado.Text = ""
pais.Text = ""
telefono.Text = ""
email.Text = ""
cp.Text = ""
nc.Text = ""
End If
End If
End Sub
Private Sub nombre_CauseValidation()
'Verifica si la caja de texto esta vacía.
If Len(Trim(nombre.Text)) = 0 Then
MsgBox ("Debe introducir el Nombre.")
salir = True ' Hace que el enfoque NO pase a otro control.
End If
End Sub
Private Sub materno_CauseValidation()
'Verifica si la caja de texto esta vacía.
If Len(Trim(materno.Text)) = 0 Then
MsgBox ("Debe introducir el Apellido Materno.")
salir = True ' Hace que el enfoque NO pase a otro control.
End If
End Sub
Private Sub pais_CauseValidation()
'Verifica si la caja de texto esta vacía.
If Len(Trim(pais.Text)) = 0 Then
MsgBox ("Debe introducir el pais.")
salir = True ' Hace que el enfoque NO pase a otro control.
End If
End Sub
Private Sub paterno_CauseValidation()
'Verifica si la caja de texto esta vacía.
If Len(Trim(paterno.Text)) = 0 Then
MsgBox ("Debe introducir el Apellido Paterno.")
salir = True ' Hace que el enfoque NO pase a otro control.
End If
End Sub
Private Sub h_Click()
'Call X("H-8029")
banamex1.Recordset.FindFirst "clave= '" & h.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("libre")
     clave.Text = h.Caption
    Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub i_Click()
banamex1.Recordset.FindFirst "clave= '" & i.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = i.Caption
    Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub j_Click()
banamex1.Recordset.FindFirst "clave= '" & j.Caption & "'"
  If banamex1.Recordset.NoMatch Then
     MsgBox ("Esta clave se encuentra libre")
     clave.Text = j.Caption
    Else
   MsgBox ("YA EXISTE")
   End If
End Sub
Private Sub telefono_KeyPress(KeyAscii As Integer)
'Hace que cuando se pulse la tecla ENTER pase a la siguiente caja.
If KeyAscii = 13 Then SendKeys "{tab}"
'Define una máscara de entrada para Teléfonos.
MascaraBucarelly "telefono", "(___) ___ ____", KeyAscii, "NUMBER"
End Sub
Private Sub telefono_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'Bloquea la utilización de la tecla DELETE o SUPR.
If KeyCode = 46 Then KeyCode = 0
End Sub
Private Sub Form_Load()
'Hace que todas las máscaras de entrada se muestren al iniciar la aplicación.
telefono_KeyPress (0)
End Sub
Public Sub x(n As String)
 banamex1.Recordset.FindFirst ("clave del cliente= '" & n & "'")
  If banamex1.Recordset.NoMatch Then
     MsgBox ("libre")
     'banamex1.Recordset.Fields("clave") = n
       Else
   MsgBox ("YA EXISTE")
   End If
End Sub
http://e:e://eso es todo, pero como te digo, la insercion de datos lo hace bien y me manda los mensajes correspondientes, pero si me quiero salir de esa ventana y en el mismo momento,  voy ya sea a modificar,consultar o eliminar y tecleo la clave que almacene minutos antes me dice que no existe , regreso a checarlo a la ventana de altas y doy click sobre la clave que segun no existe  y me dice que si existe. salgo de la ejecucion del proyecto , y vuelvo a ejecutarlo y ahora si me aparece ya sea en consultas, modifica o elimina a veces que si existe en los tres formularios y hay veces  que solo en uno o dos de ellos existe, hay veces que en los tres y de plano cuando no existe. espero y haya sido clara con el codigo y la explicacion . la verdad es que a penas estoy aprendiendo a usar vb6 y no entiendo lo que pasa. ojala y me puedas ayudar.
Gracias de antemano
Es mucho código para revisarlo a fondo y por el momento no tengo mucho tiempo, sólo le he dado una mirada superficial y no he encontrado nada raro, es decir, lo veo bien, sin errores. Tal vez sólo se trate de realizar un "refresh" a los objetos que utilizas, creo que es un DATA o algo por el estilo, ¿no es así?, intenta hacer lo que te digo y me cuentas cómo te fue, si me queda tiempo lo checo a fondo en estos días.
Un dato importante: ¿Conoces el lenguaje SQL? Sería de gran utilidad comenzar a usarlo en tus proyectos, es mucho más sencillo que toda la maraña que tienes [con todo respeto].
Saludos desde México, Juan Pablo E.P.
No se nada del lenguaje sql, con mucho trabajo estoy entendiendo el vb y eso porque mi proyecto me lo piedieron en este programa... pero pues gracias por atender

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema: dar de alta un registro en vb 6

Que me surge en vb 6, utilizando una base de datos access 97. El código es el siguiente: Private Sub Command1_Click() If Text0 = "" Then MsgBox "El campo ID es el identificador del nuevo cliente, es obligatorio que complete con valores numericos...
1 respuesta

Datagrid

Me gustaría acceder a un dato concreto del datagrid, es decir, acceder a una fila y a una columna en concreto. ¿Cómo se hace?
1 respuesta

Menú en VB

Estoy preparando mi proyecto final de carrera y me ha surgido la siguiente duda! Quiero que a medida que se ejecuta mi programa de VB, me aparezca en un menú los archivos ( la ruta de estos archivos) a los que he ido accediendo anteriormente, para...
4 respuestas

Función Coincidir en Macros

Estoy realizando una macro y quiero que al momento que el usuario ingrese su código busque en una lista de códigos ingresadas por ejemplo en la columna "A" y valide que su código es correcto. He colocado la siguiente programación: Private Sub...
1 respuesta

Como posicionar un msgbox

En una macro dónde busco unas claves, al encontrar la clave saco un msgbox con una pregunta, pero los msgbos salen, en principio, en el centro de la pantalla, ¿Se pueden posicionar los msgbox? Y si se pueden ¿Cómo?
3 respuestas

Ayuda con Fucion if, else,end if me da error

Me sirvió de mucho, pero ahora tengo otro problema, mira tengo dos userforms que simulan cambiar una contraseña, el primero que me pida la contraseña guardada en una celda, este es el código del botón de aceptar del primero: Private Sub...
2 respuestas

Macro para validar cuenta bancaria en access

Necesito una macro o algo que al darle a un botón, me verifique la cuenta bancaria, da igual si tengo que meter los números en campos distintos o en uno solo meter los 20 dígitos (entidad, sucursul, dc y cuenta). He mirado en internet pero no...
1 respuesta

Duda sobre consulta a la base de datos

Pues aquí de nuevo con una pregunta, mira lo que pasa es que estoy haciendo una consulta con el siguiente código: PROPMT = "INTRODUZCA LA CLAVE DEL TRABAJDOR" searchstr = UCase(InputBox(PROPMT, "BUSQUEDA POR CLAVE")) Data1.Recordset.Index = "CLAVE"...
2 respuestas

¿Cómo sumar 2 label y 2 textbox,y mostrar suma en un 3er label?

Estoy haciendo un formulario en excel 2007, con un combobox que filtra, dos label que muestra datos del filtro, y dos text box, en la cual agrego o resto. Tanto en los dos labels como en los dos textbox se maneja con números. Cómo hacer que en un...
1 respuesta

Errores en programas creados con Visual Basic

Veo que estas conectado i necesito ayuda, urgente, por favor, ayer puse un post el cual n me pudieron contestar, i necesito pronta contextacion, se que n se pueden repetir post, por eso te lo escribo a ti personalmente para que me lo contestes, si...
1 respuesta