Delphi Forum

Sorun çözüldü , tüm form ve unitleri kapattım. ancestor olabilceğini tahmin ettiğim formları ilk yükledim. sonra asıl hata aldığım formu yükledim sorun çözüldü

Delphi7 de projem ilk yuklenirken "Error creating Form : Ancestor for 'Tf_MyCustomForm3' not found diye bir hata alıyorum . Projemde böyle bir form mevcut olmasına rağmen.
Asıl Sorun Var olan bir formumu tasarım moduna cekmeye calıstıgımda tasarım moduna geçmemesi ama hata da vermemesi ...

Hocam vba olduğu için delphi syntaxına da uydurmak gerekiyor. bu nedenle (delphi implementasyonu ) nasıldır diye sordum ..
alttaki linktede

"http://msdn2.microsoft.com/en-us/librar ... s.80).aspx" aynı kullanıldığı yeni dikkatimi çekti.

Teşekkür ederim.

tesekkur ederim ama

aşağıdaki kod parçacığı range copy yapmamı sagladı gonderdiğiniz kısımda vba macrosu benim asıl sorunum delphiye nasıl implemente edebilirim.


excel.Sheets['BENIMFORM'].Select;
DestRange := Excel.Range['A1','Z100'];
excel.Range['A1','Z100'].Copy(EmptyParam);
excel.Sheets ...

Range olarak alarak copy paste yapabiliyorum bu kez. sayfa ayarı ve şekiller bozuluyor. amacım var olan bir sheeti aynı yada farklı bir excel belgesi içine kopyalamak . şayet sheet kopyalarsam sayfa ayarı ve buna benzer format özellikleri bozulmayacaktır. bu konuda bilgisi olan ?

sql exec foksiyonum

function TForm5.SqlExec(const Sql: string): TDataSet;
var
A: TADOQuery;
begin
A:=TADOQuery.Create(nil);
A.Connection:=Form4.ADOConnection1;
A.SQL.Text:=Sql;
A.Open;
Result:=A;
end;

acces mdb kullanıyorum

tarihi string olarak aldım yani dd.mm.yyyy short date formatta ...

birde sizin dediğiniz şekilde yaparsam fonksiyonuma parametreleride yollamak zorunda kalıcam . oysa format foksiyonu sayesinde parametrelerimde gidiyor .

volkan bey ornek için tesekkur ederim ama zaten ben bunu yazdıgım sekılde yapamazmıyım merak ettıgım bu . cunku o foksiyonumla fis no buna benzer sorguları alıp dongumde kullanıyorum . amacım tarihlede yapabilmek saygılarımla

bir sorguda sadece bu tarihte olan kayıtların sayısını dondurmek ıstıyorum
iLK DENEMEM sql excec adlı fonksiyona yollayarak denenen.
Q:=SqlExec(Format('select count(*) from GRUPMASTER where TARIH = "%s";', [sontar]));

data type mismatch alıyorum
sontar string turune donusturulmus durumda zaten ...

c00 ın kodlarını yazdım test ettım coktan
bana odeme bılgısı kayıt cevabı donuyor ama problem odeme bılgısı sorgularken baslıyor .

Kamuran kardes ellerine saglik , keske 1 hafta once foruma baksaymisim diyesim geldi, bende bir kismini yazip bitirdim
ama c00 odeme bilgisi kayitta bir sıkıntım var..
bu asamalarda nelere dıkkat etmem gerekiyor ..
yani tani kodlari
odeme bilgisi kaydettikten sonra : Fatura Teyit No = alabilmek ...