Gracias Ha sido Gran Ayuda

Que Dios te bendiga hermano


 

Soy Nuevo en lo de vb6 vinculado con base de datos

pero quiera saber si me pueden ayudar  tengo 4 labels  cada label tiene su propio nombre que seria  matricula,nombre,apellido,carrera  y tengo un label que dice clave  ya la base de datos estan vinculado con vb6  cada label tiene su propio datafield.

 estoy haciendo algo como un registro de   estudiantes de nuevo ingreso

 mi pregunta es como le pongo una clave a cada estudiante cuando se registre quisiera que  la clave  cambia automaticamente  cada vez que se registra un nuevo estudiante

estaba pensando algo como un for pero como dije soy un poco nuevo en lo de vb6 y base de datos

mas o menos mi codigo es asi   me sale todo perfecto menos la clave  para cambiar la clave de dicho estudiante tengo que estar parando el programa y cambiar la clave en lblpass cada vez

Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = "4321"
End If
 
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
 
Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub
 
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
 
Private Sub Form_Load()
lblmensaje.Visible = False
End Sub
 
Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

Bueno te ayudo en algo

primero dibujas 3 labels y 3 textbox
 
ejemplo:
Nombre <---Label txtnombre <---- Textbox
Apellido           txtapellido
Edad                 txtedad
 
If txtnombre = "Andre" And txtapellido = "Silvo" And txtedad = "20" Then
lblpass = "Ramon"
 

Intenta con   Unload me


No entendi ni una palabra

Esto ase lo q qiero pero  al cerrar a y echecar en el Admi de Tar  el programa esta abierto en 2do plano

Esto hace lo que quiero pero al cerrar ("A") y no  entiendo lo que dice ahi

Estaba tratando  Asi Pero Todavia

Private Sub List1_Click()
For i = 0 To List1.ListCount - 1 Step 1
If List1.Selected(i) = True Then
Valor1 = List1.List(i) * val(List5.text)
End If
Next i
End Sub
 

tengo un listbox con   y otro lisbox con

listbox1(4,3,2,1) y listbox5(3,2) Estilo Checked

como yo Multiplico Los listbox
 

Private Sub List1_Click()
For i = 0 To List1.ListCount - 1 Step 1
If List1.Selected(i) = True Then
Valor1 = List1.List(i) * List5.List(i)
End If
Next i
End Sub
 

Solo Me Multplica 4 por 3  y no el dos



Alguien Me Puede Ayudar Por Favor!

Ya Esta Resuelto

Alguien Sabe Como Poner Notas En Select Case

Nota=me.combo2.text
Select Case Nota 
Case A
me.combo2.text="4"
 

Seria Algo Asi ?

Problema Resuelto


Informe=Todavia Me Salio A lo Primero Ahora No me quiere salir

 TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text
 
 Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text
 
TextPrecio = Format(Val(TextPrecio.Text), "Currency")
Form4.lblprecio = Form2.TextPrecio.Text
 
preciotext = Format(Val(preciotext.Text), "Currency")
Form4.lblprecio = Form2.preciotext.Text

Tengo Un Problemita Con Los Textbox
 
 tengo 3 textbox  con diferentes nombre

 TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

en el form4 me sale el precio pero si le agrego otro textbox no me sale
y asi sucesivamente

 TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text
 
Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text
 
 

Estaba Pensando en poner if y then a cada uno
 

if Precio = Format(Val(Precio.Text), "Currency") then
Form4.lblprecio = Form2.Precio.Text
 

mi pregunta es como hago para que  los que yo digito en los textbox's me salen en el form(4)

Form4.lbldinero = Form2.precio.Text
Form4.lblprecio = Form2.textprecio.Text
Form4.lblprecio = Form2.txtprecio.Text
 

solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4