Sadece Geçerli Kayıtta Kenarlık Rengi Değiştirme Hk.

adnnfrm · **Kayıt Tarihi:** 27.11.2019

Herkese Merhaba;

Sürekli form görünümünde ekte yer alan görüntüde bir formum var. Seçili kaydın stok alanı kısmının kenarlık rengini değiştirmek istiyorum. Fakat tüm kenarlık renkleri değişiyor. Bunu sadece seçili kayıtta yapacak kodu nasıl yapabilirim. Benim kullandığım kod aşağıdaki gibidir;

Visual Basic
Me!Stok.BorderColor = RGB(34, 177, 76)

Şimdiden teşekkürler.

dsezgin · 09-09-2023, 01:56

Modüle Global StoNu as string oluşturun
Form Geçerli Olay yordamına StoNu = me.Stok yazın, sonraki satıra call Detail_Paint
Formun Detail bolumunun Paint olay yordamına

Visual Basic
Public Sub Detail_Paint()
Me.Stok.bordercolor=iif(StokNu=me.Stok,RGB(34, 177, 76),RGB(238, 236, 225)))
end sub

olarak deneyin

adnnfrm · **Kayıt Tarihi:** 27.11.2019

Hocama maalesef olmadı sırasıyla yazdığım kodlar aşağıdaki gibi;

Modüle;

Visual Basic
Function stkno()
Global StoNu As String
End Function

Formun Ayrıntı Boyanırken Kısmı

Visual Basic
Private Sub Detail_Paint()
Me.stok.BorderColor = IIf(StoNu = Me.stok, RGB(34, 177, 76), RGB(238, 236, 225))
End Sub

Formun Geçerli Olduğunda Kısmı

Visual Basic
Private Sub Form_Current()
StoNu = Me.stok
Call Detail_Paint
End Sub

Maalesef olmadı. Tüm Stok alanlarını yeşile boyadı kenarlıklarını ://

dsezgin · 09-09-2023, 04:13

Module... oluşturup, Global StokNu As String oraya yazılmalıydı.

Aşağıdaki gibi yapabilirsiniz.

Visual Basic
Option Compare Database
Dim StokNu As String
Private Sub Detail_Paint()
Me.BOYAMA_TURU.BorderColor = IIf(StokNu = Me.BOYAMA_TURU, RGB(34, 177, 76), RGB(238, 236, 225))
End Sub
Private Sub Form_Current()
StokNu = Me.BOYAMA_TURU
Call Detail_Paint
End Sub

adnnfrm · **Kayıt Tarihi:** 27.11.2019

Hocam sanırım ben beceremedim. Sizlere örnek bir dosya iletiyorum. Yapmak istediğim olayı da resim olarak mesaja ilave ediyorum. Veri tipindeki değere göre ilgili sütunun kenarlık rengi yeşil olacak. Aslında IF kontrolünü ilk mesajlarımda yazmadım. Önce kenarlık rengi olayını çözeyim sonra IF içerisine atarım diye düşünüyordum. Ama olmadı :/ . Sizlere en yalın haliyle gönderiyorum dosyayı.

Desteğiniz için şimdiden teşekkürler.

dsezgin · 09-09-2023, 18:25

Visual Basic
Private Sub Ayrıntı_Paint()
Dim i As Long
For i = 1 To 3
    If Me.veritip = i Then
        Me.Controls("deger" & i).BorderColor = RGB(34, 177, 76)
    Else
      Me.Controls("deger" & i).BorderColor = RGB(238, 236, 225)
    End If
Next i
End Sub

Sadece bu prosedürü kullanın.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	öğrenci Takip (sadece Tablo)	accessbonkörü	1	403	05-01-2026, 20:40 Son Mesaj: dsezgin
	Son Endeks In Ikinci Yeni Kayıtta Ilk Endeks Olarak Gelmesi	özgülapt	4	548	22-03-2025, 23:43 Son Mesaj: özgülapt
	[FORM] Sadece Alt Formun Kaydedilmesi	TheREDROSE	1	346	22-08-2024, 03:00 Son Mesaj: dsezgin
	[FORM] access ıcon değiştirme	oosmaner	5	1.226	08-02-2024, 12:43 Son Mesaj: BeyTor
	Aktarım Yaparken Dosya Adını Değiştirme	zimbit	4	626	04-02-2024, 00:42 Son Mesaj: zimbit
	[RAPOR] Rapor Fontunu Değiştirme	ates2014	6	731	25-01-2024, 15:15 Son Mesaj: ates2014
	[VBA] Pc. Tarih Formatını Değiştirme	ates2014	8	911	09-01-2024, 09:18 Son Mesaj: ates2014
	Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk.	adnnfrm	4	695	26-12-2023, 03:42 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL