• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Andrew

اعضاء
  • عدد المشاركات

    168
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن Andrew

  • الرتبة
    عضو
  • تاريخ الميلاد 02/06/1984

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر الجديدة
  1. fe control with name shreiden or active thread plus 3.3 ta2reban feha label control with this property bas mehs fakeer 2ams el property garab anta ba2a we bet2olo feha yemshy From Left to Right 2aow el 3akss bas el sa3b de el mawdo3 dah el Crack beta3 el OCX deh we rabena yewafa2ak
  2. Dim i As Integer For i = ListView1.ListItems.Count To 1 Step -1 If ListView1.ListItems.Item(i).Text = "1" Then ListView1.ListItems.Remove (i) End If Next
  3. 2aked 2anta betesta7'dem Access fe el 7ala Deh 2e3mill el Filed No3o Memo mEsh text
  4. Shof el Field elfel DataBase Varchar Of Kam 50 2aked el Length Beta3 el Field So3'aiar zawedo 7'aleh 1000 For Example
  5. select * From employees Where employee_id in ( select Employee_id From Employees Emp Where ( (Emp.From_Date >= Employees.From_Date and Emp.From_Date <= Employees.To_Date ) or (Emp.To_Date >= Employees.From_Date and Emp.To_Date <= Employees.To_Date ) ) and Employee_id <> 1 )
  6. KOl Sana we anta taieb el 2awel bos ya sedy 2afta7 Project we 7ot feha 2 Text we Command we 7'aly el 2 Text MultiLine 7ot fe Text 1 el String El anta katboo fo2 we fel Command 2akteb Dol Dim mMails Dim mLines Dim i As Integer Dim j As Integer '=============== mLines = Split(Text1.Text, vbNewLine) For i = 0 To UBound(mLines) If InStr(mLines(i), "@") > 0 Then If InStr(mLines(i), " ") Then mMails = Split(mLines(i), " ") For j = 0 To UBound(mMails) If InStr(mMails(j), "@") > 0 Then Text2.Text = Text2.Text & Trim(mMails(j)) & vbNewLine Exit For End If Next Else Text2.Text = Text2.Text & Trim(mLines(i)) & vbNewLine End If End If Next
  7. anta 7ot 3 Text fe el Form we Zorar we 2akteb محمد فهد 12345 سعود 15 Fe text 1 we dah Code el Zorar Dim mNumbers As String Dim mString As String Dim i As Integer For i = 1 To Len(Text1.Text) If IsNumeric(Mid(Text1.Text, i, 1)) Then mNumbers = mNumbers & Mid(Text1.Text, i, 1) Else mString = mString & Mid(Text1.Text, i, 1) End If Next Text2.Text = mNumbers Text3.Text = mString
  8. Public Function Validnumeric(ByVal mKeyascii As Long) As Long If Not (IsNumeric(Chr(mKeyascii)) Or mKeyascii = 8) Then Validnumeric = 0 Else Validnumeric = mKeyascii End If End Function Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Validnumeric(KeyAscii) End Sub
  9. bos ya gowad ana daiman ba3mi el Connection AdoDB fa ba3mil Declare le Variable Conn as New Adobd.Connection we bashta3'al 3aleh fe el backup Command Conn.Close FileCopy App.Path & "\Database\MD.mdb", App.Path & "\Database\Backup\MD.mdb" Conn.Open
  10. Walahy Yabny ana knt ba3mil Fe Zorar El Backup 1 - Close El Connection 2 - Copy File El DataBase Beta3 El Access Using CopyFile Source , Distenations 3 - Open el connection
  11. Ah tab3an Ia el code el baset dah yefedeaak Dim mControl as object For Each mControl in me.Controls If Typeof mControl is Textbox then if mControl.text = "" then msgbox "You Must Fill all Data " : mcontrol.setfocus elseif Typeof mControl is ComboBox Then if mControl.listindex = -1 then msgbox "You Must Fill all Data " : mcontrol.setfocus end if Next
  12. Dim mSumValue As Double Dim i As Integer '====================== For i = 0 To List1.ListCount - 1 mSumValue = mSumValue + Val(List1.List(i)) Next MsgBox mSumValue
  13. Bos ya Pop we rakez ma3aia Crystal Report 9 Or 10 Right Click 3ala Section Details And Choose Section Excpert Hatla2y na7iet el Yemen Tab 2asmaha Common we Feh Saf 2asmo Page Break After We ganbeha Zorar "X-2" Oks Dos 4ala el Zorar Dah we 2akteb feha if RecordNumber Mod 15 = 0 then True else false