Access: Si të bëj "update" tabelën nga fusha "Unbound"?

[little-boy]

Pershendetje,
kam nje tabel ne Access (tblMalli qe ka fushen Sasia) nga kjo tabel kam krijuar nje form ku munde ti bej Dalje ketij malli, ne form kam krijuar dy fusha "Unbound" (txtDalje dhe txtMbetja) ne txtMbetja kam shkruar (=[Sasia]-[txtDalje]) si ka mundesi qe permes nje buttoni qe vleren e "txtMbetja" ta fus ne tabelen "tblMalli" perkatesisht ne Fushen "Sasia"

Shpresoj qe kam qen i kjart

Faliminderit

[hot_prinz]

nese te kam kuptuar mire, deshiron te aktualizosh fushen sasia pas nje zbritje te dy fushave "unbond" ne forme. Ne proceduren e klikimit te nje butoni te krijuar vendos urdherin SQL per te aktualizuar nje rekord ne databaze "UPDATE [tabelenTime] SET [fushen e databazes] = [vlera e txtMbetja] WHERE [fusha e emrit te mallit] = [emri i mallit = psh. 'Domate']".

Krijo nje buton me emrin "butoniIm" dhe te procedura e klikimit vendos kodin:

Private Sub butoniIm_Click()

    CurrentDb.Execute ("UPDATE tblMalli SET Sasia =  " & txtMbetja.Value & _
                    "  WHERE ((tblMalli.Malli) = 'Domate')")
    
End Sub 

[little-boy]

Hot_Priz, e vlersoj shum perpjekjen tende.
provoma kodin siq me sygjerove mirpo nuk ja dola; po te beje nje attachment(screenshot) mos po e kupton me leht problemin tim

Faliminderit

[hot_prinz]

fotografia e bashkangjitur nuk mund te lexohet mire edhe emrat intern te objekteve per butonin dhe fushen ku gjindet numri i depos nuk jane te dhene. Ok po filloj te sqaroj, kodin per sqarim po e fus ne thonjeza:

"Private Sub butoniIm_Click()" - procedura e klikimit te butonit, ndrro "butoniIM" me emrin [Name] te butonit tend.

"CurrentDb.Execute" - ekzekutojme nje urdher SQL ne databazen aktuale.

"UPDATE tblMalli" - aktualizojme tabelen tblMalli, tblMalli e ndrron me emrin e tabeles tende si mund te shof quhet "Inventory".

"SET Sasia = " & txtMbetja.Value" - vendos vleren e fushes me emrin txtMbetja ne fushen Sasia te databazes, txtMbetja.Value e ndrron me emrin e fushes ku gjindet numri i depos dhe i shton .Value per vleren e saj.

"WHERE ((tblMalli.Malli) = 'Domate')"" = ne rekordet e databazes ku vlera e fushes Malli ne tabele eshte i barabarte me Domate/Kikirika ne tabelen tende.

Private Sub "ketu vendos emrin e butonit tend"_Click() 

    CurrentDb.Execute ("UPDATE Inventory SET Inv_Qty =  " & "ketu vendos emrin e fushes".Value & _
                                       "  WHERE ((Inventory.Description) = '" & "ketu vendos emrin e fushes ku gjindet pershkrimi Kikirika".Value &"')") 
     
End Sub 

[hot_prinz]

tani e verejta se nuk deshiron pershkrimin [Description], por fushen [Item] ne sekuencen WHERE:

Private Sub butoniIm_Click() 

    CurrentDb.Execute ("UPDATE Inventory SET Inv_Qty =  " & txtDepo.Value & _ 
 "  WHERE ((Inventory.Item) = '" & txtItem.Value &"')")
      
End Sub 

butoniIm, txtDepo dhe txtItem duhet te ndrrohen me emrin e objekteve ne formen tende.
Ky kod funksionon sepse enkas per pyetjen tende e kam ndertu nje databaze te thjeshte dhe e kam testuar kodin.
Nese ke probleme me implementim dhe deshiron, mund te ma dergosh databazen me e-mail dhe do ta ndryshoj per ty!

[little-boy]

hot_prinz, Te faliminderoj shum

Tema Mbyllet ketu


Gezuar Vitin e Ri 2009