arkadaşlar ekteki veritabanında kayıttan sonra görev saati , personel ismi kaydetten sonra silinmesin ki daha sonraki kayıtta aynı veriyi girmek zorunda kalmayayım. genellikle aynı girişleri yapıyorum. giriş saatini 12 saate bir değiştirdiğimden dolayı. şimdiden teşekkürler
Merhaba
örneğini düzenledim,kolay gelsin
merhaba,
eğer formda her yeni kayıt eklediğinizde bazı alanlarda geçerli olmasını veya görünmesini istediğiniz değerler söz konusu olacak ise;
tablo tasarım ekranında o ilgili alanın VARSAYILAN DEĞER kısmına istediğiniz sabit değeri ekleyiniz.böylece,her yeni kayıt açtığınızda o ilgili alanda belirttiğiniz değer yazılı gelecektir.tekrar yazmak veya seçmek durumunda kalmazsınız.
iyi çalışmalar.
saygılar.
Bu arada bir konuda uyarayım. Lütfen yüklediğiniz örneklerdeki
Access gizleme kodlarını devre dışı bırakınız. Size yardımcı olacak her kişi tasarım ekranına düşebilmek için bir ton işlem yapmak zorunda kalacaktır. Valla ne yalan söyleyeyeyim, 20 dakikadır boğuşuyorum kodları devre dışı bırakmadan halledeyim diye ama maalesef olmuyor. Bir formu tasarım ekranında açmak istediğimde accessi görev yöneticisinden kapatmak zorunda kalıyorum. Lütfen tüm soru soracak arkadaşlar bu konuya dikkat etsinler.
Aşağıdaki örnekte form üzerine koyduğum 4 tane metin kutusu kullanarak yeni kayda basıldığında alanlardaki verilerin tekrar bir önceki işlemdeki kayıtlar olarak gelmesini sağladım. Yeterince açıklama yapılmadığı için, programın kapatılıp açıldığında son veri üzerinden işlem yapmasını sağladım. İlk açıldığında son veri gelir. Yöntemi öğrenin ve siz kendiniz uygulayın. Aynı işlemi ben modül ve modüldeki global değişkenle kullanıyorum. Ama burada bu yöntem daha kolay uygulanabilir. Dört metin kutusundaki kullanılan verileri ben kafama göre seçtim, siz neleri kullanacaksanız onları atayın.
Bu arada
Access gizleme kodlarınızı ve modülünüzü sildim. Siz kendi örneğiniz üzerinden güncelleme yapınız. Kolay gelsin.
Eğer aynı işi string değişkenlerle yapmak isterseniz, o zaman form üzerine 4 tane metin kutusu koymaya gerek yok. Bu durumda kaydet butonunun kodlarını şu şekilde değiştiriniz:
Kod:
Dim a, b, c, d As String
If IsNull([GOREV_TARIHI]) Or IsNull([GOREV_SAATI]) Or IsNull([KIM_KOD_NO]) Or IsNull([KIM_ILE_KOD_NO]) Or IsNull([NE_KONUSTU]) Or IsNull([TELSİZ_NOBETCISI]) Then
MsgBox ("LÜTFEN EKSİK BİLGİLERİ GİRİNİZ......")
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
Me.Form.Requery
a = ""
b = ""
c = ""
d = ""
a = Me.Açılan_Kutu19
b = Me.Açılan_Kutu32
c = Me.Açılan_Kutu34
d = Me.Açılan_Kutu36
DoCmd.GoToRecord , , acNewRec
Me.Açılan_Kutu19 = a
Me.Açılan_Kutu32 = b
Me.Açılan_Kutu34 = c
Me.Açılan_Kutu36 = d
Me.Liste54.Requery
End If