+- 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ığı: Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma (/konu-dlast-komutuyla-getirilen-sayiya-1-ekleyerek-istenilen-alana-yapistirma.html)
Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma - aydin5353 - 06/11/2022
Merhaba Sayın Access ailesi. Sayenizde bilgilerime bilgi katıyorum, öğreniyorum. Vba da zorluk çekmeye devam ediyorum. Kodları artık yorumlayabiliyorum ancak yazma konusunda çok çok gerideyim.
Sorumu örnek ekleyerek anlatacağım.
Örneğimde Tabloda Defterno olarak bir sütun mevcut. Ben forma DLAST komutuyla son verilen defterno bilgisini getirdim.
YENİ KAYIT alanında tablodaki son defterno kaydı görünmektedir. Bu son kayıttaki sayının Forma koymuş olduğum GETİR butonuna tıklanarak kopyalanmasını sağladım.
İSTEDİĞİM ŞEY bu sayıya +1 eklenerek "Verilebilecek Defter Nosu ....' dır. Defterno sayısını vermek istemisiniz?" şeklinde bir msgbox kutusu Yapmak. Msgbox kutusu Evet yada Hayır şeklinde sorduğunda EVET tıklandığında bu sayının defterno metin kutusuna yapıştırılmasıdır.
Tıkandığım nokta Vba kodu içerisinde +1 ekleyerek toplama yapıp, Msgbox içerisine yapıştırma yapamadım.
Msgbox DoCmd.RunCommand acCmdPaste yazdığımda kırmızıya dönüyor. Bu kısmı geçemediğim için ileriki safhalara çözüm bakamadım.
RE: Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma - atoykan - 06/11/2022
Hayır derse ne olacak? Kodlarınızı hep bu mantık ile düşünmelisiniz olası durumları değerlendirerek geliştirme yapmalısınız. Hayır seçilmesi durumunda yapılacakları da belirtirseniz nasıl çözümleyeceğinizi belirleriz. Sayın @hegu 'nun da ilgilenmem gereken bir çalışması var dün gece bakarım demiştim ancak işim çok uzadığından fırsatım olmadı bugün toplantı çıkışında her iki konuya da bakarım.
RE: Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma - aydin5353 - 06/11/2022
Hayır denirse msgbox kapanacak hocam. herhangi bir işlem yapılmayacak.
RE: Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma - atoykan - 06/11/2022
Getir buton kodunu aşağıdaki kod ile değiştirin.
If MsgBox("Verilebilecek Defter Numarası " & sondeftersayisi + 1 & "'dir. Belirtilen Numarayı vermek istiyor musunuz", vbYesNo) = vbYes Then
Me.defterno = sondeftersayisi + 1
Else
Exit Sub
End If
RE: Dlast Komutuyla Getirilen Sayıya +1 Ekleyerek İstenilen Alana Yapıştırma - aydin5353 - 07/11/2022
Teşekkürler hocam sorun çözülmüştür. Saygılar sunarım