Sn:ynlmz
frmogrenci formundaki combo ile ilgili kodları aşağıdaki ile değiştiriniz diğer formlardanda hazırladığınız fonksiyonları çalıştırmak istiyorsanız kod Public Function olarak tanımlamalısınız.

Public Function baba()

Call Connection

With rs_babameslek

Combo6.Clear

If .State = adStateOpen Then .Close

.Open "select bmeslek from T402_BabaMeslek", con, adOpenDynamic, adLockPessimistic

Do Until .EOF

Combo6.AddItem .Fields("bmeslek").Value

.MoveNext

Loop

.Close

End With

End Function

frmbabameslek meslek formındaki kaydet butonunun kodlarınıda aşağıdaki şekilde değiştiriniz.

Private Sub cmdSave_Click()

 If Text1.Text = "" Then

 MsgBox "Kayıt alanı boş olamaz", vbCritical, "Kayıt alanı boş"

 Texid.BackColor = &H80000018

 Exit Sub

 Else

 Text1.BackColor = &H80000004

 End If

 With rs_babameslek

 If MsgBox("Bu Kaydı Kaydetmek istediğinizden emin misiniz?", vbYesNo + vbQuestion, "Bu Kaydı kaydet") = vbYes Then

 .AddNew

.Fields(1) = Text1.Text

 .Update

 .Requery

 MsgBox "Kayıt başarıyla kaydedildi!", vbInformation, "Başarılı bir kayıt"

 Form_Load

 clearAllFields

 Else



 MsgBox "Kayıt işlemi iptal edildi", vbInformation, "Kayıt Başarısız"

 .CancelUpdate

 Form_Load

 clearAllFields

 End If

 .Requery

 End With

 Call frmogrenci.baba

End Sub