Mensajes

Hola,tengo dos dudas sobre esto,la primera es que estoy haciendo un joiner y quiero que cuando le den a juntar,el progressbar muestre el estado de la operacion,pero no me sale.
Lo otro es que el progressbar del vb es muy feo y he visto que algunos tienen distintos progressbar(ej:cactus joiner)de donde lo sacan?
Gracias y saludos.

Código [Seleccionar] Expandir

List1.RemoveItem List1.ListIndex
Saludos.

Ok,muchas gracias ya lo entendi.De verdad mil gracias me ayudaste mucho CeLaYa.
Saludos.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim bd As Database
Dim tb As Recordset

Set bd = Workspaces(0).OpenDatabase("C:\Documents and Settings\USER\Escritorio\bd1.mdb")
Set tb = bd.OpenRecordset("tabla1")


If tb!User = Text1.Text And tb!pass = Text2.Text Then
Unload Me
Form3.Show
Else
MsgBox ("Datos incorrectos")
tb.Close
bd.Close
Set tb = Nothing
Set bd = Nothing

End If


El otro code(el del registro del usuario)es el tuyo.
Gracias otra vez CeLaYa.

Hola,tu code me da error en la SQL,de todas formas el mio va,pero por ejemplo cuando en el primer form me registro y los datos se añaden,cuando voy al form2 que es donde login,los datos recien puestos no los reconoce,pero si cierro el programa y lo ejecuto luego si.Y yo quiero que nada mas registrarte hagas login sin necesidad de cerrar el programa.
Gracias y saludos.

Gracias CeLaYa,de todas formas encontré otra manera pero probaré la tuya.
Gracias y Saludos.

[EDITADO:]

Hola,lo siento,tengo otra duda,ahora como hago para comprobar que existe,si existe que por ejemplo vaya al siguiente form,esque se buscar y mostrar los datos pero no se como mirar si existen.
Gracias y saludos.

EDITADO:Perdon ya me salió,xD.Lo pongo por si otro tiene el mismo problema(si esta mal decidmelo):

Código [Seleccionar] Expandir

Dim bd As Database
Dim tb As Recordset

Set bd = Workspaces(0).OpenDatabase("C:\Documents and Settings\USER\Escritorio\bd1.mdb")
Set tb = bd.OpenRecordset("tabla1")

If tb!User = Text1.Text And tb!pass = Text2.Text Then
Form2.Hide
Form3.Show
Else
MsgBox ("Datos incorrectos")
End If

Ok,muchas gracias! me has ayudado mucho,de verdad gracias.
Por cierto esta todo perfecto excepto el Tb que debe ser declarado como Recordset.Funciona perfecto gracias otra vez.
Saludos.

Código [Seleccionar] Expandir

Private Sub Command1_Click()

Dim Operador As String
If Primeroperando.Text = "" Or Segundooperando.Text = "" Then
MsgBox ("Falta algún operando")
Exit Sub
End If
If Sumar.Value = True Then mostrarresultado.Caption = Val(Primeroperando.Text) + Val(Segundooperando.Text)
If Restar.Value = True Then mostrarresultado.Caption = Val(Primeroperando.Text) - Val(Segundooperando.Text)
If Multiplicar.Value = True Then
mostrarresultado.Caption = Val(Primeroperando.Text) * Val(Segundooperando.Text)
If Dividir.Value = True Then
If Val(Segundooperando.Text) = 0 Then
MsgBox ("No se puede dividir entre 0")
Else
mostrarresultado.Caption = Val(Primeroperando.Text) / Val(Segundooperando.Text)
End If

End If
End If
End Sub


Asi te funcionara,por cierto eso de If Primeroperando.text=0 or segundoperando.text=0 then
msgbox ("faltan numeros") esta mal,te refieres asi está vacio porque se puede multiplicar por 0 y sumar.

Si sobre base de datos pues se algunas cosas,el problema es que no se como añadir el contenido de un textbox(por ejemplo el user)a una base de datos(esto seria cuando uno se registra),leerlo si que se.
Otra cosa si tu me dices lo de guardarlo en un archivo cifrado,como seria?
Gracias y saludos.