Textbox üzerinde yazı yazarken alan ekleme

[alperalper]

Arkadaşlar ben bir yazı yazma programı yapmaya çalışıyorum access ile. Sorum şu. Mesela Combobox üzerinden seçtiğim personel aktif oldu veritabanından. altta textbox var oraya yazı yazıyorum aynen forma yazı yazmak gibi. örneğin:

Kurumumuzda çalışmakta olan ....... sicil numaralı ....... kişi diye

Bunu text içine yazarken text üstüne oluşturduğum butonlara basınca imlecin olduğu yere basılan değeri eklemesini istiyorum. mesela sicilini adını soyadını v.s bunlar ekelenebilir. Word üzerinde adres mektup sihirbazında olduğu gibi yani. bunu nasıl yapabilirim.

 

[omerceri]

Sn alperalper
butonlara ayrı ayrı kod yazmaktansa metin kutusunun Change olayına aşağıdaki gibi bir kod yazarsanız daha pratik olur diye düşünüyorum.

Private Sub Metin1_Change()
If Len(Metin1.Text) > 1 Then
bak = Mid(Metin1.Text, Len(Metin1.Text) - 1, 2)
End If
If bak = "q1" Then
yazi = " özel metin "
ElseIf bak = "q2" Then
yazi = " genel metin "
ElseIf bak = "q3" Then
yazi = " nne isterse "
End If

If yazi <> "" Then
yeni = Replace(Metin1.Text, bak, yazi)
Metin1.Value = yeni
Metin1.SelStart = Len(Metin1.Text)
End If
End Sub

q1, q2,........... yazınca otomatik olarak istediğiniz metini ekler.

 

[aydın3838]

harika bir düşünce tebrikler
kısmen kısa yol gibi

saygılarımla