Ako ovakav zahtev
Citat:
gagacar: Pozdrav,
Dobio sam novi cenovnik u excelu i treba da importujem nove cene na osnovu sifre, a da ostala polja: naziv, opis ied. ostanu nepromenjena.
imaš samo sada (ili vrlo retko ) tj.samo si ti taj koji treba da menja cene onda ti je Srbin do jaja dao odgovor.Naime prvo linkuješ tu excel tabelu u bazu.Zatim odradiš sledeći upit:
Code:
INSERT INTO tblRoba( Sifra, Naziv, JM,Cena )
SELECT linkExceltabela.Sifra,linkExceltabela.Cena
FROM linkExceltabela;
To je najprostiji update query.Druga je stvar ako često treba da menjaš cene.Onda sve ovo odradiš gore i na formi dodaš komandno dugme sa sledećim kodom:
Code:
Private Sub cmdazuriranjeart_Click()
On Error GoTo Err_cmdazuriranjeart_Click
DoCmd.SetWarnings False
Dim stDocName As String
Dim strMsg As String
stDocName = "qrydodavanjeart"
strMsg = "AŽURIRANJE ARTIKALA. "
strMsg = strMsg & " DA LI ŽELITE DA AŽURIRATE ARTIKLE? "
If MsgBox(strMsg, vbExclamation + vbYesNo, "AŽURIRATI!!") = vbYes Then
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "GOTOVO", vbOKOnly, "AŽURIRANJE ZAVRŠENO"
Else
MsgBox " RADNJA OTKAZANA OD STRANE KORISNIKA,PODACI NEĆE BITI AŽURIRANI!", vbCritical, "PREKID OPERACIJE"
End If
Exit_cmdazuriranjeart_Click:
Exit Sub
Err_cmdazuriranjeart_Click:
MsgBox Err.Description
Resume Exit_cmdazuriranjeart_Click
End Sub
I to je to.
E,sad postoji i još jedan momenat:šta ako je dodat novi artikal.Onda odradiš append query
Code:
INSERT INTO tblRoba ( Sifra, Naziv, JM, Cena )
SELECT linkExceltabela.Sifra, linkExceltabela.Naziv, linkExceltabela.JM, linkExceltabela.cena
FROM linkExceltabela;
Nadam se da sam ti pomogao.
Potpis
Jednog dana...