veri tabanı uygulaması

[levuu]

merhaba
formda "veri tabanı uygulamasında kod yazma mantığı " adı altındaki dosyadan alınan kodları uyguldığımda hata vermektedir. user form hiç çalıştırılamamaktadır.?

 

[AS3434]

Userformu açacak Buton koymamışsınız.

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Kodları yanlış yazmışsınız.

For sira = 1 To [COLOR=red]WorksheetFunci[/COLOR][COLOR=red]ot[/COLOR].CountA(Range("b1:b65535"))

Değil

For sira = 1 To [COLOR=red]WorksheetFunction[/COLOR].CountA(Range("b1:b65535"))

Olacak. WorksheetFunction geçen bütün yerleri düzeltin.

 

[hakacho]

sayın AS3434, imzanızda yazan şiir Gazi Mustafa Kemal Atatürk'e ait değildir. birkaç keredir dikkati çekiyo. iyi niyetle uyarmak istedim. Umarım haddimi aşmamamışımdır.

 

[levuu]

as3434
uyarınız için teşekkürler.Ancak gerekli düzeltmelerden sonrada sonuç olumsuz.?

 

[AS3434]

sayın AS3434, imzanızda yazan şiir Gazi Mustafa Kemal Atatürk'e ait değildir. birkaç keredir dikkati çekiyo. iyi niyetle uyarmak istedim. Umarım haddimi aşmamamışımdır.

Sayın hakacho

Uyarınız için teşekkür ederim.
Şiiri bu haliyle Atatürk ile ilgili bir siteden aldım. Aslında benim de aklımda soru işareti vardı ama araştırmamıştım.

Yaptığım hataya karşılık, Değerli şair M.Cemal Kuntay'a ait olan bu dizelerin tamamını aşağıya ekledim.

On Beş Yılı Karşılarken
Kim derdi yarılsın da nihayet yerin altı,
Bir anda dirilsin de şu milyonla karaltı.

Topraklaşan ellerde birer meşale yansın.
Kim der ki şu milyonla adam birden uyansın.

Kim derdi seher yıldızı doğsun da bir evden,
Kaçsın da cehennemler o bir dalma alevden,

Canlansın ışık selleri olsun da o damla
Beş devletin öldürdüğü devlet bir adamla.

Kim der ki en son rakamlar da delirsin.
On beş asır on beş yılın eb'adına girsin.

Dünyaları bir fert evet oynattı yerinden,
Sarsıldı demirler evet azmin demirinden.

Mazi yıkılıp gitti evet fesli, kafesli:
Lâkin bugünün ey granit bünyeli nesli,

Bir şey ele geçmez şerefin sade adından.
Sen arşı bırak, varsa haber ver kanadından.

Gökten ne çıkar? Gök ha büyükmüş ha değilmiş,
Sen alnını göster ne kadar yükselebilmiş.

Gökler çıkabildin, uçabildinse derindir,
Tarihi kendin yazıyorsan, eserindir.

Bahsetme bugün sade dünün mucizesinden,
İnsan utanır sonra yarın kendi sesinden.

Asrın yaşamak hakkını vermez sana kimse;
Sen asrını üstünde izin varsa benimse;

Bayrakları bayrak yapan üstündeki kandır
Toprak,eğer uğrunda ölen varsa vatandır.

 

[AS3434]

Sayın levuu

Yazmış olduğunuz kodların çoğunda ufak tefek hatalar mevcut.
Ne yapmaya çalışıyorsanız, örnek dosya ile açıklayın.

Selection.Sort Key1:=Range("B2"), Order1:=x1Ascending, Header:=x1Yes[COLOR=red], [/COLOR][COLOR=red]_[/COLOR]
OrderCustom:=1,MatchCase:=False,Orientation:=x1TopToBottom[COLOR=red], _[/COLOR]
DataOption1:=x1SortNormal

WorksheetFunctio[COLOR=red]t[/COLOR]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[COLOR=red]'IfCloseMode[/COLOR]= 0 [COLOR=red]Then  Cancel[/COLOR] = True
[COLOR=#000000]If CloseMode = 0 Then Cancel = True[/COLOR]
End Sub

Ben kodlardan ve Userform dan fazla anlamıyorum.
Yine de anlayabildiğim kadarı ile bazı yerleri düzelttim. Nisbeten çalışıyor.