Shift Tuşu Engelini Kaldırma örneği ile shift engelini kaldır, daha sonra Polsoftu shift tuşuna basılı tutarak aç.
PolSoft Final
teşekkür ederim...
Burda olmaktan MUTLUYUMM .... 
içinde fikir verebilecek bir çok uygulama var benim için faydalı olacak bir program .
sadece evraklardaki otomatik olarak yazıya kayıt numarasını alma konusunda tereddütüm var giden evrak Kayıt numarasını otomatik alırken bir krıter tamımlanabiliyor mu ? . düşününki bir ofiste bu programı 10 kişi birden kullanıyor ve bir anda 70 birim gidecek bir rapor üretiyorsun bu otomatik numarayı hangi kritere göre alacak ve evrak kayıt defterine kayıt edilmesi nasıl sağlanacak. ayrıca dağıtım birimleri nasıl şeçilip kayıt defterine atılıyor açıklamanız mümkünmü ? yani diğer kısım tanım ve kayıtları otomatik mi yoksa evrak kayır defteri ayrı bir kayıtmı ? gerektiriyor.
diğer konu başka bir pc kopyalandığında 60 gün dahja çalışıyor derken regedit bilgileri nasıl kopyalanıyor
daha önce bu program ile ilgili olarak başka pc kopyalansada çalışmaz demiştiniz. şimdi kafam karıştı.????
Teşekürler paylaşım için içinde bir çok örnek var incelemeye değer ve teşeküre de
sadece evraklardaki otomatik olarak yazıya kayıt numarasını alma konusunda tereddütüm var giden evrak Kayıt numarasını otomatik alırken bir krıter tamımlanabiliyor mu ? . düşününki bir ofiste bu programı 10 kişi birden kullanıyor ve bir anda 70 birim gidecek bir rapor üretiyorsun bu otomatik numarayı hangi kritere göre alacak ve evrak kayıt defterine kayıt edilmesi nasıl sağlanacak. ayrıca dağıtım birimleri nasıl şeçilip kayıt defterine atılıyor açıklamanız mümkünmü ? yani diğer kısım tanım ve kayıtları otomatik mi yoksa evrak kayır defteri ayrı bir kayıtmı ? gerektiriyor.
diğer konu başka bir pc kopyalandığında 60 gün dahja çalışıyor derken regedit bilgileri nasıl kopyalanıyor
daha önce bu program ile ilgili olarak başka pc kopyalansada çalışmaz demiştiniz. şimdi kafam karıştı.????
Teşekürler paylaşım için içinde bir çok örnek var incelemeye değer ve teşeküre de
Son Düzenleme: 13/12/2008, 22:49, Düzenleyen: karam.
Kayıt Numarası için kriter filan yok, kaydet butonu tıklandığında ado ile tabloya yeni kayıt ekliyor, şahsen 5 pcde ayrı ayrı açtık, aynı anda kaydet butonuna tıkladık, herkese başka bir numara verdi,
60 gün mevzusunda regedit kopyalanmıyor, kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor, tekrar ediyorum. kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor
60 gün mevzusunda regedit kopyalanmıyor, kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor, tekrar ediyorum. kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor
(14/12/2008, 01:23)sledgeab yazdı: Kayıt Numarası için kriter filan yok, kaydet butonu tıklandığında ado ile tabloya yeni kayıt ekliyor, şahsen 5 pcde ayrı ayrı açtık, aynı anda kaydet butonuna tıkladık, herkese başka bir numara verdi,
60 gün mevzusunda regedit kopyalanmıyor, kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor, tekrar ediyorum. kopyalandığı pc de regedit kayıtları olmadığı için yeni regedit kaydı oluşturup 60 gün çalıştırıyor
ilgin için teşekür ederim "tıklandığında ado ile tabloya yeni kayıt ekliyor" derken evrak kayıt defterine mi ekliyor ?
2 kopyalandığında tarihi değiştiriyormu yoksa baştan verdiğimiz tarih sabit mi kalıyor ?
elimde ikinci bir pc olmadığı için deneyemiyorum. şimdiden teşekürler.
hacam tıklandığında olayındaki
rs.Open "EVRAKKAYITTABLO", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
kodu ile EVRAKKAYITTABLO isimli tabloya yeni kayıt ekliyor. kodun tamamı
Kopyalandığındaki tarih değişimi mevzusunu anlayamadım, formda ne yazılıysa o tarihi kaydediyor.
rs.Open "EVRAKKAYITTABLO", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
kodu ile EVRAKKAYITTABLO isimli tabloya yeni kayıt ekliyor. kodun tamamı
Kod:
Dim rs As New ADODB.Recordset
rs.Open "EVRAKKAYITTABLO", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("KAYITNO") = KAYITNO.Value
'rs("Yıl") = Yıl.Value
rs("GELDİĞİYER") = GELDİĞİYER.Value
rs("TARİH") = TARİH.Value
rs("SAYISI") = SAYISI.Value
rs("ALINDIĞITARİH") = ALINDIĞITARİH.Value
rs("EKİ") = EKİ.Value
rs("KONUNUNÖZETİ") = KONUNUNÖZETİ.Value
rs("GÖNDERİLDİĞİYER") = GÖNDERİLDİĞİYER.Value
rs("KONUNUNÖZETİ") = KONUNUNÖZETİ.Value
rs("TARİHİ") = TARİHİ.Value
rs("KONUNUNYAPILANVEYAYAPILACAKİŞLEMİNÖZETİ") = KONUNUNYAPILANVEYAYAPILACAKİŞLEMİNÖZETİ.Value
rs("AİTOLDUĞUDOSYANO") = AİTOLDUĞUDOSYANO.Value
rs("KAYITNOSONRASI") = KAYITNOSONRASI.Value
rs("KAYITNOÖNCESİ") = KAYITNOÖNCESİ.Value
rs("GEREĞİYAPILDI") = GEREĞİYAPILDI.Value
rs("CEVEPGEREKTİRİR") = CEVEPGEREKTİRİR.Value
rs("SONCEVAPTARİHİ") = SONCEVAPTARİHİ.Value
rs.Update
Set rs = Nothing
Set conn = Nothing
Konuyu Okuyanlar: 1 Ziyaretçi
