ayuda

cindy
20 de Abril del 2005
hola minombre es cindy y queria ver si me pueden ayudar con un boton para dar de alta un registro es que como no se casi nada de visual basic y mi maestra no nos esta ayudando tengo muchas dudas, estoy haciendo una base se datos para una biblioteca y tengo varios formularios el de entrada con clave para podre accesar q ya corre el de menu que tambien ya me corre uno de autores otro de editoriales de libros y otros el de autores ya me corre perfectamente y solo puse el id de autor y el nombre y las uni mediante un data en una base de datos de access y estoy haciendo el de editoriales pero no me corre el boton de altas dice que me falta un objeto pero no se cual es les mando el codigo no se si alguien me pueda decir por favor
Private Sub ALTAS_Click()

Data1.Recordset.AddNew
CANCELAR.Enabled = True
SALVAR.Enabled = True
ALTAS.Enabled = False
BAJAS.Enabled = False
CAMBIOS.Enabled = False
CONSULTAS.Enabled = False
REGRESAR.Enabled = False
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False

End Sub

el de bajas me corre un poco mal y no se tampoco bien que es loe que me falta
Private Sub BAJAS_Click()
partepalabra = InputBox("INTRODUCE EL NUMERO DE LA EDITORIAL A ELIMINAR", BAJAS)
If partepalabra = "" Then
MsgBox "NO ESCRIBIO NADA", vbCritical, "ERROR"
Else
query = ""
query = "SELECT*FROM EDITORIALES WHERE ID_EDITORIAL='*" & partepalabra & "*'"
Data1.RecordSource = query
Data1.Refresh

If Data1.Recordset.RecordCount = 0 Then
MsgBox "REGISTRO NO EXISTENTE", vbInformation, "BAJA"
Else
acep = MsgBox("SEGURO QUE DESEA BORRAR EL REGISTRO", 1, "ALERTA")
If acep = 1 Then
Data1.Recordset.Delete

CANCELAR.Enabled = True
SALVAR.Enabled = True
ALTAS.Enabled = False
BAJAS.Enabled = False
CAMBIOS.Enabled = False
CONSULTAS.Enabled = False
REGRESAR.Enabled = False

Else
MsgBox "REGISTRONO BORRADO", 0, "ALERTA"
End If
End If
AUT.Show


End If
End Sub

por favor si alguien me puede dar una contestacion se los agradeceria mucho

Proteo45
20 de Abril del 2005
En el de Altas parecería que te falta:
Data1.Recordset.update

En el de BAJAS:

en la instrucción SELECT no podés usar el:
WHERE id... =
Si la intención es buscar una parte de la cadena, debés usar LIKE en vez del signo igual(=):

WHERE ID LIKE '*" & partepalabra & "*'"

Espero que puedas solucionarlo.
Suerte.