- 0
سجل دخول لمتابعه هذا
متابعين
0

كيفية تفعيل برنامج اكسس عن طريق فلاش ميموري
بواسطة
nacer_alger,
-
يستعرض القسم حالياً 0 members
لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .
بواسطة
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شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه