Skip to main content

AccessTr.neT


Etiketler
Yazar: myAccess - Cevaplar: 10 - İzleme: 8290
Kayan ve Renk Değiştiren Yazılar (myaccess / Örnek Çalışma)
Kayan ve renk değiştiren yazı örnekleri..
Yazar: accessAE - Cevaplar: 19 - İzleme: 13002
access kullanıcı düzeyi güvenlik hatası
Veritabanımızı, Kullanıcı Düzeyinde Güvenlik Sihirbazı'nı kullanarak korumaya aldığımızda güvenlik.mdv olarak bir mdv dosyası oluşturuluyor, kısayolu atanıyor ve veritabanımız artık bununla açılıyor.

Peki bu güvenlik.mdv dosyasını yitirirsek ne yapmalıyız veritabanımızı tekrar açmak için?

Bu sorunun halledilmesine katkıda bulunabilecek tüm arkadaşlara şimdiden teşekkür ederim.

[color=#0000CD]Daha önce sizlerden birinin başına geldimi bilmiyo
Yazar: ozanakkaya - Cevaplar: 3 - İzleme: 4760
Otomasyon Hatası/ Derleme Hatası
Otomasyon Hatası/ Derleme Hatası
(Otomation Error/ Compile Error)
Bu çokça raslanan bir sorun. Otomasyon Hatası daha çok modüllerin derlenemediği durumlarda meydana çıkıyor. Bunun birçok sebebi olabilir. Bunları tam anlamıyla bilmesem de karşılaşıp çözebildiklerimi anlatmayı yeğliyorum. Access'te kod yazmaya yeni başlamışsak bazı işlevlerin neden hata verdiğini anlamak için kendimizi epey yormamız gerekir. Mesela farklı dildeki (ya da konfigürasyondaki) iki Access'ten birinde Mid, InStr vs. ko
Yazar: ozanakkaya - Cevaplar: 13 - İzleme: 9735
Kayan Resim
Form üzerinde hareket eden resim.

[Resim: http://ekim08.kucukresim.com/uploads/adsiz7b5d9.jpg]
Yazar: Abdullah - Cevaplar: 9 - İzleme: 6339
Kayan Yazı
Merhaba, yukarıya doğru kayan yazı yapmak istiyorum.Yardımcı olabilirmisiniz?
Yazar: chopper07 - Cevaplar: 7 - İzleme: 13628
Label da kayan yazı
formumuza 1 timer - 1 label ekliyoruz ve kodları forma yapıştırıyoruz.

buradan "Timer1.Interval = 100" hızı ayarlayabilirsiniz.

Kod:
Private Sub Form_Load()
Label1.Caption = "Accesstr.net | Access Öğrenmenin Kısa yolu"
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()

On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)

End Sub

Yazar: chopper07 - Cevaplar: 2 - İzleme: 4327
Label da Aşağı kayan Yazı
formumuza bir timer - 1 label ekleyip kodları yapıştırıyoruz.

Kod:
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 1
Label1.Caption = "Accesstr.net"
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 3
If Label1.Top = Me.Top Then Label1.Top = 0
End Sub

Yazar: atlantis8334 - Cevaplar: 15 - İzleme: 8139
resim ekleme hatası
ya arkadaşlar ben çalışmama toplu resim olayını ayarlayamadım.Alpeki99 abim tek resim olrak çözmüştü.Şimdi de ben toplu resim eklemek konusunda sıkıntı içindeyim.Taploları ve formları kopyalyıp yaptım.Birde glu dosyasınıda tanıttım fakat gine hata veriyor.
Yazar: atlantis8334 - Cevaplar: 14 - İzleme: 7790
Kod yazma hatası
arkadaşlar ben toplu resim önizlemesini kendi çalışmamda uyguladım.Fakat Kod kısmında bir kaç hata var ve ben bunları çözemedim.Bana yardımcı olursanız sevinirim.
Şimdiden Teşekkürler...
Dosyadaki yenicalısmaemlak Dosyasına bakınız lütfen..
Yazar: osman06 - Cevaplar: 23 - İzleme: 9211
Form Açılış Parametreleri (OpenArgs) Hatası
mrb
aşağıdaki kodda neyin yanlış olduğunu bulamadım

listede bi isme tıkladıpımda bi form açılıyor ve formda bazı bilgiler geliyor ama bilgini birinin kodları aşağıdaki gibi

tıkladığımda aşağıdaki hatayı veriyor

Run-time error "94"
Invalid use of Null

Formun yüklendiğinde yazan kod :
Option Compare Database

Private Sub Form_Load()
Me.Kaydı_Alan = GetTagFromArg(Me.OpenArgs, "Value") bu kısım sarı oluyo
End Sub


Modül kodu :
Option Compare Database

Public Function GetTa