+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... (/konu-excel-den-access-e-veri-girisini-kisitlamak-yardim.html)
Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - by_ufuk - 24/05/2011
Merhaba arkadaşlar,
excel arayüzü kullanarak Access veritabanına kayıt yapabilen bir çalışma var elimde. Ancak bu çalışmanın bir süre otomatik olarak lisans istemesini istiyorum yada Access veri tabanına belirli bir sayıda veri girişini izin vermek istiyorum.Mesela 1000. satıra gelindiğinde otomatik olarak daha fazla kayıt yapılmasına izin verilmesin.
Bunu nasıl sağlayabilirim.
Cvp: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - mehmetdemiral - 24/05/2011
Excel arayüzü kullandığınıza göre bu sorunun Excel soruları bölümüne açılması gerekmez mi? Access veritabanı olarak kullanıldığına göre bu işlemin veri tabanından değil, program arayüzünde yapılması gerekiyor. Bunun için de excelde işlem yapılmalıdır. Sorunuzu Excel soruları bölümüne taşıyorum.
Cvp: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - Hayri16 - 24/05/2011
Sayın by_ufuk;
Formumuzda belirttiğiniz konularda çalışmalar var. Ben hemen 2 tanesinin linkini veriyorum. Arama yaparsanız daha falasını bulabilirsiniz. Saygılar.
1.Link
2.Link
Cvp: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - by_ufuk - 24/05/2011
Teşekkür Ederim Sağolun.
Cvp: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - by_ufuk - 24/05/2011
Vermiş olduğunuz linkleri inceledim ancak malesef bir sonuç elde edemedim,sayın mehmetdemiral'ın Access ile yaptığı lisanslama programı var ancak Excel ile bunu nasıl birleştireceğimi bulamadım.
Cvp: Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM... - DUAYEN - 24/05/2011
Lisans isteme veya şifre sorma işini Excel programınızda yapacaksınız, eğer excelden .mdb dosyasına bilgi aktarıyorsanız.
ThisWorkBook modülünde aşağıdaki kodları yapıştırınız.Eğer olmazsa örnek ekleyiniz.
Kod:
If Date >= CDate("30.01.2011") Then
sifre = InputBox("Devam edebilmek için şifre girmelisiniz!,Programın Kullanım Süresi Dolmuştur")
If sifre = "12345" Then
Sheets("Sayfa1").Select
Else
ActiveWorkbook.Close
End If
If sifre = "" Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
End If
End Sub