• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abonaser

اعضاء جدد
  • عدد المشاركات

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

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

السمعه بالموقع

0 عادي

عن abonaser

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. Error 3420: Object Invalid or No Longer Set هذا هو الخطأ الذي أواجهه في برنامجي في اكسس اتمنى قرائة الكود ومعرفة اين المشكلة البرنامج ينجح بالعملية 3 مرات من اصل 15 مرة لا اعرف لماذا ولكن احيانا يعمل واحيانا لا يعمل اين هو الخطأ في الكود ؟ مع تحياتي TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ps", imyDateiname, True Private Sub Command50_Click() DoCmd.SetWarnings False Const msoFileDialogFilePicker As Long = 1 Set fDialog = Application.FileDialog(msoFileDialogFilePicker) Dim selectedFilter As String Dim imyDateiname As String With fDialog .AllowMultiSelect = False .Filters.Clear .Filters.Add "Excel", "*.xlsx", 1 .Show If .SelectedItems.Count = 0 Then imyDateiname = "" Else imyDateiname = Dir(.SelectedItems(1)) End If selectedFilter = .FilterIndex End With If imyDateiname <> "" Then Dim oExc As New Excel.Application With oExc .Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\" & imyDateiname .Rows("1:2").Delete .Rows("1:2").EntireRow.Insert .Worksheets("ps").Columns("B").Replace _ What:="-", Replacement:=" ", _ SearchOrder:=xlByColumns, MatchCase:=True End With With oExc Cells(1, 1).Value2 = "Ebene" Cells(1, 2).Value2 = "OrgEinheit" Cells(1, 3).Value2 = "Titel" Cells(1, 4).Value2 = "PersNr" Cells(1, 5).Value2 = "Geburtsdatum" Cells(1, 6).Value2 = "Eintrittsdatum" Cells(1, 7).Value2 = "Befristungs" Cells(1, 8).Value2 = "Beginnalter" Cells(1, 9).Value2 = "Beginnfrei" Cells(1, 10).Value2 = "WK2" Cells(1, 11).Value2 = "WT" Cells(1, 12).Value2 = "Kostenstelle" Cells(1, 13).Value2 = "Schlüssel" Cells(1, 14).Value2 = "Tätigkeitsbezeichnung" Cells(1, 15).Value2 = "IRWAZ" Cells(1, 16).Value2 = "IstAK" Cells(1, 17).Value2 = "BelGrp" .ActiveWorkbook.SaveAs "C:\Users\" & Environ("UserName") & "\Desktop\" & imyDateiname .Quit End With DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ps", imyDateiname, True Dim str As String str = InputBox("INSERT THE NUMBER OF THE MONTH PLEASE") execQry "upd_TPS_Monat", str Me.Refresh MsgBox "DONE YOUR DATA ARE READY!" End If End Sub**  
  2. تحياتي انا اريد القيام بعملية sum فقط في حال كان حقل اخر يساوي قيمة 2  هل ينفع ان اقوم ب SELECT Sum(ps.IRWAZ) AS SumOfIRWAZ FROM PS; where Monat =2 ? هل من حل ايها الخبراء  ؟  
  3. تحياتي انا اريد القيام بعملية sum فقط في حال كان حقل اخر يساوي قيمة 2  هل ينفع ان اقوم ب SELECT Sum(ps.IRWAZ) AS SumOfIRWAZ FROM PS; where Monat =2 ? هل من حل ايها الخبراء  ؟  
  4. اريد القيام بوضع رسالة في اكسس ادخل رقم محدد مثلا رقم 2 وبعد ان يقوم المستخدم ضغط 2 وانتر اريد ان ينزل رقم 2 في كل الحقل الخاص بالشهر مثلا عندي حق الاسم العمر تاريخ الميلاد وعندي 100 شخص  بعد ما اضع ادخل رقم 2 اريد كل خلايا العمر لل100 شخص تساوي 2 هل من حل سريع مع الشكر
  5. قمت بانشاء زر استخراج ملف اكسل TransferSpreadsheet كيف يمكنني اعادة تسمية A1 لاسم اخر من خلال VB بعد القيام بعملية الاستيراد  ؟ عملية الاستيراد جاهزة لدي اريد فقط اعادة تسمية الخلايا بعد الاستيراد 
  6. قمت بانشاء زر استخراج ملف اكسل TransferSpreadsheet كيف يمكنني اعادة تسمية A1 لاسم اخر من خلال VB بعد القيام بعملية الاستيراد  ؟ عملية الاستيراد جاهزة لدي اريد فقط اعادة تسمية الخلايا بعد الاستيراد 
  7. قمت بانشاء زر استخراج ملف اكسل TransferSpreadsheet كيف يمكنني اعادة تسمية A1 لاسم اخر من خلال VB بعد القيام بعملية الاستيراد  ؟ عملية الاستيراد جاهزة لدي اريد فقط اعادة تسمية الخلايا بعد الاستيراد