SAAT 08:30 ile 17:30 arasında ise yeni kayıt ekle

[candar_canturk]

:hey:
Arkadaşlar benim özel bir sebepten dolayı kullanmakta olduğum forma yeni kayıt eklenmesine belirli saatler arasında izin vermek gibi bir ihtiyacım oluştu. ilginç bir durum galiba
değerli bilgilerinizden istifade etmek için müsadelerinizle yardımınızı bekliyorum, formun açılışına bunu koyayım dedim ama olmayacak doğrusu yeni kayıt butonuna koymak ve mesai saatleri içinde kayıt eklenmesini sağlamaktır.
şimdiden ÇOK ÇOK teşekkür ederim.

 

[ayhan2122]

Sn candar cantürk;

Sizden iki şey istirham ediyorum:
1. Dosyanızı WinRAR ile sıkıştırıp gönderiniz. Böylece dosyanın boyutu küçülür.
2. Galiba Office2007 kullanıyorsunuz. Dosyanızı 2002-2003 formatına çevirip gönderiniz. Aksi halde ben ve benim gibi bir kaç kişi dosyayı açamıyoruz, dolayısıyle yardım etmekte zorlanıyoruz.
Yine de yazdıklarınızdan anlayabildiğim kadarıyla bir örnek yapmaya çalıştım.
Saygılar, iyi çalışmalar.

 

[candar_canturk]

:bravo:
sayın ayhan2122 kesinlikle böyle olması gerekliydi elleriniz dert görmesin

SADECE

kayıtlar arasında gezinmek serbest olacak kayıt eklenemeyecek
bunun için kodunuzun hangi kısmını iptal etmeliyim acaba
ben form current i kaldırdım ama bu seferde kayıt yapıyor?

ilginiz için çok çok tesekkür ederim eksik olmayın.

 

[mehmetdemiral]

Böyle mi?

Kayıtlar arasında gezinmek serbest fakat veriler değiştirilemez. Yeni kayıt eklenemez. Fakat mesai saatlerinde kayıtlar değiştirilebilir ve yeni kayıt eklenebilir. Buyrun...

 

[candar_canturk]

Kesinlikle evet
sayın mehmetdemiral
harikasınız

ihtiyaç değil sadece merak ettiğim için sormak istiyorum
bunu hafta sonu c.tesi pazar günü ise diye yapabilirmiyiz gün ile kod yazılırmı sayın demiral,

 

[ayhan2122]

Sn candar cantürk;

Öncelikle Sn mehmetdemiral'e teşekkürler. Bize katılarak şeref verdiler.
Form Geçerli olduğunda olay yordamını aşağıdaki kod ile değiştirirseniz daha güzel çalışır.

Private Sub Form_Current()
If Time() > "08:30" And Time() < "17:30" Then
Miktar.Locked = False
SrNO.Locked = False
Cinsi.Locked = False
Else
Miktar.Locked = True
SrNO.Locked = True
Cinsi.Locked = True

End If
End Sub

Saygılar, iyi çalışmalar.

 

[mehmetdemiral]

Valla aslında projenin temeli sevgili ayhan2122 arkadaşımın. Fikri o verdi ben sadece onun üzerinde düşündüm. Zaten programlama konusunda her zaman savunduğum şey bu işin bir ekip işi olması gerektiğidir. Bazen çok basit bir yerde takılıp hiç bu işten anlamayanlardan bile fikir dilendiğim olmuştur. Tabii sizinle ve bu siteyle tanışmadan önce )) Hepinizi çok seviyorum arkadaşlar...

 

[assenucler]

Sayın ayhan2122 ve mehmetdemiral;

Katkı ve paylaşımlarınız dolayısıyla teşekkürler. İyi hafta sonları...

Sevgi ve saygılar.