HTML Formundan Excel'e Veri Kaydetme

R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Örnek dosyayı ekte bulabilirsiniz.
 

Ekli dosyalar

D

derebey95

Katılım
25 Aralık 2008
Mesajlar
5
Excel Vers. ve Dili
excel 2007
Tşkler ne zamandır arıyordum ancak formu nasıl oluşturduğunuzdan bahsederseniz çok sevinirim
ben veritabanına veri kaydedemedim xls dosya yolu sizin bilgisayarınızda oluşturulduğu üzere görünüyor.
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Dosya yollarını kendi klasör yolunuza göre düzeltiniz.

HTML form ile ilgili web tasarımı konularını araştırabilirsiniz.İnternette birçok kaynak var.
 
D

derebey95

Katılım
25 Aralık 2008
Mesajlar
5
Excel Vers. ve Dili
excel 2007
o kısımları düzelttim ancak olmadı
sizin pc deki veriyoluna göre klasörler oluşturdum ancak yine kayıt yapamadım
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Peki herhangi bir hata veya uyarı veriyor mu?
 
E

eMuSh

Katılım
21 Aralık 2009
Mesajlar
1
Excel Vers. ve Dili
Office 2007
Merhabalar,

Bu Formun bir benzeride bana lazım çalışıyor program.

Verileri girip kaydet tuşuna bastıktan sonra excel kısmındaki Noyu tekrar ekrana verebilir mi?

Yani kayıt edip kayıt numarasını tekrar html dosyasına nasıl getirebiliriz?

Teşekkürler şimdiden.
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
eMuSh' Alıntı:
Merhabalar,

Bu Formun bir benzeride bana lazım çalışıyor program.

Verileri girip kaydet tuşuna bastıktan sonra excel kısmındaki Noyu tekrar ekrana verebilir mi?

Yani kayıt edip kayıt numarasını tekrar html dosyasına nasıl getirebiliriz?

Teşekkürler şimdiden.
Genişletmek için tıkla ...
Kodlara aşağıdaki satırı ekleyebilirsiniz.

Noyu mesaj kutusu ile gösteriyor.

Kod: 
<html lang=Tr>
<title>Test Form</title>
<head>
 <meta http-equiv=Content-Type content="text/html; charset=Windows-1254">
 <style>
  body {font:10pt tahoma;}
  table {font:10pt tahoma;}
 </style>
 <script language="VBscript">
  Dim adoCn
  Dim adoRs
  Dim adoFld
  Dim strQuery
  Dim strResults
  Const adClipString = 2
  Const strColDelim = "  </td><td>"
  Const strRowDelim = "</td></tr><tr><td>"
  Set adoCn = CreateObject("ADODB.Connection")
  Set adoRs = CreateObject("ADODB.Recordset")
  With adoCn
   .Provider = "Microsoft.Jet.OLEDB.4.0"
   .ConnectionString = "Data Source=C:\TestFolder\TestDataBase.xls; Extended Properties=Excel 8.0;"
   .Open
  End With
 
  strQuery = "SELECT * FROM [Data$] ORDER BY Adi asc"
 
  With adoRs
   Set .ActiveConnection = adoCn
   .Open strQuery
  End With
 </script>
</head>
<body>
<br>
<center>
 
<br>
<b><u>Veri Girişi</u>:</b>
<br>
<br>
<script language="VBscript">
 Sub SendData()
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = False
  Set xlBook = xlApp.Workbooks.open("C:\TestFolder\TestDataBase.xls")
  Set Sh=xlBook.sheets("Data")
  NoA = Sh.cells(65536,1).end(3).row + 1
  sira=NoA-1
  sh.cells(NoA, 1) = sira
  Sh.cells(NoA, 2) = document.veriler.No.value
  Sh.cells(NoA, 3) = document.veriler.ad.value
  Sh.cells(NoA, 4) = document.veriler.soyad.value
  Sh.cells(NoA, 5) = document.veriler.meslek.value
  Sh.cells(NoA, 6) = document.veriler.dogum_tarih.value
  xlBook.save
  xlBook.close
  xlApp.Quit
  Set xlBook = Nothing
  Set xlApp = Nothing
  [COLOR=red]msgbox sira[/COLOR]
 End Sub
