(05-07-21, 08:30 PM)خالد كامل1 كتب : حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 1 على عدد الزيارات فاستعملت هذا الكود ولكن يعطينى البيانات غير متطابقه جعلت حقل عدد الزيارات مره نص ومره رقم ولكن المشكله قائمهحسب الكود الي انت كاتبه يجب ان يكون في قاعدة البياناات SIK_KASHF_NUMBER رقم و SIK_PHONE نص
كود :
Sub add_kashf()
Dim cmdmaden As New OleDbCommand
Dim kashf_number_a As String = kashf_number.Text
With cmdmaden
.Connection = con
.CommandType = CommandType.Text
.CommandText = " Update sik_a set SIK_KASHF_NUMBER= SIK_KASHF_NUMBER +" & Val(kashf_number.Text) & " where sik_phone =" & SIK_PHONE.Text & ""
End With
If con.State = 1 Then con.Close()
con.Open()
cmdmaden.ExecuteNonQuery()
con.Close()
End S
ولكن من وجهة نظري اجعل تيكس بوكس المسؤول عن عدد الزياراتkashf_number يظهر لنا عدد الزيارات ,وفي كود التحديث اجعله يحدث SIK_KASHF_NUMBER
SIK_KASHF_NUMBER=AA
حيث AA متغير رقمي قيمته تساوي kashf_number+1
طبعا هذا في حال ضغط المستخدم على زر التأكيد بأن المريض وصل له الدور
PHP كود :
CON_MY.CON_TXT("update ITEME set date= " & date_ & " where GUID='" & Guid & "'")
Guid متغير تم تعريفه من قبل
date_ متغير تم تعريفه من قبل
---------------------------------------------
وبدك تعمل الغاء للزيارة او تراجع يعني مثلا المريض عندما ربما يتراجع في اخر لحظة ولا يدخل لعند الطبيب بجوز مثلا يفكر انو الاموال الي رح يدفعها للطبيب بيشتري فيها جاجة مشوية مع قنينة كولا وبتعشا هو المدام ...
ثم اني عندي ملاحظة بخصوص رقم الموبايل رقم الموبايل قابل للتغيير انا بشوف كثير ناس خصوصا الجيل الجديد من الشباب كل يوم بغيرو مية رقم
امامك الكثير من العمل
سورس كود برنامج محاسبة ومبيعات احترافي - سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515