Access - #Eliminado

   
Vista:

#Eliminado

Publicado por David (7 intervenciones) el 08/01/2009 13:54:17
Hola tengo un problema con el SQL ejecutado sobre access desde vba... El codigo es el siguiente:

' construyo la instruccion de insert en la tabla HistoricoEmpresa
strSQL = "INSERT INTO Historico_Empresas (Titular, NombreComercial, NCUESTIONARIO, NIF, Telmovil, metrosCuadrados,"
strSQL = strSQL & " NumTrabajadores, Gerente, F_Juridica, AdaptacionDiscapacidad, Reg_t_local, "
strSQL = strSQL & "ACQ, Asociacion, Nom_asociacion, Clasificacion, Codificacion, ClasificacionComercial, "
strSQL = strSQL & "Act_principal, IAE, IAE2, IAE3, IAE4, ALTAIAE, Marca, TipoVia, Domicilio, "
strSQL = strSQL & "Numero, OtroDomicilio, Poblacion, Provincia, CodigoPostal, Zona_Ub, Tel_fijo, "
strSQL = strSQL & "Fax, E_mail, Web, Act_Comercial, Especializacion, OBSERVACIONES, AnterioresPIE, "
strSQL = strSQL & "GuiaEmpresarial, Equalia, AINPO, NouOctubre, FechaAlta, FechaBaja) VALUES("
' construyo la instruccion de insert en la tabla HistoricoEmpresa ahora con los datos a inserar
strSQL = strSQL & strTitular & "," & strEmpresa & "," & strNCuestionario & "," & strNif & "," & strTelmovil & ","
strSQL = strSQL & strMcuadrados & "," & strNtrabajadores & "," & strGerente & "," & strFJuridica & ","
strSQL = strSQL & strAdapDisc & "," & strRegLocal & "," & strACQ & "," & strAsociacion & "," & strNomAsociacion & ","
strSQL = strSQL & strClasificacion & "," & strCodificacion & "," & strClasifiacionComercial & "," & strActividadPrincipal & ","
strSQL = strSQL & strIAE & "," & strIAE2 & "," & strIAE3 & "," & strIAE4 & "," & strALTAIAE & "," & strMarca & ","
strSQL = strSQL & strTipoVia & "," & strDomicilio & "," & strNumero & "," & strOtroDomicilio & "," & strPoblacion & "," & strProvincia & ","
strSQL = strSQL & strCodPostal & "," & strZonaUb & "," & strTelFijo & "," & strFax & "," & strEmail & "," & strWeb & ","
strSQL = strSQL & strActComercial & "," & strEspecializacion & "," & strObservaciones & ","
strSQL = strSQL & strPie & "," & strGuiaEmp & "," & strEqualia & "," & strAINPO & "," & str9Octubre & ","
strSQL = strSQL & strFechaAlta & "," & strFechaBaja & ");"

' Aqui ejecuto el insert que se ha construido
On Error GoTo SQLError
DoCmd.RunSQL strSQL

' Construyo la instruccion sql para borrar el registro insertado en el historico
strSQL = "DELETE FROM Empresas WHERE Empresas.Nif = " & strNif

' Aqui ejecuto el delete
On Error GoTo SQLError
DoCmd.RunSQL strSQL

Los strings se quedan asi:

Insert:
INSERT INTO Empresas
(Titular, NombreComercial, NCUESTIONARIO, NIF, Telmovil, metrosCuadrados, NumTrabajadores, Gerente,
F_Juridica, AdaptacionDiscapacidad, Reg_t_local, ACQ, Asociacion, Nom_asociacion, Clasificacion,
Codificacion, ClasificacionComercial, Act_principal, IAE, IAE2, IAE3, IAE4, ALTAIAE, Marca, TipoVia,
Domicilio, Numero, OtroDomicilio, Poblacion, Provincia, CodigoPostal, Zona_Ub, Tel_fijo, Fax, E_mail,
Web, Act_Comercial, Especializacion, OBSERVACIONES, AnterioresPIE, GuiaEmpresarial, Equalia, AINPO,
NouOctubre, FechaAlta)
VALUES('David Llopis','Nom Comercial',777777,'21680400W','649694040','25',7,'Razzta','02',-1,'1',-1,-1,
'Junko SA','Clasificacion','Codificacion','ARTES GRAFICAS','Pegar el palo main activity','23','34,5',
'234,056','5,003','12 Agosto','Ganjak','C','Virgen Desamparados','34 C','Virgen del Pilar nº 4 primero derecha',
'Cocentaina','Alacant',3820,'CASCO URBANO','96 344 56 78','96 344 44 54','asdf@hotmail.com',
'www.laotia.net#http://www.laotia.net#','8.47','Especializacion','observacions',-1,-1,-1,-1,-1,
'13/08/1983');

Delete:
DELETE FROM Empresas WHERE Empresas.Nif = '21680456J'

Porque siempre me hace las operaciones pero me da error...?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:#Eliminado

Publicado por mi menda (1111 intervenciones) el 08/01/2009 18:31:51
Hola
Tendrías que poner comilla simple màs comilla doble
'" & strVariable & "'

Para eliminar:
strSQL = "DELETE * FROM Empresas WHERE Nif = '" & strNif & "' "

ya que nif es texto y lo pones como número

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:#Eliminado

Publicado por David (7 intervenciones) el 09/01/2009 09:09:29
Gracias

Al final decidi cerrar los formularios cuando se hace el delete y asi me ahorro toda la parte del error que tiene el sistema al intentar mostrar un registro que acaba de borrar...

Muchas gracias por tu ayuda.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:#Eliminado

Publicado por mi menda (1111 intervenciones) el 09/01/2009 10:35:23
Hola
Creo que no entendí la pregunta, sí te refieres a que cuando haces una eliminación de un registro en el formulario te aparecen los controles con #Eliminado, tan solo tienes que actualizar el formulario después de hacer la eliminación con :

Me.requery

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar