iyi günler fonsiyon adımları nasıl oluyor
[vb]Private Function writeExcel() As Boolean
On Error GoTo Err_hata
    Dim result As Boolean
    result = False
   
   
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
    Dim acRng As Variant
    Dim xlRow As Integer
    Dim xlColumn As Integer


    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Open(targetFullName)
    Set xlWS = xlWB.Worksheets("Sayfa2")
   
 

Merhaba AnaFormumdaki F12 Fonksiyon Tuşuna bastığımda programı kapatıyorum. Fakat program kapatılırken aynı anda yedeklemede yapılsın istiyorum. Bu amaçla fonksiyon tuşunda F_Yedekleme formunu  açıp Formdaki ÇIKIŞ butonuna tıklanma olayını gerçekleştirmem gerekiyor. Yedekleme formu çıkış butonuna tıklandığında kod gereği ana programı kapatıp yedeklemeyi yapıyor. Sanırım benim sadece formun açıldıktan sonra butona tıklanma olayını sağlamam yeterli olacak. Yardımlarınız için teşekkür ederim. 
[vb

Merhaba,
modül kodları:
[vb]Public Sub KytKaynAyari(ByVal MvctForm As Access.Form)

Dim SqlStr, SqlStrRpr As String
' formun kayıt kaynağının ayarlanması
SqlStr = " SELECT TACALISANKAYDI.*, TRADYASYON" & MvctForm.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TRADYASYON" & MvctForm.AclRMynSec & _
         " ON TACALISANKAYDI.KIMNO = TRADYASYON" & MvctForm.AclRMynSec & ".KIMNO"
SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![FRADYASYONMYN]![mtn_KimNo]))"

DoCmd.OpenForm

arkadaşlar bu sorunum farklı bir çalışma (benim ve kurum için önemli) dan, size zahmet bi bakabilir misiniz.

WHERE (( " & dgr14 & " ) = DMax( " & dgr20 & " , ' " & dgr16 & " '))

dgr14= KISILER.kisi_id 'tablo ve alan
dgr20=kisi_id 'alan
dgr16=KISILER 'tablo

merhaba arkadaşlar bu ifadeyi evirip cevirip çalıştırıyorum çalışmıyor , acaba nerede hata yapıyorum bi bakabilir misiniz, şimdiden teşekkürler.

dosya ekte, ANAFORM da ekle butnunun değerlerini alan ekle() fonksiyonunda

Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır


Formunuzun Vba kısmına bu kodu yapıştırınız.

[code]Public S

merhaba.


Girilen Tarihin haftanın başlangıçı ve sorunu gösteren fonksiyon veya sorgu
ihtiyaçım var.

örnek :

tarih: 04.08.2022
hafta başl. : 01.08.2022
hafta bitiş : 07.08.2022 sonuçunu görmeliyim.


yardımcı olan arkadaşlara şimdiden teşekkür ederim.

merhabalar,
 

Access içerisinde return ü datatable olan bir fonsksiyon olarak tanımlayabilirmiyiz?

Örnek kod visual studio içinidir;

[code]Public Function GET_EKSTRE(CARKOD As String, TAR1 As Date, TAR2 As Date, SORGU As String) As DataTable
     
        SORGU = "SELECT * FROM CARTH001 WHERE C='" & CARKOD & "' AND TARIH BETWEEN '" & TAR1 & "' AND '" & TAR2 & "'"
        Dim da As New OleDbDataAdapter(SORGU, cn_access)
        Dim DT As New System.Data.DataTable()
        da.Fill(DT)
     

merhabalar

access içerisinde oluşturduğum bir fonksiyonu dış sorgu ile nasıl çağırabilirim?


sadece örnek amaçlı;

"select toplafonk(2,5) as toplam"


access içerisinde çalışıyor fakat dışarıdan sorgu olarak yazdığımda çalışmıyor