- Katılım
- 9 Kasım 2007
- Mesajlar
- 51
- Excel Vers. ve Dili
- OFİS 2003 TR
Selam Üstadlar;
Aşağıdaki kod ile kayıt işlemi öncesi mevcut form üzerinde bulunan "birleştirme1 altformu" isimli formdaki "günt" (Sorgu sonucu bulunan değerlerin toplam kutusu ) isimli Metin kutusuna baş vuruyor. orda yazılı değer 1 veya daha büyükse kod çalışıyor ancak orda herhangi bir değer yok ise yani sorgu sonucunda herhangi bir veri bulunanamışsa kod hata veriyor. "günt" isimli metin kutusunu başka bir metin kutusuna bağladığım zaman orda da değer olmaması durumunda "*Hata" yazıyor bu defa değer verilen 6 veya daha büyükmüş gibi çalışıyor.
Acaba If bölümüne nasıl bir kod yazılması gerekiyor yardımcı olabilirmisiniz.
Teşekkürler.. İyi Çalışmalar..... !
Aşağıdaki kod ile kayıt işlemi öncesi mevcut form üzerinde bulunan "birleştirme1 altformu" isimli formdaki "günt" (Sorgu sonucu bulunan değerlerin toplam kutusu ) isimli Metin kutusuna baş vuruyor. orda yazılı değer 1 veya daha büyükse kod çalışıyor ancak orda herhangi bir değer yok ise yani sorgu sonucunda herhangi bir veri bulunanamışsa kod hata veriyor. "günt" isimli metin kutusunu başka bir metin kutusuna bağladığım zaman orda da değer olmaması durumunda "*Hata" yazıyor bu defa değer verilen 6 veya daha büyükmüş gibi çalışıyor.
Acaba If bölümüne nasıl bir kod yazılması gerekiyor yardımcı olabilirmisiniz.
Teşekkürler.. İyi Çalışmalar..... !
Kod:
Private Sub KAYDET_Click()
Me.src1süre.Requery
Dim uyari1 As Integer
If [Form_birleştirme1 alt formu].günt.Value >= 6 Then
uyari1 = MsgBox("Bu Durumda Kayıt işlemi yapmanız önerilmez" + vbCrLf + "Kayda işlemini iptal etmek için EVET i, devam etmek için HAYIR' ı tıklayın", vbYesNo, "USÜLSÜZ KAYIT İŞLEMİ UYARISI")
If uyari1 = vbYes Then
Me.Undo
Else
On Error GoTo Err_KAYDET_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_KAYDET_Click:
Exit Sub
Err_KAYDET_Click:
MsgBox Err.Description
Resume Exit_KAYDET_Click
End If
End If
End Sub