VISUAL BASIC 6.0 Cerrado

Question

¿¿¿Creen que esta correcto para yo poder ingresar???

Private Sub BOTON_INGRESARMENU_Click()
Dim NOMBRE As String
Dim CI As String
Dim clave_sistema As String
Dim noencuentra As Boolean


CI = TEXT_CONTRASEÑA.Value


Sheets("EMPLEADOS").Select
noencuentra = False
noencuentra = IsError(Application.VLookup(CI, Sheets("EMPLEADOS").Range("B:g"), 2, False))
If noencuentra = True Then
    MsgBox ("clave incorrecta")
   
Else
    NOMBRE = Application.VLookup(CI, Sheets("EMPLEADOS").Range("B:g"), 2, False)


        If NOMBRE <> TEXT_USUARIO.Value Then
         MsgBox " usuario no registrado"
           
        Else
            OPCIONES.Show
                      
        End If
End If
 
End Sub

Estefyy nena · Answer

'CREAR
Private Sub BOTON_CREARP_Click()
Dim ultimafila As Double
Dim RUC As String
Dim PROVEDOR As String
Dim TELEFONOPROVEDOR As String
Dim DIRECCIONPROVEDOR As String
Dim ESTADOPOVEDOR As String
Call BOTON_BUSCARP_Click
If noencuentra = True Then
If RUC = "" Then
Sheets("PROVEEDORES").Select

ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
RUC = TEXT_RUC.Value
PROVEDOR = TEXT_PROVEEDOR.Value
TELEFONOPROVEDOR = TEXT_TELEFONOPROVEEDOR.Value
DIRECCIONPROVEDOR = TEXT_DIRECCIONPROVEEDOR.Value

Cells(ultimafila + 1, 1) = RUC
Cells(ultimafila + 1, 2) = PROVEDOR
Cells(ultimafila + 1, 3) = TELEFONOPROVEDOR
Cells(ultimafila + 1, 4) = DIRECCIONPROVEDOR
Cells(ultimafila + 1, 5) = ultimafila
MsgBox ("LA CUENTA PARA" & PROVEDOR & "HA SIDO CREADA")
Else
MsgBox ("Ese Proveedor ya existe")
End If
Else
MsgBox ("EL PROVEEDOR YA SE ENCUENTRA REGISTRADO")
End If

End Sub

Estefyy nena · Answer

'BUSCAR Private Sub Button_BUSCAR_Click() Dim noencuentra As Boolean Dim CI As String Dim VENDEDOR As String Dim TELEFONO As String Dim DIRECCION As String Dim ACTIVO As String Sheets("VENDEDORES").Select noencuentra = False noencuentrap = False CI = TEXT_CEDULA.Value If CI <> "" Then noencuentra = IsError(Application.VLookup(CI, Sheets("VENDEDORES").Range("a:e"), 2, False)) If noencuentra = True Then MsgBox ("CI NO REGISTRADO") Else VENDEDOR = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:e"), 2, False) TEXT_VENDEDOR = VENDEDOR TELEFONO = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:e"), 3, False) TEXT_TELEFONO = TELEFONO DIRECCION = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:e"), 4, False) TEXT_DIRECCION = DIRECCION ACTIVO = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:e"), 5, False) TEXT_ACTIVO = ACTIVO Button_MODIFICAR.Enabled = True 'ACTIVA EL BOTON MODIFICAR End If Else VENDEDOR = TEXT_VENDEDOR.Value If VENDEDOR <> "" Then noencuentrap = IsError(Application.VLookup(VENDEDOR, Sheets("VENDEDORES").Range("B:E"), 3, False)) If noencuentrap = True Then MsgBox (VENDEDOR & ": VENDEDOR NO REGISTRADO") Else VENDEDOR = Application.VLookup(VENDEDOR, Sheets("VENDEDORES").Range("B:E"), 2, False) TEXT_VENDEDOR = VENDEDOR TELEFONO = Application.VLookup(VENDEDOR, Sheets("VENDEDORES").Range("B:E"), 3, False) TEXT_TELEFONO = TELEFONO DIRECCION = Application.VLookup(VENDEDOR, Sheets("VENDEDORES").Range("B:E"), 4, False) TEXT_DIRECCION = DIRECCION ACTIVO = Application.VLookup(CI, Sheets("VENDEDORES").Range("B:E"), 5, False) TEXT_ACTIVO = ACTIVO End If Else MsgBox ("INGRESE CEDULA O NOMBRE DEL VENDEDOR") End If End If End Sub

