Arama İşleminde Metin belirtme
Tarih
02/09/2009 14:30
Konu Sahibi
aydiny
Yorumlar
5
Okunma
1654
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ü 
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
02/12/2016,15:18
Çö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ü 
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
02/12/2016,15:18
Çö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ü 
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
  Metin Kutusuna Yazarken Satır Kontrolü musteri53 4 63 Dün, 20:53 musteri53
  kayıtlarda arama yoluyla orantı kurarak hesap yapma mehmetb84 18 388 04/12/2016, 17:13 mehmetb84
  Listede arama yapılanın seçimi aktif olması raburabu 3 94 01/12/2016, 08:42 raburabu
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 87 28/11/2016, 23:33 nightashes
  Arama problemi ve bir kaç diğer sorun nightashes 3 108 28/11/2016, 01:22 nightashes


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