javier_007

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

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 -...

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...

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...

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...

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) &...

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...

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

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 <=...

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 =...