Problema de access 2000 en access 2002 o xp
Hola juanito,
Soy yo otra vez, disculpa la molestia pero me he topado con un problemita.
¿Recuerdas qué te dije que estaba desarrollando una base de datos para una empresa de cable?
Resulta que ellos quería tener una agenda aparte de Clientes no Distinguidos (Tabla Clientes no Distinguidos)
Y que al momento de ingresar un usuario nuevo en la Tabla Usuarios automáticamente hiciera una búsqueda en la dirección de los clientes no distinguidos, a modo de evitar que otra persona contrate el servicio para la misma dirección pero con otro nombre.
Bueno el Problema lo resolví en access 2000 pero la base de datos de esa empresa es 2002 o XP. Y no me ejecuta la acción.
Te describiré como lo hice:
Primero hice una Consulta de la tabla de clientes no Distinguidos y en el campo Dirección Intruje el siguiente Criterio:
=Formularios!ClientesNoDistinguidos!Direccion.
Luego en el Campo dirección del Formulario Usuarios En el generador de código puse antes de actualizar que llamara a la consulta}, y en base al criterio toma el texto que se introdujo en la dirección para ser corroborada. Sin necesidad de introducirlo a mano.
Y el problema es que no me funciona en access 2002 cuando ejecuto la base de datos
¿Sera qué me puedes decir como solucionarlo?
Gracias
Y perdón por el testamento
Hasta luego
Soy yo otra vez, disculpa la molestia pero me he topado con un problemita.
¿Recuerdas qué te dije que estaba desarrollando una base de datos para una empresa de cable?
Resulta que ellos quería tener una agenda aparte de Clientes no Distinguidos (Tabla Clientes no Distinguidos)
Y que al momento de ingresar un usuario nuevo en la Tabla Usuarios automáticamente hiciera una búsqueda en la dirección de los clientes no distinguidos, a modo de evitar que otra persona contrate el servicio para la misma dirección pero con otro nombre.
Bueno el Problema lo resolví en access 2000 pero la base de datos de esa empresa es 2002 o XP. Y no me ejecuta la acción.
Te describiré como lo hice:
Primero hice una Consulta de la tabla de clientes no Distinguidos y en el campo Dirección Intruje el siguiente Criterio:
=Formularios!ClientesNoDistinguidos!Direccion.
Luego en el Campo dirección del Formulario Usuarios En el generador de código puse antes de actualizar que llamara a la consulta}, y en base al criterio toma el texto que se introdujo en la dirección para ser corroborada. Sin necesidad de introducirlo a mano.
Y el problema es que no me funciona en access 2002 cuando ejecuto la base de datos
¿Sera qué me puedes decir como solucionarlo?
Gracias
Y perdón por el testamento
Hasta luego
Respuesta de juanito01
1
Problemas...
1.- No entiendo para que tenéis una tabla de cliente no distinguidos si los clientes pueden estar en la misma tabla de clientes con un código booleano que indique si el cliente es o no distinguido. Yo lo haría, desde luego, así.
2.- No suelo utilizar nunca los generadores de plantillas y expresiones de Access, en la escuela donde estudié siempre nos mandaban directamente a codificar SQL que, al fin y al cabo, es la forma común de saber manejar diferentes gestores RDBMS. En tu caso, deberías plantarle directamente una expresión de este tipo:
dim base as database
dim rst as recordset
set base=currentdb
set rst=base.openrecordset("
select count(*) from clientesdistinguidos where direccion='" & txtdireccion & "'")
if rst.fields(0)>0 then
msgbox "Ya existe el cliente"
end if
Y así funcionará el testeo.
1.- No entiendo para que tenéis una tabla de cliente no distinguidos si los clientes pueden estar en la misma tabla de clientes con un código booleano que indique si el cliente es o no distinguido. Yo lo haría, desde luego, así.
2.- No suelo utilizar nunca los generadores de plantillas y expresiones de Access, en la escuela donde estudié siempre nos mandaban directamente a codificar SQL que, al fin y al cabo, es la forma común de saber manejar diferentes gestores RDBMS. En tu caso, deberías plantarle directamente una expresión de este tipo:
dim base as database
dim rst as recordset
set base=currentdb
set rst=base.openrecordset("
select count(*) from clientesdistinguidos where direccion='" & txtdireccion & "'")
if rst.fields(0)>0 then
msgbox "Ya existe el cliente"
end if
Y así funcionará el testeo.
