1 - Global veya Form mudullerine fonksiyon yazabilirsiniz.

function calc(a as Long, b as Long)
 c=a+b
 result=c
end function

Sub ButtonClick(ctrl as String)

 if ctrl = "LButton1" then
 sonuc = calc(4,5)
 warn(sonuc)
 end if

End Sub

2 - Bu bilgiler dönem ve firma bazlı 2 ayrı tabloda tutuluyor (LG_001_01_PERDOC, LG_001_FIMDOC). Sizin yazdığınız okuduğunuz Firma için olansa aşağıdaki gibi yapmalısınız;

Sub ButtonClick(ctrl as String)

 if ctrl = "LButton2" then
 typ=20
 StringRef = 403
 Application.ReadStringsCrd(typ, StringRef, strMemo)
 warn(strMemo[0])
 end if

End Sub

İlk sorun için çözüm oldu teşekkür ederim .

2.si içinde LMemo içine girdiğim bilgiyi veritabanında tutmuyorum.Cari kod seçildiğinde cari ile ilgili bazı bilgileri Lmemo değişkenine anlık atıyorum kayıt esnasında da lmemo içinde geçen bir kelimeyi arama yapmam gerekiyor.Uzunca bir yazı olduğundan farklı toolbax kullanmadım istediğim basit bir şey aslında.

O halde referans oluşturmanıza ve application metodlarını kullanmanıza gerek yok. SetStrings - GetStrings, yöntemleri ile ekrandaki memoyu doldurabilir veya okuyabilirsiniz.

GetStrings("LMemo1",memVal)
str(memVal,asd)
warn(asd)

Dediğinizi konuyu açmadan önce denedim ancak yazım şeklinde hata yapıyorum sanırım.

Dene yanıl şöyle çözüme ulaştım teşekkürler ilginize .

ab=[""]

GetStrings("LMemo1",ab)
' STR(memVal,asd)
warn(ab[0])