Pek bir severek kullandığım access ile ilgili elimde biriken bir kaç dokümanı, bir kaç kod parçasını buraya koymanın faydalı olduğunu düşünüyorum. Belki birilerinin işine yarar...
-/-
Access ile gelen satır silme fonksiyonu genelde geliştirilen projelerde pek hoş durmadığını düşünüyorum. Bu iş için genelde ben bir tuş yaratıp bu tuşun onclik/tıklandığında olayına alttaki gibi bir kod parçası kullanıyorum.
-/-
Diğer birçok programda olduğu gibi bilgilerinizin kaydedilmesinden önce uyarı mesajı göstermek istiyorsanız alttaki kodu deneyebilirsiniz. Herhangi bir formun güncelleştirme öncesi (BeforeUpdate) ile ilgili yordamının aşağıdaki gibi olmasını sağlayın. Artık eski kayıtlar üzerinde değişiklik yapıldığında soru sorulacak ve kullanıcı eğer hata yaptığını düşünüyorsa kaydı bu şekilde geri alabilecek. Formun BeforeUpdate yordamını oluşturun ve aynen şu şekilde olmasını sağlayın:
-/-
birkaç satırdan oluşan mesaj kutusu için satır atlamalarını vbCr deyimini kullanabilirsiniz. vbCr deyimi satır sonu karakteridir ve Chr(13) ile aynı işi görür.
-/-
Access’in açılışındaki ekranı değiştirmek için güzel bir ipucu. Access dosyanızın bulunduğu yere aynı adlı bir BMP resim dosyası koyduğunuzda (DB1.mdb DB1.bmp gibi) dosyayı açarken Access’in açılış ekranı yerine bu BMP dosyası kendi açılış ekranınız olarak gösteriliyor, hoş oluyor...
-/-
Hazırlanan projenin MS ACCESS kurulu olmayan makinelerde kullanılabilmesi için bazı Run-Time dosyalarına ihtiyacınız olacaktır. 2000 versyonu için sözkonusu Run-Time dosyalarını http://www.microsoft.com/downloads/details.aspx?FamilyID=0c8f40ca-9ecc-426a-ac5f-e1f98a6acd73&DisplayLang=en adresinden indirebilirsiniz.
-/-
-/-
Access ile gelen satır silme fonksiyonu genelde geliştirilen projelerde pek hoş durmadığını düşünüyorum. Bu iş için genelde ben bir tuş yaratıp bu tuşun onclik/tıklandığında olayına alttaki gibi bir kod parçası kullanıyorum.
Kod:
On Error Resume Next
If Me.NewRecord Then
Me.Undo
ElseIf MsgBox("Kayıt silinsin mi?", vbYesNo) = vbYes Then
Me.Recordset.Delete
End If
Diğer birçok programda olduğu gibi bilgilerinizin kaydedilmesinden önce uyarı mesajı göstermek istiyorsanız alttaki kodu deneyebilirsiniz. Herhangi bir formun güncelleştirme öncesi (BeforeUpdate) ile ilgili yordamının aşağıdaki gibi olmasını sağlayın. Artık eski kayıtlar üzerinde değişiklik yapıldığında soru sorulacak ve kullanıcı eğer hata yaptığını düşünüyorsa kaydı bu şekilde geri alabilecek. Formun BeforeUpdate yordamını oluşturun ve aynen şu şekilde olmasını sağlayın:
Kod:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If NewRecord = true Then
If MsgBox("Değişiklikler kaydedilsin mi?", _
vbYesNo) = vbNo Then
Cancel = True
DoCmd.RunCommand acCmdUndo
End If
End If
End Sub
birkaç satırdan oluşan mesaj kutusu için satır atlamalarını vbCr deyimini kullanabilirsiniz. vbCr deyimi satır sonu karakteridir ve Chr(13) ile aynı işi görür.
Kod:
MsgBox "Bu mesaj" & vbCr & "birkaç " & vbCr & "satırdan" & vbCr & "oluşuyor.", vbOKOnly + vbExclamation
Access’in açılışındaki ekranı değiştirmek için güzel bir ipucu. Access dosyanızın bulunduğu yere aynı adlı bir BMP resim dosyası koyduğunuzda (DB1.mdb DB1.bmp gibi) dosyayı açarken Access’in açılış ekranı yerine bu BMP dosyası kendi açılış ekranınız olarak gösteriliyor, hoş oluyor...
-/-
Hazırlanan projenin MS ACCESS kurulu olmayan makinelerde kullanılabilmesi için bazı Run-Time dosyalarına ihtiyacınız olacaktır. 2000 versyonu için sözkonusu Run-Time dosyalarını http://www.microsoft.com/downloads/details.aspx?FamilyID=0c8f40ca-9ecc-426a-ac5f-e1f98a6acd73&DisplayLang=en adresinden indirebilirsiniz.
-/-