Economista

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Load Form1
Form1.Show
End Select
Select Case Button.Index
Case 2Load Form2
Form5.Show
End Select
Select Case Button.Index
Case 3
Load Form2
Form2.Show
End Select
Select Case Button.Index
Case 4
Load Form3
Form3.ShowEnd Select
Select Case Button.Index
Case 5
Load Form4
Form4.Show
End Select
End Sub (MDI)
Private Sub Command1_Click()
Dim i As Integer
'Le establecemos un valor parael máximo
Pro.Max = 30000

For i = 0 To Pro.Max

' Valor actual del Progressbar




Pro.Value = i

' Visualizamos elporcentaje en el Label
Label1 = CLng((Pro.Value * 100) / Pro.Max) & " %"


DoEvents

Next i

Form1.Show
End Sub(FORM4)

Private Sub Command1_Click()Set table = base.Execute("SELECT * FROM Producto")
If Not table.BOF Then
While Not table.EOF
lista.AddItem table!codigo & Chr(9) & UCase(table!nombre) & Chr(9) & table!precio &Chr(9) & table!cantidad
table.MoveNext
lista.TextMatrix(0, 0) = "CODIGO"
lista.TextMatrix(0, 1) = "NOMBRE"
lista.TextMatrix(0, 2) = "PRECIO"
lista.TextMatrix(0, 3) = "CANTIDAD"
Wend
ElseMsgBox "NO EXISTE PRODUCTO", vbInformation, "ADVERTENCIA"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Form5.Show
End Sub(FORM3)

PrivateSub cmdactualizar_Click()
base.Execute " update PRODUCTO set nombre = ' " & Txtnom & " ' , cantidad = " & Txtpre & " , precio = " & Txtcan & " where codigo = ' " & txtcod& " '"
MsgBox "good", vbInformation, "orden cumplida"
End Sub

Private Sub cmding_Click()
base.Execute "INSERT INTO PRODUCTO(codigo,nombre,cantidad,precio) VALUES (" & txtcod & ",'"...