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 tblSAHIS"
        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

If .Fields("NKO_IL") <> "0" Then
ilimiz = .Fields("NKO_IL")
ilcemiz = .Fields("NKO_ILCE")
      
hedef_id = Nz(DLookup("MRNS_ILCEKODU", "ytbl_MERNISILCEKOD", "MRNS_ILCEADI='" & ilcemiz & "'"), "9999")
islem_sql = "UPDATE tblSAHIS SET Alan1 ='" & hedef_id & "' WHERE VATNO='" & .Fields("VATNO") & "'"
DoCmd.RunSQL islem_sql
End If
If IsNull(.Fields("NKO_ILCE")) Then
          
hedef_id = Dlookup ("TRF_PLKKODU", "ytbl_MERNISILCEKOD", "MRNS_ILADI='" & ilimiz & "'")
islem_sql = "UPDATE tblSAHIS SET Alan1 = 99 & '" & hedef_id & "' WHERE VATNO='" & .Fields("VATNO") & "'"
DoCmd.RunSQL islem_sql
                        End If
                        
If IsNull(.Fields("NKO_IL")) Then
islem_sql = "UPDATE tblSAHIS SET tblSAHIS.Alan1 = '9999' WHERE (((tblSAHIS.[VATNO])='" & .Fields("VATNO") & "'));"
DoCmd.RunSQL islem_sql
End If
                        
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