</script> 
<form name="veriler" enctype="text/plain">
 <table border="0" cellspacing="0" cellpadding="4" width="100%">
  <tr>
   <td width="45%"><div align="right"><b>Kimlik No :</b></div></td>
   <td width="55%"><input type="text" name="No" size="30"></td>
  </tr>
  <tr>
   <td><div align="right"><b>Ad :</b></div></td>
   <td><input type="text" name="ad" size="30"></td>
  </tr>
  <tr>
   <td><div align="right"><b>Soyad :</b></div></td>
   <td><input type="text" name="soyad" size="30"></td>
  </tr>
  <tr>
   <td><div align="right"><b>Meslek :</b></div></td>
   <td><input type="text" name="meslek" size="30"></td>
  </tr>
  <tr>
   <td><div align="right"><b>Doğum Tarihi :</b></div></td>
   <td><input type="text" name="dogum_tarih" size="30"></td>
  </tr>
  <tr>
   <td> </td>
   <td>    <input type="submit" name="submit" value=" Kaydet " onClick="SendData()"></td>
  </tr>
 
 </table>
</form>
<br>
<b><u>Veri Tabanı</u>:</b>
<br>
<br>
 <table cellpadding="3" cellspacing="0" 
  style="border:1px solid silver;">
  <tr>
   <td rowspan="<%= adoRs.RecordCount + 2 %>">
   </td>
  </tr>
  <tr>
 
  <script language="VBscript">
   For Each adoFld in adoRs.Fields
    document.Write "<td style=""border-bottom:1px solid silver;""><b>" & adoFld.Name & "</b></td>"
   Next
  </script>
 
  </tr>   
  <tr>
   <td>
   <script language="VBscript">
    strResults = adoRs.GetString(adClipString,adoRs.RecordCount, strColDelim, strRowDelim)
    strResults = Left(strResults, InStrRev(strResults,"<tr><td>") - 1)
    document.Write strResults
    Set adoCn = nothing
    Set adoRs = nothing
   </script>
  </tr>
 </table>
</center> 
</body>
</html>
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
Recep İpek' Alıntı:
Örnek dosyayı ekte bulabilirsiniz.
Genişletmek için tıkla ...
Peki bu ekli dosyadaki şu durumu yapabilir miyiz. Ben yapamadım da , aynı kaydı tekrar almasının aksine aynı kaydı da kaydetsin kodunu. Yani bu bilgi kayıtlıdır uyarısını almak istemiyorum. Aynı no kaydını tekrar kaydetmek istiyorum. Bunu nasıl halledebilirim. Teşekkürler...
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın aydın1977,

Siz kendi örneğinizi ekleyebilir misiniz.

Sayın Recep İpek in üst tarafta eklediği örnekte kaydedilmişi kaydetme gibi bir uyarı veya kod parçasına rastlayamadım.
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
Sayın Modalı Merhaba

Öncelikle sorduğum soruya ilgi gösterdiğiniz için teşekkür ederim.

Benim sorunum ben aynı kayıt yaptığımda bu sicil no kayıtlı uyarısı veriyor. Bu uyarıyı almak istemiyorum. Aynı no ile defalarca kayıt yapmak istiyorum. Sayın Recep İpek'in örnek text dosyasını gönderiyorum. Şimdiden teşekkürler...

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Personel Programı</title>
</head>

<body bgcolor=gray onload="VeriAc()" unload="VeriKapat()">
<form name="ANAFORM">

<table border="1" width="100%">
<TR>
<TD WIDTH="100%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=5><b>Personel Programı</b></FONT></TD>
</TR>
</table>
<br>

