Na formi imam kod koji savršeno funkcioniše, osim u onom delu da se u message boxu mora koristiti ošišana latinica, a ono što je meni potrebno – ćirilica, nikako ne može. Zbog toga bih hteo da vbYesNo zamenim jednom dijalog formom , čiji bi naziv bio npr. “frmDialogBoxes” na kojoj bih mogao pisati i normalnom latinicom i ćirilicom, što nije problem napraviti, ali kako bi onda trebalo da izgleda ovaj kod, odnosno - šta je još potrebno uraditi?
Kod je sledeći:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Odgovor As Integer
Odgovor = MsgBox("Zapisivanje promene?", vbYesNo, "Promena!")
If Odgovor = 6 And IsNull(Dat_vr) Then
Status = "2"
Exit Sub
ElseIf Odgovor = 6 And Dat_vr <> "" Then
Status = "1"
Else
Cancel = True
Me.Undo
End If
End Sub