فرم Login و استفاده از تابع DLookup در اکسس

Private Sub Form_Load()     

InsideHeight = 4000     

InsideWidth = 6000     

Me.tb_ID = Null     

Me.tb_pwd = Null     

Me.tb_ID.SetFocus 

End Sub

Private Sub frm1Btn_Click()    

If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then       

MsgBox "You must enter password and login ID.", vbOKOnly + vbInformation, "Required Data"    

Me.tb_ID.SetFocus         

Exit Sub     

End If     

If Me.tb_pwd.Value = DLookup("[Login_Pwd]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") Then         

If DLookup("[User_Type]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") = "Admin" Then             

DoCmd.openForm "admin_menu"             

DoCmd.Close acForm, "login", acSaveNo         

Else             

DoCmd.openForm "user_menu"             

DoCmd.Close acForm, "login", acSaveNo         

End If     

Else       

MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!"       Me.tb_pwd.SetFocus     

End If 

End Sub

مثال های زیر را ببینید : 

DLookUp ( "شرط","نام جدول","نام فیلد مورد جستجو")

تابع زیر یک را بر میگرداند چون دیتا تایپ از نوع متنی است لذا 001 در داخل تک کوتیشن می بایست قرارداده شود

DLookUp("Login_Pwd","login_tbl","[Empl ID]='001'")

تابع زیر عدد ۲ را برمی گرداند ( از فیلد Empl ID ) ، اگر بیش از یک نتیجه باشد فقط اولین آن برگردانده میشود

Dlookup("[Empl ID]","login_tbl","User_Type='User'")

تابع چند شرطه زیر عدد ۲ را برمیگرداند ، شروط : دیتا در فیلد User_Type همان User و فیلد Login_Pwd برابر ۲ باشد

Dlookup("[Empl ID]","login_tbl","User_Type='User' AND Login_Pwd='2'")

شرط از فرم دیگری

Dlookup(“[Empl ID]”,”login_tbl”,”User_Type='”&Forms![Form1]!tb1&”‘”)

مرداد ۱۴۰۳ 

در پاستیل‌های باز و فله از ژلاتین‌های خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.

به گزارش تجارت نیوز، 

حسین رستگار، رییس مرکز تحقیقات حلال سازمان غذا و داروی وزارت بهداشت گفت: «در پاستیل‌های باز و فله از ژلاتین‌های خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.»

او افزود تنها در پاستیل‌هایی که از این سازمان مجوز دارد، از «ژلاتین حلال» استفاده شده است.