alpeki hocam benim yukarıdaki yeşilkart kopya örneğine yapabilir misiniz bu söylediklerini çok memnun olurum.

Dosya No formatınız nasıl olacak? Sadece 4 haneli yıl / artan sıra numarası şeklinde mi? Yani 2010/1 ,2010/2,......,2010/1535 gibimi olacak?

(02/12/2010, 14:00)silka yazdı: arkadaşım ilk önce sana şunu söylemek istiyorum ben istanbul zeytinburnu kaymakamlığında çalışıyorum. Yeşilkart bilgi sistemi için kullandığın kullanıcı adı ve şifreni değiştir. Verdiğin örnekte bunlar var ve bununla giriş yapılıyor. Zararlı olacak insanların eline geçmesin.Sana ulaşmaya çalıştım ama telefonlarınıza ulaşamadım ve zor durumda kalmanı istemedim. o yüzden mail attım ama o da ulaşmadı herhalde

---

bahsetmiş olduğun konu ile ilgili olarakda bir örnek gönderebilirsen yardımcı olmaya çalışırım.

Duyarlılığınız İçin (Şifre) Teşekkürler Sn silka.

sn atthegates, lütfen sonraki örnek uygulamalarınızı eklediğinidze sadece problem olan nesneleri ekleyiniz, uygulamanın tamamını eklemeyiniz. Örneğinizin tamamını eklediğinizde Site alanı gereksiz yere kullanılıyor.

Örneğinizin düzenlenmiş hali ektedir.

Sub YeniDosyaNo()

Dim sayi As String

Dim dno As String

dno = Dlookup ("Last([DOSYA NO])", "Tablo1")

sayi = Mid([dno], InStr(1, [dno], "/") + 1)

Me.DOSYA_NO = Format(Date, "yyyy") & "/" & Nz(sayi, 0) + 1

End Sub

Ayrıca tablolarınızı aşağıdaki konuda belirtildiği şekilde yenilemelisiniz

Yapılmaması gereken ölümcül hatalar

Sn atthegates probleminiz çözdünüz mü? Konuyu cevaplanmışlara taşıyorum.
Saygılar...