, 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