Merhaba
Private Sub Buton1_Click()
If Me.Buton1Label.Caption = "Düzenleme Açık" Then
Me.Buton1Label.Caption = "Düzenleme Kapalı"
'Me.Tahsilat_Makbuzu_Alt.Locked = True
Me.Sira_No.Locked = True
Me.Stok_No.Locked = True
Me.Arge_No.Locked = True
Me.Tanim.Locked = True
Me.Yer.Locked = True
Me.Paket.Locked = True
Me.Firma_Adi.Locked = True
Me.Aciklama.Locked = True
Me.TFS_ID.Locked = True
Me.Durum.Locked = True
Me.Buton1Box.BackColor = vbRed
Me.Tanim.SetFocus
Else
Me.Buton1Label.Caption = "Düzenleme Açık"
'Me.Tahsilat_Makbuzu_Alt.Locked = False
Me.Sira_No.Locked = False
Me.Stok_No.Locked = False
Me.Arge_No.Locked = False
Me.Tanim.Locked = False
Me.Yer.Locked = False
Me.Paket.Locked = False
Me.Firma_Adi.Locked = False
Me.Aciklama.Locked = False
Me.TFS_ID.Locked = False
Me.Durum.Locked = False
Me.Buton1Box.BackColor = vbGreen
Me.Tanim.SetFocus
End If
End Sub
Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun
Bu Konudaki Yorumlar |
Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: eraslan - 26/04/2019, 13:59
Cvp: Hücreyi (metin Kutusu) İstenildiği Zaman Okunur, İstediğim Zana Yazılır Olsun - Yazar: maytas - 26/04/2019, 15:31
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: ergntrn - 27/04/2019, 19:48
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: ergntrn - 27/04/2019, 19:49
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: ozanakkaya - 27/04/2019, 19:54
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: ergntrn - 27/04/2019, 19:57
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - Yazar: ozanakkaya - 28/04/2019, 14:39
|
Konuyu Okuyanlar: 1 Ziyaretçi