I stara i nova šifra u MsgBox-u?

[ smal @ 15.08.2009. 13:21 ] @

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"?

[ Scelle @ 15.08.2009. 14:01 ] @

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

[ smal @ 15.08.2009. 14:07 ] @

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.

[ domaci_a_nas @ 15.08.2009. 14:44 ] @

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.

[ Scelle @ 15.08.2009. 15:01 ] @

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

[ smal @ 15.08.2009. 15:16 ] @

Citat:

Scelle: Probaj sa:

Code:
Sifra.OldValue

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

Hvala!