تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن عمل الكود فجول بيسك بنفس الطريقة
#1
هذا الكود شغال في الاكسس
ممكن كود نفس عملة بس يعمل في فجول ليسك

كود :
Private Sub cmdAdd_Click()
Dim strFilter As String
  Dim lngflags As Long
  Dim varFileName As Variant

  strFilter = "All Files (*mdb*)" & vbNullChar & "*mdb*" _
   & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
   
  lngflags = tscFNPathMustExist Or tscFNFileMustExist _
   Or tscFNHideReadOnly
 
  varFileName = tsGetFileFromUser( _
  fOpenFile:=True, _
  strFilter:=strFilter, _
  rlngflags:=lngflags, _
  strDialogTitle:="الرجاء اختيار ملف ...")
 
  If IsNull(varFileName) Then
   Else
     Me![DataFile] = varFileName
  End If

cmdAdd_End:
  On Error GoTo 0
  Exit Sub

cmdAdd_Err:
  Beep
  MsgBox Err.Description, , "Error: " & Err.Number _
   & " in file"
  Resume cmdAdd_End

End Sub

Private Sub CmdOPEN_Click()
Dim acc As Access.Application
Dim db As DAO.Database
Dim strDbName, strMeName As String
   
   strDbName = Me.DataFile
 
   Set acc = New Access.Application
   With acc
       .Visible = True
       

       
       Set db = .DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & Me.PswData)

       .OpenCurrentDatabase strDbName
       .UserControl = True
   End With
   
   db.Close
   Set db = Nothing
   Set acc = Nothing
   Application.Quit
End Sub
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] أبحث عن شرح أو برنامج صغير للتعامل مع بصمة الأصبع بالفجوال بيسك abomo3ath 1 150 26-06-22, 03:24 AM
آخر رد: DR.YASER
  ممكن حل مشكله عدم الحفظ فراس محي 3 487 18-06-22, 09:39 AM
آخر رد: mohamedassim
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 390 10-06-22, 02:21 AM
آخر رد: ابو روضة
  [VB.NET] محتاج تعديل على الكود هدا AMAZ1972AMAZ 3 308 06-06-22, 06:31 PM
آخر رد: AMAZ1972AMAZ
  نظام اماديوس بالفيجوال بيسك كيرلس رفعت 2 242 27-05-22, 09:24 PM
آخر رد: كيرلس رفعت
  [سؤال] السلام عليكم ممكن رابط تحميل كريستال ريبورت للفيجوال بيسك 2013 حسن الجلب 1 222 27-05-22, 04:58 PM
آخر رد: essawq
  [VB.NET] تحويل مشروع من اصدار فيجوال بيسك لأصدار احدث على رمضان أبو احمد 1 373 09-05-22, 09:16 PM
آخر رد: ابراهيم ايبو
  التحكم فى لون خلفية الازرار من خلال الكود nabil.1710 6 668 03-05-22, 09:53 PM
آخر رد: nabil.1710
  [VB.NET] ممكن حل المسائل الفالصورة دي لاني مش فاهمها مطلوب مني فمقرر الجامعه AhmedRamadan 0 282 24-04-22, 11:12 PM
آخر رد: AhmedRamadan
  ممكن مساعدة في عمل مشغل crazykinko 6 1,746 10-04-22, 02:08 PM
آخر رد: omar dz

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم