Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan
Etiketler
Yazar: myAccess - Cevaplar: 2 - İzleme: 5293
Bilgisayar Terim ve Kısaltmalar Sözlüğü (myaccess / Örnek Çalışma)
Merhabalar;
Access uygulamamı daha önce göndermiştim. Yeni yapı için tekrar gönderiyorum.
Saygılarımla.
Yazar: myAccess - Cevaplar: 3 - İzleme: 6426
Animasyon-Açılıp Kapanan Form (myaccess / Örnek Çalışma)
Animasyon,

Uyarı gerektiğinde kullanılabilecek küçük bir örnek.
Yazar: myAccess - Cevaplar: 10 - İzleme: 9232
Kayan ve Renk Değiştiren Yazılar (myaccess / Örnek Çalışma)
Kayan ve renk değiştiren yazı örnekleri..
Yazar: ozanakkaya - Cevaplar: 13 - İzleme: 11087
Kayan Resim
Form üzerinde hareket eden resim.

[Resim: http://ekim08.kucukresim.com/uploads/adsiz7b5d9.jpg]
Yazar: ferhatozge - Cevaplar: 9 - İzleme: 5736
butonların renk değiştirmesi
bir formda 5 adet buton var ben bunların üzerine fareyi götürdüğümde kenarlarının mavi renk olmasını istiyorum basit bir uygulama örnek verebilirmisiniz.

başka örneklerden inceledim ama çözemedim olayı (kendi çalışmamama uyarlıyamadım)
basit bir kaç örnek verebilirmisiniz

İyi akşamlar diliyorum.
Yazar: Abdullah - Cevaplar: 9 - İzleme: 7245
Kayan Yazı
Merhaba, yukarıya doğru kayan yazı yapmak istiyorum.Yardımcı olabilirmisiniz?
Yazar: chopper07 - Cevaplar: 7 - İzleme: 14426
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: 4677
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: assenucler - Cevaplar: 13 - İzleme: 9252
Açılan Kutuda veri yoksa eklesin istiyorum, yapamadım...
Açılan Kutuda veri yoksa eklesin istiyorum, yapamadım...

Değer forum dostları ve hocalarım;

Herkese tekrar MUTLU YILLAR...

"YonetimGiderleri" formundan aynı adlı tabloya kayıt ekliyorum. Bu formun "HizmetVerenKişi" açılan kutusu içerisinde aranan kişi yoksa, bu açılan kutuya çift tıklanınca, "HizmetVerenler" formu açılsın; Bu form aracılığı ile "Yeni Kişi" "Kaydını Eklemek" ya da "Silme" işlemini gerçekleşsin istiyorum.

Bunu 3-4 saattir yapamayınca, yeterli zamanım olmadığı için, si
Yazar: delicocuk - Cevaplar: 1 - İzleme: 5144
access ornek calismalari acma sorunu
arkadaslar siteden indirdigin Access orneklerinde actigim zaman resimdeki gibi hata aliyorum.
Task