السلام عليكم ورحمة الله وبركاته
تحية طيبة لأساتذتي الكرام
أرجو من اهل الفضل والخبرة بمثال بسيط
عند الضغط على خلية معينة في الداتا جريد فيو المرتبطة بقاعدة بيانات اكسس
تظهر رسالة بها رقم الصفحة المراد فتحها من ملف pdf
يفتح ملف pdf عند الصفحة التي تم تحديدها ولتكن صفحة رقم 30
عند فتح المشروع من جديد وعند الضغط على الخلية تفتح الرسالة مرة اخرى ومتخزن فيها رقم الصفحة التي تم تحديدها سابقا
كل ثقة في خبراتكم
كامل احترامي وتقديري
تحياتي تلميذ مبتدئ
لا شك عندي في خبرات اساتذتي الكرام في هذا المنتدى لحل هذه المشكلة
تم التوصل لكود فتح صفحة معينة من ملف 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
مع العلم ان البيانات قابلة للاضافة والحذف
فكيف يمكن تطبيق هذه الفكرة
جزاك الله خيرا
(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
مع العلم ان البيانات قابلة للاضافة والحذف
فكيف يمكن تطبيق هذه الفكرة
جزاك الله خيرا
معلش انا مش قادر استوعب الفكره شويه - لكن ممكن
مثال مصغر
يمكن اقدر اساعدك ؟؟
كل التقدير والشكر لاهتمامك اخي الفاضل
الفكرة ببساطة
قاعدة بيانات من نوع اكسس يتم عرضها في الداتا جريد فيو
عبارة عن الاسم - تفاصيل البيانات
يمكن اضافة اسماء جديدة وحذفها من المشروع
المطلوب
عند الضغط على خلية تفاصيل البيانات لكل اسم يفتح ملف pdf برقم صفحة معينة
منتظر ابداعك اخي الكريم
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
الله يجزاك خير اخي الكريم الفاضل
للاسف الكود لا يعمل معي
للعلم يتم تحديد الصف كاملا وليس خلية واحدة
متأسف على كثرة استفساري لأني تلميذ مبتدئ
وظني فيكم كريم
منتظر ابداعاتكم وإن شاء الله نوصل لحل
WindowsApplication1.rar ?
ما معنى هذا اخي الكريم
اعذرني بجهلي
أساتذتي الكرام
الكود التالي لفتح صفحة معينة عن طريق 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
بارك الله فيكم
(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