dilerim işinize yarar
tüm değişiklikler FRM_101_Siparisler  formunda yapılmıştır
1 - formun veri girişi:Hayır yapıldı. Bu özellik formun sadece kayıt eklemesine izin verir
2 - form yüklenme olayına açılışta yeni kayda gitmesi için

DoCmd.GoToRecord , , acNewRec

kodu eklenmiştir, böylece sipariş no girildiğinde ilgili kayda gidilebilir
3 - txt_Siparis_No güncellendiğinde olayındaki kodlar değiştirilmiştir, formunuz zaten bir sorguyla ilişkili dolayısıyla verileri recordset ile atamaya gerek yok doğrudan filter özelliği de o işi görür

Dim SPNO, gcSpNo As String

  Dim SPNKR As String

  

  SPNO = Me.txt_Siparis_No.Value

  SPNKR = "SIPARISNO = '" & Forms!FRM_101_Siparisler!txt_Siparis_No & "'"

  

    If Dlookup ("SIPARISNO", "SiparisA0", SPNKR) > 0 Then

      

      If MsgBox(SPNO & " SİPARİŞ NO İLE KAYIT BULUNMAKTADIR." & vbCrLf & _

      "DEVAM EDİLMESİ HALİNDE MEVCUT KAYITTA GÜNCELLEME YAPILACAKTIR." & vbCrLf & _

      "DEVAM ETMEK İSTİYOR MUSUNUZ?", vbYesNo) = vbNo Then

  

    ' güncelleme onaylanmaz ise değişiklikleri geri al

    ' select case için değişken değerini ata

    ' kayıt düğmesinin resim yazısını kayıt ekle olarak değiştir

    Me.Undo

    Me.txt_kayıttanimlama = 0

    Btn_KaydetGuncelle.Caption = "YENİ KAYIT EKLE"

    Me.txt_Siparis_No.SetFocus

    

    Else



    ' select case için değişken alan değerini ata

    ' kayıt düğmesinin resim yazısını güncelleme olarak değiştir.

    gcSpNo = Me.SIPARISNO

    Me.Undo

    

    Me.txt_kayıttanimlama = 1

    Btn_KaydetGuncelle.Caption = "KAYIT GÜNCELLE"

    

    ' kayıt güncellemenin onaylanması halinde sorgu sonuçlarını ilgili form alanlarına yükle

    Me.Filter = "[SIPARISNO]='" & gcSpNo & "'"

    Me.FilterOn = True

    

    End If



  End If