3 sorunuzun cevabı için kodu aşağıdaki ile değiştir.

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

4. soru için yeni konu açınız...