AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

web'ten tablo aktarmak

12/11/2010, 16:25

ondercesmeci

merhaba arkadaşlar.

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
12/11/2010, 17:03

ozanakkaya

web sitesinin sayfa kaynak kodlarını gönderebilir misin?
12/11/2010, 17:38

ondercesmeci

[html]

<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();" *****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 *****height: 25px">
<td class="menu_left">
&nbsp;
</td>
<td align="center" class="menu">
<span *****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" *****width:100%;">
<tr *****height:5px;">
<td></td>
</tr><tr>
<td><span id="ctl00_U_L_Baslik" *****font-weight:bold;"> </span></td>
</tr><tr *****height:5px;">
<td></td>
</tr>
</table>

</td>
</tr>
<tr *****display: none">
<td colspan="3">


</td>
</tr>
<tr>
<td colspan="3">

<table id="ctl00_O_Table1" border="0" *****width:100%;">
<tr>
<td><table id="ctl00_O_T_Urunler" cellspacing="1" cellpadding="1" border="0" *****border-width:1px;border-style:solid;">
<tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">1. Üretim Dağılımı</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Ürün</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Kuru</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Sulu</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Toplam</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">&nbsp;</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Yonca</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">34,987</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">42,530</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">77,517</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Buğday (Ekmeklik)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">8,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">31,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Nadas</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Korunga</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">14,400</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,400</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">18,800</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Çayır Otu</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">5,560</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">5,560</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Mısır (Silaj)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">11,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">11,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Arpa</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">1,799</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">1,799</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Fiğ</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,100</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,100</td>
</tr><tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">&nbsp;</td>
</tr><tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">&nbsp;</td>
</tr>
</table></td>
</tr><tr *****height:5px;">
<td></td>
</tr><tr id="ctl00_O_TR_ToplamUretim">
<td colspan="2"><span id="ctl00_O_L_ToplamUretim" *****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 *****height:5px;">
<td></td>
</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
<tr *****height: 26px; display: none; vertical-align: bottom">
<td align="right" colspan="3" *****vertical-align: bottom">
<table cellpadding="0" cellspacing="0" width="100%" *****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>
[/html]
12/11/2010, 18:00

ozanakkaya

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.
22/11/2010, 17:03

ondercesmeci

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.