Kaydetmede ki Dongu sorunu

1 2

Sayın subco;
Formunuzun kodlarında Command118 nolu komut tuşunun kodlarını aşağıdaki şekilde yapınız.

Private Sub Command118_Click()

If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Else

    Me.Undo

End If

   DoCmd.Close

   DoCmd.OpenForm "FRM_MAIN"



Exit_Command118_Click:

    Exit Sub



Err_Command118_Click:

    'MsgBox Err.Description

    Resume Exit_Command118_Click

    

End Sub

İyi çalışmalar.

cok tesekkur ederim Sn.Hayri16

Sorunum cozuldu.

Elleinize saglik

kolay gelsin

Saygilar

Subco

1 2