error de compilacion
Publicado por erika (3 intervenciones) el 03/06/2015 01:36:39
AYUDA URGENTE!!!!!!!!!!!!!!
hola necesito ayuda estoy realizando un proyecto en access, el tema es que quiero compilar una parte de modificar un alquiler y me da error de compilación.
me sale
[[[[[[[[[[[[error de compilación
no se puede encontré el proyecto o la biblioteca]]]]]]]]]]]]]]]]]]]]]]]]
hola necesito ayuda estoy realizando un proyecto en access, el tema es que quiero compilar una parte de modificar un alquiler y me da error de compilación.
me sale
[[[[[[[[[[[[error de compilación
no se puede encontré el proyecto o la biblioteca]]]]]]]]]]]]]]]]]]]]]]]]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub cmdModificar_Click()
Dim resp
Dim bd As DAO.Database Dim rst As DAO.Recordset Set bd = CurrentDbSet rst = bd.OpenRecordset("Propiedades", dbOpenDynaset)
If IsNull(txtdomicilio.Value) Then
MsgBox "Debe agregar un domicilio", vbInformation, "ATENCION"
Exit Sub
End If
If IsNull(txtdescripcion.Value) Then
MsgBox "Debe agregar una descripcion", vbInformation, "ATENCION"
Exit Sub
End If
If IsNull(txtAlquiler.Value) Then
MsgBox "Debe agregar un costo de alquiler", vbInformation, "ATENCION"
Exit Sub
End If
If IsNull(cmbtipo.Value) Then
MsgBox "Debe agregar un tipo de propiedad", vbInformation, "ATENCION"
Exit Sub
End If
If IsNull(cmbLocalidad.Value) Then
MsgBox "Debe agregar una localidad a la propiedad", vbInformation, "ATENCION"
Exit Sub
End If
resp = MsgBox("¿Desea modificar los Datos Seleccionados?", vbYesNo, "Exito")
If resp = vbYes ThenDo While rst.EOF = False
If txtPropiedad.Value = rst.Fields("id_Prop") Then
rst.Editrst.Fields("domicilio") = txtdomicilio.Value
rst.Fields("descripcion") = descripcion.Value
rst.Fields("Alquiler") = txtAlquiler.Value
rst.Fields("tipo_prop") = cmbtipo.Value
rst.Fields("Id_localidad") = cmbLocalidad.Value
rst.UpdateMsgBox "Los datos se han Modificados exitosamente", vbInformation, "Exito"
End If
rst.MoveNextLoop
End If
End Sub
Valora esta pregunta
0
