|
Тема |
Re: Ъпдейт на таблица в Аксес [re: Sgromolenko] |
|
Автор | ju (Нерегистриран) | |
Публикувано | 06.02.07 08:29 |
|
|
това е лесно:)
Sub UpdateDostavka()
Dim DB As Database
Dim R As Recordset
Dim RUp As Recordset
Set DB = CurrentDb
Set R = DB.OpenRecordset("Dostavka")
Do Until R.EOF
Set RUp = DB.OpenRecordset("SELECT [skladova nalichnost].KatalojenNomer, [skladova nalichnost].Broj " & _
" FROM [skladova nalichnost] WHERE [skladova nalichnost].KatalojenNomer= '" & R!KatalojenNomer & "';")
If RUp.RecordCount > 0 Then
RUp.Edit
RUp!Broj = RUp!Broj + R!Broj
RUp.Update
RUp.Close
Else
RUp.AddNew
RUp!KatalojenNomer = R!KatalojenNomer
RUp!Broj = R!Broj
RUp.Update
RUp.Close
End If
R.MoveNext
Loop
R.Close
End Sub
|
| |
|
|
|