-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó