pashay_zaxo

الفورم التاسع Private Sub Command1_Click() If Command1.Caption = "ÊÚÏíá ÇáßÊÇÈ" Then WebBrowser1.Visible = False Command1.Caption = "ÍÝÙ ÇáßÊÇÈ" Dim sDest As String Dim sSource As String sSource = App.Path + "\" + "picdata\outputpic\" + Text1.Text + ".pdf" sDe…

الفورم الثامن Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Dim sSs MSFlexGrid1.Rows = 0 If Trim(Text4.Text) <> "" And Trim(Text5.Text) = "" Or Trim(Text4.Text) = "" And Trim(Text5.Text) <> "" Then MsgBox "áÇ íÌæÒ íÌÈ ÇÏÎÇá ãä ÊÇÑíÎ Çáì…

الفورم السابع Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Me.Hide Form3.Show End Sub Private Sub Command3_Click() If Command3.Caption = "ÊÚÏíá ÇáßÊÇÈ" Then WebBrowser1.Visible = False Command3.Caption = "ÍÝÙ ÇáßÊÇÈ" Dim sDest2 As Stri…

الفورم السادس Dim PPP Private Sub Command1_Click() Dim Del Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb") Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset) Del = Trim(Text5.Text) UsersS.MoveFirst Do While Not (UsersS.EO…

الفورم الخامس Private Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "ÇÏÎá ÇÓã ÇáãÓÊÎÏã" Text1.SetFocus Text1.Text = "" Exit Sub Else If Trim(Text2.Text) = "" Then MsgBox "ÇÏÎá ßáãÉ ÇáãÑæÑ" Text2.SetFocus Text2.Text = "" Exit Sub Else Set Azad = DBE…

الفورم الرابع Private Sub Command1_Click() Form1.Show Me.Hide End Sub Private Sub Command2_Click() Form2.Show Me.Hide End Sub Private Sub Command3_Click() Form3.Show Me.Hide End Sub Private Sub Command4_Click() Form6.Show Me.Hide End Sub Private Sub Command5_C…

الفورم الثالث Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal …

الفورم الثاني Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Command1_Click() Shell "C:\Program Files\Nitro PDF\Professional\NitroPDF.exe", vbHide Text6.Text = "d:\pdf\1.pdf" End Sub Private Sub…

الفورم الاول Private Sub EmptyText() Text2.Text = "" Text3.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub Private Sub Command1_Click() 'Timer1.Enabled = True Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb") S…

ملاحظة كل ثلاثة ايام راح اشوفها و راح اضيف قدر الامكان برمجة البرنامج

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

للعلم لو كان البرمجة بلغة قيجوال بيسك لكان اسهل لي بميئات المرات من اكسس نعم اعرف ان الاكسس اسهل

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

اشكرك جزيل الشكر يا اخي الكريم هذا هو المطلوب يا اخي الكريم و يا استاذي يا ريت لو توضح لي كيف استطيع تغير الامتداد الى accdr

السلام عليكم يا اخواني الكرام ارجوا المساعدة في اخفاء قوائم الاكسس وفتح الفورم مباشرةً بدون ظهور الجداول اي عند الضغط على ايكون البرنامج يفتح البرنامج و يفتح الفورم اوتوماتيك و يا ريت لو اضفتم فورم جديد تتضمن اليوزر و بالسورد للعلم سويت البرنامج باكسس 2010 aza…

الحمدلله حليت المشكلةالحمدلله حليت المشكلة للاستفادة هذا لكم azad.rar

ارجوكم ارجوكم من لديه الفكرة فاليساعدني

شكرا لك اخي الكريم الان حملت البرنامج للعلم الملف ب اوفيس 2010 za-11.rar

كما في الصورة الموجودة ولكن يطبع فقط السجل الثاني

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