|
Hola!
Primera pregunta oficial en este foro, aunq vengo leyendo hace meses en el mismo y siempre encuentro la solucion. Esta vez no se donde tengo el problema.
Paso a detallar:
Tengo una base de datos de Access 2007 en la cual almaceno informes de estudios medicos. En la misma arme un formulario para llenar los informes y despues se imprimen en formato PDF. En el formulario hay varios cuadros desplegables y al final un cuadro con texto libre para escribir los informes.
Uno de los campos a llenar es un cuadro desplegable con 4 opciones, y necesito que dependiendo la opcion que el medico escoje, se pegue un texto predefinido(editable) en el box de "texto libre".
Yo lo hice de la siguiente manera:
1) Arme una tabla procedimiento con 2 columnas, una con el nombre del estudio y la otra con el pre informe. imagenes: https://ibb.co/k51WhD2" rel="nofollow - https://ibb.co/k51WhD2 https://ibb.co/jHvMsnV" rel="nofollow - https://ibb.co/jHvMsnV
2)Luego arme el cuadro desplegable: https://ibb.co/9tRhWsw" rel="nofollow - https://ibb.co/9tRhWsw utilizando como "rowsource" a mi tabla de procedimientos (recordemos que tenia 2 columnas pero en el formulario voy a mostrar solo una). como "control source" puse la tabla donde estoy guardando todos los registros del formulario.
3)En el evento "after update"(para que se active luego de elegir una opcion) puse el siguiente c0digo:
Private Sub ESTUDIO_AfterUpdate()Dim infprelim As String
infprelim = Me.ESTUDIO.Column(1)
If Not IsNull(Me.INFORME) Then Me.INFORME = Me.INFORME & vbNewLine & infprelim Else Me.INFORME = infprelim End If End Sub |
Vale aclarar antes q nada, que soy un completo amateur en programacion. Lo q se lo aprendi haciendo esto, mirando el foro y algunos videos de youtube.
Lo que intente hacer con ese comando fue: Si el combobox no esta vacio, entonces que el cuadro de texto "INFORME" se igual a lo que ya tenia(para q no me borre nada previamente escrito), que agregue una nueva linea y que pegue lo que aparece en la columna 1(seria la columna con el preinforme).
Como veran, es algo muy burdo pero funciona.
Ahora, el problema:
El sistema funciona, si cambio la opcion del combobox pega el preinforme. PERO SOLO PEGA 255 caracteres!!! Eh ahi el problema y no se donde esta el error. en la tabla procedimientos esa columna esta como memo y esta guardado bien, pero cuando lo transfiere al cuadro de texto solo se copian 255 caracteres, dejandome el informe a la mitad.
Les pido ayuda para arreglar este entuerto, ya que no encuentro forma de hacerlo. Gracias!
|