Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/11/2010 16:25
Konu Sahibi
ondercesmeci
Yorumlar
4
Okunma
1794
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
merhaba arkadaşlar.
resim
resimdeki siteden ekilen ürünlerin isimleri ve üretim miktarlarını almaya çalışıyorum. aşağıdaki if döngüsü ile otomatik durdurmayı denedim ama komut veri bittiğinde durmuyor sürekli yeni kayda gidiyor. ilginize teşekkürler..[/vb]

Function Aktar()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1

Dim k As Integer

k=me.say

If IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText > 1 Then
Me.cksurunadi = IE.Document.All.tags("table").Item(4).Rows(k).Cells(0).innerText
Me.ckskuru = IE.Document.All.tags("table").Item(4).Rows(k).Cells(1).innerText
Me.ckssulu = IE.Document.All.tags("table").Item(4).Rows(k).Cells(2).innerText
Me.ckstoplam = IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText
Me.ckssuluhesap = Me.cksurunadi.Column(1) * Me.ckssulu
Me.ckskuruhesap = Me.cksurunadi.Column(2) * Me.ckskuru
me.say=me.say+1
Call Komut20_Click
Call tekrar
End If

End Function

Private Sub tekrar()
Call Aktar
End Sub

Private Sub Komut20_Click()
On Error GoTo Err_Komut20_Click


DoCmd.GoToRecord , , acNext

Exit_Komut20_Click:
Exit Sub

Err_Komut20_Click:
MsgBox Err.Description
Resume Exit_Komut20_Click

End Sub



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
 11.254
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,23:03
Çözüldü 
web sitesinin sayfa kaynak kodlarını gönderebilir misin?


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 

HTML 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
<head><title>
	
</title><link href="../../../App_Themes/CKS/styles.css" type="text/css" rel="stylesheet" /></head>
<script language="javascript" src="../../JavaScript/Genel.js" type="text/javascript" />
 
<script language="javascript" type="text/javascript"> 
    function PopWindow() 
    {
        if(window.event.clientY < 0 && window.event.clientY < -80)
        {
            alert('You are about to close the window'); 
            
            if (document.getElementById('ctl00_OrtaAlan_btnWindowClosing') != null)
            {
                alert("Kapatma Butonu Var");
                __doPostBack('ctl00$OrtaAlan$btnWindowClosing', '');
            }
        }
    }
</script>
 
<body id="ctl00_CKSMasterPopUpBody" onbeforeunload="PopWindow();" style="margin: [0],[0],[0],[0]">
    <form name="aspnetForm" method="post" action="AraziUrunlerDagilimi.aspx" id="aspnetForm">
<div>
<input type="hidden" name="__VIEWSTATE" id="
__VIEWSTATE" value="" />
</div>
 
        <table cellpadding="3" cellspacing="0" width="100%" height="100%" border="0">
            <tr style="height: 25px">
                <td class="menu_left">
                    &nbsp;
                </td>
                <td align="center" class="menu">
                    <span style="color:White;"> </span>
                </td>
                <td class="menu_right">
                    &nbsp;
                </td>
            </tr>
            <tr>
                <td align="right" colspan="3">
                    <a id="ctl00_hlKapat" title="Pencereyi Kapat" class="hyperLink" href="javascript:window.close();">Kapat</a>&nbsp;
                </td>
            </tr>
            <tr>
                <td align="center" valign="top" colspan="3">
                    <table cellpadding="0" cellspacing="0" width="100%" height="100%">
                        <tr>
                            <td colspan="3">
                                
    <table border="0" style="width:100%;">
	<tr style="height:5px;">
		<td></td>
	</tr><tr>
		<td><span id="ctl00_U_L_Baslik" style="font-weight:bold;"> </span></td>
	</tr><tr style="height:5px;">
		<td></td>
	</tr>
