Selam
Bir çok uygulamada kullandığım kodlar hata verdi
referanslar da tamam sorun nerde yardımcı olusanız sevinirim

User-Defined Typ not defined

Dim dlg As FileDialog
Dim si As Variant
Dim uzan As Integer
Dim FileName, yeniyol As String
Dim vrtSelectedItem As Variant
If IsNull(Adres_ID) Then: MsgBox "Kayıtlı Veri Yok !!! " & "Kayıtı Veri Olmadan Resim Ekleyemezsiniz": Exit Sub
If Len(Dir(Application.CurrentProject.Path & "\CariResim", vbDirectory)) = 0 Then

Form üzerinde alanlarım var alanlarımın biri sayı değeri olarak ayarlanmış. Metin girince hata veriyor. Ben hata vermeden uyarı mesajı vermesini istiyorum. "Bu alan sadece sayı girişi içindir" gibi. Teşekkürler

Merhaba Sayın Grup Üyeleri;

Ekteki dosyamda "SayimAnaTabloFormu" formuna sayım girişi yapılıyor. Benim istediğim şu; fiş bazında alttaki alt forma aynı stok kartının iki defa girilememesini nasıl sağlarım acaba. yardımcı olursanız çok sevinirim.

Selamlar;

Merhaba sayın grup üyeleri;

Veritabanımda zorunlu veri giriş alanları mevcut. Bu alanlara kullanıcıların mutlaka bir sayı girmesini zorunlu kıldım fakat şöyle bir sorunla karşı karşıya kaldım; kullanıcı alana veri girişi yapıyor fakat "0" girdiğinde benim sorgularda yaptığım hesaplamalar sonsuz değerini alıyor.

Sorum şu: "Göz_sayısı" adlı alanıma "0" ve negatif sayı girişini engelleyecek nasıl bir kod yazabilirim.

Yardımcı olursanız çok sevinirim.

Selamlar;

Merhaba;

"ReceteTanimlari" formunda listede seçtiğim yemeğin sağ taraftaki reçetesine aynı stok kartından iki ve daha fazla tanımlanamamasını nasıl sağlarım acaba. Taruz bey diğer oluşturduğum formlar için bir kod verdi ama listede seçilen için uyguladım başaramadım. yardımcı olursanız sevinirim.

Yani "mutfak" projesinin içine "pirinç" hammaddesini iki veya daha fazla ekleyemeyeyim. Uyarı olarak "bu reçetede bu stok kartını kullanmıştınız" şeklinde bir mesaj yazabilir.


Selamlar;

Merhabalar

Sorgumda

SELECT Table1.Neden, Table1.Sebeke, Table1.Imar_Ici_A, Table1.Imar_Ici_B
FROM Table1
WHERE (((Table1.Neden) In ("FİDER","SİGORTA","TEL")) And ((Table1.Sebeke) Not Like "*H*") And ((Table1.Imar_Ici_A) Not Like >2) And ((Table1.Imar_Ici_B) Not Like >2));

Buradaki amaç sorguya girdiğim veri doğru bu veri dışındakiler yanlış onları bana göster 

Kırmızıyla yazılı kısım 2 sayısı üstünü doğru kabul ediyorum 2 sayısı altı yanlış onları bana göster olarak ya