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

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

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

 

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

 -Ñòàòèñòèêà

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


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


 

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

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

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

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