eldmaty2010

هل من مجيب 

السلام عليكم  اعمل برنامج لارسال رسائل قصيرة للعملاء من خلال بوابة ارسال  واعطوني بيانات API  استخدمت هذا الكود   لكن به خطا On Error GoTo Handler Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "https://smsmisr.com/api/webapi/?" objHTTP.Open "POST", URL, False objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" objHTTP.send ("username=" & txtUser.Text & "&password=" & txtPass.Text & "&sender=" & Text1.Text & "&mobile=" & txtMobile.Text & "&message=" & txtMessage.Text & ",&DelayUntil=30/10/2018") MsgBox objHTTP.ResponseText Set objHTTP = Nothing Exit Sub 'Format(DTPicker1.Value, "mm/dd/yyyy") Handler: MsgBox Err.Description    

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

انا قابلتني نفس المشكلة و كان الحل  عملت جدول اسجل بة كل الحركات التي تتم علي الصنف (بيع - شراء - مرتجع بيع - مرتجع شراء ) مع باقي بيانات الصنف مثل باركودة و اسمة و سعر بيعة و شرائه و عملت فيور جمعت الشراء و مرتجع البيع وطرحت منة اللبيع مرتجع الشراء  و اصبح عندي صافي الرصيد و استطيع ضربة في سعر الشراء و الحصول علي قيمة المخزون  و يفضل عمل متوسط سعر شراء من فواتير الشراء لتقييم المخزون بشكل مقبول وحساب الارباح بشكل جيد

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

صور للمشكلة  

السلام عليكم  اريد المساعدة في كود فيجوال يمرر اليوزر و الباس الخاص بالسيكوال سيرفر 2000 للكريستال ريبوت لانة يطلبة مني عند العمل و بالاخص عندما يكون علي الشبكة    للعم انا استخدم DSN للاتصال بين الكريستال و قاعدة البانات     

1- اشتراك انترنت  و حجز استاتيك اي بي  في السيرفر  في الادارة  2- سيرفر vpn  يكون بة 2 كارت لان  3-  اوصل احد الكروت بالشبكة المحلية العادية و الاخر بمصدر الانترنت الذي بة اي بي ثابت  و اعطية هذا الكارت الايبهات الاستاتك  4- قم بعمل  كونفجراشن  للسيرفر  من اعدادت السيرفر  5- اعمل اتصال في   الاجهزة  بهذا الايبي الثابت 

txtFormula = "{acccust.datet} in Date (" & fristdate & ") to Date (" & lastdate & " ) And {acccust.name} = '" & names & "'" frmrepall.Show

txtFormula = "{acccust.datet} in Date (" & fristdate & ") to Date (" & lastdate & " ) And {acccust.name} = '" & names & "'" frmrepall.Show