-
انجام پروژه های برنامه نویسی
سهشنبه 27 آبان 1393 07:24
کلیه پروژه های برنامه نویسی به زبان VB.net و C#.net در هر سطحی انجام می پذیرد لطفا جهت انجام و مشاوره با شماره 09132068452 تماس حاصل فرمایید.
-
سلامی دوباره به دوستان
یکشنبه 12 خرداد 1387 13:47
با عرض معذرت از تاخیر زیادم نسبت به به روز کردن وبلاگ از این پس قصد دارم به صورت مکرر این وبلاگ رو به روز کنم
-
BrowseFolder Dialog
شنبه 7 مهر 1386 19:18
'برای استفاده از کد ها فقط کافی است که آن را در یک ماژول کپی و پیست کنید 'This code was originally written by Ali Najari. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' 'Code courtesy of 'Ali...
-
کد های vb.net
یکشنبه 4 شهریور 1386 14:17
هر کدی بخواید براتون میزارم از vb.net
-
پاسخ به سوال mojtaba2iran@gmail.com
چهارشنبه 3 مرداد 1386 02:40
اگه دقت کنی بالای کد نوشته بودم چه کار کنید ولی دوباره براتون میگم برای ربط دادن باید این مرحل را اجرا کنید text0 همان فیلد عدد میباشد Private Sub Text0_AfterUpdate() If text0 > 0 then text2 = Adad (text0) End if End Sub
-
یاداشت
جمعه 8 تیر 1386 07:14
سلام اگه کسی برنامه ای میخواد بگه براش بنویسم و بزارم najari_6409@yaoo.com
-
سلام
دوشنبه 28 خرداد 1386 21:44
سلام به همگی با عرض معذرت من امتحان هام شروع شده ولی قول میدم که از تاریخ ۱۴ تیر هر روز این وبلاگ رو آپدیت کنم
-
پاسخ به دوست گرامی
شنبه 1 اردیبهشت 1386 22:33
سلام من برنامه کامل دارم ولی شما بگید چی می خواید تا من برای شما آماده کنم ممنون
-
غیر فعال کردن کلید های alt-tab-pgdown-pageup در فرم
جمعه 31 فروردین 1386 16:06
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 33, 34, 9, 18 KeyCode = 0 Case Else 'Debug.Print KeyCode, Shift End Select End Sub pgup---33 pgdown---34 alt---18 tab---9
-
تبدیل عدد به حروف
یکشنبه 13 اسفند 1385 22:47
' Private Sub Text0_AfterUpdate() ' If text0 > 0 then ' text2 = Adad (text0) ' End if ' End Sub Function Adad(ByVal Number As Double) As String If Number = 0 Then Adad = "صفر" End If Dim Flag As Boolean Dim S As String Dim I, L As Byte Dim K(1 To 5) As Double S = Trim(Str(Number )) L = Len(S ) If L > 15 Then...
-
[ بدون عنوان ]
پنجشنبه 10 اسفند 1385 22:46
سلام من یکم Weblog را تغییر دادم لطفا نظر یادتون نره
-
فعال و غیر فهال کردن Shift به هنگام باز کردن اکسس
جمعه 4 اسفند 1385 02:43
برای فعال و غیر فعال کردن کلید Shift هنگام باز شدن اکسس سه دکمه روی یک فرم مطابق شکل بالا ایجاد کنید و کدهای زیر را در آن بنویسد. (نمایش کدهای نوشته شده مناسب نیست ولی اگر آنرا در حافظه کپی کنید و در ماجول فرمتان کپی کند بدرستی تمایش داده می شود .) 'برای اولین دفعه : Private Sub Create_Click () On Error GoTo Er Dim db...
-
اتصال چند جدول به هم
جمعه 4 اسفند 1385 02:37
در اکسس در برخی قسمت ها وجود پرانتز الزامی است با اینکه در انواع دیگر بانک های اطلاعاتی نیازی به آن پرانتز ها نیست. SELECT c.CompanyID, c.CompanyName, e.LastName, e.FirstName, e.Salary, d.FullName, d.RelationShip FROM (Company c INNER JOIN Employee e ON c.CompanyID = e.CompanyID) INNER JOIN Dependant d ON e.SSN =...
-
اطلاعیه
چهارشنبه 20 دی 1385 15:38
بچه ها من برنامه هایی را که میزارم توی سایت شارد میزارم و می تونید از اونجا دانلود کنید و برای اینکه برنامه را باز منید باید access2003 داشته باشید
-
اموزش قسمت اول
چهارشنبه 20 دی 1385 15:36
این مقاله نحوه ایجاد قابلیتی را می آموزد که ; ضوابط فیلتر کردن را از طریق یک فرم جدولی اکسس 2000 وارد کنید و دکمه ای بنام Query داشته باشید تا فیلتر اعمال شود. این فیلتر 4 تکست باکس دارد بنام های txtFirstName, txtMiddleInitial, txtLastName, و txtSSN .جدول دیتابیس member نام دارد و فیلد هایی بنام های First, Mi,Last, و...
-
اغاز به کار
سهشنبه 19 دی 1385 00:30
من از امروز شروع به کار می کنم اگه سوال داشتید در باره اکسس بپرسید جواب خواهم داد