Function GrafikKaynak(TabloAdi As String, AyAdi As String, GrafAdi As String)
connection_open

sql1 = "select * from " & TabloAdi & " where format(tarih,'m.yyyy')='" & AyAdi & "';"
rsGrf.Open sql1, conn, adOpenKeyset, adLockPessimistic
Worksheets(TabloAdi).Cells.Clear
Worksheets(TabloAdi).Range("A1").CopyFromRecordset rsGrf
'debug.print "rsGrf.Fields.Count", rsGrf.Fields.Count

Dim AlanSay As Integer
For AlanSay = 1 To rsGrf.Fields.Count
'debug.print "rsGrf(AlanSay - 1).Name : ", Alan

merhabalar, ya ben bu işi çözecem ya da bu iş beni deli edecek, şurada hata iletisi veriyor, yazım yanlışı mı acaba, daha önceki başka butonumda çalışan ama şimdiki farklı butonuma uyarladığım bu sözdizimi sürekli uyarı veriyor (sub or function not defined ) diye..., uğraşıyorum, mantığımı daha önceki bilgilerimi kullanmaya çalışıyorum ama nafile 

DoCmd.RunSQL "INSERT INTO KISILER ( [kisi_kodu],[adi_soyadi],[departman])"

VALUES "('" & Me.[kisi_kodu] & "','" & Me.[adi_soyadi] & "','" & Me.[

Merhaba arkadaşlar. Accessten worde atarken hata veriyor. kodun neresinde sıkıntı var bakabilir misiniz. Dosyada ektedir.

[code]Private Sub Komut67_Click()
'Eksik alan ve kaydedilmemiş kayıt kontrolü.
   If IsNull(firma_adi) Then
     MsgBox "Firma Adı Boş Olamaz!"
     Me.firma_adi.SetFocus
     Exit Sub
   End If
     
   If MsgBox("HATIRLATMA.. " & Chr(13) & _
     "Bilgileri Doğru Yazdığına Eminmisin", vbInformation + vbOKCancel) = vbOK Then
  Else
       Exit Sub
     End If

Arkadaşlar alt form üzerinden sorugusunu oluşturuğum alandaki değerleri worde aktarmak istiyorum fakat hata alıyorum
başka bir bölüm için yapmıştıım sıkıntı olmadan çalışıuyor aynı kodları taşıdım fakat bir türlü çözemedim yardımcı olursanız sevinirim

-------------hata veren kod--------------------
Set qdf = CurrentDb.QueryDefs("Tevdi_Listesi_Sorgu")

qdf![Forms]![Kayıt_Giriş]![Talepler_Form].[Form]![Adl_krm_Kutu] = [Forms]![Kayıt_Giriş]![Talepler_Form].[Form]![Adl_krm_Kutu]

Set rs =

İyi Çalışmalar Vba programında girişte kullanıcı adı ve şifre yanlış girildiğinde MsgBox ile uyarı almak istiyorum kodların yazıldığı yere atıyor buda problem oluşturuyor. Yardımcı Olabilirmisiniz.



[vb]Private Sub Image1_click()

user = Me.TextBox1
pass = Me.TextBox2

If user = "admin" Then
Application.Visible = True
Me.Hide
Exit Sub
End If

Call connection_open

sql1 = "select [ŞİFRE],[AD SOYAD],[SİCİL NO] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenK

Herkese Merhaba;
Yaptığım bir programda formda iki farklı textbox kutusu (tarih1 ve tarih2 gibi) var. Tarih aralığı sorgusu yazmaya çalışıyorum. Ancak Between tek başına yetersiz kalıyor bu nedenle Like ve IIF kullanarak sorguyu zenginleştirmeye çalıştım. Amacım tarih2 txtboxına bir şey yazılmadığında tarih1 değerini yalnızca raporda filtrelemek. Formumdaki alt formdaki rapor textbox güncellendiğinde yenileniyor ve rapor bilgilerini döküyor. Aşağıda yazmış olduğum sorgu ifadesinin neresinde hat

Merhaba Excel dosyamı MsSQL veritabanına aktarırken

*** Microsoft ACE.OLEDB.16.0 sağlayıcısı yerel makine kayıtlı değil (System.Data) ***
şeklinde hata alıyorum.

[Resim: https://resim.accesstr.net/do.php?img=10697]


Internett hatayı sorguladığımda

accessdatabaseengine_X64.exe

[Resim: https://resim.accesstr.net/do.php?img=10698]

adlı programın yüklenmesi gerektiği söyleniyordu. Programı yükledim Access VT kullanarak C# da hazirladığım sözlük programı çalıştı. Fakat Excel d

xlsx dosyasından mdb yapmak istediğimde


(1) dış veritabanı sürücüsünden beklenmeyen hata


Bu hatayı neden verir arkadaşlar?

Merhabalar...

Öncelikle ilgili arkadaşlara teşekkür ediyorum. Hızır gibi yetişiyorsunuz.
Yapmaya çalıştığım ekte gönderdiğim bir programda, açılan formda senet tarihleri var. 2. Senet tarihi 1. senet tarihine eşit veya küçük olamaz.  3. Senet tarihi de 2'inciye eşit ve küçük bir tarih olamaz. Böyle bir giriş yapılırsa hata iletisi verdirip girişe izin vermeyebilir miyiz?

Çok teşekkür ederim.

Öncelikle merhabalar,

Ben daha önce de buna benzer bir proje yaptım, ancak aynı olayı bu stok programına uyguladığımda aşağıdaki hatayı alıyorum, diğerinde bu hata ile karşılaşmazken bunda karşılaşıyorum.



[vb]Private Sub txtMiktar_AfterUpdate()


    DoCmd.RunCommand acCmdSaveRecord
   
    If DCount("*", "Idari_Cay_StokDurum", "malzemeAdi=" & cboMalzemeAdi & " And cins=" & cboCins) = 0 Then
      CurrentDb.Execute "INSERT INTO Idari_Cay_StokDurum (malzemeAdi, cins, stokMiktari )