مساعده عاجله ارجووووووووووووووكم

اقتباس

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

اولا:لابد من عمل قاعدة بيانات فيها جدول الصادر فيه بيانات عن الصادر مثل الاسم النوع جهة الوصول الخ اهم حاجه ان يكون هناك حقل متخصص في ادراج ميعاد الافاده فعند طلب هذا الصادر من قاعدة البيانات يكون حقل الميعاد مربوط بالتكيست وممكن ايضا عرض له رساله بالمده المتبقيه بالايام تقول لـه باقي مثلا ثلاثة ايام واذا كنت تريد الكود الخاص بذلك فاليك مثال مبسط.

لنفترض ان X هي التاريخ المستحق فيه ان تصل اليه صادر او افاده

في جدول اذا كان احد الصادرات في حقل التاريخ فارغ اذاً لا يتم ارسال افاده يبقى هنقور ان الكود هكذا

IF X ="" then
MsgBox""
End If

لوكان X = 21-12-2005 وتاريخ اليوم هو 20-12-2005 اذا نريد ان يعرض رساله توضح باقي مده قد ايه ليتم ارسال الافاده وذلك بمعرفة الفرق بين التاريخين وذالك بهذه الطريقه

 Private Sub Command1_Click()
Dim CD, CY, BD, BM, BY As Integer
Dim AD, AM, AY As Integer
Dim X, Y As Date
 text2.Text=Date
X = Text1.Text
X = Now
Y = text2.Text
CD = Day(X)
cm = Month(X)
CY = Year(X)
BD = Day(Y)
BM = Month(Y)
BY = Year(Y)
If BD > CD Then
CD = CD + 30
cm = cm - 1
End If

AD = CD - BD
If BM > cm Then
cm = cm + 12
CY = CY - 1
End If
AM = cm - BM
AY = CY - BY
lblday.Caption = AD
lblmonth.Caption = AM
lblyear.Caption = AY
End If

مع العلم ان text2 هي تاريخ اليوم و text1 هي تاريخ ارسال الافاده وهذا بالنسبه للسؤال الاول.

اما بانسبه للسؤال الثاني

اقتباس

2/ في القوائم لما اصلح قائمة فتح مثلا ينفتح مربع حوار احدد الملف اللي ابي بس ماينفتح شي حتى بنافذة تحرير وطباعه

اذا كان ملف تكيست اي امتداد Txt فاليك كود الفتح

Savastext.Filter = "Text File (*.Txt)|*.txt"
Savastext.Action = 1
If Savastext.FileName = "" Then
Exit Sub
Else
Open Savastext.FileName For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
MsgBox "تم فتح ملف تكيست من مسار" & Savastext.FileName, 0 + 64 + 589824, "معلومه"
End If

وتستطيع التحرير والطباعه عليه كما تشاء

اقتباس

3/ كيف اربط قالب وورد بالفيجوال

اليك هذا الرابط إن شاء الله تجد فيه المطلوب /index.ph...ndpost&p=307925

اقتباس

5/ افكار جديده ممكن اضيفها لتحسن من البرنامج  ممكن

استخام الاكتف اسكن في تجميل برنامجك ولكن افكار موضوعيه لااستطيع افادتك باكثر من ذلك لعدم فهمي الموضوع جيدا

اخي-اختي/مهويه. بخصوص