SHARE
TWEET

Untitled

a guest Jun 15th, 2019 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub lstOwners_DblClick(Cancel As Integer)
  2. On Error GoTo lstOwners_DblClick_Err
  3.  
  4.     On Error Resume Next
  5.     If (Form.Dirty) Then
  6.         DoCmd.RunCommand acCmdSaveRecord
  7.     End If
  8.     If (MacroError.Number <> 0) Then
  9.         Beep
  10.         MsgBox MacroError.Description, vbOKOnly, ""
  11.         Exit Sub
  12.     End If
  13.     On Error GoTo 0
  14.     Exit Sub
  15.  
  16.     DoCmd.OpenForm "frmDockRental", acNormal, "", "", acFormAdd, acDialog, Me.lstOwners
  17.     DoCmd.Close acForm, Me.Name
  18.  
  19. lstOwners_DblClick_Exit:
  20.     Exit Sub
  21.  
  22. lstOwners_DblClick_Err:
  23.     MsgBox Error$
  24.     Resume lstOwners_DblClick_Exit
  25. End Sub
  26.      
  27. Private Sub Form_Load()
  28. On Error GoTo Form_Load_Err
  29.  
  30.     DoCmd.MoveSize , , 5.3 * 1440, 5.2 * 1440
  31. '    If (IsNull(OpenArgs)) Then
  32. '        Exit Sub
  33. '    End If
  34.     If Me.OpenArgs <> vbNullString Then
  35.         Me.cboOwner = Me.OpenArgs
  36.     End If
  37.     If (Not IsNull(OpenArgs)) Then
  38.         DoCmd.GoToRecord , "", acNewRec
  39.     End If
  40.  
  41. Form_Load_Exit:
  42.     Exit Sub
  43.  
  44. Form_Load_Err:
  45.     MsgBox Error$
  46.     Resume Form_Load_Exit
  47. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top