I stara i nova šifra u MsgBox-u?

I stara i nova šifra u MsgBox-u? 15.08.2009. u 14:21 · pre 209 meseci #1

Opet ja :)

U jednoj subformi polje šifra artikla je postavljeno kao ComboBox. Korisnik ima pravo da bira šifre i vrši promenu stavki sa liste, ali da ne bi slučajno i neprimećeno to uradio, postavio sam na Before Update kontrolno pitanje:

Code:
Private Sub SIFRA_BeforeUpdate(Cancel As Integer)

Dim SID As String
Dim stLinkCriteria As String
Dim LResponse As Integer

SID = Me.SIFRA.Value
stLinkCriteria = "[SIFRA]=" & SID

LResponse = MsgBox("Promeni stavku u: " & SID, vbYesNo, "Promena?")
If LResponse = vbNo Then
DoCmd.CancelEvent
Me.Undo
End If

End Sub

E sad, mene zanima, kako da u MsgBox ubacim i naziv šifre koja se menja, pored one u koju se menja? Dakle da pitanje glasi:
Promeni stavku "Stara šifra" u "Nova šifra"?

Re: I stara i nova šifra u MsgBox-u? 15.08.2009. u 15:01 · pre 209 meseci #2

Code:
LResponse = MsgBox("Promeni stavku " & StaraSifra & " u: " & NovaSifra & "?", vbYesNo, "Promena?")

Potpis

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Re: I stara i nova šifra u MsgBox-u? 15.08.2009. u 15:07 · pre 209 meseci #3

Citat:

Scelle:

Code:
LResponse = MsgBox("Promeni stavku " & StaraSifra & " u: " & NovaSifra & "?", vbYesNo, "Promena?")

Hm, da. Ali meni treba vrednost za "StaraSifra" :) Ne znam kako da dođem do nje.

Re: I stara i nova šifra u MsgBox-u? 15.08.2009. u 15:44 · pre 209 meseci #4

Ubaci skriveni undbound textbox koji će da se zove txtStaraSifra i onda sledeći kod

Code:
Private Sub Form_Current()
txtStaraSifra = txtSifra
End Sub

Ako ne želiš da koristiš textbox, možeš koristiti promenljivu strStaraSifra, koju ćeš posle koristiti.

Potpis

Ozbiljan i odgovoran mladić

Re: I stara i nova šifra u MsgBox-u? 15.08.2009. u 16:01 · pre 209 meseci #5

Aaaaa, pa nisam te ja dobro razumio...

Probaj sa:

Code:
Sifra.OldValue

Evo ti link: http://msdn.microsoft.com/en-us/library/aa172955(office.11).aspx

Potpis

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Re: I stara i nova šifra u MsgBox-u? 15.08.2009. u 16:16 · pre 209 meseci #6

Citat:

Scelle: Probaj sa:

Code:
Sifra.OldValue

Da, da. To mu je to. Jednostavno i efikasno :)

Hvala!

Forum kao aplikacija na telefonu

Srodne teme