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.
şu an işyerinde oldugum için örnege bakamadım. akşam gidince bakarım.data1.refresh ve combo6.refresh komutlarını kullanabilirsin.
Hocam; cevabınızı bekliyorum.
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
Sayın; oğulcan hocam çok teşekkür ederim.