Başka bir formdaki Combo Box içeriğini Yenilemek
Tarih
26/01/2013 13:48
Konu Sahibi
ynlmz
Yorumlar
4
Okunma
2005
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 
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.


Ek Dosyalar
.rar   Rehberlik.rar (Dosya Boyutu: 16,15 KB / İndirme Sayısı: 7)
Cevapla


mcmaho
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çözüldü 
ş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 >>>
Cevapla


Çözüldü 
Hocam; cevabınızı bekliyorum.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

Cevapla


Çözüldü 
Sayın; oğulcan hocam çok teşekkür ederim.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB PRojesi Başka Bilgisayarda Çalışmıyor mavivan 3 1.731 15/12/2013, 14:08 maytas
Çözüldü vba da combo kutularının hwnd değerleri mi var accessman 1 1.398 28/11/2012, 19:47 ogulcan92
Çözüldü visual basic+combo dünyalı 3 1.853 19/09/2010, 18:15 ogulcan92
Çözüldü girilen değerin başka bir formda güncellenmesi ancyra 4 1.509 31/12/2009, 11:31 benremix
Çözüldü Veritabanlı VB Dosyasını Başka Pcde Çalıştırma Despise 3 1.780 31/05/2009, 12:54 chopper07


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya