condicionar textos
Publicado por jorge (5 intervenciones) el 29/04/2019 14:52:26
Buenas disculpe no se si me podran ayudar. Tengo dos formularios donde en un primer formulario realizo igualdades de datos de texto y numeros con la sentencia if endif, de los cuales se guardan en una base de datos, cuando ejecutó mi siguiente formulario llamo datos del primer formulario con claves foráneas de mi base de datos y quiero realizar otra igualdad de datos para guardarlos en mi base de datos, no llego a realizar dicha igualdad q son datos de texto, si coloco solo una igualdad con la premisa de Me.txt.tex ="" si me llega a realizar tan solo una igualdad, yo necesito hacer varias igualdades de texto pero no los puedo realizar pero si coloco Me.txt.tex ="" tan solo me realiza el primero o el último, necesito hacer varias comparaciones de texto, como lo realizo, gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub calcular()
Me.txt_demanda_velocidad.Text = "Autopista de Primera Clase"
Me.txt_orografia_velocidad.Text = "Terreno Plano (Tipo 1)"
' Me.txt_orografia_velocidad.Text = "Terreno Ondulado (Tipo 2)"
' Me.txt_orografia_velocidad.Text = "Terreno Accidentado (Tipo 3)"
'Me.txt_orografia_velocidad.Text = "Terreno Escarpado (Tipo 4)"
If Me.txt_demanda_velocidad.Text = "Autopista de Primera Clase" And Me.txt_orografia_velocidad.Text = "Terreno Plano (Tipo 1)" Then
Me.txt_rango_velocidad.Text = "80-90-100-110-120-130"
End If
'If txt_demanda_velocidad.Text = "Autopista de Primera Clase" And txt_orografia_velocidad.Text = "Terreno Ondulado (Tipo 2)" Then
'txt_rango_velocidad.Text = "80-90-100-110-120"
'End If
' Me.txt_demanda_velocidad.Text = "Autopista de Primera Clase"
' Me.txt_orografia_velocidad.Text = "Terreno Ondulado (Tipo 2)"
' If txt_demanda_velocidad.Text = "Autopista de Primera Clase" And txt_orografia_velocidad.Text = "Terreno Ondulado (Tipo 2)" Then
'txt_rango_velocidad.Text = "80-90-100-110-120"
' End If
' Me.txt_demanda_velocidad.Text = "Autopista de Primera Clase"
' Me.txt_orografia_velocidad.Text = "Terreno Accidentado (Tipo 3)"
'If txt_demanda_velocidad.Text = "Autopista de Primera Clase" And txt_orografia_velocidad.Text = "Terreno Accidentado (Tipo 3)" Then
'txt_rango_velocidad.Text = "70-80-90-100"
' End If
' Me.txt_demanda_velocidad.Text = "Autopista de Primera Clase"
' Me.txt_orografia_velocidad.Text = "Terreno Escarpado (Tipo 4)"
'If txt_demanda_velocidad.Text = "Autopista de Primera Clase" And txt_orografia_velocidad.Text = "Terreno Escarpado (Tipo 4)" Then
'txt_rango_velocidad.Text = "70-80"
'End If
End Sub
Valora esta pregunta


0