Her 2 tabloya da Açıklama alanlarını eklemeden önce çalışan Kaydet işlevi Acıklama alanının 2 tabloya  ve ınsert ınto koduna eklenmesinden sonra aşağıdaki hatayı veriyor çözümü konusunda ne yapabilirim teşekkürler.



[Resim: https://resim.accesstr.net/do.php?img=9799]

[vb]Private Sub Kaydet_BTN_Click()

If Len(Trim(Me.UyeNo_TXT)) = 0 Or Len(Trim(Me.TaksitKapama_CBO)) = 0 Or Len(Trim(Me.Tutar_TXT)) = 0 Then
MsgBox "Lütfen eksik bilgileri tamamlayiniz."

DoCmd.GoToControl "UyeNo_TXT

Merhaba

Formum da herhangi bir kayıt işlemi yapılmadığı için sadece tablolardaki kayıtlı bilgilerin ışığında Seçilen HesapTürüne göre mevcut olması gereken tutarları görmek istiyorum.

Yapmak istediğimi açıklama açısından şu mantık da bir kod yazmalıyım.
[vb](=DSum("GirenTutar";"T_HesapHareketleri"; "HesapTuru","[Between [ILKTARIH] And [SONTARIH]) - ( =DSum("CikanTutar";"T_HesapHareketleri","HesapTuru

Merhaba 
F_Sporcular Formum da 2 adet Alt formum var. Form ado ile kayıt yaparken alt formlara girilen kayıtlarında F_Sporcular formundakı TC Numarası gırılmıs sporcuya bağlanmasını ve F_Sporcular Formunda kayıtlar arasında gezerken alt formlarda Formdaki sporcuya ait bilgilerin gelmesini sağlamaya çalışıyorum. Bu bağlantı nasıl yapılabilir. Yardımlarınız için teşekkürler. 
[img]https://resim.accesstr.net

liste kutusunu sol tık ile seçim yapılmasını sağ tık ile menü gösterilmesini nasıl sağlayabilirim
sağ tıkladığımda listeden eleman seçilmesin

Olay şu arkadaşlar üç adet listemiz var 
liste1 den çoklu seçim yapacağız
sonra liste1 de sağ tık ile cut diyeceğiz
liste2 ye gideceğiz ve sağ tık yapıp copy dediğimizde
liste1 de seçili elemanlar liste2 ye taşınmış olacaklar
mantık basit gibi gözüküyor ama nasıl yapacağımı bilemedim

Yeni kayıta gitmek için Vba kod yazmaya çalışıyorum 
bunun için sihirbazı kullanayım dedim oda makro oluşturdu
üstelik Vba koduna dönüştüremiyorum

Merhaba F_UyeListesi formunun uye no alanının çift tıklanma olay yordamına yazdığım aşağıdaki kod da hata alıyorum. Nedeni konusunda 
yardımcı olmanızı rica ederim.

DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeNo_TXT], , , Me.UyeNo_TXT

[Resim: https://resim.accesstr.net/do.php?img=9886]

[Resim: https://resim.accesstr.net/do.php?img=9887]

[vb]Option Compare Database
Option Explicit

Private Sub UyeNo_DblClick(Cancel As Integer)

DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeN

'.Find "[UyeNo]=" & "'" & Me![UyeNo_TXT] & "'" Uye No alanı metin olduğunda bu yazım doğru oluyor. Alan sayı türünde ise  nasıl yazılmalı

1-      '.Find "[UyeNo]=" & Me![UyeNo_TXT]  Bu kod hata vermedi ama işlemde gerçekleşmedi.
[color=#333333][size=small]2-       [/s

iyi günler

Dim i As Integer

Dim d As Double

    

For i = 0 To 100

   d = i * 0.75

   If (d Mod X) Then MsgBox "tamsayı"

Next

 bu kodda d tam sayı olduğunda mesaj vermesi için "X" yerine ne yazmalıyım

Merhaba,

ekteki örneğimde liste kutusu arama işlevi çalışmıyor. Tablolardan üçü bire çok ilişkili; Kuruluşlar, Birimler, Altbirimler.

İyi çalışmalar.