[es] - Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

steve87
Beograd

Član broj: 154630
Poruke: 36
*.cpe.vektor.net.

+9 Profil

Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{03.02.2013. u 21:10 - pre 136 meseci}

Imam kod

Code:
Private Sub Izmena_Click()
If IsNull(Me.staribod) Or Me.staribod = "" Or Me.staribod = 0 Then
MsgBox "Molim vas unesite STARI bod.", vbInformation, "Greška"
Me.staribod.SetFocus
Exit Sub
Else

If IsNull(Me.novibod) Or Me.novibod = "" Or Me.novibod = 0 Then
MsgBox "Molim vas unesite NOVI bod.", vbInformation, "Greška"
Me.novibod.SetFocus
Exit Sub

End If
End If

DoCmd.SetWarnings False
DoCmd.OpenQuery ("izmena")
DoCmd.SetWarnings True

On Error GoTo Err_izmena_Click

MsgBox "Uspešno ste izmenili bazu.", vbInformation, "Uspešno"
Me.staribod = 0
Me.novibod = 0

Exit_izmena_Click:
    Exit Sub

Err_izmena_Click:
    MsgBox Err.Description
    Resume Exit_izmena_Click

End Sub

Zanima me da li može da se pokaze poruka koliko je rekorda izmenjeno kada se izvrši query izmena?

Odgovor na temu

a_pecaros

Član broj: 15329
Poruke: 3
*.dsl.bell.ca.

+1 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{04.02.2013. u 00:07 - pre 136 meseci}

Citat:

Zanima me da li može da se pokaze poruka koliko je rekorda izmenjeno kada se izvrši query izmena?

Moze, ali malo drugacije. Umesto docmd.OpenQuery treba da uradis otprilike ovako

Code:

Function ExecuteUpdateQuery() As Long

Dim db As DAO.Database

Set db = CurrentDb

db.Execute "Izmena", dbFailOnError

ExecuteUpdateQuery = db.RecordsAffected

End Function

Odgovor na temu

steve87
Beograd

Član broj: 154630
Poruke: 36
*.cpe.vektor.net.

+9 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{04.02.2013. u 00:48 - pre 136 meseci}

Gde da ubacim kod? kada ga stavim umesto docmd izbacuje mi gresku.

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{04.02.2013. u 06:13 - pre 136 meseci}

Kolega ti je napisao funkciju. Ona mora da se pozove. U ovom slučaju bez parametara. Recimo ovako:

Code:

Private Sub IzmeniZapise_Click()
ExecuteUpdateQuery
End Sub

Mada, kad pogledam tvoj kod, možeš da obrišeš naredbu DoCmd.SetWarnings False I DoCmd.SetWarnings True, te će ti Access prijaviti koliko će zapisa biti izmenjeno, jer savki akcioni query to radi.

_{[Ovu poruku je menjao Getsbi dana 04.02.2013. u 07:40 GMT+1]}

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

steve87
Beograd

Član broj: 154630
Poruke: 36
*.adsl.verat.net.

+9 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{07.02.2013. u 23:47 - pre 136 meseci}

A kako da se prikaze custom poruka na srpskom?

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427

+19 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{08.02.2013. u 08:10 - pre 136 meseci}

On 8.2.2013 0:47, "steve87" wrote:

Citat:

A kako da se prikaze custom poruka na srpskom?
--
http://www.elitesecurity.org/p3246931

Pročitaj o vrsti zaključavanja podataka i njihova primena na formama.
Sasvi solidno je objašnjeno u kjizi Access 2003 za programere, izdanje
Mikro knjiga. Verujem da ima i drugih knjiga u kojima možeš to da
pročitaš. I nije samo jedna funkcija.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.187.*

Sajt: www.icentar.ba

+2 Profil

Re: Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

^{08.02.2013. u 08:50 - pre 136 meseci}

Code:
Function UPDD()
Dim Db As Database
Dim Q As QueryDef
Dim R As Integer

Set Db = CurrentDb()
Set Q = Db.QueryDefs("izmena")
Q.Execute
R = Q.RecordsAffected
MsgBox "Obrađeno " & R & " Redova"
End Function

zxz

Odgovor na temu