@ozguryasin tarafından yapılan MySql örneğini ufak düzenlemeler ile MsSql Server için uyarladım.

VBA penceresinde yer alan SqlServerConnStr modülündeki SqlServerConnStringGetir isimli fonksiyon bize MsSql Server'a bağlantı için gereken SqlServer Connection String (SqlServer'a Bağlantı Cümlesi) geri döndürür.

MsSql'e bağlantı için iki tür yöntem vardır:

1- Windows Authentication ile kendi bilgisayarınızda herhangi bir kullanıcı adı ve şifre gerektirmeden MsSql Se

aşağıdaki modül ile mssql veritabanına bağlanıyorum 
--------------------------------------------------------------------------------------------
Public Function SqlServerConnStringGetir() As String
Dim BaglantiTuru As String
Dim ServerName As String: ServerName = "DESKTOP-aaa0"
Dim DatabaseName As String: DatabaseName = "MARKET"
Dim UserName As String: UserName = "sa"
Dim Password As String: Password = "4857"
SqlServerConnStringGetir = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATA

Merhaba
Sizden bir konu hakkında yardım talep edecektim. Zaman ayırıp bakabilirseniz çok memnun olurum.
[color=#2a2e2e][size=small]Personel işlerinde çalışıyorum. Her personel işe giriş yaptığı tarih itibari ile adına özel Excel dosyam ve bunları ay ve yıl olarak klasörledim. Benim sizden ricam ekte gönderdiğim Personel Veri.xlsx dosyasında sarı renge boyadığım alandaki verileri nasıl Veri Tabanı.xlsx dosyasına

Arkadaşlar Ado ile kaydet butonun kodlarını bir arkadaşın çalışmasından alarak ve öğrenerek uyarlamaya çalışıyorum. lakin hata alıyorum. İlgilenebilir misiniz?
[sql]
If IsNull(Me.txtid) Or Me.txtid = "" Then
MsgBox "Lütfen Öğrenci Kayıt Sırasını Yazınız!", , "Kayıt İşlemi"
Me.txtid.SetFocus
Exit Sub
End If

Dim txtidKontrol As Long
txtidKontrol = Nz(DCount("ogrid", "tbl_ogrenciler", "ogrid='" & Me.txtid & "'"))
If txtidKontrol <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugu

Merhaba.

Ado ile bağlantılı comboboxlar yapmaya çalıştım lakin başaramadım.
Yardımcı olanlara teşekkürler şimdiden.
1 adet Excel dosyaysı ekliyorum orda örnek var bağlantılı comboboxlar.Buna göre olacak.

Örnek Access dosyasınıda ekliyorum.
Alttaki kod bu konu ile ilgili bu kadar ilerleyebildim.


[php]Sub Combo(ByVal Tablo As String)

    On Error Resume Next
   
    If Tablo <> "" Then
        cmboAdArama.RowSource = "select distinct Ad from '" & Tablo & "'"
        cmboSoyad

iyi günler 3. Excel dosyasından Vba kod yazarak 
kapalı halde bulunan 1. Excel dosyasından verileri alıp
kapalı halde bulunan 2. Excel dosyasına veri yazabilir miyiz
kapalı haldeki Excel dosyasından zaten veri alabiliyoruz muhtemelen yazabiliriz diye düşünüyorum

bir türlü yapamadım yardım edebilir misiniz

şu kod ile bir tablodan başka bir tablo oluşturuyorum ama otomatik sayıda eklemek istiyorum 
Autoıncrement Prımary Key
bunu nasıl ekleyeceğim


[vb]Sub sqql(v As String)
    Dim Sql As String
    Dim dbs As Database
    Set dbs = OpenDatabase("C:\Users\doktor2\Desktop\pmf\_udemy\egitim.accdb")
   
    Sql = "SELECT liste_tam.FABRİKA as fabrika, liste_tam.DEPARTMAN as departman, liste_tam.[GÖREV TANIMI (AS400)] as gorevas," _
    & " liste_tam.[GÖREV TANIMI (İSO)] as goreviso, liste_t

Aranızda tarih filtreli çapraz tablodan ADO ile veri alabilen oldu mu arkadaşlar
sıkıntı şu ki tarih filtreli olunca alan isimleri sabit olmuyor

---

https://docs.microsoft.com/en-us/office/...access-sql

---

[vb]Sub TransformX2()
   
        Dim dbs As Database
        Dim strSQL As String
        Dim qdfTRANSFORM As QueryDef
   
        strSQL = "PARAMETERS prmYear SMALLINT; TRANSFORM " _
       

İyi geceler personel blgilerini excelden alıp Access tablosuna kaydedip eğitim tablosu vs yapacağım. Arada çıkan ve yeni eklenen personel olacak. Çıkan personel son excelde olmayacağı için accessde pasif olacak son excelde olup accessde yoksa accesse eklenecek excelde değişiklik güncellenmeyecek haftada bir yeni Excel gelebilir. Excel dosya yolu dosya adı ve sutunlar sabit olacak
Şimdi soru şu ki bağlı tablo ile bunu yapabilirim diye düşünüyorum ama ADO ile de olabilir değil mi 
Bu ikisinin bi