Duda access 2003 =)
Hola, no se si te acuerdes de mi, pero ase poco me ayudaste muchísimo =)
Resulta que me surgió un pquqeño problema.
Tengo una tabla deptos: numero (numero), tipo (texto)
Para ingresar los datos tengo el siguiente código
Private Sub cmdingresar_Click()
Dim sql As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from depto where numero=" & Form!txtnum.Value & "")
MsgBox (rs!numero)
If IsNull(Form!txtnum.Value) = True Or IsNull(Form!txttipo.Value) = True Then
MsgBox ("Debe ingresar todos los campos con *")
GoSub fin
Else
If rs.EOF = True Then
sql = "insert into depto(numero,tipo) values(" & Form!txtnum.Value & ",'" & Form!txttipo.Value & "')"
DoCmd.RunSQL sql
Else
MsgBox ("El registro ya existe, Si desea cambiar su valor debe actualizar el dato")
GoSub fin
End If
End If
fin:
End Sub
en el codigo reviso (gracias a tus enseñanzas =)):
Si los campos son nulos
Si ya existe en la tabla
Nota: los gosub los puse por que después are algo con el control de usuario, es por eso que están allí
Resulta que en esta linea me dice que:
Set rs = db.OpenRecordset("select * from depto where numero=" & Form!txtnum.Value & "")
Error de sintaxis, (falta de operador ) en al expresión de la consulta 'numero ='
Numero del error: 3075
Pero no entiendo por que ya que al ser un numero debería ser igualado así: " & form!txtnum.value & "
y me alega por eso =(
un abrazo grande =), saludos
Resulta que me surgió un pquqeño problema.
Tengo una tabla deptos: numero (numero), tipo (texto)
Para ingresar los datos tengo el siguiente código
Private Sub cmdingresar_Click()
Dim sql As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from depto where numero=" & Form!txtnum.Value & "")
MsgBox (rs!numero)
If IsNull(Form!txtnum.Value) = True Or IsNull(Form!txttipo.Value) = True Then
MsgBox ("Debe ingresar todos los campos con *")
GoSub fin
Else
If rs.EOF = True Then
sql = "insert into depto(numero,tipo) values(" & Form!txtnum.Value & ",'" & Form!txttipo.Value & "')"
DoCmd.RunSQL sql
Else
MsgBox ("El registro ya existe, Si desea cambiar su valor debe actualizar el dato")
GoSub fin
End If
End If
fin:
End Sub
en el codigo reviso (gracias a tus enseñanzas =)):
Si los campos son nulos
Si ya existe en la tabla
Nota: los gosub los puse por que después are algo con el control de usuario, es por eso que están allí
Resulta que en esta linea me dice que:
Set rs = db.OpenRecordset("select * from depto where numero=" & Form!txtnum.Value & "")
Error de sintaxis, (falta de operador ) en al expresión de la consulta 'numero ='
Numero del error: 3075
Pero no entiendo por que ya que al ser un numero debería ser igualado así: " & form!txtnum.value & "
y me alega por eso =(
un abrazo grande =), saludos
1 Respuesta
Respuesta
1