+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik Sayı Problemi (/konu-otomatik-sayi-problemi.html)
Sayfalar:
1
2
Otomatik Sayı Problemi - estapan - 04/09/2010
Değerli arkadaşlar,
Yaptığım programda bir fatura formu var. Bu formda eski kayıtlara ulaşabilmek için bir arama formu yaptım. Bu formada daha çabuk bulmak için faturaların listelendiği bir açılır kutu koydum. Şimdi herhangi bir faturayı arayan kişi bu açılan kutudan bir kayıt seçtiğinde o fatura kaydının bulunduğu form açılıyor. Sorunum şurda başlıyor. Eşleşmeyi sağlayan alanı : stLinkCriteria = "[FaturaNO]=" & "'" & Me![FaturaNO] & "'"
şeklinde yaptığımda sorun yok Fakat Ben eşleşmeyi [kayıt] alanıyla yapmak istiyorum :stLinkCriteria = "[kayıt]=" & "'" & Me![kayıt] & "'"
[Kayıt] alanı otomatik sayı olduğundan bu alana düzenleme yapamazsınız uyarısı alıyorum. Benimde mutlaka bu eşleşmeyi bu alanla yapmam lazım. Acaba bu sorunu nasıl çözebilirim. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Cvp: Otomatik Sayı Problemi - Kur@l - 04/09/2010
Sayın estapan;
Öncelikle Fatura1 Formunda Bulunan Açıln Kutu16 isimli açılan kutunun denetim kaynağını boşaltın.
Sonra Açılan kutu16 güncelleştirme olayının kodunu şu şekilde düzeltin,
Kod:
Private Sub Açilan_Kutu16_AfterUpdate()
On Error GoTo Err_Komut16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "AlışFaturası"
stLinkCriteria = "[kayıt]=" & Me![kayıt] ' Burada değişiklik yaptım metin değil kayıt alanı...
DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "AlışEskiFatura.Kapat"
DoCmd.RunMacro stDocName
Exit_Komut16_Click:
Exit Sub
Err_Komut16_Click:
MsgBox Err.Description
Resume Exit_Komut16_Click
End SubCvp: Otomatik Sayı Problemi - estapan - 04/09/2010
Sayın Kural,
Dediğiniz gibi yaptım bu seferde ilk kayıt açılıyor. Seçtiğim kayıt değil.
Cvp: Otomatik Sayı Problemi - POWER - 04/09/2010
Sn estepan,
Ekteki örneği incelermisiniz.
Cvp: Otomatik Sayı Problemi - Kur@l - 04/09/2010
Sayın estapan;
Kusura BAkmayın ufak bir hata olmuş düzzeltilmiş şkeli aşağıdadır.
Kolay gelsin.
Kod:
Private Sub Açilan_Kutu16_AfterUpdate()
On Error GoTo Err_Komut16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "AlışFaturası"
stLinkCriteria = "[kayıt]=" & Me.Açilan_Kutu16.Value ' Burada değişiklik yaptım metin değil kayıt alanı...
DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "AlışEskiFatura.Kapat"
DoCmd.RunMacro stDocName
Exit_Komut16_Click:
Exit Sub
Err_Komut16_Click:
MsgBox Err.Description
Resume Exit_Komut16_Click
End SubCvp: Otomatik Sayı Problemi - mehmetdemiral - 04/09/2010
Ben de birşeyler yapmıştım. Bari ziyan olmasın..