AccessTr.neT

Tam Versiyon: Combobox Seçim
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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
Sayfalar: 1 2 3 4