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

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Êàê âñòàâèòü â ïîëÿ íà ôîðìå, äàííûå èç òàáëèöû?

Âîñêðåñåíüå, 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


 

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

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

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

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