[es] - SQL upiti u VBA kodu pomoć

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

^{27.10.2009. u 08:39 - pre 176 meseci}

Pozdrav svima!

Molio bih za malu pomoć. Radim nekakvu aplikaciju u Access 2007 i sad mi je potrebno na formi u jedno polje da se automatski unosi nekakav broj iz registra koji se sastoji od 7 znamenaka. Kako se taj broj generira? Evo ovako: U posebnoj tablici Identifikatori je zapisan samo jedan redak koji sadrzi broj od 6 znamenaka (ime kolone je Identifikator). Ja bi trebao kroz vba kod uzeti tu vrijednost Identifikatora (i naravno pohraniti u neku varijablu), nakon toga povečati broj za 1 i pohraniti ga ponovno nazad u tablicu Identifikatori (zapravo napraviti update kolone Identifikator). E sad imam nekih problema kako "ugraditi" SQL naredbe SELECT i UPDATE u taj VBA kod da mi te vrijednosti koje dohvati spremi u neke varijable koje ću ja kasnije koristit u funkciji za izračun sedme kontrolne znamenke koju ću zaljepiti na taj šesteroznamenkasti broj i spremiti u formi u polje "broj iz registra".

I sad još skračeno, trebam da mi rezultat Query-a "Select Identifikator from Identifikatori" spremi u neku varijablu tipa Integer (to je jedan redak pa će uvijek taj select vratiti jednu vrijednost), te da mi napravi "UPDATE Identifikatori SET Identifikator = Identifikator_+_1" kroz vba kod.

Hvala.

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: SQL upiti u VBA kodu pomoć

^{27.10.2009. u 09:07 - pre 176 meseci}

možda ovako nekako?

Code:
select identifikator+1 from tablica

Odgovor na temu

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

Re: SQL upiti u VBA kodu pomoć

^{27.10.2009. u 09:16 - pre 176 meseci}

meni treba da rezultat tog selecta koji sam napisao pohrani u neku varijablu tipa Integer

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: SQL upiti u VBA kodu pomoć

^{27.10.2009. u 10:13 - pre 176 meseci}

Code:
select identifikator+1 as rezultat from tablica

Dim i as integer

'tu izvrši upit

i = query!rezultat

Odgovor na temu

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

Re: SQL upiti u VBA kodu pomoć

^{27.10.2009. u 11:25 - pre 176 meseci}

Dim MySQL As String
Dim Identifikator As Long
Dim rs As Recordset
Dim mdb As Database

MySQL = "SELECT Identifikator from Identifikatori"
Set mdb = CurrentDb
Set rs = mdb.OpenRecordset(MySQL)

Identifikator = rs!Identifikator

rs.Close
Set rs = Nothing

Ovo je rješenje :)

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.net.t-com.hr.

+8 Profil

Re: SQL upiti u VBA kodu pomoć

^{27.10.2009. u 16:03 - pre 176 meseci}

Najednostavnije ti je sa naredbama Dlookup ili Dmax

Znači ako želiš uzeti največi identifikator

najveci=Dmax("identifikator","tablicaidentifikator")

tu nema dileme, funkcija če uzeti največi identifikator iz tablice

ali ako želiš uzeti baš određeni identifikator onda dlookup

odredjeni=Dlookup("identifikator","tablicaidetifikator","identifikator=" & neki_identifikator_sa_tvoje forme)

još bi mogao dodati i funkciju NZ, pa ako ne postoji da ti u varijablu vrati ono sto ti upises

npr

najveci=NZ(Dmax("identifikator","tablicaidentifikator") , 0 )

ili

najveci=NZ(Dmax("identifikator","tablicaidentifikator") , 123456)

itd.....

Pozdrav

Odgovor na temu