Hi,
I have an open form with buttons to open other forms and use an If statement to position them an example is below.
This works perfectly, however I need to put similar code as a line in a macro and cannot seem to link it.
I get Error 438 object doesn't support this property or method
I have an open form with buttons to open other forms and use an If statement to position them an example is below.
Code:
Private Sub Command31_Click()
DoCmd.OpenForm "Opener", acNormal
If Me.Frame54 = 1 Then
DoCmd.MoveSize 2500, 1000
ElseIf Me.Frame54 = 2 Then
DoCmd.MoveSize 25500, 1000
End If
End Sub
Code:
Public Function totalmove()
If Forms.Scan_Data.Frame54 = 1 Then
DoCmd.MoveSize 2500, 1000
ElseIf Forms.Scan_Data.Frame54 = 2 Then
DoCmd.MoveSize 24000, 1000
End If
End Function