VISUAL BASIC 6.0
Cerrado
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
-
5 ene 2014 a las 21:38
Esteffy nena - 6 ene 2014 a las 15:26
Esteffy nena - 6 ene 2014 a las 15:26
Consulta también:
- VISUAL BASIC 6.0
- Pc futbol 6.0 - Programas - Simulación
- Error del sistema &h8000ffff visual basic - Guide
- Visual foxpro - Guide
- Mecanet basic - Programas - Educación
- Cheats pokemon rojo fuego visual boy advance - Guide
11 respuestas
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:40
5 ene 2014 a las 21:40
'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
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
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:41
5 ene 2014 a las 21:41
'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
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
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:42
5 ene 2014 a las 21:42
'NUEVO
Private Sub Button_NUEVO_Click()
TEXT_CEDULA = ""
TEXT_VENDEDOR = ""
TEXT_TELEFONO = ""
TEXT_DIRECCION = ""
TEXT_ESTADO = ""
TEXT_ACTIVO = ""
End Sub
Private Sub Button_NUEVO_Click()
TEXT_CEDULA = ""
TEXT_VENDEDOR = ""
TEXT_TELEFONO = ""
TEXT_DIRECCION = ""
TEXT_ESTADO = ""
TEXT_ACTIVO = ""
End Sub
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:43
5 ene 2014 a las 21:43
'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
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
¿No encontraste la respuesta que buscabas?
Haz una pregunta
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:44
5 ene 2014 a las 21:44
'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
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
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:44
5 ene 2014 a las 21:44
'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
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
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
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
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
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
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
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
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
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
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
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