Private Sub SIPKOPYALA_Click()
Dim COPYSp As Long
COPYSp = InputBox("Kopyalamak istediðiniz sipariþ numarasýný yazýnýz!")
If DCount("*", "S_GENEL_SIPARIS_BILGILERI", "[SIP_NO]=" & Me.SIP_NO) = 0 Then
    MsgBox "Siparis Kayitli degil", vbCritical, "HATA"
ElseIf COPYSp = 0 Or DCount("*", "S_SIPARIS_DETAY_BILGILERI", "[SIPARIS_NO]=" & COPYSp) = 0 Then
    MsgBox "Yanlýþ SIPARIS NO", vbCritical, "HATA"
Else
Dim Kayit As DAO.Recordset, YeniKyt, SpKySay, SW As Long
YeniKyt = Nz(DMax("[KAYIT_NO]", "S_SIPARIS_DETAY_BILGILERI"), 0)
Set Kayit = CurrentDb.OpenRecordset("Select KAYIT_NO From S_SIPARIS_DETAY_BILGILERI Where (((SIPARIS_NO)=" & COPYSp & ")) Group By KAYIT_NO Order By KAYIT_NO")
Kayit.MoveFirst
Do Until Kayit.EOF
    YeniKyt = YeniKyt + 1
    CurrentDb.Execute "Insert Into S_SIPARIS_DETAY_BILGILERI(KAYIT_NO,SIPARIS_NO,SATIS_SEKLI,NE_ALINACAK,SIPARIS_CINSI,ORAN,KARISIM_CINSI,YAPILACAK_ISLEM_KODU,RENK_NO,RENK,KG,KGFIRELI,BIRIM_FIYAT,TUTAR,EBAT,GRAMAJ,SON_DURUM,NERDEN_ALINDI) " & _
    "SELECT " & YeniKyt & ", " & Me.SIP_NO & ",S_SIPARIS_DETAY_BILGILERI.SATIS_SEKLI,S_SIPARIS_DETAY_BILGILERI.NE_ALINACAK,S_SIPARIS_DETAY_BILGILERI.SIPARIS_CINSI,S_SIPARIS_DETAY_BILGILERI.ORAN,S_SIPARIS_DETAY_BILGILERI.KARISIM_CINSI,S_SIPARIS_DETAY_BILGILERI.YAPILACAK_ISLEM_KODU,S_SIPARIS_DETAY_BILGILERI.RENK_NO,S_SIPARIS_DETAY_BILGILERI.RENK,S_SIPARIS_DETAY_BILGILERI.KG,S_SIPARIS_DETAY_BILGILERI.KGFIRELI,S_SIPARIS_DETAY_BILGILERI.BIRIM_FIYAT,S_SIPARIS_DETAY_BILGILERI.TUTAR,S_SIPARIS_DETAY_BILGILERI.EBAT,S_SIPARIS_DETAY_BILGILERI.GRAMAJ,S_SIPARIS_DETAY_BILGILERI.SON_DURUM,S_SIPARIS_DETAY_BILGILERI.NERDEN_ALINDI FROM S_SIPARIS_DETAY_BILGILERI WHERE (((S_SIPARIS_DETAY_BILGILERI.SIPARIS_NO)=" & COPYSp & ") And ((S_SIPARIS_DETAY_BILGILERI.KAYIT_NO)=" & Kayit!KAYIT_NO & "))"
    Kayit.MoveNext
Loop
Kayit.Close: Set Kayit = Nothing
MsgBox "KAYIT KOPYALANDI"
Call SIP_BUL_GotFocus
Me.SIP_BUL = Me.SIP_NO
Call SIP_BUL_AfterUpdate
Me.Liste1.Selected(1) = True
Call Liste1_Click
End If
End Sub