Centar za edukaciju-BiH

Predmet:Kopiranje sa forme u tabelu

---

evo jedan problem da li se može sa forme kopirati više podataka u tabelu

ovako kao na slici

pozdrav

Slicice prilozenih slika:

Predmet:Re: Kopiranje sa forme u tabelu

---

Kako izgleda forma? Na osnovu cega odredjujes koji podatak u koji red?
U opstem slucaju kod glasi

DoCmd.RunSQL UPDATE <ImeTabele> SET <ImePolja> = <me.ControlasaVrednoscu> WHERE (uslov)

Predmet:Re: Kopiranje sa forme u tabelu

---

evo primjer kako bi trebalo da ide

pozdrav

Prilozi:

Predmet:Re: Kopiranje sa forme u tabelu

---

Ovo izgleda dosta konfuzno. Možda da malo oblasniš koji je tvoj zapravo zadatak i što trebš uraditi.
Možda za to postoji neko elegantnije riješenje.

---

Predmet:Re: Kopiranje sa forme u tabelu

---

To za prvi record, a za drugi pretpostavljem kolona 5 od rednog broja 022 pa na dole?
Tabelu iz koje popunjavas vec imas popunjenu?

Ukoliko je tabela Table1 vec popunjena onda bi najefikasnije bilo napisati kod koji ce u jednom prolazu
kroz celu tabelu Table1 popuniti tabelu proba.

Ukoliko u tabeli Table1 jos nemas podatke savetovao bih ti potpuni redizajn baze, vec prema procesu koji baza opisuje.

Predmet:Re: Kopiranje sa forme u tabelu

---

tabela1 je sa fiksnim podacima i ona će biti linkovana na excel sheet

e sad bi trebalo sa forme određene podatke upisati u tabelu1

primjer

u kolonu 5 pod rednim brojem 001 upisati text1 sa forme
u kolonu 5 pod rednim brojem 002 upisati text2
...
i tako do rednog broja 067

onda kolona 6 pod rednim brojem 001 upisati text 3
...
i tako sve do kolone 8

podaci sa forme koji se čitaju su u jednom redu

to bi bilo to jest malo zamršeno
probaću nešto da uradim pomoću querija

pozdrav

Predmet:Re: Kopiranje sa forme u tabelu

---

Mozda je jednostavnije to preslaganje uraditi u Excelu. Treba naci matematicko pravilo po kome se celije "prepakuju"

Predmet:Re: Kopiranje sa forme u tabelu

---

Evo ti jedno riješenje

1. Textbox nazovi ( ja sam u svojoj funkciji ) ex001 ,ex002 ,ex003 ,
znaši naziv boxa je ex001 a izvor podataka je KB010
i tako za svaki texbox koji želiš da se ažurira

onda napravi button i smjest na click

Dim ctl As Control
Dim SQLST As String, FILT As String

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
FILT = Right(ctl.Name, Len(ctl.Name) - 2)
If Left(ctl.Name, 2) = "ex" Then
SQLST = "UPDATE Table1 SET Table1.[kolona 5] =" & ctl & " WHERE (((Table1.[kolona 4])=" & """" & FILT & """" & "));"
DoCmd.RunSQL SQLST

End If
End If
Next ctl

I uživaj