Estefyy nena · Answer

'NUEVO
Private Sub Button_NUEVO_Click()
TEXT_CEDULA = ""
TEXT_VENDEDOR = ""
TEXT_TELEFONO = ""
TEXT_DIRECCION = ""
TEXT_ESTADO = ""
TEXT_ACTIVO = ""
End Sub

Estefyy nena · Answer

'MODIFICAR
Private Sub Button_MODIFICAR_Click()
Sheets("VENDEDORES").Select
Dim fila As Integer
CI = TEXT_CEDULA.Value
VENDEDOR = TEXT_VENDEDOR.Value
TELEFONO = TEXT_TELEFONO.Value
DIRECCION = TEXT_DIRECCION.Value
ACTIVO = TEXT_ACTIVO.Value
fila = Application.VLookup(CI, Sheets("VENDEDORES").Range("A:F"), 6, True)
Cells(fila + 1, 1) = CI
Cells(fila + 1, 2) = VENDEDOR
Cells(fila + 1, 3) = TELEFONO
Cells(fila + 1, 4) = DIRECCION
Cells(fila + 1, 5) = ACTIVO

MsgBox ("LA CUENTA PARA" & VENDEDOR & "HA SIDO MODIFICADA")
Button_MODIFICAR.Enabled = False 'DESACTIVA EL Button MODIFICAR
End Sub

Estefyy nena · Answer

'BLOQUEAR
Private Sub BOTON_BLOQUEAR_Click()
Dim bandera As Boolean
Call Button_BUSCAR_Click
Range("a2").Select
bandera = False
CI = TEXT_CEDULA.Value
Do While bandera = False
    If CI <> ActiveCell.Value Then
        ActiveCell.Offset(1, 0).Select
    Else
        MsgBox ("Esta cuenta será bloqueada")
        ActiveCell.Offset(0, 4).Value = "NO"
        MsgBox ("La cuenta de " + VENDEDOR + " ha sido bloqueada")
        bandera = True
    End If
Loop
Call Button_NUEVO_Click
End Sub

Estefyy nena · Answer

'ELIMINAR
Private Sub Button_ELIMINAR_Click()
Dim bandera As Boolean

Sheets("VENDEDORES").Select
CI = TEXT_CEDULA.Value
VENDEDOR = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:F"), 2, False)
TEXT_VENDEDOR = VENDEDOR
TELEFONO = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:F"), 3, False)
TEXT_TELEFONO = TELEFONO
DIRECCION = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:F"), 4, False)
TEXT_DIRECCION = DIRECCION
ACTIVO = Application.VLookup(CI, Sheets("VENDEDORES").Range("a:F"), 5, False)
TEXT_ACTIVO = ACTIVO
Range("a1").Select
bandera = False
Do While bandera = False
    If CI <> ActiveCell.Value Then
        ActiveCell.Offset(1, 0).Select
    Else
        MsgBox ("EL VENDEDOR HA SIDO ELIMINADO")
        ActiveCell.EntireRow.Delete
        bandera = True
    End If
Loop
Call Button_NUEVO_Click

End Sub

Esteffy nena · Answer

Private Sub cmd_aceptar_Click()

clave = Txt_clave.Value
'buscamos si el usuario esta registrado

Sheets("cuentas").Select 
noencuentra = False
usuario = Txt_usuario.Value
noencuentra = IsError(Application.VLookup(usuario, Sheets("cuentas").Range("b:d"), 2, False)) 'aplico buscarv
If noencuentra = True Then
    MsgBox ("usuario no registrado")
   