<table border="1" width="100%" HEIGHT="19%"BGCOLOR="#BAC7BC" >
<tr>
<td width="20%"> <FONT SIZE=4><b>Sıra</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN1" SIZE=6 tabindex="1"></td>
<td width="20%" align=center><INPUT NAME="REFRESH1" TYPE="Hidden" OnClick="window.location.reload();VeriAc()" VALUE=" Güncelle "style="color: #0066CC; font-weight: bold">  </td>
<td width="20%"> <FONT SIZE=4><b>Departman</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN7" size="1" tabindex="7">
<OPTION >- -Seçiniz- -
<OPTION VALUE="Üretim">Üretim
<OPTION VALUE="Yönetim">Yönetim
<OPTION VALUE="Mühendislik">Mühendislik
<OPTION VALUE="Bakım">Bakım
<OPTION VALUE="Lojistik">Lojistik
<OPTION VALUE="Satış">Satış
<OPTION VALUE="İnsan Kaynakları">İnsan Kaynakları
<OPTION VALUE="Bilgi İşlem">Bilgi İşlem
<OPTION VALUE="Finans">Finans
<OPTION VALUE="Kalite">Kalite
<OPTION VALUE="Satınalma">Satınalma
</SELECT>
</td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Sicil</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN2" SIZE=6 tabindex="2" ></td>
<td width="20%" align=center> <INPUT NAME="ALAN90" TYPE="HIDDEN" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>Görevi</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN8" size="1" tabindex="8">
<OPTION>- -Seçiniz- -
<OPTION VALUE="Memur">Memur
<OPTION VALUE="İşçi">İşçi
<OPTION VALUE="Mühendis">Mühendis
<OPTION VALUE="Müdür">Müdür
</SELECT>
</td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Adı</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN3" SIZE=25 tabindex="3" ></td>
<td width="20%" align=center> <b>Aktif &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%"> <FONT SIZE=4><b>Brüt Ücret</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN9" SIZE=11 tabindex="9" ></td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Soyadı</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN4" SIZE=25 tabindex="4"></td>
<td width="20%"align=center> <INPUT NAME="ALAN91" TYPE="TEXT" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>TC Kimlik Numarası</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN10" SIZE=11 MAXLENGTH=11 tabindex="10"></td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Giriş Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN5" SIZE=11 tabindex="5"></td>
<td width="20%" align=center> <b>Toplam &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%"> <FONT SIZE=4><b>Cinsiyet</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN11" size="1" tabindex="11">
<OPTION>- -Seçiniz- -
<OPTION VALUE="Erkek">Erkek
<OPTION VALUE="Bayan">Bayan
</SELECT>
</td>
</tr>

<tr>
<td width="20%"> <FONT SIZE=4><b>Çıkış Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN6" SIZE=11 tabindex="6"></td>
<td width="20%"align=center> <INPUT NAME="ALAN92" TYPE="TEXT" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>Doğum Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN12" SIZE=11 tabindex="12"></td>
</tr>

</table>

<br>




<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="10" BGCOLOR="#FFFF99" ALIGN=CENTER><b></b></TD>
</TR>
</table>
<br>
<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="45" BGCOLOR="#BAC7BC" align="center">
<INPUT NAME="EKLE" TYPE="BUTTON" OnClick="EKLE1()" VALUE=" Ekle " style="color: #0066CC; font-weight: bold; text-decoration: blink">  
<INPUT NAME="ILKKAYIT" TYPE="BUTTON" OnClick="ILKKAYIT1()" VALUE=" İlk "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="OKAYIT" TYPE="BUTTON" OnClick="OKAYIT1()" VALUE=" Önceki "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="SKAYIT" TYPE="BUTTON" OnClick="SKAYIT1()" VALUE=" Sonraki "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="SONKAYIT" TYPE="BUTTON" OnClick="SONKAYIT1()" VALUE=" Son "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="BUL" TYPE="BUTTON" OnClick="BUL1()" VALUE=" Bul "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="DUZELT" TYPE="BUTTON" OnClick="DUZELT1()" VALUE=" Düzelt "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="SIL" TYPE="BUTTON" OnClick="SIL1()" VALUE=" Sil "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="IPTAL" TYPE="BUTTON" OnClick="IPTAL1()" VALUE=" İptal "style="color: #0066CC; font-weight: bold">   
<INPUT NAME="KAYDET" TYPE="BUTTON" OnClick="KAYDET1()" VALUE=" Kaydet "style="color: #0066CC; font-weight: bold">
</TD>
</TR>
</table>
<br>
<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="10" BGCOLOR="#FFFF99" ALIGN=CENTER><b></b></TD>
</TR>
</table>

<br>

<table border="1" width="100%" HEIGHT="20%"BGCOLOR="#BAC7BC">
<tr>

<td width="100%"><TEXTAREA NAME="BILGI1" ROWS="12" COLS="118" tabindex="13"></TEXTAREA></td>

