gerek eklediğiniz kodlarda yer alan ifadeler nezdinde ve gerekse de eklediğiniz örnek uygulamanın kısa süreli incelenmesi neticesinde edinilen izlenimler ile aşağıdaki açıklamaların yapılması uygun görülmüştür.
1)
bu arada,lütfen,konularınızı açarken;talebinizin veya sorununuzun hangi nesne üzerinde (form,sorgu,rapor,v.s.) ve hangi denetim ile ilgili olduğu belirtmeye gayret ediniz ki,katılımcılar tarafından nereye bakılacağı daha net bilinsin ve direk çözüme odaklanılabilsin.teşekkürler.
2)
Alıntı:yazdığım cümlenin sadece ilk harfini büyük yapmayı başaramadım.
ifadenize yönelik olarak;bir hususu da belirtmekte fayda var kanısındayım.
StrConv Fonksiyonu;
bu talebiniz için uygun değildir.çünkü;bu fonksiyon ile bir metin değeri içerisinde yer alan her bir kelimenin ilk harflerini büyük olarak yazmanızı sağlar.
dolayısı ile de,bu fonksiyon talebinizi karşılamaz.bunun yerine,elbette farklı alternatif kullanımların da olabileceği gibi,UCASE ve LEFT Fonksiyonlarının kullanımı ile de elde edebilirsiniz.
direkt bir form ve denetim adı belirtmediğiniz için tahmini olarak (kodlardan yorumlanmak sureti ile);bu işlemi sanırım,Form2 adlı formun üzerinde yer alan Açıklamalar adlı denetim için uygulamak istiyorsunuz olsa gerek diye düşünülerek,ilgili denetimin ÖZELLİKLER - OLAY sekmesindeki ÇIKILDIĞINDA olay yordamı içerisine
Me.Açıklamalar = UCase(Left(Me.Açıklamalar, 1)) & Mid(Me.Açıklamalar, 2)kod satırını dahil ederek ve öncesinde ilgili tablodaki Açıklamalar alanındaki verilerin ilk harflerini tekrar küçük hale getirmek sureti ile kullanmayı deneyiniz.
3)
Alıntı:Bir de sıra numarası girmem gereken kısma yalnızca rakam girilebilmesini istiyorum.
ifadenize yönelik olarak;
yine,hangi form veya denetim için kast ettiğinize dair tahmini olarak,YEDEK PARÇA İŞÇİLİK ve ARIZALAR alt formlarında yer alan SIRA NO denetimleri için olsa gerek,bu denetimlerin her birinin ÖZELLİKLER - OLAY sekmesindeki TUŞA BASILIRKEN (KEYDOWN) olay yordamı içerisine
Select Case KeyCode
Case 48 To 57, 96 To 105, 13, 8, 144, 46
Case 231
Case 110, 190
If InStr(Me.sirano_denetimin_adi_ne_ise_onu_yaziniz.Text, ".") > 0 Then KeyCode = 0
Case Else
KeyCode = 0
End Select
kodlarını dahil ediniz.
NOT:
kodların içerisinde yer alan
Me.sirano_denetimin_adi_ne_ise_onu_yaziniz.Text
ifadesinde,sirano için kullandığınız denetimin adı ne ise onu yazarak kullanınız.
bilginize...iyi çalışmalar,saygılar.
