• 0
nacer_alger

كيفية تفعيل برنامج اكسس عن طريق فلاش ميموري

سؤال

السلام عليكم ممكن تفعيل برنامج اكسس عن طريق فلاش ميموري 

معناه اريد البرنامج  ان يفعل على الفلاش بدل من الهرد ديسك ويعمل في الفلاش في اي حاسوب اخر  

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

Private Sub Commande1_Click()
 Dim DB As Database
    Dim rs As Recordset
Set DB = CurrentDb
    Set rs = DB.OpenRecordset("TBpass")
    If rs.EOF = True Then
       rs.AddNew
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
Else
rs.Edit
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
       End If
Dim X, x2
X = Nz((Me.HdNum)) * 13
x2 = Nz(DLookup("ser", "TBpass"), 0)

If "'" & x2 & "'" = "'" & X & "'" Then
DoCmd.Close
DoCmd.OpenForm "Gestion de location de voiotures"
Else
MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact 0550735799"
DoCmd.Quit
End If

End Sub

هدا كود لمعرفة رقم الهرد

Private Sub Form_Open(Cancel As Integer)
Me.HdNum.Value = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Dim X, x2
X = Nz((Me.HdNum)) * 13
x2 = Nz(DLookup("ser", "TBpass"), 0)
'oui "'" h
If "'" & x2 & "'" = "'" & X & "'" Then
DoCmd.Close
DoCmd.OpenForm "Gestion de location de voiotures"
Else
MsgBox "Activé logiciel   (Logiciel commercial) ", vbYes, " Clic sur ok pour activé logiciel"
End If
End Sub

 

 

اريده على الفلاش 

ممكن مساعدة ادا امكن

تم تعديل بواسطه nacer_alger
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .