If Me.yeniBirimFiyat = 0 Then
ElseIf MsgBox("yeniBirimFiyati girecekseniz 'Hayır'ı tıklatın", vbYesNo) = vbNo Then
Exit Sub
Else
End If
If Nz(DCount("malzemeKodu", "surec", "malzemeKodu='" & Me.malzemeKodu & "'")) > 0 Then
MsgBox "bu malzeme kodu daha önce girilmiş"
Exit Sub
Else
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into surec (malzemeKodu,depoId,malzemeAdi,onGorulenAdetToplam,onGorulenOdenekTahsisi,merkeziAlimdanOngorulen,birimFiyat,odenekPlanlama,merkeziAlimPlanlama,yeniBirimFiyat,yeniToplamFiyat) values ('" & Me.malzemeKodu & "'," & Me.acilanDepo.Column(0) & ",'" & Me.malzemeAdi & "'," & Me.onGorulenAdetToplam & "," & Me.onGorulenOdenekTahsisi & "," & Me.merkeziAlimdanOngorulen & "," & Replace(Me.birimFiyat, ",", ".") & "," & Replace(Me.odenekPlanlama, ",", ".") & "," & Replace(Me.merkeziAlimPlanlama, ",", ".") & "," & Replace(Me.yeniBirimFiyat, ",", ".") & "," & Replace(Me.yeniToplamFiyat, ",", ".") & ")"
MsgBox "veriler kaydedildi"
DoCmd.SetWarnings True
'hata: MsgBox " bi sıkıntı var galiba!!.."
'Exit Sub
End Sub
şeklinde düzenlemelisiniz. Kodlar biraz daha derlenip toparlanabilir ancak çalışmanızı tam bilmiyorum ve detaylarını inceleme fırsatım olmadı ne yazık ki.
