komut butonları silme ve değiştirme

[mertmustafa01]

bir adres proğramı yaptım sorunları aşağı yazıyorum yardımlarınız için şimdiden teşekkürler
1-arama yapan combobox ta bir sorun var arama yapıyor fakat girdiğim farklı bir harf olsa farklı bir isim getiriyor. ayrıca isimleri kenara bastığım zaman göremiyorum.
2-kayıt sil yapmam gerekiyor kaydettiğim bilgileri silmesi gerekiyor.
3-kayıt değiştirmem gerekiyor. önceki kaydı yanlış veya eksik ise değiştirmem gerekiyor.

Teşekkürler.

 

[cosmo]

KAYIT SİL KOMUTU
Private Sub Komut28_Click()
MsgBox "SİLMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbYesNo, "DİKKAT!!!"
sonuç = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbYesNo, "DİKKAT!!!")
If sonuç = 6 Then
ogr.Delete
ogr.MoveFirst
Metin2.Value = ogr!ogr_no
Metin4.Value = ogr!ogr_adi
Metin8.Value = ogr!ogr_soyadi
Metin6.Value = ogr!ogr_dtarihi
Metin10.Value = ogr!ogr_adres
Açılan_Kutu12.Value = ogr!ogr_bolumu
If ogr!ogr_cinsiyet Then
Çerçeve14.Value = 1
Else
Çerçeve14.Value = 2
End If
Komut21.Enabled = False
Komut24.Enabled = False
Komut27.Enabled = False
End If
End Sub

KAYIT DÜZELTME
Private Sub Komut26_Click()
Komut21.Enabled = False
Komut22.Enabled = False
Komut23.Enabled = False
Komut24.Enabled = False
Komut25.Enabled = False
Komut26.Enabled = True
Komut28.Enabled = False
Komut29.Enabled = False
Metin2.SetFocus
Komut27.Enabled = True
Açılan_Kutu12.RowSourceType = "tablo/sorgu"
Açılan_Kutu12.RowSource = "SELECT bkod,badi from bolum"
Açılan_Kutu12.ColumnCount = 2
Açılan_Kutu12.ColumnWidths = "0cm;3cm"
ogr.Edit
End Sub


KENNİNE GÖRE DEĞİŞTİR İŞİNE YARAR BELKİ

 

[cosmo]

excel miş bu kusura bakma ben vb access kodu yazdım...