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