Ïÿòíèöà, 17 Àïðåëÿ 2015 ã. 14:02
+ â öèòàòíèê
Çäðàâñòâóéòå, óâàæàåìûå ôîðóì÷àíå!
Ïî íàæàòèþ êíîïêè îäèíî÷íîé ôîðìû äîëæíî çàïîëíèòñÿ ïîëå "ÊîäÏîòîìîê" îïðåäåëåííîé çàïèñè òàáëèöû "tdDog".
Èñòî÷íèê ôîðìû - òà æå ñàìàÿ òàáëèöà "tdDog" íî äðóãàÿ çàïèñü. Íàâåðíî îøèáêà â êîäå ïðîöåäóðû (ïðèâîæó íèæå). Çíàòîêè, ïîìîãèòå ïîæàëóéñòà:
Set connDog = CurrentProject.Connection
Set rstDog = New ADODB.Recordset
With rstDog
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM tdDog WHERE [Êîä]=" & [Forms]![fdDog]![ÊîäÐîäèòåëü], connDog
![ÊîäÏîòîìîê] = [Forms]![fdDog]![Êîä]
.Update
End With
rstDog.Close
Set rstDog = Nothing
Set connDog = Nothing
http://www.sql.ru/forum/1152639/oshibka-v-kode-ado
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-