AccessTr.neT

dediğinizi ben anlamadım,hem mükerrer kayıt oldugumda uyarsın diyorsunuz hem sabit kayıtlar olsun, diyorsunuz, pek anlamadım,kriteriniz anlaşılmıyor

(16/09/2017, 17:35)sormaneden07 yazdı: [ -> ]

(16/09/2017, 14:58)C*e*l*o*y*c*e yazdı: [ -> ]Merhabalar
öncelikle sayın biberli33 katılarak ,programınız hatalarla dolu oldugunu,sitemizdeki "Ölümcül hatalar " isimli başlıktaki konuyu okumanızı öneririrm,yoksa ileride çok sıkıntı yaşarsınız.
ben isteğinize göre Z Raporunu yani ZNO yu otomatik her yeni kayıtta sayı vermesini yaptım,örneği inceleyin lütfen

Merhaba ilginiz için teşekkurler.
ben pek yeniyim acces işinde o yüzden hatalarim çoktur.
inşallah zamanla düzeltecegim.
yalnız Z no yu otomatik atması benim için uygun degil, 
çünkü bende 10 adet kasa numarası var ve hepsinin z no ları farklı olacak 
yani kasalardan gelen z nolarını manuel girmem gerekiyor örnegin
5097 kasa numarası dünün Z no su 497
5107 kasa numarası dünün z nosu 1070
5106 kasa numarası dünün z nosu 1675
gibi değişik rakamlar oluyor.
yani kısaca demek istedigim 5097 numaralı kasayı ve 497 numaralı Z yi girdigimde ya daha önce girilen kaydı getirecek yada bu kayıt daha önce girilmiştir gibi bir uyarı vermesi gerekecek.

Sayın CELOYCE haklı kriterleriniz çok karışık. Aynı anda ikisini yapmanız için Z NO açılır kutu yapın, satır kaynağını SELECT kullanarak tablodaki Z NO dan aldırın ve WHERE ile koşula bağlayın. Ayrıca Z NO açılır kutusunun düzenlemesine izin ver özelliğini evet yapın böylece hem o kasaya ait Z NO ları görürsünüz hem de yoksa ilave edebilirsiniz. Aklıma gelen en kolay yol bu.

Ama naçizane fikrim önce kaç kasanız varsa bunları tanımladığınız tablo böylece kasalarınız benzersiz olur ve kasa detayını gösteren tablo böylece her kasaya ait detayları ilgili kasanın altında görebilirsiniz bunları ilişkilendirip formda birleştirmek. Yine de siz bilirsiniz tabi. Sadelik bu işin temeli bence. Kolay gelsin.

galiba sorunumu anlatamadım 
şöyle diyeyim 10 adet kasam var ve bu kasaların Z numaraları birbirinden farklı örnek verecek olursam
1kasa no 1571 Z no 1078
2kasa no 9073 Z no 384
3kasa no 2695 Z no 1973 vs. gibi 
siz z no yu otomatik atacak sekilde ayarladıgınızda ben mudahele edemiyorum.
onun yerıne örnek kasa 1 den devam edecek olursak 1571 kasa no girdigimde 1079 gelmesi olabilir.
ama ornek kasa 2 9073 sectıgımde ise 385 olması gerekecek.
bunun yerine ben 9073 seçip 384 numaralı Z yi 2ci defa girdigimde ya bana daha önce girdigim kaydı getirmesi gerekli yada benim o kaydı yapmamı engellemeli. yine bayagı karısık oldu
ilginiz için teşekkurler.

Merhaba,

Öncelikle, Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyiniz. Uygulamanızın yapısı hatalarla dolu.

Örnek uygulamanızda, Tablo1'deki ilk satırda
Kasa no: 2695, Z No: 1001 olarak kaydedilmiş.

İCMAL GİRİŞ isimli formda yeni kayıt eklerken, kasa no açılan kutusundan 2695 seçtikten sonra Z no alanına 1001 yazdığında uyarı vermesini istiyorsanız

Z NO metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim VarMi As Integer



VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")





If VarMi <> 0 Then



    MsgBox ([KASA NO] & " Kasa Numarasına " & [Z NO] & " Z Numarası Daha Önce Girildiği İçin " & Me.Z_NO + 1 & " Değeri Atandı")



    Me.Z_NO = Me.Z_NO + 1



End If

(20/09/2017, 04:50)ozanakkaya yazdı: [ -> ]Merhaba,

Öncelikle, Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyiniz. Uygulamanızın yapısı hatalarla dolu.

Örnek uygulamanızda, Tablo1'deki ilk satırda
Kasa no: 2695, Z No: 1001 olarak kaydedilmiş.

İCMAL GİRİŞ isimli formda yeni kayıt eklerken, kasa no açılan kutusundan 2695 seçtikten sonra Z no alanına 1001 yazdığında uyarı vermesini istiyorsanız

Z NO metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim VarMi As Integer



VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")





If VarMi <> 0 Then



    MsgBox ([KASA NO] & " Kasa Numarasına " & [Z NO] & " Z Numarası Daha Önce Girildiği İçin " & Me.Z_NO + 1 & " Değeri Atandı")



    Me.Z_NO = Me.Z_NO + 1



End If

OOO BU  çok iyi olmuş abi ellerine saglık 

(20/09/2017, 18:08)sormaneden07 yazdı: [ -> ]

(20/09/2017, 04:50)ozanakkaya yazdı: [ -> ]Merhaba,

Öncelikle, Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyiniz. Uygulamanızın yapısı hatalarla dolu.

Örnek uygulamanızda, Tablo1'deki ilk satırda
Kasa no: 2695, Z No: 1001 olarak kaydedilmiş.

İCMAL GİRİŞ isimli formda yeni kayıt eklerken, kasa no açılan kutusundan 2695 seçtikten sonra Z no alanına 1001 yazdığında uyarı vermesini istiyorsanız

Z NO metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim VarMi As Integer



VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")





If VarMi <> 0 Then



    MsgBox ([KASA NO] & " Kasa Numarasına " & [Z NO] & " Z Numarası Daha Önce Girildiği İçin " & Me.Z_NO + 1 & " Değeri Atandı")



    Me.Z_NO = Me.Z_NO + 1



End If

OOO BU  çok iyi olmuş abi ellerine saglık 

Ufak bi ilave lazım gibi, sorun teşkil etmiyor ama 2695 seçip 1001 girdigimde hata verip otomatik olarak 1002 yi getiriyor ama 1002 de daha önce girilmiş oldugu zaman uyarı vermeden kayıt yapabılıyor 1002 yi elle yazarsam uyarıp 1003 ü getiriyor. kolay gelsin