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

[nacer_alger 1]

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

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

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

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

 

 

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

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

تم تعديل 10 Dec 2020 بواسطه nacer_alger