(06/07/2015, 14:24)Allback yazdı: sayfaya eklediğim başka metin kutularına da aynı işlemin uygulanmasını

Tabloya veri kaydedilecek metin kutularının im özelliğine 1 yaz, başka metin kutusu olarak kastettiğiniz metin kutularının im özelliği boş kalsın veya 0 yaz




kodu aşağıdaki ile değiştir.

Private Sub ekle_Click()



DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False

For Each ctl In Me.Controls

     If ctl.ControlType = acTextBox Then

          If Not (IsNull(ctl.Value) Or ctl.Value = "") Then

          If ctl.Tag = "1" Then

               booFilledBox = True

               DoCmd.RunSQL "INSERT INTO hazirlayan_tablosu ([hazirlayan]) VALUES ('" & ctl.Value & "')"

               End If

          End If

     End If

Next ctl



DoCmd.SetWarnings True

sil

End Sub

Farklı tabloya veri kaydetmek istiyorsanız insert into kodundaki tablo adı kısmını değiştirmeniz ve kodu tablodaki alanlara göre düzenlemeniz gerekli.

Konu başlığından farklı sorunuz var ise yeni konu açarak sorunuz. Örnek uygulamanızı sıkıştırıp/onararak ekleyiniz.