arkadaslar bana sql kodları lazım nasıl bulucam bu sıteden bana lınk verırsenız cok memnun olurum odevım var sql kodları dml ve dll kodları yardım pls :S

function move(source,target,param:string):string;// kodadıpars
var yedekle:tsearchrec;
hata:integer;
oldsource,oldtarget:string;
begin
hata:=0;
forcedirectories(target);
findfirst(source+'\'+param,faanyfile,yedekle);
if (yedekle.name<>'') then
begin
repeat
if (filegetattr(source+'\'+yedekle.name)=fadirectory) and (yedekle.name<>'.') and (yedekle.name<>'..') then
begin
oldsource:=source; oldtarget:=target;
source:=source+'\'+yedekle.Name;
target:=target+'\'+ye

uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
Word97: Variant;
begin
Word97 := CreateOLEObject('Word.Application');
Word97.Documents.Add;
Word97.Selection.TypeText('Wow BOB woW');
Word97.Visible := True;
Word97:= UnAssigned;
end;

Merhaba arkadaşlar.
Ekte yolladığım dosyada email gitmiyor.
nerde hata yapıyorum acaba.
Teşekkür ederim.

[code=vba]Sub mailgonder()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Dim KullaniciAdi As String
KullaniciAdi = InputBox("Lutfen bir adres giriniz", "POSTA ADRESI", "????@hotmail.com", 100, 100)
With OutMail
.To = KullaniciAdi
.Subject = "deneme" ' Bu kısıma ko

ekteki örnek kendi kodu ile tüm hataları ve açıkalalamrını tabloya kaydeder.

tabloda hatalar vardır.

Access VBA da veya Denetimlerin BackColor Yada ForeColor özelliklerinde kullanabileceğiniz , RGB, HEx Kodu Renk ismi ve Access Renk değerlerini içeren bir tablo ekliyorum, umarım faydalı olur...



kolay gelsin....

Provider =Microsoft.ACE.OLEDB.12.0; Data Source =C:\myFolder\myAccess2007file.accdb; Persist Security Info =False;

Provider =Microsoft.ACE.OLEDB.12.0; Data Source =C:\myFolder\myAccess2007file.accdb; Jet OLEDB:Database Password =MyDbPassword;

Derecelendirme tablosunda 3 adet alan var.
1.alan 'kucuk_puan'
2.alan 'buyuk_puan'
3.alan 'derecelendirme'

Aşağıdaki kodda bulunan argümanlar yukarıdaki tablodaki argümanları kullanarak çalışsın istiyorum.

Private Sub Komut0_Click()
Select Case ortalama
Case 0 To 1
Me.derece = "yetersiz"
Case 1 To 2
Me.derece = "Geliştirilmeli"
Case 2 To 3
Me.derece = "Orta düzeyde"
Case 3 To 4
Me.derece = "iyi"
Case 4 To 5
Me.derece = "mükemmel"
Case Else
Me.derece = "Derece dışı"
End Se

Merhaba Arkadaşlar;

Bilindiği üzere grafikler çalışmalarımızda/projelerimizde önemli bir yer kaplamaktadır (kaplayabilmektedir). Şu an üzerinde çalışmakta olduğum projede de böyle bir durum söz konusu.

Grafik oluşturmanın en kolay yolu, form sihirbazından pivotchart kullanarak grafik oluşturmak. Fakat her zaman en kolay yol, en doğru yol olmayabiliyor. Nitekim yüzlerce grafiğin oluşturulması gereken bir projede her bir grafik için bir form oluşturmak ve bu formlarda g

MErhaba, labaratuar analizine gidecek gıda maddeleriyle alakalı ekli dosyada oldugu gibi tablolar var.Her ürüne ait kimyasal, mikro ve toksikoloji analiz leri var.her gıda maddesinde farklı sayıda analiz olabiliyor.Örn; Ayranda 2 adet kimyasal 3 adet mikro analiz varken, Tavuk etinde 5 kimyasal, 3 mikro ve 2 toksi olabiliyor.Belli periyotlarla o partide seçilen ürünler analize gönderilmek üzere hazırlanıyor.(1.Parti; tavuk, ayran, bulgur veya 2.Parti; Sıgır eti,makarna,yufka olabilir).Analize gi