Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych

[lobotomia666]

Próbuje stworzyć w oddzielnym arkuszu bazę danych składającą się z produktów i ich cen, w drugim arkuszu chciałbym stworzyć ramkę która ma liczyć sumę
produktów korzystając z tejże bazy.
Chciałbym żeby po wpisaniu nazwy produktu, w komórce obok pokazywała się jego cena oraz żeby tworzył się nowy wiersz w ramce do wpisania kolejnego
produktu.
Jest to mój pierwszy kontakt z OpenOffice i tego typu bazą danych, nie mam pojęcia jak to ugryźć.

Dziękuję za pomoc

[mg2]

To zadanie do zrobienia w module bazodanowym a to jest dział arkuszy kalkulacyjnych.

Na początek utwórz pustą bazę danych i wstaw tabelę "produkty" z kolumnami: "produkt", "cena", "ilość" i kluczem głównym. Potem trzeba zrobić kwerendę liczącą "wartość" i na podstawie tej kwerendy przygotować formularz.

W tym wątku masz plik dokładnie z czymś takim
http://user.services.openoffice.org/pl/ ... f=13&t=340

PS

A może o coś takiego chodziło?
(+ zał.)

Kod: Zaznacz cały

option explicit


'====================
sub do_rachunku

dim dok as object
dim ark as object
dim kom_wybr_towar as object
dim kom_wybr_cena as object
dim kom_rach_towar as object
dim kom_rach_cena as object
dim kom_ilosc_zakup as object
dim towar as string
dim cena as double
dim ilosc_zakup as long
dim kom_sum as object
dim sum as integer

'dok = starDesktop.thisComponent
ark = thisComponent.Sheets(0)

kom_sum = ark.getCellByPosition(8,0)
kom_ilosc_zakup = ark.getCellByPosition(8,1)
sum = kom_sum.value
if sum = 0 then
 ilosc_zakup = 0
 else ilosc_zakup = kom_ilosc_zakup.value
end if

kom_rach_towar = ark.getCellByPosition(3,1)
kom_rach_cena = ark.getCellByPosition(4,1)
towar = kom_rach_towar.string
cena = kom_rach_cena.value

kom_rach_towar = ark.getCellByPosition(7,ilosc_zakup+3)
kom_rach_cena = ark.getCellByPosition(8,ilosc_zakup+3)
kom_rach_towar.string = towar
kom_rach_cena.value = cena

ilosc_zakup = ilosc_zakup + 1
kom_ilosc_zakup.value = ilosc_zakup

end sub
'=====================
sub skasuj

dim dok as object
dim ark as object
dim kom_rach_towar as object
dim kom_rach_cena as object
dim kom_ilosc_zakup as object
dim ilosc_zakup as long

'dok = starDesktop.thisComponent
ark = thisComponent.Sheets(0)

kom_ilosc_zakup = ark.getCellByPosition(8,1)

for ilosc_zakup = kom_ilosc_zakup.value to 0 step -1
 kom_rach_towar = ark.getCellByPosition(7,ilosc_zakup+3)
 kom_rach_cena = ark.getCellByPosition(8,ilosc_zakup+3)
 kom_rach_towar.string = ""
 kom_rach_cena.string = ""
next ilosc_zakup

kom_ilosc_zakup.value = 0

end sub
'=======================