Yeni Kayıt Ekleme

Katılım
7 Eylül 2005
Mesajlar
112
Merhaba Arkadaşlar,

Aşağıdaki linkde yaptığım çalışma var ben şimdi şöyle birşey yapmak istiyorum veri girilecek alanlar pasif olmalı, yeni kayıt ekle butonuna basıldığınde aktif olup kayıt eklenmeli ve kayıt ekleme işlemi bittikten sonra ise pasif olmalı ben tam olarak yapamadım bilgisi olan arkadaşların yardımlarını bekliyorum.

Link ; http://www.excel.web.tr/showthread.php?p=241938#post241938
 
Katılım
7 Eylül 2005
Mesajlar
112
Merhabalar,

Çalışmamdaki sorunu koşullu biçimlendir ile hallettim ancak, yeni kayıt ekle dediğimde nasıl aktif edeceğimi yapadım. Yardım edecek varmıdır.?
 
Katılım
7 Eylül 2005
Mesajlar
112
Çalışmamda yeni kayıt tıkladığım zaman bir türlü aktif edemedim. Yardımcı olabilcek varmıdır.
 
Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
valla kafam karıştı link eklenmiş başka yerde soru devam ediyor istek buradan devam ediyor moderatör arkadaşlar olaya bil el atıp durumu düzeltse iyi olur

iyi çalışmalar:)
 
Katılım
7 Eylül 2005
Mesajlar
112
Sn. Karaayhan

Haklısınız aynı konuyu farklı konu olarak ekledim ancak o konu başlığı karıştı. Yeni bir sorun olarak yardım istedim sadece. Konu hakkında bir bilginiz varmıdır. Acaba?
 
Katılım
7 Eylül 2005
Mesajlar
112
Arkdaşlar merhaba yukarıdaki sorunumu nasıl çözebilirim. Bir türlü olmadı sitede aradım ancak yakın örnek yok. Yardımlarınızı bekliyorum.
 
Katılım
15 Kasım 2005
Mesajlar
48
Excel Vers. ve Dili
Access 2003 İngilizce
Örnek

load bölümünde ben şöyle kullanıyorum:

Sap_no.Enabled = False
Adı.Enabled = False
Soyadı.Enabled = False
Dep_kodu.Enabled = False
Departman.Enabled = False
Kapsamdurumu.Enabled = False
Pozisyonu.Enabled = False
Müteahhit.Enabled = False
Görevi.Enabled = False
Cinsiyet.Enabled = False
TC_no.Enabled = False
SSK_no.Enabled = False
İşe_giriş_tarihi.Enabled = False
Doğum_tarihi.Enabled = False
Doğum_yeri.Enabled = False
Kan_grubu.Enabled = False
Medeni_durumu.Enabled = False
Çalışma_durumu.Enabled = False
Eğitim_durumu.Enabled = False
Adres.Enabled = False
Posta_kodu.Enabled = False
İlçe.Enabled = False
İl.Enabled = False
Ev_tel.Enabled = False
Cep_tel.Enabled = False
Diğer_tel.Enabled = False
E_mail_I.Enabled = False
E_mail_II.Enabled = False
E_mail_III.Enabled = False
İşten_çıkış_tarihi.Enabled = False
Command90.Enabled = False
Command93.Enabled = False
Command94.Enabled = False
Kartal_nakil.Enabled = False
Çocuk_sayısı.Enabled = False
Command98.Visible = False
Command95.Visible = True
Me.Eski_hükümlü.Enabled = False

daha sonra forma bir buton sayesinde aktif ediyorum.buraya şifrede koyabilirsin.

Dim stDocName As String
Dim stLinkCriteria As String
Dim C As String
C = InputBox("Lütfen şifreyi giriniz..", "VİZİT 1.0")
If C = "1980" Then
Sap_no.Enabled = True
Adı.Enabled = True
Soyadı.Enabled = True
Dep_kodu.Enabled = True
Departman.Enabled = True
Kapsamdurumu.Enabled = True
Pozisyonu.Enabled = True
Müteahhit.Enabled = True
Görevi.Enabled = True
Cinsiyet.Enabled = True
TC_no.Enabled = True
SSK_no.Enabled = True
İşe_giriş_tarihi.Enabled = True
Doğum_tarihi.Enabled = True
Doğum_yeri.Enabled = True
Kan_grubu.Enabled = True
Medeni_durumu.Enabled = True
Çalışma_durumu.Enabled = True
Eğitim_durumu.Enabled = True
Adres.Enabled = True
Posta_kodu.Enabled = True
İlçe.Enabled = True
İl.Enabled = True
Ev_tel.Enabled = True
Cep_tel.Enabled = True
Diğer_tel.Enabled = True
E_mail_I.Enabled = True
E_mail_II.Enabled = True
E_mail_III.Enabled = True
İşten_çıkış_tarihi.Enabled = True
Command90.Enabled = True
Command93.Enabled = True
Command94.Enabled = True
Kartal_nakil.Enabled = True
Çocuk_sayısı.Enabled = True
Command98.Visible = True
Me.Eski_hükümlü.Enabled = True
Me.Özürlü.Enabled = True
If Sap_no.Value = False Then
Command95.Caption = "Aktif"
Else
Command95.Caption = "Aktif"
End If
If Çalışma_durumu.Value = "ÇALIŞIYOR" Then
Çalışma_durumu_Label.Caption = "Çalışıyor"
İşten_çıkış_tarihi.Enabled = False
Command94.Enabled = False
Else
İşten_çıkış_tarihi.Enabled = True
Çalışma_durumu_Label.Caption = "Çalışmıyor"
Command94.Enabled = True
End If

ElseIf C <> "1980" Then
MsgBox "Hatalı Şifre...", vbOKOnly + vbCritical, "VİZİT 1.0"
Me.Undo
End If

gibi.
 
Katılım
7 Eylül 2005
Mesajlar
112
Sn. TURISSEMOS vermi&#351; oldu&#287;unuz &#246;rnek &#231;ok g&#252;zel ancak benim yapt&#305;&#287;&#305;m &#231;al&#305;&#351;ma i&#231;in olmaz. &#350;u &#351;ekilde yapma &#351;ans&#305;m&#305;z varm&#305;d&#305;r. Ko&#351;ullu bi&#231;imlendirme ile pasif yap&#305;p, yeni kay&#305;t ekle komutuna basarak aktif yap&#305;p kay&#305;t i&#351;lemi bittikten sonrada pasif gibi.. Tam olarak oluru nedir onuda bilmiyorum ama bir pay var gibi &#246;nerilerinizi bekliyorum..
 
Katılım
7 Eylül 2005
Mesajlar
112
Merhabalar, Anala&#351;&#305;lan yapmak istedi&#287;im zor bi&#351;ey hi&#231; yan&#305;t gelmedi&#287;ine g&#246;re..
 
Katılım
7 Eylül 2005
Mesajlar
112
Hi&#231; cevap olmad&#305;&#287;&#305;na g&#246;re, demek ki yap&#305;lmayacak bi&#351;ey. Te&#351;ekk&#252;rler..
 
Katılım
17 Mayıs 2007
Mesajlar
10
Excel Vers. ve Dili
excel
arkada&#351;lar bu konu &#252;zerinde dursak &#231;ok iyi olur bana da b&#246;yle bir bir&#351;ey laz&#305;m &#351;imdiden t&#351;kler.
 
Üst