Duda existencial
Antes que todo: gracias por el tiempo y ayuda...(soy inexperta en el tema pero tengo ganas de aprender)
1)Tengo un formulario EMPRESAS con 7 campos, los que incluyen su Id y Ciudad.
2)Este ultimo campo esta vinculado (cuadro combinado) a la tabla CIUDADES la cual a su vez tiene IdCiudades y NombCiudades como únicos campos.
3)Dentro del formulario EMPRESAS para permitir ingresar una ciudad que no se encuentre en el listado doy el siguiente evento en "Al no estar en la lista":
Private Sub Ciudad_NotInList(NewData As String, Response As Integer)
Response = 0
Dim X As Integer, newcode As Long
X = MsgBox("No se encuentra en el listado, desea agregarlo?", vbYesNo)
If X <> 6 Then Exit Sub
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("CIUDADES", dbOpenDynaset)
RS.AddNew
RS(1) = NewData
[Ciudad] = RS(0)
RS.Update
RS.Close
DB.Close
Ciudad.Requery
DIRECCION.SetFocus ' opcional para evitar el drop down
End Sub
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click
DoCmd.Quit
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click
End Sub
4) ¿Qué hago mal? Creo que tiene que ver con las Dim?
Muchísimas gracias
1)Tengo un formulario EMPRESAS con 7 campos, los que incluyen su Id y Ciudad.
2)Este ultimo campo esta vinculado (cuadro combinado) a la tabla CIUDADES la cual a su vez tiene IdCiudades y NombCiudades como únicos campos.
3)Dentro del formulario EMPRESAS para permitir ingresar una ciudad que no se encuentre en el listado doy el siguiente evento en "Al no estar en la lista":
Private Sub Ciudad_NotInList(NewData As String, Response As Integer)
Response = 0
Dim X As Integer, newcode As Long
X = MsgBox("No se encuentra en el listado, desea agregarlo?", vbYesNo)
If X <> 6 Then Exit Sub
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("CIUDADES", dbOpenDynaset)
RS.AddNew
RS(1) = NewData
[Ciudad] = RS(0)
RS.Update
RS.Close
DB.Close
Ciudad.Requery
DIRECCION.SetFocus ' opcional para evitar el drop down
End Sub
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click
DoCmd.Quit
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click
End Sub
4) ¿Qué hago mal? Creo que tiene que ver con las Dim?
Muchísimas gracias
1 Respuesta
Respuesta de adrianxxi
1