Değerli atoz hocam ve değerli adminler;
İlginize çok tşk ederim..

Uygulamada bir modül oluşturup içine şu kodu yapıştırıyoruz;
Option Compare Database
Private Declare PtrSafe Function BakComputerAdi Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function PcMakine() As String
Dim Genis As Long, Gosteri As Long, MakBul As String
   MakBul = String$(254, 0)
   Genis = 255
   Gosteri = BakComputerAdi(MakBul, Genis)
   If (Gosteri > 0) Then
       PcMakine = Left$(MakBul, Genis)
   Else
       PcMakine = vbNullString
   End If
End Function
---------------------------------------------

Daha sonra ilk açılacak formun açıldığı olay yordamına da şu kodu yapıştırıyoruz;

Private Sub Form_Open(Cancel As Integer)
if PcMakine <> "Pc_Mehami" then Application.Quit acQuitSaveAll
End Sub


-------------------------------------------
Şimdi bilgisayar adı ile ilk açılan formda kod içinde yazılı bilgisayar adı aynı ise yani eşit ise anamenu formunu açsın istiyorum,değilse uyarı formunu açsın istiyorum..

Bunun için kodda nasıl bir değişiklik yapmam gerekmektedir??
Öneri ve yardımlarınızı bekliyor saygılar sunuyorum..