Private Sub liste_DblClick(Cancel As Integer)



    IDnumarasi = liste.Column(0)

    

    If musteri_turu.Value = 1 Then

        Forms.ffatura.gonderenadi.Value = Dlookup ("müsteriadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderensoyadi.Value = Dlookup ("müsterisoyadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderentelefon.Value = Dlookup ("müsteritelefonno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderenvergidairesi.Value = Dlookup ("müsterivergidairesi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderenvergino.Value = Dlookup ("müsterivergino", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderenadres.Value = Dlookup ("müsteriadresi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.gonderentcno.Value = Dlookup ("müsteritcno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        DoCmd.Close acForm, "FMüsteriAra"

    End If

    

    If musteri_turu.Value = 2 Then

        Forms.ffatura.aliciadi.Value = Dlookup ("müsteriadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.alicisoyadi.Value = Dlookup ("müsterisoyadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.alicitelefon.Value = Dlookup ("müsteritelefonno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.alicivergidairesi.Value = Dlookup ("müsterivergidairesi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.alicivergino.Value = Dlookup ("müsterivergino", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.aliciadres.Value = Dlookup ("müsteriadresi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        Forms.ffatura.alicitcno.Value = Dlookup ("müsteritcno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)

        DoCmd.Close acForm, "FMüsteriAra"

    End If

        

        MsgBox "Lütfen bilgilerin kaydedileceği müşteri türünü seçiniz", vbExclamation + vbOKOnly, "Eksik Bilgi"

        DoCmd.Close acForm, "FMüsteriAra"

End Sub