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.