sorgulama çalışmıyor
Tarih
10/02/2011 11:11
Konu Sahibi
sc.zumrut
Yorumlar
4
Okunma
1482
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



sc.zumrut
Üye
Kullanici Avatari
Üye
1
1
10/02/2011
0
Sivas
Ofis 2003
12/02/2011,10:45
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
Private Sub CommandButton1_Click()
Dim bak As Range
    Dim say As Integer
    For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
        If bak.Value = TextBox2.Value Then
            MsgBox "Bu Kayıt numarası bulundu."
            Exit Sub
        End If
    Next bak
    For Each bak In Range("L1:L" & WorksheetFunction.CountA(Range("L1:L65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox2.Value, vbUpperCase) Then
            MsgBox "Bu isimde bir kaydınız bulundu"
            Exit Sub
        End If
    Next bak
    
    say = WorksheetFunction.CountA(Range("B1:B65000"))
    TextBox1.Value = say
    
    Cells(say + 1, 1).Value = TextBox1.Value
    Cells(say + 1, 2).Value = TextBox2.Value
    Cells(say + 1, 3).Value = TextBox3.Value
    Cells(say + 1, 4).Value = TextBox4.Value
    Cells(say + 1, 5).Value = TextBox5.Value
    Cells(say + 1, 6).Value = TextBox6.Value
    Cells(say + 1, 7).Value = TextBox7.Value
    Cells(say + 1, 8).Value = TextBox8.Value
    Cells(say + 1, 9).Value = TextBox9.Value
    Cells(say + 1, 10).Value = TextBox10.Value
    Cells(say + 1, 11).Value = TextBox11.Value
    Cells(say + 1, 12).Value = TextBox12.Value
    Cells(say + 1, 13).Value = TextBox13.Value
    Cells(say + 1, 14).Value = TextBox14.Value
    Cells(say + 1, 15).Value = TextBox15.Value
    Cells(say + 1, 16).Value = TextBox16.Value
    Cells(say + 1, 17).Value = TextBox17.Value
    Cells(say + 1, 18).Value = TextBox18.Value
    Cells(say + 1, 19).Value = TextBox19.Value
    
    
    Workbooks("bölge el defteri.XLS").Save
    MsgBox "Verileriniz Kaydedildi", , "KAYIT"
    CommandButton4_Click
    
    TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub CommandButton2_Click()
Dim bak As Range
    For Each bak In Range("L1:L" & WorksheetFunction.CountA(Range("L1:L65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox2.Value, vbUpperCase) Then
            bak.Select
            TextBox1.Value = ActiveCell.Offset(0, -2).Value
            TextBox3.Value = ActiveCell.Offset(0, -1).Value
            TextBox4.Value = ActiveCell.Offset(0, -7).Value
            TextBox5.Value = ActiveCell.Offset(0, -6).Value
            TextBox6.Value = ActiveCell.Offset(0, 34).Value
            TextBox7.Value = ActiveCell.Offset(0, 36).Value
            TextBox8.Value = ActiveCell.Offset(0, 39).Value
            TextBox9.Value = ActiveCell.Offset(0, 41).Value
            TextBox10.Value = ActiveCell.Offset(0, 43).Value
            TextBox11.Value = ActiveCell.Offset(0, 44).Value
            TextBox12.Value = ActiveCell.Offset(0, 32).Value
            TextBox13.Value = ActiveCell.Offset(0, -5).Value
            TextBox14.Value = ActiveCell.Offset(0, 28).Value
            TextBox15.Value = ActiveCell.Offset(0, 27).Value
            TextBox16.Value = ActiveCell.Offset(0, 46).Value
            TextBox17.Value = ActiveCell.Offset(0, 6).Value
            TextBox18.Value = ActiveCell.Offset(0, 10).Value
            TextBox19.Value = ActiveCell.Offset(0, 23).Value
           
            
            Exit Sub
        End If
    Next bak
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

Private Sub CommandButton3_Click()
Dim bos As Range
    For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
        If TextBox2.Value = "" Or bos = "" Or ActiveCell = "" Then
            MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
            Exit Sub
        End If
    Next bos
    If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" Then
        MsgBox "t.c no listesinden bir Kişi seçmelisiniz"
    Else
        ActiveCell = TextBox2
        ActiveCell.Offset(0, 1) = TextBox3
        ActiveCell.Offset(0, 2) = TextBox4
        ActiveCell.Offset(0, 3) = TextBox5
        ActiveCell.Offset(0, 4) = TextBox6
        ActiveCell.Offset(0, 5) = TextBox7
        ActiveCell.Offset(0, 6) = TextBox8
        ActiveCell.Offset(0, 7) = TextBox9
        ActiveCell.Offset(0, 8) = TextBox10
        ActiveCell.Offset(0, 9) = TextBox11
        ActiveCell.Offset(0, 10) = TextBox12
        ActiveCell.Offset(0, 11) = TextBox13
        ActiveCell.Offset(0, 12) = TextBox14
        ActiveCell.Offset(0, 13) = TextBox15
        ActiveCell.Offset(0, 14) = TextBox16
        ActiveCell.Offset(0, 15) = TextBox17
        ActiveCell.Offset(0, 16) = TextBox18
        ActiveCell.Offset(0, 17) = TextBox19
        End Sub
        



    


Private Sub CommandButton4_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""



TextBox2.SetFocus
End Sub



Private Sub CommandButton7_Click()
Unload UserForm6
UserForm1.Show
End Sub


yukarıdaki koda göre sorgulama yapıyorum 6500. satırdaki bilgileri sorgulamada bulamıyorum. (sorgu sonucu olarak aradığınız kayıt bulunamadı ) olarak uyarı geliyor

Cevapla


sansar55
Aktif Üye
Kullanici Avatari
Aktif Üye
202
26/08/2009
12
Hatay
Ofis 2003
16/09/2014,12:45
Çözüldü 
sn zumrut bu şekilde yardımcı olamayız örnek eklerseniz. daha kolay ve hızlı olur ki bu kod ların sorgu ile alakası yok
+rep Access Paylaştıkca Güzeldir +rep
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.738
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,01:16
Çözüldü 
sn zumrut; sansar55 dostumuzunda beliirttiği üzere, bu şekilde cevap almanız imkansıza yakın bir olasılık, bu nedenle lütfen ilgili örneği ekleyiniz ve sorunuzu bu örnek üzerinden hareketle iletiniz.
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Konu Excel Soruları ve Cevapları bölümüne taşınmıştır
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:sc.zumrut
A sütünü ve L sütününu Textbox2 sorgulama yapıyorsunuz kodları tekrar kontrol ediniz ve hazırlamış olduğunuz örneği eklerseniz üzerinde düzeltilerek yardımcı olabiliriz aksi takdirde herkes için örnek hazırlamak çok zor.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü İnternet Vergi Dairesinden POS Bilgisi Sorgulama drummers 12 6.796 29/11/2016, 13:53 fthplt
Çözüldü EXCEL İLE WEBDEN TOPLU SORGULAMA YAPMAK turuncumx 4 2.837 15/11/2014, 15:08 atoz112
Çözüldü Access'den Exel'e sorgulama hatası tarzan 3 1.366 09/12/2012, 00:22 DUAYEN
Çözüldü Formül Neden Calısmıyor Bulamadım omurozkan 2 1.296 01/03/2011, 12:41 omurozkan
Çözüldü Sizlerin yardımıyla program yaptım ama çalışmıyor DUAYEN 4 1.427 06/11/2010, 18:33 DUAYEN


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya