cambiar l\'entrada de un formulario por la de un campo de un tabla
ctesias
30 de Junio del 2004
Tengo la siguiente parte de codigo , en el evento al salir de un cuadro de texto.
+ o -
Private sub entrada_exit
Dim textentrada as string,exist as integer,coma as tring
coma = " ' "
textentrada = Me!entrada
exist = dlookup ( "identrada","tblentrades","[EquivSp]=" & coma & textentrada & coma)
if exist <> 0 then
msgbox "ja existe"
Me!entrada = ????????????????
endif
En un formulario tengo un texbox que es el entrda donde escribo una palabra , luego tengo un lista de3 campos i le indico el idioma an,fr,ger,...y mas abajo otro textbox con su equivalente espanol o sea escribo "house" en entrada en idioma "an" y entonces en equivalente español escribiria casa ,
Mi duda es la siguiente tengo un textbox que es me!entrada el valor de este se lo asigno a la variable textentrada , entonces hago una busqueda para saber si ese campo ya existe , en la tabla entrades como equivalente español , con el dlookup lo busca a ver si existe y entonces asigna a la variables exist el valor numerico de ese campo ,luego compruebo si exist es diferente de 0 que significaria que lo ha encontrado y me gustaria cambiar la entrada de textbox por el equivalente español encontrado .
Si alguien me puede ayudar , se lo agradeceria o almenos guiarme.
:)
+ o -
Private sub entrada_exit
Dim textentrada as string,exist as integer,coma as tring
coma = " ' "
textentrada = Me!entrada
exist = dlookup ( "identrada","tblentrades","[EquivSp]=" & coma & textentrada & coma)
if exist <> 0 then
msgbox "ja existe"
Me!entrada = ????????????????
endif
En un formulario tengo un texbox que es el entrda donde escribo una palabra , luego tengo un lista de3 campos i le indico el idioma an,fr,ger,...y mas abajo otro textbox con su equivalente espanol o sea escribo "house" en entrada en idioma "an" y entonces en equivalente español escribiria casa ,
Mi duda es la siguiente tengo un textbox que es me!entrada el valor de este se lo asigno a la variable textentrada , entonces hago una busqueda para saber si ese campo ya existe , en la tabla entrades como equivalente español , con el dlookup lo busca a ver si existe y entonces asigna a la variables exist el valor numerico de ese campo ,luego compruebo si exist es diferente de 0 que significaria que lo ha encontrado y me gustaria cambiar la entrada de textbox por el equivalente español encontrado .
Si alguien me puede ayudar , se lo agradeceria o almenos guiarme.
:)
ctesias
30 de Junio del 2004
o tambien si me podeis decir como sabiendo el numero de registro o sea "2342" puedo escoger entre sus campos el que yo quiera
nºreg identrada id equivsp
2342 house an casa
nºreg identrada id equivsp
2342 house an casa
Skakeo
30 de Junio del 2004
Si no he entendido mal:
if exist <> 0 then
msgbox "ja existe"
Me!entrada = dlookup ( "EquivSp","tblentrades","[EquivSp]=" & coma & textentrada & coma)
haber me explico porque no se bien los campos de tus tablas, utilizando dlookup puedes devover cualquier campo de cualquier tabla, simplemente en vez de que te devuelva la IDEntrada haz que te devuelva el Nombre
Espero haberme explicado
Un saludo
Skakeo®
endif
if exist <> 0 then
msgbox "ja existe"
Me!entrada = dlookup ( "EquivSp","tblentrades","[EquivSp]=" & coma & textentrada & coma)
haber me explico porque no se bien los campos de tus tablas, utilizando dlookup puedes devover cualquier campo de cualquier tabla, simplemente en vez de que te devuelva la IDEntrada haz que te devuelva el Nombre
Espero haberme explicado
Un saludo
Skakeo®
endif
ctesias
30 de Junio del 2004
Perdon :)
Eres el puto DIOS skakeo , muchisimas gracias funciona a la perfeccion
lo + triste es ke jo ja lo havia probado pero no funcionaba porque tenia otro error ke no habia detectado
TE DEBO UNA :)
Eres el puto DIOS skakeo , muchisimas gracias funciona a la perfeccion
lo + triste es ke jo ja lo havia probado pero no funcionaba porque tenia otro error ke no habia detectado
TE DEBO UNA :)