Access y vba
Hola asturcon3. Tengo un problema con mi formulario. Quiero que al apretar un botón me aparezca el mismo formulario pero según la condición que he puesto. Creo que este código esta bien, pero me da error y no consigo localizarlo, ¿me ayudas un momento?Gracies!
Private Sub BUSCAR_Click()
On Error GoTo Err_BUSCAR_Click
Dim nombreDoc As String
nombreDoc = "ficha"
'Abre los registros que coincidan con la UTS introducida
DoCmd.OpenForm nombreDoc, , , "[Derivacion por Uts]=Derivacion por Uts.text" 'Primera derivacion 'es el 'campo 'de la tabla
'Seguna derivacion:aparece
' una ventanita y te pide datos
Exit_BUSCAR_Click:
Exit Sub
Err_BUSCAR_Click:
MsgBox Err.Description
Resume Exit_BUSCAR_Click
End Sub
Private Sub BUSCAR_Click()
On Error GoTo Err_BUSCAR_Click
Dim nombreDoc As String
nombreDoc = "ficha"
'Abre los registros que coincidan con la UTS introducida
DoCmd.OpenForm nombreDoc, , , "[Derivacion por Uts]=Derivacion por Uts.text" 'Primera derivacion 'es el 'campo 'de la tabla
'Seguna derivacion:aparece
' una ventanita y te pide datos
Exit_BUSCAR_Click:
Exit Sub
Err_BUSCAR_Click:
MsgBox Err.Description
Resume Exit_BUSCAR_Click
End Sub
1 Respuesta
Respuesta de asturcon3
1
Pues la verdad es que no tengo ni idea de lo que estás haciendo, pero puestos a suponer y siendo posiblemente que me equivoque soberanamente, donde pones
"[Derivacion por Uts]=Derivacion por Uts.text"
reemplazalo por
"[Derivacion por Uts]"=me("Derivacion por Uts" )
Y prueba a ver.
En caso de que esto no te valga de nada, para localizar el error comenta (con apostrofe al principio) la lí nea del On error goto err_buscar para ver dónde se produce exactamente y me lo cuentas.
Suerte...
"[Derivacion por Uts]=Derivacion por Uts.text"
reemplazalo por
"[Derivacion por Uts]"=me("Derivacion por Uts" )
Y prueba a ver.
En caso de que esto no te valga de nada, para localizar el error comenta (con apostrofe al principio) la lí nea del On error goto err_buscar para ver dónde se produce exactamente y me lo cuentas.
Suerte...
