اذهب الي المحتوي
أوفيسنا

kamel2711

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    108

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه kamel2711

    صفحة HTML

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم  

    نعم لم أتمكن  من  تحويل نموذج الى html   بل   جدول  فقط               Capture.PNG.ffeffe99fa79fd1fb069477956877944.PNG لكن وجدت    هذا  '''''''  site     '''caspio bridge       لكم    الضورة     من         base de données  aacess  الى   caspio

    صفحة HTML

    في قسم الأكسيس Access

    قام بنشر

    سلام  عليكم    بعد التحية أستاذنا ابو خليل  

    يمكن تحويل النموذج   او الجدول   الى html        اي من الاكسس 2007  و 2010  

    طريقة  سهلة     لديا     نسخة بالفرنسية      

     من القائمة  اختر     html  document  -       extern data      بعد الحفظ قم بفتحة بواسطة  notepad++

     

         

     

    Capture.PNG

    كيفية طباعة نموذج وحفظه بصيغة Pdf

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم  انشأ زر قم بإدخال الكود   اما طباعة هناك طريقة ثانية عن طريق استعلام  ففط  اما ما يخص pdf  

    هناك  برنامج يقوم بتحويل من word to pdf  ,,ولكن العربية غير مدعمة اعتقد  وان كان لست متأكدا 

    Private Sub BTImprimer_Click() 
Dim Nom_Etat as string 
Nom_Etat="MonEtat" 
DoCmd.OpenReport Nom_Etat, acPreview 
End Sub

     

    • Like 1

    كود طباعة نتائج البحث

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم  

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

     اما مايخص سؤال الاخ   وهو ان يكون استعلام ثم زر  لفتح   

    Entre [Date_Depart] et [Date_Fin]    الاستعلام
= [date_Depart] & " " & [Date_fin]
code  زر

