اجمع رمز التأثير الخاص الأكثر عمليًا لصفحة الويب!
دالة dlookup (strfieldname ، strtablename ، strwere ، objconn)
'وظيفة dlookup المرجعية في Access VBA
"نظرًا للبيئة المختلفة ، تتم إضافة معلمات OBJConn ، ويتم نقل ADODB.Connection مباشرة في
قاتمة strsql
قاتمة روبية
تعيين rs = server.createBject ("adodb.oldset")
دعنا نسمي وظيفة مخصصة خارجي checksql ()
strfieldname = checksql (strivelname)
إذا strwere <> "" ثم
strwere = "أين" وقوي
إنهاء إذا
strsql = "SELECT" & StfeldName & "من" & startablename & "" و strwere
تصحيح الأخطاء strsql
عند استئناف الخطأ التالي
Rs.OOPEN Strsql ، ObjConn ، 1 ، 1
إذا أخطأ <> 0 ثم
استجابة. write err.descripting
استجابة.
إنهاء إذا
إذا كان rs.eof و rs.bof ثم
dlookup = "" "
آخر
'لاستدعاء وظيفة مخصصة NZ
للحصول على التفاصيل ، يرجى الرجوع إلى معلومات Access VBA مساعدة
dlookup = NZ (RS (RS (StfelyName) ، "")
إنهاء إذا
Rs.close
وظيفة نهاية