(03-12-2022, 13:42)Sn. @halily ben bu sorunu çözemedim. İşin içinden de çıkamadım. Anladığım kadarıyla yapamayacakmışım gibi de duruyor. demiş ki: Şimdi normal çalışmanızdaki tabloya 8 kayıt ekleyin
1. Kayıtta sadece 1. alan boş olsun diğer zorunlular dolu olsun
2. Kayıtta sadece 2. Alan boş olacak böyle böyle devam edin
8 kayıtta sadece birer alan boş ise Dict.Count 8 olmalı

Visual Basic

Private Sub Komut2_Click()
 
Set Dict = CreateObject("Scripting.Dictionary")
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("select IrsaliyeNo,BelgeTarihi,IrsaliyeNo2,Il,Ilce,UrunKodu,Adet,BayiKodu,TuketiciAdi from Ekleme")
    rs.MoveFirst
    
    MsgBox "kayit sayısı " & rs.RecordCount
    
    Do Until rs.EOF = True
    For x = 0 To rs.Fields.Count - 3
        If Len(rs(x) & "") = 0 Then Dict(rs.AbsolutePosition & ":" & rs(x).Name) = 0 'rs(x).Name
    Next x
    'If Len(rs(4) & "") + Len(rs(5) & "") = 0 Then Dict(rs.AbsolutePosition & ":" & rs(4).Name) = 0: Dict(rs.AbsolutePosition & ":" & rs(5).Name) = 0
    If Len(rs(7) & "") + Len(rs(8) & "") = 0 Then Dict(rs.AbsolutePosition & ":" & rs(7).Name) = 0: Dict(rs.AbsolutePosition & ":" & rs(8).Name) = 0
        rs.MoveNext
    Loop
Msgbox   "Dict.Count : " & Dict.Count
    If Dict.Count > 0 Then
        For Each ctl In Me.İrsaliye_alt_formu.Controls
            If ctl.Tag = "kontrol" Then ctl.OnExit = "=MtnExit()"
        Next ctl
    MsgBox Dict.Count & " gerekli alan doldurulmamış. Lütfen önce boş alanları doldurunuz"
    İrsaliye_alt_formu.SetFocus
    DzGit = Split(Dict.Keys()(0), ":")
        rs.AbsolutePosition = CLng(DzGit(0))
        On Error GoTo hata
        İrsaliye_alt_formu.Controls(DzGit(1)).SetFocus
    End If
    
Exit Sub
hata:
MsgBox Err.Number & vbNewLine & Err.Description
Err.Clear
End Sub

Önerimi denediniz mi?
Sonuç ne cıktı?
Not: bilgisayar yok, dosyanızı inceleyemem. Yine de size yardımcı olmak için tabletten kod yazıp öneride bulunmaya çalışıyorum. Eğer öğrenmek/anlamak istiyorsanız dediklerimi uygulamaya mantigini anlamaya çalışmalısınız ben adım adım sorunu saptamak için kod oneriyorum siz sadece olmadı/yapamayacağım diye kestirip atıyorsunuz
Bu durumda da kodla ilgili bir dönüş elde edemiyorum bana yararlı bilgiler vermelisiniz kod çalışırken surda şu hatayı verdi, hiç işlem yapmadı yada şu şu şu olması gerekirken basu sonuçları verdi gibi

Sn @halily kod tepki vermedi maalesef.

Sn @halily sizde pc olmadığından deneme yanılmayla ilerlemek durumunda kalıyoruz. Pc'niz olsa 10 dakikada kodu yapabileceğinizden eminim ama pc olmayınca gerçekten zor oluyor. Buna rağmen desteklerinizden dolayı teşekkür ederim.

Benim süreci hızlandırmam gerekiyor. Forumda ilgilenen diğer arkadaşlardan da destek rica edeceğim. Konu benim için gerçekten çok önemli. İlgilenen arkadaşlardan destek rica ediyorum.

Mesaj #53 'deki konuyla ilgili.



Teşekkürler

Arkadaşlar desteklerinizi rica ederim.

Bahsettiğim değişiklikleri yaptığınız dosyanızı ekler misiniz? Uygun bir zamanda inceleyeyim?

Yalniz Eklediğiniz dosyada 2 eksik vardı
1 - dictionary'nin tanımlandığı modül son dosyanızda yoktu dim dict as object kodunun olduğu modül
2 - metin kutularına im/tag eklenmemişti
Not: bunlardan bağımsız olarak dosyanızda henüz çözemediğim bir sorun daha var normalde hata vermesi gereken yerlerde hata vermiyor göstermesi gereken mesajları göstermiyor . O nedenle yeni bir veri tabanı oluşturup form olusturma ve diger işlemleri orada yeniden yapın