محمد احمد لطفى

هل هذا ما تريد
 

بالتوفيق
 
تظلمات.mdb

اعمل حجم الحقل مزدوج من الجدول 

ITEM_PRICE

بالتوفيق

اضغط على المربع الصغير فى اخر مصدر الصف 
وفى معيار الشقة ضيف 

 
Not "1308" and Like "1307"  

أستاذى 
بعد و ضع الشرط فى الاستعلام 
 
[forms]![Mad]![id] مع الكود 
 
DoCmd.OpenReport "mdfoaatSub", acViewPreview تم المعاينة جيدأ
ولكن هل يجب هذا الشرط فى التقرير 
"وفي التقرير وفي مصدر التقرير وفي حقل id ضع الشرط التالي في المعيار"
وجزاك الله كل خير

شكرا الحل هنا 
 
Consum Amount: IIf([issue date] Between #01/08/2017# And #30/07/2018#;consumA0817([consum]);IIf([issue date] Between #01/08/2018# And #30/07/2019#;consumc0817([consum]);IIf([issue date] Between #01/08/2016# And #30/07/2017#;consumb0817([consum]))))
 

أول طلب  يمكن عمل ذلك عن طريق استعلام تحديث 
وسوف يتم عمله على جميع الجداول  وتحويله الاستعلامات الى vba و تشغيله عند فتح البرنامج بالتوفيق 

ثانيا 
 
Me![Filed].BackColor = vbRed Me![Filed].ForeColor = vbWhite Me.Filed.FontSize = 22 بالتوفيق

 

تم الحل 

 
Dim a As Integer Dim DATE_POST As Date Dim rs As DAO.Recordset DATE_POST = CDate(Forms![TEST1]![Date_M]) Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberStart] - 1 To Forms![TEST1]![NumberEnd] - 1 rs.AddNew If Not Weekday(DATE_POST) Like "[6-7]" Then rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 rs!date1 = DATE_POST Else a = a - 1 End If DATE_POST = DATE_POST + 1 rs.Update Next a rs.Close Set rs = Nothing Me.Requery  

أستاذ موسى كان شارح موضوع جميل فى الموضوع 

بالتوفيق
 
 

فى حدث قبل التحديث حقل الصنف

 
Set RS = Me.RecordsetClone RS.FindFirst "[اسم الصنف]='" & Me.[اسم الصنف] & "'" If Not RS.NoMatch Then Me.Undo MsgBox ("هذا الصنف موجود مسبقا") End If  
Database1 (2).accdb

تفضل هل هذا ما تريد
Database22.accdb

ما توصلت اليه بنجاح و تمت التجربة

كود الاستيراد جدول 
 
DoCmd.DeleteObject acTable, "main1115" DoCmd.TransferDatabase acImport, "Microsoft Access", _ "\\192.168.1.2\125\update.mdb", acTable, "main1115", "main1115", False كود تصدير  جدول 
 
DoCmd.TransferDatabase acExport, "Microsoft Access", "h:\test5.mdb", acTable, "main1115", "main1115", False
 

جرب 

 
CurrentDb.Execute "ALTER TABLE your_table_name ADD CONSTRAINT your_pk_name PRIMARY KEY(id1, id2);"  

هل هذا ما تريد

 
1080_2.rar

تفضل هل هذا ما تريد
 
Dim myLink As String myLink = "https://www.google.com/search?q= " & Me.authorname Application.FollowHyperlink (myLink)

 

تفضل تنظيف ‏‏Prefetch / ‏‏ ‏‏Temp / %‏‏Temp %

 
تنظيف التمب.rar

تم الحل

 
CurrentDb.Execute "ALTER TABLE [tblOld] ADD CONSTRAINT PrimaryKey PRIMARY KEY ( [idNum] );"  

جزاك الله خيراً أستاذى @أبو عبدالله الحلوانى

ما أريده تغيير نوع البيانات الحقل من رقم الى نص و توصلت لها من خلال المنتدى 
Dim db As DAO.Database Set db = CurrentDb Dim strSQL As String strSQL = "ALTER TABLE tblOld ALTER COLUMN idNum TEXT(255)" db.Execute strSQL Set db = Nothing
 
testdate3.mdb

تفضل هل هذا ما تريد 
 
مندوب مبيعات.rar

الحمد لله ولكى تعم الفائدة علينا جميعا و بالبحث فى المواقع الاجنبية 

Call Shell("xcopy /y E:\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1)
جزاك الله خيرا يا أخى

هذا ما اريده يا أخوانى 
أعتذر ان لم اقدر ان اوصل لكم ما اريده 
تم تغيير فى اول الكود 
DoCmd.GoToRecord , , acNext
الى 
DoCmd.GoToRecord , , acNewRec
تم الحل 
و جزاكم الله خيرا 

test42.rar

شاهد هذا الموضوع 

 
 

تم الحل 

 
Photo.rar

تفضل

 
New 2.rar

طبع مرة واحده فقط
+ اضافة للموضوع السابق طباعة صفحة و صفحة عند اضافة الحدود ظهرت فى الصفحة الفرغة 
هل يمكن الغائها

 

M_L - Copy (7).mdb

مُسكن
بس شغال يتم العمل على حقول وهمية و الناتج فى النهاية حقول محسوبة ☺️

 
querybuilder.rar