yeni kayıt ve s.no birleştirme - 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ığı: yeni kayıt ve s.no birleştirme (/konu-yeni-kayit-ve-s-no-birlestirme.html) Sayfalar:
1
2
|
yeni kayıt ve s.no birleştirme - 208319 - 18/12/2011 merhaba hayırlı geceler form da (suç no ver ve yeni kayıt ekle) butonları var ben bunların birleştirilmesini istiyorum. Yeni Kayıt Ekle butonuna bastığımda hem suç numarasını versin, hem yeni kayıt eklesin, yeni kayıt eklediğinde de imleç varsayılan sekme dizininde yansın kolay gelsin. Cvp: yeni kayıt ve s.no birleştirme - alpeki99 - 18/12/2011 Eğer elinizde iki işi yapan kod zaten varsa bunları birleştirmeniz yeterli olacaktır. Cvp: yeni kayıt ve s.no birleştirme - 208319 - 18/12/2011 ben yapmaya çalıştım fakat hata aldım suç no içerisindeki formülü yeni kayıt ekleme formülünün içerisine ekledim başarılı olamadım belkide ben yanlış yapmış olabilirim doğrusunu sizlerden öğrenmek istiyorum. Cvp: yeni kayıt ve s.no birleştirme - mcmaho - 18/12/2011 access deki kodlardan pek anlamam ama.birde böyle bir bak. olmuşmu. yeni kayıt butonuna aşağıdaki kodların hepsini yapıştır. On Error GoTo Err_Komut96_Click Dim ctrl As Control DoCmd.GoToRecord , , acNewRec For Each ctrl In Me.Controls If ctrl.Tag = "A" Then ctrl.Enabled = True End If Next Me.SucNo = DMax("SucNo", "Tablo") + 1 Exit_Komut96_Click: Exit Sub Err_Komut96_Click: MsgBox Err.Description Resume Exit_Komut96_Click Cvp: yeni kayıt ve s.no birleştirme - 208319 - 18/12/2011 sn. mcmaho bey olmuş fakat yeni kayda geldiğinde imleç yanmıyor tek sorun o imlecin s.no üzerinde yanması gerekiyor Cvp: yeni kayıt ve s.no birleştirme - mcmaho - 18/12/2011 en üstteki sucno yazan text kutusunda yanacak öylemi. eger öyleyse aşağıdaki kodları yapıştır... On Error GoTo Err_Komut96_Click Dim ctrl As Control DoCmd.GoToRecord , , acNewRec For Each ctrl In Me.Controls If ctrl.Tag = "A" Then ctrl.Enabled = True End If Next Me.SucNo = DMax("SucNo", "Tablo") + 1 SucNo.SetFocus---> yanması için sadece bu kodu ekledim. Exit_Komut96_Click: Exit Sub Err_Komut96_Click: MsgBox Err.Description Resume Exit_Komut96_Click |