Dim kaynak_tablo_sql, hedef_tablo_sql, hedef_id, islem_sql As String
Dim sira As Integer
Dim ks As ADODB.Recordset
Set ks = New ADODB.Recordset

    DoCmd.SetWarnings False

        kaynak_tablo_sql = "SELECT VATNO, NKO_IL, NKO_ILCE FROM tbl2010"
        ks.Open kaynak_tablo_sql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

        If Not ks.BOF And Not ks.EOF Then
            
            If ks.EOF <> True Then
                
                Do
                
                    With ks
                    
                        ilimiz = .Fields("NKO_IL")
                        ilcemiz = .Fields("NKO_ILCE")
                        
                        hedef_id = Nz(DLookup("ILCEKODU", "YRD_tblILCEKOD", "ILADI='" & ilimiz & "' AND ILCEADI='" & ilcemiz & "'"), "-")
                        
                        islem_sql = "UPDATE tbl2010 SET NKO_ILCEKOD='" & hedef_id & "' WHERE VATNO='" & .Fields("VATNO") & "'"
                        
                        DoCmd.RunSQL islem_sql
                        
                        ks.MoveNext
                        
                    End With
                
                Loop Until ks.EOF
                
            End If
        
            MsgBox "İşlem başarıyla tamamlandı.", vbInformation + vbOKOnly, "AccessTR.Net"
            
        Else
            
            MsgBox "Tabloda kayıt yok"
        
        End If