Arkadaşlar yeni proje başladım evde fakat Locked kodunu yazamıyorum fonksiyon listesinde yok.  Yazıyor yazsamda hata vewriyor.
Çözemedim şimdiden teşekkür ederim







[Resim: https://accesstr.net/resim/do.php?imgf=5...5f43c1.png]

[Resim: https://accesstr.net/resim/do.php?imgf=e...6b0461.png]

[vb]Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long

If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
E

hayırlı sabahlar
=DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")
ile eşit olanların sayısını alıyoruz peki 
ShipRegion Like 'CA' nasıl buluyoruz

Weekday([tarih], 1) bende pazar günü gösteriyor ama türkiye için pazartesi demişlerdi
bunu nasıl belirliyor windows diline göre mi
yazdığımız programın her bilgisayarda aynı sonucu vermesi için ne yapmak lazım
yani yazdığım kod windows diline göre pazar ile pazartesiyi karıştırmamalı

Böyle bir fonksiyon var mı
Modul class falan da olabilir

---

Yazım hatalarından bir türlü kurtulamıyorum

iyi günler
"ADANA" Kelimesindeki 3. "A" harfinin konumunu 5 olarak döndüren bir fonksiyon var mı
şöyle bir şey olacak

dim as sira as integer

sira = sirabul("ADANA", 3, "A")

sira = 5 olmalı

Yani "ADANA" Kelimesinin 3. "A" harfinin konumunu döndürecek 

sirabul fonksiyonunu nasıl yazarız

bu satır ile resimdeki takvim açılıyor
[Resim: https://resim.accesstr.net/do.php?img=10155]
biz bunu aşağıdaki şekilde açılmasını sağlayabilir miyiz
[Resim: https://resim.accesstr.net/do.php?img=10156]
yani sadece günler gözüksün diğerleri hep gizlensin

TrailingSlash fonksiyonu nedir

Right$ ile Right fonksiyonu arasında bir fark var mı

merhaba arkadaşlar, hata veren kod sözdizimi bu, nasıl yapmalıyım, amacım kişiler tablosundaki son satırın id sını almak, ama hata veriyor


 Private Sub Komut17_Click()



a = DMax(kisi_id, kisiler)

MsgBox a



End Sub