Me.nom du formulaire.Form.FilterOn = True
Me.nom du formulaire.Form.Filter = "[DATE ] BETWEEN # " & 
Format(Me.date_Depart, "mm/dd/yyyy") & "# AND #" & Format(Me.Date_fin, 
"mm/dd/yyyy") & "#"
Else
Me.nom du formulaire.Form.FilterOn = False

     

    تغيرر ادخال الجدول من افقي الى عامودي

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم  

     ارسل قاعدة بيانات  حتى نتمكن من فهم المطلوب 

     لم تجرب  export_import  in access  

     قبل بدا حول   جدول   الاكسال بهده                   الدالة=TRANSPOSE(A1:C1)       عمودي        ثم قم import   exel  in  access   

     

     

     

     

    ظهور تاريخ مباشرة العمل بالجدول

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم  أشكر أالأستاد أبو خليل    ----  الا يمكن ان  نسعمل استعلام   ؟     هدا  هو الاستعلام  اضافة اليوم الموالي  ( Expr1: [findate_B]+1      (Work_Start_history_B

    Requête1
    ID رقم الموظف تاريخ بداية الإجازة مدة الإجازة تاريخ نهاية الإجازة Expr1
    1285 57 02/01/2017 18 19/01/2017 20/01/2017
    1287 82 02/01/2017 3 04/01/2017 05/01/2017
    1289 140 02/01/2017 1 02/01/2017 03/01/2017
    1293 95 03/01/2017 3 05/01/2017 06/01/2017
    1295 46 03/01/2017 30 01/02/2017 02/02/2017
    1296 140 05/01/2017 1 05/01/2017 06/01/2017
    1297 117 08/01/2017 12 19/01/2017 20/01/2017
    1301 43 08/01/2017 50 26/02/2017 27/02/2017
    1302 126 08/01/2017 50 26/02/2017 27/02/2017
    1303 110 09/01/2017 4 12/01/2017 13/01/2017
    1304 5 09/01/2017 30 07/02/2017 08/02/2017
    1305 140 09/01/2017 1 09/01/2017 10/01/2017
    1307 141 09/01/2017 1 09/01/2017 10/01/2017
    1308 115 10/01/2017 3 12/01/2017 13/01/2017
    1309 15 11/01/2017 2 12/01/2017 13/01/2017
    1310 147 12/01/2017 1 12/01/2017 13/01/2017
    1311 139 12/01/2017 1 12/01/2017 13/01/2017
    1312 118 19/01/2017 1 19/01/2017 20/01/2017
    1313 148 22/01/2017 12 02/02/2017 03/02/2017
    1314 139 19/01/2017 1 19/01/2017 20/01/2017
    1315 105 22/01/2017 3 24/01/2017 25/01/2017
    1316 125 22/01/2017 10 31/01/2017 01/02/2017
    1317 118 23/01/2017 1 23/01/2017 24/01/2017
    1318 14 24/01/2017 1 24/01/2017 25/01/2017
    1319 115 25/01/2017 1 25/01/2017 26/01/2017
    1320 116 25/01/2017 1 25/01/2017 26/01/2017
    1321 140 25/01/2017 2 26/01/2017 27/01/2017
    1322 119 29/01/2017 40 09/03/2017 10/03/2017
    1323 146 30/01/2017 2 31/01/2017 01/02/2017
    1325 59 31/01/2017 13 12/02/2017 13/02/2017
    1326 149 31/01/2017 1 31/01/2017 01/02/2017
    1327 99 03/02/2017 10 12/02/2017 13/02/2017
    1328 99 14/02/2017 50 04/04/2017 05/04/2017
    1329 100 04/02/2017 15 18/02/2017 19/02/2017
    1330 95 05/02/2017 1 05/02/2017 06/02/2017
    1332 57 05/02/2017 1 05/02/2017 06/02/2017
    1333 45 05/02/2017 50 26/03/2017 27/03/2017
    1334 115 05/02/2017 3 07/02/2017 08/02/2017
    1336 139 08/02/2017 23 02/03/2017 03/03/2017
    1340 8 08/02/2017 40 19/03/2017 20/03/2017
    1342 5 12/02/2017 2 13/02/2017 14/02/2017
    1343 116 09/02/2017 1 09/02/2017 10/02/2017
    1344 110 07/02/2017 1 07/02/2017 08/02/2017
    1345 141 12/02/2017 1 12/02/2017 13/02/2017
    1346 140 12/02/2017 1 12/02/2017 13/02/2017
    1347 124 13/02/2017 50 03/04/2017 04/04/2017
    1348 116 13/02/2017 4 16/02/2017 17/02/2017
    1349 142 14/02/2017 1 14/02/2017 15/02/2017

     

    فيما يخص الاستعلام إلحاق

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم في بداية الامر أردت أن اعمل برنامج يقوم بتحويل شخص من جدول الى جدول أخر  لكن هذا العمل أريده أن يكون في قائمتين

    اي قائمة1 فيها مجموعة من  أسماء المدارس  و الثانية لها نفس مجموعة من  أسماء المدارس  وزر و مربع نص .

      هل من مساعدة في برمجة في زر أو في استعلام 

    وشكرا لكم 

    :rol:

    طرح تاريخين في سجلين مختلفين

    في قسم الأكسيس Access

    قام بنشر

    سلام  عليكم  

      اريد ان أضيف  أضافة  وتتعلق date    وكذاك لابدا من يكون  dateentree  and datesortie  ستقلين عن بعضهم البعض المثال التالي يوضح الفكرة اي حساب عدد الساعات  موجودة في الاستعلام 

    hhhh: Format([enddate]-[starddate];"Heure, abrégé")

     

     

    Base de données21.rar

    بحث بواسطة قائمة في النموذج

    في قسم الأكسيس Access

    قام بنشر 

    '------------------------------------------------------------
Private Sub ComboSymbole_AfterUpdate()
On Error GoTo ComboSymbole_AfterUpdate_Err

'    DoCmd.SearchForRecord , "", acFirst, "[Symbole] = " & Str(Nz(Screen.ActiveControl, 0))
'    myFiter = "[Symbole] = '" & Str(Nz(Screen.ActiveControl, 0)) & "'"
'    myFilter = "[Symbole] like *" & Me.ComboSymbole & "*"
    myFilter = "[Symbole] = '" & Me.ComboSymbole & "'"
    '[Symbole] Like "*H3*")
    Me.Filter = myFilter
    Me.FilterOn = True
    
'    Debug.Print "Symbole = " & Me.ComboSymbole

ComboSymbole_AfterUpdate_Exit:
    Exit Sub

ComboSymbole_AfterUpdate_Err:
    MsgBox Error$
    Resume ComboSymbole_AfterUpdate_Exit

End Sub

     

    ZoneListe.zip

    فتح موقع بواسطة boutton /textbox في نموذج ا لاكسس

    في قسم الأكسيس Access

    قام بنشر 

    Function GetUserAddress() As Boolean
    Dim strInput As String
                                                                                            انشاءدالةتقوم بفتح قوقل
    On Error GoTo Error_GetUserAddress
    strInput = InputBox("https://www.google.dz")
    Application.FollowHyperlink strInput, , True
    GetUserAddress = True

Exit_GetUserAddress:
    Exit Function

Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
End sub
----------------------------------------------
Private Sub Texte13_Click()                                                               text/button
    If GetUserAddress = True Then
        MsgBox "Successfully followed hyperlink."
    Else
        MsgBox "Could not follow hyperlink."
    End If

     

    طباعة الفواتير من تاريخ الي تاريخ

    في قسم الأكسيس Access

    قام بنشر

    سلام عليكم   تحية خاصة الى الاساتذة الافاضل والى هدا المنتدى رائع , بعد:

    Shivan Rekany  فيما يخص البحث  عن التاريخ  من    الى       لقد وجدت   في مداخلتك الرائعة   وزدك الله علما ’''' ’

    و أحببت أن أضيف هدا كود   ولقد جربته    

    DoCmd.OpenReport "Table1", acPreview, "", "[Table1]![date-n]  BETWEEN    [Forms]![Table1]![Texte9]  AND  [Forms]![Table1]![Texte11] "

     

×
×
  • اضف...

Important Information

  I accept