Programación de consultas Vb
Capítulo 26
Subcomando privado 1_Click()
X = InputBox("Ingrese las letras que desea consultar")
Para i = 0 a 25
Si UCase(x) = ch(i), entonces
MsgBox x&" es "I 1 &" elemento"
es ..Salir
Terminará si...
Siguiente yo
Finalizar conector
Subform_Load() privado
Para yo = 0 a 25
ch(i) = Chr(65 i)
Siguiente I
Fin de ajuste
p>