Access combobox'un index değerine göre verinin comboboxda gösterilmesi

seneryo şöyle : Access üzerine satırlar girdiniz satırlar : a,b,c,d olsun satır indexleride bildiğiniz üzere 0,1,2,3 olur.Diyelimki indexi 2 olan combobox'ın verisi ne ?
(olayın tersi aslında oldukca basit seçili verinin index'ini almak kolay Combobox1.Listindex derdimize çare peki ya tersi index'i biliyoruz hangi veri karşılık geliyor buna )

Dim sallama As String
sallama = combobox1.ItemData(2) ' 2 numaralı list index'e karşılık gelen veriyi al
combobox1.SetFocus
combobox1.Text = sallama ' combobox tekrar yazdır

Access PopupMenu uygulaması

Merhabalar
Access ile ilgilenenleriniz olmuşsa yeni access nesnelerinin az olduğunu bilirsiniz.işinize lazım olan access nesneleri için ise en iyi çözüm tabiki API kullanmak böylece windowsun bir çok zımbırtısını access içinde kullana biliriz.işte bu gün bana bir access formundaki butona tıklandığında popup menu açılması gerekti.Buyurun bununla ilgili çözüm.

ilk olarak API leri çağıralım

Private Declare Function CreatePopupMenu Lib "user32" () As Long

Private Declare Function DestroyMenu Lib "user32" _
(ByVal hMenu As Long) As Long

Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" _
(ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, _
ByVal lpNewItem As Any) As Long

Public Declare Function TrackPopupMenu Lib "user32" _
(ByVal hMenu As Long, ByVal wFlags As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nReserved As Long, ByVal hWnd As Long, ByVal lprc As Any) As Long

Şimdide Kıymetli Popup menu fonksiyonumuz

Public Function ShowReportPopupMenu(FormObject As Form) As Long
Dim lngPopupMenu As Long 'hWnd of popup menu
Dim paPopupMenu As POINTAPI 'Popup menu point
Dim lngReturn As Long 'Return value
lngPopupMenu = CreatePopupMenu()
AppendMenu lngPopupMenu, MF_STRING, 1, "MENU1"
AppendMenu lngPopupMenu, MF_STRING, 2, "MENU2"
GetCursorPos paPopupMenu
If lngPopupMenu <> 0 Then
'Show popup menu
lngReturn = TrackPopupMenu(lngPopupMenu, TPM_RETURNCMD, paPopupMenu.X, paPopupMenu.Y, _
0&, FormObject.hWnd, 0&)
End If
ShowReportPopupMenu = lngReturn
End Function

buraya kadar olan kodları bir modul içine yazabilirsiniz.

bu fonksiyonları çağırdınızda o anda farenin bulunduğu yerde menumuz çıkacaktır 1.seçenek seçilirse fonksiyon geriye 1 ,ikincisi için ise 2 değerini döndürmektedir.
Hangi seçeneğe tıklanmış olduğunu ise fonksiyonun geriye döndürdüğü değerden pek iyi anlayabiliriz.