Recordset è ïîëå ñî ñïèñêîì
|
|
Ñóááîòà, 29 Àïðåëÿ 2017 ã. 08:12
+ â öèòàòíèê
Äîáðûé äåíü!
Çàäà÷à ñîõðàíèòü íîâóþ çàïèñü â òàáëèöó "êëèåíòû".
Ïîëå ñî ñïèñêîì "Me.Êóðñû" èìååò íåñêîëüêî çíà÷åíèé, ðîâíî òàê æå êàê "rs![Êóðñû]".
Íî! ïðè ñîõðàíåíèè âûäàåò "Îøèáêà ïðåîáðàçîâàíèÿ òèï äàííûõ"
ÂÎÏÐÎÑ: êàê èñïîëüçóÿ Recordset ñîõðàíèòü çàïèñü äàííûå èç ïîëÿ Me.Êóðñû â òàáëèöó?
Ìîæåò åñòü åùå êàêîé ìåòîä.
Private Sub ÑîõðàíèòüÊëèåíòûNew_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Êëèåíòû")
rs.AddNew
rs![ÔÈÎ ðåáåíêà] = Me.ÔÈÎ_ðåáåíêà
rs![Êóðñû] = Me.Êóðñû
rs.Update
MsgBox ("Çàíÿòèå óñïåøíî ñîõðàíåíî!")
End Sub
http://www.sql.ru/forum/1258739/recordset-i-pole-so-spiskom
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-