</tr>
</table>

<br>

<Script Language="VBScript">

Public Db
Public RS
Public SQLStr

Sub VeriAc()
Baglanti()
al(4)
End Sub

Sub Baglanti()

Set Db = CreateObject("ADODB.Connection")

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestFolder\PERSONEL.mdb;Jet OLEDB:Database Password=1234;"

Set RS = CreateObject("ADODB.Recordset")

SQLStr = "SELECT * FROM [PERDATA] ORDER BY SIRA,SICIL"

RS.Open SQLStr, Db, 1, 3

End Sub


Sub al(deg1)

Set MyForm = Document.ANAFORM

If RS.RecordCount > 0 Then

If deg1=1 Then

RS.MoveFirst

ElseIf deg1=2 Then

RS.MovePrevious

ElseIf deg1=3 Then

RS.MoveNext

ElseIf deg1=4 Then

RS.MoveLast

Else
a=1
End If

MyForm.Reset

MyForm.ALAN91.Value = RS.AbsolutePosition

MyForm.ALAN92.Value = RS.RecordCount

MyForm.ALAN1.Value=RS("SIRA")
MyForm.ALAN2.Value=RS("SICIL")
MyForm.ALAN3.Value=RS("ADI")
MyForm.ALAN4.Value=RS("SOYADI")
MyForm.ALAN5.Value=RS("GIRIS")
If RS("CIKIS")<>"" Then MyForm.ALAN6.Value=RS("CIKIS")
MyForm.ALAN7.Value=RS("DEPARTMAN")
MyForm.ALAN8.Value=RS("GOREVI")
MyForm.ALAN9.Value=RS("BRUT")
MyForm.ALAN10.Value=RS("TCKIMNO")
MyForm.ALAN11.Value=RS("CINS")
If RS("DOGTAR")<>"" Then MyForm.ALAN12.Value=RS("DOGTAR")
MyForm.BILGI1.Value=RS("BILGI")

Else

Msgbox "Veritabanında Kayıt Bulunamadı." ,16,"UYARI"

End If

Ekran(1)

End Sub

Sub VeriKapat()
Set MyForm = Nothing
RS.Close
Set RS = Nothing
Db.Close
Set Db = Nothing
End Sub

Sub Mesaj()
Msgbox "Çalışmalar Devam Ediyor",,"Uyarı"
End Sub


Sub KAYDET1()
Dim sonuc

Set MyForm = Document.ANAFORM

sonuc=False

If MyForm.ALAN2.Value="" Or Not IsNumeric(MyForm.ALAN2.Value) Then
HataMesaj ="Sicil Numarası Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN3.Value="" Then
HataMesaj=HataMesaj + "Adı Boş Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN4.Value="" Then
HataMesaj=HataMesaj + "Soyadı Boş Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN5.Value="" Or Not IsDate(MyForm.ALAN5.Value) Then
HataMesaj=HataMesaj + "Giriş Tarihi Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN9.Value="" Or Not IsNumeric(MyForm.ALAN9.Value) Then
HataMesaj=HataMesaj + "Brüt Ücreti Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN10.Value="" Or Not IsNumeric(MyForm.ALAN10.Value) Or Len(MyForm.ALAN10.Value)<>11 Then
HataMesaj=HataMesaj + "TC Kimlik Numarası Boş veya Hatalı Olamaz!"
sonuc=False
End If

If sonuc=False Then
MsgBox + "******************************" + Chr(13) + HataMesaj + Chr(13) + "******************************",13,"Bilgi"
MyForm.ALAN2.Focus
Exit Sub
End If


If MyForm.ALAN90.Value=1 Then

veribul1=MyForm.ALAN2.Value

If veribul1="" Or Not IsNumeric(veribul1) Then Exit Sub

Baglanti()

RS.Find ("SICIL= '" + veribul1 + "'")

If RS.EOF Then

RS.AddNew

RS("SIRA")=MyForm.ALAN92.Value+1
RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Myform.REFRESH1.OnClick()

Msgbox "Girdiğiniz Bilgiler Kaydetildi. " ,16,"UYARI"

Else

MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

MyForm.ALAN2.SetFocus

Exit Sub

End If

ElseIf MyForm.ALAN90.Value=2 Then

RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Msgbox "Düzenlediğiniz Bilgiler Kaydetildi." ,16,"UYARI"

Else

Msgbox "Hata Oluştu.",16,"Uyarı"

End If

MyForm.ALAN90.Value=0

Ekran(1)

End Sub



Sub EKLE1()
Ekran(2)
Set MyForm = Document.ANAFORM
MyForm.Reset

MyForm.ALAN90.Value=1

MyForm.ALAN91.Value = RS.RecordCount

MyForm.ALAN92.Value = RS.RecordCount
MyForm.ALAN1.Value=MyForm.ALAN92.Value+1
End Sub

Sub ILKKAYIT1()
RS.MoveFirst
al(1)
Ekran(4)
End Sub

Sub OKAYIT1()
If RS.BOF = True Then
RS.MoveFirst
Else
RS.MovePrevious
End If
If IsNumeric(RS("SIRA")) Then
al(2)
Else
MsgBox ("İlk Kayıt")
Ekran(4)
End If
End Sub


Sub SKAYIT1()
If RS.EOF = True Then
RS.MoveLast
Else
RS.MoveNext
End If
If IsNumeric(RS("SIRA")) Then
al(3)
Else
MsgBox ("Son Kayıt")
Ekran(5)
End If
End Sub

Sub SONKAYIT1()
al(4)
Ekran(5)
End Sub


Sub IPTAL1()
Set MyForm = Document.ANAFORM
If MyForm.ALAN90.Value=1 Then
MyForm.Reset
al(0)
End If
MyForm.ALAN90.Value=0
Ekran(1)
End Sub

Sub DUZELT1()
Ekran(3)
Set MyForm = Document.ANAFORM
MyForm.ALAN90.Value=2

End Sub



Sub BUL1()
Dim veribul

Baglanti()

veribul=Inputbox("Aradığınız kişinin sicil numarasını giriniz.","Uyarı")

If veribul="" Or Not IsNumeric(veribul) Then Exit Sub

RS.Find ("SICIL= '" + veribul + "'")

If RS.EOF Then
Msgbox "Aradığınız Kayıt Bulunamadı." ,16,"Uyarı"
Else
Ekran(3)
al(0)
Ekran(1)
End If
End Sub

Sub SIL1()
If Not (RS.EOF And RS.BOF) Then
If Msgbox("İlgili Kaydı Silmek İstiyormusunuz??",vbYesNo)=vbYes Then
RS.Delete
Set MyForm = Document.ANAFORM
Myform.REFRESH1.OnClick()
Msgbox "İlgili Kayıt Silindi. " ,16,"Uyarı"
end if
End if

End Sub

Sub Ekran(deg)

Set MyForm = Document.ANAFORM
If deg=1 Then
MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = False
MyForm.OKAYIT.Disabled = False
MyForm.SKAYIT.Disabled = False
MyForm.SONKAYIT.Disabled = False
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True

Elseif deg=2 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = False
MyForm.ALAN3.Disabled = False
MyForm.ALAN4.Disabled = False
MyForm.ALAN5.Disabled = False
MyForm.ALAN6.Disabled = False
MyForm.ALAN7.Disabled = False
MyForm.ALAN8.Disabled = False
MyForm.ALAN9.Disabled = False
MyForm.ALAN10.Disabled = False
MyForm.ALAN11.Disabled = False
MyForm.ALAN12.Disabled = False
MyForm.ALAN90.Disabled = False
MyForm.ALAN91.Disabled = False
MyForm.ALAN92.Disabled = False
MyForm.BILGI1.Disabled = False

MyForm.EKLE.Disabled = True
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = True
MyForm.DUZELT.Disabled = True
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = False
MyForm.KAYDET.Disabled = False

Elseif deg=3 Then

MyForm.ALAN1.Disabled = False
MyForm.ALAN2.Disabled = False
MyForm.ALAN3.Disabled = False
MyForm.ALAN4.Disabled = False
MyForm.ALAN5.Disabled = False
MyForm.ALAN6.Disabled = False
MyForm.ALAN7.Disabled = False
MyForm.ALAN8.Disabled = False
MyForm.ALAN9.Disabled = False
MyForm.ALAN10.Disabled = False
MyForm.ALAN11.Disabled = False
MyForm.ALAN12.Disabled = False
MyForm.ALAN90.Disabled = False
MyForm.ALAN91.Disabled = False
MyForm.ALAN92.Disabled = False
MyForm.BILGI1.Disabled = False

