frmPersonelListesi formundaki lstPersonel liste kutusunun çift tıklama olayını aşağıdaki gibi

Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 If lstPersonel.ListIndex = -1 Then Exit Sub



    If lstPersonel.ListIndex = -1 Then Exit Sub



    Dim secilenID As Long

    secilenID = CLng(lstPersonel.List(lstPersonel.ListIndex, 0))

    frmPersonelKayit.Show vbModal

    

End Sub

frmPersonelKayit formunun UserForm_Initialize olayını aşağıdaki gibi

Private Sub UserForm_Initialize()

    Call BaglantiKur

    

    

    ' cmbCinsiyet adlı ComboBox'a değerleri ekle

    With Me.cmbCinsiyet

        .AddItem "Erkek"

        .AddItem "Kadın"

        .ListIndex = 1 ' İsteğe bağlı: İlk değeri seçili hale getirir (Erkek)

    End With

    

    With Me.cmbMedeniDurum

        .AddItem "Evli"

        .AddItem "Bekar"

        .ListIndex = 0

    End With

    

    With Me.cmbDepartman

        .AddItem "Yönetim"

        .AddItem "Kreş"

        .AddItem "Muhasebe"

        .AddItem "Mutfak"

        .AddItem "Ofis"

    End With

    

    With Me.cmbGorevi

        .AddItem "Vakıf Başkanı"

        .AddItem "Genel Müdür"

        .AddItem "Genel Müdür Yrd."

        .AddItem "Muhasebe Müdürü"

        .AddItem "Muhasebe Elemanı"

        .AddItem "Mutfak Görevlisi"

        .AddItem "Öğretmen"

        .AddItem "Sınıf Annesi"

        .AddItem "Temizlik Görevlisi"

    End With

    

    KayitID = CLng(frmPersonelListesi.lstPersonel.List(frmPersonelListesi.lstPersonel.ListIndex, 0))



    If KayitID > 0 Then

        Call KayıtYukle(KayitID)

    End If



End Sub

düzenleyip dener misiniz?