Arama İşleminde Metin belirtme
Tarih
02/09/2009 14:30
Konu Sahibi
aydiny
Yorumlar
5
Okunma
1703
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



aydiny
Üye
Kullanici Avatari
Üye
6
3
07/04/2009
0
İstanbul
Ofis 2003
01/01/2016,17:36
Çözüldü 
Sponsor Reklam
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.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,00:05
Çö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
Cevapla

cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
Sponsor Reklam
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


Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,00:05
Çö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
Cevapla

gocebe
Aktif Üye
Kullanici Avatari
Aktif Üye
57
3
26/02/2009
14
İstanbul
Ofis 2013 64 Bit
11/04/2016,14:52
Çözüldü 
Sponsor Reklam
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)
Cevapla

aydiny
Üye
Kullanici Avatari
Üye
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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  arama yaparken tekrar parametre istenmesi hknct 6 118 20/01/2017, 11:40 hknct
  metin kutusuna girilen ilk karakterin silinmesi slayerrrrr 4 95 17/01/2017, 14:27 slayerrrrr
  Gelen sonuca göre otamatik metin yazdırma hknct 13 291 16/01/2017, 16:35 hknct
  Metin Kutusu Hk. Serkan Çevik 2 71 12/01/2017, 20:28 Serkan Çevik
  ekran klavyesini tüm metin kutularında kullanmak zetyu 16 312 08/01/2017, 15:05 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya