veri tabanı çalışması

[ecoss]

arkadaşlar veri tabanı dersi görüyoruz benim pek ii değil ve bu dersden kalıyorum.... ödevleri yapmam lazım yardımlarınızı bekliyorum.. herkez sorulara kolay diyo ama ben yapamıyorum... sorular;
1-Tabloda adı alanına küçük harflerin tamamını büyük harfe çeviren kod?
2-tabloda adı alanına büyük harflerin tamamını küçük harfe çeviren kod?
3-Tabloda tüm alanların harflerini küçükten büyüğe çeviren kod?
4-isminin ilk üç harfi "mus" olan toplam kayıt sayısı kaç adettir?

arkadaşlar çok ihtiyacım var lütfen yorumlarınızı esirgemeyin...

 

[mustafaine1]

1 - =upper(ad alani)
2 - =lower(ad alani)
3 - =upper(tablo adi)
4 - =COUNTIF(ad alani,"mus*")

 

[ecoss]

1 - =upper(ad alani)
2 - =lower(ad alani)
3 - =upper(tablo adi)
4 - =COUNTIF(ad alani,"mus*")

ya zahmet veriyorum ama tam olarak yazarmısın bilmiyorum ben ...

 

[adnanyurdakul]

öncelikle konuya güzel bir başlık bulmalısınız. Sizden sonra konuyu okumak isteyenler içeriğin ne olduğunu nasıl anlayacaklar.
konu ile kodları aşağıda veriyorum ayrıca sizin üşenipte koymadığınız örneği ben zaman harcayarak yaptım
Option Compare Database

Private Sub Komut0_Click() 'Küçük Harfe çevir
adi = çevir(adi, 1)
End Sub
Function çevir(text, secim)
Select Case secim
Case 0 'yazım düzeni
text = çevir(text, 1)
text = çevir(Left(text, 1), 2) & Mid(text, 2, Len(text) - 1)
Case 1 'küçük harf
text = Replace(text, "I", "ı")
text = Replace(text, "İ", "i")
text = StrConv(text, vbLowerCase)
Case 2 'büyük harf
text = Replace(text, "ı", "I")
text = Replace(text, "i", "İ")
text = StrConv(text, vbUpperCase)
End Select
çevir = text
End Function

Private Sub Komut2_Click() 'Büyük Harfe çevir
adi = çevir(adi, 2)

End Sub

Private Sub Komut3_Click() 'Herşeyi küçük Harfe çevir
Dim adn As Control
For Each adn In Me.Form.Controls
Select Case adn.ControlType
Case acComboBox 'Bütün metin kutularını boşalt
adn.Value = çevir(adn, 1)
Case acTextBox
adn.Value = çevir(adn, 1)
Case acLabel
adn.Caption = çevir(adn.Caption, 1)
End Select
Next

End Sub

Private Sub Komut4_Click() 'Herşeyi büyük Harfe çevir
Dim adn As Control
For Each adn In Me.Form.Controls
Select Case adn.ControlType
Case acComboBox 'Bütün metin kutularını boşalt
adn.Value = çevir(adn, 2)
Case acTextBox
adn.Value = çevir(adn, 2)
Case acLabel
adn.Caption = çevir(adn.Caption, 2)
End Select
Next
End Sub

Private Sub Komut9_Click()
Dim a As String
a = Left(adi, 3)
Etiket10.Caption = DCount("adi", "deneme", "adi like '" & a & "*" & "'")
Etiket10.Visible = True
Etiket10.Caption = a & " " & "ile ismi başlayan personel sayısı " & Etiket10.Caption & " tanedir"
End Sub

 

[ecoss]

öncelikle konuya güzel bir başlık bulmalısınız. Sizden sonra konuyu okumak isteyenler içeriğin ne olduğunu nasıl anlayacaklar.
konu ile kodları aşağıda veriyorum ayrıca sizin üşenipte koymadığınız örneği ben zaman harcayarak yaptım
Option Compare Database

Private Sub Komut0_Click() 'Küçük Harfe çevir
adi = çevir(adi, 1)
End Sub
Function çevir(text, secim)
Select Case secim
Case 0 'yazım düzeni
text = çevir(text, 1)
text = çevir(Left(text, 1), 2) & Mid(text, 2, Len(text) - 1)
Case 1 'küçük harf
text = Replace(text, "I", "ı")
text = Replace(text, "İ", "i")
text = StrConv(text, vbLowerCase)
Case 2 'büyük harf
text = Replace(text, "ı", "I")
text = Replace(text, "i", "İ")
text = StrConv(text, vbUpperCase)
End Select
çevir = text
End Function

