AccessTr.neT
Kayıt bul veya kimlik numarasına git butonu yapmak - Baskı Önizleme

+- 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ığı: Kayıt bul veya kimlik numarasına git butonu yapmak (/konu-kayit-bul-veya-kimlik-numarasina-git-butonu-yapmak.html)

Sayfalar: 1 2 3


Cvp: Kayıt bul veya kimlik numarasına git butonu yapmak - okumas - 24/10/2016

Tşk ederim istediğim kayda gitmekte çalışmaktadır. Güzel olmuş eline sağlık. 

Benim verdiğim kodda form aç şeklide çalışmamaktaydı sadece kaydı forma çağırıyordu avanyajı şuydu. Çağrılan kaydın yön tuşları ile iler ve geri gidiliyor olması bir avantajdı.

Nacizane bir sorum akü kayıtta çalışan kod neden araç takipte çalışmıyor nerede eksik kalıyor. Onuda merak ediyorum. 
Sizin yaptığınızı kullanacağım tekrar teşekkür ederim. Hayırlı günler.

Aşağıdaki hatayı verdi.

[Resim: do.php?imgf=147731006812941.png]
[Resim: do.php?imgf=147731006826482.png]


Cvp: Kayıt bul veya kimlik numarasına git butonu yapmak - atoz112 - 24/10/2016

Sayın okumas,

Nacizane bir sorum akü kayıtta çalışan kod neden araç takipte çalışmıyor nerede eksik kalıyor. Onuda merak ediyorum.

İfadenize yönelik olarak;

Öncelikle,Akü kayıt defteri adlı formda sizin kullandığınız

Pl = InputBox("      X.16.90 Şeklinde Akü numarasını giriniz..                                                                                                                      Sadece Akü numarasınından arama yapar.       ")
DoCmd.SearchForRecord acActiveDataObject, , acFirst, "[Akü numarası] = '" & Pl & "'"

Kod satırlarını, Araç takip adlı formun kod sayfasında benzer nitelikte olan kodları arattığımda bulamadım.dolayısı ile bu form için böyle bir kod denemesi mevcut değil.

Eğer bu kodları kendi asıl uygulamanızda kullandığınızı fakat sonuç alamadığınızı beyan ediyorsanız bu açıklamanız ile,nasıl bir kod yazdığınızı görmeden net bir açıklamada bulunmak doğru olmaz fakat,konunuzun 11.mesajında yazdığım gibi bir kod kullanımı (ilk örnek,sizin yazdığınız gibi) ile sonuç elde edilebilmektedir.

Ya da,sizin yazıp da çalışmadığını belirttiğiniz kodları burada beyan ederseniz,hakkında yorumlar yapılabilir elbette.

Bilginize…iyi çalışmalar,saygılar.


Cvp: Kayıt bul veya kimlik numarasına git butonu yapmak - atoz112 - 24/10/2016

Sayın okumas,

Hata iletisi diye eklediğiniz resim için,

Öncelikle,eğer 12.mesajda eklenen örnek uygulamanın kullanımı üzerinden bahsediyorsanız,bu uygulamanın kullanımında herhangi bir sorun mevcut değildir.aşağıda yer alan resimlerde de görüleceği üzere.

[Resim: do.php?imgf=147731097428191.jpg]

[Resim: do.php?imgf=147731097432562.jpg]

Eğer asıl uygulamaya adapte edilmiş olarak kullanıyorsanız (kaldı ki,zaten öyle olsa gerek:Komut211 adlı başka bir butonun içeriğinde yer almakta.çünkü;12.mesajdaki örnekte böyle bir buton adı mevcut değil.);bu uygulamadaki tabloda yer alan Kimlik alanının SAYI veri türünde olması gerekmektedir.eğer METİN veri türü ise,tek tırnaklar arasında yazılması gerekmektedir.

Son olarak,referanslarınızı kontrol ediniz.

Bilginize…iyi çalışmalar,saygılar.


Cvp: Kayıt bul veya kimlik numarasına git butonu yapmak - atoz112 - 24/10/2016

Sayın okumas,

DoCmd.OpenForm "Araç takip", , , "[Kimlik]=" & kimliknoyaz

Kod satırında bir düzenleme yapıp;eğer InputBox ile yazılan KİMLİK NO değeri ilgili tabloda mevcut değilse uyarı vermesini de sağlatabilirsiniz.Bunun için;

yukarıdaki kod satırını iptal edip ya da etkisizleştirip yerine,

If kimliknoyaz = Dlookup ("[Kimlik]", "Araç takip tablo", "[Kimlik]=" & kimliknoyaz) Then
DoCmd.OpenForm "Araç takip", , , "[Kimlik]=" & kimliknoyaz
Else
MsgBox ("Bu KİMLİK NO,Tabloda mevcut değildir."), vbCritical, "KİMLİK NO bulunamadı MESAJI"
Exit Sub
End If

Yukarıdaki kodları kullanabilirsiniz.

Bilginize…iyi çalışmalar,saygılar.


Cvp: Kayıt bul veya kimlik numarasına git butonu yapmak - okumas - 25/10/2016

Teşekkür ederim  bu sorun çözülmüştür.