(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.