Sevgili dostum beab ile VBA' de iki tarih arası farkını "1 YIL 2 AY 12 GÜN" gibi formatta çeviren fonksiyon ihtiyacı olabileceğini düşündük.

Bu amaçla hazırladığımız fonksiyonun faydalı olması dileklerimizle...


[code=vba]Public Function DateDiff_ze_bb(KUCUK_TARIH As Date, BUYUK_TARIH As Date) As String
Dim GUN&, AY%, YIL%
Dim GG As Date, GG2 As Date

GUN = DateDiff("d", KUCUK_TARIH, BUYUK_TARIH)
AY = Int((GUN Mod 365.25) / 30)
YIL = Int(GUN \ 365.25)
GG = Da

Evin minik faresi, duvardaki çatlaktan bakarken çiftçi ve eşinin mutfakta bir paketi açtıklarını gördü.
Kendi kendine:
İçinde hangi yiyecek var acaba ?" diye düşündü.Bir süre sonra gördüğü paketin bir fare kapanı olduğunu anladığında yıkılmıştı.
"Evde bir fare kapanı var!, evde bir fare kapanı var!" diye bağırarak telaşla bahçeye fırladı.
Minik fareyi telaş içinde gören tavuk, umursamaz ve bilgiç bir tavırla başını kaldırdı ve gıdakladı:"Zavallı farecik...Bu senin sorunun benim değil.Ban

Merhaba arkadaşlar acil ihtiyacim olan bir durum var yardimlariniz için şimdiden teşekkürler simdi bbenim formumda 7 adet frame var bu her bir frame içinde 3 option button var ve bu option butonlar eğer 1.tiklanirsa frame ddeğeri 1 ,2.tiklanirsa frame değeri 2,3.tiklanirsa frame değeriolarak 3 ddeğerini tabloya kayit ediyor fakat benim asil sormak istediğim bu kayit etmiş olduğum değeri tablodan forma nasil çekerim ama sayi değeri olarak değilde hangi option değerine eşitse o option buttonda tik

arkadaşlar bir sorgu oluşturdum ve bu sorguya bağlı birde süzgeç formu oluşturdum bu süzgeç formundan girdiğim değere göre sorgu veri getiriyor ancak verdiğim değer tabloda yoksa bana bir uyarı mesajı vermesini istiyorum yardım ederseniz sevinirim

mssql fazla bilgim yardım ederseniz sevinirim

tablo adı : MUSTERILER
alan1 : ADI
alan2 : TARIH

yukardaki tabloyu sorguya çevirmek istiyorum fakat sadece bugünün kayıtlarını getirsin

yardımcı olurmusunuz teşekürler...

arkadaşlar bir sorgu oluşturdum ve bu sorguya bağlı birde süzgeç formu oluşturdum bu süzgeç formundan girdiğim değere göre sorgu veri getiriyor ancak verdiğim değer tabloda yoksa bana bir uyarı mesajı vermesini istiyorum yardım ederseniz sevinirim

Merhaba kolay gelsin . Forum sitemiz üzerinden edindiğim bilgiler ile formumda üç alandan oluşan bilgileri Vba kodu ile yine aynı formda sağ tarafta bulunan diğer üç alana buton yardımı ile kopyalıyorum. Ancak alanlardan biri boş olur ise "Run-time eror 2046 " hata kodunu alıyorum ;


Private Sub Komut132_Click()
Dim mesaj
    mesaj = MsgBox("Bilgiler Sağ Tarafa Aktarılacak! Devam Edecekmisiniz ? ", vbYesNoCancel)
    If mesaj = vbYes Then
DoCmd.GoToControl "bir_adi"
DoCmd.RunCommand acC

[code=vba]Sub ListeleTabloAlanlari()
   Dim db As DAO.Database
   Dim td As DAO.TableDef
   Dim fld As DAO.Field
   Dim tabloAdi As String
   Dim mesaj As String
   
   ' Kullanıcıdan tablo adını al
   tabloAdi = InputBox("Alan adlarını görmek istediğiniz tablo adını girin:", "Tablo Adı Girişi")
   If tabloAdi = "" Then Exit Sub  ' Boş geçilirse çık
   
   ' Veritabanı nesnesini ayarla
   Set db = CurrentDb
   
   ' Tablo mevcut mu kontrol et
   On Error Resume Next