</table>
 
                            </td>
                        </tr>
                        <tr style="display: none">
                            <td colspan="3">
                                
                                
                            </td>
                        </tr>
                        <tr>
                            <td colspan="3">
                                
    <table id="ctl00_O_Table1" border="0" style="width:100%;">
	<tr>
		<td><table id="ctl00_O_T_Urunler" cellspacing="1" cellpadding="1" border="0" style="border-width:1px;border-style:solid;">
			<tr>
				<td align="left" colspan="7" style="border-width:1px;border-style:solid;">1. Üretim Dağılımı</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Ürün</td><td align="center" colspan="2" style="border-width:1px;border-style:solid;">Kuru</td><td align="center" colspan="2" style="border-width:1px;border-style:solid;">Sulu</td><td align="center" colspan="2" style="border-width:1px;border-style:solid;">Toplam</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">&nbsp;</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">Ekilen Alan (da)</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Yonca</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">34,987</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">42,530</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">77,517</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Buğday (Ekmeklik)</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">8,000</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">31,000</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Nadas</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">23,000</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Korunga</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">14,400</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">4,400</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">18,800</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Çayır Otu</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">5,560</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">5,560</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Mısır (Silaj)</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">11,000</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">11,000</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Arpa</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">1,799</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">1,799</td>
			</tr><tr>
				<td align="left" colspan="1" style="border-width:1px;border-style:solid;">Fiğ</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">4,100</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" style="border-width:1px;border-style:solid;">4,100</td>
			</tr><tr>
				<td align="left" colspan="7" style="border-width:1px;border-style:solid;">&nbsp;</td>
			</tr><tr>
				<td align="left" colspan="7" style="border-width:1px;border-style:solid;">&nbsp;</td>
			</tr>
		</table></td>
	</tr><tr style="height:5px;">
		<td></td>
	</tr><tr id="ctl00_O_TR_ToplamUretim">
		<td colspan="2"><span id="ctl00_O_L_ToplamUretim" style="font-size:11px;">Toplam Ekilen Alan: 1. Üretim Toplamı: <b>172,776 da</b>, 2. Üretim Toplamı: <b>0 da</b>, Ara Ziraat Toplamı: <b>0 da</b></span></td>
	</tr><tr style="height:5px;">
		<td></td>
	</tr>
</table>
 
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
            <tr style="height: 26px; display: none; vertical-align: bottom">
                <td align="right" colspan="3" style="vertical-align: bottom">
                    <table cellpadding="0" cellspacing="0" width="100%" style="vertical-align: bottom">
                        <tr>
                            <td class="footer_left">
                                &nbsp;
                            </td>
                            <td class="footer">
                                </td>
                            <td class="footer_right">
                                &nbsp;
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
        </table>
    </form>
</body>
</html>
 



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
 11.254
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,23:03
Çözüldü 
Sn ondercesmeci,
gönderdiğiniz Html kodlarını deneme fırsatım olmadı ama vb kodlarındaki dikkatimi çeken durumu belirteyim, belki çözüm hakkında fikir verir.

Function Aktar() kodunda;
Call Komut20_Click
Call tekrar
şeklinde kod yazmışsın.

Private Sub tekrar() kodunda da
Call Aktar
yazıyor.
Komut20_Click ise yeni kayıt ekleme kodu.
Sanırım problem burada.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
Sn. sledgeab öncelikle sizin ve tüm arkadaşların kurban bayramını kutluyorum. cevabınız için teşekkürler sayenizde problemi hallettim.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bağlı Tablo Bilgileri Gösterme Ve Yenileme Hata ielmacilar 3 156 28/08/2018, 23:52
Son Yorum: mehmetdemiral
Çözüldü Formdan Forma Veri Aktarmak m_demir 2 149 13/07/2018, 10:36
Son Yorum: m_demir
Çözüldü Id Numarasına Göre İki Tabloya Veri Aktarmak. m_demir 4 286 03/07/2018, 20:25
Son Yorum: m_demir
Çözüldü Tablo Varmı Kontrol Ettirmek bibib 4 154 27/06/2018, 11:07
Son Yorum: bibib
Çözüldü Tablo Ve Sorguya Bağlı Rapordaki Alanlarda Geçersiz Denetim Kaynağı Hatası mmert06 4 180 25/06/2018, 12:03
Son Yorum: mmert06

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.