19/06/2018, 13:11
19/06/2018, 13:26
(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
19/06/2018, 14:48
Merhaba, siz basit bir örnek uygulama ekleyin, eklediğiniz uygulamayı düzenleyelim.
19/06/2018, 16:02
(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:33
(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.
20/06/2018, 14:31
(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