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

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

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

 

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

 -Ñòàòèñòèêà

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


Çàïóñê çàïðîñà íà äîáàâëåíèå ÷åðåç VBA

Âòîðíèê, 18 Àâãóñòà 2015 ã. 17:47 + â öèòàòíèê
Äîáðûé äåíü!
Äîëãî èñêàë îòâåò íà âîïðîñ íî òàê è íå íàøåë.

Äàíî:
Access 2010
ÁÄ
 ÁÄ äâå òàáëèöû- Òàá1 è Òàá2
â ÁÄ åñòü çàïðîñ íà äîáàâëåíèå, êîòîðûé äîëæåí âûçûâàòüñÿ íàæàòèåì êíîïêè â ôîðìå.È äîáàâëÿåò ýòîò çàïðîñ âñå çàïèñè èç Òàá1 â Òàá2 îñíîâûâàÿñü íà ïàðàìåòðå, êîòîðûé áåðåòñÿ èç òîé æå ôîðìû èç òåêñòîâîãî ïîëÿ.

Âîïðîñ:
Åñëè îòêðûòü äàííóþ ôîðìó è çàïóñòèòü äàííûé çàïðîñ íå íàæàòèåì êíîïêè, à íåïîñðåäñòâåííî êëèêíóâ ïî çàïðîñó, òî âñå ðàáîòàåò. Åñëè æå â îáðàáîòêå íàæàòèÿ êíîïêè íàïèñàòü:
DoCmd.OpenQuery "Çàïðîñ1"

òî äàííûå íå äîáàâëÿþòñÿ, ðóãàÿñü ÷òî "Ïðèëîæåíèþ "Microsoft access" íå óäàåòñÿ äîáàâèòü âñå äàííûå â çàïðîñå íà äîáàâëåíèå..." è äàëåå ïî òåêñòó.
Åñëè æå ïîéòè äðóãèì ïóòåì è íà êíîïêó ïîâåñèòü ñëåäóþùåå:
Dim q As DAO.QueryDef, p As DAO.Parameter
  Set q = CurrentDb.QueryDefs("Çàïðîñ1") 
  For Each p In q.Parameters
    p.Value = Eval(p.Name)
  Next
  q.Execute
  q.Close: Set q = Nothing

òî íå ïðîèñõîäèò ðîâíûì ñ÷åòîì íè÷åãî - íèêàêèõ îøèáîê, íèêàêèõ äîáàâëåíèé äàííûõ...
Îãîâîðþñü, ÷òî ÿ â ýòîì äåëå íå ñèëåí è ðàíüøå VBAøèë íåìíîãî ïîä Excel è âñå. Òàê ÷òî ïðîøó ïîìîùè è íå ñóäèòå ñòðîãî åñëè î÷åâèäíûõ âåùåé íå âèæó/íå çíàþ. Çàðàíåå ñïàñèáî

http://www.sql.ru/forum/1171365/zapusk-zaprosa-na-dobavlenie-cherez-vba


 

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

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

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

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