Test Projesi Yardım
Tarih
05/01/2012 22:22
Konu Sahibi
Technoman
Yorumlar
13
Okunma
2562
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Technoman
Novice Coder
Kullanici Avatari
Üye
M.... O....
30
9
09/11/2011
0
İstanbul
Ofis 2007
11/01/2012,22:36
Çözüldü 
Henüz acemiyim ve gelişmeye çalışıyorum. Ben bir yarışma projesi yapıyorum kendimce. Biraz ilerledim. Neler yapılacağını çıkardım ama istediklerimi nasıl yapacağımı bulamadım. Sizlerden yarım almayı düşündüm. Yapmak istediklerimin hepsini not belgesine yazdım. Ana formdaki her şeyin işlevini ayrıntılı bir şekilde yazdım.

Adım adım da olsa yavaş yavaş da olsa çok hızlı da olsa yardım eder misiniz? Projem aşağıdaki ekte. Rar.da Access belgesi ve not belgesi var. Yapmaya çalıştıklarım not belgesinde yazıyor. Yardımınız olmadan yapamam. En azından bir bakın


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çözüldü 
Site Kuralları:
6/d-) Birden fazla soruyu aynı konuda sormak yasaktır. Her soru için farklı başlıklı yeni konu açınız.
[Sürekli ihlal halinde Uyarı Puanı: +2]
10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya döküman eklemeyiniz.
[Uyarı Puanı: +2]

Her soru için yeni konu açmanız gerekiyor. Bu şekilde sorunuz ile kimse ilgilenmez.


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
Site Kuralları
Madde 10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya döküman eklemeyiniz.
[Uyarı Puanı: +2]

Sn.sledgeab
Kusura bakmayın ben yazana kadar siz yazmışsınız bile
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çözüldü 
Bıkıncaya kadar birşeyler yapmaya çalıştım, ekleme yapılabilir.

Ek Dosyalar
Bilgi Yarışması_sled1.rar


Technoman
Novice Coder
Kullanici Avatari
Üye
M.... O....
30
9
09/11/2011
0
İstanbul
Ofis 2007
11/01/2012,22:36
Çözüldü 
Kuralları ihlal ettiğim için özür dilerim. Bir daha yapmam. Çok güzel olmuş bu hali ile bile kullanılır. Ben o kadar kodu yazamazdım kesinlikle. Sağolasın admin.
Yarışmacı yanlış yaptığında yeniden başlaması için bir tuş yapmayı düşünüyorum. İlk kayda git deyince toplam kazanç v.s değişmiyor. Bunu nasıl yapabilirim. Yani bütün bilgileri nasıl sıfırlayabilirim bu buton ile.


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çözüldü 
ilk kayda git şeklinde buton kullanacaksanız butonun tıklandığında olayına

Visual Basic Code
DoCmd.GoToRecord , , acFirst
TOPLAMKAZANÇ = "0 TL."

yazmanız yeterli, ayrıca bu butona, önceki yarışmacının verdiği cevapları silmek için

Visual Basic Code
DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE Sorular SET Sorular.CEVAP = Null;")
DoCmd.SetWarnings True

kodu da eklemelisiniz

Doğru cevap- kaybettiniz etiketi için kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub yansondogru()
On Error Resume Next
Me.Kutu63.Visible = True
Dim i As Integer
Dim PauseTime, Start
PauseTime = 1.6
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
For i = 1 To 16
PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
If i \ 2 = i / 2 Then
Kutu63.Visible = False
Else
Kutu63.Visible = True
Kutu63.BorderColor = vbGreen
Me.Etiket64.Visible = True
Me.Etiket64.Caption = "DOĞRU CEVAP"
Me.Etiket64.ForeColor = vbGreen
End If
If i = 6 Then
Kutu63.BorderColor = vbBlack
Me.TimerInterval = 400
End If
Next

Me.Kutu63.Visible = False
End Sub








Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sorguda kriteri boş bırakma için yardım. okumas 3 172 24/09/2016, 11:43 okumas
Exclamation ACCES mde yardim Mehemmed Fehradli 3 169 24/09/2016, 00:18 ozanakkaya
  access Formu Tam ekran yapma yardım Onur Akgül 10 413 06/08/2016, 20:39 atoz112
  STOK TAKİP PROGRAMI YARDIM. IceMan7 6 478 21/06/2016, 15:16 atoz112
  Access mobilya mağazası yardım erdem3460 3 318 08/05/2016, 06:04 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya