Koko poništit promjenu podataka!
Koji je od ova dva načina bolji,brži,pouzdaniji i zauzima manje mijesta!
Dali pomoću :
1Način:
Public function odustani()
Me![Adresa].Value = Me![Adresa].OldValue
Me![Broj_ptt].Value = Me![Broj_ptt].OldValue
Me![ziro].Value = Me![ziro].OldValue
Me![porezni_broj].Value = Me![porezni_broj].OldValue
Me![telefon].Value = Me![telefon].OldValue
End If
DoCmd.Close acForm, CurrentForm.Name, acSaveNo
End Function
2.Način
Ili pomoću naredbe accmdUndo
Public Function fodustani1()
DoCmd.RunCommand acCmdUndo
DoCmd.Close acForm, CurrentForm.Name, acSaveNo
End Function
Koji je od ova dva načina bolji,brži,pouzdaniji i zauzima manje mijesta!
Dali pomoću :
1Način:
Public function odustani()
Me![Adresa].Value = Me![Adresa].OldValue
Me![Broj_ptt].Value = Me![Broj_ptt].OldValue
Me![ziro].Value = Me![ziro].OldValue
Me![porezni_broj].Value = Me![porezni_broj].OldValue
Me![telefon].Value = Me![telefon].OldValue
End If
DoCmd.Close acForm, CurrentForm.Name, acSaveNo
End Function
2.Način
Ili pomoću naredbe accmdUndo
Public Function fodustani1()
DoCmd.RunCommand acCmdUndo
DoCmd.Close acForm, CurrentForm.Name, acSaveNo
End Function
Potpis
romano