Else
    clave_sistema = Application.VLookup(usuario, Sheets("cuentas").Range("b:d"), 2, False) 'aplico buscarv
    activo = Application.VLookup(usuario, Sheets("cuentas").Range("b:d"), 3, False) ' aplico buscarv
    If activo = "NO" Then
        MsgBox ("Usuario inactivo")
    Else
        If clave_sistema = clave Then
            Frm_inicio_sistema.Show
        Else
            MsgBox ("clave incorrecta")
                      
        End If
    End If
 End If
 Txt_clave.Value = ""
 Txt_usuario = ""
End Sub

Esteffy nena · Answer

Private Sub btncalcular_Click()
vfecha = txtfecha.Value
hentrada = txthent
hsalida = txthsal
htrab = CDbl(CDate(hsalida) - CDate(hentrada)) * 24

diasemana = Weekday(vfecha, 2)
MsgBox "dia es: " & diasemana
MsgBox "horas trabajadas: " & htrab

End Sub

Esteffy nena · Answer

bloquear
Private Sub BOTON_BLOQUEAR_Click()
Dim bandera As Boolean
Call Button_BUSCAR_Click
Range("a2").Select
bandera = False
CI = TEXT_CEDULA.Value
Do While bandera = False
    If CI <> ActiveCell.Value Then
        ActiveCell.Offset(1, 0).Select
    Else
        MsgBox ("Esta cuenta será bloqueada")
        ActiveCell.Offset(0, 4).Value = "NO"
        MsgBox ("La cuenta de " + VENDEDOR + " ha sido bloqueada")
        bandera = True
    End If
Loop
Call Button_NUEVO_Click
End Sub

Esteffy nena · Answer

calcular
Private Sub BTN_CALCULAR_Click()

vfecha = TEXT_FECHA.Value
HORASENTRADA = TEXT_HENTRADA
HORASALIDA = TEXT_HSALIDA
htrab = CDbl(CDate(HORASALIDA) - CDate(HORASENTRADA)) * 24
diasemana = Weekday(vfecha, 2)

TEXT_DIA = diasemana
    If diasemana <= 5 Then
    HSUPLEMENTARIAS = CDbl(htrab - 8)
    Else
    HSUPLEMENTARIAS = 0
    End If
    If diasemana <= 5 Then
    HCOMPLEMENTARIAS = 0
    Else
    HCOMPLEMENTARIAS = htrab
     End If
TEXT_HTRABAJADAS = htrab
TEXT_HSUPLEMETARIAS = HSUPLEMENTARIAS
TEXT_HCOMPLEMENTARIAS = HCOMPLEMENTARIAS

End Sub

Esteffy nena · Answer

guardarn
Private Sub BTN_GUARDAR_Click()

Sheets("ASISTENCIA").Select

ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
vfecha = TEXT_FECHA
diasemana = TEXT_DIA.Value
EMPLEADO = TEXT_EMPLEADO.Value
HORASENTRADA = TEXT_HENTRADA.Value
HORASALIDA = TEXT_HSALIDA.Value
htrab = TEXT_HTRABAJADAS.Value
HSUPLEMENTARIAS = TEXT_HSUPLEMETARIAS
HCOMPLEMENTARIAS = TEXT_HCOMPLEMENTARIAS
Cells(ultimafila + 1, 2) = vfecha
Cells(ultimafila + 1, 3) = diasemana
Cells(ultimafila + 1, 4) = EMPLEADO
Cells(ultimafila + 1, 5) = HORASENTRADA
Cells(ultimafila + 1, 6) = HORASALIDA
Cells(ultimafila + 1, 7) = htrab
Cells(ultimafila + 1, 8) = HSUPLEMENTARIAS
Cells(ultimafila + 1, 9) = HCOMPLEMENTARIAS

MsgBox ("LA ASISTENCIA DE " & EMPLEADO & "HA SIDO REGISTRADA")

End Sub

VISUAL BASIC 6.0

11 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!