Êàê âñòàâèòü â ïîëÿ íà ôîðìå, äàííûå èç òàáëèöû?
|
|
Âîñêðåñåíüå, 10 Äåêàáðÿ 2017 ã. 09:00
+ â öèòàòíèê
Äîáðîå âðåìÿ ñóòîê âñåì! Ëþäè ãîëîâó ñëîìàë óæå! Êàçàëîñü áû ïðîñòåéøåå çàäàíèå à ïîáîðîòü íå ìîãó!
Åñòü ôîðìà íà íåé 4 òåêñòîâûõ ïîëÿ è îäíà êíîïêà
Åñòü òàáëèöà ñ äâóìÿ ïîëÿìè 1 ïîëå - äàòà, 2 ïîëå ÷èñëîâîé, ïóñòü îíà íàçûâàåòñÿ Table2
Íà ôîðìå
Ââîäèìûå:
Òåêñòîâîå ïîëå 1 = Òåêóùàÿ äàòà
Òåêñòîâîå ïîëå 2 = ââîäèìàÿ öèôðà
Òîëüêî ïðîñìîòð:
Òåêñòîâîå ïîëå 3 (òîëüêî ïðîñìîòð)
Òåêñòîâîå ïîëå 4 (òîëüêî ïðîñìîòð)
Ïðè íàæàòèè êíîïêè, VBA îòïðàâëÿåò äàííûå èç òåêñòîâûõ ïîëåé 1 è 2 â òàáëèöó
êàê ñäåëàòü òàê ÷òîáû ïîñëåäíÿÿ ââåäåííàÿ ñòðîêà èç òàáëèöû ñðàçó âûâîäèëàñü íà ôîðìó â òåêñòîâîå ïîëå 3 (äàòà) È òåêñòîâîå ïîëå 4 (ââåäåííûå äàííûå) (òêñêñòü äëÿ êîíòðîëÿ ââåäåííîãî)
Ïî íàæàòèþ êíîïêè ÎÊ èç Òåêñòîâûõ ïîëåé 1 è 2 äàííûå ïàäàþò â Table2
Ñîáûòèå ïî íàæàòèþ êíîïêè:
Private Sub Ok_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table2", dbOpenDynaset)
rs.AddNew
rs!Äàòà = Me!Òåêñòîâîåïîëå1
rs!×èñëî = Me!Òåêñòîâîåïîëå2
rs.Update
rs.Close
Set rs = Nothing
End Sub
êàê òåïåðü Òåêñòîâîìóïîëþ 3 è 4 ïðèñâîèòü çíà÷åíèå ïîñëåäíåé ââåäåííîé çàïèñè èç Table2
http://www.sql.ru/forum/1279641/kak-vstavit-v-polya-na-forme-dannye-iz-tablicy
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-