
Consulta error al ejecutar SELECT
Publicado por Esteban (9 intervenciones) el 27/01/2015 13:33:10
Hola que tal!
Mi consulta es la siguiente tengo un formulario de carga de datos, cuando los guardo esos se me muestran en una lista abajo. Lo que quiero hacer es corroborrar que no ingrese datos duplicados, cuando presiono el boton guardar
Yo lo que estaba tratando de hacer es hacer una funcion con una consulta SELECT a la tabla donde la filtro por los campos y pregunto si los campos que tengo en la tabla es igual al valor de los cuadros de texto que tengo cargado en el formulario, entonces luego uso esa funcion y pregunto si es vacia(osea los campos no se repiten, poq la consulta no devuelve nada) , guardo los datos.
espero que se entienda un poco mi consulta, dejo el codigo del select el cual no me funciona
Saludos
Function Puesto_Existente() As String
Dim msql5 As String
msql5 = " SELECT Puesto FROM Matriz WHERE ( Linea = '" & Me.CLinea.Value & "' AND Puesto = '" & Me.TPuesto.Value & "' ) "
DoCmd.SetWarnings False
DoCmd.RunSQL msql5
DoCmd.SetWarnings True
Puesto_Existente = msql5
Mi consulta es la siguiente tengo un formulario de carga de datos, cuando los guardo esos se me muestran en una lista abajo. Lo que quiero hacer es corroborrar que no ingrese datos duplicados, cuando presiono el boton guardar
Yo lo que estaba tratando de hacer es hacer una funcion con una consulta SELECT a la tabla donde la filtro por los campos y pregunto si los campos que tengo en la tabla es igual al valor de los cuadros de texto que tengo cargado en el formulario, entonces luego uso esa funcion y pregunto si es vacia(osea los campos no se repiten, poq la consulta no devuelve nada) , guardo los datos.
espero que se entienda un poco mi consulta, dejo el codigo del select el cual no me funciona
Saludos
Function Puesto_Existente() As String
Dim msql5 As String
msql5 = " SELECT Puesto FROM Matriz WHERE ( Linea = '" & Me.CLinea.Value & "' AND Puesto = '" & Me.TPuesto.Value & "' ) "
DoCmd.SetWarnings False
DoCmd.RunSQL msql5
DoCmd.SetWarnings True
Puesto_Existente = msql5
Valora esta pregunta


0