Skip to main content

AccessTr.neT


Etiketler
Yazar: drummers - Cevaplar: 5 - İzleme: 2964
Sorgu ile comboboxda 2 alan listelemesi

Sub baglan()
baglanti = CreateObject("adodb.connection")
baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBLolatabase Password=13*13")
End Sub

[vb]
Private Sub Ebildirge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs As Object
Call baglan()
rs = CreateObject("adodb.recordset")
rs.open("select dosyaismi from sgk where dosyaismi", baglanti, 1, 1)

If rs.recordco
Yazar: accessman - Cevaplar: 0 - İzleme: 529
Comboboxda İtem Ve İndexe Göre Seçim Yapmak
[code]Public Sub SelectComboBoxItemByText(cmb As ComboBox, Value As String)
    On Error GoTo ErrHandler_
Dim i As Integer
    For i = 0 To cmb.ListCount - 1
        If cmb.Column(1, i) = Value Then
            cmb.SetFocus
            cmb.Selected(i) = True
            cmb.Text = Value
            Exit For
        End If
    Next i
End Sub
ExitProc_:
    DoCmd.Hourglass False
    Exit Sub
ErrHandler_:
    DoCmd.Hourglass False
    Call LogError(Err, "basTools", "SelectComboBoxI
Yazar: m_demir - Cevaplar: 17 - İzleme: 1775
Comboboxda Verileri Sıralamak
Merhaba Arkadaşlar 
Eklediğim uygulamada UserForm1 de ComboBox3 de kelimeyi seçerek aktif sayfaya kayıt yapıyorum. Açıklama olarak ayni veriyi kaç sefer girmişsem hepsi ComboBox3 de görünüyor.

Örneğin Verilen kelimesini on defa girmişsem 10 tane verilen kelimesi ComboBox3 görünüyor. Ayni kelimeden bir tane görünse çok iyi olur. Saygılar.