leone

leone

Programacion ASP,PHP,VB6 - JavaScript,jQuery, SQL, PLSQL - Base de datos Oracle, MySql, SQLServer, Todo sobre Microsoft Excel, Electrónica
 23,6K puntos  Venezuela @leone desde - visto

Preguntas y respuestas en Visual Basic

Respuesta en a

Validación formulario vs bbdd

Los pasos 3 y 4 lo puedes solucionar mediante lo siguiente: Paso3. tsql = "SELECT count(1) as CANTIDAD from tabla where usuario = '" & vnombre & "' and password = '" & vpassword & "'" rs.Open tsql, conn, 1, 1 USR_V=rs.FIELDS("CANTIDAD").VALUE...
Respuesta en a

Formato dd/mm/yyyy en un textbox

Si tengo ese código ya hecho te lo envío para que lo pruebes, debes acomodarlo colocando el nombre del textbox utilizado. Private Sub Text18_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then...
Respuesta en a

Solo acepte números en un TextBox

Me parece que esta pregunta esta repetida, de todas formas te la vuelvo a enviar. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If Not...
Respuesta en a

Solo letras en textbox

Este seria para que solo acepte Letras: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or...
Respuesta en a

Solo números en un TextBox

Te envío el código que debes colocar en el evento KeyPress del Textbox de interés: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If Not...
Respuesta en a

Problemas con setfocus en excel

Utiliza la propiedad SetFocus de los cuadros de texto: Por Ejemplo: Text1. SetFocus Aparte puedes configurar en diseño el TabIndex de los objetos para que este se desplace ordenadamente sobre los cuadros de texto. Si no te funciona envía el código...
Respuesta en a

Ligar txtbox con celdas de excel

Utiliza los siguientes eventos de los objetos textbox: Private Sub TextBox1_Change() Range("B15").Select ActiveCell.FormulaR1C1 = TextBox1.Value End Sub Private Sub TextBox2_Change() Range("B16").Select ActiveCell.FormulaR1C1 = TextBox2.Value End Sub
Respuesta en a

Duda con combo y text

He visto el código que envías y al probarlo se detecta que existen unos espacios adicionales en tu SELECT al principio y al final del producto a buscar sustuituyelo por: r.Open "SELECT descripcion, precio FROM productos WHERE id_prod = '" &...

6 respuestas no visibles