açılan liste

[tugcem_38]

access de form üzrine eklenmiş olan açılan listeye sadece form açıldığı anda bilgileri tablodan bir kere alıyor.ancak yeni veri girişini tablodan hemen almıyor.tekrar kapatıp açmak gerekiyor.her seferinde ekleneni anında nasıl görebiliriz?

 

[modalı]

Sayın tugcem_38

Aşağıdaki linki inceleyin. Takıldığınız nokta varsa sorun.

http://www.excel.web.tr/showthread.php?t=36862


İyi çalışmalar

 

[karaayhan]

hata nerde?

kodları daha önceden kaydetmişim ancak örnek üzerinde yeni denedim.
hata nerde bilmiyorum örnek ekliyorum sayın modalı, hata nerde acaba bi bakarsanız size zahmet...


kolay gelsin

 

[tugcem_38]

sayın modalı öyle değil benim demek istediğim.ben diyorumki bir internet formu yaptım.orda formda açılan listeye bilgileri sadec bir kere alsın.tablodanda veri girişini aynı andan alsın.açıp kapatmak gerekmesin.her seferinde ekleneni aynı anda nasıl görebilirim acaba diyorum?????

 

[modalı]

Sayın karaayhan,

Eğer açılan kutunun liste içeriği formun kayıt kümesindeyse o zaman uyguladığınız yöntem geçersiz oluyor. Bu durumda yapacağınız:

Açılan kutunun özelliklerinden veri sekmesine gelin ve Listeye Sınır ayarını Hayır a ayarlayın. O zaman bu alana liste dışında yazılan veriyi de kaydeder. Otomatik olarak da yeni kayıtta bu son eklenen veri de görünür.


Yukarıda verdiğim linki iyi incelerseniz o zaman, daha sonraki mesajımdaki açıklamaları takip etmeniz gerekir.

İyi çalışmalar

 

[karaayhan]

aslında oluyor hatta çıkıldığında olay yordamına me.requery yazılırsa o zaman hatırlaması daha kolay oluyor açılan kutunun veriyi , ancak o zamanda listede yokta olay yordamındaki kodlar çalışmıyor yada sormuyor listede yok ekleyim mi diye ....

:?

 

[tugcem_38]

örnek

1.Ekte web tarayıcısı ile ilgili bir örnek bulunmaktadır.bu örneğe göre açılan kutuya adres girip bağlandığımızda enter çalışmamaktadır.(örneğin googlede enterle arayamyoruz.)


2.sık kullanılanlara eklediğimiz zaman tabloya eklenen adres direk internet formunda görünmemektedir.bunu görmek için formu kapatıp açamk gerekiyor.sık kullanılanlara eklediğimiz adresi direk nasıl görebiliriz?

 

[modalı]

Sayın tugcem_38,

Ben yukarıdaki cevabımda bir link vermiştim. Siz sanırım onu göz ardı ettiniz ve incelemediniz.
Aşağıdaki kodları kopyalayıp kendi uygulamanıza yapıştırın:

Private Sub Açılan_Kutu5_NotInList(NewData As String, Response As Integer)
Dim rs As New ADODB.Recordset
strMsg = "'" & NewData & "' ÖGESİ LİSTEDE YOK " & vbCrLf & vbCrLf
    strMsg = strMsg & "LİSTEYE EKLEMEK İSTER MİSİNİZ?"
    strMsg = strMsg & vbCrLf & vbCrLf & "EKLEMEK İÇİN EVET'İ İPTAL İÇİN HAYIRI TIKLAYIN"
    
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Yeni Öge Ekle?") = vbNo Then
        Response = acDataErrContinue
        
    Else
 
'Buraya değer listede yoksa yapılmasını istediğinizi kodlayın
rs.Open "adres", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("adres") = NewData
rs.Update
rs.Close
Set res = Nothing
    End If
If Err Then
            MsgBox "Hatalı. Lütfen tekrar deneyin."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
 
End Sub

Gördüğünüz gibi form açıp adresi eklemeye gerek yok.

İyi çalışmalar