Aws86A

في 16‏/5‏/2023 at 19:57, antoninomubarik said:

حضرتك محتاج كود الخروج دون حفظ صح؟ 

 

نعم بدون حفظ وبدون ان يغير شيء في المستند وبدون اني يظهر لي مربع هل تريد الحفظ ام لا

في 8‏/1‏/2023 at 08:06, Ayman Alex said:

حضرتك محتاج كود الخروج دون حفظ صح؟ 

السلام عليكم دون حفظ ودون اني يظهر لي تحذير هل تريد الحفظ ام لا

السلام عليكم عملت قاعدة بيانات مخاطبات رسمية واقوم بالتصدير الى مستند وورد لغرض التنسيق بشكل سلس المشملة هي انه مستند الوورد اريد اغلاقه دائما بدون حفظ وبدون اظهار مربع الحوار (هل تريد الحفظ ام لا) هل يمكن ذلك لهذا المستند فقط؟؟؟

16 دقائق مضت, وايلي حبيب said:

وضح اكثر

يعني انني لا اريد ان يحفظ ما ساكتب في المستند فقط اريد اغلاق المستند بدون حفظ اي شيء وبدون تنبيهي بهل تريد الحفظ من عدمه ...

15 دقائق مضت, وايلي حبيب said:

السلام عليكم

مرفق لك الملف المطلوب

 

تجربه.docm 17.53 kB · 1 download

شكرا لك اخي على تجاوبك لكن الي اريده ان يغلق بدون خزن

مرحبا
لدي مستند وورد واريد اغلاقه دائما بدون حفظ وبدون اظهار مربع الحوار (هل تريد الحفظ ام لا) هل يمكن ذلك لهذا المستند فقط؟؟؟

مرحبا
لدي نموذج للطباعة وصممت النموذج لطباعة الورقة على شكل a4
عندي مشكلة انه النص المكتوب عند الطباعة يظهر غير منسق 
واريد ان تتساوى البدايات والنهايات مثل تنسيق النص في ورد 
انا عملت محاذاة لليمين والنص عندي منسق من اليمين لكن المشكلة في اليسار  الاسطر غير متساوية النهايات 
والنموذج هو لمخاطبات رسمية واحتاج الى طريقة لكيفية تساوي نهايات الاسطر من اليسار 
علما ان اللغة هي العربية

في ١٩‏/١‏/٢٠٢١ at 20:24, SEMO.Pa3x said:

عليكم السلام, تفضل:

 

'******************* module code **************

Public Const WS_CHILD As Long = &H40000000
Public Const WS_VISIBLE As Long = &H10000000


Public Const WM_USER As Long = &H400
Public Const WM_CAP_START As Long = WM_USER


Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25






Public Declare Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As Long _
        , ByVal nID As Long) As Long






Public Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long


'************* end of module code ******************

Add the following controls in a form

1. A picture box with name "PicWebCam"

2. A commondialog control with name "CDialog"

3. Add 4 command buttons with name "cmd1","cmd2,"cmd3","cmd4"

then paste the following code

'************************** Code **************

Dim hCap As Long
Private Sub cmd4_Click()
Dim sFileName As String
    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
    With CDialog
        .CancelError = True
        .Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt
        .Filter = "Bitmap Picture(*.bmp)|*.bmp|JPEG Picture(*.jpg)|*.jpg|All Files|*.*"
        .ShowSave
        sFileName = .FileName









    End With
    Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End Sub




Private Sub Cmd3_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
End Sub


Private Sub Cmd1_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0)
    If hCap <> 0 Then
        Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
        Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
        Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
    End If
End Sub






Private Sub Cmd2_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End Sub


Private Sub Form_Load()
cmd1.Caption = "Start &Cam"
cmd2.Caption = "&Format Cam"
cmd3.Caption = "&Close Cam"
cmd4.Caption = "&Save Image"
End Sub
'**************** Code end ************************

 

السلام عليكم

شكرا لردك

ممكن تنزل نموذج مثال

السلام عليكم

لدي قاعدة بيانات معلومات اشخاص وانا ضايف لها امكانية اضافة صورة من الحاسوب 

هل يوجد كود اضافة صورة التقاط مباشر من كاميرا الحاسوب او كاميرا مربوطة ؟؟؟

3 ساعات مضت, سامي الحداد said:

وعليكم السلام

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub

جرب ووافينا اذا كان هذا هو المطلوب

تحياتي

السلام عليكم شكرا على تجاوبك

الكود حل جزء من المشكلة

ولكن عند تصفحي الارساليات مثلا عند فتح النموذج وتظهر الارسالية رقم ١ عند الضغط على التالي تظهر ١٠ ثم ١١ ثم ١٢ وبعدها تظهر رقم ٢

انا اريد ان تظهر ١ ٢ ٣ ٤ ... الخ

اخوان اذا اكو احد عنده معلومة

السلام عليكم 

لدي نموذج رئيسي ومرتبط به نموذج فرعي 

النموذج الرئيسي فيه ٣ حقول المعرف رقم الارسالية والتاريخ 

رقم الارسالية هو الاساسي ومفهرس لايقبل التكرار

ضبطت النموذج عند فتحه يظهر اخر سجل 

لكن واجهتني مشكلة انه لدي ١٠ سجلات مدخلة حاليا 

ولكن عند فتح النموذج يظهر السجل رقم ٩ 

السلام عليكم

اثناء تصفحي في اليوتيوب وجدت فيديو عن قاعدة بيانات لشجرة العائلة والصراحة اعجبني وياريت احد الاخوة اصحاب الخبرة يشرحلنه طريقة عمل مثل هيك قاعدة بيانات

3 ساعات مضت, مبرمج نت said:

صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ  .DoCmd   يعني يصير كالاتي :-

DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False

استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه

Backup Sample.mdb

7 ساعات مضت, مبرمج نت said:

عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة 

Me.recordsource بدون علامات الاقتباس """

في السطر

.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False

لكي يصبح 

.OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False

مع تحياتي وابلاغي في حالة وجود خطأ

شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي

في ٩‏/٦‏/٢٠٢٠ at 00:37, مبرمج نت said:

بامكانك استخدام ال common dialog control واستخدام vba لغرض التصدير 

 

CommonDialgCntrol.Dialogtitle="Export to excel"

CommonDialogCntrol.ShowOpen

If CommonDialogCntrol.FileName="" then

Msgbox"الرجاء تحديد اسم للملف"

Else

Fname=CommonDialogCntrol.Filename

DoCmd.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False

End if

 

حيث أن QryName هو اسم الاستعلام

 

السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود

السلام عليكم

انا مبتدئ في الاكسس محتاج كود لعمل نسخة من قاعدة البيانات (غير مقسمة)  بشكل تلقائي عند غلقها ويسمى باليوم والتاريخ والوقت مع اختيار مكان الحفظ