- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
FORM ÜZERİNDE BİR ADE COMMANDBUTTON VE 1 ADET LİSTBOX1 VAR
Private Sub Commandbutton1_Click
If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then
ListBox1.Locked = False: TextBox57.Locked = True: Call ListBox1_Click ' :? otomatik Tıklanmıyor bu kod ile
End Sub
----------------------------------------------------------------------------------------
Private Sub ListBox1_Click()
Dim devam As VbMsgBoxResult
CommandButton5.Visible = True
For i = 0 To ListBox1.ColumnCount - 1
If ListBox1.Selected(i) = True Then ' Select işlemi olmadan otomatik tıklanmış gibi sanki veriler güncellensin istiyorum?
Label21.Visible = True: ComboBox9.Visible = True: Label5.Visible = True: ComboBox8.Visible = True
If ListBox1.List(i, 0) = "EBAT" Then ListBox1.Locked = True
If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then ListBox1.Locked = False: TextBox57.SetFocus
If ListBox1.List(i, 0) <> "" And ComboBox3 = "G" Then ListBox1.Locked = True: TextBox20.SetFocus
ComboBox8 = ListBox1.List(i, 1)
ComboBox9 = ListBox1.List(i, 0)
'TextBox21 = ListBox1.List(i, 2)
'ComboBox2 = ListBox1.List(i, 3)
TextBox56 = ListBox1.List(i, 10)
TextBox55 = ListBox1.List(i, 11)
TextBox17 = ListBox1.List(i, 12)
End If
Next
End Sub
Private Sub Commandbutton1_Click
If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then
ListBox1.Locked = False: TextBox57.Locked = True: Call ListBox1_Click ' :? otomatik Tıklanmıyor bu kod ile
End Sub
----------------------------------------------------------------------------------------
Private Sub ListBox1_Click()
Dim devam As VbMsgBoxResult
CommandButton5.Visible = True
For i = 0 To ListBox1.ColumnCount - 1
If ListBox1.Selected(i) = True Then ' Select işlemi olmadan otomatik tıklanmış gibi sanki veriler güncellensin istiyorum?
Label21.Visible = True: ComboBox9.Visible = True: Label5.Visible = True: ComboBox8.Visible = True
If ListBox1.List(i, 0) = "EBAT" Then ListBox1.Locked = True
If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then ListBox1.Locked = False: TextBox57.SetFocus
If ListBox1.List(i, 0) <> "" And ComboBox3 = "G" Then ListBox1.Locked = True: TextBox20.SetFocus
ComboBox8 = ListBox1.List(i, 1)
ComboBox9 = ListBox1.List(i, 0)
'TextBox21 = ListBox1.List(i, 2)
'ComboBox2 = ListBox1.List(i, 3)
TextBox56 = ListBox1.List(i, 10)
TextBox55 = ListBox1.List(i, 11)
TextBox17 = ListBox1.List(i, 12)
End If
Next
End Sub