-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


, 10 2014 . 16:15 +

, Access VBA ))

:
| | | |
-------------------------------
| | 65551 | 1 |
| | 55377 | 2 |

dubleclick 1 1, 2 2

:
Private Sub _DblClick(Cancel As Integer)
On Error GoTo Err__DblClick
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocNameA = ""
    stDocNameV = ""
    stLinkCriteria = "[]=" & Me![] & ""
    
    If (Forms![ ]![] = "") Then
        DoCmd.OpenForm stDocNameA, , , stLinkCriteria
    Else
    If (Forms![ ]![] = "  ") Then
        DoCmd.OpenForm stDocNameV, , , stLinkCriteria

End If
End If
Exit__DblClick:
    Exit Sub
 
Err__DblClick:
    MsgBox Err.Description
    Resume Exit__DblClick
End Sub


If , ))
If-??

http://www.sql.ru/forum/1099566/otkrytie-formy-po-usloviu


: [1] []
 

:
: 

: ( )

:

  URL