MyForm.EKLE.Disabled = True
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = True
MyForm.DUZELT.Disabled = True
MyForm.SIL.Disabled = False
MyForm.IPTAL.Disabled = False
MyForm.KAYDET.Disabled = False

ElseIf deg=4 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = False
MyForm.SONKAYIT.Disabled = False
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True

ElseIf deg=5 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = False
MyForm.OKAYIT.Disabled = False
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True
Else
Exit Sub
End If
End Sub

</script>
</form>
</body>
</html>
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın aydın1977,

Kod: 
If MyForm.ALAN90.Value=1 Then

veribul1=MyForm.ALAN2.Value

If veribul1="" Or Not IsNumeric(veribul1)  Then Exit Sub

Baglanti()

[COLOR=Red]RS.Find  ("SICIL= '" + veribul1 + "'")

If RS.EOF Then[/COLOR] 

RS.AddNew

RS("SIRA")=MyForm.ALAN92.Value+1
RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Myform.REFRESH1.OnClick()

Msgbox "Girdiğiniz Bilgiler Kaydetildi.    " ,16,"UYARI"

[COLOR=Red]Else

MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

MyForm.ALAN2.SetFocus

Exit Sub

End If[/COLOR]
Kırmızı olan kodl parçasını silip deneyin.

İyi çalışmalar
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
Sayın Modalı , dediğiniz şekilde yaptım , fakat database'i görmüyor ...
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
RS.Find ("SICIL= '" + veribul1 + "'")

If RS.EOF Then

koduyla sicil nosu veribul1 değişkenine eşit bir kayıt yok ise yeni kayıt ekliyor.

Yoksa,

Else

MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

MyForm.ALAN2.SetFocus

Exit Sub

End If

ile de uyarı verip Alan2 ye odaklanıp alt yordamdan çıkıyor.

Ben bağlantı olan kısmı ellemedim. İsteğinize göre tüm kayıtların eklenmesini sağladım.

Bir de benzer olmayan bir kayıt ekleyip sonucuna bakabilir misiniz.
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
Sayın Modalı altta verdiğim örnekte tam olarak ne gibi bir değişiklik yapmalıyım ;

If MyForm.ALAN90.Value=1 Then

veribul1=MyForm.ALAN2.Value

If veribul1="" Or Not IsNumeric(veribul1) Then Exit Sub

Baglanti()

RS.Find ("SICIL= '" + veribul1 + "'")

If RS.EOF Then

RS.AddNew

RS("SIRA")=MyForm.ALAN92.Value+1
RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Myform.REFRESH1.OnClick()

Msgbox "Girdiğiniz Bilgiler Kaydetildi. " ,16,"UYARI"

Else

MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

MyForm.ALAN2.SetFocus

Exit Sub

End If
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Kod: 
If MyForm.ALAN90.Value=1 Then

veribul1=MyForm.ALAN2.Value

If veribul1="" Or Not IsNumeric(veribul1)  Then Exit Sub

Baglanti()

'RS.Find  ("SICIL= '" + veribul1 + "'")

'If RS.EOF Then

RS.AddNew

RS("SIRA")=MyForm.ALAN92.Value+1
RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Myform.REFRESH1.OnClick()

Msgbox "Girdiğiniz Bilgiler Kaydetildi.    " ,16,"UYARI"

'Else

'MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

'MyForm.ALAN2.SetFocus

'Exit Sub

'End If
İyi çalışmalar
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
Sayın Modalı peki katdettiğimiz bilgilerin , listeleme kodunu nasıl yapacaz , verileri listelemek istesek hangi kodun arasına hangi listeleme kodu koyacaz , teşekkürler
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın aydin1977,

Sanırım kayıtları aynı sayfa üstünde listeliyorsunuz ve bir düğme ,le kayıt olayını tetikliyorsunuz. Eğer düğmenin bostback özelliğini açarsanız sayfanız kayıt sırasında yanilenir ve listeniz yeni kaydı görüntüler.

İyi çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst