Jump to content
أوفيسنا

د.كاف يار

Expert
  • Content Count

    498
  • Joined

  • Last visited

  • Days Won

    9

د.كاف يار last won the day on September 16

د.كاف يار had the most liked content!

Community Reputation

491 Excellent

About د.كاف يار

  • Rank
    حسين كمال
  • Birthday 08/27/1981

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    طالب هندسة برمجيات | ماليزيا
  • Location
    السعودية | ماليزيا

Contact Methods

  • MSN
    hus2010hus@hotmail.com

Recent Profile Visitors

1,446 profile views
  1. اذا اتفضل هذا التعديل مع مراعاة اضافة اسم التقرير و الفلتر Dim ShellApp As Object Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please choose a folder", 0, OpenAt) On Error Resume Next BrowseForFolder = ShellApp.self.path On Error GoTo 0 Set ShellApp = Nothing Select Case Mid(BrowseForFolder, 2, 1) Case Is = ":" If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid Case Is = "\" If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid Case Else GoTo Invalid End Select Dim reportName As String
  2. اتفضل هذا التعديل Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" criteria = "[Image No] = 1 " ' هنا الفلتر DoCmd.OpenReport reportName, acViewPreview, , criteria, "" DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo
  3. تفضل اخي الكريم مع مراعاة تعديل ما يلزم Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" fileName = CurrentProject.Path & "\" & " اسم التقرير " & ".pdf" criteria = "[Image No] = 1 " ' هنا الفلتر DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo
  4. اخي الكريم استخدم ( JOIN LEFT ) أو JOIN RIGHT ) مثال على ذلك نريد عرض اسماء الموظفین الذن طلبوا المنتج (Printer) SELECT Employees.Name FROM Employees INNER JOIN Orders ON Employees.Employee_ID=Orders.Employee_ID WHERE Orders.Product = 'Printer'
  5. استخدم هذا الكود اخي الكريم Set conn = CreateObject("ADODB.Connection") ' ادخل اسم السيرفر و اسم المستخدم و كلمة المرور conn.Open "DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase" Set rs = CreateObject("ADODB.recordset") Dim MyData As String MyData = "اسم الجدول" Dim usert As String rs.Open "Select * from " & MyData, conn If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) usert = usert & vbNewLine & rs.Fields("[اسم العمود]") rs.MoveNext Wend End If rs.Close Set rs = Nothin
  6. تفضل اخي الكريم مع تعديل ما يلزم Dim msg1, msg2 As String msg2 = "يجب عدم ترك حقول فارغة للاستمرار" Dim ctl As Control For Each ctl In [اسم النموذج الفرعي].Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Or ctl = 0 Then If msg1 = "" Then msg1 = ctl.Name Else msg1 = msg1 & vbNewLine & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox
  7. اخي الكريم افضل الطرق على الاطلاق هي اليوتيوب هذي بعض الاقتراحات لك و ستسفيد جدا انشاء الله فيجوال بيسك مهندس محمد البحراوى تعليم الفيجوال بيسك مع م/ أحمد الزيني
  8. تفضل التعديل اخي الكريم يجب فك الضغط عن الملفات اولاً تصدير البيانات.zip
  9. تفضل هذه المشاركة اخي الكريم لعلها تحل المشكلة فقط نسخ هذا الكود الصقه في حدث ازرار الحفظ Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT Max(InvoiceNum) FROM InvoiceHT;") InvoiceNum = "A" & Format(Nz(rs.Fields(0), 0) + 1, "1000") rs.Close Set rs = Nothing
  10. اخي الكريم الافضل انك تضمن جميع المكتبات و الادوات و التقارير مع البرنامج
  11. هل السيرفر هذا خارجي على استضافة ؟؟؟ في كل حال جرب تضيف قبل جملة الاتصال تستبدل كلمة Server Data Source= او استبدلها بالتالي مع تغيير ما يلزم Dim ServerName , UserForServer , PasswordForServer As String ServerName="اسم السيرفر" UserForServer="اسم المستخدم" PasswordForServer="كلمة المرور" Data Source="& ServerName &";Persist Security Info=True;User ID="& UserForServer &";Password="& PasswordForServe
×
×
  • Create New...