Otomatik Sayı Problemi
Tarih
04/09/2010 13:15
Konu Sahibi
estapan
Yorumlar
10
Okunma
2188
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



estapan
Aktif Üye
Kullanici Avatari
Aktif Üye
E....
226
03/07/2010
43
İstanbul
Ofis 2003
01/11/2016,09:53
Çözüldü 
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.


Ek Dosyalar
.rar   vt1.rar (Dosya Boyutu: 141,09 KB / İndirme Sayısı: 17)
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 Sub

Kolay Gelsin

komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla


estapan
Aktif Üye
Kullanici Avatari
Aktif Üye
E....
226
03/07/2010
43
İstanbul
Ofis 2003
01/11/2016,09:53
Çözüldü 
Sayın Kural,
Dediğiniz gibi yaptım bu seferde ilk kayıt açılıyor. Seçtiğim kayıt değil.
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla


POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.848
02/04/2010
İzmir
Ofis 2003
Dün,20:02
Çözüldü 
Sn estepan,

Ekteki örneği incelermisiniz.


Ek Dosyalar
.rar   vt1.rar (Dosya Boyutu: 150,09 KB / İndirme Sayısı: 17)
Please return your positive or negative ...
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 

Sayın estapan;
Kusura BAkmayın ufak bir hata olmuş düzzeltilmiş şkeli aşağıdadır.
Kolay gelsin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 Sub




komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çözüldü 
Ben de birşeyler yapmıştım. Bari ziyan olmasın..


Ek Dosyalar
.rar   vt1_demiral.rar (Dosya Boyutu: 169,7 KB / İndirme Sayısı: 21)
İnadına, ille de Accesstr.net...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü satırdaki isimlerde otomatik klasör açma manyetix 18 3.713 07/12/2016, 12:31 donepezil
  Form Açıldığında Yeni Kayda Gitme Problemi ferhatozge 6 206 30/11/2016, 15:53 ferhatozge
  Arama problemi ve bir kaç diğer sorun nightashes 3 111 28/11/2016, 01:22 nightashes
  Tabloya Eklenen Resmi Formda Gösterme Problemi peter088 2 134 19/10/2016, 20:24 peter088
  Ürün Satış Birimi ADET ise otomatik kaydedip bir sonraki Combobox'a geçmesini sağlama hasanak2 5 225 16/09/2016, 11:00 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya