[Video: https://www.youtube.com/watch?v=9IzXEBUTrXA]

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

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.

https://youtu.be/_zi5ZqFvMAQ

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.

6 yıldır kullandığım muhasebe programında müşterilerin detaylı ekstresini açmak istediğimde "geçici diskte yeterli alan yok" uyarısı dolaysıyla açılmıyor. Ne yapmalıyım?