AccessTr.neT
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.


Ek Dosyalar
 yeni kayıt ekleme ve suç no verme birleştirme.rar(84.42 KB)



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



Ek Dosyalar
 yeni kayıt ekleme ve suç no verme birleştirme.rar(113.97 KB)