Private Sub Komut2_Click() 'Büyük Harfe çevir
adi = çevir(adi, 2)

End Sub

Private Sub Komut3_Click() 'Herşeyi küçük Harfe çevir
Dim adn As Control
For Each adn In Me.Form.Controls
Select Case adn.ControlType
Case acComboBox 'Bütün metin kutularını boşalt
adn.Value = çevir(adn, 1)
Case acTextBox
adn.Value = çevir(adn, 1)
Case acLabel
adn.Caption = çevir(adn.Caption, 1)
End Select
Next

End Sub

Private Sub Komut4_Click() 'Herşeyi büyük Harfe çevir
Dim adn As Control
For Each adn In Me.Form.Controls
Select Case adn.ControlType
Case acComboBox 'Bütün metin kutularını boşalt
adn.Value = çevir(adn, 2)
Case acTextBox
adn.Value = çevir(adn, 2)
Case acLabel
adn.Caption = çevir(adn.Caption, 2)
End Select
Next
End Sub

Private Sub Komut9_Click()
Dim a As String
a = Left(adi, 3)
Etiket10.Caption = DCount("adi", "deneme", "adi like '" & a & "*" & "'")
Etiket10.Visible = True
Etiket10.Caption = a & " " & "ile ismi başlayan personel sayısı " & Etiket10.Caption & " tanedir"
End Sub

öneriniz için teşekür ederim ama böyle istemiyorum bi önceki arkadaş yazdı onun açık kodunu istiyorum o kısa yazmış. sanada teşekir ederim..

 

[adnanyurdakul]

o zaman ona yazdır
bu koddan daha kısası olmaz
tek tuş ile hem etiketler, hem comboboxlar, hem textbox lar ın içerikleri değişecek. Bunu yaptırabilirsen bana da yaz ben de öğreneyim

 

[mustafaine1]

adnanyurdakul konuya attigin cevap icin tesekkurler ben access oldugunu farketmemistim

ecoss arkadasim adnan beyin ornegi gayet guzel ve basit anlasilir uzerine yogunlasirsan 15-20 dakikada yazicak kadar iyi olursun dert etme..

 

[ecoss]

adnanyurdakul konuya attigin cevap icin tesekkurler ben access oldugunu farketmemistim

ecoss arkadasim adnan beyin ornegi gayet guzel ve basit anlasilir uzerine yogunlasirsan 15-20 dakikada yazicak kadar iyi olursun dert etme..

ya hayır onun yazdığı gibi değil işte.. mesela select lower (adi) from personel... bunun gibi yapılcak. senin kodlar doğru ama benim verdiğim örnek gibi yapılcak ben yapamıyorum

 

[mustafaine1]

accesste table hazirlayamiyormusun, ben uzerinde calismak isterdim ama accessim yok table hazirlamak cok basit biseydir aslinda denesen ilk yanlisliklada olsa yapmisoldugun is olacaktir

 

[ecoss]

accesste table hazirlayamiyormusun, ben uzerinde calismak isterdim ama accessim yok table hazirlamak cok basit biseydir aslinda denesen ilk yanlisliklada olsa yapmisoldugun is olacaktir

off yaa cvplıycak yokmu yarına teslim etmem gerekiyo... arkadaşım bilsem zaten bu dersden şuan kalıyo olmazdım... alttan ders bırakmamam benim için çok önemli biri cvplasın lütfen yaa :S

 

[adnanyurdakul]

yazdıklarının tamamını kapsayan cevabı yazdım daha ne istiyorsun
Derdini tam anlat
gerçi bilmeden benim yazdıklarıma yanlış demişsin neyse gençliğine verdim
derdini tam olarak anlat

 

[ecoss]

ya mesela select lower (adi) from personel şeklinde yapılcak... bu ADI alanını küçük harfe çeviriyo gibi...

 

[adnanyurdakul]

sorgu ile mi yapılacak
kod ile mi yapılacak
biçimlendir me ile mi yapılacak

 

[ecoss]

sanırım sorgu ya diyorum pek bilgim yok yalvar yakar bu ödevi aldım 10 puanlık.. yoksa kalıyorum

 

[adnanyurdakul]

bak benim sana yazdığmı sen indirip incelememişsin
eğer onu götürürsen 10 üzerin kesin 10
sana bu kadarını söyleyeyim
sorgu olarak büyük ve küçük harfe çevirme
SELECT LCase([tablodaki alanın adı]) AS küçük, UCase([tablodaki alanın adı]) AS Büyük
FROM tablonun adı ;