Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > JavaScript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-12-2011, 04:55   #121
xlomba
 
Giriş: 30/04/2009
Şehir: istanbul
Mesaj: 77
Excel Vers. ve Dili:
2010 tr
Varsayılan

şimdi bunu düzenledim ancak data.xls açıkken index.html den giriş yapamıyorum.amir açıklaması yazan sütuna farklı oturumdan cevap yazılacak ve excell sayfasının açılıp kapanması işini hallemedim.bu konuda yardımcı olabilir misiniz?
Eklenmiş Dosyalar
Dosya Türü: rar form.rar (5.5 KB, 61 Görüntülenme)
xlomba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2011, 23:18   #122
xlomba
 
Giriş: 30/04/2009
Şehir: istanbul
Mesaj: 77
Excel Vers. ve Dili:
2010 tr
Varsayılan

yardımcı olacak yokmu arkadaşlar?
xlomba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-12-2011, 15:08   #123
xlomba
 
Giriş: 30/04/2009
Şehir: istanbul
Mesaj: 77
Excel Vers. ve Dili:
2010 tr
Varsayılan

yukarıda paylaştığım dosyada index.html ve data.xls var. (direkt olarak C:\ dizinde açıp çalıştırmanız gerekli)
şimdi; data.xls açıksa index.html den veri girşi yapılamıyor (kayıt almıyor)
bende de şuan için data.xls nin açık olması gerekiyor.bunun için birtane daha amir.htm (ekte verdim) gibi bir dosya oluşturmam gerekiyor.
amir.html den açıklama yazmak istenen yazının sıra nosu girilerek o satıra açıklama girilecek.
yardımcı olacak arkadaşlara şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: rar amir.rar (1.3 KB, 49 Görüntülenme)
xlomba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2012, 11:28   #124
SONSUZLUK22
 
Giriş: 11/01/2012
Şehir: mersin
Mesaj: 9
Excel Vers. ve Dili:
exel 2003
Varsayılan merhaba

Alıntı:
aydin1977 tarafından gönderildi Mesajı Görüntüle
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%">&nbsp;<FONT SIZE=4><b>Sıra</b></FONT></td>
<td width="20%">&nbsp;<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"> &nbsp;</td>
<td width="20%">&nbsp;<FONT SIZE=4><b>Departman</b></FONT></td>
<td width="20%">&nbsp;<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%">&nbsp;<FONT SIZE=4><b>Sicil</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN2" SIZE=6 tabindex="2" ></td>
<td width="20%" align=center>&nbsp;<INPUT NAME="ALAN90" TYPE="HIDDEN" SIZE=6></td>
<td width="20%">&nbsp;<FONT SIZE=4><b>Görevi</b></FONT></td>
<td width="20%">&nbsp;<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%">&nbsp;<FONT SIZE=4><b>Adı</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN3" SIZE=25 tabindex="3" ></td>
<td width="20%" align=center>&nbsp;<b>Aktif &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%">&nbsp;<FONT SIZE=4><b>Brüt Ücret</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN9" SIZE=11 tabindex="9" ></td>
</tr>
<tr>
<td width="20%">&nbsp;<FONT SIZE=4><b>Soyadı</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN4" SIZE=25 tabindex="4"></td>
<td width="20%"align=center>&nbsp;<INPUT NAME="ALAN91" TYPE="TEXT" SIZE=6></td>
<td width="20%">&nbsp;<FONT SIZE=4><b>TC Kimlik Numarası</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN10" SIZE=11 MAXLENGTH=11 tabindex="10"></td>
</tr>
<tr>
<td width="20%">&nbsp;<FONT SIZE=4><b>Giriş Tarihi</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN5" SIZE=11 tabindex="5"></td>
<td width="20%" align=center>&nbsp;<b>Toplam &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%">&nbsp;<FONT SIZE=4><b>Cinsiyet</b></FONT></td>
<td width="20%">&nbsp;<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%">&nbsp;<FONT SIZE=4><b>Çıkış Tarihi</b></FONT></td>
<td width="20%">&nbsp;<INPUT NAME="ALAN6" SIZE=11 tabindex="6"></td>
<td width="20%"align=center>&nbsp;<INPUT NAME="ALAN92" TYPE="TEXT" SIZE=6></td>
<td width="20%">&nbsp;<FONT SIZE=4><b>Doğum Tarihi</b></FONT></td>
<td width="20%">&nbsp;<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">&nbsp;&nbsp;
<INPUT NAME="ILKKAYIT" TYPE="BUTTON" OnClick="ILKKAYIT1()" VALUE=" İlk "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="OKAYIT" TYPE="BUTTON" OnClick="OKAYIT1()" VALUE=" Önceki "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="SKAYIT" TYPE="BUTTON" OnClick="SKAYIT1()" VALUE=" Sonraki "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="SONKAYIT" TYPE="BUTTON" OnClick="SONKAYIT1()" VALUE=" Son "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="BUL" TYPE="BUTTON" OnClick="BUL1()" VALUE=" Bul "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="DUZELT" TYPE="BUTTON" OnClick="DUZELT1()" VALUE=" Düzelt "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="SIL" TYPE="BUTTON" OnClick="SIL1()" VALUE=" Sil "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<INPUT NAME="IPTAL" TYPE="BUTTON" OnClick="IPTAL1()" VALUE=" İptal "style="color: #0066CC; font-weight: bold"> &nbsp;&nbsp;
<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 OLEDBatabase 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>
öncelikle Bu çalışma gayet ilginç bir çalışma ben ofısteki bilgisayarımda bunun gibi bazı çalışmalar yapıyorum ancak verileri girdikten sonra kayıt etmekte zorlanıyorum bu çalışmayıda kendıme öre tasarlamayı düşünüyorum ancak kaydet dedıgımde nereye ve nasıl olacagını bir türlü yapamadım herhengi bir program kullanmadan sadece scriptler üzerınde oynama yaparak denıyorum sizden ricam boyle bır çalışmada girdigim verileri kaydetmem için gereklı olan dosya yollarını bana bıldırmenız (c:\belgelerim\kayıt\) gibi bir türlü oluşturamadım ayrıca google chorme ve firefoxta çalışmıyor sanırım ie de çalışıyor verileri dogru girdikten sonra kaydet dedıgımde boş boş bir hata verıyor ve nereye kaydedecegını bulamıyorum şimdiden teşekkürler herkese
SONSUZLUK22 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2012, 15:47   #125
SONSUZLUK22
 
