Skip to main content

AccessTr.neT


Başka bir formdaki Combo Box içeriğini Yenilemek

Başka bir formdaki Combo Box içeriğini Yenilemek

Çözüldü #1
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.
.rar Rehberlik.rar (Dosya Boyutu: 16,15 KB | İndirme Sayısı: 10)
Cevapla
Çözüldü #2
şu an işyerinde oldugum için örnege bakamadım. akşam gidince bakarım.data1.refresh ve combo6.refresh komutlarını kullanabilirsin.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 26/01/2013, 16:54, Düzenleyen: mcmaho.
Cevapla
Çözüldü #3
Hocam; cevabınızı bekliyorum.
Cevapla
Çözüldü #4
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
Sayın; oğulcan hocam çok teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da