Respuesta
en
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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
Visual Basic
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 =...