Andrew

Ashkorak 2a7'y gawad

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 d…

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

2aked 2anta betesta7'dem Access fe el 7ala Deh 2e3mill el Filed No3o Memo mEsh text

Shof el Field elfel DataBase Varchar Of Kam 50 2aked el Length Beta3 el Field So3'aiar zawedo 7'aleh 1000 For Example

2e3mil search 3ala El OCR we isa hatla2eha feha

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 Empl…

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 '=============== …

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(Te…

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(Ke…

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

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

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 mC…

Dim mSumValue As Double Dim i As Integer '====================== For i = 0 To List1.ListCount - 1 mSumValue = mSumValue + Val(List1.List(i)) Next MsgBox mSumValue

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 Record…

Use P And O With Font wingdings2

2a3mil Loop 3ala deh ba2a DateAdd ("m",i,Date)

First You Must Add Reference For MicroSoft Excel Object Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet xlApp = New Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Open(mFileName) xlWorkSheet = xlWorkBook.…

At CmdCal_Click Change Declaration From Dim sum As Integer To Dim sum As Double

I Want To Create Crystal Report Viewer To Read Reports Based on Crystal Query File And Change It's Connection ODBC in RunTime