Auxilio ayudenme
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
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
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
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
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
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