[kofa]

السلام عليكم ورحمة الله وبركاته

تحية طيبة لأساتذتي الكرام

أرجو من اهل الفضل والخبرة بمثال بسيط

عند الضغط على خلية معينة في الداتا جريد فيو  المرتبطة بقاعدة بيانات اكسس

تظهر رسالة بها رقم الصفحة المراد فتحها من ملف pdf

يفتح ملف pdf  عند الصفحة التي تم تحديدها ولتكن صفحة رقم 30

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

كل ثقة في خبراتكم
كامل احترامي وتقديري
تحياتي تلميذ مبتدئ

[kofa]

لا شك عندي في خبرات اساتذتي الكرام في هذا المنتدى لحل هذه المشكلة

تم التوصل لكود فتح صفحة معينة من ملف  pdf

PHP كود :

System.Diagnostics.Process.Start("C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe", "/A " & Chr(34) & "page=4" & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34)) 


 

لكن كيف أقف على خلية معينة وأضيف عليها هذا الكود

البيانات تعرض في الداتا جريد فيو ولا أعرف طريقة إضافة هذا الكود

ملخص الفكرة كل خلية لها صفحة من ملف pdf 

مع العلم ان البيانات قابلة للاضافة والحذف

فكيف يمكن تطبيق هذه الفكرة

جزاك الله خيرا

[zinom]

(14-12-16, 01:26 AM)kofa كتب : لا شك عندي في خبرات اساتذتي الكرام في هذا المنتدى لحل هذه  المشكلة

تم التوصل لكود فتح صفحة معينة من ملف  pdf

PHP كود :

System.Diagnostics.Process.Start("C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe", "/A " & Chr(34) & "page=4" & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34)) 


 

لكن كيف أقف على خلية معينة وأضيف عليها هذا الكود

البيانات تعرض في الداتا جريد فيو ولا أعرف طريقة إضافة هذا الكود

ملخص الفكرة كل خلية لها صفحة من ملف pdf 

مع العلم ان البيانات قابلة للاضافة والحذف

فكيف يمكن تطبيق هذه الفكرة

جزاك الله خيرا

معلش انا مش قادر استوعب الفكره شويه - لكن ممكن مثال مصغر
يمكن اقدر اساعدك ؟؟

[kofa]

كل التقدير والشكر لاهتمامك اخي الفاضل

الفكرة ببساطة

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

عبارة عن الاسم - تفاصيل البيانات

يمكن اضافة اسماء جديدة وحذفها من المشروع

المطلوب

عند الضغط على خلية تفاصيل البيانات  لكل اسم يفتح ملف pdf  برقم صفحة معينة

منتظر ابداعك اخي الكريم

[amgad525]

PHP كود :

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    Dim page As Integer = Val(Me.DataGridView1.CurrentRow.Cells(1).Value)
    If page > 0 Then
        Process.Start("AcroRd32", "/A " & Chr(34) & "page=" & page & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34))
    End If
End Sub 


[kofa]

الله يجزاك خير اخي الكريم الفاضل

للاسف الكود لا يعمل معي

للعلم يتم تحديد الصف كاملا وليس خلية واحدة

متأسف على كثرة استفساري لأني تلميذ مبتدئ

وظني فيكم كريم

منتظر ابداعاتكم وإن شاء الله نوصل لحل

[amgad525]

WindowsApplication1.rar ?

[kofa]

ما معنى هذا اخي الكريم

اعذرني بجهلي

[kofa]

أساتذتي الكرام

الكود التالي لفتح صفحة معينة عن طريق InputBox

لكنه يفتح لي الصفحة رقم ا دائما

PHP كود :

Dim x As Integer = InputBox("اكتب رقم الصفحة", "ادخال", "اكتب رقم الصفحة هنا")
        Dim page As Integer = x
        If page > 0 Then
            Process.Start("C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe", "/A " & Chr(34) & "page=x" & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34))
        End If 


اريد فتح الصفة التي تكتب في InputBox

بارك الله فيكم

[zinom]

(14-12-16, 06:27 PM)kofa كتب : أساتذتي الكرام

الكود التالي لفتح صفحة معينة عن طريق InputBox

لكنه يفتح لي الصفحة رقم ا دائما

PHP كود :

Dim x As Integer = InputBox("اكتب رقم الصفحة", "ادخال", "اكتب رقم الصفحة هنا")
        Dim page As Integer = x
        If page > 0 Then
            Process.Start("C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe", "/A " & Chr(34) & "page=x" & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34))
        End If 


اريد فتح الصفة التي تكتب في InputBox

بارك الله فيكم

الرجاء دائما ارفاق مثال بالموضوع (لتسهيل الامر علي من يريد المساعده)

   موقع الإقتباس

طلبك استاذي الكريم

التعديلات التي تمت علي المثال

2- تيكست بوكس من اجل
أ- رقم الصفحه المراد فتحها
ب_ مسار /إسم الملف المراد فتحه

1 - باتون من اجل تنفيذ الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'Page Number

       Dim MyPageNumber As Integer = CInt(TextBox1.text)

       'Acrobat Reader Path

       Dim AcrobatReaderPath As String = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"

       'Pdf File Name

       Dim PdfFileName As String = "\serial-port-vb.pdf"

       'Open Page

       Shell(AcrobatReaderPath & " /A Page=" & MyPageNumber & " " & Application.StartupPath & PdfFileName, AppWinStyle.MaximizedFocus)
   End Sub