Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/09/2009 14:30
Konu Sahibi
aydiny
Yorumlar
5
Okunma
2131
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aydiny

Üye
Üye
 45
 6
 3
 07/04/2009
0
 İstanbul
 
 Ofis 2003
 01/01/2016,17:36
Çözüldü 
Kütüphane kitaplarının takibi amaçlı bir uygulama ektedir. Burada sorgulam işlemi sonunda gelen sonuçlarda, aranan kelimenin ekteki jpg görüntüde yer aldığı gibi zemin rengini nasıl değiştirebiliriz.

Teşekküler, iyi çalışmalar


Ek Dosyalar Ekran Görüntüleri
   

.rar   KUTUPHANE2.rar(Dosya Boyutu: 29,12 KB / İndirme Sayısı: 17)
aydiny, 07-04-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çözüldü 
Gerçekten güzel bir soru.

Excel'de aynı hücrede farklı formatlar uygulayabilmek mümkün ama Access'te standart olarak böyle bir özellik yok diye biliyorum.
Gerçi Access 2007'de Html kodları kullanılarak böyle bir şey yapılabildiğini duymuştum ama 2002 ve 2003 için aklıma bir çözüm gelmiyor şu anda.

Çözüm için, diğer arkadaşların fikirlerini bekleyeceğiz.


Aşağıdaki Access 2007 sitesinde bu özellikten bahsediyor.
Alıntı:Metin Biçimi : Metin kutusu bir Not alanıyla ilişkiliyse, Metin Biçimi özellik kutusundaki değeri Zengin Metin olarak ayarlayabilirsiniz. Bu işlem, metin kutusunun içerdiği metne birden çok biçimlendirme stili uygulamanıza olanak verir. Örneğin, bir sözcüğe kalın yazı biçimi, bir diğerine de altı çizili yazı biçimi uygulayabilirsiniz.

Konuyla ilgili Microsoft Access 2007 sitesinden bir kaç link:
Zengin metin alanı ekleme
Zengin metin biçimini destekleyen bir denetim veya sütuna veri girme veya düzenleme


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
Çözüldü 
evet bende öyle bir özelliğinin olduğunu duymadım. örneğin 20 satırlık ve her satırdaki kelimeyi renklendirmesi hiç bir şekilde olmuyor sanırım. ancak bir metin kutusu içinde kelimeyi bulup seçimli koyu renge boyaması oluyor.
bunun için şöyle bir kod kullanabilirsin:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer

Private Sub Sorgula_Click()
ArananKelime = Me.SAdi
AramayaBasla = Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1.SelStart + Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
MsgBox "Metin içinde böyle bir kelime yok"
Else
Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1.SetFocus
Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1.SelStart = KelimeninYeri - 1
Forms!frm_sorgu.Form!frm_sorgu_alt_formu!İfade1.SelLength = Len(ArananKelime)
End If
End Sub



Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çözüldü 
Güzel bir fikir ama bunu (örnekteki gibi) sürekli formda nasıl yapacağız?


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

gocebe

Aktif Üye
Aktif Üye
 57
 3
 26/02/2009
14
 İstanbul
 
 Ofis 2013 64 Bit
 19/09/2018,17:58
Çözüldü 
sayın aydiny ;
resim ile örneğini verdiğiniz uygulama web tabanlı Html kodları ile yapılıyor. sunucu tarafında kodlar işlenirken arama kriterine uyan kelimeleri font rengini değiştirerek basıyor.tek bir alan içersinde textlerin diğerlerinden bağımsız olarak renklendirilmesi mümkün değil.
anca aklıma webdeki gibi yaparak çözüme ulaşmak için bir yöntem geliyor. arama sonuçlarını teker teker ayrı etiketlere yazmak ve arama kriteri ile uyuşuyor ise rengini değiştirmek.
aşağıda kodunu ve örneğini ekliyorum.
sürekli formda ayırma yapamıyor onun için tek form görünümünde olabilir.
ancak nedense boşlukları tam olarak ayırtamadım. sayın cuneyt'in kodları ile benim kodları birleştirerek devamı getirilebilir.bende mantığımdaki yanlışı görmüş olurum.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub parcala_yay()
 On Error GoTo cikis
 Dim kelimeler, aktar As String
 Dim uzunluk, nerdeyiz, nerdeyiz1, buraya As Integer
 
 For eno = 1 To 40
   Me("e_" & eno).Visible = False
   Me("e_" & eno).ForeColor = vbBlack
 Next eno
 
 nerdeyiz = 1
 kelimeler = Me.Metin7
 uzunluk = Len(kelimeler)
 For eno = 1 To 40
   If eno <> 1 Then
    nerdeyiz1 = nerdeyiz
    nerdeyiz = InStr(nerdeyiz1, kelimeler, " ") + 1
    buraya = InStr(nerdeyiz, kelimeler, " ") - nerdeyiz1

   Else
    nerdeyiz = 1
    buraya = InStr(nerdeyiz, kelimeler, " ")
   End If
   
   Me("e_" & eno).Caption = Mid(kelimeler, nerdeyiz, buraya)
   Me("e_" & eno).Visible = True
   Me("e_" & eno).Width = Len(Me("e_" & eno).Caption) * 130
   
   If eno = 1 Then
    Me("e_" & eno).Left = 1550
   Else
    Me("e_" & eno).Left = Me("e_" & eno - 1).Width + Me("e_" & eno - 1).Left
   End If
   
   If Me("e_" & eno).Caption = Forms!frm_sorgu!DNo Then Me("e_" & eno).ForeColor = vbRed
   If Me("e_" & eno).Caption = Forms!frm_sorgu!SAdi Then Me("e_" & eno).ForeColor = vbRed
   If Me("e_" & eno).Caption = Forms!frm_sorgu!SSoyadi Then Me("e_" & eno).ForeColor = vbRed
   If Me("e_" & eno).Caption = Forms!frm_sorgu!SKonu Then Me("e_" & eno).ForeColor = vbRed
   
 Next eno
cikis:
End Sub


Ek Dosyalar
.zip   KUTUPHANE2.zip(Dosya Boyutu: 40,57 KB / İndirme Sayısı: 24)

Kullanici Avatari

aydiny

Üye
Üye
 45
 6
 3
 07/04/2009
0
 İstanbul
 
 Ofis 2003
 01/01/2016,17:36
Çözüldü 
Değerli arkadaşlarım,

yanıtlarınız için teşekkür ederim. Konu ile ilgili çözüm denemlerim devam ediyor. Sonuca ulaştığımda sizleri de bilgilendireceğim.

İyi çalışmalar dilerim.


aydiny, 07-04-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek Serkan Kurt 9 230 08/09/2018, 20:19
Son Yorum: Serkan Kurt
Çözüldü Metin Kutusu Aktif Pasif golf2000 6 170 27/08/2018, 23:49
Son Yorum: mehmetdemiral
Çözüldü Metin Kutularında Nokta Sorunu m_demir 1 88 27/08/2018, 14:10
Son Yorum: m_demir
Çözüldü Sayısı Sıra İle Artan Metin Uygulaması notrino 2 84 21/08/2018, 11:35
Son Yorum: notrino
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 3 162 25/07/2018, 18:14
Son Yorum: fascioğlu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.