تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 38 منذ 2 ساعة مضت
آخر رد: جيولوجي مبتدئ
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 270 منذ 2 ساعة مضت
آخر رد: E100
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 1 69 منذ 10 ساعة مضت
آخر رد: E100
  اريد كود نفس هذا الكود للاكسس غدير الصليحي 4 160 , 11:29 PM
آخر رد: غدير الصليحي
  من يرشدنا الى مواقع منتديات اجنبية عن الفيجوال بيسك ينصح بها ؟ nowiglah 1 87 26-11-21, 01:40 AM
آخر رد: سعود
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 200 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  ممكن شرح و توضيح لسطر الاتصال غدير الصليحي 12 228 24-11-21, 11:09 AM
آخر رد: سعود
  ممكن مثال على كيفية تعليق فاتورررة tfarejdz 4 276 22-11-21, 02:10 AM
آخر رد: Taha Okla
  ممكن شرح اضافة مشغل mpv بداخل الفورم masport tv 6 346 19-11-21, 03:34 AM
آخر رد: معاند الحظ
Rainbow [سؤال] تحميل نسخه الفيجوال بيسك اكسبرس 2017 محمد مسافر 1 137 18-11-21, 11:31 AM
آخر رد: محمد مسافر

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


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