تقييم الموضوع :
  • 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] مساعدة في تحويل هذا الكود و جعله يعمل Necro PC 2 129 15-10-21, 03:08 PM
آخر رد: Necro PC
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 187 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  ممكن من الاخوه شرح كود فى الvb.net خالد كامل1 1 118 12-10-21, 01:52 PM
آخر رد: Jounior_P
  [سؤال] ما هو الخطأ في عدم تنفيذ هذه الكود محمد الصدفاوي 6 393 09-10-21, 10:05 PM
آخر رد: محمد الصدفاوي
  السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟ AhmedRamadan 13 605 03-10-21, 08:01 PM
آخر رد: asemshahen5
  ممكن مساعدة بخصوص كويري معين حدتت به اخطاء Alanwalker 8 730 02-10-21, 01:52 PM
آخر رد: mahmoud_f
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 272 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  [سؤال] فيجوال بيسك ahmeday 1 242 14-09-21, 04:35 AM
آخر رد: سعود
  [VB.NET] ممكن مساعدة في جدول Category وعرضه في Data grid love_hell 0 221 10-09-21, 12:15 AM
آخر رد: love_hell
  منع المستخدم من ادخال ارقام فى مربع النص في فيجوال بيسك دوت نت ابو نور الهدى 2 261 09-09-21, 06:17 PM
آخر رد: ابو نور الهدى

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


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