Merhaba Vba penceresinde kod yazarken misal 

Docmd. yazdıgımızda noktadan sonra devamında açılan pencereden seçimlerimizi yapabiliyoruz fakat bende bu açılan pencere yarım saniye açık kalıyor ve akabinde hemen kapanıyor. DoCmd. yazısıda  kırmızıya dönüşüyor. Bu durum neden oluşur. Gidermek için ne yapılabilir. Teşekkürler.
[Resim: https://resim.accesstr.net/do.php?img=9710]

b

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

iyi günler
makroyu Vba koda dönüştüren menüyü bulamadım

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

Yeni kayıta gitmek için Vba kod yazmaya çalışıyorum 
bunun için sihirbazı kullanayım dedim oda makro oluşturdu
üstelik Vba koduna dönüştüremiyorum

[size=large]Herkese hayırlı haftalar,

Otomasyon sisteminden saatlik kümülatif sayaç verilerini çeken Tablo1 isminde bir tablom var. Tablo1’ de yer alan “Sayac” alanına her yeni kayıt eklendiğinde, eklenen son kayıt değerini bir öncekinden çıkartarak Form1’de yer alan son kayıttaki “Üretim” sütununa hesaplatarak yazdırmak istiyorum. Fakat bu işlemi sorgu (SQL) ile değil Vba ile ya

Mümkün müdür

Hayırlı sabahlar arkadaşlar
https://github.com/OfficeDev/VBA-content
adresinde 212 mb lık 4900 parçadan oluşan büyük bir kod arşivi buldum
içerisinde çok güzel örnek kodlar var
incelemenizi tavsiye ederim

VBA kod ile bağlı tabloyu yerel tablo ya çevirmek mümkün müdür

VBA kod ile yerel tabloyu bağlı tablo ya çevirmek mümkün müdür

Vba Kod İle Word Dosyası Oluşturmak için
[vb]Dim objWord As Word.Application
Dim doc As Word.Document
Dim WordHeaderFooter As HeaderFooter

Set objWord = CreateObject("Word.Application")

With objWord
    .Visible = True

    Set doc = .Documents.Add
    doc.SaveAs CurrentProject.Path & "\TestDoc.doc"
End With

With objWord.Selection

.Font.Name = "Trebuchet MS"
.Font.Size = 16

  .TypeText "Here is an example test line, #" & " - Font size is " & .Font.Size
  .TypeParagrap

Vba Kod İle Txt Dosyası Oluşturmak nasıl olur

Dim fso as Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim oFile as Object

Set oFile = FSO.CreateTextFile(strPath)

oFile.WriteLine "test" 

oFile.Close

Set fso = Nothing

Set oFile = Nothing