[segma]

السلام عليكم 
انا اعمل على هدا البرنامج وشكرا للاخ [b]mohammedvego[/b]
http://vb4arb.com/vb/showthread.php?tid=25606
بخصوص
اريد ان ادخل السعر بارقام تحتوي على الفاصلة 
مثال 
13.5 درهم
وللاسف البرنامج لايقبل ارقام تحتوي على فاصلة

[حريف برمجة]

(09-03-19, 06:55 PM)segma كتب : السلام عليكم 
انا اعمل على هدا البرنامج وشكرا للاخ [b]mohammedvego[/b]
http://vb4arb.com/vb/showthread.php?tid=25606
بخصوص
اريد ان ادخل السعر بارقام تحتوي على الفاصلة 
مثال 
13.5 درهم
وللاسف البرنامج لايقبل ارقام تحتوي على فاصلة

وعليكم السلام ورحمة الله وبركاته ،،

اخي هل تقصد الحقل في جدول قاعدة البيانات لا يقبل ارقام تحتوي فاصلة ؟

انظر للصورة :

   

[segma]

بارك الله فيك اخي على ردك 

بخصوص كما تعرف عند ادخال ارقام تحتوي على  فاصلة في خانة السعر حيت يعطي خطأ 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TxTMaterialBarCode.Text = "" Then
           MsgBox("إدخل رقم البار كود")
           Exit Sub
       End If

       If TxTMaterialName.Text = "" Then
           MsgBox("إدخل اسم المادة")
           Exit Sub
       End If

       If TxTQuantityAvailable.Text = "" Then
           MsgBox("إدخل الكمية المتوفرة لديك من المادة")
           Exit Sub
       End If

       If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
           MsgBox("إدخل سعر البيع او سعر الجملة")
           Exit Sub
       End If

       Try

           If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml, MORD, DownPrice) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, @DataMa, @Rabh,  @Ml, @MORD, @DownPrice)"


           cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
           cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
           cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
           cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
           cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
           cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
           cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
           cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
           cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
           cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)
           cmd.Parameters.AddWithValue("@MORD", Mwrd.Text.Trim)
           cmd.Parameters.AddWithValue("@DownPrice", TextBox1.Text.Trim)

           


           cmd.ExecuteScalar()
           Conn.Close()

           TxTMaterialBarCode.Text = ""
           TxTMaterialName.Text = ""
           TxTQuantityAvailable.Text = ""
           TxTWholesalePrice.Text = ""
           TxTSellingPrice.Text = ""
           CSNF.Text = ""
           Note.Text = ""
           CWH.Text = ""
           Mwrd.Text = ""
           TextBox1.Text = ""
           TxTMaterialBarCode.Focus()

           MsgBox("تم إضافة المادة بنجاح")

           Materials.LoadMaterials()





       Catch ex As Exception
           MsgBox(ex.Message)
           MsgBox("خطأ في الإدخال، قد تكون المادة مكررة او ان القاعدة محمية", ex.Message)
           Exit Sub
       End Try
   End Sub

[حريف برمجة]

هل المشكلة مازالت قائمة أو انحلت ؟

[segma]

المشكلة مازال اخي الكريم

[حريف برمجة]

ماهو نوع الحقل في جدول قاعدة البيانات عندك ؟

[segma]

الحقل من نوع Currency

[حريف برمجة]

(10-03-19, 03:21 AM)segma كتب : الحقل من نوع Currency

جرب اختار كما في الصورة :

   

[segma]

مازال نفس المشكلة اخي الكريم 
هل ممكن تعديل الكود ليقبل الاعداد التي تحتوي على فاصلة

[حريف برمجة]

جرب تحفظ بدون فاصله

وعند الإستعلام وجلب القيمة اعمل لها فورمات وادخل لها الفاصلة في التكست بوكس