Îòêðûòèå Ôîðìû ïî óñëîâèþ
|
|
Âòîðíèê, 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-