Kod:
Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.ListIndex > -1 Then
secim = ComboBox1.List(ComboBox1.ListIndex, 0)
no.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
t1.Text = secim
For i = 49 To 240
Me.Controls("t" & i).Text = ""
Next i
Set RS = CreateObject("adodb.recordset")
RS.Open "select * from ana where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 1 To 49
Controls("t" & (i - 0)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'kesim tablosunda 240ad sütun var
RS.Open "select * from kesim where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 110)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'dikim tablosunda 170 sütun var
RS.Open "select * from dikim where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 98)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'dikimc tablosunda 170 sütun var
RS.Open "select * from dikimc where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 88)).Text = RS.Fields(i).Value
Next i
End If
RS.Close
Set RS = CreateObject("adodb.recordset") 'paketleme tablosunda 170 sütun var
RS.Open "select * from paketleme where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 77)).Text = RS.Fields(i).Value
Next i
End If
RS.Close
Set RS = CreateObject("adodb.recordset") 'baskı tablosunda 170 sütun var
RS.Open "select * from baskı where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 66)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'baskıc tablosunda 170 sütun var
RS.Open "select * from baskıc where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 55)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'nakıs tablosunda 170 sütun var
RS.Open "select * from nakıs where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 44)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'nakısgelen tablosunda 170 sütun var
RS.Open "select * from nakısgelen where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 33)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'yıkama tablosunda 170 sütun var
RS.Open "select * from yıkama where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 22)).Text = RS.Fields(i).Value
Next i
End If
Set RS = CreateObject("adodb.recordset") 'yıkamagelen tablosunda 170 sütun var
RS.Open "select * from yıkamagelen where v1='" & secim & "'", baglan, 1, 1
If RS.RecordCount > 0 Then
For i = 160 To 170
Controls("t" & (i - 11)).Text = RS.Fields(i).Value
Next i
End If
RS.Close
End If
End Sub