Siz eklediğiniz resimden birşey anlayabiliyor musunuz?

(19/06/2018, 13:11)ozanakkaya yazdı: Siz eklediğiniz resimden birşey anlayabiliyor musunuz?

Nasıl yani? ekranın resmini çekip, yükledim, ben de herhangi bir sıkıntı gözükmüyor.
o halde aşağıya yazıyorum ifadeyi.


"The Expression On Current you entered as the event property setting produced the following error: A problem occured while Microsoft Access was communicating with the OLE server or Active X Control

Merhaba, siz basit bir örnek uygulama ekleyin, eklediğiniz uygulamayı düzenleyelim.

(19/06/2018, 14:48)ozanakkaya yazdı: Merhaba, siz basit bir örnek uygulama ekleyin, eklediğiniz uygulamayı düzenleyelim.

ufak birşey yazdım, ektedir.
prog acıklama : sizin bildirdiğiniz kodları yazdım, ancak ad,soyad guncellendiğinde, ad soyad guncellendi olarak yazması gerekirken, yazmıyor,

(19/06/2018, 16:02)sidd yazdı: izin bildirdiğiniz kodları yazdım, ancak ad,soyad guncellendiğinde, ad soyad guncellendi olarak yazması gerekirken, yazmıyor,

Merhaba, ben 1 tane tanımlama eklemiştim. Birden fazla denetim için ayrı ayrı tanımlama eklemeniz gerekli,

Kodun tamamı aşağıdaki gibi olmalıdır.

Option Compare Database

Option Explicit

Dim GMeyveler, GAdiniz As String







Private Sub btnKaydet_Click()

                     

If Me.NewRecord = True Then

    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Bilgiler basari ile kaydedildi.", vbInformation, "Bilgi"

Else

    If Me.cboMeyve <> GMeyveler Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Meyve Verisi guncellendi")

        GMeyveler = Nz(Me.cboMeyve, "")

    End If

    

    If Me.Adiniz <> GAdiniz Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Adiniz Verisi guncellendi")

        GAdiniz = Nz(Me.Adiniz, "")

    End If

    

End If







End Sub



Private Sub btnYeni_Click()

 

 DoCmd.GoToRecord , , acNewRec

 

End Sub



Private Sub Form_Current()



GMeyveler = Nz(Me.cboMeyve, "")

GAdiniz = Nz(Me.Adiniz, "")

End Sub

Bu koda soyadı için ekleme yapılması gerekli, koddaki 2 alanı incelerseniz 3. alan için eklemeyi kendiniz yapabilirsiniz.

(19/06/2018, 16:33)ozanakkaya yazdı:

(19/06/2018, 16:02)sidd yazdı: izin bildirdiğiniz kodları yazdım, ancak ad,soyad guncellendiğinde, ad soyad guncellendi olarak yazması gerekirken, yazmıyor,

Merhaba, ben 1 tane tanımlama eklemiştim. Birden fazla denetim için ayrı ayrı tanımlama eklemeniz gerekli,

Kodun tamamı aşağıdaki gibi olmalıdır.

Option Compare Database

Option Explicit

Dim GMeyveler, GAdiniz As String







Private Sub btnKaydet_Click()

                     

If Me.NewRecord = True Then

    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Bilgiler basari ile kaydedildi.", vbInformation, "Bilgi"

Else

    If Me.cboMeyve <> GMeyveler Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Meyve Verisi guncellendi")

        GMeyveler = Nz(Me.cboMeyve, "")

    End If

    

    If Me.Adiniz <> GAdiniz Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Adiniz Verisi guncellendi")

        GAdiniz = Nz(Me.Adiniz, "")

    End If

    

End If







End Sub



Private Sub btnYeni_Click()

 

 DoCmd.GoToRecord , , acNewRec

 

End Sub



Private Sub Form_Current()



GMeyveler = Nz(Me.cboMeyve, "")

GAdiniz = Nz(Me.Adiniz, "")

End Sub

Bu koda soyadı için ekleme yapılması gerekli, koddaki 2 alanı incelerseniz 3. alan için eklemeyi kendiniz yapabilirsiniz.

Ozan Bey, bu hatayı nasıl yok edebiliriz, ayarlardan birşey mi yapmak gerekiyor.
Sitenizdeki örnekleri indirip, incelemeye çalıştığımda da aynı hatayı veriyor, hiçbir programı çalıştıramıyorum.
sistemsel birşey mi acaba?
sistem : win 10 64 bit ingilizce -  MS PRO PLUS - Access  2016 ingilizce

"The Expression On Current you entered as the event property setting produced the following error: A problem occured while MicrosoftAccess was communicating with the OLE server or Active X Control