Çàïóñê çàïðîñà íà äîáàâëåíèå ÷åðåç 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-