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

tecnikal respondió: Si insertas en el informe un campo de texto con origen de datos el campo Verdadero/Falso, aparecerá un 0 cuando sea Falso y -1 cuando sea verdadero. Si quieres que sea 1, puedes poner en el origen de datos: =siinm([campo];true;1;0) Esto devolverá 1...

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

Que yo sepa no conozco software que haga algo así y si existiese entonces ya habrían protegido los CDs de juegos y la música que pierde mucho dinero por la piratería. Pero lo que te podría recomendar sería que hicieras un programa como un visor de...

Por supuesto que se puede hacer esto... Mira este ejemplo que he creado, la función creaobjeto de seguro te ayudará en tu proyecto... Crea un nuevo proyecto agrega estos objetos: Botón - >Command1 Label -> nombre "Label1" Textbox -> nombre "Text1"....

¿Tu problema es que el contador no avanza? Según lo que vi es que cada vez que inicias la función dibdado inicializas la variable "cont" por ende toma el valor de 0 y después más abajo pones: cont=cont+1 Entonces cont siempre va a tomar el valor de 1...