[Resim: http://www.imgim.com/9473incij5069559.png]

[code]Private Sub AdiNe_AfterUpdate()
Dim perBirim As Variant
Dim perSicilim As Variant


'alan adı
'tablo
'ölçüt

perBirim = Dlookup ("[Birimi]", "[Personel]", "[Adi]='" & AdiNE + "'")

Birimi = perBirim

perSicilim = Dlookup ("[SicilNo]", "[Personel]", "[Adi]='" & AdiNE + "'")

perSicil = perSicilim


End Sub


Private Sub btnKaydet_Click()

Dim Zimekle As String

Zimekle = "INSERT INTO Zimmetler (barkodNo,perSicil,urunTur,alma) VALUE

Merhabalar, formdan bir firmaya teklif kaydı kaydettikten sonra yeni bir kayıt açıp aynı firmaya farklı bir teklif hazırlamak istediğimde resimdeki hatayı alıyorum. Aynı firmaya ikinci bir teklif kaydı yaptırmıyor. Bu sorunu nasıl halldebilirim. Teşekkürler.

[Resim: https://accesstr.net/resim/do.php?imgf=1...902531.jpg]

Merhaba,

Üstadlarım bir konuda sizlerden destek rica ediyorum. Forumdan aldığım bazı kodlar ile kendi veritabanımda yapılan değişikliklerde log tutmak istiyorum.

1. Dosyaları zipten çıkarıp linklemenizi rica ederim.
2. LOGON formunu çalıştırınız.
kullanıcı: Ali
şifre: bon

TANIMLAMALAR sekmesini tıklayınız.
Malzeme butonuna basınız.
kayıt ekleyiniz.
kayıt siliniz
kayıt güncelleyiniz.

Tbl_Guncelleme_Kaydi tablosunu açınız.
Kullanıcı alanında veri hep sıfır gelmektedir. Sizden d

Arkadaşlar Ado ile kaydet butonun kodlarını bir arkadaşın çalışmasından alarak ve öğrenerek uyarlamaya çalışıyorum. lakin hata alıyorum. İlgilenebilir misiniz?
[sql]
If IsNull(Me.txtid) Or Me.txtid = "" Then
MsgBox "Lütfen Öğrenci Kayıt Sırasını Yazınız!", , "Kayıt İşlemi"
Me.txtid.SetFocus
Exit Sub
End If

Dim txtidKontrol As Long
txtidKontrol = Nz(DCount("ogrid", "tbl_ogrenciler", "ogrid='" & Me.txtid & "'"))
If txtidKontrol <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugu

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


[vb]Private Sub Komut8_Click()

Dim rs As New ADODB.Recordset
'If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then
rs.Open "tbl_ihale", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew

rs!giden_evrak_sayisi = Me.txtgidenevrak
rs!gelen_evrak_sayisi = Me.txtgelenevrak
rs!teklif_tarihi = Me.txttektar
rs!ihale_onay_tarihi = Me.txtihaleonay
rs!fatura_tarihi = Me.txtfattar
rs!muayene_kablu_tarihi = M

Merhaba değerli arkadaşlar,

[color=#333333][size=small][font=Tahoma, Verdana, Arial, sans-serif][color=#333333][size=small][size=small][font=Tahoma, Verdana, Arial, sans-serif]sitemde bir konuyu sildiğim zaman aşağıda yer alan hatayı alıyorum. Google seo eklentisini kurdum ama hiçbir sorun yok diy

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

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 =

Ö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 )

Merhaba;

Sorunum şu; textboxlardan dört işlem yapıyorum ama bazı durumlarda bu alanların boş kalması gerekiyor. Boş olduğunda da hata alıyorum. Boş olsa da hesaplama yapmadan devam etmesini istiyorum. Kaydet buton kodları aşağıdaki gibidir.
Yardımlarınızı rica ederim.



Private Sub btnKaydet_Click()

If txtStokAdi = "" Or cbTedarikci = "" Or cbBirim = "" Or txtGirisAdet = "" Then

MsgBox "Yeni stok kartı için istenilen tüm bilgilerin yazılması gerekmektedir."
Exit Sub