![Çözüldü](images/icons/cozuldu.png)
Arkadaşlar; VB 6.0 da iki formum var. frmogrenci adında ana formmum ve frmbabameslek adında formum var. frmogrenci formu açıkken frmbabameslek formunu açıp veri girdiğimde frmogrenci formundaki Combo6 nın verilerinin güncellenmesini istiyorum.
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