Giriş: 11/01/2012
Şehir: mersin
Mesaj: 9
Excel Vers. ve Dili:
exel 2003
Varsayılan

sayın modalı exel formuna yenı katıldım sayfaları gezerken uzun zamandır amatörce tasarlamaya çalıştıgım bir program için örnek buldum üzerinde birkaç oynama yaptım ancak forma yazdıgım verileri birtürlü exele aktaramıyorum 2 örnegi alıp birleştirme usulü ile 1 örnek hazırladım tasarımımda kaydet tuşu işe yaramıyor sizden ricam bana bu konu için yardımcı olmanız

öncelikle girdigim verileri exele aktaramıyorum 1. problemim bu

örnekte göreceginiz üzere bazı bölümlerde seçiniz seçenekleri ile bölümler oluşturdum aynı zamanda yine form üzerinde yazılan haftaları mesela (1.hafta) yı seçip göster dedigimde exelden 1. haftayı listelemek

gümrük idaresi bölümünde örnegin "mersin güm. müd." seçenegini exelden listelemek gibi

yazdırma seçenegi gibi birkaç fonksiyon eklemem gerekıyor gerçi bayagı eklemem gereken fonksiyonlar var ama sizi daha fazla yormamak amacıyla bu kadarınada yardımcı olursanız bana kafidir şimdiden teşekkür ederim
Eklenmiş Dosyalar
Dosya Türü: rar ExcelVeriTabani.rar (2.3 KB, 74 Görüntülenme)
SONSUZLUK22 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-01-2012, 10:52   #126
SONSUZLUK22
 
Giriş: 11/01/2012
Şehir: mersin
Mesaj: 9
Excel Vers. ve Dili:
exel 2003
Varsayılan

Acilen yardım lütfen
bu konu benım ıcın cok onemlı ivedi olarak yardıma ıhtıyacım var
SONSUZLUK22 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2014, 13:54   #127
cthax
 
Giriş: 21/07/2014
Şehir: izmir
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan Haluk Bey Yardım

Haluk bey dosyayı email ile gönderebilmeniz mümkünmü acaba,altın üye olmadığım için indirmeye izin vermiyor
cthax Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-11-2014, 19:01   #128
selimsami
 
Giriş: 10/11/2013
Şehir: istanbul
Mesaj: 1
Excel Vers. ve Dili:
2007
Varsayılan

Aynı işleme benimde ihjtiyacım var. Ekte dedğiniz dosyayı göremiyorum
selimsami Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-11-2014, 18:47   #129
ABATE
 
Giriş: 08/06/2013
Şehir: Batman
Mesaj: 5
Excel Vers. ve Dili:
2007 - Student
Varsayılan

Yüklenen dosyaların hiçbiri çalışmadı bilgisayarımda.
ABATE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-12-2014, 15:01   #130
gablocu
 
Giriş: 27/08/2008
Şehir: antalya
Mesaj: 9
Excel Vers. ve Dili:
office xp türkçe
Varsayılan

Arkadaşlar elimde bir excel dosya var. 4 sütunlu bir çalışma sayfası var. Ürün adı, Barkod, Skt ve Skt 2 sütunların adı. Bu sayfa ürün isimleri ve barkodu ile dolu bir sayfa. Benim istediğim ise şudur. Bu excel dosyası bilgisayarda duracak ağa paylaşıma açılacak. Ben alışveriş merkezi içerisinde gezerken herhangi bir ürünün yanına geleceğim ve tarigini kontrol edeceğim sonra eğer tarihi 1-2 ay falan kaldıysa tabloya eklemek isteyeceğim. Bir html sayfasını telefonumdan paylaşılmış klasörden açtığım zaman barkodu sorugulayıp ilgili ürünü çağırıp karşısına skt girp kaydetmek istiyorum. Normalde bunu excel dosyasını telefondan açıp buldan barkod bulup kaydedip yapıyorum ama çook zaman alıyor. Yardımcı olur musunuz?
gablocu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:55


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden