+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Başka bir formdaki Combo Box içeriğini Yenilemek (/konu-baska-bir-formdaki-combo-box-icerigini-yenilemek.html)
Başka bir formdaki Combo Box içeriğini Yenilemek - ynlmz - 26/01/2013
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.
Cvp: Başka bir formdaki Combo Box içeriğini Yenilemek - mcmaho - 26/01/2013
şu an işyerinde oldugum için örnege bakamadım. akşam gidince bakarım.data1.refresh ve combo6.refresh komutlarını kullanabilirsin.
Cvp: Başka bir formdaki Combo Box içeriğini Yenilemek - ynlmz - 26/01/2013
Hocam; cevabınızı bekliyorum.
Cvp: Başka bir formdaki Combo Box içeriğini Yenilemek - ogulcan92 - 26/01/2013
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 FunctionPrivate 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 SubCvp: Başka bir formdaki Combo Box içeriğini Yenilemek - ynlmz - 27/01/2013
Sayın; oğulcan hocam çok teşekkür ederim.