Ïåðåõîä íà îïðåäåëåííóþ çàïèñü òàáëè÷íîé ôîðìû
|
|
×åòâåðã, 04 Äåêàáðÿ 2014 ã. 10:41
+ â öèòàòíèê
Âñåì äîáðîãî âðåìåíè ñóòîê!
Çàäà÷à: çíàåì ÔÈÎ ñîòðóäíèêà, íåîáõîäèìî íàéòè ôèðìó ãäå îí ðàáîòàåò.
×òî èìååì:ãëàâíàÿ ôîðìà "forma_meny" íà íåé ëåæèò ïîä÷èíåííàÿ òàáëè÷íàÿ ôîðìà "klient" (ïîëå äëÿ ñâÿçè "kod_cl"-êîä ôèðìû) â êîòîðîé îòîáðàæåí ñïèñîê îðãàíèçàöèé. Íà ôîðìå "forma_meny" èìååòñÿ ïîëå "poisk" êóäà ââîäèì ÔÈÎ ñîòðóäíèêà (ê ïðèìåðó "Èâàíîâ") ïî êîòîðîìó íåîáõîäèìî âûïîëíèòü ïîèñê, äàëåå ïî íàæàòèþ êíîïêè ó íàñ îòêðûâàåòñÿ íîâàÿ òàáëè÷íàÿ ôîðìà ("client_FAM", ïîëå äëÿ ñâÿçè "kod_cl") ñî ñïèñêîì âñåõ "Èâàíîâûõ" â ÁÄ, è ê êàæäîìó èç íèõ çàêðåïëåí êîä ôèðìû ãäå îíè ðàáîòàþò ("kod_cl"). Íàõîäèì íóæíîãî íàì "Èâàíîâà" è ïî ñîáûòèþ DblClick íóæíî çàêðûòü ôîðìó "client_FAM" à â ôîðìå [Forms]![forma_meny]![klient] óñòàíîâèòü êóðñîð íà òó çàïèñü "kod_cl" êîòîðàÿ áóäåò ñîîòâåòñòâîâàòü êîäó êëèåíòà èç ôîðìû "client_FAM".
Ïîïûòêè ðåàëèçàöèè:
Private Sub FAM_DblClick(Cancel As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Top 1 kod_cl FROM slv_client WHERE kod_cl=" + Me.kod_cl)
Forms.Forma_meny.klient.Form.Recordset.FindFirst "kod_cl=" + [Forms]![client_FAM]![kod_cl]
DoCmd.Close acFormDS, "client_FAM"
End Sub
âûäàåò îøèáêó òèïà.
×òî íå òàê ÿ äåëàþ, èëè åñòü äðóãîé ñïîñîá ðåàëèçîâàòü äàííûé âîïðîñ?
http://www.sql.ru/forum/1130461/perehod-na-opredelennuu-zapis-tablichnoy-formy
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-