السلام عليكم ورحمه الله وبركاته مساء الخير 
 
	شكرا لجهودكم 
 
	عندي كود كاتبه في الديفولت فاليو لتكست معين كما هو موضح لكم : 
 
	=IIf(IsNull(DMax("[رقم الفاتورة]","رأس الفاتورة","  [نوع الفاتورة]='بيع'  ")+1),1,DMax("[رقم الفاتورة]","رأس الفاتورة","  [نوع الفاتورة]='بيع'  ")+1)
 
	فا احتاج من اخواني المبدعين تحويل الكود هذا بحيث استطيع استخدامه في اكواد  الفيجوال بيسك عن طريق الضغط على البوتون