Como Condiciono un dato de mi base de Datos

Nuevamente yo consultándote me Hisciste favor de enviarme una solución la cual la plique; Te envío el Código ya que si me hace lo que quiero pero al decirle que no quiero asignar el folio me marca un error en la parte
Private Sub Dependencia()
Select Case Me.[Tipo_Sol]
Case "2", "3", "4", "6"
  IdDependencia.Enabled = False
Case Else
  IdDependencia.Enabled = True
End Select
End Sub
Este es mi codigo Completo:
Public Sub ASIGNA_FOLIO()
Dim MSJ As String
Dim RSP As String
MSJ = "Desea asignar un folio a este registro....?"
RSP = MsgBox(MSJ, vbYesNo, "MENSAJE DEL SISTEMA")
If RSP = vbNo Then
MsgBox "No se asignará ningun folio a este registro", vbInformation, "MENSAJE DEL SISTEMA"
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
Else
'Dimensionamiento de Variables
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim REG As Long
Dim RS1 As Recordset
Dim strSQL1 As String
Dim REG1 As Long
Dim UF As Integer
Dim NF As Integer
Dim C As Long
Dim U As Long
'Crea la intruccion SQL para llenar el recordset
Set db = CurrentDb
If [Tipo_Sol] = 2 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios ASE];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE LA ASE"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "ASE" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
Else
If [Tipo_Sol] = 3 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios RDF];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE Reclusorios del DF"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "RDF" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
Else
If [Tipo_Sol] = 4 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios RED];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE Reclusorios del Estado"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "RED" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
Else
If [Tipo_Sol] = 5 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios MPI];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE Materia Prima por Incidencia"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "MPI" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
Else
If [Tipo_Sol] = 6 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios GAO];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE Gastos de Operacion"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "GAO" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
Else
If [Tipo_Sol] = 7 Then
Me.Refresh
'Obtengo el conscutivo
strSQL = "SELECT * FROM [Folios MTO];"
Set rs = db.OpenRecordset(strSQL)
C = rs!Consecutivo
U = rs!Ultimo_Utilizado
MsgBox "Consecutivo a utilizar: " & C, vbInformation, "FOLIOS CONSECUTIVOS DE Mantenimiento"
strSQL1 = "SELECT * FROM [Solicitud de cheque o Depositos] Where ([ID_Registro]= " & Me.ID_Registro & ") ;"
Set RS1 = db.OpenRecordset(strSQL1)
[REG1] = RS1.RecordCount
RS1.Edit
RS1!Folio = "MTO" & "-" & C & "-" & Format(Now, "yyyy")
RS1.Update
RS1.Bookmark = RS1.LastModified
RS1.Close
Me.Refresh
rs.Edit
rs!Ultimo_Utilizado = rs!Ultimo_Utilizado + 1
rs!Consecutivo = rs!Consecutivo + 1
rs.Update
rs.Bookmark = rs.LastModified
rs.Close
Me.Refresh
End If
Me.Refresh
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Current()
Dependencia1
End Sub
Private Sub Tipo_Sol_AfterUpdate()
ASIGNA_FOLIO
Dependencia
End Sub
Private Sub Dependencia()
Select Case Me.[Tipo_Sol]
Case "2", "3", "4", "6"
  IdDependencia.Enabled = False
Case Else
  IdDependencia.Enabled = True
End Select
End Sub
Private Sub Dependencia1()
Select Case Me.[Tipo_Sol]
Case "ASE", "RED", "RDF", "GAO"
  IdDependencia.Enabled =...

1 respuesta

Respuesta
1
Me gustaría saber cual es el error y donde se genera el error .
Por otro lado debes tener cuidado con los datos nulos por ejemplo si tu campo tiene un valor nulo y lo campatras con un texto o un numero te generara un error por que son diferentes tipos de datos, por lo que deberías validar los datos, por ejemplo:
select case (me .tipo_sol & "")
case "ASE" ,.....etc, etc
o
select case val(me.tipo_sol & "")
case 2,3,4,6  ... etc
Al concatenar con "" el valor nulor se pierde y se puede comparar
El error es el Siguiente:
Se ha producido el error '2476' en tiempo de ejecución:
La expresión que ha especificado hace referencia a un objeto que esta cerrado o no existe
Y al darle depurar me envía al código
Private Sub Dependencia()
Select Case Me.[Tipo_Sol]
Case "2", "3", "4", "6"
  IdDependencia.Enabled = False
Case Else
  IdDependencia.Enabled = True
End Select
End Sub
Sin más por el Momento y en espera de que me puedas ayudar.
Gracias
El objeto IdDependencia debe estar en tu formulario. Es decir que debe ser un cuadro de texto o un combobox, IdDepedencia no solo debe figurar como origen del objeto sino también como nombre del objeto
Es lo que puedo decirte...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas