Llamar la propiedad nombre de un formulario
Publicado por yanira (140 intervenciones) el 27/11/2006 15:31:31
Tengo una consulta que toma valor de tres formularios distintos para el mismo campo, entonces tengo la misma consulta tres veces tomando ese valor, segun cada caso.
Por codigo estoy intentando tomar los valores para solo dejar una consulta y llamar la funcion en cada campo; lo que no se es como referirme a la propiedad nombre del formulario.
El codigo que tengo es:
Function TomaCedula() As String
Dim Cedula As Integer
If Form!Name = ReasignaFecha Then
Cedula = Form![ReasignaFecha]![NumDocumento]
Else
If Form.Name = AsignaVacante Then
Cedula = Form![AsignaVacante]![NumDocumento]
Else
If Form.Name = GeneracionDocumentos Then
Cedula = Form![Generacion Documentos]![NumDocumento]
End If
End If
End If
End Function
Por codigo estoy intentando tomar los valores para solo dejar una consulta y llamar la funcion en cada campo; lo que no se es como referirme a la propiedad nombre del formulario.
El codigo que tengo es:
Function TomaCedula() As String
Dim Cedula As Integer
If Form!Name = ReasignaFecha Then
Cedula = Form![ReasignaFecha]![NumDocumento]
Else
If Form.Name = AsignaVacante Then
Cedula = Form![AsignaVacante]![NumDocumento]
Else
If Form.Name = GeneracionDocumentos Then
Cedula = Form![Generacion Documentos]![NumDocumento]
End If
End If
End If
End Function
Valora esta pregunta


0