Run time error 2450 - Only passing data between forms based on a value ..

[jcagrove]

On a specific value on a drop down, I want to pop open a new form and pass through values from the previous screen - I am getting the 2450 error as the form only pops on the valid value, therefore if the form doesn't open, then I get the error as it is still trying to pass the values. Do I need to put in some more code? I have the following at the moment, but don't know if I need an if and else statement? To stop it from trying to pass through the values if the specific value isn't chosen ...

Private Sub Reason_AfterUpdate()
If Me.Reason = "1" Then DoCmd.OpenForm "Vaccinations", , , , acFormAdd
    Forms!Vaccinations.Horse_Vaccinated = Me.Related_Horse
    Forms!Vaccinations.Date_of_Last_Vaccination = Me.Interaction_Date
End Sub

Thanks!

Julie

[missinglinq]

I suspect your problem is caused because you have no End IF for your If...Then! If you did, and placed it after passing the values, they wouldn't be passed unless the condition was met and the form Vaccinations opened. Try

Private Sub Reason_AfterUpdate()
If Me.Reason = "1" Then 
    DoCmd.OpenForm "Vaccinations", , , , acFormAdd
    Forms!Vaccinations.Horse_Vaccinated = Me.Related_Horse
    Forms!Vaccinations.Date_of_Last_Vaccination = Me.Interaction_Date
 End If
End Sub

and see what happens.

Welcome to Bytes!

Linq ;0)>

[jcagrove]

Thank you, Thank you, Thank you!!!! It worked perfectly!!! I knew it was probably something easy and obvious! J