khaled_helal

الف الف شكر مثال غاية فى الاهمية

شكرا

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

اخى العالم قبل البدء فى شرح المطلوب كنت اتمنى ان يكون سؤالك اكثر تحديدا ولكن سوف اسرد لك ملخص سريع على طلبك أولا: 1- ( مــدين ) 2- ( دائـــن ) الحسابات اخى العزيز مقسمة الى حسابات مدينة وحسابات دائنة ولذلك يوجد ماهو مدين وماهو دائن على سبيل المثال : حسابات الا…

جرب اخى هذا المثال المرفق منقول من psc VB_in_SQL_Server.rar VB_in_SQL_Server.rar

اخى الكريم محتاج معلومات اكثر عن تصميم قاعدة البيانات لديك

- المشكلة هي عند اختيار السلعة كيف يمكن اضافة تلك السلعة الى FlexGrid الموجودة في النافذة الأولى وانقاص كمية السلعة من المخزن اخى toyoki 1 - لنقل بيانات من فورم الى فورم اخر به flexgrid Private Sub Command1_Click() frmproduct.Text1.Text = flexgrid.TextMatrix(1…

-waf شكرا اخى TareqVB رابط اخر للبرنامج Adobe_RoboHelp_v6

تعديل فى الكود لوجود خطأ Public Sub AutoNo() Dim rsk As New ADODB.Recordset rsk.Open "select max(code) from bank", db, adOpenStatic, adLockPessimistic If IsNull(rsk(0)) = False Then text1 = Format(rsk(0) + 1) Else text1 = "1" End If rsk.Close Set rsk = Nothing…

جرب اخى هذا الكود Public Sub AutoNum() Dim rs As New ADODB.Recordset rs.Open "select max(field) from Table", con1, adOpenStatic, adLockPessimistic If IsNull(rs(0)) = False Then Text1 = Format(rs(0) + 1) Else Text1 = "1" End If rs.Close Set rs = Nothing End Sub

رابط لمشاريع عديدة ومنها طلبك . . . الرابط

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

الموضوع بسيط بس محتاج افهم ماالمقصود ( المشكلة هي عدم إستطاعة المستخدم على تحديد السجل في الجدول أو الشكبة) لكى اتمكن من مساعدتك

طريقة اخرى فى حالة اضافة الرقم تلقائيا Public Sub Autojv() Dim rs As New ADODB.Recordset rs.Open "select max(EntryNo) from cash", con1, adOpenStatic, adLockPessimistic If IsNull(rs(0)) = False Then Text1 = Format(rs(0) + 1, "00000") Else Text1 = "00001" End If…

جرب الكود واضف باقى الحقول بعد كود MSflexgrid1.TextMatrix(k, 2) = rsmor!Name MSflexgrid1.TextMatrix(k, 3) = rsmor!phone MSflexgrid1.TextMatrix(k, 4) = rsmor!Address اتمنى ان تكون الفكرة وصلت . . .

Private Sub MSFlexGrid1_LeaveCell() Dim rsmor As New Recordset Dim k As Long k = MSflexgrid1.Row If MSflexgrid1.Col = 1 Then If Val(MSflexgrid1.TextMatrix(k, 1)) > 0 Then Set rsmor = New adodb.Recordset rsmor.Open "SELECT * FROM chart WHERE codem=" & Val(MSfle…

جرب هذا الكود لعله ينفعك Private Sub Form_Load() treefill End Sub Private Sub treefill() Dim node1 As node Set node1 = tvTreeView.Nodes.Add(, "k", "CU", "الملفات") Set node1 = tvTreeView.Nodes.Add("CU", tvwChild, "cu1", "دليل الحسابات") Set node1 = tvTreeView.…

اخى على مافهمت من كلامك الموضوع بسيط جدا بدايته أنشاء جدول دليل محاسبى للتعريف بالحسابات الخاصة بك وانشاء جدول قيود يومية مرتبط بجدول الدليل المحاسبى اما بالنسبة لتساوى طرفى debit acc = credit acc فيتم بتجميع ارقام حسابات كل من debit & credit وعند عدم تساوي اى…

شكرا . . بارك الله فيك

Private Sub AltLVBackground(lvList As ListView ByVal BackColorOne As OLE_COLOR, _ ByVal BackColorTwo As OLE_COLOR) Dim lH As Long Dim lSM As Byte Dim picAlt As PictureBox With lvList If .View = lvwReport And .ListItems.Count Then Set picAlt = Me.Controls.Add("…