Visual Basic - PROGRAMACION EN VISUAL BASIC

Life is soft - evento anual de software empresarial
   
Vista:

PROGRAMACION EN VISUAL BASIC

Publicado por manuel burgos (3 intervenciones) el 29/11/2011 08:11:04
POR FAVOR AYDENME TENGO ESTE CODIGO, Y E GENERA UN ERROR AL EJECUTAR... MI ENLACE ES CON ACCESS 2007...ERROR "424" ERROR DE EJECUCION SE REQUIERE UN OBJETO... SOLO QUIERO COMPARA QUE NO EXISTA DATOS DUPLICADOS
Private Sub cmdguardar_Click()

adozona.Refresh
With adozona.Recordset
adozona.Recordset.MoveFirst
Adousuario.Recordset.Find "codzona='" & Trim(txtcodzona.Text) & "'"
Adousuario.Recordset.Find "zona='" & Trim(txtzona.Text) & "'"

If adozona.Recordset.EOF = False Then

MsgBox "ya esta Registrado"
txtzona.Text = ""
cmdguardar.Enabled = False
Else

'adozona.Refresh

adozona.Recordset.AddNew

adozona.Recordset("codzona") = Trim(txtcodzona.Text)
adozona.Recordset("zona") = Trim(txtzona.Text)

adozona.Recordset.Update

MsgBox "Se Registró la Zona", vbOKOnly + vbExclamation, "Mensaje"

Call limpiar

cmdnuevo.Enabled = True
Call cargacodigo
cmdguardar.Enabled = False
End If
End With
End Sub
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

PROGRAMACION EN VISUAL BASIC

Publicado por Christian (666 intervenciones) el 29/11/2011 14:35:33
Y en que linea te marca el error?
Puede ser que un objeto lo hayas escrito mal o que no este instanciado.
Fijate si adozona esta bien, fijate los txtzona si existen, etc

saludos
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

PROGRAMACION EN VISUAL BASIC

Publicado por MANUEL BURGOS (3 intervenciones) el 30/11/2011 04:42:14
EL ERROR MARCA EN ESTA LINEA DE CODIGO ESTA BIEN LA CONEXION A MI BASE DE DATOS EN ACCESS Y ESTAN BIEN NOMBRADAS LAS CAJAS DE TEXTO, NO SE LO QUE ESTA PASANDO

Adousuario.Recordset.Find "codzona='" & Trim(txtcodzona.Text) & "'"
Adousuario.Recordset.Find "zona='" & Trim(txtzona.Text) & "'"
EL MENSAJE DE ERRRO EXTACTO E S EL SGTE.

ERROR "424" EN TIEMPO DE EJECUCION:

SE REQUIERE UN OBJETO
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

PROGRAMACION EN VISUAL BASIC

Publicado por MANUELBURGOS manuelburgos17@hotmail.com (3 intervenciones) el 01/12/2011 05:07:09
hola k tal, ayudame por favor con esta linea de codigo.
no se si algo esta mal pero no reconoce nada trabajo con access 2007, quizas no esta bien la linea de codigo.. lo que quiero es consultar con mi base de datos si es que ya existe el dato que estoy registrando solo en el caso de la zona...
Private Sub Command1_Click()
adozona.Refresh
adozona.Recordset.MoveFirst

Do While adozona.Recordset.EOF = True

Adousuario.Recordset.Find "codzona='" & Trim(txtcodzona.Text) & "'"
Adousuario.Recordset.Find "zona='" & Trim(txtzona.Text) & "'"

If adozona.Recordset.EOF = True Then

ElseIf txtzona.Text = adozona.Recordset("zona") Then

adozona.Recordset.MoveNext
MsgBox "ya esta Registrado"
txtzona.Text = ""
cmdguardar.Enabled = False

Else
MsgBox "no esta registrado"

End If

Loop
End Sub
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