Auxilio ayudenme

laly
29 de Octubre del 2003
tengo un problema con INGRESOS cada vez que presiono ese boton me dice "ERROR 13 no coinciden los tipos" antes le puse variables se las saque igual me sale ese error alguien pude ayudarme por favor
me seria de gran utilidad
gracias


aqui puse un codigo de ingresos no se que esta mal
dim bd as database
Dim tb Recordset


Set db = OpenDatabase("C:lalyModelo Datos Sistema PP4IT.mdb")
Set TB = db.OpenRecordset("Profesional") ---> marca el error 13 que no coinciden los tipos
Set tb = db.OpenRecordset("hoja de vida")

With TB
.AddNew
!fe_ingr = Text1.Text
!rut = Text2.Text
!nombres = Text3.Text
!Apellidos = Text4.Text
!Fechanac = Text5.Text
!Edad = Text6.Text
!Direccion = Text7.Text
!Edad = Text8.Text
!region = Combo1.Text
!Comuna = Combo2.Text
!nacionalidad = Text9.Text
!telefono_trabajo = Text10.Text
!Anexo = Text11.Text
!telefono_casa = Text12.Text
!telefono_movil = Text13.Text
!Email = Text14.Text
!estado_civil = Combo3.Text
!titulo = Combo57.Text
!comentario = Text35.Text
.Update
MsgBox ("Datos grabados")
End With
TB.Close
End Sub

laly
29 de Octubre del 2003
aqui puse un codigo de ingresos no se que esta mal
dim db as database
Dim tb Recordset


Set db = OpenDatabase("C:\laly\Modelo Datos Sistema PP4IT.mdb")
Set TB = db.OpenRecordset("Profesional") ---> marca el error 13 que no coinciden los tipos
Set tb = db.OpenRecordset("hoja de vida")

With TB
.AddNew
!fe_ingr = Text1.Text
!rut = Text2.Text
!nombres = Text3.Text
!Apellidos = Text4.Text
!Fechanac = Text5.Text
!Edad = Text6.Text
!Direccion = Text7.Text
!Edad = Text8.Text
!region = Combo1.Text
!Comuna = Combo2.Text
!nacionalidad = Text9.Text
!telefono_trabajo = Text10.Text
!Anexo = Text11.Text
!telefono_casa = Text12.Text
!telefono_movil = Text13.Text
!Email = Text14.Text
!estado_civil = Combo3.Text
!titulo = Combo57.Text
!comentario = Text35.Text
.Update
MsgBox ("Datos grabados")
End With
TB.Close
End Sub

laly
29 de Octubre del 2003
tengo un problema con INGRESOS cada vez que presiono ese boton me dice "ERROR 13 no coinciden los tipos" antes le puse variables se las saque igual me sale ese error alguien pude ayudarme por favor
me seria de gran utilidad
gracias


aqui puse un codigo de ingresos no se que esta mal
dim db as database
Dim tb Recordset


Set db = OpenDatabase("C:\laly\Modelo Datos Sistema PP4IT.mdb")
Set TB = db.OpenRecordset("Profesional") ---> marca el error 13 que no coinciden los tipos
Set tb = db.OpenRecordset("hoja de vida")

With TB
.AddNew
!fe_ingr = Text1.Text
!rut = Text2.Text
!nombres = Text3.Text
!Apellidos = Text4.Text
!Fechanac = Text5.Text
!Edad = Text6.Text
!Direccion = Text7.Text
!Edad = Text8.Text
!region = Combo1.Text
!Comuna = Combo2.Text
!nacionalidad = Text9.Text
!telefono_trabajo = Text10.Text
!Anexo = Text11.Text
!telefono_casa = Text12.Text
!telefono_movil = Text13.Text
!Email = Text14.Text
!estado_civil = Combo3.Text
!titulo = Combo57.Text
!comentario = Text35.Text
.Update
MsgBox ("Datos grabados")
End With
TB.Close
End Sub

javier
29 de Octubre del 2003
Hola

Debeis usar la referncia DAO delnate del objeto recordset y delante del objeto database
dim rs as dao.recordset

Salu2

Javier Pérez