Códigos de programación
Hola preciosa, haber si me puedes ayudar, ya que soy nuevo en esto, y creo que tiene que ver con bases de datos.
El caso es que en form1 tengo un command1 y al lado text1.text y al lado de este text2.text y debajo de todo esto tengo otro commnad2 y al lado text3.text y al lado de este también text4.text. Y yo quiero que cuando yo ponga por ejemplo calculadora en text1.text al darle al command1 aparezca en text2.text una descripción que haya grabado yo. Y el text3.text sea para introducir otra cosa como por ejemplo bolígrafo y text4.text para introducir otra descripción y al darle al command2 que se quede grabado para cuando tenga que poner el nombre en el text1.text y al darle al command1 salga en el text2.text lo que grabe antes. ¿Me entiendes? Haber si me podrías enviar el código para hacer esto, te lo agradecería de todo corazón, por si quieres mi email es [email protected], saludos.
El caso es que en form1 tengo un command1 y al lado text1.text y al lado de este text2.text y debajo de todo esto tengo otro commnad2 y al lado text3.text y al lado de este también text4.text. Y yo quiero que cuando yo ponga por ejemplo calculadora en text1.text al darle al command1 aparezca en text2.text una descripción que haya grabado yo. Y el text3.text sea para introducir otra cosa como por ejemplo bolígrafo y text4.text para introducir otra descripción y al darle al command2 que se quede grabado para cuando tenga que poner el nombre en el text1.text y al darle al command1 salga en el text2.text lo que grabe antes. ¿Me entiendes? Haber si me podrías enviar el código para hacer esto, te lo agradecería de todo corazón, por si quieres mi email es [email protected], saludos.
1 respuesta
Respuesta
1
Espero que te valga lo que te mando. La parte de grabar dando al command2 no la he puesto porque no se que tipo de base de datos usas ni nada, pero el acceso a datos más fácil es a través de ADODB con Recordsets. Te pongo solo lo que haría al dar al command1 y aunque supongo que esto ya lo sabes hacer. Para poder ayudarte con lo otro necesitaría tener más datos...
****************************
Private Sub Command1_Click()
Select Case Text1.Text
Case "Boli"
Text2.Text = "Escritura permanente"
Case "Lapiz"
Text2.Text = "Escritura no permanente"
End Select
End Sub
****************************
****************************
Private Sub Command1_Click()
Select Case Text1.Text
Case "Boli"
Text2.Text = "Escritura permanente"
Case "Lapiz"
Text2.Text = "Escritura no permanente"
End Select
End Sub
****************************