Değerli Arkadaşlarım
Access öğrenmede yardımcı olacağını umduğum bir konu açtım
ekteki tabloda iki alandaki farkı ,aşağıdaki ekli şekilde görmek istiyorum.
Saygılarımla
(19/04/2024, 05:40)access acemisi yazdı: Değerli Arkadaşlarım
Access kod öğrenmede yardımcı olacağını umduğum bir konu açtım
ekteki tabloda iki alandaki farkı ,aşağıdaki ekli şekilde görmek istiyorum. Fark kırmızı olarak belirtilecek
Saygılarımla
Ne yapmak istediğinizi daha net açıklar mısınız? Formunuzun ya da tablolarınızın işlevini anlamış değilim. Siz sorunuzu iletirken yapmak istediğinizi ve işleyiş mantığınız ifade etmeden bizim kafanızdakileri bilme şansımız yok. formunuzdaki metin_bir, metin_iki alanlarına bir aynı metni farkları bulmak için giriyorsunuz peki, fark_gorunum nedir, ne işe yarayacak, eklenen_metin sorunuz ile alakalı farkı görmek istediğiniz alanda sadece eklemeler mi görüntülenecek?
Sn atoykan
Tekrar bir örnek dosya gönderdim. Amacım acceste yazılan kodları
Vba ..kod düzenlemelerinde yapılan değişiklikleri, bu dosyaya kopyala yapıştır yöntemiyle görmek , bir şeyler öğrenebilme. bulmak istediğim neticeyi resimde gösterdim.
selam saygılar
Access'i bir kelime işlemci gibi kullanmaya çalışmanız hatalı. Zira Access'de formlar, tablolar, raporlar ve denetimlerde metinler Plain Text formatında saklanır. Bahsettiğiniz gibi bir çalışma yapabilmeniz için öncelikle tablonuzda fark_gorunum ve eklenen_metin alanlarının biçiminin zengin metin olarak ayarlanması, formunuzdaki textboxların biçiminin de aynı şekilde zengin metin olarak ayarlanması gerekir. Ancak handikap şudur: Zengin Metin opsiyonu biçimlendirme özellliği olarak
Access içinde yer alsa da, örneğin bir kelime işlemcisi Word gibi başarılı değildir ve bu yönüyle hatalı sonuç vermeye çok açıktır.
Bu ayarlamalarınızı yaptıktan sonra metin_iki textboxının AfterUpdate olayında
Private Sub metin_iki_AfterUpdate()
Dim StrTxt1 As String, StrTxt2 As String, StrDiff As String, StrAdd As String
Dim i As Integer, j As Integer
Dim BoolDiff As Boolean
' Textbox değerlerini al
StrTxt1 = Me.metin_bir.Value
StrTxt2 = Me.metin_iki.Value
' Fark gösterimini ve eklenen metni değişken olarak belirle
Me.fark_gorunum.Value = ""
Me.eklenen_metin.Value = ""
StrDiff = ""
StrAdd = ""
' Metin_iki içinde bulunan farklı kısımları belirle
For i = 1 To Len(StrTxt2)
BoolDiff = False
For j = 1 To Len(StrTxt1)
' Metin_iki'deki karakter metin_bir'de bulunuyorsa devam et
If Mid(StrTxt2, i, 1) = Mid(StrTxt1, j, 1) Then
BoolDiff = True
Exit For
End If
Next j
' Metin_iki'de bulunan ancak metin_bir'de bulunmayan karakterler
If Not BoolDiff Then
' Fark gösterimini güncelle, kırmızı renkte işaretle
StrDiff = StrDiff & "<font color='red'>" & Mid(StrTxt2, i, 1) & "</font>"
' Eklenen metni güncelle
StrAdd = StrAdd & "<font color='red'>" & Mid(StrTxt2, i, 1) & "</font>"
Else
' Fark gösterimine normal karakteri ekle
StrDiff = StrDiff & Mid(StrTxt2, i, 1)
End If
Next i
' Farkgorunum ve eklenen_metin textboxlarını güncelle
Me.fark_gorunum.Value = StrDiff
Me.eklenen_metin.Value = StrAdd
End Sub
gibi bir kodla istediğinizi yapabilirsiniz. Ancak belirttiğim üzere
Access kelime işlemci değildir bu tip bir yaklaşım uygulamanın yapısına uygun bir çalışma olmayacaktır.
sn atoykan
sizin dediğinizi uyarlamaya çalıştım ama ,bir fark göremedim.
Eksiklerim nelerdir ? saygılar
dosyamı ekleyemedim ,nereden olacaktı bilemedim
ekle buton yok gibi