Sayın Mecnun bey,
Ben sorunu çözemedim,uygulamaya çalıştığım form personel formudur.
Siteye yeni bir konu açtım konunu adı Onay Kutusu hk.Oradaki dosyadan bakabilirsin,nerede hata yaptığımı bulabilirsen memnun olurum.
Saygılarımla
İyi çalışmalar.

(29/08/2015, 00:21)fascioğlu yazdı: nerede hata yaptığımı bulabilirsen memnun

Sizin yaptığınız hata yok, Mecnun'un örneği formdaki denetimlerin item numarasına göre kontrol yapıyor. Bu yüzden boş kontrol olayı karışık kontrol ediyor. Denetimin item numarası nasıl değişir bilmiyorum.

Aşağıdaki kodu deneyiniz. Kod denetimlerin sekme dizini sayısına göre kontrol ediyor.

Dim Sayi, Bilgi, DenetimSayisi As Integer

Dim ctl As Control



DenetimSayisi = Me.Controls.Count - 1



For Sayi = 1 To DenetimSayisi

    For Each ctl In Controls



    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then

        If ctl.TabIndex = Sayi Then

            If Len(ctl.Tag) <> 0 And Not IsNull(ctl.Tag) Then

                If ctl.Value = "" Or IsNull(ctl.Value) Then

                    MsgBox (ctl.Tag & " boş bıraktınız")

                    ctl.SetFocus

                    Exit Sub

                End If

            End If

        End If

    End If

    

    Next

Next Sayi

    Bilgi = MsgBox("Yapılan değişiklikler kaydedilsin mi", vbInformation + vbYesNoCancel)

    Select Case Bilgi

        Case 6 'evet

          DoCmd.RunCommand acCmdSaveRecord

        Case 7 'hayır

          Me.Undo

        Case 2 'iptal

          Exit Sub

    End Select

Denetim yapılmasını istediğiniz alanların im özelliğine açıklama giriniz.

Ben kod diye buna derim. Elinize sağlık sayın ozanakkaya. Ben c#'de kullandığım metodu, acemice accesse uygulamaya çalıştım.

Sayın Ozan hocam,
Super olmuş emeğinize sağlık.
Saygılarımla.
İyi çalışmalar.

(29/08/2015, 09:11)Mecnun24 yazdı: Ben kod diye buna derim. Elinize sağlık sayın ozanakkaya. Ben c#'de kullandığım metodu, acemice accesse uygulamaya çalıştım.

(29/08/2015, 10:06)fascioğlu yazdı: Sayın Ozan hocam,
Super olmuş emeğinize sağlık.
Saygılarımla.
İyi çalışmalar.

Rica ederim, ifleri birleştirmeye çalışmayın kod çakılır.