Tags
Author: Zeki Gürsoy - Replies: 21 - Views: 25222
İki Tarih Farkını "YIL-AY-GÜN" Veren Fonksiyon (DateDiff_ze_bb)
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
Author: metinse - Replies: 28 - Views: 14109
Sabit boşluklu txt yapmak için sifir ve boşluk ekleyen fonksiyon
Merhaba Arkadaşlar,
Malumunuz verileri txt yapmak veya almak için 2 yöntem kullanılıyor.
1- Sınırlandırılmamış ( Sabit Boşluşlu )
2- Sınırlandırmış (Özel işaretlerle ayırırma)

Access ortamındaki sorgu ve tabloyu txt yaparken,
Sınırlandırılmamış (Sabit Boşluklu) veri gerekli olduğunda işe yarayacak kendi yazdığım 2 fonksiyonu gönderiyorum.
Umarım faydalılı olur.
Saygılarımla.

Function SifirEkle(Saha, Adet) As String
Dim i As Integer
Say = Len(Saha)
Fark = Adet - Say
S
Author: metinse - Replies: 4 - Views: 14663
Yazıların ilk harfleri büyük diğerlerini küçük yapan SQL Scaler Fonksiyon
Arkadaşlar,
MS SQL için yazıların ilk harfleri büyük diğerlerini küçük yapmam gerekiyordu, aşağıdaki SQL Scaler fonksiyonu yazdım.
Umarım faydalı olur.
Saygılarımla.

[code=sql]
CREATE FUNCTION BKUCUK (
@kelime NVARCHAR(MAX)
)
RETURNS NVARCHAR(MAX)
AS
BEGIN
DECLARE @girdi NVARCHAR(MAX)
DECLARE @sonuc NVARCHAR(MAX)
DECLARE @say INTEGER
DECLARE @uzunluk INTEGER
SET @girdi = LTRIM(@kelime)
SET @uzunluk=LEN(@girdi)
SET @say=0

WHILE @uzunluk>@say
BEGIN
Author: Orion - Replies: 3 - Views: 5583
VBNET-2008 Fonksiyon'da değişkeni tanımlamak.
vb.net
  1. Public Function CSVOlarakKaydet(ByVal filename As String, ByVal lv As ListView) As Boolean


Merhaba.
Yukarıdaki kodu aşağıdaki gibi yazabilirmiyiz?
ByVal bu tanımlamaya ne katıyor?
teşekkür ederim.
vb.net
  1. Public Function CSVOlarakKaydet(filename As String, lv As ListView) As Boolean


Author: kenanyuk - Replies: 7 - Views: 3585
Nesne atayan fonksiyon hakkında soru
aşağıdaki fonksiyona frmName ve objName sorgudan değişken olarak geliyor. ancak sanırım gelen değişken string olduğu için object oluşturulamıyor. yazımda hata yapıyorum ama nerede. yardımınız için şimdiden teşekkürler.

Private Function objtree(frmName as string , objName as string) As TreeView
' aşağıdaki her iki satırda çalışmıyor

Set objtree = Forms!(frmName).Controls(objName).object
'denedim olmadı

Set objtree = "[Forms]![" & frmName & "]![" & objName & "].object"
' bu da çalışmad
Author: beab05 - Replies: 18 - Views: 13870
Access Fonksiyon Kutusu


[size=medium]

Merhaba arkadaşlar;
Access ile birlikte kullanabileceğiniz ve içinde 7, aslında 8 ayrı fonksiyon bulunan çok amaçlı bir DLL hazırladım. Başta da belirtmem gerekir ki bu DLL dosyasını Access, Excel, VB6 veya .Net gibi projelerinizde rahatlıkla kullanabilirsiniz.

DLL dosyamızı kullanmak için öncelikle “Access-Sql.dll” ve “Access-Sql.tlb” dosyalarımızı daha rahat bir kullanım için [
Author: Zeki Gürsoy - Replies: 10 - Views: 7827
Kullanıcı tanımlı fonksiyon & Trigger çalışması
Merhaba,

Arada pratik yapmak lazım... )
Benzer konuyu Firebird' den alıp t-sql'e uyarladım.

Bu örnekte sayıyı yazıya çeviren yapı t-sql fonksiyonu olarak derlendi. Fonksiyonu, "dbo.deneme" isimli tabloda "sayi" alanına değer eklendiğinde/değiştiğinde tetiklenecek şekilde de destekledim.

Ekteki yedek dosyasını(.bak) restore yaptıktan sonra sunucunuza "attach" layın. İki tablo, 1 trigger ve bir de f
Author: frezenius - Replies: 10 - Views: 4679
Fonksiyon ve alan adı problemi
Merhaba;
Şöyle bir problemim var,
Bir raporum var. Verilen hizmetleri listeleyenNahmaksimum 8 adete kadar hizmet verilebiliyor.)
Rapor Örneği:
----------------------------------------------

kisi_adı soyadı

1- hizmet_1, işlem_1
2-hizmet_2, işlem_2
.
.
.

--------------------------------------------
Benim yapmak istediğim ise şu:
hizmetlerin başındaki numaraların otomatik atması.
Daha önce ilgili tablomda 8 adet alan (hizmt_numarası_1, hizmet_numarası_2,....8) oluşturarak formda
Author: Tornado - Replies: 3 - Views: 3327
Access 2003 Videolu Anlatım: SQL Kod Yazma - Hazır Fonksiyon Kullanımına Örnek
sql kod yazarken hazır fonksiyon kullanımına örnek verilmiştir
Author: Taruz - Replies: 16 - Views: 14651
64 Bit Versiyonlardaki Deklarasyon Kaynaklı Fonksiyon Hataları
Merhaba arkadaşlar..

Uygulamalarımız içerisinde kullandığımız bazı modüller deklarasyon içerir.. Bunlar 32 bit Access sürümlerinde hatasız çalışırken 64 bit sürümlerde kullanmak istediğimizde hata verir.. Bu sorunu aşmak için deklarasyonlara küçük bir ilave tanım yapmamız gerekmektedir..

[code=vba]#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else '32 bit için
Private Declare Function GetSyste