1. Aşağıda bulunan çoçuk maaşını hesaplıyan kodları yazın.

a.1 çocuk olan maaşına 50 ytl,2 çocuk olan 100 ytl, 3 çocuk olan 50 ytl eksik olarak hesaplayan
b. çıkış butonu olan








A)Kodu yazın.(10)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

…………………………………………………..

End Sub
B)Kodları yazın.(60)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Cl

Merhabalar,

Form silme butona şu şekil bir silme işlemi yaptırıyorum.
[vb]Public Sub sil_taslakici()
Dim rS As New ADODB.Recordset
rS.Open "T_RECETETASLAKMALIYET", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rS.Find "[ReceteTaslakNo]=" & Me.taslakno
rS.Delete
rS.Close: Set rS = Nothing
End Sub
Public Sub sil_taslak()
Dim rS As New ADODB.Recordset
rS.Open "T_RECETETASLAK", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rS.Find "[ReceteTaslakNo]=" & Me.taslak

Sayın hocalarım

Birkaç gün önce aynı konuyu açmıştım, hocalarımızın tavsiyerini denedim fakat aynı hatayı vermeye devam ediyor. Sorunum. Ekte vermiş olduğum personel takip tablosunun açılışında kullanıcı ve şifre ile giriş kısmında MICROSOFT OFFICE WAS COMMUNICATING WITH THE OLE SERVER OR ACTIVEX CONTROL. diye bir hata vermektedir.

Birincisi bu hatayı windows ve office türkçe kurulmuş pc lerde vermiyor.
Ama ingilizce windows ve ofis yüklü pclerde hata ile karşılaşmaktayım. Bütün tablol

İyi geceler değerli hocalarım,

Yapmaya çalıştığım programda "alternatifleri sırala" butonuna bastığımda bir formül çalıştırmak istiyorum. Fakat tuşa bastığımda bir hata veriyor ve ben bu hatanın neden kaynaklandığını anlayamıyorum.

Kod yazmaktan anlamadığım için formülün kodları çok fazla oldu.
Eminim bir döngü yapısıyla çok daha az satır aynı işi görürdü.
Acaba hatanın sebebi fazla kodlar mı?

Bu konuda bana yardımcı olabilirseniz çok sevinirim.

Arkadaşlar veritabanını bölerken Subscript out of range hatası alıyorum...

Bu hatayı ne sebep olabilir yada daha önce bu hatayla karşılaşan varmı ?

iyi günler
kod yazmayı bilmeden çok zor oluyor
şimdide bu hatayı veriyor
resileri ekledim
hangi durumlarda bu hata veriyor
yardımlarınız için teşekkürler

3 tane alanım var
adı soyadı
tarih
saat
yukardaki alanlardan saat olanında bi kod var 2 sine adı soyad tarih kısmına veri giriyorum ve en son saat alanına veri girdiğimde run-time error 3464 uyarsı veriyor ve ekteki koda gidiyor. sorun nerde acaba yardımcı olabilirmisiniz tşk

' Create folder with time stamp and username in CoCo Folder

MyPath = "P:\Cost - Core\20 - Cost and Commitment\BLIO Reports -" & Format(Now, "yy-m-dd(hhmm) - " & (Environ$("Username")) & "\\")
If MsgBox(MyPath, vbOKCancel) = vbCancel Then
Cancel = True
Else
MkDir MyPath
End If

Arkadaslar kirmizi olan yer Debug diyince gozukuyor. Yardiminiza ihtiyacim var. Simdiden tesekkur ederim.

Görsel programlama dersi proje ödevi üzerine emlak takip programı yapıyorum. CheckBox'lara değerleri access'deki kayıtlardan çekebiliyorum şu şekilde
cbBalkon.DataBindings.Add("checked", bindingsource, "balkon")

Fakat kaydederken Insert Into sorgusuna nasıl ekleyeceğimi bilmiyorum.

Dim kmt As OleDbCommand = New OleDbCommand("Insert Into Devremulk (balkon) values ('" + cbBalkon.Checked + "')", bag) şeklinde bağladığımda

'DBNull' türünden 'String' türüne yapılan dönüştürme geçerli değil

Değerli dostlar;


İyi akşamlar.

Farklı zamanda bazı Excel dosyalarını açarken, resimdeki gibi "System Error" hata iletisini almakta ve dosyayı açamamaktayım.

Nedeni ve çözümü konusunda değerli düşünce ve görüşlerinizi öğrenmek istiyorum.

Windows 7 professional TR ve Office 2010 TR kullanıyorum.

İlgi ve yardımınız için önceden teşekkürler.