javier_007

javier_007

 8.750 puntos  Chile @javier_007 desde - visto

Preguntas y respuestas en Visual Basic

Respuesta en a

Como... Sub Worksheet_Change(Byval Target as Range)

Tenemos: Private Sub Worksheet_Change(ByVal Target As Range) Dim Fila As String dim Columna as string Dim Valor as string Fila= Target.row columna = Target.Column valor=target End Sub
Respuesta en a

Problemita

La lógica es así: -te conectas a a la BD - Ejecutas el sql (ej: "Select * from Usuario") - Llenas el listview o combo box - Te desconectas de la BD - En la aplicación al seleccionar un item - Y en el evento CLICK del list : - Te conectas a la BD -...
Respuesta en a

Generar código para registro de libros

Xxxxx-xxx-001-004 Xxxxx-xxx-005-009 Xxxxx-xxx-010-016 xxxxx-xxx-017-¿025? Aqui haces el ingreso de los 5 lilbros: Xxxxx-xxx-001-005 Xxxxx-xxx-001-006 Xxxxx-xxx-001-007 Xxxxx-xxx-001-008 Xxxxx-xxx-001-009 No veo que se te repitan los códigos, lo que...
Respuesta en a

Ayuda urgente con textbox

Copia y pega un textbox te va a preguntar si deseas deseas crear un array del control, eso quiere decir que creas una matriz de controles. Entonces le das que si.. así pega tus 250 text box que también los puedes crear en tiempo de ejecución así te...
Respuesta en a

Condicionar textbox dependiendo del dato de textb.

if textbx1.text="F" then textbox2.enable=true '<------- textbox2 activado textbox3.enable=false '<------- textbox3 desactivado end if con la propiedad enable los activas y desactivas los objetos, pero te recomiendo que para datos como "Masculino" o...
Respuesta en a

Pocos parámetros se esperaba 1

Esta mal hecha la consulta en SQL.. txt = "SELECT * " & _ "FROM AnimalesPropios " & _ "WHERE list1.listindex " y debería decir algo asi txt = "SELECT * " & _ "FROM AnimalesPropios " & _ "WHERE [NombreDelCamboDeBD]='" & List1.List(List1.ListIndex) &...
Respuesta en a

Condicionar tipos de datos en textbox.

En un formulario nuevo pega un botón y un textbox y pega este código Private Sub Command1_Click() If IsNumeric(Text1.Text) Then MsgBox "numero" If Not IsNumeric(Text1.Text) Then MsgBox "no numero" If IsDate(Text1.Text) Then MsgBox "fecha" If Not...
Respuesta en a

Recorrer listbox

Suponiendo que el listbox --> list1 y el textbox --> text1 por nombre: Dim I As Integer For I = 0 To List1.ListCount - 1 If List1.List(I) = Text1.Text Then MsgBox "Textbox esta en la posicion=" & I & " del listbox" Next
Respuesta en a

Cambiar color textbox dependiendo del dato

Crea un nuevo proyecto y agrega 2 textbox (nombres por defecto text1 y text2) Private Sub Text1_Change() If IsNumeric(Text1.Text) Then If Text1.Text <= 20 Then Text1.BackColor = vbRed Text2.Text = "Bajo peso" ElseIf Text1.Text > 20 And Text1.Text <=...
Respuesta en a

Necesito crear una ocx sencilla

Crea un nuevo proyecto de VB6: ->Selecciona "ActiveX Control" -> Luego pega 2 textbox y 1 botón Luego pega este código: Private Sub Command1_Click() Dim Sum As Integer If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then Sum =...